E1plus Wizard, Version 3.0

  • Liebes Forum,

    hier Version 3.0 des E1 Formular Wizards.

    Im wesentlichen wurden diese Bugs behoben:

    - Verwendung einer DRG-Tabelle mit 3 (statt idiotischerweise bisher 2) Nachkommastellen
    - Anpassung aller 24 Spalten an das AOK E1plus Formular

    Das Input-File muss nach wie vor so aussehen:

    Ein Datensatz pro Patient

    Feld1 "PatID" - irgendeine eineindeutige Fallnummer
    Feld2 "DRG" - DRG-Kürzel als Text im Format "A06Z", "B70B" etc
    Feld3 "VWD" - Berechnungstage des Falles (also keine Nullen!)
    Feld4 "Verleg_A" - wurde Pat. ins KH verlegt, eine "1", sonst eine "0"
    Feld 5 "Verleg_E" - wenn Pat. aus dem KH wegverlegt wurde eine "1", sonst eine "0"

    diese Tabelle unter dem Namen "1 DRG Fälle" in Access (2000) importieren (Vorhandene Tabelle 1 überschreiben, die enthält nur ein paar anonymisierte Beispieldaten.)

    Abfrage E1 liefert eine 24spaltige und 642zeilige Tabelle für das E1plus Formular der AOK:

    Die 24 Spalten:

    1 DRG Kürzel
    2 Fälle dieser DRG gesamt
    3 Summe Effektivgewichte
    4-7 Normallieger
    4 Anzahl Normallieger dieser DRG
    5 Summe Tage Normallieger
    6 Bewertungsrelation
    7 Summe Bewertungsrelationen Normallieger
    8-11 Kurzlieger
    8 Anzahl Kurzlieger dieser DRG
    9 Summe Tage mit Abschlag Kurzlieger
    10 Bewertungsrelation des Kurzliegerabschlags
    11 Summe Abschläge Kurzlieger
    12-15 analog für AufnahmeVerlegungen
    16-19 analog für EntlassungsVerlegungen
    20-24 mehr oder weniger analog für Langlieger
    20 Anzahl Langlieger dieser DRG
    21 Summe Tage mit Zuschlag Langlieger
    22 Bewertungsrelation des Langliegerzuschlags
    23 Summe Zuschläge Langlieger
    24 Summe Effektivgewichte Langlieger

    (Siehe nächstes Posting)

    Abfrage Z1 zeigt den Effektiv-CMI

    Abfrage X2 liefert den Input für die Excel-Datei zur AEB-Erstellung, die die DKG zum Download anbietet. Hier sind nur 5 Felder erforderlich:

    DRG
    Anzahl DRG
    Anzahl Tage mit Verlegungsabschlag
    Anzahl Tage mit UGVWD Unterschreitung
    Anzahl Tage mit OGVWD Überschreitung

    Diese Tabelle wird auf das Blatt "Import" kopiert, die Blätter "Nebenrechnung E1" und "E1" können dann automatisch gefüllt werden.

    Freundliche Grüße

    Christian Jacobs

  • Ooops, ein Schnellschuss:

    es gibt einen Widerspruch zwischen den E1 und den X2 Ergebnissen (bei den Verlegungen).
    Abfrage X1 muss so lauten:

    SELECT [2 G-DRG V 1_0 für Hauptabteilungen].DRG AS DRG_, Count([1 DRG Fälle].DRG) AS Fallzahl_, nz([7-2 AufnahmeVerlegungen]![A_Summe_TageMitAbschlag])+nz([8-2 EntlassungsVerlegungen]![E_Summe_TageMitAbschlag]) AS [Tage Verlegung_], [6-2 Kurzlieger].K_Summe_TageMitAbschlag AS [Tage UGVD_], [9-2 Langlieger].L_Summe_TageMitZuschlag AS [Tage OGVD_]
    FROM [1 DRG Fälle] RIGHT JOIN (((([2 G-DRG V 1_0 für Hauptabteilungen] LEFT JOIN [6-2 Kurzlieger] ON [2 G-DRG V 1_0 für Hauptabteilungen].DRG = [6-2 Kurzlieger].DRG) LEFT JOIN [7-2 AufnahmeVerlegungen] ON [2 G-DRG V 1_0 für Hauptabteilungen].DRG = [7-2 AufnahmeVerlegungen].DRG) LEFT JOIN [8-2 EntlassungsVerlegungen] ON [2 G-DRG V 1_0 für Hauptabteilungen].DRG = [8-2 EntlassungsVerlegungen].DRG) LEFT JOIN [9-2 Langlieger] ON [2 G-DRG V 1_0 für Hauptabteilungen].DRG = [9-2 Langlieger].DRG) ON [1 DRG Fälle].DRG = [2 G-DRG V 1_0 für Hauptabteilungen].DRG
    GROUP BY [2 G-DRG V 1_0 für Hauptabteilungen].DRG, nz([7-2 AufnahmeVerlegungen]![A_Summe_TageMitAbschlag])+nz([8-2 EntlassungsVerlegungen]![E_Summe_TageMitAbschlag]), [6-2 Kurzlieger].K_Summe_TageMitAbschlag, [9-2 Langlieger].L_Summe_TageMitZuschlag;


    ... dann passts.

    Alternativ die hier angefügte Access97 Version nehmen (X1 ist korrigiert).

    Freundliche Grüße

    Christian Jacobs