cAN207	;Verwijderen via niveau 2 ;%AN200 ; [ 01/04/01  8:42 AM ]
	G 1
	;
T0	;Verwijderen via niveau 2 ;
T1	; kan niet verwijderd worden ;
T2	;,[] = hernemen   V[] = verwijderen;
	;
T0F	;Annulation via niveau 2 ;
T1F	; n'est pas annulable ;
T2F	;,[] = reprendre   V[] = annulation;
	;
T0E	;Remove via level 2 ;
T1E	; cannot be removed ;
T2E	;,[] = retry   V[] = remove;
	;
T0D	;Verwijderen via niveau 2 ;
T1D	; kan nicht gelöscht worden ;
T2D	;,[] = wiedernehmen   V[] = löschen;
	;
	; 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
	;
	; scherm 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 W /WDSP Q
	;
	; Test op verwijderen
S2	S OK=1 I $L($P(UXX,D)) S OK=0 X $P(UXX,D)
S2A	I OK=1,$L($O(@UREF@(9999))) S OK=0
S2B	I OK=1 I $G(@("^"_Q_"BA(2)")) D
	. N BJ S BJ=$P(^(2),D,2)\1 F I=BJ+1:-1:BJ-10 Q:'OK  D
	.. N CC,DC S DC=$G(@UREF@(I)),CC=$G(^(I+.02))
	.. F K=1:1:24 Q:'OK  I $P(DC,D,K)!$P(CC,D,K) S OK=0
S2Z	Q
	;
	; ophalen data + pagina tonen
1	K A,B X USYN G YZ:K="-"!(K=",")!(RK=27)
11	D R^cAN000 M A=B S SW1=1
13	S 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 4
	;
	; test + bevestiging
2	D S2 I 'OK S K=$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D) D ER^cAN000($$UC^cAFA1($E(K))_$E(K,2,99)_$P($T(@("T1"_QT)),U,2)) G 4
21	S R="K\22\3\"_UTX_"\"""_$P($T(@("T2"_QT)),U,2)_"""\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" G 4
	;
	; Xecute op 't einde
3	D B^cAN000(130,2)   ; set niveau = 2
31	I $L($P(UXX,D,2)) X $P(UXX,D,2)
33	D U^cAN000
	;
	; einde
4	L -@UREF
41	G 1
	;
YZ	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