cwstkl ; ;[ 05/27/94  10:21 AM ]
 ;
 Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 ;
C Set Q="K" Do ^cA604 Set CopyKill="C" Goto RUN
K Set Q="K" Do ^cA604 Set CopyKill="K" Goto RUN
U Set Q="K" Do ^cA604 Set CopyKill="K" Goto UTIL
R Set Q="K" Do ^cA604 Set CopyKill="C" Goto READ
 ;
RUN ;Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Write !!!!!,$S(CopyKill="C":"Copy",1:"Kill")
 Set KLNr=1000
 For  Set KLNr=$O(^KK1(KLNr)) Quit:KLNr=""  Do
 .Quit:$P(^KKL(^KK1(KLNr),2),D,10)
 .Set Type=$P(^KKL(^KK1(KLNr),1),D,25)
 .If CopyKill="C" Do COPY($S(Type?.N:8888,1:9999))
 .If CopyKill="K" Do KILL($S(Type?.N:8888,1:9999))
 Quit
 ;
COPY(FromKLNr) 
 Write !!,FromKLNr," - ",KLNr," - ",$P(^KKL(^KK1(KLNr),0),D,2),!!!!
 Set PRNr=""
 For  Set PRNr=$O(^KSTKL(FromKLNr,PRNr)) Quit:PRNr=""  Do
 .Quit:$O(^KSTKL(KLNr,PRNr,"1993.03 "))'=""
 .Set R0=^KSTKL(FromKLNr,PRNr,0),R=^KSTKL(FromKLNr,PRNr,"1994.04 ")
 .Set ^KSTKL(KLNr,PRNr,"1994.04 ")=R
 .If '$D(^KSTKL(KLNr,PRNr,0)) Set ^KSTKL(KLNr,PRNr,0)=R0
 Quit
 ;
KILL(FromKLNr) 
 Set PRNr=""
 For  Set PRNr=$O(^KSTKL(FromKLNr,PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KSTKL(KLNr,PRNr,"1994.04 "))
 .Set R0=^KSTKL(FromKLNr,PRNr,0),R=^KSTKL(FromKLNr,PRNr,"1994.04 ")
 .If ^KSTKL(KLNr,PRNr,"1994.04 ")=R Kill ^KSTKL(KLNr,PRNr,"1994.04 ")
 .If ^KSTKL(KLNr,PRNr,0)=R0,$O(^KSTKL(KLNr,PRNr,"1993.03 "))="" Kill ^KSTKL(KLNr,PRNr,0)
 Quit
 ;
UTIL ;Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Write !!,$S(CopyKill="C":"Copy",1:"Kill")
 Set Next=0
 For  Set Next=$O(^KLIH(378,Next)) Quit:Next=""  Do
 .Set KLNr=$P(^KLIH(378,Next)," ",2)
 .Quit:$P(^KKL(^KK1(KLNr),2),D,10)
 .Set Type=$P(^KKL(^KK1(KLNr),1),D,25)
 .If CopyKill="C" Do COPY($S(Type?.N:8888,1:9999))
 .If CopyKill="K" Do KILL($S(Type?.N:8888,1:9999))
 Quit
 ;
READ ;Write !!,"Programma niet uitgevoerd",!,"Quit" Quit
 Write !!,$S(CopyKill="C":"Copy",1:"Kill"),!!!!!
 For  Set KLNr=$$SELECT^KLANT6() Quit:KLNr="-"  Do
 .Quit:$P(^KKL(^KK1(KLNr),2),D,10)
 .Set Type=$P(^KKL(^KK1(KLNr),1),D,25)
 .If CopyKill="C" Do COPY($S(Type?.N:8888,1:9999))
 .If CopyKill="K" Do KILL($S(Type?.N:8888,1:9999))
 Quit
 ;