; Routines speciaal Danielle De Smet
 Quit
 
DelOfferte
 New Rec,KLNr,OFFNr,Count
 Set (KLNr,Count)=0
 For  Set KLNr=$O(^KOFKL(KLNr)) Quit:KLNr=""  Do
 . Set OFFNr=""
 . For  Set OFFNr=$O(^KOFKL(KLNr,"F",OFFNr)) Quit:OFFNr=""  Do
 . . Quit:OFFNr=584186
 . . Set Rec=^KOFKL(KLNr,"F",OFFNr,1)
 . . Quit:$P(Rec,D,2)'="14.11.11"
 . . Quit:$P(Rec,D,3)'="14.11.11 LIJST SLE/DSM"
 . . Quit:$E($P(Rec,D,8),1,19)'="1093#1158#62409,479"
 . . Set Count=Count+1
 . . Write !,$ZR
 . . Do DELOBJ^FLOWOFF(OFFNr)
 Write !!,Count
 Quit