Procedure

TfrmPrintList.cmdOKClick

Module

fPrintList

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmPrintList

Declaration

procedure cmdOKClick(Sender: TObject);

Calls Hierarchy


TfrmPrintList.cmdOKClick
 ├TfrmNotes.RequestMultiplePrint
 │ └PrintNote
 │   ├TfrmBase508Form.Create
 │   │ ├TfrmBase508Form.UpdateAccessibilityActions
 │   │ ├UnfocusableControlEnter
 │   │ └AdjustControls
 │   │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   │   └..(rec)..
 │   ├AllowChartPrintForNote
 │   ├GetDefaultPrinter
 │   ├TUser.SetCurrentPrinter
 │   └TfrmNotePrint.cmdOKClick
 │     ├CreateReportTextComponent
 │     │ └ReportTextFontChange
 │     ├GetFormattedNote
 │     ├PrintWindowsReport
 │     │ └CreatePatientHeader
 │     │   ├TEncounter.GetLocationName
 │     │   │ └TEncounter.UpdateText
 │     │   │   └GetEncounterText
 │     │   └FMNow
 │     ├PrintNoteToDevice
 │     ├SaveDefaultPrinter
 │     └TUser.SetCurrentPrinter
 ├TfrmConsults.RequestMultiplePrint
 │ └PrintSF513
 │   ├TfrmBase508Form.Create...
 │   ├GetDefaultPrinter
 │   ├TUser.SetCurrentPrinter
 │   └Tfrm513Print.cmdOKClick
 │     ├CreateReportTextComponent...
 │     ├GetFormattedSF513
 │     ├PrintWindowsReport...
 │     ├PrintSF513ToDevice
 │     ├SaveDefaultPrinter
 │     └TUser.SetCurrentPrinter
 └TfrmDCSumm.RequestMultiplePrint
   └PrintNote...

Calls

Name Declaration Comments
TfrmNotes.RequestMultiplePrint procedure RequestMultiplePrint(AForm: TfrmPrintList); -
TfrmConsults.RequestMultiplePrint procedure RequestMultiplePrint(AForm: TfrmPrintList); -
TfrmDCSumm.RequestMultiplePrint procedure RequestMultiplePrint(AForm: TfrmPrintList); -


Source

50    procedure TfrmPrintList.cmdOKClick(Sender: TObject);
51    begin
52      inherited;
53      case HLDPageID of
54        CT_NOTES:        frmNotes.RequestMultiplePrint(Self);
55        CT_CONSULTS:     frmConsults.RequestMultiplePrint(Self);
56        CT_DCSUMM:       frmDCSumm.RequestMultiplePrint(Self);
57      end; {case}
58      FParentNode := lbIDParents.ItemID;
59      Close;
60    end;