Class

TfrmODMedIV

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmODBase

Declaration


TfrmODMedIV = class(TfrmODBase)
  lblInfusionRate: TLabel;
  txtRate: TCaptionEdit;
  lblComponent: TLabel;
  lblAmount: TLabel;
  grdSelected: TCaptionStringGrid;
  cmdRemove: TButton;
  lblComments: TLabel;
  memComments: TCaptionMemo;
  txtSelected: TCaptionEdit;
  cboSelected: TCaptionComboBox;
  pnlXDuration: TPanel;
  txtXDuration: TCaptionEdit;
  lblLimit: TLabel;
  pnlCombo: TPanel;
  cboAdditive: TORComboBox;
  tabFluid: TTabControl;
  cboSolution: TORComboBox;
  lblPriority: TLabel;
  cboPriority: TORComboBox;
  Label1: TLabel;
  cboRoute: TORComboBox;
  cboSchedule: TORComboBox;
  lblRoute: TLabel;
  lblSchedule: TLabel;
  cboType: TComboBox;
  lblType: TLabel;
  chkPRN: TCheckBox;
  txtNSS: TLabel;
  chkDoseNow: TCheckBox;
  cboInfusionTime: TComboBox;
  cboDuration: TComboBox;
  lblAdminTime: TVA508StaticText;
  lblFirstDose: TVA508StaticText;
  txtAllIVRoutes: TLabel;
  lblTypeHelp: TLabel;
  cboAddFreq: TCaptionComboBox;
  lblAddFreq: TLabel;
  lblPrevAddFreq: TLabel;
  lbl508Required: TVA508StaticText;
  VA508CompOrderSig: TVA508ComponentAccessibility;
  VA508CompRoute: TVA508ComponentAccessibility;
  VA508CompType: TVA508ComponentAccessibility;
  VA508CompSchedule: TVA508ComponentAccessibility;
  VA508CompGrdSelected: TVA508ComponentAccessibility;
  procedure FormCreate(Sender: TObject);
  procedure tabFluidChange(Sender: TObject);
  procedure  cboAdditiveNeedData(Sender: TObject; const StartFrom: string; Direction,
    InsertAt: Integer);
  procedure cboSolutionNeedData(Sender: TObject; const StartFrom: string; Direction,
    InsertAt: Integer);
  procedure cboAdditiveMouseClick(Sender: TObject);
  procedure cboAdditiveExit(Sender: TObject);
  procedure cboSolutionMouseClick(Sender: TObject);
  procedure cboSolutionExit(Sender: TObject);
  procedure FormDestroy(Sender: TObject);
  procedure cmdRemoveClick(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure txtSelectedExit(Sender: TObject);
  procedure ControlChange(Sender: TObject);
  procedure txtSelectedChange(Sender: TObject);
  procedure grdSelectedDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
    State: TGridDrawState);
  procedure FormKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure grdSelectedKeyPress(Sender: TObject; var Key: Char);
  procedure grdSelectedMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure txtXDurationChange(Sender: TObject);
  procedure pnlXDurationEnter(Sender: TObject);
  procedure txtXDurationExit(Sender: TObject);
  procedure cboScheduleChange(Sender: TObject);
  procedure cboTypeChange(Sender: TObject);
  procedure cboRouteChange(Sender: TObject);
  procedure txtRateChange(Sender: TObject);
  procedure cboPriorityChange(Sender: TObject);
  procedure cboPriorityExit(Sender: TObject);
  procedure cboRouteExit(Sender: TObject);
  procedure txtNSSClick(Sender: TObject);
  procedure cboScheduleClick(Sender: TObject);
  procedure chkPRNClick(Sender: TObject);
  procedure chkDoseNowClick(Sender: TObject);
  procedure loadExpectFirstDose;
  procedure SetSchedule(const x: string);
  procedure cboScheduleExit(Sender: TObject);
  procedure cboInfusionTimeChange(Sender: TObject);
  procedure cboDurationChange(Sender: TObject);
  procedure cboDurationEnter(Sender: TObject);
  procedure cboInfusionTimeEnter(Sender: TObject);
  procedure txtAllIVRoutesClick(Sender: TObject);
  procedure cboRouteClick(Sender: TObject);
  procedure lblTypeHelpClick(Sender: TObject);
  procedure cboSelectedCloseUp(Sender: TObject);
  procedure cboRouteKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure cboScheduleKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboPriorityKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboAddFreqKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboAddFreqCloseUp(Sender: TObject);
  procedure FormKeyPress(Sender: TObject; var Key: Char);
  procedure txtSelectedKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboSelectedKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboTypeKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboRouteKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure cboScheduleKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure VA508CompOrderSigStateQuery(Sender: TObject; var Text: string);
  procedure VA508CompRouteInstructionsQuery(Sender: TObject;
    var Text: string);
  procedure VA508CompTypeInstructionsQuery(Sender: TObject; var Text: string);
  procedure VA508CompScheduleInstructionsQuery(Sender: TObject;
    var Text: string);
  procedure VA508CompGrdSelectedCaptionQuery(Sender: TObject;
    var Text: string);
