KVWBON ;VERWIJDEREN BONINFORMATIE [ 03/27/98  9:08 AM ]
 ;
 Kill
 Do INIT^vhTERMINA
 Read "Bons verwijderen tot en met bondatum ? ",BonDat
 Set BonDat=$$INTDATE^vhDTyp(BonDat)
 Quit:'BonDat  Quit:BonDat'<$$CALCDATE^vhDTyp($H,"J","-1","FD")
 Set BONNr="",Count=0
 For  Set BONNr=$O(^KU1(BONNr)) Quit:'BONNr  Do
 .Set R=^KU1(BONNr,"F"),KLNr=$P(R,D)
 .Quit:$D(^KUL(KLNr,"F",BONNr))
 .Set FANr=$P(R,D,2)
 .Quit:FANr<100000
 .Set Date=$P($G(^KFA("F",FANr,0,0),$G(^KFAP("F",FANr,0,0),"")),D,6)
 .Quit:$$INTDATE^vhDTyp(Date)>BonDat
 .Write !,BONNr," - ",FANr," - ",Date
 .Set Count=Count+1
 .Kill ^KU1(BONNr,"F")
 Write !,Count
 Quit
 ;