cA3170 ;Faxen hoofding ;%A317 ; [ 09/30/98  9:25 AM ]
 G 1
 ;
T0 ;Faxen hoofding ;
 ;
T0F ;Envoyer en-tête ;
 ;
T0E ;Faxen 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
 ;
 ; opladen variabelen
1 I X(10) D FAX
13 K N,R 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)
 ;
 ; faxen hoofding
2 I $D(N(1)) W $J("",X(16)+1),@F82,N(1),@F83
21 F N=1.1,2,3 W:'X(13) ! I $D(N(N)) W $J("",X(16)+1),N(N)
29 F N=4,5,6 W:'X(13) ! I $D(N(N)) W $J("",X(16)+1),N(N)
39 W:'X(13) ! I $D(N(7)) W $J("",X(16)+1),N(7)
41 W ?X(16)+58 W:$L(X(4)) X(4)," " W X(2)
43 W ! I $D(N(8)) W $J("",X(16)+1),N(8)
47 W ?X(16)+58,X(3)
49 W ! I $D(N(9)) W $J("",X(16)+1),N(9)
51 W ?X(16)+58,X(5)
53 W !,$J("",X(16)+58) W:$L(X(6)) X(6),"    " W X(7)
55 W ! W $J("",X(16)+1),X(11) S R=X(12) D:+R R3 W @F83
57 I $L(X(8)) W ?X(16)+58,$$LAND^cAFO1(X(8))
59 W ?X(16)+85,X(1),!
 ;
6 K N,R,X
 ;
YZ Q
 ;
FAX I $D(UHD),$D(@("^"_Q_UHD_"BA(""FAXH"")")) S K=^("FAXH") D FAXS G FAXZ:X(13)
FAXA S K=$P($G(^TKFAXC("CONFIG")),D,3) D FAXS
FAXZ Q
 ;
FAXS I $L(K),$D(@K) W "~FAX GRAPHIC="_K,!
 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84