cPE84 G YZ ;UTILI DATA (SORTERINGSROUTINES);
 ;
 ; via leverancier
1 S:'$D(L2) (L2,L3,L4)=-1 G 15
12 S K1=$N(@("^"_Q_"PL(K1)")),I1=K1 Q:K1=-1
13 S L2=$N(@("^"_Q_"PL(K1,L2)")) G 12:L2=-1
14 S L3=$N(@("^"_Q_"PL(K1,L2,L3)")) G 13:L3=-1
15 S L4=$N(@("^"_Q_"PL(K1,L2,L3,L4)")) G 14:L4=-1 S I1=^(L4) Q
 ;
 ; via klassifikaties
2 S:'$D(L2) (L2,L3,L4,L5)=-1 G 26
22 S K1=$N(@("^"_Q_"PH(K1)")),I1=K1 Q:K1=-1
23 S L2=$N(@("^"_Q_"PH(K1,L2)")) G 22:L2=-1
24 S L3=$N(@("^"_Q_"PH(K1,L2,L3)")) G 23:L3=-1
25 S L4=$N(@("^"_Q_"PH(K1,L2,L3,L4)")) G 24:L4=-1
26 S L5=$N(@("^"_Q_"PH(K1,L2,L3,L4,L5)")) G 25:L5=-1 S I1=^(L5) Q
 ;
 ; via merk
3 S:'$D(L2) (L2,L3,L4,L5)=-1 G 36
32 S K1=$N(@("^"_Q_"PM(K1)")),I1=K1 Q:K1=-1
33 S L2=$N(@("^"_Q_"PM(K1,L2)")) G 32:L2=-1
34 S L3=$N(@("^"_Q_"PM(K1,L2,L3)")) G 33:L3=-1
35 S L4=$N(@("^"_Q_"PM(K1,L2,L3,L4)")) G 34:L4=-1
36 S L5=$N(@("^"_Q_"PM(K1,L2,L3,L4,L5)")) G 35:L5=-1 S I1=^(L5) Q
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 14.04.87 - 17 u 02