PVKTOB ;NEW PROGRAM [ 01/16/98  3:54 PM ]
 d ^cA604
 S TLNr=""
 For  Set TLNr=$O(^KTOB(TLNr)) Quit:TLNr=""  Do
 .Set LevNr=$P(^KTOB(TLNr),D,1)
 .Quit:$D(^KTO(LevNr,TLNr))
 .Write !,"Verwijder : ",LevNr,"  ",TLNr
 .Kill ^KTOB(TLNr)
 Quit