Index: cT36.mac.rou
===================================================================
diff -u -r29059 -r43422
--- cT36.mac.rou	(.../cT36.mac.rou)	(revision 29059)
+++ cT36.mac.rou	(.../cT36.mac.rou)	(revision 43422)
@@ -1,50 +1,49 @@
-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
-
+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	; 18.04.08 - 16 u 39 * V9.01