Diagnosenexport in Textdatei: Dieses Script exportiert Patientendaten inklusive der ersten Diagnose in eine Textdatei. Es prüft, ob ein Patient aktiv ist. Dann wird kontrolliert, ob Diagnosen existieren (IFEXISTSMATCH{DIAG,1,0}). Wenn Diagnosen vorhanden sind, werden die Entlassdiagnosen aus der Datei MEDDOK{PATIENTID}.MDB gelesen. Der Inhalt der ersten Diagnose (DIAGNOSE1) wird auf 75 Zeichen gekürzt. Anschließend werden Name, Vorname, Adresse und Diagnose zu einem strukturierten Textblock zusammengefügt. Dieser Block wird in die Datei C:\TEST.TXT geschrieben. Das Script zeigt am Ende eine Bestätigung oder — falls keine Diagnosen existieren — eine entsprechende Fehlermeldung. 💡 Zweck: Erstellt einen einfachen Textexport mit Patientendaten und der wichtigsten Diagnose, ideal zur Weitergabe oder Archivierung.