cAN2204 ;Effectief verwijderen ;%AN220 ; [ 01/04/01  9:02 AM ]
 G 1
 ;
T0 ;Effectief verwijderen ;
 ;
T0F ;Annulation effective ;
 ;
T0E ;Final remove ;
 ;
 ; 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 4
 ;
 ; test op verwijderen
2 D S2^cAN204 I 'OK S K="-" 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,K^cAN000 ; effectief verwijderen
35 S K=""
 ;
4 L -@UREF
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84