CWKPRR ;Conversie ^KPRR [ 03/16/95  10:56 AM ]
 ;
 Set Q="K" Do ^cA604
 Set KLNr="",PakketNr=$G(^PAKKET("N"))
 For  Set KLNr=$O(^KPRR("D",KLNr)) Quit:KLNr=""  Do
 .Set PRNr=""
 .For  Set PRNr=$O(^KPRR("D",KLNr,PRNr)) Quit:PRNr=""  Do
 ..Quit:'$D(^KPR(PRNr))
 ..Set R=^KPRR("D",KLNr,PRNr),PakketNm=$$STRIP($P(R,U)),Omschr=$$STRIP($P(R,U,2))
 ..If KLNr=1750 Set Next=Omschr,Omschr=""
 ..For  Do  Quit:KLNr'=1750  Set PakketNm=$$STRIP($P(Next,U)),Next=$$STRIP($P(Next,U,2)) Set:$E(PakketNm)="-" $E(PakketNm)="94100" Quit:'$L(PakketNm)
 ...If $D(^PAKKET("IK",KLNr,$$UPTRIMAN^vhRtn1(PakketNm))) Do
 ....Set PakNr=^($$UPTRIMAN^vhRtn1(PakketNm))
 ....Set ^PAKKET("IP",PRNr,PakNr)=""
 ....Set ^PAKKET("D",PakNr,PRNr)=1
 ....Set $P(^PAKKET("D",PakNr),D,3)="D"
 ...Else  Do
 ....Set PakketNr=PakketNr+1
 ....Set ^PAKKET("D",PakketNr)=KLNr_D_PakketNm_"\E\"_Omschr
 ....Set ^PAKKET("D",PakketNr,PRNr)=1
 ....Set ^PAKKET("IK",KLNr,$$UPTRIMAN^vhRtn1(PakketNm))=PakketNr
 ....Set ^PAKKET("IP",PRNr,PakketNr)=""
 Set ^PAKKET("N")=PakketNr
 Quit
 ;
STRIP(R) 
 For  Quit:$E(R)'=" "  Set R=$E(R,2,999)
 For  Quit:$E(R,$L(R))'=" "  Set R=$E(R,1,$L(R)-1)
 Quit R