KFROL G 1 ;MODULE RANGSCHIKKEN LEVERANCIERORDER ;Quit naar %F10 [ 09/29/93  3:15 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 S SW12=1
2 S UZ=100
20 K @("^"_Q_"HULP($J)"),^($J+100)
3 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 9:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 3:'PR K ^(UZ)
5 S PC=$P(@("^"_Q_"PR(PR,0)"),D,1) D SC S X="I",X=$N(@("^"_Q_"PR(PR,X)"))
7 S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=$P(^(X),D,1,3) S @("^"_Q_"HULP($J,$P(X,D,1),$P(X,D,2),$P(X,D,3),PCC,UZ)")=U2 G 3
9 G 99:'$D(@("^"_Q_"HULP($J)")) S UZ=100,PHG=""
11 S PHG=$N(@("^"_Q_"HULP($J,PHG)")) G 99:PHG=-1 S PGR=""
13 S PGR=$N(@("^"_Q_"HULP($J,PHG,PGR)")) G 11:PGR=-1 S PSG=""
15 S PSG=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG)")) G 13:PSG=-1 S PCC=""
17 S PCC=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")) G 15:PCC=-1 S UVN=0
19 S UVN=$N(@("^"_Q_"HULP($J,PHG,PGR,PSG,PCC,UVN)")) G 17:UVN=-1 S U2=^(UVN),PR=$P(U2,D,2),UA=$P(U2,D,3)
21 S UZ=UZ+1 G 21:$D(@("^"_Q_UGL_"(KC,US,UR,UZ)")) S @("^"_Q_UGL_"(KC,US,UR,UZ)")=U2
25 G 19
99 K UTYP,PC,PCC,PR,PHG,PGR,PSG,UA,UOD,UOR,UVN,UZ,U2,Q15,Q16,TR,TZ,LEV,TZX I $D(@("^"_Q_"HULP($J)")) K ^($J),^($J+100) D ^KF15
 ;
YZ K UAF,X Q
 ;
 Q
Z X ^cZ Q
ZZ ; 19.04.91 - 14 u 42