KFWUD ; WIJZIGEN UITLEVERINGSDATUM ;KFWUD; [ 06/24/93  1:14 PM ]
 G 1
 ;
1 S R=@("^"_Q_UGL_"(KC,US,UR,1)") D KILL^KFVZW(US,R,UR) S $P(R,D,2)=K D SET^KFVZW(US,R,UR)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 13.03.91 - 13 u 11