View Categories

MCGDT.ADDGDTFIELDS

//Scriptfunktion 'MCGDT.ADDGDTFIELDS'
// GDT-FUNKTIONEN
// Erstellt einen GDT-Datensatz als Variable aus Variablen und übergebenen GDT-Feld-/Zeilennummern, der auch die Prüfsummen enthält.
// Nach der Übergabe der GDT-Feldnummern wird der GDT-Datensatz für den Export erstellt.
// Es ist wichtig, dass die externe Variable [GDT_RECORD_LEN] im Feld 8100 übergeben wird.
// Das Ergebnis wird in der Variablen {GDTFIELDS_GDTDATA} erzeugt.

//Beispiel:

GDTDAT=REPLACE{{GEBDATUM},.,}

IFBLOCK{GESCHLECHT=M}
	GDTGESCHLECHT="1"
ELSE
	GDTGESCHLECHT="0"
ENDIF

RES=MCGDT.ADDGDTFIELDS{8000=6302;8100=[GDT_RECORD_LEN];9218=01.00;3000={PATIENTFALLNR};3101={NAME};3102={VORNAME};3103={GDTDAT};3106={PLZ} {ORT};3107={STRASSE};3110={GDTGESCHLECHT}}

///GDTFIELDS_GDTDATA wird zurückgeliefert.
IFBLOCK{GDTFIELDS_GDTDATA!}
	RES=SAVEFILE{{SYSDIR_DESKTOP}\GDTDATA.GDT,{GDTFIELDS_GDTDATA},False,False}
ENDIF