cA3225 ;FAX INTERFACING ;%A3220 ; [ 01/04/01  1:59 PM ]
 ;
T0 ;Fax interfacing ;
T1 ;Alle HFS-buffers zijn in gebruik;
T2 ;Kan geen bestand aanmaken buiten de database;
T3 ;Contactpersoon binnen de eigen firma\";
T4 ;Contactpersoon bij de bestemmeling\"1[] = vragen   2[] = naam 2-de lijn   xxxxx[] = naam";
T5 ;Het eigen fax-nummer is niet ingevuld in TK-Fax;
T6 ;  Faxen gestart, druk Ctrl-C om te stoppen ... ;
T7 ;Handtekening toevoegen\".[] = ja   [] = nee";
T8 ;Ok om dit document te faxen\".[] = ok   ,[] = hernemen";
 ;
T0F ;Telefax ;
T1F ;Tous les tampons HFS sont occupes;
T2F ;Impossible de créer le fichier hors de la base de donnees;
T3F ;Personne a contacter dans votre firme\";
T4F ;Personne a contacter chez le destinataire\"1[] = demander   2[] = nom 2ième ligne   xxxxx[] = nom";
T5F ;Votre numéro de fax n'est pas rempli en TK-Fax;
T6F ;  Le fax est demarré, appuyez 'Ctrl-C' pour interrompre ... ;
T7F ;Ajouter signature\".[] = oui   [] = non";
T8F ;Ok pour faxer ce document\".[] = ok   ,[] = reprendre";
 ;
T0E ;Fax interfacing ;
T1E ;All HFS-buffers are in use;
T2E ;Cannot make a file out of the database;
T3E ;Contact inside own company\";
T4E ;Contact at destination\"1[] = demand   2[] = name 2' line   xxxxx[] = name";
T5E ;Your own fax number is not present in TK-Fax;££
T6E ;  Fax started, press Ctrl-C to stop ... ;
T7E ;Append signature\".[] = yes   [] = no";
T8E ;Ok to send this document\".[] = ok   ,[] = retry";
 ;
 S %DEV=$$HFS^cQ9 I '%DEV S R=$P($T(@("T1"_QT)),U,2) D MS G BACK
11 S %FILE="C:\SOFT\MEFAX\"_$J_".FAX" O %DEV:(%FILE:"W") U %DEV I $ZA<0 S R=$P($T(@("T2"_QT)),U,2) D MS G BACK
12 U $P
 ;
2 S (HAND,HANDN)="" I $D(QU),$L(QU),$D(@("^"_QS_Q_"UI1(QU)")) S HANDN=$P(@("^"_QS_Q_"UI(^(QU),0)"),D,2)
24 I $P(FAXNR,D,3),$D(QU),$L(QU),$D(^TKFAXS(QU))#10 S R="HAND\22\3\"_$P($T(@("T7"_QT)),U,2)_"\1\\"".-,""[K\" D R0 G BACK:K="-"!(K=",")
 ;
4 S R="K\22\3\"_$P($T(@("T8"_QT)),U,2)_"\1\\"".,-""[K&$L(K)\" D R0 I K="-"!(K=",") G BACK
 ;
5 S F70="U "_%DEV,F71="U $P D ^cA606,^cA3226 U "_$P_" D ^cA606 S F71="""_$$DOUBLEQ^cQ9(F71)_""""
51 S F70=F70_" S %S1="""_%S1_""" D ^cA605,S1^cA3225" I $D(QP),QP,'$D(%S3) S F71=F71_" S F70=""D ^cA322"""
52 I $D(%S3),$L(%S3) X %S3,F71 G YZ
53 I '$P($G(^cLOG(boot,"DAM",2)),D) S FP=2201+F60 W @F,@F1,$P($T(@("T6"_QT)),U,2) X F70
 ;
6 Q
 ;
YZ C:%DEV %DEV K %S1,%S2,%S3,RP,RR Q
 ;
S1 I $D(UHD),$D(@("^"_QS_Q_UHD_"BA(""FAXH"")")) W "@INSERT(",^("FAXH"),")",!
S1A I '$D(UHD),$D(@("^"_QS_Q_"BA(""FAXH"")")) W "@INSERT(",^("FAXH"),")",!
S1Z Q
 ;
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z K R0,R1 D ^cA100 Q
 ;
MS U $P S FP=2403+F60 W @F,@F4,R,"  [] = ok ",@F5,@F2,@F0 R K
MSZ Q
 ;
BACK C:%DEV %DEV
 I '$P($G(^cLOG(boot,"DAM",2)),D) G ^cA322
 E  S K="-" Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84