cA263 ;DRUKKEN KODES (DETAIL) ;%A261; [ 02/05/96  9:42 AM ]
 G 1
 ;
T0 ;Printen codes (detail) ;
 ;
T0F ;Impression codes (détail) ;
 ;
T0E ;Printen codes (detail) ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
1 S:'$D(LN) LN=0 S LN=LN+1 I LN>$P(RNT,D,3)!'$D(BLZ) K AHSW D @$P(RPM,D,3) G 1
11 W ! S R29="" F I=1:1 S R29=$O(A(R29)) Q:R29=""  D S1
19 W ?R25,@F30
 ;
YZ Q
 ;
S1 S R28=A(R29) X "S K="_$P(R28,U,7) I $P(R28,U,2) W ?$P(RLM,U,$P(R28,U,2)),@F30 W:'$P(R28,U,6) " "
S1A I $L($P(R28,U,5)),@$P(R28,U,5) G S1Z
S1B I $L($P(R28,U,8)) X $P(R28,U,8) G S1Z:K="-"
S1C I $P(R28,U,3)="" W:K $J(K,$P(RLM,U,$P(R28,U,2)+1)-$P(RLM,U,$P(R28,U,2))-('$P(R28,U,6)*2+1),QD) G S1Z
S1D I $P(R28,U,3) S R=K_D_($P(RLM,U,$P(R28,U,2)+1)-$P(RLM,U,$P(R28,U,2))-('$P(R28,U,2)*2+2))_D_D_QD X:$L($P($P(R28,U,3),D,2)) "S R="_$P($P(R28,U,3),D,2) D R3:K G S1Z
S1E W $E(K,1,$P(RLM,U,$P(R28,U,2)+1)-$P(RLM,U,$P(R28,U,2))-('$P(R28,U,6)*2+1))
S1Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84