cwlputz2 ; ;[ 04/18/94  9:12 AM ]
 ;
 Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Set Q="K"
 Do ^cA604
 Set KLNr="",HoofdGr="03BX ",Groep="03BX01HAV ",SubGroep="03BX01HAV02325/BL "
 For  Set KLNr=$O(^KLPUTZ("S",KLNr)) Quit:KLNr=""  Do
 .Quit:'$D(^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep))
 .Write !,KLNr
 .Do DELETE,COPY
 Quit
 ;
DELETE 
 New PRNr,Next
 Set PRNr=""
 For  Set PRNr=$O(^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,PRNr)) Quit:PRNr=""  Do
 .Set Next=""
 .For  Set Next=$O(^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)) Quit:Next=""  Do
 ..Kill ^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)
 ..Kill ^KLPUTZ("IN",HoofdGr,Groep,SubGroep,PRNr,KLNr)
 Quit
 ;
COPY 
 New R,PRNr,Next
 Set PRNr=""
 For  Set PRNr=$O(^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep,PRNr)) Quit:PRNr=""  Do
 .Set Next=""
 .For  Set Next=$O(^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)) Quit:Next=""  Do
 ..Set R=^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)
 ..Set ^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)=R
 ..Set ^KLPUTZ("IN",HoofdGr,Groep,SubGroep,PRNr,KLNr)=""
 Quit
 ;