private
  FInpatient: Boolean;
  FNSSAdminTime: string;
  FNSSScheduleType: string;
  OSolIEN: integer;
  OAddIEN: integer;
  OSchedule: string;
  oAdmin: string;
  OrderIEN: string;
  FAdminTimeText: string;
  JAWSON: boolean;
  FOriginalDurationType: integer;
  FOriginalInfusionType: integer;
  FIVTypeDefined: boolean;
  //FInitialOrderID: boolean;
  procedure SetValuesFromResponses;
  procedure DoSetFontSize( FontSize: integer);
  procedure ClickOnGridCell;
  procedure SetLimitationControl(aValue: string);
  function CreateOtherSchedule: string;
  function CreateOtherRoute: string;
  procedure UpdateRoute;
  procedure DisplayDoseNow(Status: boolean);
  procedure UpdateDuration(SchType: string);
  procedure ClearAllFields;
  function UpdateAddFreq(OI: integer): string;
  function IsAltCtrl_L_Pressed(Shift : TShiftState; Key : Word) : Boolean;
  procedure SetCtrlAlt_L_LabelAccessText(var Text: string; theLabel : TLabel);
public
  OrdAction: integer;
  procedure InitDialog; override;
  procedure SetupDialog(OrderAction: Integer; const ID: string); override;
  procedure Validate(var AnErrMsg: string); override;
  procedure SetFontSize( FontSize: integer); override;
  function ValidateInfusionRate(Rate: string): string;
  function IVTypeHelpText: string;
  property NSSAdminTime: string read FNSSAdminTime write FNSSAdminTime;
  property NSSScheduleType: string read FNSSScheduleType write FNSSScheduleType;
end;

DFM Objects


frmODMedIV : TfrmODMedIV
 ├lblInfusionRate : TLabel
 ├lblPriority : TLabel
 ├lblComponent : TLabel
 ├lblAmount : TLabel
 ├lblComments : TLabel
 ├lblLimit : TLabel
 ├Label1 : TLabel
 ├lblRoute : TLabel
 ├lblSchedule : TLabel
 ├lblType : TLabel
 ├txtNSS : TLabel
 ├txtAllIVRoutes : TLabel
 ├lblTypeHelp : TLabel
 ├lblAddFreq : TLabel
 ├lblPrevAddFreq : TLabel
 ├txtRate : TCaptionEdit
 ├cboPriority : TORComboBox
 ├grdSelected : TCaptionStringGrid
 ├cmdRemove : TButton
 ├memComments : TCaptionMemo
 ├txtSelected : TCaptionEdit
 ├cboSelected : TCaptionComboBox
 ├memOrder : TCaptionMemo
 ├pnlXDuration : TPanel
 │ ├txtXDuration : TCaptionEdit
 │ └cboDuration : TComboBox
 ├pnlCombo : TPanel
 │ ├cboAdditive : TORComboBox
 │ ├tabFluid : TTabControl
 │ └cboSolution : TORComboBox
 ├cboRoute : TORComboBox
 ├cboSchedule : TORComboBox
 ├cboType : TComboBox
 ├chkPRN : TCheckBox
 ├chkDoseNow : TCheckBox
 ├cboInfusionTime : TComboBox
 ├lblAdminTime : TVA508StaticText
 ├lblFirstDose : TVA508StaticText
 ├cboAddFreq : TCaptionComboBox
 ├cmdAccept : TButton
 ├cmdQuit : TButton
 ├pnlMessage : TPanel
 ├lbl508Required : TVA508StaticText
 ├amgrMain : TVA508AccessibilityManager
 ├VA508CompOrderSig : TVA508ComponentAccessibility
 ├VA508CompRoute : TVA508ComponentAccessibility
 ├VA508CompType : TVA508ComponentAccessibility
 ├VA508CompSchedule : TVA508ComponentAccessibility
 └VA508CompGrdSelected : TVA508ComponentAccessibility

Class Hierarchy


Class Fields

