Class

TfrmCover

Module

fCover

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Inherits from

TfrmPage

Declaration


TfrmCover = class(TfrmPage)
  pnlBase: TPanel;
  pnlTop: TPanel;
  pnlNotTheBottom: TPanel;
  pnlMiddle: TPanel;
  pnlBottom: TPanel;
  sptTop: TSplitter;
  sptBottom: TSplitter;
  pnl_Not3: TPanel;
  pnl_Not8: TPanel;
  pnl_4: TPanel;
  pnl_5: TPanel;
  pnl_6: TPanel;
  pnl_7: TPanel;
  pnl_8: TPanel;
  spt_3: TSplitter;
  spt_4: TSplitter;
  spt_5: TSplitter;
  pnl_1: TPanel;
  pnl_2: TPanel;
  pnl_3: TPanel;
  spt_1: TSplitter;
  spt_2: TSplitter;
  lbl_1: TOROffsetLabel;
  lbl_2: TOROffsetLabel;
  lbl_4: TOROffsetLabel;
  lbl_5: TOROffsetLabel;
  lbl_6: TOROffsetLabel;
  lbl_7: TOROffsetLabel;
  lbl_8: TOROffsetLabel;
  lst_1: TORListBox;
  lst_2: TORListBox;
  lst_4: TORListBox;
  lst_5: TORListBox;
  lst_6: TORListBox;
  lst_7: TORListBox;
  lst_8: TORListBox;
  timPoll: TTimer;
  popMenuAllergies: TPopupMenu;
  popNewAllergy: TMenuItem;
  popNKA: TMenuItem;
  popEditAllergy: TMenuItem;
  popEnteredInError: TMenuItem;
  pnlFlag: TPanel;
  lstFlag: TORListBox;
  lblFlag: TOROffsetLabel;
  lbl_3: TOROffsetLabel;
  lst_3: TORListBox;
  sptFlag: TSplitter;
  VA508ComponentAccessibility1: TVA508ComponentAccessibility;
  procedure CoverItemClick(Sender: TObject);
  procedure timPollTimer(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure RemContextPopup(Sender: TObject; MousePos: TPoint;
    var Handled: Boolean);
  procedure FormCreate(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure sptBottomCanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure sptTopCanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure spt_1CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure spt_2CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure spt_3CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure spt_4CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure spt_5CanResize(Sender: TObject; var NewSize: Integer;
    var Accept: Boolean);
  procedure popMenuAllergiesPopup(Sender: TObject);
  procedure popNewAllergyClick(Sender: TObject);
  procedure popNKAClick(Sender: TObject);
  procedure popEditAllergyClick(Sender: TObject);
  procedure popEnteredInErrorClick(Sender: TObject);
  procedure CoverItemExit(Sender: TObject);
  procedure lstFlagClick(Sender: TObject);
  procedure lstFlagKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormShow(Sender: TObject);
private
  FCoverList: TCoverSheetList;
  popReminders: TORPopupMenu;
  FLoadingForDFN: string;  //*DFN*
  procedure RemindersChange(Sender: TObject);
  procedure GetPatientFlag;
  procedure LoadList(const StsTxt: string; ListCtrl: TObject;
    ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE);
public
  procedure ClearPtData; override;
  procedure DisplayPage; override;
  procedure SetFontSize(NewFontSize: Integer); override;
  procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override;       {REV}
  procedure UpdateAllergiesList;
  procedure UpdateVAAButton;
end;

DFM Objects


frmCover : TfrmCover
 ├shpPageBottom : TShape
 ├pnlBase : TPanel
 │ ├sptBottom : TSplitter
 │ ├pnlNotTheBottom : TPanel
 │ │ ├sptTop : TSplitter
 │ │ ├pnlTop : TPanel
 │ │ │ ├spt_2 : TSplitter
 │ │ │ ├pnl_Not3 : TPanel
 │ │ │ │ ├spt_1 : TSplitter
 │ │ │ │ ├pnl_1 : TPanel
 │ │ │ │ │ ├lbl_1 : TOROffsetLabel
 │ │ │ │ │ └lst_1 : TORListBox
 │ │ │ │ └pnl_2 : TPanel
 │ │ │ │   ├lbl_2 : TOROffsetLabel
 │ │ │ │   └lst_2 : TORListBox
 │ │ │ └pnl_3 : TPanel
 │ │ │   ├lbl_3 : TOROffsetLabel
 │ │ │   ├sptFlag : TSplitter
 │ │ │   ├pnlFlag : TPanel
 │ │ │   │ ├lblFlag : TOROffsetLabel
 │ │ │   │ └lstFlag : TORListBox
 │ │ │   └lst_3 : TORListBox
 │ │ └pnlMiddle : TPanel
 │ │   ├spt_3 : TSplitter
 │ │   ├pnl_4 : TPanel
 │ │   │ ├lbl_4 : TOROffsetLabel
 │ │   │ └lst_4 : TORListBox
 │ │   └pnl_5 : TPanel
 │ │     ├lbl_5 : TOROffsetLabel
 │ │     └lst_5 : TORListBox
 │ └pnlBottom : TPanel
 │   ├spt_5 : TSplitter
 │   ├pnl_Not8 : TPanel
 │   │ ├spt_4 : TSplitter
 │   │ ├pnl_6 : TPanel
 │   │ │ ├lbl_6 : TOROffsetLabel
 │   │ │ └lst_6 : TORListBox
 │   │ └pnl_7 : TPanel
 │   │   ├lbl_7 : TOROffsetLabel
 │   │   └lst_7 : TORListBox
 │   └pnl_8 : TPanel
 │     ├lbl_8 : TOROffsetLabel
 │     └lst_8 : TORListBox
 ├amgrMain : TVA508AccessibilityManager
 ├timPoll : TTimer
 ├popMenuAllergies : TPopupMenu
 │ ├popNewAllergy : TMenuItem
 │ ├popEditAllergy : TMenuItem
 │ ├popEnteredInError : TMenuItem
 │ └popNKA : TMenuItem
 └VA508ComponentAccessibility1 : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
FCoverList TCoverSheetList Private -
FLoadingForDFN UnicodeString Private DFN*
lbl_1 TOROffsetLabel Public/Published -
lbl_2 TOROffsetLabel Public/Published -
lbl_3 TOROffsetLabel Public/Published -
lbl_4 TOROffsetLabel Public/Published -
lbl_5 TOROffsetLabel Public/Published -
lbl_6 TOROffsetLabel Public/Published -
lbl_7 TOROffsetLabel Public/Published -
lbl_8 TOROffsetLabel Public/Published -
lblFlag TOROffsetLabel Public/Published -
lst_1 TORListBox Public/Published -
lst_2 TORListBox Public/Published -
lst_3 TORListBox Public/Published -
lst_4 TORListBox Public/Published -
lst_5 TORListBox Public/Published -
lst_6 TORListBox Public/Published -
lst_7 TORListBox Public/Published -
lst_8 TORListBox Public/Published -
lstFlag TORListBox Public/Published -
pnl_1 TPanel Public/Published -
pnl_2 TPanel Public/Published -
pnl_3 TPanel Public/Published -
pnl_4 TPanel Public/Published -
pnl_5 TPanel Public/Published -
pnl_6 TPanel Public/Published -
pnl_7 TPanel Public/Published -
pnl_8 TPanel Public/Published -
pnl_Not3 TPanel Public/Published -
pnl_Not8 TPanel Public/Published -
pnlBase TPanel Public/Published -
pnlBottom TPanel Public/Published -
pnlFlag TPanel Public/Published -
pnlMiddle TPanel Public/Published -
pnlNotTheBottom TPanel Public/Published -
pnlTop TPanel Public/Published -
popEditAllergy TMenuItem Public/Published -
popEnteredInError TMenuItem Public/Published -
popMenuAllergies TPopupMenu Public/Published -
popNewAllergy TMenuItem Public/Published -
popNKA TMenuItem Public/Published -
popReminders Simple (unknown) Private -
spt_1 TSplitter Public/Published -
spt_2 TSplitter Public/Published -
spt_3 TSplitter Public/Published -
spt_4 TSplitter Public/Published -
spt_5 TSplitter Public/Published -
sptBottom TSplitter Public/Published -
sptFlag TSplitter Public/Published -
sptTop TSplitter Public/Published -
timPoll Simple (unknown) Public/Published -
VA508ComponentAccessibility1 TVA508ComponentAccessibility Public/Published -

Methods

Name Declaration Scope Comments
ClearPtData procedure ClearPtData; override; Public Clears all lists displayed on the cover sheet
CoverItemClick procedure CoverItemClick(Sender: TObject); Public/Published Displays details for an item that has been clicked on the cover sheet
CoverItemExit procedure CoverItemExit(Sender: TObject); Public/Published -
DisplayPage procedure DisplayPage; override; Public
Loads the cover sheet lists if the patient has just been selected 
  procedure LoadList(const StsTxt: string; ListCtrl: TObject;
    ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE);
  begin
    StatusText(StsTxt);
    if(ListCtrl is TORListBox) then
    begin
      ListGeneric((ListCtrl as TORListBox).Items, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID);
      if((ListCtrl as TORListBox).Items.Count = 0) then
        (ListCtrl as TORListBox).Items.Add(NoDataText(Reminders));
    end
    else
    begin
      ListGeneric(ListCtrl as TStrings, ARpc, ACase, AInvert, ADatePiece, ADateFormat, AParam1, ADetail, AID);
      if((ListCtrl as TStrings).Count = 0) then
        (ListCtrl as TStrings).Add(NoDataText(Reminders));
    end;
    StatusText('');
  end;
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetPatientFlag procedure GetPatientFlag; Private -
LoadList procedure LoadList(const StsTxt: string; ListCtrl: TObject; ARpc: String; ACase, AInvert: Boolean; ADatePiece: integer; ADateFormat, AParam1, AID, ADetail: String; Reminders: boolean = FALSE); Private -
lstFlagClick procedure lstFlagClick(Sender: TObject); Public/Published -
lstFlagKeyDown procedure lstFlagKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
NotifyOrder procedure NotifyOrder(OrderAction: Integer; AnOrder: TOrder); override; {REV} Public
REV
REV
popEditAllergyClick procedure popEditAllergyClick(Sender: TObject); Public/Published -
popEnteredInErrorClick procedure popEnteredInErrorClick(Sender: TObject); Public/Published -
popMenuAllergiesPopup procedure popMenuAllergiesPopup(Sender: TObject); Public/Published -
popNewAllergyClick procedure popNewAllergyClick(Sender: TObject); Public/Published -
popNKAClick procedure popNKAClick(Sender: TObject); Public/Published -
RemContextPopup procedure RemContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean); Public/Published -
RemindersChange procedure RemindersChange(Sender: TObject); Private -
SetFontSize procedure SetFontSize(NewFontSize: Integer); override; Public -
spt_1CanResize procedure spt_1CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
spt_2CanResize procedure spt_2CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
spt_3CanResize procedure spt_3CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
spt_4CanResize procedure spt_4CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
spt_5CanResize procedure spt_5CanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
sptBottomCanResize procedure sptBottomCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
sptTopCanResize procedure sptTopCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); Public/Published -
timPollTimer procedure timPollTimer(Sender: TObject); Public/Published -
UpdateAllergiesList procedure UpdateAllergiesList; Public -
UpdateVAAButton procedure UpdateVAAButton; Public
Var
  PtIsVAA: boolean;
  PtIsMHV: boolean;

Referenced By (3)

Module (line) Referrer Type
fCover (110) frmCover Read
fCover (1043) - Read
fFrame (3414) - Read