Procedure

PrintNoteToDevice

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Comments

Prints a progress note on the selected device

Scope

Interfaced

Declaration

procedure PrintNoteToDevice(ANote: Integer; const ADevice: string; ChartCopy: Boolean;
  var ErrMsg: string);

Called-By Hierarchy


                         PrintNoteToDevice
                TfrmNotePrint.cmdOKClick┘ 
                             PrintNote┘   
             TfrmDCSumm.RequestPrint┤     
       TfrmFrame.mnuFilePrintClick┘ │     
     TfrmDCSumm.RequestMultiplePrint┤     
          TfrmPrintList.cmdOKClick┘ │     
   TfrmConsults.mnuActNotePrintClick┤     
TfrmConsults.popNoteMemoPrintClick┘ │     
            TfrmSurgery.RequestPrint┤     
       TfrmFrame.mnuFilePrintClick┘ │     
              TfrmNotes.RequestPrint┤     
       TfrmFrame.mnuFilePrintClick┘ │     
      TfrmNotes.RequestMultiplePrint┘     
          TfrmPrintList.cmdOKClick┘       

Called-By

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


Source

921   procedure PrintNoteToDevice(ANote: Integer; const ADevice: string; ChartCopy: Boolean;
922     var ErrMsg: string);
923   { prints a progress note on the selected device }
924   begin
925     ErrMsg := sCallV('TIU PRINT RECORD', [ANote, ADevice, ChartCopy]);
926     if Piece(ErrMsg, U, 1) = '0' then ErrMsg := '' else ErrMsg := Piece(ErrMsg, U, 2);
927   end;