cA317 ;Printen hoofding ;%A317 ; [ 12/21/00  7:43 AM ]
 G 1
 ;
T0 ;Printen hoofding ;
 ;
T0F ;Imprimer en-tête ;
 ;
T0E ;Printen hoofding ;
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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,".",1) 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  ;V2 20.11.86
 ;
 ; extra lijnen bovenaan blad
S1 S I=$G(@("^"_Q_"BA(183)"))   ; alles
 I $G(X(19)),$D(@("^"_Q_"BA(183,""RAP"")")),$L(^("RAP")) S I=^("RAP") ; enkel rappels
 I '$G(X(19)),$L($G(@("^"_Q_"BA(183,""X"")"))) X ^("X")  ; spec. Xecute
 I I F R=1:1:I W !
S1Z Q
 ;
 ; opladen variabelen
1 K X F X=1:1:19 S X(X)=$P(R,D,X)
10 S X=@("^"_Q_"BA(39)") I $L(X(8)),$D(^ISO(0,"ISO.LAND",X(8),0)),$P(^(0),D)=$P(X,D,3) S X(8)=""
11 I $G(FAX) G ^cA3170
13 K N,R S:'$L(X(16)) X(16)=3 S:'$L(X(17)) X(17)=$P(X,D,2)
15 I 'X(13) S N(1)=@("^"_Q_$G(UHD)_"BA(99,1)"),X=1 F  S X=$O(^(X)) Q:X=""  S N(X)=^(X)
 ;
 ; printen hoofding
2 D S1 I $G(X(18)) G ^cA3171
 W @F83 I $D(N(1)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),@F82,N(1),@F83
21 F N=1.1,2,3 W:'X(13) ! I $D(N(N)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),N(N)
29 F N=4,5,6 I 'X(14) W:'X(13) ! I $D(N(N)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),N(N)
39 W:'X(13) ! I 'X(14),$D(N(7)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),N(7)
4 I X(14) F X=1:1:X(15) W $$CR^cA334 W @F81,$J("",X(16)*2+1) W:$D(N(4)) N(4) W @F83,$$CR^cA334 W @F81,$J("",X(16)+14*2+1) W:$D(N(7)) N(7) W @F83
41 W $$CR^cA334 W ?X(16)+38 W:$L(X(4)) X(4)," " W X(2)
43 W ! I 'X(14),$D(N(8)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),N(8)
45 I X(14) F X=1:1:X(15) W $$CR^cA334 W @F81,$J("",X(16)*2+1) W:$D(N(5)) N(5) W @F83,$$CR^cA334 W @F81,$J("",X(16)+14*2+1) W:$D(N(8)) N(8) W @F83
47 W $$CR^cA334 W ?X(16)+38,X(3)
49 W ! I 'X(14),$D(N(9)) F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),N(9)
5 I X(14) F X=1:1:X(15) W $$CR^cA334 W @F81,$J("",X(16)*2+1) W:$D(N(6)) N(6) W @F83,$$CR^cA334 W @F81,$J("",X(16)+14*2+1) W:$D(N(9)) N(9) W @F83
51 W $$CR^cA334 W ?X(16)+38,X(5)
53 W !,$J("",X(16)+38) W:$L(X(6)) X(6),"    " W X(7)
55 W ! F X=1:1:X(15) W $$CR^cA334 W $J("",X(16)+1),@F85,X(11) S R=X(12) D:+R R3 W @F83
57 W $$CR^cA334 I $L(X(8)) W ?X(16)+38,$$LAND^cAFO1(X(8))
59 W ?X(16)+62,X(1),!
 ;
6 K N,R,X
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84