Index: cAB101.mac.rou
===================================================================
diff -u -r734 -r3542
--- cAB101.mac.rou	(.../cAB101.mac.rou)	(revision 734)
+++ cAB101.mac.rou	(.../cAB101.mac.rou)	(revision 3542)
@@ -1,78 +1,79 @@
-cAB101 ; Beheer ^DMA ;%AB10 ; [ 04/10/00  4:59 PM ]
- ;
-T1 ;Prompt N;
-T2 ;Lijnnummer;
-T3 ;Kolom prompt;
-T4 ;Kolom output;
-T5 ;Lengte input;
-T6 ;Lengte tonen;
-T7 ;Nummer tonen;0[] = neen   1[] = ja;
-T8 ;Prompt tonen;0[] = neen   1[] = ja;
-T9 ;B-index;
- ;
-T30 ;Bevestiging\".[] = openen   ,[] = hernemen   x[] = element x";
- ;
- ; Window & Titel
-1 D O^cA612(15,1,7,80,1,0,0,0)
-11 K U2 F I=1:1:3,6:1:13,15,16,19,22,23 S U2(I)=""
-13 S (SW1,UV)=0
- ;
- ; Tonen gegevens
-2 W /CUP(1,2),"1",@F6,$$S1(1),@F9,/CUP(1,17),": ",$P($$S2(1),D),@F1
-21 W /CUP(2,2),"2",@F6,$$S1(2),@F9,/CUP(2,17),": ",$$S2(2)
-23 W /CUP(3,2),"3",@F6,$$S1(3),@F9,/CUP(3,17),": ",$$S2(3)
-25 W /CUP(4,2),"4",@F6,$$S1(4),@F9,/CUP(4,17),": ",$$S2(6)
- ;
-3 W /CUP(3,27),"5",@F6,$$S1(5),@F9,/CUP(3,42),": ",$$S2(9)
-31 W /CUP(4,27),"6",@F6,$$S1(6),@F9,/CUP(4,42),": ",$$S2(13)
-33 W /CUP(3,52),"7",@F6,$$S1(7),@F9,/CUP(3,67),": ",$$JN^cAFO1($$S2(22))
-35 W /CUP(4,52),"8",@F6,$$S1(8),@F9,/CUP(4,67),": ",$$JN^cAFO1($$S2(23))
- ;
-4 W /CUP(5,2),"9",@F6,$$S1(9),@F9,/CUP(5,17),": ",$$S2(16)
- ;
- ; Sequentieel invullen
-5 I 'SW1 S UV=UV+1 I UV<10 G 7
-51 S SW1=1
- ;
- ; Bevestiging
-6 S R="UV\22\3\"_$P($T(T30),U,2)_"\1\\$L(K)" D R0 G Y:K=".",13:K=","
-61 I K="-" S (K,UV)=9,SW1=0
-63 I K>9!'K G 6
- ;
-7 S UV=+UV
-701 I UV=1 D S3(1,1,60) I K'="-",K'="," S $P(U2(1),D)=K
-702 I UV=2 D S3(2,2,2) I K'="-",K'="," D S4(2)
-703 I UV=3 D S3(3,3,2) I K'="-",K'="," D S4(3)
-704 I UV=4 D S3(4,6,2) I K'="-",K'="," D S4(6)
-705 I UV=5 D S3(5,9,2) I K'="-",K'="," D S4(9)
-706 I UV=6 D S3(6,13,2) I K'="-",K'="," D S4(13)
-707 I UV=7 D S3(7,22,1) I K'="-",K'="," D S4(22)
-708 I UV=8 D S3(8,23,1) I K'="-",K'="," D S4(23)
-709 I UV=9 D S3(9,16,3) I K'="-",K'="," D S4(16)
-79 G 6:K="-"!(K=",")&SW1,13:K=",",2:K'="-" S UV=UV-1 G 7:UV,YZ
- ;
-Y S I=$O(^DMA(UQA,USA,SW2,""),-1)+1 M ^(I)=U2
-YZ D C^cA612 Q
- ;
- ; Prompt
-S1(R) S R=$P($T(@("T"_R)),U,2)
-S1Z Q R
- ;
- ; Data
-S2(R) S R=$G(U2(R))
-S2Z Q R
- ;
- ; Vraagstelling
-S3(T,V,L)          S I=$$S2(V),R="I\22\3\"_$$S1(T)_"\\"_L_"\\\\\\\1" D  D R0
- . I T=7!(T=8) S $P(R,D,5)=""""_$P($T(@("T"_T)),U,3)_""""
- . I T=1!(T=16) S I=$P(I,D)
- . I T=17!(T=18) S I=$P(I,D,2)
-S3Z Q
- ;
- ; Update
-S4(R) S U2(R)=K
-S4Z Q
- ;
-R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
- ;
-ZZ ; 19.04.00 - 14 u 04 * V7.3
\ No newline at end of file
+cAB101	; Beheer ^DMA ;%AB10 ; [ 03/29/01  9:18 AM ]
+	;
+T1	;Prompt N;
+T2	;Lijnnummer;
+T3	;Kolom prompt;
+T4	;Kolom output;
+T5	;Lengte input;
+T6	;Lengte tonen;
+T7	;Nummer tonen;0[] = neen   1[] = ja;
+T8	;Prompt tonen;0[] = neen   1[] = ja;
+T9	;B-index;
+	;
+T30	;Bevestiging\".[] = openen   ,[] = hernemen   x[] = element x";
+	;
+	; Window & Titel
+1	D O^cA612(15,1,7,80,1,0,0,0)
+11	K U2 F I=1:1:3,6:1:13,15,16,19,22,23 S U2(I)=""
+13	S (SW1,UV)=0
+	;
+	; Tonen gegevens
+2	W /CUP(1,2),"1",@F6,$$S1(1),@F9,/CUP(1,17),": ",$P($$S2(1),D),@F1
+21	W /CUP(2,2),"2",@F6,$$S1(2),@F9,/CUP(2,17),": ",$$S2(2)
+23	W /CUP(3,2),"3",@F6,$$S1(3),@F9,/CUP(3,17),": ",$$S2(3)
+25	W /CUP(4,2),"4",@F6,$$S1(4),@F9,/CUP(4,17),": ",$$S2(6)
+	;
+3	W /CUP(3,27),"5",@F6,$$S1(5),@F9,/CUP(3,42),": ",$$S2(9)
+31	W /CUP(4,27),"6",@F6,$$S1(6),@F9,/CUP(4,42),": ",$$S2(13)
+33	W /CUP(3,52),"7",@F6,$$S1(7),@F9,/CUP(3,67),": ",$$JN^cAFO1($$S2(22))
+35	W /CUP(4,52),"8",@F6,$$S1(8),@F9,/CUP(4,67),": ",$$JN^cAFO1($$S2(23))
+	;
+4	W /CUP(5,2),"9",@F6,$$S1(9),@F9,/CUP(5,17),": ",$$S2(16)
+	;
+	; Sequentieel invullen
+5	I 'SW1 S UV=UV+1 I UV<10 G 7
+51	S SW1=1
+	;
+	; Bevestiging
+6	S R="UV\22\3\"_$P($T(T30),U,2)_"\1\\$L(K)" D R0 G Y:K=".",13:K=","
+61	I K="-" S (K,UV)=9,SW1=0
+63	I K>9!'K G 6
+	;
+7	S UV=+UV
+701	I UV=1 D S3(1,1,60) I K'="-",K'="," S $P(U2(1),D)=K
+702	I UV=2 D S3(2,2,2) I K'="-",K'="," D S4(2)
+703	I UV=3 D S3(3,3,2) I K'="-",K'="," D S4(3)
+704	I UV=4 D S3(4,6,2) I K'="-",K'="," D S4(6)
+705	I UV=5 D S3(5,9,2) I K'="-",K'="," D S4(9)
+706	I UV=6 D S3(6,13,2) I K'="-",K'="," D S4(13)
+707	I UV=7 D S3(7,22,1) I K'="-",K'="," D S4(22)
+708	I UV=8 D S3(8,23,1) I K'="-",K'="," D S4(23)
+709	I UV=9 D S3(9,16,3) I K'="-",K'="," D S4(16)
+79	G 6:K="-"!(K=",")&SW1,13:K=",",2:K'="-" S UV=UV-1 G 7:UV,YZ
+	;
+Y	S I=$O(^DMA(UQA,USA,SW2,""),-1)+1 M ^(I)=U2
+YZ	D C^cA612 Q
+	;
+	; Prompt
+S1(R)	S R=$P($T(@("T"_R)),U,2)
+S1Z	Q R
+	;
+	; Data
+S2(R)	S R=$G(U2(R))
+S2Z	Q R
+	;
+	; Vraagstelling
+S3(T,V,L)	         S I=$$S2(V),R="I\22\3\"_$$S1(T)_"\\"_L_"\\\\\\\1" D  D R0
+	. I T=7!(T=8) S $P(R,D,5)=""""_$P($T(@("T"_T)),U,3)_""""
+	. I T=1!(T=16) S I=$P(I,D)
+	. I T=17!(T=18) S I=$P(I,D,2)
+S3Z	Q
+	;
+	; Update
+S4(R)	S U2(R)=K
+S4Z	Q
+	;
+R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
+	;
+ZZ	; 18.05.01 - 11 u 18 * V7.86
+