cAN2201	;Extern wijzigen ;%AN220 ; [ 10/15/01  2:50 PM ]
	G 1
	;
T0	;Extern wijzigen ;
	;
T0F	;Modification externe ;
	;
T0E	;Extern modification ;
	;
	; opladen pagina
S1(R)	N S1,S2
S1A	; W /WSCROFF,/CUP($P(UTIT,D,2)+1,1),/WCMD
S1B	; I SW4>1 W /CUP(1,$P(QW(QW),D,4)-11),$P($T(@("T1"_QT)),U,2),R,"/",SW4,/WCML
S1C	S S1=0 F S2=1:1 S S1=$O(^DMA(UQA,USA,R,S1)) Q:S1=""  S C(S2)=S1
S1Z	Q
	;
	; data "tonen" + aanvulling logging
S3(U3)	I $L(U2(8)) X U2(8)
S3A	; W /CUP(U2(2),U2(6)),$E(U3_$J("",U2(13)),1,U2(13))
S3B	I $G(U7),$D(ULOG(U7)) S $P(ULOG(U7),D,3)=$E(U3,1,U2(13)) D
	. N K,U3 S (K,U3)=$P(A(U7\100),D,U7#100) I $L(U2(8)) X U2(8)
	. S $P(ULOG(U7),D,2)=$E(U3,1,U2(13))
S3Z	Q
	;
	; ophalen data
1	K A,B S K="-" G YZ:UI1="",YZ:'$D(@UREF)
11	S SW1=1
15	I SW1 S SW1=0 L +@UREF:2 E  D BUSY^cAFA1 S K="-" G YZ
16	D R^cAN000 M A=B
17	I $L($P(UXX,D,3)) S OK=0 X $P(UXX,D,3) I 'OK S K="-" G YZ   ; 15.10.01
	;
	; rubriek ophalen
2	S SW2=$O(EXTWIJZ(SW2)) I SW2="" G 27                   ; volg. pagina
21	D S1(SW2) S U1=0
23	S U1=$O(EXTWIJZ(SW2,U1)) I U1="" K EXTWIJZ(SW2) G 2    ; volg. element
25	D M^cAN000(U1) S U7=U2(16) G 23:'U7,3:$D(@BI@(U7)),23
27	S U7=$O(@BI@("")) I U7="" G 7                     ; geen rubriek in DMA
29	K U2 S U2(1)="Veld#"_U7_"~Champ#"_U7_"~Veld#"_U7_"~Field#"_U7,U2(13)=80,U2(16)=U7 F I=2:1:25 S U2(I)=$G(U2(I))
	;
	; gewijzigd  ?
3	I $P($G(A(U7\100)),D,U7#100)=@BI@(U7) G 63        ; VJ 23.08.01 (obj.)
	; wijzigbaar ?
31	I $L(U2(15)),@U2(15) S K="-" G YZ
	;
	; autom. input
5	S K=@BI@(U7)
51	I K="-" G YZ
53	I K="," G YZ
	;
	; X na input + output
6	I $L(U2(12)) X U2(12) I K="-"!(K=",") G 51
61	D B^cAN000(U7,K),S3(K)
63	K REFRESH,@BI@(U7) G 23:SW2,27
	;         
	; einde pagina
7	S OK=0 I $L($P(UXX,D)) X $P(UXX,D) I 'OK S K="-" G YZ
71	I OK'=1 D U^cAN000 M A=B
	;
	; Xecute op 't einde
X	I $L($P(UXX,D,2)) X $P(UXX,D,2)
X1	S K=""
	;
	; Einde
YZ	L -@UREF Q
	;
ZZ	; 07.11.01 -  9 u 36 * V7.89