KPCONV G 1 ;CONVERSIEPROGRAMMA IDENTNUMMERS LVH [ 03/16/95  10:56 AM ]
 ;
SPC S PNC=$$TRIMIDENT^vhRtn1(PNR) ;[IDENT] CW
 S PNC=PNC_" "
 Q
 ;
1 L (^KPR,^KPR1):2 E  W !,"PRODUKTENBESTAND IN GEBRUIK" G YZ
3 S D="\",PR=0
5 S PR=$N(^KPR(PR)) G YZ:PR=-1 S RST=($E(PR,1)*5)+($E(PR,2)*4)+($E(PR,3)*3)+($E(PR,4)*2)#11 S:RST=0 CD=1 S:RST=1 CD=0 S:RST>1 CD=11-RST
6 S PNR="9.0"_$E(PR,1,2)_"."_$E(PR,3,4)_CD_".0",X=$N(^(PR,"J")) I $E(X,1)="J" S X=^(X) G 7:+X'=5005 S PNR="0."_$P(X,D,3)
7 D SPC S X=^(2),^(2)=$P(X,D,1,24)_D_PNR_D_$P(X,D,26,99),^KPR2(PNC)=PR_D_PNR W !,PR,?10,PNR G 5
YZ Q
 ;
Z X ^cZ Q
ZZ ; 04.04.89 -  9 u 36