KOFR G 1 ;MODULE RANGSCHIKKEN OFFERTES ;Quit naar %F10 [ 09/29/93  1:59 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 S SW12=1,(UZ,UVN)=100
100 S UZ=$N(^(UZ)) G 104:UZ=-1 S U2=^(UZ),K=$P(U2,D,17) I "\KOF11\"[(D_K_D) S FP=2403+F60 W @F,@F2,@F4,"RANGSCHIKKEN ONMOGELIJK - ",$S(K="KOF11":"TEKSTLIJNEN",1:""),"  [] = ok ",@F5,@F0 R K G 23
101 I UZ-1>UVN K ^(UZ) S ^(UVN+1)=U2
102 S UVN=UVN+1 G 100
104 S UZ=100 K @("^"_Q_"HULP($J)")
3 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 9:UZ=-1 S U2=^(UZ),PR=$P(U2,D,2) G 3:'$L(PR),3:'$D(@("^"_Q_"PR(PR)")) K @("^"_Q_UGL_"(KC,US,UR,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 23:'$D(@("^"_Q_"HULP($J)")) S UZ=100,PHG=""
11 S PHG=$N(@("^"_Q_"HULP($J,PHG)")) G 23: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)
21 S UZ=UZ+1 G 21:$D(@("^"_Q_UGL_"(KC,US,UR,UZ)")) S @("^"_Q_UGL_"(KC,US,UR,UZ)")=U2 G 19
23 K PC,PCC,PR,PHG,PGR,PSG,UAF,UVN,UZ I $D(@("^"_Q_"HULP($J)")) K ^($J) D ^KOF15
 ;
YZ K UAF,X,U2 Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32