PVOPK ;NEW PROGRAM [ 10/30/2001  4:44 PM ]
 Kill PR
 Set MPRNr=""
 For  Set MPRNr=$O(^PRLINK("D",MPRNr)) Quit:MPRNr=""  Do
 .Set KPRNr=$O(^PRLINK("D",MPRNr,""))
 .Quit:$O(^PRLINK("D",MPRNr,KPRNr))
 .Set IDNr=$P(^KPR(MPRNr,2),D,25)
 .Quit:$E(IDNr)=1!($E(IDNr)=2)!($E(IDNr)=3)!($E(IDNr)=4)  ; Geen SOPR
 .If $D(PR(KPRNr)) Write !,"dubbel ",KPRNr
 .Set PR(KPRNr)=MPRNr
 ;zw PR
 Set KLNr=0
 For  Set KLNr=$O(^KSTKL(KLNr)) Quit:KLNr=""  Do
 .Set PRNr=0  
 .For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
 ..Quit:'$D(PR(PRNr))
 ..Set MPRNr=PR(PRNr)
 ..Set Mnd=0
 ..For  Set Mnd=$O(^KSTKL(KLNr,PRNr,Mnd)) Quit:Mnd=""  Do
 ...Quit:Mnd["1999"
 ...Set MRec=$G(^KSTKL(KLNr,MPRNr,Mnd))
 ...Set KRec=$G(^KSTKL(KLNr,PRNr,Mnd))
 ...Set OK=$P(MRec,D,1)=$P(KRec,D,1)&($P(MRec,D,3)=$P(MRec,D,3))
 ...;Write !,KLNr," ",PRNr," ",Mnd," ",$S(OK:"OK",1:"*** NOK ***")
 ...If 'OK Write:'OK !,MPRNr," ",$P(^KPR(MPRNr,0),D)," ",MRec,!,PRNr," ",$P(^KPR(PRNr,0),D)," ",KRec Quit
 ...Kill ^KSTKL(KLNr,PRNr,Mnd)
 ...;Kill ^KSTKL(KLNr,PRNr,0)
 ...Kill ^KSTPR(PRNr,KLNr,Mnd)
 ...;Kill ^KSTPR(PRNr,KLNr,0)
 Quit