OPEN DATABASE TARMED;

--**********************************************************************************************************************************************************************
--* Feldinhalt von "typ" wird ex Textanalyse unten ermittelt
--* 0: Textanalyse nicht erfolgreich
--* 1,2,3: Minuten = erste, weitere, pro
--* 11,12,13: Stunden (LMIN auf Minuten umgerechnet!) = erste, weitere, pro 
--* 21,22,23: Stücke = erste, weitere, pro
--*
--* Feldinhalt von "auto" zur Aufteilung von 1,2 | 11,12 | 21,22 für "group": 0=manuell | 1=voll ohne Zusatz | 2=voll mit Zusatz | 3=voll nach Auswahl mit/ohne Zusatz
--* Die Aufteilung findet in "TARMED-AutomaticSplit" statt
--**********************************************************************************************************************************************************************

--! Daten aufbessern KVG

EXEC dbo.up_LMIN 1;
UPDATE T_LEISTUNG SET TYP=0 WHERE BEREICH=1;
UPDATE T_LEISTUNG SET TYP=1 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% erste% min.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=2 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% weitere% min.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=3 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% pro % min.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=3 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% pro % minuten%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=11 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% erste% std.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=12 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% weitere% std.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=13 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% pro % std.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=13 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% pro % stunden%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=21 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% erste%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=22 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% weitere%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=23 WHERE BEREICH=1 AND TYP=0 AND ISNULL(PATINDEX('% pro %',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET LMIN=LMIN*60 WHERE BEREICH=1 AND TYP>10 AND TYP<14;
UPDATE T_LEISTUNG SET EBB=1 WHERE BEREICH=1 AND ISNULL(PATINDEX('%erhöht%behandlung%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET EBB=0 WHERE BEREICH=1 AND EBB IS NULL; 

--! Daten aufbessern UVG

EXEC dbo.up_LMIN 2;
UPDATE T_LEISTUNG SET TYP=0 WHERE BEREICH=2;
UPDATE T_LEISTUNG SET TYP=1 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% erste% min.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=2 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% weitere% min.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=3 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% pro % min.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=3 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% pro % minuten%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=11 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% erste% std.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=12 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% weitere% std.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=13 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% pro % std.%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=13 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% pro % stunden%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=21 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% erste%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=22 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% weitere%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET TYP=23 WHERE BEREICH=2 AND TYP=0 AND ISNULL(PATINDEX('% pro %',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET LMIN=LMIN*60 WHERE BEREICH=2 AND TYP>10 AND TYP<14;
UPDATE T_LEISTUNG SET EBB=1 WHERE BEREICH=2 AND ISNULL(PATINDEX('%erhöht%behandlung%',LOWER(BEZG)),0)>1;
UPDATE T_LEISTUNG SET EBB=0 WHERE BEREICH=2 AND EBB IS NULL; 