cwlputz6 ; ;[ 04/20/94  9:17 AM ]
 ;
 Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Set Q="K"
 Do ^cA604
 Set KLNr="",HoofdGr="03BX ",Groep="03BX04ACC ",SubGroep="03BX04ACC01ACC/BL "
 Write !,"Copy"
 For  Set KLNr=$O(^KLPUTZ("N",KLNr)) Quit:KLNr=""  Do
 .Quit:'$D(^KLPUTZ("N",KLNr,HoofdGr,Groep,0,0))
 .Write !,KLNr
 .Do COPY
 Quit
 ;
COPY 
 New R,Next
 Set Next=""
 For  Set Next=$O(^KLPUTZ("N",KLNr,HoofdGr,Groep,0,0,Next)) Quit:Next=""  Do
 .Set R=^KLPUTZ("N",KLNr,HoofdGr,Groep,0,0,Next)
 .Set ^KLPUTZ("S",KLNr,HoofdGr,Groep,0,0,Next)=R
 .Set ^KLPUTZ("IS",HoofdGr,Groep,0,0,KLNr)=""
 Quit
 ;