cAN206	;Sequentieel wijzigen ;%AN200 ; [ 01/04/01  8:40 AM ]
	G 0
	;
T0	;Sequentieel wijzigen ;
T1	;Niet wijzigbaar;
	;
T0F	;Modification séquentielle ;
T1F	;Non modifiable;
	;
T0E	;Sequential modification ;
T1E	;Cannot be modified;
	;
	; 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
	;
	; selektie
0	W /CUP($P(UTIT,D,2)+1,1),/WCMD
01	D ^cAN003(2,^DMA(UQA,USA,0,"DMS")) I K="-" G YZ
03	S UDIR=1,UI1="" K U1(0)
	;
	; ophalen data + pagina tonen
1	K A,B D ^cAN004("UI1",^DMA(UQA,USA,0,"DMS"),UDIR) G YZ:UI1=""
11	D R^cAN000 M A=B S SW1=1
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 NOA^cAFA1 G X
19	I $D(U1(0)) S (K,U1)=U1(0) G 3
	;
	; nummer element
2	I $G(^DMC(UQC,USC,"SPEC",UFU)) X $P(^(UFU),D,2)
20	D ^cAN006("",22,UQM,USM,UFU,SW4,"","")
21	I RK=25,SW2>1 S (K,U1)="."_(SW2-1) G 3
23	I RK=26,SW2<SW4 S (K,U1)="."_(SW2+1) G 3
25	S UDIR=1 I RK=31!(RK=32) S:RK=31 UDIR=-1 S K="+",RK=28
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)) 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($P($T(@("T1"_QT)),U,2)) 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="-" K U1(0) G 2
53	I K="," K U1(0) G 2
55	I $E(K)="+",$L(U7),$E(K,2,999)=$E($P(A(U7\100),D,U7#100),2,999) S K="+" G 29
56	I $E(K)="+",'$L(U7) S K="+" G 29
	;
	; 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	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 U1="+" G X
	;
	; keuze pagina/module
8	D ^cAN001(UTX,22,UQM,USM,UFU,SW4,"S SW2=K D S1 K U1(0)",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	G 2:'$g(TERMINATE)
	;
	; Xecute op 't einde
X	I $L($P(UXX,D,2)) X $P(UXX,D,2)
X1	L -@UREF G 0:K="-"!(K=",")!(U1=","),1:'$g(TERMINATE)
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08