CWFAX ;Test fax programma [ 11/06/95  2:23 PM ]
 ;
 Kill ^CWFAX
 Set ^CWFAX(.015)="VT220"
 ;
 Set I=0
 Set I=I+1,^CWFAX(I)="-------"
 Set I=I+1,^CWFAX(I)=$$FOTO^vhFAX("HAN_PVH")
 Set I=I+1,^CWFAX(I)="-------"
 Set I=I+1,^CWFAX(I)=$$FOTO^vhFAX("LOGO_ORD")
 Set I=I+1,^CWFAX(I)="-------"
 Set I=I+1,^CWFAX(I)=$$FOTO^vhFAX("LOGO_TOP")
 Set I=I+1,^CWFAX(I)="-------"
 Set I=I+1,^CWFAX(I)=$$FOTO^vhFAX("LOGO_VH")
 Set I=I+1,^CWFAX(I)="-------"
 Set I=I+1,^CWFAX(I)=$$FOTO^vhFAX("VH_BOT")
 Set I=I+1,^CWFAX(I)="-------"
 ;
 Set TKWPD=$NA(^CWFAX)
 Set FAXPARAM="Van Hoecke N.V.`00.31.3.778.04.36`TEST FAX`Chris Willems`7780436`TESTCOMPANY`1``N`N`N`Y`A`9`Y`PVCW`"
 Do QUEUE^TKFAXQ
 Quit
 ;