PVFAX ;Test fax programma [ 11/09/95  2:22 PM ]
 Kill ^PVFAX
 x "s FMTB="_^vhDEV("TKFMTB")
 x "s FMTb="_^vhDEV("TKFMTb")
 x "s FMTU="_^vhDEV("TKFMTU")
 x "s FMTu="_^vhDEV("TKFMTu")
 S ^PVFAX(.01)="120"
 S ^PVFAX(.015)="VT220"
 
 S I=0
 ;F I=I+1:1:I+20 S ^PVFAX(I)=""
 ;S I=I+1,^PVFAX(I)="~FAX FONT=C"
 ;S I=I+1,^PVFAX(I)=$C(27)_"[07mVAN HOECKE"_$C(27)_"[27m"
 ;F I=I+1:1:I+20 S ^PVFAX(I)=""
 ;S I=I+1,^PVFAX(I)="~FAX FONT=K"
 ;S I=I+1,^PVFAX(I)=$C(27)_"[07mVAN HOECKE"_$C(27)_"[27m"
 S ^PVFAX(100)="~FAX GRAPHIC=^TKFAXGR(""LOGO_TOP"",1)"
 s ^PVFAX(101)="  "_$C(27,62,127,127,14)_$TR($J("",80)," ",$C(113))_$C(27,62,127,127,15)
 S ^PVFAX(102)="~FAX GRAPHIC=^TKFAXGR(""HAN_PVH"",1)"
 S ^PVFAX(103)="~FAX GRAPHIC=^TKFAXGR(""HAN_AVH"",1)"
 S ^PVFAX(104)="~FAX GRAPHIC=^TKFAXGR(""HAN_PVS"",1)"
 S ^PVFAX(105)="~FAX GRAPHIC=^TKFAXGR(""HAN_PDR"",1)"
 S ^PVFAX(106)="~FAX GRAPHIC=^TKFAXGR(""HAN_KDP"",1)"
 S ^PVFAX(107)="~FAX GRAPHIC=^TKFAXGR(""HAN_RM"",1)"
 S ^PVFAX(108)="~FAX GRAPHIC=^TKFAXGR(""HAN_NS"",1)"
 S ^PVFAX(109)="~FAX GRAPHIC=^TKFAXGR(""HAN_HA"",1)"
 S ^PVFAX(110)="~FAX GRAPHIC=^TKFAXGR(""HAN_JDM"",1)"
 S ^PVFAX(111)="~FAX GRAPHIC=^TKFAXGR(""HAN_PV"",1)"
 S ^PVFAX(112)="~FAX GRAPHIC=^TKFAXGR(""HAN_CW"",1)"
 S ^PVFAX(113)="~FAX GRAPHIC=^TKFAXGR(""HAN_BV"",1)"
 S ^PVFAX(114)="~FAX GRAPHIC=^TKFAXGR(""HAN_LVB"",1)"
 S ^PVFAX(200)="~FAX FONT=D"
 s ^PVFAX(650)="  0 eéèêàáaüuöoïi "
 s ^PVFAX(652)=FMTB_"  0 éèêeàáaüöoïi "
 s ^PVFAX(653)=FMTU_"  0 éèêeàáaüuöoïi "
 s ^PVFAX(654)=FMTU_FMTB_"  0 éèêeàáaüuöoïi "
 s ^PVFAX(655)="-------"
 ;For J=0:1:3 Do
 .Kill Tel
 .For I=32:1:255 S Tel(I-32\80)=$G(Tel(I-32\80))_$C(I)
 .For I=0:1:$O(Tel(""),-1) D 
 ..Set ^PVFAX(J*10+I+700)=$S(J=0:"",J=1:FMTB,J=2:FMTU,1:FMTB_FMTU)_Tel(I)
 .s ^PVFAX(J*10+9+700)="-------"
 ;S ^PVFAX(930)="~FAX GRAPHIC=^TKFAXGR(""HAN_PVH"",1)"
 ;s ^PVFAX(1000)="-------"
 Set TKWPD=$NA(^PVFAX)
 Set FAXPARAM="Van Hoecke N.V.`00.31.3.778.04.36`TEST FAX`Paul Verhulst`7780436`TESTCOMPANY`1``N`N`N`Y`A`9`Y`PVCW`"
 Do QUEUE^TKFAXQ