//Scriptfunktion 'DLGDIALOG'
//Veraltete Funktion zum Öffnen von APF Formularen als Dialog Funktion

// Wenn kein Patient ausgewählt ist, wird das Script verlassen
DUMMYVAR=IFNOVAREXIT{PATIENTID}

// Beispieltext für die Dialoganzeige festlegen
DD2_ANG="Tochter"
DD2_NOTE={DERDIEPATIENT} {PATIENTPATIENTIN} hat die Diagnose: {DIAGNOSE1}. Wie der Name der Angehörigen?
DLGCOLOR="0"

START:
// Dialogfenster öffnen mit einer Konfiguration aus einer APF-Datei
APF={APPPATH}\FORMULAR\DEMO\Einladung.APF
PRF=IFEXISTSFILE{{APF}}
IFBLOCK{PRF=False}
	DLG=DLGMESSAGE{{APF} nicht gefunden!}
	EXIT=EXITSCRIPT{}
ENDIF
CHECK=DLGDIALOG{DD2,{APPPATH}\CONFIG\Scripts\TEST_DIALGO.APF,Beispiel Dialog,Speichern,{DLGCOLOR}}

IFBLOCK{DD2_ANGNAME=}
	JANEIN=DLGQUESTION{Wollen Sie einen Namen eingeben?}
	IFBLOCK{JANEIN=1}
		GO{START}
	ELSE
		EXIT=EXITSCRIPT{}
	ENDIF
ENDIF

// Wenn der Dialog bestätigt wurde, wird die Nachricht angezeigt
IFBLOCK{CHECK=1}
	RES=DLGMESSAGE{{DD2_ANG}:{DD2_ANGNAME}}
ENDIF