cwlputz4 ; ;[ 04/19/94  1:25 PM ]
 ;
 Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Set Q="K"
 Do ^cA604
 Set KLNr="",HoofdGr="03BX ",Groep="03BX04ACC ",SubGroep="03BX04ACC01ACC/BL "
 Write !,"Delete"
 For  Set KLNr=$O(^KLPUTZ("S",KLNr)) Quit:KLNr=""  Do
 .Quit:'$D(^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep))
 .Write !,KLNr
 .Do DELETE
 ;
 Write !,"Copy"
 For  Set KLNr=$O(^KLPUTZ("N",KLNr)) Quit:KLNr=""  Do
 .Quit:'$D(^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep))
 .Write !,KLNr
 .Do COPY
 Quit
 ;
DELETE 
 New 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
 ..Kill ^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)
 ..Kill ^KLPUTZ("IS",HoofdGr,Groep,SubGroep,PRNr,KLNr)
 Quit
 ;
COPY 
 New R,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
 ..Set R=^KLPUTZ("N",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)
 ..Set ^KLPUTZ("S",KLNr,HoofdGr,Groep,SubGroep,PRNr,Next)=R
 ..Set ^KLPUTZ("IS",HoofdGr,Groep,SubGroep,PRNr,KLNr)=""
 Quit
 ;