Procedure

TfrmARTAllergy.btnCurrentClick

Module

fARTAllgy

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmARTAllergy

Declaration

procedure btnCurrentClick(Sender: TObject);

Calls Hierarchy


TfrmARTAllergy.btnCurrentClick
 ├ReportBox
 │ └CreateReportBox
 │   └TfrmBase508Form.Create
 │     ├TfrmBase508Form.UpdateAccessibilityActions
 │     ├UnfocusableControlEnter
 │     └AdjustControls
 │       ├TfrmBase508Form.ModifyUnfocusableControl
 │       └..(rec)..
 └DetailPosting

Calls

Name Declaration Comments
DetailPosting function DetailPosting(ID: string): TStrings; -
ReportBox procedure ReportBox(ReportText: TStrings; ReportTitle: string; AllowPrint: boolean); -


Source

1062  procedure TfrmARTAllergy.btnCurrentClick(Sender: TObject);
1063  const
1064    VIEW_CURRENT = 'Current Allergies/Adverse Reactions for ';
1065  begin
1066    inherited;
1067    ReportBox(DetailPosting('A'), VIEW_CURRENT + Patient.Name, True)
1068  end;