KTO4 ;AANPASSEN ^KTO4 [ 10/30/98  1:47 PM ]
 ;
 Do KILL(LC,TR,$P(B(1),D,10))
 If $L(K) Do SET(LC,TR,K)
 Quit
 ;
SET(LEVNr,TOENr,ABNr) 
 New R
 Set:'$D(ABNr) R=^KTO(LEVNr,TOENr,1),ABNr=$P(R,D,10)
 Set ABNr=$$UPTRIMAN^vhRtn1(ABNr)
 Set ^KTO4(LEVNr,ABNr_D_TOENr)=""
 Quit
 ;
KILL(LEVNr,TOENr,ABNr) 
 New R
 Set:'$D(ABNr) R=^KTO(LEVNr,TOENr,1),ABNr=$P(R,D,10)
 Set ABNr=$$UPTRIMAN^vhRtn1(ABNr)
 Kill ^KTO4(LEVNr,ABNr_D_TOENr)
 Quit
 ;