Name Type Scope Comments
cboAddFreq Simple (unknown) Public/Published -
cboAdditive TORComboBox Public/Published -
cboDuration TComboBox Public/Published -
cboInfusionTime TComboBox Public/Published -
cboPriority TORComboBox Public/Published -
cboRoute TORComboBox Public/Published -
cboSchedule TORComboBox Public/Published -
cboSelected Simple (unknown) Public/Published -
cboSolution TORComboBox Public/Published -
cboType TComboBox Public/Published -
chkDoseNow TCheckBox Public/Published -
chkPRN TCheckBox Public/Published -
cmdRemove TButton Public/Published -
FAdminTimeText UnicodeString Private -
FInpatient Boolean Private -
FIVTypeDefined Boolean Private -
FNSSAdminTime UnicodeString Private -
FNSSScheduleType UnicodeString Private -
FOriginalDurationType Integer Private -
FOriginalInfusionType Integer Private -
grdSelected TCaptionStringGrid Public/Published -
JAWSON Boolean Private -
Label1 TLabel Public/Published -
lbl508Required TVA508StaticText Public/Published -
lblAddFreq TLabel Public/Published -
lblAdminTime TVA508StaticText Public/Published -
lblAmount TLabel Public/Published -
lblComments TLabel Public/Published -
lblComponent TLabel Public/Published -
lblFirstDose TVA508StaticText Public/Published -
lblInfusionRate TLabel Public/Published -
lblLimit TLabel Public/Published -
lblPrevAddFreq TLabel Public/Published -
lblPriority TLabel Public/Published -
lblRoute TLabel Public/Published -
lblSchedule TLabel Public/Published -
lblType TLabel Public/Published -
lblTypeHelp TLabel Public/Published -
memComments TCaptionMemo Public/Published -
OAddIEN Integer Private -
oAdmin UnicodeString Private -
OrdAction Integer Public -
OrderIEN UnicodeString Private -
OSchedule UnicodeString Private -
OSolIEN Integer Private -
pnlCombo TPanel Public/Published -
pnlXDuration TPanel Public/Published -
tabFluid Simple (unknown) Public/Published -
txtAllIVRoutes TLabel Public/Published -
txtNSS TLabel Public/Published -
txtRate TCaptionEdit Public/Published -
txtSelected TCaptionEdit Public/Published -
txtXDuration TCaptionEdit Public/Published -
VA508CompGrdSelected TVA508ComponentAccessibility Public/Published -
VA508CompOrderSig TVA508ComponentAccessibility Public/Published -
VA508CompRoute TVA508ComponentAccessibility Public/Published -
VA508CompSchedule TVA508ComponentAccessibility Public/Published -
VA508CompType TVA508ComponentAccessibility Public/Published -

Properties

Name Type Scope Comments
NSSAdminTime UnicodeString Public -
NSSScheduleType UnicodeString Public -

Methods

