Class

TfrmPtSel

Module

fPtSel

Last Modified

7/15/2014 3:26:38 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmPtSel = class(TfrmBase508Form)
  pnlPtSel: TORAutoPanel;
  cboPatient: TORComboBox;
  lblPatient: TLabel;
  cmdOK: TButton;
  cmdCancel: TButton;
  pnlNotifications: TORAutoPanel;
  cmdProcessInfo: TButton;
  cmdProcessAll: TButton;
  cmdProcess: TButton;
  cmdForward: TButton;
  sptVert: TSplitter;
  cmdSaveList: TButton;
  pnlDivide: TORAutoPanel;
  lblNotifications: TLabel;
  ggeInfo: TGauge;
  cmdRemove: TButton;
  popNotifications: TPopupMenu;
  mnuProcess: TMenuItem;
  mnuRemove: TMenuItem;
  mnuForward: TMenuItem;
  lstvAlerts: TCaptionListView;
  N1: TMenuItem;
  cmdComments: TButton;
  txtCmdComments: TVA508StaticText;
  txtCmdRemove: TVA508StaticText;
  txtCmdForward: TVA508StaticText;
  txtCmdProcess: TVA508StaticText;
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure cboPatientChange(Sender: TObject);
  procedure cboPatientKeyPause(Sender: TObject);
  procedure cboPatientMouseClick(Sender: TObject);
  procedure cboPatientEnter(Sender: TObject);
  procedure cboPatientExit(Sender: TObject);
  procedure cboPatientNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure cboPatientDblClick(Sender: TObject);
  procedure cmdProcessClick(Sender: TObject);
  procedure cmdSaveListClick(Sender: TObject);
  procedure cmdProcessInfoClick(Sender: TObject);
  procedure cmdProcessAllClick(Sender: TObject);
  procedure lstvAlertsDblClick(Sender: TObject);
  procedure cmdForwardClick(Sender: TObject);
  procedure cmdRemoveClick(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure pnlPtSelResize(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure cboPatientKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure lstvAlertsColumnClick(Sender: TObject; Column: TListColumn);
  procedure lstvAlertsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
  function DupLastSSN(const DFN: string): Boolean;
  procedure lstFlagsClick(Sender: TObject);
  procedure lstFlagsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure lstvAlertsSelectItem(Sender: TObject; Item: TListItem;
    Selected: Boolean);
  procedure ShowButts(ShowButts: Boolean);
  procedure lstvAlertsInfoTip(Sender: TObject; Item: TListItem;
    var InfoTip: String);
  procedure lstvAlertsKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure FormShow(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure cmdCommentsClick(Sender: TObject);
  procedure lstvAlertsMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure cboPatientKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  FsortCol: integer;
  FsortAscending: boolean;
  FLastPt: string;
  FsortDirection: string;
  FUserCancelled: boolean;
  FNotificationBtnsAdjusted: Boolean;
  FAlertsNotReady: boolean;
  FMouseUpPos: TPoint;
  procedure WMReadyAlert(var Message: TMessage); message UM_MISC;
  procedure ReadyAlert;
  procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer);
  procedure ClearIDInfo;
  procedure ShowIDInfo;
  procedure ShowFlagInfo;
  procedure SetCaptionTop;
  procedure SetPtListTop(IEN: Int64);
  procedure RPLDisplay;
  procedure AlertList;
  procedure ReformatAlertDateTime;
  procedure AdjustButtonSize(pButton:TButton);
  procedure AdjustNotificationButtons;
  procedure SetupDemographicsForm;
  procedure ShowDisabledButtonTexts;

public
  procedure Loaded; override;
end;

DFM Objects


frmPtSel : TfrmPtSel
 ├sptVert : TSplitter
 ├pnlDivide : TORAutoPanel
 │ ├lblNotifications : TLabel
 │ └ggeInfo : TGauge
 ├pnlPtSel : TORAutoPanel
 │ ├lblPatient : TLabel
 │ ├cboPatient : TORComboBox
 │ ├cmdOK : TButton
 │ ├cmdCancel : TButton
 │ └cmdSaveList : TButton
 ├pnlNotifications : TORAutoPanel
 │ ├txtCmdComments : TVA508StaticText
 │ ├txtCmdRemove : TVA508StaticText
 │ ├txtCmdForward : TVA508StaticText
 │ ├txtCmdProcess : TVA508StaticText
 │ ├cmdRemove : TButton
 │ ├cmdComments : TButton
 │ ├cmdForward : TButton
 │ ├cmdProcess : TButton
 │ ├cmdProcessAll : TButton
 │ └cmdProcessInfo : TButton
 ├lstvAlerts : TCaptionListView
 ├amgrMain : TVA508AccessibilityManager
 └popNotifications : TPopupMenu
   ├mnuProcess : TMenuItem
   ├mnuForward : TMenuItem
   ├N1 : TMenuItem
   └mnuRemove : TMenuItem

Class Hierarchy


Class Fields

Name Type Scope Comments
cboPatient TORComboBox Public/Published -
cmdCancel TButton Public/Published -
cmdComments TButton Public/Published -
cmdForward TButton Public/Published -
cmdOK TButton Public/Published -
cmdProcess TButton Public/Published -
cmdProcessAll TButton Public/Published -
cmdProcessInfo TButton Public/Published -
cmdRemove TButton Public/Published -
cmdSaveList TButton Public/Published -
FAlertsNotReady Boolean Private -
FLastPt UnicodeString Private -
FMouseUpPos TPoint Private -
FNotificationBtnsAdjusted Boolean Private -
FsortAscending Boolean Private -
FsortCol Integer Private -
FsortDirection UnicodeString Private -
FUserCancelled Boolean Private -
ggeInfo Simple (unknown) Public/Published -
lblNotifications TLabel Public/Published -
lblPatient TLabel Public/Published -
lstvAlerts Simple (unknown) Public/Published -
mnuForward TMenuItem Public/Published -
mnuProcess TMenuItem Public/Published -
mnuRemove TMenuItem Public/Published -
N1 TMenuItem Public/Published -
pnlDivide Simple (unknown) Public/Published -
pnlNotifications Simple (unknown) Public/Published -
pnlPtSel Simple (unknown) Public/Published -
popNotifications TPopupMenu Public/Published -
sptVert TSplitter Public/Published -
txtCmdComments TVA508StaticText Public/Published -
txtCmdForward TVA508StaticText Public/Published -
txtCmdProcess TVA508StaticText Public/Published -
txtCmdRemove TVA508StaticText Public/Published -

Methods

Name Declaration Scope Comments
AdjustButtonSize procedure AdjustButtonSize(pButton:TButton); Private -
AdjustFormSize procedure AdjustFormSize(ShowNotif: Boolean; FontSize: Integer); Private Adjusts the initial size of the form based on the font used & if notifications should show.
AdjustNotificationButtons procedure AdjustNotificationButtons; Private Reposition buttons after resizing eliminate overlap.
AlertList procedure AlertList; Private -
cboPatientChange procedure cboPatientChange(Sender: TObject); Public/Published -
cboPatientDblClick procedure cboPatientDblClick(Sender: TObject); Public/Published -
cboPatientEnter procedure cboPatientEnter(Sender: TObject); Public/Published Patient Select events:
cboPatientExit procedure cboPatientExit(Sender: TObject); Public/Published -
cboPatientKeyDown procedure cboPatientKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboPatientKeyPause procedure cboPatientKeyPause(Sender: TObject); Public/Published -
cboPatientKeyUp procedure cboPatientKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboPatientMouseClick procedure cboPatientMouseClick(Sender: TObject); Public/Published -
cboPatientNeedData procedure cboPatientNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
ClearIDInfo procedure ClearIDInfo; Private -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published -
cmdCommentsClick procedure cmdCommentsClick(Sender: TObject); Public/Published -
cmdForwardClick procedure cmdForwardClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published
Command Button events: 

 Checks for restrictions on the selected patient and sets up the Patient object.
cmdProcessAllClick procedure cmdProcessAllClick(Sender: TObject); Public/Published -
cmdProcessClick procedure cmdProcessClick(Sender: TObject); Public/Published -
cmdProcessInfoClick procedure cmdProcessInfoClick(Sender: TObject); Public/Published Select and process all items that are information only in the lstvAlerts list box.
cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); Public/Published -
cmdSaveListClick procedure cmdSaveListClick(Sender: TObject); Public/Published -
DupLastSSN function DupLastSSN(const DFN: string): Boolean; Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published
//KW
 Sort Alerts by last-used method for current user
Loaded procedure Loaded; override; Public -
lstFlagsClick procedure lstFlagsClick(Sender: TObject); Public/Published -
lstFlagsKeyDown procedure lstFlagsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
lstvAlertsColumnClick procedure lstvAlertsColumnClick(Sender: TObject; Column: TListColumn); Public/Published -
lstvAlertsCompare procedure lstvAlertsCompare(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer); Public/Published -
lstvAlertsDblClick procedure lstvAlertsDblClick(Sender: TObject); Public/Published -
lstvAlertsInfoTip procedure lstvAlertsInfoTip(Sender: TObject; Item: TListItem; var InfoTip: String); Public/Published -
lstvAlertsKeyDown procedure lstvAlertsKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published
//KW
 508: Allow non-sighted users to sort Notifications using Ctrl + <key>
 Numbers in case stmnt are ASCII values for character keys.
lstvAlertsMouseUp procedure lstvAlertsMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
lstvAlertsSelectItem procedure lstvAlertsSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); Public/Published -
pnlPtSelResize procedure pnlPtSelResize(Sender: TObject); Public/Published -
ReadyAlert procedure ReadyAlert; Private Hds7397- ge 2/6/6 sort and display date/time column correctly - as requested
ReformatAlertDateTime procedure ReformatAlertDateTime; Private -
RPLDisplay procedure RPLDisplay; Private -
SetCaptionTop procedure SetCaptionTop; Private Show patient list name, set top list to 'Select ...' if appropriate.
SetPtListTop procedure SetPtListTop(IEN: Int64); Private
List Source events: 

 Sets top items in patient list according to list source type and optional list source IEN.
SetupDemographicsForm procedure SetupDemographicsForm; Private -
ShowButts procedure ShowButts(ShowButts: Boolean); Public/Published -
ShowDisabledButtonTexts procedure ShowDisabledButtonTexts; Private -
ShowFlagInfo procedure ShowFlagInfo; Private -
ShowIDInfo procedure ShowIDInfo; Private -
WMReadyAlert procedure WMReadyAlert(var Message: TMessage); message UM_MISC; Private -

Referenced By (3)

Module (line) Referrer Type
fPtSel (119) frmPtSel Read
fPtSel (143) - Read
fPtSel (145) - Read