583 lines
13 KiB
Plaintext
583 lines
13 KiB
Plaintext
inherited frmODMedIV: TfrmODMedIV
|
|
Left = 246
|
|
Top = 256
|
|
Width = 668
|
|
Height = 465
|
|
Caption = 'Infusion Order'
|
|
Constraints.MinHeight = 350
|
|
Constraints.MinWidth = 500
|
|
ExplicitWidth = 668
|
|
ExplicitHeight = 465
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblInfusionRate: TLabel [0]
|
|
Left = 486
|
|
Top = 197
|
|
Width = 100
|
|
Height = 13
|
|
Caption = 'Infusion Rate (ml/hr)*'
|
|
end
|
|
object lblPriority: TLabel [1]
|
|
Left = 8
|
|
Top = 238
|
|
Width = 35
|
|
Height = 13
|
|
Caption = 'Priority*'
|
|
end
|
|
object lblComponent: TLabel [2]
|
|
Left = 214
|
|
Top = 7
|
|
Width = 85
|
|
Height = 13
|
|
Caption = 'Solution/Additive*'
|
|
end
|
|
object lblAmount: TLabel [3]
|
|
Left = 328
|
|
Top = 7
|
|
Width = 84
|
|
Height = 13
|
|
Caption = 'Volume/Strength*'
|
|
WordWrap = True
|
|
end
|
|
object lblComments: TLabel [4]
|
|
Left = 214
|
|
Top = 107
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Comments'
|
|
end
|
|
object lblLimit: TLabel [5]
|
|
Left = 185
|
|
Top = 238
|
|
Width = 165
|
|
Height = 13
|
|
Caption = 'Duration or Total Volume (Optional)'
|
|
end
|
|
object Label1: TLabel [6]
|
|
Left = 8
|
|
Top = 344
|
|
Width = 133
|
|
Height = 13
|
|
Caption = ' * Indicates a Required Field'
|
|
end
|
|
object lblRoute: TLabel [7]
|
|
Left = 8
|
|
Top = 197
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'Route*'
|
|
end
|
|
object lblSchedule: TLabel [8]
|
|
Left = 304
|
|
Top = 197
|
|
Width = 52
|
|
Height = 13
|
|
Caption = 'Schedule *'
|
|
end
|
|
object lblType: TLabel [9]
|
|
Left = 184
|
|
Top = 197
|
|
Width = 28
|
|
Height = 13
|
|
Caption = 'Type*'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
end
|
|
object txtNSS: TLabel [10]
|
|
Left = 361
|
|
Top = 197
|
|
Width = 69
|
|
Height = 13
|
|
Caption = '(Day-of-Week)'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
OnClick = txtNSSClick
|
|
end
|
|
object txtAllIVRoutes: TLabel [11]
|
|
Left = 47
|
|
Top = 197
|
|
Width = 129
|
|
Height = 13
|
|
Caption = '(Expanded Med Route List)'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Visible = False
|
|
OnClick = txtAllIVRoutesClick
|
|
end
|
|
object lblTypeHelp: TLabel [12]
|
|
Left = 219
|
|
Top = 197
|
|
Width = 68
|
|
Height = 13
|
|
Caption = '(IV Type Help)'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
OnClick = lblTypeHelpClick
|
|
end
|
|
object txtRate: TCaptionEdit [13]
|
|
Left = 486
|
|
Top = 211
|
|
Width = 91
|
|
Height = 21
|
|
AutoSelect = False
|
|
TabOrder = 8
|
|
OnChange = txtRateChange
|
|
Caption = 'Infusion Rate'
|
|
end
|
|
object cboPriority: TORComboBox [14]
|
|
Left = 8
|
|
Top = 252
|
|
Width = 72
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Priority'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 10
|
|
OnChange = cboPriorityChange
|
|
OnExit = cboPriorityExit
|
|
CharsNeedMatch = 1
|
|
end
|
|
object grdSelected: TCaptionStringGrid [15]
|
|
Left = 214
|
|
Top = 21
|
|
Width = 437
|
|
Height = 76
|
|
ColCount = 3
|
|
DefaultColWidth = 100
|
|
DefaultRowHeight = 19
|
|
FixedCols = 0
|
|
RowCount = 1
|
|
FixedRows = 0
|
|
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
|
|
ScrollBars = ssVertical
|
|
TabOrder = 1
|
|
OnDrawCell = grdSelectedDrawCell
|
|
OnKeyPress = grdSelectedKeyPress
|
|
OnMouseDown = grdSelectedMouseDown
|
|
Caption = 'Selected Solution and Additives'
|
|
end
|
|
object cmdRemove: TButton [16]
|
|
Left = 443
|
|
Top = 100
|
|
Width = 72
|
|
Height = 18
|
|
Caption = 'Remove'
|
|
TabOrder = 2
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
object memComments: TCaptionMemo [17]
|
|
Left = 214
|
|
Top = 121
|
|
Width = 437
|
|
Height = 66
|
|
Lines.Strings = (
|
|
'memComments')
|
|
ScrollBars = ssVertical
|
|
TabOrder = 13
|
|
OnChange = ControlChange
|
|
Caption = 'Comments'
|
|
end
|
|
object txtSelected: TCaptionEdit [18]
|
|
Tag = -1
|
|
Left = 416
|
|
Top = 45
|
|
Width = 45
|
|
Height = 19
|
|
Ctl3D = False
|
|
ParentCtl3D = False
|
|
TabOrder = 0
|
|
Text = 'meq.'
|
|
Visible = False
|
|
OnChange = txtSelectedChange
|
|
OnExit = txtSelectedExit
|
|
Caption = 'Volume'
|
|
end
|
|
object cboSelected: TCaptionComboBox [19]
|
|
Tag = -1
|
|
Left = 460
|
|
Top = 45
|
|
Width = 53
|
|
Height = 21
|
|
Style = csDropDownList
|
|
Ctl3D = False
|
|
ItemHeight = 13
|
|
ParentCtl3D = False
|
|
TabOrder = 4
|
|
Visible = False
|
|
OnChange = cboSelectedChange
|
|
OnExit = cboSelectedExit
|
|
Caption = 'Volume/Strength'
|
|
end
|
|
inherited memOrder: TCaptionMemo
|
|
Top = 359
|
|
Width = 475
|
|
TabStop = True
|
|
TabOrder = 16
|
|
ExplicitTop = 359
|
|
ExplicitWidth = 475
|
|
end
|
|
object pnlXDuration: TPanel [21]
|
|
Left = 184
|
|
Top = 252
|
|
Width = 150
|
|
Height = 21
|
|
BevelOuter = bvNone
|
|
TabOrder = 11
|
|
OnEnter = pnlXDurationEnter
|
|
object txtXDuration: TCaptionEdit
|
|
Left = 0
|
|
Top = 0
|
|
Width = 68
|
|
Height = 21
|
|
TabOrder = 0
|
|
OnChange = txtXDurationChange
|
|
OnExit = txtXDurationExit
|
|
Caption = 'Duration'
|
|
end
|
|
object cboDuration: TComboBox
|
|
Left = 70
|
|
Top = 0
|
|
Width = 75
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 2
|
|
OnChange = cboDurationChange
|
|
OnEnter = cboDurationEnter
|
|
end
|
|
end
|
|
object pnlCombo: TPanel [22]
|
|
Left = 8
|
|
Top = 2
|
|
Width = 200
|
|
Height = 185
|
|
BevelOuter = bvNone
|
|
TabOrder = 25
|
|
object cboAdditive: TORComboBox
|
|
Left = 0
|
|
Top = 20
|
|
Width = 200
|
|
Height = 165
|
|
Style = orcsSimple
|
|
Align = alClient
|
|
AutoSelect = True
|
|
Caption = 'Additives'
|
|
Color = clWindow
|
|
DropDownCount = 11
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabPositions = '20'
|
|
TabOrder = 0
|
|
OnExit = cboAdditiveExit
|
|
OnMouseClick = cboAdditiveMouseClick
|
|
OnNeedData = cboAdditiveNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object tabFluid: TTabControl
|
|
Left = 0
|
|
Top = 0
|
|
Width = 200
|
|
Height = 20
|
|
Align = alTop
|
|
TabHeight = 15
|
|
TabOrder = 2
|
|
Tabs.Strings = (
|
|
' Solutions '
|
|
' Additives ')
|
|
TabIndex = 0
|
|
TabStop = False
|
|
OnChange = tabFluidChange
|
|
end
|
|
object cboSolution: TORComboBox
|
|
Left = 0
|
|
Top = 20
|
|
Width = 200
|
|
Height = 165
|
|
Style = orcsSimple
|
|
Align = alClient
|
|
AutoSelect = True
|
|
Caption = 'Solutions'
|
|
Color = clWindow
|
|
DropDownCount = 11
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabPositions = '20'
|
|
TabOrder = 1
|
|
OnExit = cboSolutionExit
|
|
OnMouseClick = cboSolutionMouseClick
|
|
OnNeedData = cboSolutionNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
end
|
|
object cboRoute: TORComboBox [23]
|
|
Left = 8
|
|
Top = 211
|
|
Width = 168
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 3
|
|
OnChange = cboRouteChange
|
|
OnClick = cboRouteClick
|
|
OnExit = cboRouteExit
|
|
CharsNeedMatch = 1
|
|
UniqueAutoComplete = True
|
|
end
|
|
object cboSchedule: TORComboBox [24]
|
|
Left = 304
|
|
Top = 211
|
|
Width = 129
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 1
|
|
MaxLength = 0
|
|
Pieces = '1'
|
|
Sorted = True
|
|
SynonymChars = '<>'
|
|
TabOrder = 6
|
|
OnChange = cboScheduleChange
|
|
OnClick = cboScheduleClick
|
|
OnExit = cboScheduleExit
|
|
CharsNeedMatch = 1
|
|
UniqueAutoComplete = True
|
|
end
|
|
object cboType: TComboBox [25]
|
|
Left = 184
|
|
Top = 211
|
|
Width = 114
|
|
Height = 21
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
OnChange = cboTypeChange
|
|
end
|
|
object chkPRN: TCheckBox [26]
|
|
Left = 436
|
|
Top = 213
|
|
Width = 45
|
|
Height = 21
|
|
Caption = 'PRN'
|
|
TabOrder = 7
|
|
OnClick = chkPRNClick
|
|
end
|
|
object chkDoseNow: TCheckBox [27]
|
|
Left = 8
|
|
Top = 279
|
|
Width = 147
|
|
Height = 17
|
|
Anchors = [akLeft]
|
|
Caption = 'Give Additional Dose Now'
|
|
Constraints.MinWidth = 147
|
|
TabOrder = 12
|
|
OnClick = chkDoseNowClick
|
|
end
|
|
object cboInfusionTime: TComboBox [28]
|
|
Left = 576
|
|
Top = 211
|
|
Width = 74
|
|
Height = 21
|
|
ItemHeight = 13
|
|
TabOrder = 9
|
|
OnChange = cboInfusionTimeChange
|
|
OnEnter = cboInfusionTimeEnter
|
|
end
|
|
object lblAdminTime: TVA508StaticText [29]
|
|
Name = 'lblAdminTime'
|
|
Left = 8
|
|
Top = 308
|
|
Width = 4
|
|
Height = 4
|
|
Alignment = taLeftJustify
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 14
|
|
TabStop = True
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
object lblFirstDose: TVA508StaticText [30]
|
|
Name = 'lblFirstDose'
|
|
Left = 8
|
|
Top = 323
|
|
Width = 4
|
|
Height = 4
|
|
Alignment = taLeftJustify
|
|
TabOrder = 15
|
|
TabStop = True
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
inherited cmdAccept: TButton
|
|
Left = 495
|
|
Top = 359
|
|
TabOrder = 17
|
|
ExplicitLeft = 495
|
|
ExplicitTop = 359
|
|
end
|
|
inherited cmdQuit: TButton
|
|
Left = 495
|
|
Top = 386
|
|
TabOrder = 18
|
|
ExplicitLeft = 495
|
|
ExplicitTop = 386
|
|
end
|
|
inherited pnlMessage: TPanel
|
|
Left = 56
|
|
Top = 349
|
|
TabOrder = 19
|
|
ExplicitLeft = 56
|
|
ExplicitTop = 349
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = txtRate'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboPriority'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = grdSelected'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdRemove'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memComments'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtSelected'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboSelected'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlXDuration'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtXDuration'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlCombo'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboAdditive'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = tabFluid'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboSolution'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboRoute'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboSchedule'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboType'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = chkPRN'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = chkDoseNow'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memOrder'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdAccept'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdQuit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlMessage'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memMessage'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmODMedIV'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboInfusionTime'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboDuration'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblAdminTime'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblFirstDose'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|