Name Declaration Scope Comments
cboAddFreqCloseUp procedure cboAddFreqCloseUp(Sender: TObject); Public/Published -
cboAddFreqKeyDown procedure cboAddFreqKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboAdditiveExit procedure cboAdditiveExit(Sender: TObject); Public/Published -
cboAdditiveMouseClick procedure cboAdditiveMouseClick(Sender: TObject); Public/Published -
cboAdditiveNeedData procedure cboAdditiveNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published CboAdditive events
cboDurationChange procedure cboDurationChange(Sender: TObject); Public/Published -
cboDurationEnter procedure cboDurationEnter(Sender: TObject); Public/Published -
cboInfusionTimeChange procedure cboInfusionTimeChange(Sender: TObject); Public/Published -
cboInfusionTimeEnter procedure cboInfusionTimeEnter(Sender: TObject); Public/Published -
cboPriorityChange procedure cboPriorityChange(Sender: TObject); Public/Published -
cboPriorityExit procedure cboPriorityExit(Sender: TObject); Public/Published -
cboPriorityKeyUp procedure cboPriorityKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboRouteChange procedure cboRouteChange(Sender: TObject); Public/Published -
cboRouteClick procedure cboRouteClick(Sender: TObject); Public/Published -
cboRouteExit procedure cboRouteExit(Sender: TObject); Public/Published -
cboRouteKeyDown procedure cboRouteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboRouteKeyUp procedure cboRouteKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboScheduleChange procedure cboScheduleChange(Sender: TObject); Public/Published -
cboScheduleClick procedure cboScheduleClick(Sender: TObject); Public/Published -
cboScheduleExit procedure cboScheduleExit(Sender: TObject); Public/Published -
cboScheduleKeyDown procedure cboScheduleKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboScheduleKeyUp procedure cboScheduleKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboSelectedCloseUp procedure cboSelectedCloseUp(Sender: TObject); Public/Published -
cboSelectedKeyDown procedure cboSelectedKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
cboSolutionExit procedure cboSolutionExit(Sender: TObject); Public/Published -
cboSolutionMouseClick procedure cboSolutionMouseClick(Sender: TObject); Public/Published -
cboSolutionNeedData procedure cboSolutionNeedData(Sender: TObject; const StartFrom: string; Direction, InsertAt: Integer); Public/Published CboSolution events
cboTypeChange procedure cboTypeChange(Sender: TObject); Public/Published -
cboTypeKeyDown procedure cboTypeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
chkDoseNowClick procedure chkDoseNowClick(Sender: TObject); Public/Published SchID: integer;
chkPRNClick procedure chkPRNClick(Sender: TObject); Public/Published -
ClearAllFields procedure ClearAllFields; Private GrdSelected events
ClickOnGridCell procedure ClickOnGridCell; Private -
cmdRemoveClick procedure cmdRemoveClick(Sender: TObject); Public/Published Remove button for grid
ControlChange procedure ControlChange(Sender: TObject); Public/Published Update Responses & Create Order Text
CreateOtherRoute function CreateOtherRoute: string; Private -
CreateOtherSchedule function CreateOtherSchedule: string; Private -
DisplayDoseNow procedure DisplayDoseNow(Status: boolean); Private -
DoSetFontSize procedure DoSetFontSize( FontSize: integer); Private -
FormCreate procedure FormCreate(Sender: TObject); Public/Published Form methods
FormDestroy procedure FormDestroy(Sender: TObject); Public/Published -
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormKeyPress procedure FormKeyPress(Sender: TObject; var Key: Char); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
grdSelectedDrawCell procedure grdSelectedDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published -
grdSelectedKeyPress procedure grdSelectedKeyPress(Sender: TObject; var Key: Char); Public/Published -
grdSelectedMouseDown procedure grdSelectedMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
InitDialog procedure InitDialog; override; Public TfrmODBase overrides
IsAltCtrl_L_Pressed function IsAltCtrl_L_Pressed(Shift : TShiftState; Key : Word) : Boolean; Private -
IVTypeHelpText function IVTypeHelpText: string; Public -
lblTypeHelpClick procedure lblTypeHelpClick(Sender: TObject); Public/Published -
loadExpectFirstDose procedure loadExpectFirstDose; Public/Published -
pnlXDurationEnter procedure pnlXDurationEnter(Sender: TObject); Public/Published -
SetCtrlAlt_L_LabelAccessText procedure SetCtrlAlt_L_LabelAccessText(var Text: string; theLabel : TLabel); Private -
SetFontSize procedure SetFontSize( FontSize: integer); override; Public -
SetLimitationControl procedure SetLimitationControl(aValue: string); Private -
SetSchedule procedure SetSchedule(const x: string); Public/Published -
SetupDialog procedure SetupDialog(OrderAction: Integer; const ID: string); override; Public -
SetValuesFromResponses procedure SetValuesFromResponses; Private FInitialOrderID: boolean;
tabFluidChange procedure tabFluidChange(Sender: TObject); Public/Published TabFluid events
txtAllIVRoutesClick procedure txtAllIVRoutesClick(Sender: TObject); Public/Published -
txtNSSClick procedure txtNSSClick(Sender: TObject); Public/Published -
txtRateChange procedure txtRateChange(Sender: TObject); Public/Published -
txtSelectedChange procedure txtSelectedChange(Sender: TObject); Public/Published Text editor for grid
txtSelectedExit procedure txtSelectedExit(Sender: TObject); Public/Published -
txtSelectedKeyDown procedure txtSelectedKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
txtXDurationChange procedure txtXDurationChange(Sender: TObject); Public/Published -
txtXDurationExit procedure txtXDurationExit(Sender: TObject); Public/Published -
UpdateAddFreq function UpdateAddFreq(OI: integer): string; Private -
UpdateDuration procedure UpdateDuration(SchType: string); Private -
UpdateRoute procedure UpdateRoute; Private Default: boolean;
VA508CompGrdSelectedCaptionQuery procedure VA508CompGrdSelectedCaptionQuery(Sender: TObject; var Text: string); Public/Published -
VA508CompOrderSigStateQuery procedure VA508CompOrderSigStateQuery(Sender: TObject; var Text: string); Public/Published -
VA508CompRouteInstructionsQuery procedure VA508CompRouteInstructionsQuery(Sender: TObject; var Text: string); Public/Published -
VA508CompScheduleInstructionsQuery procedure VA508CompScheduleInstructionsQuery(Sender: TObject; var Text: string); Public/Published -
VA508CompTypeInstructionsQuery procedure VA508CompTypeInstructionsQuery(Sender: TObject; var Text: string); Public/Published -
Validate procedure Validate(var AnErrMsg: string); override; Public -
ValidateInfusionRate function ValidateInfusionRate(Rate: string): string; Public -

Referenced By (2)

Module (line) Referrer Type
fODMedIV (172) frmODMedIV Read
uOrders (204) - Read