cPE7 G 1 ;INDELING PRODUKTEN ; [ 11/08/2003  3:53 PM ]
 ;
T1 ;BLZ:
 ;
ER X F71 G ^II:$ZE["<INTERRUPT>",^cER
 ;
S1 W !,":" W:$L($P(HG,D,2)) $E(@INF,1,$P(HG,D,3)+2),":" W:$L($P(GR,D,2)) $E(@INF,1,$P(GR,D,3)+2),":"
S1A W:$L($P(SG,D,2)) $E(@INF,1,$P(SG,D,3)+2),":" W:$L($P(MK,D,2)) $E(@INF,1,$P(MK,D,3)+2),":"
S1Z Q
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
BR B 1
20 S BLA=$J("",30),LIN="------------------------------"
30 S BLZ=0,FP=223+$L(NM1) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),NM1," ",@F5
40 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
50 S Y=$N(^(Y)) G 60:Y=-1 S @Y=^(Y) G 50
60 D ^cPE81 G YZ:K="-"
70 X F70 W @F80 D H1
75 I $L(H) S HX=H G 85
80 S (H,HX)=$N(@("^"_Q_"PH(H)")) G 160:H=-1!($L(HH)&(H]HH)),90
85 I $L(G) S GX=G G 95
90 S (G,GX)=$N(@("^"_Q_"PH(H,G)")) G 100:'(G=-1!($L(GG)&(G]GG))) S INF="LIN",LN=LN+1 G 80:LN>49 D S1 G 80
95 I $L(S) S SX=S G 105
100 S (S,SX)=$N(@("^"_Q_"PH(H,G,S)")) G 90:S=-1!($L(SS)&(S]SS)),116
105 I $L(M) S MX=M G 125
116 S M=""
120 S M=$N(@("^"_Q_"PH(H,G,S,M)")) I M=-1 G 100:$N(@("^"_Q_"PH(H,G,S)"))'=-1 S INF="BLA",LN=LN+1 D S1 G 100
125 S MX=M,LN=LN+1 I LN>50 S INF="LIN" D S1 W # D H1
130 W !,": " W:$L($P(HG,D,2)) HX,$J("",$P(HG,D,3)-$L(HX)+1),": " W:$L($P(GR,D,2)) GX,$J("",$P(GR,D,3)-$L(GX)+1),": "
140 W:$L($P(SG,D,2)) SX,$J("",$P(SG,D,3)-$L(SX)+1),": " W:$L($P(MK,D,2)) MX,$J("",$P(MK,D,3)-$L(MX)+1),":" S (HX,GX,SX)="" G 120
160 W # X F71 G 30
 ;
YZ B 0 Q
 ;
H1 S BLZ=BLZ+1,LN=0 W !,NM1,?112,$P($T(T1),U,2),$J(BLZ,4),!,NM2,?44,@F82,$P($T(+1),U,2),@F83,$C(13),?112,DT
H1A W !,NM3,?113,TD,!
H1B W !!,": " W:$L($P(HG,D,2)) $P(HG,D,2),$J("",$P(HG,D,3)-$L($P(HG,D,2)))," : "
H1C W:$L($P(GR,D,2)) $P(GR,D,2),$J("",$P(GR,D,3)-$L($P(GR,D,2)))," : "
H1D W:$L($P(SG,D,2)) $P(SG,D,2),$J("",$P(SG,D,3)-$L($P(SG,D,2)))," : "
H1E W:$L($P(MK,D,2)) $P(MK,D,2),$J("",$P(MK,D,3)-$L($P(MK,D,2)))," : " S INF="LIN" D S1
H1Z Q
 ;
Z X ^cZ Q
ZZ ; 19.12.86 - 15 u 34