Class

TfrmODRad

Module

fODRad

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODRad = class(TfrmODBase)
  lblDrug: TLabel;
  cboProcedure: TORComboBox;
  cboAvailMod: TORComboBox;
  lblAvailMod: TLabel;
  cmdRemove: TButton;
  calRequestDate: TORDateBox;
  cboUrgency: TORComboBox;
  cboTransport: TORComboBox;
  cboCategory: TORComboBox;
  chkPreOp: TCheckBox;
  cboSubmit: TORComboBox;
  lstLastExam: TORListBox;
  lblHistory: TLabel;
  memHistory: TCaptionMemo;
  lstSelectMod: TORListBox;
  lblSelectMod: TLabel;
  lblRequestDate: TLabel;
  lblUrgency: TLabel;
  lblTransport: TLabel;
  lblCategory: TLabel;
  lblSubmit: TLabel;
  lblLastExam: TLabel;
  lblAskSubmit: TLabel;
  chkIsolation: TCheckBox;
  FRadCommonCombo: TORListBox;
  lblImType: TLabel;
  cboImType: TORComboBox;
  calPreOp: TORDateBox;
  lblPreOp: TLabel;
  pnlLeft: TORAutoPanel;
  pnlRight: TORAutoPanel;
  pnlHandR: TPanel;
  grpPregnant: TGroupBox;
  radPregnant: TRadioButton;
  radPregnantNo: TRadioButton;
  radPregnantUnknown: TRadioButton;
  lblReason: TLabel;
  txtReason: TCaptionEdit;
  pnlRightBase: TORAutoPanel;
  Submitlbl508: TVA508StaticText;
  VA508ComponentAccessibility1: TVA508ComponentAccessibility;
  VA508ComponentAccessibility2: TVA508ComponentAccessibility;
  procedure cboProcedureNeedData(Sender: TObject;
            const StartFrom: string; Direction, InsertAt: Integer);
  procedure cboAvailModMouseClick(Sender: TObject);
  procedure cmdRemoveClick(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure cboProcedureSelect(Sender: TObject);
  procedure SetModifierList;
  procedure cboCategoryChange(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure cboImTypeChange(Sender: TObject);
  procedure memHistoryExit(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure cboAvailModKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure calPreOpChange(Sender: TObject);
  procedure cmdAcceptClick(Sender: TObject);
  procedure cboProcedureExit(Sender: TObject);
  procedure cboImTypeExit(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure chkIsolationExit(Sender: TObject);
  procedure calPreOpExit(Sender: TObject);
  procedure cboImTypeDropDownClose(Sender: TObject);
  procedure pnlMessageExit(Sender: TObject);
  procedure VA508ComponentAccessibility1StateQuery(Sender: TObject;
    var Text: string);
  procedure pnlMessageMouseUp(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
private
  FLastRadID: string;
  FEditCopy: boolean;
  FPreOpDate: string;
  FEvtDelayDiv: string;
  FPredefineOrder: boolean;
  ImageTypeChanged : boolean;
  FFormFirstOpened: boolean;
  function NoPregnantSelection : Boolean;
  procedure ImageTypeChange;
  procedure FormFirstOpened(Sender: TObject);
  procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl);
protected
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
  procedure SetDefaultPregant;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
end;

DFM Objects


frmODRad : TfrmODRad
 ├memOrder : TCaptionMemo
 ├FRadCommonCombo : TORListBox
 ├pnlLeft : TORAutoPanel
 │ ├lblDrug : TLabel
 │ ├lblAvailMod : TLabel
 │ ├lblImType : TLabel
 │ ├lblSelectMod : TLabel
 │ ├cboImType : TORComboBox
 │ ├lstSelectMod : TORListBox
 │ ├cboProcedure : TORComboBox
 │ ├cboAvailMod : TORComboBox
 │ └cmdRemove : TButton
 ├pnlRightBase : TORAutoPanel
 │ ├pnlRight : TORAutoPanel
 │ │ ├lblRequestDate : TLabel
 │ │ ├lblUrgency : TLabel
 │ │ ├lblTransport : TLabel
 │ │ ├lblCategory : TLabel
 │ │ ├lblSubmit : TLabel
 │ │ ├lblLastExam : TLabel
 │ │ ├lblAskSubmit : TLabel
 │ │ ├lblPreOp : TLabel
 │ │ ├calPreOp : TORDateBox
 │ │ ├chkIsolation : TCheckBox
 │ │ ├calRequestDate : TORDateBox
 │ │ ├cboUrgency : TORComboBox
 │ │ ├cboTransport : TORComboBox
 │ │ ├cboCategory : TORComboBox
 │ │ ├chkPreOp : TCheckBox
 │ │ ├cboSubmit : TORComboBox
 │ │ ├lstLastExam : TORListBox
 │ │ ├grpPregnant : TGroupBox
 │ │ │ ├radPregnant : TRadioButton
 │ │ │ ├radPregnantNo : TRadioButton
 │ │ │ └radPregnantUnknown : TRadioButton
 │ │ └Submitlbl508 : TVA508StaticText
 │ └pnlHandR : TPanel
 │   ├lblHistory : TLabel
 │   ├lblReason : TLabel
 │   ├memHistory : TCaptionMemo
 │   └txtReason : TCaptionEdit
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 │ ├imgMessage : TImage
 │ └memMessage : TRichEdit
 ├amgrMain : TVA508AccessibilityManager
 ├VA508ComponentAccessibility1 : TVA508ComponentAccessibility
 └VA508ComponentAccessibility2 : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
calPreOp TORDateBox Public/Published -
calRequestDate TORDateBox Public/Published -
cboAvailMod TORComboBox Public/Published -
cboCategory TORComboBox Public/Published -
cboImType TORComboBox Public/Published -
cboProcedure TORComboBox Public/Published -
cboSubmit TORComboBox Public/Published -
cboTransport TORComboBox Public/Published -
cboUrgency TORComboBox Public/Published -
chkIsolation TCheckBox Public/Published -
chkPreOp TCheckBox Public/Published -
cmdRemove TButton Public/Published -
FEditCopy Boolean Private -
FEvtDelayDiv UnicodeString Private -
FFormFirstOpened Boolean Private -
FLastRadID UnicodeString Private -
FPredefineOrder Boolean Private -
FPreOpDate UnicodeString Private -
FRadCommonCombo TORListBox Public/Published -
grpPregnant TGroupBox Public/Published -
ImageTypeChanged Boolean Private -
lblAskSubmit TLabel Public/Published -
lblAvailMod TLabel Public/Published -
lblCategory TLabel Public/Published -
lblDrug TLabel Public/Published -
lblHistory TLabel Public/Published -
lblImType TLabel Public/Published -
lblLastExam TLabel Public/Published -
lblPreOp TLabel Public/Published -
lblReason TLabel Public/Published -
lblRequestDate TLabel Public/Published -
lblSelectMod TLabel Public/Published -
lblSubmit TLabel Public/Published -
lblTransport TLabel Public/Published -
lblUrgency TLabel Public/Published -
lstLastExam TORListBox Public/Published -
lstSelectMod TORListBox Public/Published -
memHistory TCaptionMemo Public/Published -
pnlHandR TPanel Public/Published -
pnlLeft TORAutoPanel Public/Published -
pnlRight TORAutoPanel Public/Published -
pnlRightBase TORAutoPanel Public/Published -
radPregnant TRadioButton Public/Published -
radPregnantNo TRadioButton Public/Published -
radPregnantUnknown TRadioButton Public/Published -
Submitlbl508 TVA508StaticText Public/Published -
txtReason TCaptionEdit Public/Published -
VA508ComponentAccessibility1 TVA508ComponentAccessibility Public/Published -
VA508ComponentAccessibility2 TVA508ComponentAccessibility Public/Published -

Methods

Name Declaration Scope Comments
calPreOpChange procedure calPreOpChange(Sender: TObject); Public/Published -
calPreOpExit procedure calPreOpExit(Sender: TObject); Public/Published -
cboAvailModKeyDown procedure cboAvailModKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboAvailModMouseClick procedure cboAvailModMouseClick(Sender: TObject); Public/Published -
cboCategoryChange procedure cboCategoryChange(Sender: TObject); Public/Published -
cboImTypeChange procedure cboImTypeChange(Sender: TObject); Public/Published
Assigned to cbolmType.OnDropDownClose and cbolmType.OnExit, instead of
 cbolmType.OnChange, becuase when it is OnChange the delay interfers with
 Window-Eyes ability to read the drop-down Items.
cboImTypeDropDownClose procedure cboImTypeDropDownClose(Sender: TObject); Public/Published -
cboImTypeExit procedure cboImTypeExit(Sender: TObject); Public/Published -
cboProcedureExit procedure cboProcedureExit(Sender: TObject); Public/Published -
cboProcedureNeedData procedure cboProcedureNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published -
cboProcedureSelect procedure cboProcedureSelect(Sender: TObject); Public/Published -
chkIsolationExit procedure chkIsolationExit(Sender: TObject); Public/Published -
cmdAcceptClick procedure cmdAcceptClick(Sender: TObject); Public/Published -
cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormFirstOpened procedure FormFirstOpened(Sender: TObject); Private -
FormResize procedure FormResize(Sender: TObject); Public/Published -
ImageTypeChange procedure ImageTypeChange; Private -
InitDialog procedure InitDialog; override; Protected -
memHistoryExit procedure memHistoryExit(Sender: TObject); Public/Published -
NoPregnantSelection function NoPregnantSelection : Boolean; Private -
pnlMessageExit procedure pnlMessageExit(Sender: TObject); Public/Published
TDP - Added to control where focus went now that pnlMessage was being focused
       out of turn after cboProcedure.
pnlMessageMouseUp procedure pnlMessageMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published
TDP - Added to control where focus went now that pnlMessage was being focused
       out of turn after cboProcedure.
SetDefaultPregant procedure SetDefaultPregant; Protected -
SetModifierList procedure SetModifierList; Public/Published -
setup508Label procedure setup508Label(text: string; lbl: TVA508StaticText; ctrl: TControl); Private TDP - CQ#19393 cboSubmit 508 changes. Can change in future to be generic if needed. (See fODLab.pas)
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public TfrmODBase common methods
VA508ComponentAccessibility1StateQuery procedure VA508ComponentAccessibility1StateQuery(Sender: TObject; var Text: string); Public/Published TDP - CQ#19393 Made history memobox read text
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (1)

Module (line) Referrer Type
uOrders (216) - Read