Procedure

TfrmRemDlg.btnClinMaintClick

Module

fReminderDialog

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmRemDlg

Declaration

procedure btnClinMaintClick(Sender: TObject);

Calls Hierarchy


TfrmRemDlg.btnClinMaintClick
 ├ModelessReportBox
 │ └CreateReportBox
 │   └TfrmBase508Form.Create
 │     ├TfrmBase508Form.UpdateAccessibilityActions
 │     ├UnfocusableControlEnter
 │     └AdjustControls
 │       ├TfrmBase508Form.ModifyUnfocusableControl
 │       └..(rec)..
 ├DetailReminder
 │ └InteractiveRemindersActive
 │   └GetRemindersActive
 ├TReminderDialog.GetPrintName
 ├TfrmRemDlg.ClinMaintDestroyed
 │ └TfrmRemDlg.UpdateButtons
 │   ├TfrmRemDlg.BackReminder
 │   │ └TfrmRemDlg.GetCurReminderList
 │   │   └TReminderDialog.GetIEN
 │   └TfrmRemDlg.NextReminder
 │     └TfrmRemDlg.GetCurReminderList...
 └TfrmRemDlg.UpdateButtons...

Calls

Name Declaration Comments
TfrmRemDlg.ClinMaintDestroyed procedure ClinMaintDestroyed(Sender: TObject); -
DetailReminder function DetailReminder(IEN: Integer): TStrings; -
TReminderDialog.GetPrintName function GetPrintName: string; virtual; -
ModelessReportBox function ModelessReportBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean): TfrmReportBox; -
TfrmRemDlg.UpdateButtons procedure UpdateButtons; -


Source

1732  procedure TfrmRemDlg.btnClinMaintClick(Sender: TObject);
1733  begin
1734    if(not assigned(FClinMainBox)) then
1735    begin
1736      FClinMainBox := ModelessReportBox(DetailReminder(StrToIntDef(FReminder.IEN,0)),
1737                      ClinMaintText + ': ' + FReminder.PrintName, TRUE);
1738      FOldClinMaintOnDestroy := FClinMainBox.OnDestroy;
1739      FClinMainBox.OnDestroy := ClinMaintDestroyed;
1740      UpdateButtons;
1741    end;
1742  end;