Procedure

PrintSF513ToDevice

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Comments

Prints a SF 513 on the selected device

Scope

Interfaced

Declaration

procedure PrintSF513ToDevice(AConsult: Integer; const ADevice: string; ChartCopy: string;
  var ErrMsg: string);

Called-By Hierarchy


                        PrintSF513ToDevice
                 Tfrm513Print.cmdOKClick┘ 
                            PrintSF513┘   
           TfrmConsults.RequestPrint┤     
TfrmConsults.mnuActPrintSF513Click┤ │     
       TfrmFrame.mnuFilePrintClick┘ │     
   TfrmConsults.RequestMultiplePrint┘     
          TfrmPrintList.cmdOKClick┘       

Called-By

Name Declaration Comments
Tfrm513Print.cmdOKClick procedure cmdOKClick(Sender: TObject); -


Source

597   procedure PrintSF513ToDevice(AConsult: Integer; const ADevice: string; ChartCopy: string;
598     var ErrMsg: string);
599   { prints a SF 513 on the selected device }
600   begin
601     ErrMsg := sCallV('ORQQCN PRINT SF513', [AConsult, ChartCopy, ADevice]);
602   //  if Piece(ErrMsg, U, 1) = '0' then ErrMsg := '' else ErrMsg := Piece(ErrMsg, U, 2);
603   end;