Procedure

TUser.SetCurrentPrinter

Module

uCore

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TUser

Declaration

procedure SetCurrentPrinter(Value: string);

Called-By Hierarchy


                 TUser.SetCurrentPrinter
                             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┘   │ 
              TfrmNotePrint.cmdOKClick┤ 
                        PrintNote...┘ │ 
      TfrmFrame.mnuFilePrintSetupClick┤ 
           TfrmDeviceSelect.cmdOKClick┤ 
                             PrintLabs┤ 
               TfrmLabs.RequestPrint┘ │ 
              TfrmLabs.Print1Click┤   │ 
              TfrmLabs.Print2Click┤   │ 
       TfrmFrame.mnuFilePrintClick┘   │ 
               TfrmLabPrint.cmdOKClick┤ 
                        PrintLabs...┘ │ 
                          PrintReports┤ 
            TfrmLabs.RequestPrint...┤ │ 
            TfrmReports.RequestPrint┤ │ 
       TfrmFrame.mnuFilePrintClick┤ │ │ 
           TfrmReports.Print1Click┤ │ │ 
           TfrmReports.Print2Click┘ │ │ 
           TfrmProblems.RequestPrint┘ │ 
       TfrmFrame.mnuFilePrintClick┘   │ 
              TfrmReportPrt.cmdOKClick┤ 
                     PrintReports...┘ │ 
                            PrintSF513┤ 
           TfrmConsults.RequestPrint┤ │ 
TfrmConsults.mnuActPrintSF513Click┤ │ │ 
       TfrmFrame.mnuFilePrintClick┘ │ │ 
   TfrmConsults.RequestMultiplePrint┘ │ 
          TfrmPrintList.cmdOKClick┘   │ 
               Tfrm513Print.cmdOKClick┘ 
                       PrintSF513...┘   

Called-By

Name Declaration Comments
TfrmNotePrint.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmDeviceSelect.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmLabPrint.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmReportPrt.cmdOKClick procedure cmdOKClick(Sender: TObject); -
Tfrm513Print.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmFrame.mnuFilePrintSetupClick procedure mnuFilePrintSetupClick(Sender: TObject); -
PrintLabs procedure PrintLabs(AReports: String; const ALabTitle: string; ADaysBack: Integer); -
PrintNote procedure PrintNote(ANote: Longint; const ANoteTitle: string; MultiNotes: boolean = False); -
PrintReports procedure PrintReports(AReports: string; const AReportsTitle: string); -
PrintSF513 procedure PrintSF513(AConsult: Longint; AConsultTitle: string); -


Source

1705  procedure TUser.SetCurrentPrinter(Value: string);
1706  begin
1707    FCurrentPrinter := Value;
1708  end;