------------------------------------------------------------------------------
Selected procedures for SRVPROC.WInstProc as at 16 JAN 96 (09:15)       PAGE 1
------------------------------------------------------------------------------

461  DDE Branch fax Number
--------------------------
If (LgBranchCode>'')&(LgBranchFax>'')
  Calculate WFXToTelNum as LgBranchFax
  Calculate WFXName as LgBranchCode
  Calculate WFXSubject as con(GL.NGVI.NviStdValInsType,'-',GL.NGVI.NviStdAccountNo)
  Calculate WFXDDECommand as con('recipient("',WFXToTelNum,'","',WFXTime,'","',WFXDate,'","',WFXName,'","',WFXcompany,'","',WFXSubject,'","',WFXKeyword,'","',WFXBill,'")')
  Send field WFXDDECommand {Sendfax}
  If flag false
    Quit procedure (flag clear)
  End If
  Quit procedure (flag set)
Else
  Quit procedure (flag clear)
End If

462  Send Fax
-------------
Calculate DDEFaxStatus as ''
If WFXShowD
  Calculate WFXDDECommand as con('showsendscreen("',1,'")')
Else
  Calculate WFXDDECommand as con('showsendscreen("',0,'")')
End If
Send field WFXDDECommand {Sendfax}
Calculate WFXDDECommand as 'resolution("HIGH")'
Send field WFXDDECommand {Sendfax}
Select printer {WinFax,WinFax}
;  Select printer {WinFax,FaxModem}
Send to printer
Prepare for print
Print record
End print
;  Set window control procedure 472 {DDE DoneReceiving}
;  Enter data
;  Clear window control procedure

No procedure errors found