cwlputz3 ; ;[ 04/18/94  8:40 AM ]
 ;
 Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Set Q="K"
 Do ^cA604
 ;
GROEP 
 Set KLNr=""
 For  Set KLNr=$O(^KLPUTZ("N",KLNr)) Quit:KLNr=""  Do
 .Set HoofdGr=""
 .For  Set HoofdGr=$O(^KLPUTZ("N",KLNr,HoofdGr)) Quit:HoofdGr=""  Do
 ..Quit:$E(HoofdGr,3,4)="DE"
 ..Set Groep=""
 ..For  Set Groep=$O(^KLPUTZ("N",KLNr,HoofdGr,Groep)) Quit:Groep=""  Do
 ...Quit:'$D(^KLPUTZ("N",KLNr,HoofdGr,Groep,0,0,0))
 ...Set Korting=^KLPUTZ("N",KLNr,HoofdGr,Groep,0,0,0),$P(Korting,D,3)="AKG"
 ...Set SubGroep=""
 ...For  Set SubGroep=$O(^KPH(HoofdGr,Groep,SubGroep)) Quit:SubGroep=""  Do
 ....Quit:$D(^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,0))
 ....Quit:'$D(^KKAAP(KLNr,HoofdGr,Groep,SubGroep))
 ....Set ^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,0,0)=Korting
 ....Set ^KLPUTZ("IN",HoofdGr,Groep,SubGroep,0,KLNr)=""
 ....Kill ^KLPUTZ("N",KLNr,HoofdGr,Groep,0,0,0)
 ....Kill ^KLPUTZ("IN",HoofdGr,Groep,0,0,KLNr)
 ;
HOOFDGR 
 Set KLNr=""
 For  Set KLNr=$O(^KLPUTZ("N",KLNr)) Quit:KLNr=""  Do
 .Set HoofdGr=""
 .For  Set HoofdGr=$O(^KLPUTZ("N",KLNr,HoofdGr)) Quit:HoofdGr=""  Do
 ..Quit:$E(HoofdGr,3,4)="DE"
 ..Quit:'$D(^KLPUTZ("N",KLNr,HoofdGr,0,0,0,0))
 ..Set Korting=^KLPUTZ("N",KLNr,HoofdGr,0,0,0,0),$P(Korting,D,3)="AKH"
 ..Set Groep=""
 ..For  Set Groep=$O(^KPH(HoofdGr,Groep)) Quit:Groep=""  Do
 ...Set SubGroep=""
 ...For  Set SubGroep=$O(^KPH(HoofdGr,Groep,SubGroep)) Quit:SubGroep=""  Do
 ....Quit:$D(^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,0))
 ....Quit:'$D(^KKAAP(KLNr,HoofdGr,Groep,SubGroep))
 ....Set ^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,0,0)=Korting
 ....Set ^KLPUTZ("IN",HoofdGr,Groep,SubGroep,0,KLNr)=""
 ....Kill ^KLPUTZ("N",KLNr,HoofdGr,0,0,0,0)
 ....Kill ^KLPUTZ("IN",HoofdGr,0,0,0,KLNr)
 ;
 Quit
 ;