cA264 ;DRUKKEN KODES (VERWERKING) ;%A260; [ 04/12/00   9:03 AM ]
 ;
T0 ;Printen codes (verwerking) ;
 ;
T0F ;Impression codes (traitement) ;
 ;
T0E ;Printen codes (verwerking) ;
 ;
1 S I1="" G YZ:'$L($O(@(Q1_"I1)"))) S (I1,I2,RRZ)=""
 ;
2 S I1=$O(@(Q1_"I1)")) G Y:I1="" D @$P(RPM,D,3)
21 S I2=$O(@(Q1_"I1,I2)")) G 2:I2="" D S2
23 S RRZ=$O(@(Q1_"I1,I2,RRZ)")) G 21:RRZ="" S R22=^(RRZ)
25 D @$P(RPM,D,2)
29 G 23
 ;
Y I $L($P(RPM,D,5)) D @$P(RPM,D,5)
YZ K ^HULP(boot,$J),BLZ Q
 ;
S1 D S2B:RRZ'="" S LN=0,K="-" Q  ; S LN=0 S K="-" Q  ; D S2:I2'="" S K="-" Q
 ;
S2 S LN=LN+2 I LN+5>$P(RNT,D,3) D @$P(RPM,D,3) G S2
S2A I LN>2 W ! D S2^cA262 W ! S LN=LN+2 W !
S2B D S1^cA262
S2C W !,?$P(RLM,U),@F30," ",@F85,$P(I2," ",$P(B(1),D,2))_" "_$P(@("^"_QS_Q_RGL_"(RR1,+B(1),$P(I2,"" "",$P(B(1),D,2))_"" "")"),D)
S2D W @F83,$$CR^cA334 W ?R25,@F30,! I LN>1 D S2^cA262 S LN=LN+1 G S2Z
S2E K A S R29="",X=$D(@Q2),X=RDD,L=101
S2F F I=1:1 S X=$O(^(X)) Q:X=""!'X!(X>(RDD+99))  S A(L)=$P(^(X),U,1,9),L=L+1
S2G D S4^cA262
S2Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84