492 lines
11 KiB
Plaintext
492 lines
11 KiB
Plaintext
inherited frmODRad: TfrmODRad
|
|
Tag = 160
|
|
Left = 282
|
|
Top = 225
|
|
Width = 576
|
|
Height = 361
|
|
Caption = 'Order an Imaging Procedure'
|
|
Constraints.MinHeight = 344
|
|
Constraints.MinWidth = 576
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited memOrder: TCaptionMemo
|
|
Left = 0
|
|
Top = 283
|
|
Width = 480
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
TabOrder = 6
|
|
end
|
|
object FRadCommonCombo: TORListBox [1]
|
|
Left = 443
|
|
Top = 346
|
|
Width = 121
|
|
Height = 11
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 7
|
|
Visible = False
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
end
|
|
object pnlLeft: TORAutoPanel [2]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 215
|
|
Height = 281
|
|
Anchors = [akLeft, akTop, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object lblDrug: TLabel
|
|
Left = 0
|
|
Top = 38
|
|
Width = 89
|
|
Height = 13
|
|
Caption = 'Imaging Procedure'
|
|
end
|
|
object lblAvailMod: TLabel
|
|
Left = 0
|
|
Top = 170
|
|
Width = 88
|
|
Height = 13
|
|
Caption = 'Available Modifiers'
|
|
end
|
|
object lblImType: TLabel
|
|
Left = 1
|
|
Top = 1
|
|
Width = 64
|
|
Height = 13
|
|
Caption = 'Imaging Type'
|
|
end
|
|
object lblSelectMod: TLabel
|
|
Left = 109
|
|
Top = 170
|
|
Width = 87
|
|
Height = 13
|
|
Caption = 'Selected Modifiers'
|
|
end
|
|
object cboImType: TORComboBox
|
|
Left = 0
|
|
Top = 15
|
|
Width = 212
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Imaging Type'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
OnChange = cboImTypeChange
|
|
OnDropDownClose = cboImTypeDropDownClose
|
|
OnExit = cboImTypeExit
|
|
CharsNeedMatch = 1
|
|
end
|
|
object lstSelectMod: TORListBox
|
|
Left = 109
|
|
Top = 184
|
|
Width = 102
|
|
Height = 68
|
|
ExtendedSelect = False
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
Caption = 'Selected Modifiers'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object cboProcedure: TORComboBox
|
|
Left = 0
|
|
Top = 53
|
|
Width = 212
|
|
Height = 114
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Imaging Procedure'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnClick = cboProcedureSelect
|
|
OnExit = cboProcedureExit
|
|
OnNeedData = cboProcedureNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboAvailMod: TORComboBox
|
|
Left = 0
|
|
Top = 184
|
|
Width = 102
|
|
Height = 94
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Available Modifiers'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentShowHint = False
|
|
Pieces = '2'
|
|
ShowHint = True
|
|
Sorted = True
|
|
SynonymChars = '<>'
|
|
TabOrder = 2
|
|
OnKeyDown = cboAvailModKeyDown
|
|
OnMouseClick = cboAvailModMouseClick
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cmdRemove: TButton
|
|
Left = 110
|
|
Top = 255
|
|
Width = 102
|
|
Height = 18
|
|
Caption = 'Remove'
|
|
TabOrder = 4
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
end
|
|
object pnlRight: TORAutoPanel [3]
|
|
Left = 214
|
|
Top = 85
|
|
Width = 355
|
|
Height = 195
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 3
|
|
object lblRequestDate: TLabel
|
|
Left = 4
|
|
Top = 5
|
|
Width = 78
|
|
Height = 13
|
|
Caption = 'Requested Date'
|
|
end
|
|
object lblUrgency: TLabel
|
|
Left = 104
|
|
Top = 5
|
|
Width = 40
|
|
Height = 13
|
|
Caption = 'Urgency'
|
|
end
|
|
object lblTransport: TLabel
|
|
Left = 204
|
|
Top = 5
|
|
Width = 45
|
|
Height = 13
|
|
Caption = 'Transport'
|
|
end
|
|
object lblCategory: TLabel
|
|
Left = 4
|
|
Top = 42
|
|
Width = 42
|
|
Height = 13
|
|
Caption = 'Category'
|
|
end
|
|
object lblSubmit: TLabel
|
|
Left = 154
|
|
Top = 42
|
|
Width = 48
|
|
Height = 13
|
|
Caption = 'Submit To'
|
|
end
|
|
object lblLastExam: TLabel
|
|
Left = 4
|
|
Top = 82
|
|
Width = 134
|
|
Height = 13
|
|
Caption = 'Exams Over the Last 7 Days'
|
|
end
|
|
object lblAskSubmit: TLabel
|
|
Left = 446
|
|
Top = 103
|
|
Width = 3
|
|
Height = 13
|
|
Visible = False
|
|
end
|
|
object lblPreOp: TLabel
|
|
Left = 198
|
|
Top = 156
|
|
Width = 84
|
|
Height = 13
|
|
Caption = 'PreOp Scheduled'
|
|
end
|
|
object calPreOp: TORDateBox
|
|
Left = 198
|
|
Top = 170
|
|
Width = 96
|
|
Height = 21
|
|
TabOrder = 8
|
|
OnChange = calPreOpChange
|
|
OnExit = calPreOpExit
|
|
DateOnly = False
|
|
RequireTime = False
|
|
Caption = 'PreOp Scheduled'
|
|
end
|
|
object chkIsolation: TCheckBox
|
|
Left = 198
|
|
Top = 94
|
|
Width = 97
|
|
Height = 17
|
|
Hint = 'Is patient on isolation procedures?'
|
|
Caption = 'Isolation'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 6
|
|
OnClick = ControlChange
|
|
OnExit = chkIsolationExit
|
|
end
|
|
object calRequestDate: TORDateBox
|
|
Left = 4
|
|
Top = 18
|
|
Width = 92
|
|
Height = 21
|
|
TabOrder = 0
|
|
Text = 'TODAY'
|
|
OnChange = ControlChange
|
|
DateOnly = False
|
|
RequireTime = False
|
|
Caption = 'Requested Date'
|
|
end
|
|
object cboUrgency: TORComboBox
|
|
Left = 104
|
|
Top = 18
|
|
Width = 92
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Urgency'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnChange = ControlChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboTransport: TORComboBox
|
|
Left = 204
|
|
Top = 18
|
|
Width = 92
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Transport'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 2
|
|
OnChange = ControlChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboCategory: TORComboBox
|
|
Left = 4
|
|
Top = 57
|
|
Width = 140
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Category'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 3
|
|
OnChange = cboCategoryChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object chkPreOp: TCheckBox
|
|
Left = 146
|
|
Top = 233
|
|
Width = 61
|
|
Height = 17
|
|
Caption = 'Pre-Op'
|
|
TabOrder = 9
|
|
Visible = False
|
|
OnClick = ControlChange
|
|
end
|
|
object cboSubmit: TORComboBox
|
|
Left = 154
|
|
Top = 57
|
|
Width = 142
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Submit To'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 4
|
|
OnChange = ControlChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object lstLastExam: TORListBox
|
|
Left = 4
|
|
Top = 95
|
|
Width = 187
|
|
Height = 98
|
|
Color = clBtnFace
|
|
ExtendedSelect = False
|
|
ItemHeight = 13
|
|
MultiSelect = True
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 5
|
|
Caption = 'Exams Over the Last 7 Days'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object grpPregnant: TGroupBox
|
|
Left = 196
|
|
Top = 112
|
|
Width = 158
|
|
Height = 41
|
|
Caption = 'Pregnant'
|
|
TabOrder = 7
|
|
object radPregnant: TRadioButton
|
|
Left = 2
|
|
Top = 17
|
|
Width = 39
|
|
Height = 17
|
|
Caption = 'Yes'
|
|
TabOrder = 0
|
|
OnClick = ControlChange
|
|
end
|
|
object radPregnantNo: TRadioButton
|
|
Left = 47
|
|
Top = 17
|
|
Width = 35
|
|
Height = 17
|
|
Caption = 'No'
|
|
TabOrder = 1
|
|
OnClick = ControlChange
|
|
end
|
|
object radPregnantUnknown: TRadioButton
|
|
Left = 87
|
|
Top = 16
|
|
Width = 66
|
|
Height = 17
|
|
Caption = 'Unknown'
|
|
TabOrder = 2
|
|
OnClick = ControlChange
|
|
end
|
|
end
|
|
end
|
|
object pnlHandR: TPanel [4]
|
|
Left = 215
|
|
Top = 0
|
|
Width = 353
|
|
Height = 84
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
353
|
|
84)
|
|
object lblReason: TLabel
|
|
Left = 3
|
|
Top = 0
|
|
Width = 125
|
|
Height = 13
|
|
Caption = 'History && Reason for Exam'
|
|
end
|
|
object memReason: TCaptionMemo
|
|
Left = 3
|
|
Top = 15
|
|
Width = 346
|
|
Height = 68
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
ScrollBars = ssVertical
|
|
TabOrder = 0
|
|
OnChange = ControlChange
|
|
OnExit = memReasonExit
|
|
Caption = 'History && Reason for Exam'
|
|
end
|
|
end
|
|
inherited cmdAccept: TButton
|
|
Left = 487
|
|
Top = 283
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 4
|
|
end
|
|
inherited cmdQuit: TButton
|
|
Left = 488
|
|
Top = 310
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 5
|
|
end
|
|
inherited pnlMessage: TPanel
|
|
Left = 13
|
|
Top = 262
|
|
Width = 408
|
|
Height = 55
|
|
TabOrder = 1
|
|
inherited imgMessage: TImage
|
|
Left = 10
|
|
Top = 9
|
|
end
|
|
inherited memMessage: TRichEdit
|
|
Left = 55
|
|
Width = 344
|
|
Height = 43
|
|
end
|
|
end
|
|
end
|