Class

TfrmODMedIn

Module

fODMedIn

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODMedIn = class(TfrmODBase)
  lblMedication: TLabel;
  cboMedication: TORComboBox;
  lblDosage: TLabel;
  lblRoute: TLabel;
  cboRoute: TORComboBox;
  lblSchedule: TLabel;
  cboSchedule: TORComboBox;
  Label5: TLabel;
  cboDispense: TORComboBox;
  lblComments: TLabel;
  memComments: TMemo;
  lblPriority: TLabel;
  cboPriority: TORComboBox;
  txtDosage: TCaptionEdit;
  Bevel1: TBevel;
  cboMedAlt: TORComboBox;
  procedure cboMedicationNeedData(Sender: TObject; const StartFrom: string;
    Direction, InsertAt: Integer);
  procedure cboMedicationSelect(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure cboDispenseExit(Sender: TObject);
  procedure cboDispenseMouseClick(Sender: TObject);
private
  { Private declarations }
  FLastDrug: Integer;
  FLastMedID: string;
  FDispenseMsg: string;
  FMedCombo: TORComboBox;
  procedure CheckFormAlt;
  procedure ResetOnMedChange;
  procedure SetAltCombo;
  procedure SetOnOISelect;
protected
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
end;

DFM Objects


frmODMedIn : TfrmODMedIn
 ├lblMedication : TLabel
 ├lblDosage : TLabel
 ├lblRoute : TLabel
 ├lblSchedule : TLabel
 ├Label5 : TLabel
 ├lblComments : TLabel
 ├lblPriority : TLabel
 ├Bevel1 : TBevel
 ├cboDispense : TORComboBox
 ├cboMedication : TORComboBox
 ├memOrder : TCaptionMemo
 ├cmdAccept : TButton
 ├cboRoute : TORComboBox
 ├cboSchedule : TORComboBox
 ├memComments : TMemo
 ├cboPriority : TORComboBox
 ├txtDosage : TCaptionEdit
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 ├cboMedAlt : TORComboBox
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
cboDispense TORComboBox Public/Published -
cboMedAlt TORComboBox Public/Published -
cboMedication TORComboBox Public/Published -
cboPriority TORComboBox Public/Published -
cboRoute TORComboBox Public/Published -
cboSchedule TORComboBox Public/Published -
FDispenseMsg UnicodeString Private -
FLastDrug Integer Private Private declarations
FLastMedID UnicodeString Private -
FMedCombo TORComboBox Private -
Label5 TLabel Public/Published -
lblComments TLabel Public/Published -
lblDosage TLabel Public/Published -
lblMedication TLabel Public/Published -
lblPriority TLabel Public/Published -
lblRoute TLabel Public/Published -
lblSchedule TLabel Public/Published -
memComments TMemo Public/Published -
txtDosage TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
cboDispenseExit procedure cboDispenseExit(Sender: TObject); Public/Published -
cboDispenseMouseClick procedure cboDispenseMouseClick(Sender: TObject); Public/Published -
cboMedicationNeedData procedure cboMedicationNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published Retrieves a subset of inpatient medication orderable items
cboMedicationSelect procedure cboMedicationSelect(Sender: TObject); Public/Published Sets related controls whenever orderable item changes (MouseClick or Exit)
CheckFormAlt procedure CheckFormAlt; Private CboDispense methods
ControlChange procedure ControlChange(Sender: TObject); Public/Published All controls
FormCreate procedure FormCreate(Sender: TObject); Public/Published TfrmODBase common methods
InitDialog procedure InitDialog; override; Protected -
ResetOnMedChange procedure ResetOnMedChange; Private CboMedication methods
SetAltCombo procedure SetAltCombo; Private -
SetOnOISelect procedure SetOnOISelect; Private -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (1)

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