Class

TfrmPCEBase

Module

fPCEBase

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Inherited by

TfrmEncVitals
TfrmPCEBaseGrid
TfrmVisitType

Declaration


  TfrmPCEBase = class(TfrmAutoSz)
    btnOK: TBitBtn;
    btnCancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnOKClick(Sender: TObject); virtual;
    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;
//    function GetInitPage: Boolean;
//    function GetInitPatient: Boolean;
//    function GetPatientViewed: Boolean;
    procedure UMResizePage(var Message: TMessage); message UM_RESIZEPAGE;
  protected
    FClosing: boolean;
    FSectionTabs: array[0..2] of Integer;
    FSectionTabCount: integer;
    FTabName: string;
//    procedure CreateParams(var Params: TCreateParams); override;
    function ActiveCtrl: TWinControl;
    function SectionString: string;
    procedure DoEnter; override;
  public
    constructor CreateLinked(AParent: TWinControl);
    procedure Loaded; override;
//    function AllowContextChange: Boolean; virtual;
//    procedure ClearPtData; virtual;
    procedure DisplayPage; virtual;
//    procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); virtual;  //*no ordering will be done*//
//    procedure RequestPrint; virtual;
    procedure SetFontSize(NewFontSize: Integer); virtual;
    procedure AllowTabChange(var AllowChange: boolean); virtual;

    property CallingContext: Integer read FCallingContext;
//    property InitPage: Boolean read GetInitPage;
//    property InitPatient: Boolean read GetInitPatient;
//    property PatientViewed: Boolean read GetPatientViewed;
    procedure FocusFirstControl;
  end;

DFM Objects


frmPCEBase : TfrmPCEBase
 ├btnOK : TBitBtn
 ├btnCancel : TBitBtn
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnCancel Simple (unknown) Public/Published -
btnOK Simple (unknown) Public/Published -
FCallingContext Integer Private -
FClosing Boolean Protected -
FDisplayCount Integer Private Number of times page displayed
FPatientCount Integer Private Number of times page displayed for given pt
FSectionTabCount Integer Protected -
FSectionTabs Array (static) Protected -
FTabName UnicodeString Protected -

Properties

Name Type Scope Comments
CallingContext Integer Public -

Constructors

Name Declaration Scope Comments
CreateLinked constructor CreateLinked(AParent: TWinControl); Public -

Methods

Name Declaration Scope Comments
ActiveCtrl function ActiveCtrl: TWinControl; Protected Procedure CreateParams(var Params: TCreateParams); override;
AllowTabChange procedure AllowTabChange(var AllowChange: boolean); virtual; Public
//Name: procedure TfrmPCEBase.CheckListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
//  State: TOwnerDrawState);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Populate the checklist
///////////////////////////////////////////////////////////////////////////////
btnCancelClick procedure btnCancelClick(Sender: TObject); Public/Published
//Name: procedure TfrmPCEBase.btnCancelClick(Sender: TObject);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Indicate to the frame that cancel was pressed, and close the frame.
///////////////////////////////////////////////////////////////////////////////
btnOKClick procedure btnOKClick(Sender: TObject); virtual; Public/Published
//Name: procedure TfrmPCEBase.btnCancelClick(Sender: TObject);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Indicate to the frame that it should close and save data.
///////////////////////////////////////////////////////////////////////////////
DisplayPage procedure DisplayPage; virtual; Public
Function AllowContextChange: Boolean; virtual;
    procedure ClearPtData; virtual;
//Name: function TfrmPCEBase.AllowContextChange: Boolean;
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description:
///////////////////////////////////////////////////////////////////////////////
function TfrmPCEBase.AllowContextChange: Boolean;
begin
  Result := True;
end;

{///////////////////////////////////////////////////////////////////////////////
//Name: procedure TfrmPCEBase.ClearPtData;
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: clear all patient related data on a page
///////////////////////////////////////////////////////////////////////////////}
procedure TfrmPCEBase.ClearPtData;
begin
  FPatientCount := 0;
end;


//Name: procedure TfrmPCEBase.DisplayPage;
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: cause the page to be displayed and update the display counters
///////////////////////////////////////////////////////////////////////////////
DoEnter procedure DoEnter; override; Protected -
FocusFirstControl procedure FocusFirstControl; Public
Property InitPage: Boolean read GetInitPage;
    property InitPatient: Boolean read GetInitPatient;
    property PatientViewed: Boolean read GetPatientViewed;
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published
//Name: procedure TfrmPCEBase.FormClose(Sender: TObject; var Action: TCloseAction);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Free the memory held by the form.
///////////////////////////////////////////////////////////////////////////////
FormCreate procedure FormCreate(Sender: TObject); Public/Published
//Name: procedure TfrmPCEBase.FormCreate(Sender: TObject);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Initialize counters to zero
///////////////////////////////////////////////////////////////////////////////
Loaded procedure Loaded; override; Public
//Name: procedure TfrmPCEBase.CreateParams(var Params: TCreateParams);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: turn the form into a child window
///////////////////////////////////////////////////////////////////////////////
procedure TfrmPCEBase.CreateParams(var Params: TCreateParams);
{turn the form into a child window }
begin
  inherited CreateParams(Params);
  with Params do
  begin
    if Owner is TPanel
      then WndParent := TPanel(Owner).Handle
    else if owner is TForm then
      WndParent := (Owner as TForm).Handle;
    Style := WS_CHILD or WS_CLIPSIBLINGS;
    X := 0; Y := 0;
  end;
end;
 

//Name: procedure TfrmPCEBase.Loaded;
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: make the form borderless to allow it to be a child window
///////////////////////////////////////////////////////////////////////////////
SectionString function SectionString: string; Protected -
SetFontSize procedure SetFontSize(NewFontSize: Integer); virtual; Public
Procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); virtual;  //*no ordering will be done*//
    procedure RequestPrint; virtual;
//Name: procedure TfrmPCEBase.SetFontSize(NewFontSize: Integer);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Assign the new font size.
///////////////////////////////////////////////////////////////////////////////
UMResizePage procedure UMResizePage(var Message: TMessage); message UM_RESIZEPAGE; Private
Function GetInitPage: Boolean;
    function GetInitPatient: Boolean;
    function GetPatientViewed: Boolean;
//Name: procedure TfrmPCEBase.UMResizePage(var Message: TMessage);
//Created: Jan 1999
//By: Robert Bott
//Location: ISL
//Description: Redraw the controls on the form when it is resized.
///////////////////////////////////////////////////////////////////////////////

Referenced By (10)

Module (line) Referrer Type
fEncounterFrame (91) TfrmEncounterFrame Read
fEncounterFrame (95) SwitchToPage Read
fEncounterFrame (96) PageIDToForm Read
fEncounterFrame (168) - Read
fEncounterFrame (294) - Read
fEncVitals (11) TfrmEncVitals Read
fPCEBase (65) frmPCEBase Read
fPCEBase (370) - Read
fPCEBaseGrid (11) TfrmPCEBaseGrid Read
fVisitType (11) TfrmVisitType Read