cA262 ;DRUKKEN KODES (HOOFDING) ;%A261; [ 04/12/00   9:06 AM ]
 ;
T0 ;Printen codes (hoofding) ;
T1 ;Blz :;
 ;
T0F ;Impression codes (titre) ;
T1F ;Page:;
 ;
T0E ;Printen codes (hoofding) ;
T1E ;Blz :;
 ;
1 G 31:$D(AHSW) I '$D(BLZ) S BLZ=0,NM2=@("^"_QS_Q_"BA(99,2)"),NM3=^(3) X F70 W @F80
11 I BLZ,$D(LN),LN W ! D S2 D:$L($P(RPM,D,6)) @$P(RPM,D,6) W $$FF^cA334 
13 K A S R24=0,R29="",BLZ=BLZ+1 F I=1:1 Q:'$L($P(RLM,U,I))  S R25=$P(RLM,U,I)
19 S X=$D(@Q2),X=RHD,K=101 F I=1:1 S X=$O(^(X)) Q:X=""!'X!(X>(RHD+99))  S A(K)=$P(^(X),U,1,8),K=K+1
 ;
2 S R29=$O(A(R29)) G 3:R29="" S R28=A(R29) I $P(R28,U,2)'=R24 F R24=R24+1:1:$P(R28,U,2) W ! D S3
21 I $L($P(R28,U,4)),@$P(R28,U,4) G 25
23 W ?$P(R28,U,3),$P(R28,U)
25 I $L($P(R28,U,5)),@$P(R28,U,5) G 2
27 X "S K="_$P(R28,U,7) I $L($P(R28,U,8)) X $P(R28,U,8) G 2:K="-"
29 W ?$P(R28,U,3),K G 2
 ;
3 S K="" F R24=R24+1:1:$P(RNT,D,2) W ! D S3
31 W ! I $L($P(RPM,D,4)) D @$P(RPM,D,4)
33 K A S R29="",X=$D(@Q2),X=RDD,L=101
35 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
37 G YZ:K="-" D S2 S:'$P(RNT,D,8) $P(RNT,D,8)=1 F I=1:1:$P(RNT,D,8) D S4
39 W ! D S2
 ;
YZ S:'$D(AHSW) LN=0 K R24,R28,R29,AHSW Q
 ;
S1 S STR="" W @F30 F I=1:1 Q:'$L($P(RLM,U,I+1))  S Z="",$P(Z,"-",$P(RLM,U,I+1)-$P(RLM,U,I))="-",STR=STR_Z
S1Z S STR=$E(STR,1,$L(STR)-1) W STR,@F30 Q
 ;
S2 W @F30 F I=1:1 Q:'$L($P(RLM,U,I+1))  S Z="",$P(Z,"-",$P(RLM,U,I+1)-$P(RLM,U,I))="" W Z,@F30
S2Z Q
 ;
S3 I R24=1 W QN,?(+RNT*52+72),$P($T(@("T1"_QT)),U,2),$J(BLZ,3),$$CR^cA334 G S3Z
S3A I R24=2 W NM2,?(+RNT*52+72),DT,$$CR^cA334 G S3Z
S3B I R24=3 W NM3,?(+RNT*52+73),TD,$$CR^cA334
S3Z Q
 ;
S4 W ! S R29=""
S4A S R29=$O(A(R29)) G S4Z:R29="" S R28=A(R29),K=$P($P(R28,U),D,I) I '$P(R28,U,2) G S4A
S4B W ?$P(RLM,U,$P(R28,U,2)),@F30 I $L($P($P(R28,U,4),D,I)),@$P($P(R28,U,4),D,I) G S4A
S4C W K G S4A
S4Z W ?R25,@F30 Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84