cAB102	; Beheer ^DMA ;%AB10 ; [ 11/29/01  2:11 PM ]
	;
T1	;Prompt N;
T2	;Lijnnummer;
T3	;Kolom prompt;
T4	;Kolom output;
T5	;Data type;[] = tekst   1[] = numeriek   2[] = datum   3[] = J/N-veld;tekst;numeriek;datum;J/N;
T6	;Lengte input;
T7	;Lengte tonen;
T8	;Nummer tonen;0[] = neen   1[] = ja;
T9	;Prompt tonen;0[] = neen   1[] = ja;
T10	;Utili nummer tonen;[] = zie 8   0[] = neen   1[] = ja;zie 8;Neen;Ja;
T11	;Utili prompt tonen;[] = zie 9   0[] = neen   1[] = ja;zie 9;Neen;Ja;
T12	;B-index;
T13	;X ipv B-index;
T14	;X voor input;
T15	;X ipv. input;
T16	;Inputcontrole;
T17	;X  na  input;
T18	;X ivm output;
T19	;Cond. n.wijz.;
T20	;Commentaar N;
T21	;Prompt F;
T22	;Commentaar F;
T23	;Link v.Utili;
T24	;Prompt E;
T25	;C.E;
T26	;Prompt D;
T27	;C.D;
	;
T30	;Nummer element\"V[] = verwijderen   C[] = mapping naar Caché";
	;
	; Window & Titel
1	D P^cA612(3,1,19,80,1,0,1,1,$NA(@$ZR,4),0,2,1,0,0)
	;
	; Tonen gegevens
2	W /CUP(1,1)," 1",@F6,$$S1(1),@F9,/CUP(1,17),": ",$P($$S2(1),D),/WCMD
21	W /CUP(2,1)," 2",@F6,$$S1(2),@F9,/CUP(2,17),": ",$$S2(2)
23	W /CUP(3,1)," 3",@F6,$$S1(3),@F9,/CUP(3,17),": ",$$S2(3)
25	W /CUP(4,1)," 4",@F6,$$S1(4),@F9,/CUP(4,17),": ",$$S2(6)
	;
3	W /CUP(2,22)," 5",@F6,$$S1(5),@F9,/CUP(2,37),": ",$P($T(T5),U,4+$$S2(4))
31	W /CUP(3,22)," 6",@F6,$$S1(6),@F9,/CUP(3,37),": ",$$S2(9)
32	W /CUP(4,22)," 7",@F6,$$S1(7),@F9,/CUP(4,37),": ",$$S2(13)
33	W /CUP(3,42)," 8",@F6,$$S1(8),@F9,/CUP(3,57),": ",$$JN^cAFO1($$S2(22))
34	W /CUP(4,42)," 9",@F6,$$S1(9),@F9,/CUP(4,57),": ",$$JN^cAFO1($$S2(23))
35	W /CUP(3,64),"10",@F6,$E($$S1(10),1,5),@F9,/CUP(3,72),": ",$P($T(T10),U,$$S2(24)+$L($$S2(24))+4)
36	W /CUP(4,64),"11",@F6,$E($$S1(11),1,5),@F9,/CUP(4,72),": ",$P($T(T11),U,$$S2(25)+$L($$S2(25))+4)
	;
4	W /CUP(5,1),"12",@F6,$$S1(12),@F9,/CUP(5,17),": ",@F2,$$S2(16)
40	W /CUP(6,1),"13",@F6,$$S1(13),@F9,/CUP(6,17),": ",@F2,$$S2(17)
41	W /CUP(7,1),"14",@F6,$$S1(14),@F9,/CUP(7,17),": ",@F2,$$S2(7)
43	W /CUP(8,1),"15",@F6,$$S1(15),@F9,/CUP(8,17),": ",@F2,$$S2(19)
45	W /CUP(9,1),"16",@F6,$$S1(16),@F9,/CUP(9,17),": ",@F2,$$S2(11)
47	W /CUP(10,1),"17",@F6,$$S1(17),@F9,/CUP(10,17),": ",@F2,$$S2(12)
49	W /CUP(11,1),"18",@F6,$$S1(18),@F9,/CUP(11,17),": ",@F2,$$S2(8)
	;
