Class

TfrmPage

Module

fPage

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Inherited by

TfrmAutoResize
TfrmCover
TfrmHP
TfrmHSplit
TfrmMeds

Declaration


TfrmPage = class(TfrmBase508Form)
  shpPageBottom: TShape;
  procedure FormCreate(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
  FDisplayCount: Integer;                      // number of times page displayed
  FPatientCount: Integer;                      // number of times page displayed for given pt
  FCallingContext: Integer;
  FOldEnter: TNotifyEvent;
  FPageID: integer;
  function GetInitPage: Boolean;
  function GetInitPatient: Boolean;
  function GetPatientViewed: Boolean;
protected
  procedure Loaded; override;
  procedure frmPageEnter(Sender: TObject);
public
  function AllowContextChange(var WhyNot: string): Boolean; virtual;
  procedure ClearPtData; virtual;
  procedure DisplayPage; virtual;
  procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); virtual;
  procedure RequestPrint; virtual;
  procedure SetFontSize(NewFontSize: Integer); virtual;
  procedure FocusFirstControl;
  property CallingContext: Integer read FCallingContext;
  property InitPage: Boolean read GetInitPage;
  property InitPatient: Boolean read GetInitPatient;
  property PatientViewed: Boolean read GetPatientViewed;
  property PageID: integer read FPageID write FPageID default CT_UNKNOWN;
end;

DFM Objects


frmPage : TfrmPage
 ├shpPageBottom : TShape
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
FCallingContext Integer Private -
FDisplayCount Integer Private Number of times page displayed
FOldEnter Simple (unknown) Private -
FPageID Integer Private -
FPatientCount Integer Private Number of times page displayed for given pt
shpPageBottom Simple (unknown) Public/Published -

Properties

Name Type Scope Comments
CallingContext Integer Public -
InitPage Boolean Public -
InitPatient Boolean Public -
PageID Integer Public -
PatientViewed Boolean Public -

Methods

Name Declaration Scope Comments
AllowContextChange function AllowContextChange(var WhyNot: string): Boolean; virtual; Public -
ClearPtData procedure ClearPtData; virtual; Public Clear all patient related data on a page
DisplayPage procedure DisplayPage; virtual; Public Cause the page to be displayed and update the display counters
FocusFirstControl procedure FocusFirstControl; Public -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Set counters to 0
frmPageEnter procedure frmPageEnter(Sender: TObject); Protected -
GetInitPage function GetInitPage: Boolean; Private If the count is one, this is the first time the page is being displayed
GetInitPatient function GetInitPatient: Boolean; Private If the count is one, this is the first time the page is being displayed for a given patient
GetPatientViewed function GetPatientViewed: Boolean; Private Returns false if the tab has never been clicked for this patient
Loaded procedure Loaded; override; Protected Make the form borderless to allow it to be a child window
NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); virtual; Public -
RequestPrint procedure RequestPrint; virtual; Public -
SetFontSize procedure SetFontSize(NewFontSize: Integer); virtual; Public -

Referenced By (10)

Module (line) Referrer Type
fAResize (10) TfrmAutoResize Read
fCover (11) TfrmCover Read
fFrame (270) TfrmFrame Read
fFrame (309) SwitchToPage Read
fFrame (1296) - Read
fHP (10) TfrmHP Read
fHSplit (10) TfrmHSplit Read
fMeds (19) TfrmMeds Read
fPage (44) frmPage Read
fPage (162) - Read