cT36 ;Gestructureerde mededelingen ;%T36 ;%T36* ; [ 04/04/00  1:38 PM ]
 G 1
 ;
T0 ;Gestructureerde mededelingen ;
T1 ;Keuze\"-[] = einde programma   [] = bestand inlezen + gegevens verwerken               .[] = controlelijst";
T3 ;Dit bestand is leeg ;
 ;
T0F ;Communications structurées ;
T1F ;Choix\"-[] = fin du programme   [] = importer fichier + traitement des données         .[] = liste de contrôle";
T3F ;Ce fichier est vide ;
 ;
T0E ;Gestructureerde mededelingen ;
T1E ;Keuze\"-[] = einde programma   [] = bestand inlezen + gegevens verwerken               .[] = controlelijst";
T3E ;Dit bestand is leeg ;
 ;
S1 W /CUP(1,1),@F1 D T^cA612($P($T(@("T0"_QT)),U,2),2,0,7,1,1)
S1Z Q
 ;
1 D S1 S KEU=0
11 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-.""[K" D R0 G YZ:K="-" I K="." S KEU=1 G 3
13 D ^cA703 K DR,DIR,A,B,ZA,ZB,ZC,OMS,FORM,NMF,TMO,RS,RL G 1:K="-" D S1
15 S R="RC" D ^cA709
17 S FP=TNR*100+501 W @F,"->" I $O(^HULP("RC",Q,TNR,0))'="" G 2
19 S K=$P($T(@("T3"_QT)),U,2) D F1 G 1
 ;
 ; controle structuur
2 I '$D(TNR) D ^cA705 G 1:K="-"
21 L ^HULP("RC",Q,TNR):2 E  S R=14 D F2 G 1
23 D ^cT360 G 13:ER,3
 ;
 ; controlelijst
3 I '$D(TNR) D ^cA705 G 1:K="-"
31 L ^HULP("RC",Q,TNR):2 E  S R=14 D F2 G 1
33 D ^cT361 G 1:ER!KEU,4
 ;
 ; verwerking
4 I '$D(TNR) D ^cA705 G 1:K="-"
41 L ^HULP("RC",Q,TNR):2 E  S R=14 D F2 G 1
43 G ^cT364
 ;
YZ Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84