5	W /CUP(12,1),"19",@F6,$$S1(19),@F9,/CUP(12,17),": ",@F2,$$S2(15)
51	W /CUP(13,1),"20",@F6,$$S1(20),@F9,/CUP(13,17),": ",@F2,$P($$S2(10),D)
53	W /CUP(14,1),"21",@F6,$$S1(21),@F9,/CUP(14,17),": ",@F2,$P($$S2(1),D,2)
55	W /CUP(15,1),"22",@F6,$$S1(22),@F9,/CUP(15,17),": ",@F2,$P($$S2(10),D,2)
57	W /CUP(2,48),"23",@F6,$$S1(23),@F9,/CUP(2,63),": ",@F2,$E($$S2(18),1,14)
58	W /CUP(16,1),"24",@F6,$$S1(24),@F9,/CUP(16,17),": ",@F2,$E($P($$S2(1),D,4),1,22)
59	W /CUP(16,42),"25",@F6,$$S1(25),@F9,/CUP(16,48),": ",@F2,$E($P($$S2(10),D,4),1,29)
	W /CUP(17,1),"26",@F6,$$S1(26),@F9,/CUP(17,17),": ",@F2,$E($P($$S2(1),D,3),1,22)
	W /CUP(17,42),"27",@F6,$$S1(27),@F9,/CUP(17,48),": ",@F2,$E($P($$S2(10),D,3),1,29)
	;
	; Nummer element
6	S R="UV\22\3\"_$P($T(T30),U,2)_"\2\\$L(K)\\\1" D R0 I K="-"!(K=",") G YZ
61	I K="V" K U2 G YZ
	I K="C" D ^cAB1021(UQA,USA,SW2,C(U1),1) G 6
63	I K>27!'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,4,1) I K'="-",K'="," D S4(4)
706	I UV=6 D S3(6,9,2) I K'="-",K'="," D S4(9)
707	I UV=7 D S3(7,13,2) I K'="-",K'="," D S4(13)
708	I UV=8 D S3(8,22,1) I K'="-",K'="," D S4(22)
709	I UV=9 D S3(9,23,1) I K'="-",K'="," D S4(23)
710	I UV=10 D S3(10,24,1) I K'="-",K'="," D S4(24)
711	I UV=11 D S3(11,25,1) I K'="-",K'="," D S4(25)
712	I UV=12 D S3(12,16,3) I K'="-",K'="," D S4(16)
713	I UV=13 S K=$$I^cAB1($$S2(17),$$S1(13)) I K'="-",K'="," D S4(17)
714	I UV=14 S K=$$I^cAB1($$S2(7),$$S1(14)) I K'="-",K'="," D S4(7)
715	I UV=15 S K=$$I^cAB1($$S2(19),$$S1(15)) I K'="-",K'="," D S4(19)
716	I UV=16 S K=$$I^cAB1($$S2(11),$$S1(16)) I K'="-",K'="," D S4(11)
717	I UV=17 S K=$$I^cAB1($$S2(12),$$S1(17)) I K'="-",K'="," D S4(12)
718	I UV=18 S K=$$I^cAB1($$S2(8),$$S1(18)) I K'="-",K'="," D S4(8)
719	I UV=19 S K=$$I^cAB1($$S2(15),$$S1(19)) I K'="-",K'="," D S4(15)
720	I UV=20 S K=$$I^cAB1($P($$S2(10),D),$$S1(20)) I K'="-",K'="," S $P(U2(10),D)=K
721	I UV=21 D S3(21,1,60) I K'="-",K'="," S $P(U2(1),D,2)=K
722	I UV=22 S K=$$I^cAB1($P($$S2(10),D,2),$$S1(22)) I K'="-",K'="," S $P(U2(10),D,2)=K
723	I UV=23 D S3(23,18,30) I K'="-",K'="," D S4(18)
724	I UV=24 D S3(24,1,60) I K'="-",K'="," S $P(U2(1),D,4)=K
725	I UV=25 S K=$$I^cAB1($P($$S2(10),D,4),$$S1(25)) I K'="-",K'="," S $P(U2(10),D,4)=K
726	I UV=26 D S3(26,1,60) I K'="-",K'="," S $P(U2(1),D,3)=K
727	I UV=27 S K=$$I^cAB1($P($$S2(10),D,3),$$S1(27)) I K'="-",K'="," S $P(U2(10),D,3)=K 
79	G 6:K="-"!(K=","),2
	;
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=5!(T>7&(T<12)) S $P(R,D,5)=""""_$P($T(@("T"_T)),U,3)_""""
	. I T=1!(T=20) S I=$P(I,D)
	. I T=21!(T=22) S I=$P(I,D,2)
	. I T=23!(T=24) S I=$P(I,D,4)
	. I T=26!(T=27) S I=$P(I,D,3)
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.04 - 15 u 48 * V8