1035 lines
29 KiB
Plaintext
1035 lines
29 KiB
Plaintext
inherited frmODBBank: TfrmODBBank
|
|
Left = 409
|
|
Top = 244
|
|
Width = 700
|
|
Height = 626
|
|
AutoScroll = True
|
|
Caption = 'Blood Component and Diagnostic Test Order Form'
|
|
OnShow = FormShow
|
|
ExplicitWidth = 700
|
|
ExplicitHeight = 626
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object Splitter1: TSplitter [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 692
|
|
Height = 2
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object pnlComments: TPanel [1]
|
|
Left = 12
|
|
Top = 25
|
|
Width = 534
|
|
Height = 368
|
|
TabOrder = 5
|
|
Visible = False
|
|
object lblOrdComment: TLabel
|
|
Left = 25
|
|
Top = 3
|
|
Width = 87
|
|
Height = 13
|
|
Caption = 'Order Comment'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object btnUpdateComments: TButton
|
|
Left = 372
|
|
Top = 174
|
|
Width = 115
|
|
Height = 25
|
|
Caption = 'Update Comments'
|
|
TabOrder = 0
|
|
OnClick = btnUpdateCommentsClick
|
|
end
|
|
object btnCancelComment: TButton
|
|
Left = 279
|
|
Top = 174
|
|
Width = 75
|
|
Height = 25
|
|
Caption = 'Cancel'
|
|
TabOrder = 1
|
|
OnClick = btnCancelCommentClick
|
|
end
|
|
end
|
|
inherited memOrder: TCaptionMemo
|
|
Left = 4
|
|
Top = 503
|
|
Width = 449
|
|
Height = 59
|
|
Visible = False
|
|
ExplicitLeft = 4
|
|
ExplicitTop = 503
|
|
ExplicitWidth = 449
|
|
ExplicitHeight = 59
|
|
end
|
|
object pgeProduct: TPageControl [3]
|
|
Left = 0
|
|
Top = 2
|
|
Width = 692
|
|
Height = 497
|
|
ActivePage = TabDiag
|
|
Align = alTop
|
|
TabOrder = 4
|
|
OnChange = pgeProductChange
|
|
object TabInfo: TTabSheet
|
|
Caption = 'Patient Information'
|
|
ImageIndex = 3
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object edtInfo: TCaptionRichEdit
|
|
Left = 0
|
|
Top = 0
|
|
Width = 684
|
|
Height = 469
|
|
Align = alClient
|
|
BevelInner = bvNone
|
|
BevelOuter = bvNone
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ReadOnly = True
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WordWrap = False
|
|
Caption = 'Patient Info'
|
|
end
|
|
end
|
|
object TabDiag: TTabSheet
|
|
Caption = 'Blood Bank Orders'
|
|
ImageIndex = 2
|
|
object lblReqComment: TOROffsetLabel
|
|
Left = 300
|
|
Top = 25
|
|
Width = 108
|
|
Height = 37
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 2
|
|
WordWrap = False
|
|
end
|
|
object pnlFields: TPanel
|
|
Left = 0
|
|
Top = 145
|
|
Width = 684
|
|
Height = 210
|
|
Hint = 'Data entered into these fields apply to the entire order.'
|
|
Align = alTop
|
|
BevelEdges = []
|
|
BevelOuter = bvNone
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
object lblDiagComment: TOROffsetLabel
|
|
Left = 0
|
|
Top = 128
|
|
Width = 62
|
|
Height = 15
|
|
Caption = 'Comment'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
HorzOffset = 2
|
|
ParentFont = False
|
|
Transparent = False
|
|
VertOffset = 2
|
|
WordWrap = True
|
|
end
|
|
object lblUrgency: TLabel
|
|
Left = 0
|
|
Top = -1
|
|
Width = 44
|
|
Height = 13
|
|
Caption = 'Urgency*'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblReason: TLabel
|
|
Left = 0
|
|
Top = 40
|
|
Width = 95
|
|
Height = 13
|
|
Caption = 'Reason for Request'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblSurgery: TLabel
|
|
Left = 117
|
|
Top = 0
|
|
Width = 36
|
|
Height = 13
|
|
Hint =
|
|
'Enter the name of the surgical procedure that this request is fo' +
|
|
'r.'
|
|
Caption = 'Surgery'
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblRequiredField: TLabel
|
|
Left = 398
|
|
Top = 38
|
|
Width = 122
|
|
Height = 13
|
|
Caption = '* Indicates a required field'
|
|
end
|
|
object lblTNS: TLabel
|
|
Left = 270
|
|
Top = 0
|
|
Width = 14
|
|
Height = 13
|
|
Caption = 'tns'
|
|
Color = clActiveBorder
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clMaroon
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Visible = False
|
|
end
|
|
object lblNoBloodReq: TLabel
|
|
Left = 341
|
|
Top = 21
|
|
Width = 176
|
|
Height = 13
|
|
Caption = 'No Blood Required for this Procedure'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clMaroon
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
Visible = False
|
|
end
|
|
object cboUrgency: TORComboBox
|
|
Left = 4
|
|
Top = 14
|
|
Width = 98
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Urgency'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
OnChange = cboUrgencyChange
|
|
OnExit = cboUrgencyExit
|
|
CharsNeedMatch = 1
|
|
end
|
|
object chkConsent: TCheckBox
|
|
Left = 529
|
|
Top = 92
|
|
Width = 112
|
|
Height = 17
|
|
Hint = 'Informed Consent Signed On Chart?'
|
|
Alignment = taLeftJustify
|
|
Caption = 'Informed Consent?'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 3
|
|
Visible = False
|
|
OnClick = chkConsentClick
|
|
end
|
|
object cboSurgery: TORComboBox
|
|
Left = 117
|
|
Top = 14
|
|
Width = 218
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Surgery'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Enabled = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnChange = cboSurgeryChange
|
|
OnClick = cboSurgeryClick
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboReasons: TORComboBox
|
|
Left = 4
|
|
Top = 55
|
|
Width = 525
|
|
Height = 74
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 2
|
|
OnChange = cboReasonsChange
|
|
OnEnter = cboReasonsEnter
|
|
OnExit = cboReasonsExit
|
|
CharsNeedMatch = 1
|
|
end
|
|
object memDiagComment: TRichEdit
|
|
Left = 4
|
|
Top = 144
|
|
Width = 525
|
|
Height = 60
|
|
TabOrder = 4
|
|
OnChange = memDiagCommentChange
|
|
end
|
|
end
|
|
object pnlSelect: TPanel
|
|
Left = 0
|
|
Top = 35
|
|
Width = 684
|
|
Height = 110
|
|
Align = alTop
|
|
BevelEdges = []
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object pnlDiagnosticTests: TGroupBox
|
|
Left = 266
|
|
Top = 0
|
|
Width = 256
|
|
Height = 110
|
|
Caption = 'Diagnostic Tests'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = pnlDiagnosticTestsClick
|
|
OnEnter = pnlDiagnosticTestsEnter
|
|
OnExit = pnlDiagnosticTestsExit
|
|
object lblCollType: TLabel
|
|
Left = 13
|
|
Top = 33
|
|
Width = 77
|
|
Height = 13
|
|
Caption = 'Collection Type*'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblCollTime: TLabel
|
|
Left = 12
|
|
Top = 70
|
|
Width = 100
|
|
Height = 13
|
|
Caption = 'Collection Date/Time'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object pnlCollTimeButton: TKeyClickPanel
|
|
Left = 178
|
|
Top = 82
|
|
Width = 21
|
|
Height = 21
|
|
BevelOuter = bvNone
|
|
Caption = 'Select collection time'
|
|
TabOrder = 5
|
|
TabStop = True
|
|
object cmdImmedColl: TSpeedButton
|
|
Left = 0
|
|
Top = 0
|
|
Width = 21
|
|
Height = 21
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -16
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
Glyph.Data = {
|
|
D6000000424DD60000000000000076000000280000000C0000000C0000000100
|
|
0400000000006000000000000000000000001000000010000000000000000000
|
|
80000080000000808000800000008000800080800000C0C0C000808080000000
|
|
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
|
|
0000333333333333000033333333333300003333333333330000300330033003
|
|
0000300330033003000033333333333300003333333333330000333333333333
|
|
0000333333333333000033333333333300003333333333330000}
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
OnClick = cmdImmedCollClick
|
|
end
|
|
end
|
|
object calCollTime: TORDateBox
|
|
Left = 12
|
|
Top = 82
|
|
Width = 165
|
|
Height = 21
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 4
|
|
OnChange = calCollTimeChange
|
|
OnEnter = calCollTimeEnter
|
|
DateOnly = False
|
|
RequireTime = False
|
|
end
|
|
object cboAvailTest: TORComboBox
|
|
Left = 13
|
|
Top = 13
|
|
Width = 234
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Diagnostic Tests'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnClick = cboAvailTestSelect
|
|
OnEnter = cboAvailTestEnter
|
|
OnExit = cboAvailTestExit
|
|
OnNeedData = cboAvailTestNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboCollType: TORComboBox
|
|
Left = 12
|
|
Top = 46
|
|
Width = 197
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Collection Type'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnChange = cboCollTypeChange
|
|
OnClick = cboCollTypeClick
|
|
OnEnter = cboCollTypeEnter
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboCollTime: TORComboBox
|
|
Left = 12
|
|
Top = 82
|
|
Width = 165
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Collection Date/Time'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 2
|
|
OnChange = cboCollTimeChange
|
|
OnEnter = cboCollTimeEnter
|
|
CharsNeedMatch = 1
|
|
end
|
|
object txtImmedColl: TCaptionEdit
|
|
Left = 12
|
|
Top = 82
|
|
Width = 165
|
|
Height = 21
|
|
Color = clBtnFace
|
|
ReadOnly = True
|
|
TabOrder = 3
|
|
OnEnter = txtImmedCollEnter
|
|
end
|
|
end
|
|
object pnlBloodComponents: TGroupBox
|
|
Left = 4
|
|
Top = 0
|
|
Width = 256
|
|
Height = 110
|
|
Caption = 'Blood Components'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnClick = pnlBloodComponentsClick
|
|
OnEnter = pnlBloodComponentsEnter
|
|
OnExit = pnlBloodComponentsExit
|
|
object lblQuantity: TLabel
|
|
Left = 198
|
|
Top = 0
|
|
Width = 39
|
|
Height = 13
|
|
Caption = 'Quantity'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblModifiers: TLabel
|
|
Left = 7
|
|
Top = 33
|
|
Width = 42
|
|
Height = 13
|
|
Caption = 'Modifiers'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object lblWanted: TLabel
|
|
Left = 7
|
|
Top = 70
|
|
Width = 92
|
|
Height = 13
|
|
Caption = 'Date/Time Wanted'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object cboAvailComp: TORComboBox
|
|
Left = 11
|
|
Top = 13
|
|
Width = 181
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Blood Components'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
TabStop = True
|
|
OnEnter = cboAvailCompEnter
|
|
OnExit = cboAvailCompExit
|
|
OnMouseClick = cboAvailCompSelect
|
|
OnNeedData = cboAvailCompNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object tQuantity: TEdit
|
|
Left = 198
|
|
Top = 13
|
|
Width = 25
|
|
Height = 21
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnChange = tQuantityChange
|
|
OnClick = tQuantityClick
|
|
OnEnter = tQuantityEnter
|
|
end
|
|
object cboModifiers: TORComboBox
|
|
Left = 11
|
|
Top = 46
|
|
Width = 181
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Modifier'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
ParentFont = False
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 2
|
|
OnChange = cboModifiersChange
|
|
OnEnter = cboModifiersEnter
|
|
CharsNeedMatch = 1
|
|
end
|
|
object calWantTime: TORDateBox
|
|
Left = 11
|
|
Top = 82
|
|
Width = 181
|
|
Height = 21
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnChange = calWantTimeChange
|
|
OnEnter = calWantTimeEnter
|
|
DateOnly = False
|
|
RequireTime = False
|
|
end
|
|
end
|
|
end
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 684
|
|
Height = 35
|
|
Align = alTop
|
|
Caption = ' Personal Quick Orders'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object cboQuick: TORComboBox
|
|
Left = 15
|
|
Top = 11
|
|
Width = 508
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = True
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 0
|
|
OnClick = cboQuickClick
|
|
CharsNeedMatch = 1
|
|
end
|
|
end
|
|
object pnlSelectedTests: TGroupBox
|
|
Left = 0
|
|
Top = 355
|
|
Width = 684
|
|
Height = 109
|
|
Align = alTop
|
|
Caption = 'Selected Components and Tests'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
Visible = False
|
|
object lvSelectionList: TCaptionListView
|
|
Left = 5
|
|
Top = 15
|
|
Width = 430
|
|
Height = 91
|
|
Columns = <
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Test/Component'
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Qty'
|
|
end
|
|
item
|
|
AutoSize = True
|
|
Caption = 'Modifiers'
|
|
end
|
|
item
|
|
Caption = 'ModifierItemIndex'
|
|
Width = 0
|
|
end
|
|
item
|
|
Caption = 'TestIEN'
|
|
Width = 0
|
|
end>
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
TabStop = False
|
|
ViewStyle = vsReport
|
|
OnClick = lvSelectionListClick
|
|
Caption = 'lvSelectionList'
|
|
end
|
|
object btnRemove: TButton
|
|
Left = 450
|
|
Top = 37
|
|
Width = 75
|
|
Height = 21
|
|
Caption = 'Remove'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
OnClick = btnRemoveClick
|
|
end
|
|
object btnRemoveAll: TButton
|
|
Left = 450
|
|
Top = 64
|
|
Width = 75
|
|
Height = 21
|
|
Caption = 'Remove All'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnClick = btnRemoveAllClick
|
|
end
|
|
end
|
|
end
|
|
object TabResults: TTabSheet
|
|
Caption = 'Lab Results'
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 0
|
|
ExplicitWidth = 0
|
|
ExplicitHeight = 0
|
|
object edtResults: TCaptionRichEdit
|
|
Left = 0
|
|
Top = 0
|
|
Width = 684
|
|
Height = 469
|
|
Align = alClient
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
end
|
|
inherited cmdAccept: TButton
|
|
Left = 455
|
|
Top = 503
|
|
Width = 75
|
|
TabOrder = 2
|
|
Visible = False
|
|
ExplicitLeft = 455
|
|
ExplicitTop = 503
|
|
ExplicitWidth = 75
|
|
end
|
|
inherited cmdQuit: TButton
|
|
Left = 455
|
|
Top = 541
|
|
Width = 52
|
|
TabOrder = 3
|
|
ExplicitLeft = 455
|
|
ExplicitTop = 541
|
|
ExplicitWidth = 52
|
|
end
|
|
inherited pnlMessage: TPanel
|
|
Left = 8
|
|
Top = 513
|
|
Width = 409
|
|
Height = 49
|
|
TabOrder = 1
|
|
ExplicitLeft = 8
|
|
ExplicitTop = 513
|
|
ExplicitWidth = 409
|
|
ExplicitHeight = 49
|
|
inherited memMessage: TRichEdit
|
|
Left = 42
|
|
Top = 5
|
|
Width = 360
|
|
ExplicitLeft = 42
|
|
ExplicitTop = 5
|
|
ExplicitWidth = 360
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = memOrder'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdAccept'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdQuit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlMessage'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memMessage'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmODBBank'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlComments'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnUpdateComments'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnCancelComment'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pgeProduct'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = TabInfo'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = edtInfo'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = TabDiag'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = TabResults'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = edtResults'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlFields'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboUrgency'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = chkConsent'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboSurgery'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlSelect'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlDiagnosticTests'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboAvailTest'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlBloodComponents'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboAvailComp'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = tQuantity'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboModifiers'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = GroupBox1'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboQuick'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlSelectedTests'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lvSelectionList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnRemove'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnRemoveAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboReasons'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memDiagComment'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboCollType'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboCollTime'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtImmedColl'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calCollTime'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlCollTimeButton'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calWantTime'
|
|
'Status = stsDefault'))
|
|
end
|
|
object dlgLabCollTime: TORDateTimeDlg
|
|
FMDateTime = 2980923.000000000000000000
|
|
DateOnly = False
|
|
RequireTime = True
|
|
Left = 435
|
|
Top = 72
|
|
end
|
|
object ORWanted: TORDateTimeDlg
|
|
FMDateTime = 2980923.000000000000000000
|
|
DateOnly = False
|
|
RequireTime = True
|
|
Left = 343
|
|
Top = 72
|
|
end
|
|
end
|