Procedure

TfrmPage.DisplayPage

Directives

Virtual

Module

fPage

Last Modified

7/15/2014 3:26:38 PM

Comments

Cause the page to be displayed and update the display counters

Visibility

Public

Overridden by

TfrmConsults.DisplayPage
TfrmCover.DisplayPage
TfrmDCSumm.DisplayPage
TfrmHP.DisplayPage
TfrmLabs.DisplayPage
TfrmMeds.DisplayPage
TfrmNotes.DisplayPage
TfrmOrders.DisplayPage
TfrmProblems.DisplayPage
TfrmReports.DisplayPage
TfrmSurgery.DisplayPage

Owner

TfrmPage

Declaration

procedure DisplayPage; virtual;

Called-By Hierarchy


        TfrmPage.DisplayPage
      TfrmLabs.DisplayPage┤ 
    TfrmDCSumm.DisplayPage┤ 
  TfrmConsults.DisplayPage┤ 
      TfrmFrame.UMShowPage┤ 
    TfrmOrders.DisplayPage┤ 
      TfrmMeds.DisplayPage┤ 
   TfrmSurgery.DisplayPage┤ 
   TfrmReports.DisplayPage┤ 
     TfrmNotes.DisplayPage┤ 
  TfrmProblems.DisplayPage┤ 
     TfrmCover.DisplayPage┤ 
TfrmCover.CoverItemClick┘ │ 
        TfrmHP.DisplayPage┘ 

Called-By

Name Declaration Comments
TfrmLabs.DisplayPage procedure DisplayPage; override; -
TfrmDCSumm.DisplayPage procedure DisplayPage; override; -
TfrmConsults.DisplayPage procedure DisplayPage; override; -
TfrmOrders.DisplayPage procedure DisplayPage; override; -
TfrmMeds.DisplayPage procedure DisplayPage; override; -
TfrmSurgery.DisplayPage procedure DisplayPage; override; -
TfrmReports.DisplayPage procedure DisplayPage; override; -
TfrmNotes.DisplayPage procedure DisplayPage; override; -
TfrmProblems.DisplayPage procedure DisplayPage; override; -
TfrmCover.DisplayPage procedure DisplayPage; override; -
TfrmHP.DisplayPage procedure DisplayPage; override; -
TfrmFrame.UMShowPage procedure UMShowPage(var Message: TMessage); message UM_SHOWPAGE; -


Source

85    procedure TfrmPage.DisplayPage;
86    { cause the page to be displayed and update the display counters }
87    begin
88      BringToFront;
89      if ActiveControl <> nil then
90        FocusControl(ActiveControl);
91     //CQ12232 else
92    //CQ12232   FocusFirstControl;
93      //SetFocus;
94      Inc(FDisplayCount);
95      Inc(FPatientCount);
96      FCallingContext := frmFrame.ChangeSource;
97      if (FCallingContext = CC_CLICK) and (FPatientCount = 1)
98        then FCallingContext := CC_INIT_PATIENT;
99    end;