cAN202	;Wijzigen ;%AN200 ; [ 01/04/01  8:30 AM ]
	G 1
	;
T0	;Wijzigen ;
T1	;Niet wijzigbaar;
	;
T0F	;Modification ;
T1F	;Non modifiable;
	;
T0E	;Modification of ;
T1E	;Cannot be modified;
	;
T0D	;Ändern ;
T1D	;Nicht änderbar;
	;
	; data per rubriek
S3	S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100)
S3A	I $L(U2(17)) X U2(17)
S3Z	Q
	;
	; pagina tonen
S1	S SW5=1 K C D S1^cAN000(SW2)
S1A	S U1=0 F  S U1=$O(C(U1)) Q:U1=""  D S2^cAN000(U1),S3,S3^cAN000(K)
S1Z	S SW5=0 K REFRESH Q
	;
	; ophalen data + pagina tonen
1	K A,B,EXIT,KlantObjectDataM X USYN G YZ:K="-"!(K=",")!(RK=27)
11	D R^cAN000 M A=B S SW1=1,U1(0)=""
13	S:'SW2 SW2=1 D S1
15	I SW1 S SW1=0 L +@UREF:2 E  D BUSY^cAFA1 G 1
16	D R^cAN000 M A=B D S1
17	I $L($P(UXX,D,3)) S OK=0 X $P(UXX,D,3) I 'OK D:'$G(EXIT) NOA^cAFA1 G X
19	I $G(U70) D  I U7=U70 S K=U1 G 3
	. F U1=1:1 K U2 Q:'$D(C(U1))  D M^cAN000(U1) S U7=U2(16) I U7=U70 Q
	;
	; nummer element
2	I $G(^DMC(UQC,USC,"SPEC",UFU)) X $P(^(UFU),D,2)
21	D ^cAN006("",22,UQM,USM,UFU,SW4,"","")
23	I RK=25,SW2>1 S (K,U1)="."_(SW2-1) G 3
25	I RK=26,SW2<SW4 S (K,U1)="."_(SW2+1) G 3
27	I RK'=28 G 2
29	I 'K S (K,U1)="."_$TR(K,"-",",")
	;
	; uitvoeren keuze
3	I $E(K)="." S U1=$E(K,2,$L(K)),K="-" G 2:U1>SW4!($E(U1)=0)!(U1=SW2),7:$L(U1),2
31	S U1=+K G 2:'$D(C(U1)) D M^cAN000(U1) S U1(0)=U1
33	I $L(U2(15)),@U2(15) D ER^cAN000($S($L($G(RedenNietWijzigbaar)):$G(RedenNietWijzigbaar),1:$P($T(@("T1"_QT)),U,2))) kill RedenNietWijzigbaar G 2
	;
	; wijzigen rubriek
4	S U7=U2(16),K="" I U7>100,U7<(SW3+1*100) S K=$P(B(U7\100),D,U7#100)
40	I $L(U2(17)) X U2(17) G 51
41	I $L(U2(7)) X U2(7)
43	I $L(U2(19)) X U2(19) I $L(U2(11)),@U2(11) G 51
45	I $L(U2(19)),$L(U2(11)) S K="-"
47	I $L(U2(19)) G 51
	;
	; manuele input
5	D ^cAN100
51	I K="-" G 7:$G(EXIT),2
53	I K="," G 7:$G(EXIT),2
	;
	; X na input + output
6	I $L(U2(12)) X U2(12) I K="-"!(K=",") G 51
61	D B^cAN000(U7,K),S3^cAN000(K) I $G(REFRESH) D S1
63	I '$G(EXIT) G 2
	;         
	; einde pagina
7	S OK=0 I $L($P(UXX,D)) X $P(UXX,D) G 2:'OK
71	I OK'=1 D U^cAN000 M A=B
73	I $G(EXIT) G X
	;
	; keuze pagina/module
8	D ^cAN001(UTX,22,UQM,USM,UFU,SW4,"S SW2=K D S1",U1)
81	I RK=25,SW2>1 S SW2=SW2-1 G 13
83	I RK=26,SW2<SW4 S SW2=SW2+1 G 13
85	I RK=27 G X
87	I RK'=28 G 8
	;
	; uitvoeren pagina/module
9	I K="-"!(K=",") G X
91	X X I $G(REFRESH) D S1
93	I '$G(EXIT) G 2:'$g(TERMINATE)
	;
	; Xecute op 't einde
X	I $L($P(UXX,D,2)) X $P(UXX,D,2)
X1	L -@UREF I '$G(EXIT) G 1:'$g(TERMINATE)
	;
YZ	K EXIT D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 22.06.04 - 16 u 32 * V8