'****************************
'***  GDT-Format einlesen ***
'****************************

'*** Finde Zeichenkette '3000' an Position 4 und nehme in gefundener
'*** Zeile ab Pos.8 5 Zeichen und ordne sie der Variablen "PATNR" zu.
[@PATNR:$FIND(4,3000);8;6] 

'*** Finde alle Zeilen mit Zeichenkette '6228' (Tabellarischer Text)
'*** an Position 4 und nehme in den gefundenen Zeilen ab Pos.8 bis zum 
'*** Ende der Zeile (99) alles und ordne Sie der Variablen "TEXT" zu.
[@TEXT:$FIND+(4,6228);8;99]

'*** 6220 ist die Befundkennung des GDT
[@BEF:$FIND+(4,6220);8;256]

'*** 6221 ist die Fremdbefundkennung des GDT
[@FBEF:$FIND+(4,6221);8;99]
'
'*** Datum im Format TTMMJJJJ
[@DATUM:$FIND(4,6200);8;8]

'*** 8402 ger„te- bzw. verfahrensspezisches KennFeld (muá als Krankenblatt-
'*** kategorie in MCS-NEXUS fr MCS-ISYNET angelegt sein.
[@KAT:$FIND(4,8402);8;6]

'*** Angabe des Programmes das aufgerufen werden soll, wenn in MCS-ISYNET
'*** auf den Karteikarteneintrag ein Doppelklick ausgefhrt wird.
'[@PROG:c:\GERAETE\xxxxxx.lnk]

'*** Hier beginnt der Bereich fr die Ablaufsteuerung in MCS-ISYNET
$ASS

'*** Eintrag einer Programmverknfpung fr das Krankenblatt
'MX [DATUM]#[KAT]#[FBEF]#[PROG]
M AB:[KAT]:[BEF]