KVWORD ;VERWIJDEREN ORDERINFORMATIE [ 03/26/98  4:17 PM ]
 ;
 Kill
 Do INIT^vhTERMINA
 Read "Orders verwijderen tot en met orderdatum ? ",OrdDat
 Set OrdDat=$$INTDATE^vhDTyp(OrdDat)
 Quit:'OrdDat  Quit:OrdDat'<$$CALCDATE^vhDTyp($H,"J","-1","FD")
 Set ORDNr="",Count=0
 For  Set ORDNr=$O(^KO1(ORDNr)) Quit:'ORDNr  Do
 .Set R=^KO1(ORDNr,"F"),KLNr=$P(R,D),BONNr=$P(R,D,2)
 .Quit:'BONNr  Quit:$D(^KOD(KLNr,"F",ORDNr))
 .If '$D(^KU1(BONNr)) Write !,ORDNr," - ",BONNr Set Count=Count+1 Kill ^KO1(ORDNr,"F") Quit
 .Set R=^KU1(BONNr,"F")
 .Quit:$P(R,D)'=KLNr  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)>OrdDat
 .Write !,ORDNr," - ",BONNr," - ",FANr," - ",Date
 .Set Count=Count+1
 .Kill ^KO1(ORDNr,"F")
 Write !,Count
 Quit
 ;