cPE124 ;SELEKTIE MODULE PRODUKT VOLGENS PROD.KODE,MERK,LEVER.,KLASS. ;%PE124;
 G 1
 ;
ER G ^II:$ZE["<INTERRUPT>",^cER
 ;
1 G 15:$D(%Q2) I %KZ="" S:'$D(%P) %P=-1 G 340
10 I %KZ="K" S %Q2="^"_Q_"PH(H)",%Q3="^"_Q_"PH(H,G)",%Q4="^"_Q_"PH(H,G,S)",%Q5="^"_Q_"PH(H,G,S,M)",%Q6="^"_Q_"PH(H,G,S,M,%P)" G 3
11 I %KZ="L" S %Q2="^"_Q_"PL(H)",%Q3="^"_Q_"PL(H,G)",%Q4="^"_Q_"PL(H,G,S)",%Q6="^"_Q_"PL(H,G,S,%P)" G 3
13 I %KZ="M" S %Q2="^"_Q_"PM(H)",%Q3="^"_Q_"PM(H,G)",%Q4="^"_Q_"PM(H,G,S)",%Q5="^"_Q_"PM(H,G,S,M)",%Q6="^"_Q_"PM(H,G,S,M,%P)" G 3
15 I %KZ="P",'$D(%P1) S %P1=P1,%P2=P2 G 320
17 G 324:$D(%P1),314
 ;
3 S %P=0 I $L(H) G 302
300 S H=$N(@%Q2) G 360:H=-1!($L(HH)&(H]HH)),304
302 I $L(G) G 306
304 S G=$N(@%Q3) G 308:'(G=-1!($L(GG)&(G]GG))),300
306 I $L(S) G 310
308 S S=$N(@%Q4) G 304:S=-1!($L(SS)&(S]SS)),312
310 G 314:%KZ="L" I $L(M) G 314
312 G 314:%KZ="L" S M=$N(@%Q5) G 308:M=-1!($L(MM)&(M]MM)),314
314 S %P=$N(@%Q6) G 312:%P=-1&(%KZ="K"!(%KZ="M")),308:%P=-1 S PR=^(%P)
31 G YZ
 ;
320 S %P=%P1 S:%P2="" %P2="ZZZZZZZZZ " G 324:%P1="" I $D(@("^"_Q_"PR1(%P1)")) S PR=$P(^(%P1),D,1) G YZ
324 S %P=$N(@("^"_Q_"PR1(%P)")) G 360:%P=-1!(%P]%P2) S PR=$P(^(%P),D,1) G YZ
 ;
340 S %P=$N(^HULP($J,%P)) I %P=-1 K ^HULP($J) G 360
342 S PR=^(%P) G YZ
 ;
360 S PR=-1 K %Q2,%Q3,%Q4,%Q5,%Q6,%P,%P1,%P2
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.07.88 - 11 u 54