Class

TfrmODMedOut

Module

fODMedOut

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODMedOut = class(TfrmODBase)
  lblMedication: TLabel;
  cboMedication: TORComboBox;
  lblDosage: TLabel;
  lblRoute: TLabel;
  cboRoute: TORComboBox;
  lblSchedule: TLabel;
  cboSchedule: TORComboBox;
  lblDispense: TLabel;
  cboDispense: TORComboBox;
  memComments: TMemo;
  cboPriority: TORComboBox;
  Bevel1: TBevel;
  cboMedAlt: TORComboBox;
  cboInstructions: TORComboBox;
  lblQuantity: TLabel;
  cboPickup: TORComboBox;
  lblPickup: TLabel;
  cboSC: TORComboBox;
  lblSC: TLabel;
  lblRefills: TLabel;
  txtQuantity: TCaptionEdit;
  lblComment: TLabel;
  lblPriority: TLabel;
  txtRefills: TCaptionEdit;
  spnRefills: TUpDown;
  cmdComplex: TButton;
  btnUnits: TSpeedButton;
  txtSIG: TCaptionEdit;
  lblSIG: TLabel;
  popUnits: TPopupMenu;
  memComplex: TMemo;
  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);
  procedure cboSCEnter(Sender: TObject);
  procedure txtQuantityEnter(Sender: TObject);
  procedure btnUnitsClick(Sender: TObject);
  procedure cmdComplexClick(Sender: TObject);
  procedure memCommentsEnter(Sender: TObject);
private
  { Private declarations }
  FLastDrug: Integer;
  FLastMedID: string;
  FDispenseMsg: string;
  FMedCombo: TORComboBox;
  procedure CheckFormAlt;
  procedure ResetOnMedChange;
  procedure SetAskSC;
  procedure SetAltCombo;
  procedure SetInstructions;
  procedure SetOnOISelect;
  procedure SetMaxRefills;
  procedure SetupNouns;
  procedure SetComplex;
  procedure SetSimple;
  procedure UnitClick(Sender: TObject);
protected
  procedure InitDialog; override;
  procedure Validate(var AnErrMsg: string); override;
public
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
end;

DFM Objects


frmODMedOut : TfrmODMedOut
 ├lblMedication : TLabel
 ├lblDosage : TLabel
 ├lblRoute : TLabel
 ├lblSchedule : TLabel
 ├lblDispense : TLabel
 ├Bevel1 : TBevel
 ├lblQuantity : TLabel
 ├lblPickup : TLabel
 ├lblSC : TLabel
 ├lblRefills : TLabel
 ├lblComment : TLabel
 ├lblPriority : TLabel
 ├btnUnits : TSpeedButton
 ├lblSIG : TLabel
 ├memComplex : TMemo
 ├txtSIG : TCaptionEdit
 ├cboDispense : TORComboBox
 ├cboMedication : TORComboBox
 ├memOrder : TCaptionMemo
 ├cboRoute : TORComboBox
 ├cboSchedule : TORComboBox
 ├memComments : TMemo
 ├cboPriority : TORComboBox
 ├cboMedAlt : TORComboBox
 ├cboInstructions : TORComboBox
 ├cboPickup : TORComboBox
 ├cboSC : TORComboBox
 ├txtQuantity : TCaptionEdit
 ├txtRefills : TCaptionEdit
 ├spnRefills : TUpDown
 ├cmdComplex : TButton
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 ├amgrMain : TVA508AccessibilityManager
 └popUnits : TPopupMenu

Class Hierarchy


Class Fields

Name Type Scope Comments
Bevel1 TBevel Public/Published -
btnUnits TSpeedButton Public/Published -
cboDispense TORComboBox Public/Published -
cboInstructions TORComboBox Public/Published -
cboMedAlt TORComboBox Public/Published -
cboMedication TORComboBox Public/Published -
cboPickup TORComboBox Public/Published -
cboPriority TORComboBox Public/Published -
cboRoute TORComboBox Public/Published -
cboSC TORComboBox Public/Published -
cboSchedule TORComboBox Public/Published -
cmdComplex TButton Public/Published -
FDispenseMsg UnicodeString Private -
FLastDrug Integer Private Private declarations
FLastMedID UnicodeString Private -
FMedCombo TORComboBox Private -
lblComment TLabel Public/Published -
lblDispense TLabel Public/Published -
lblDosage TLabel Public/Published -
lblMedication TLabel Public/Published -
lblPickup TLabel Public/Published -
lblPriority TLabel Public/Published -
lblQuantity TLabel Public/Published -
lblRefills TLabel Public/Published -
lblRoute TLabel Public/Published -
lblSC TLabel Public/Published -
lblSchedule TLabel Public/Published -
lblSIG TLabel Public/Published -
memComments TMemo Public/Published -
memComplex TMemo Public/Published -
popUnits TPopupMenu Public/Published -
spnRefills TUpDown Public/Published -
txtQuantity TCaptionEdit Public/Published -
txtRefills TCaptionEdit Public/Published -
txtSIG TCaptionEdit Public/Published -

Methods

Name Declaration Scope Comments
btnUnitsClick procedure btnUnitsClick(Sender: TObject); Public/Published -
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)
cboSCEnter procedure cboSCEnter(Sender: TObject); Public/Published -
CheckFormAlt procedure CheckFormAlt; Private CboDispense methods
cmdComplexClick procedure cmdComplexClick(Sender: TObject); Public/Published -
ControlChange procedure ControlChange(Sender: TObject); Public/Published All controls
FormCreate procedure FormCreate(Sender: TObject); Public/Published TfrmODBase common methods
InitDialog procedure InitDialog; override; Protected -
memCommentsEnter procedure memCommentsEnter(Sender: TObject); Public/Published Comments
ResetOnMedChange procedure ResetOnMedChange; Private CboMedication methods
SetAltCombo procedure SetAltCombo; Private -
SetAskSC procedure SetAskSC; Private Service connection
SetComplex procedure SetComplex; Private -
SetInstructions procedure SetInstructions; Private -
SetMaxRefills procedure SetMaxRefills; Private -
SetOnOISelect procedure SetOnOISelect; Private -
SetSimple procedure SetSimple; Private -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
SetupNouns procedure SetupNouns; Private Dosage instructions
txtQuantityEnter procedure txtQuantityEnter(Sender: TObject); Public/Published Quantity
UnitClick procedure UnitClick(Sender: TObject); Private -
Validate procedure Validate(var AnErrMsg: string); override; Protected -

Referenced By (1)

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