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