KPOIDN G 1 ; OPENEN PRODUKTEN IDENTNUMMER; Quit naar KPE10 [ 02/21/2003  1:28 PM ]
 ;
S1 S SRT=($E(SID,1)*6)+($E(SID,2)*5)+($E(SID,3)*4)+($E(SID,4)*3)+($E(SID,5)*2)#11 S:SRT=0 SCD=1 S:SRT=1 SCD=0 S:SRT>1 SCD=11-SRT
S1Z Q
 ;
1 L  S FP=2203+F60 W @F,@F1,$P(U2,U,1)," : ",$E(PNT,1,$P(U2,U,9)) W:$L($P(U2,U,10)) !?2,$P(U2,U,10)
3 W !?2,"-[] = einde programma   A[] = automatisch nummer"
5 S FP=2200+F60+$L($P(U2,U,1))+6 W @F,@F0 R K G 1:K?.E1C.E,1:$L(K)>$P(U2,U,9),YZ:K="-"!(K=","),11:K'="A"
7 L @Q0:2 E  X ^cTXT(0,"N",77) R K G 7
9 S SID=@Q0,K=$$IDENTNR^PRODUKT(SID,$S(K="A":9,1:8)) G 13
11 G 1:$E(K,1)'="0"!(K'?1N1"."3N1"."3N1"."1N) S SID=$E(K,3,5)_$E(K,7,8) D S1 G 1:SCD'=$E(K,9)
13 S PNC=$$TRIMIDENT^vhRtn1(K) ;[IDENT] CW
15 S PNC=PNC_" "
17 I $D(@Q3) X ^cTXT(0,"N",12) R K G 1
19 S B(1)=$P(B(1),D,1,4)_"\3\"_$P(B(1),D,6,99)
 ;
YZ K SID,SRT,SCD Q
 ;