599 lines
14 KiB
Plaintext
599 lines
14 KiB
Plaintext
inherited frmODProc: TfrmODProc
|
|
Tag = 112
|
|
Left = 430
|
|
Top = 203
|
|
Width = 606
|
|
Height = 442
|
|
HorzScrollBar.Range = 523
|
|
VertScrollBar.Range = 295
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Caption = 'Order a Procedure'
|
|
Constraints.MinHeight = 442
|
|
Constraints.MinWidth = 606
|
|
Position = poDesigned
|
|
OnShow = FormShow
|
|
ExplicitWidth = 606
|
|
ExplicitHeight = 442
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pnlCombatVet: TPanel [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 598
|
|
Height = 25
|
|
Align = alTop
|
|
BevelOuter = bvLowered
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
object txtCombatVet: TVA508StaticText
|
|
Name = 'txtCombatVet'
|
|
Left = 1
|
|
Top = 1
|
|
Width = 596
|
|
Height = 23
|
|
Align = alClient
|
|
Alignment = taCenter
|
|
BevelOuter = bvNone
|
|
Enabled = False
|
|
TabOrder = 0
|
|
ShowAccelChar = True
|
|
end
|
|
end
|
|
inherited memOrder: TCaptionMemo
|
|
Left = 0
|
|
Top = 365
|
|
Width = 380
|
|
Height = 41
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
Lines.Strings = (
|
|
'The order text...'
|
|
|
|
'----------------------------------------------------------------' +
|
|
'--------------'
|
|
'An order message may be displayed here.')
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
ExplicitLeft = 0
|
|
ExplicitTop = 365
|
|
ExplicitWidth = 380
|
|
ExplicitHeight = 41
|
|
end
|
|
object pnlMain: TPanel [2]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 598
|
|
Height = 354
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
DesignSize = (
|
|
598
|
|
354)
|
|
object lblProc: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 49
|
|
Height = 13
|
|
Caption = 'Procedure'
|
|
end
|
|
object lblService: TOROffsetLabel
|
|
Left = 4
|
|
Top = 114
|
|
Width = 158
|
|
Height = 15
|
|
Caption = 'Service to perform this procedure'
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 2
|
|
WordWrap = False
|
|
end
|
|
object lblReason: TLabel
|
|
Left = 8
|
|
Top = 165
|
|
Width = 95
|
|
Height = 13
|
|
Margins.Left = 0
|
|
Caption = 'Reason for Request'
|
|
end
|
|
object lblUrgency: TStaticText
|
|
Left = 312
|
|
Top = 4
|
|
Width = 44
|
|
Height = 17
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Urgency'
|
|
TabOrder = 13
|
|
end
|
|
object lblPlace: TStaticText
|
|
Left = 460
|
|
Top = 92
|
|
Width = 104
|
|
Height = 17
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Place of Consultation'
|
|
TabOrder = 14
|
|
end
|
|
object lblAttn: TStaticText
|
|
Left = 460
|
|
Top = 4
|
|
Width = 46
|
|
Height = 17
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Attention'
|
|
TabOrder = 15
|
|
end
|
|
object lblProvDiag: TStaticText
|
|
Left = 312
|
|
Top = 135
|
|
Width = 104
|
|
Height = 17
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Provisional Diagnosis'
|
|
TabOrder = 16
|
|
end
|
|
object pnlReason: TPanel
|
|
Left = 0
|
|
Top = 184
|
|
Width = 591
|
|
Height = 166
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
BevelOuter = bvNone
|
|
TabOrder = 11
|
|
object memReason: TCaptionRichEdit
|
|
Left = 0
|
|
Top = 0
|
|
Width = 591
|
|
Height = 166
|
|
Align = alClient
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'Courier New'
|
|
Font.Style = []
|
|
Constraints.MinHeight = 40
|
|
ParentFont = False
|
|
PopupMenu = popReason
|
|
ScrollBars = ssBoth
|
|
TabOrder = 0
|
|
WantTabs = True
|
|
OnChange = ControlChange
|
|
OnExit = memReasonExit
|
|
OnKeyDown = memReasonKeyDown
|
|
OnKeyPress = memReasonKeyPress
|
|
OnKeyUp = memReasonKeyUp
|
|
Caption = 'Reason for Request'
|
|
end
|
|
end
|
|
object cboUrgency: TORComboBox
|
|
Left = 312
|
|
Top = 17
|
|
Width = 133
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
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 = 3
|
|
OnChange = ControlChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboPlace: TORComboBox
|
|
Left = 460
|
|
Top = 105
|
|
Width = 133
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Place of Consultation'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 8
|
|
OnChange = ControlChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object txtAttn: TORComboBox
|
|
Left = 460
|
|
Top = 17
|
|
Width = 131
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Attention'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = True
|
|
LongList = True
|
|
LookupPiece = 2
|
|
MaxLength = 0
|
|
Pieces = '2,3'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 4
|
|
OnChange = ControlChange
|
|
OnNeedData = txtAttnNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboProc: TORComboBox
|
|
Left = 4
|
|
Top = 17
|
|
Width = 290
|
|
Height = 91
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = '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 = 0
|
|
OnChange = cboProcSelect
|
|
OnNeedData = cboProcNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboCategory: TORComboBox
|
|
Left = 516
|
|
Top = 10
|
|
Width = 3
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 12
|
|
Visible = False
|
|
OnChange = ControlChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboService: TORComboBox
|
|
Left = 4
|
|
Top = 130
|
|
Width = 290
|
|
Height = 21
|
|
Anchors = [akLeft, akTop, akRight]
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'Service to perform this procedure'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
Enabled = False
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnChange = cboServiceChange
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cmdLexSearch: TButton
|
|
Left = 549
|
|
Top = 149
|
|
Width = 49
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Lexicon'
|
|
TabOrder = 10
|
|
OnClick = cmdLexSearchClick
|
|
end
|
|
object gbInptOpt: TGroupBox
|
|
Left = 312
|
|
Top = 85
|
|
Width = 140
|
|
Height = 45
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Patient will be seen as an:'
|
|
TabOrder = 7
|
|
object radInpatient: TRadioButton
|
|
Left = 3
|
|
Top = 20
|
|
Width = 61
|
|
Height = 17
|
|
Caption = '&Inpatient'
|
|
TabOrder = 1
|
|
OnClick = radInpatientClick
|
|
end
|
|
object radOutpatient: TRadioButton
|
|
Left = 67
|
|
Top = 20
|
|
Width = 71
|
|
Height = 17
|
|
Caption = '&Outpatient'
|
|
TabOrder = 0
|
|
OnClick = radOutpatientClick
|
|
end
|
|
end
|
|
object txtProvDiag: TCaptionEdit
|
|
Left = 312
|
|
Top = 149
|
|
Width = 234
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
MaxLength = 180
|
|
ParentShowHint = False
|
|
PopupMenu = mnuPopProvDx
|
|
ShowHint = True
|
|
TabOrder = 9
|
|
OnChange = txtProvDiagChange
|
|
Caption = 'Provisional Diagnosis'
|
|
end
|
|
object lblEarliest: TStaticText
|
|
Left = 312
|
|
Top = 44
|
|
Width = 121
|
|
Height = 17
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Earliest appropriate date:'
|
|
TabOrder = 18
|
|
end
|
|
object calEarliest: TORDateBox
|
|
Left = 312
|
|
Top = 58
|
|
Width = 133
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 5
|
|
OnChange = ControlChange
|
|
DateOnly = True
|
|
RequireTime = False
|
|
end
|
|
object lblLatest: TStaticText
|
|
Left = 460
|
|
Top = 44
|
|
Width = 116
|
|
Height = 17
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'Latest appropriate date:'
|
|
TabOrder = 19
|
|
Visible = False
|
|
end
|
|
object calLatest: TORDateBox
|
|
Left = 460
|
|
Top = 58
|
|
Width = 131
|
|
Height = 21
|
|
Anchors = [akTop, akRight]
|
|
TabOrder = 6
|
|
Visible = False
|
|
OnChange = ControlChange
|
|
DateOnly = True
|
|
RequireTime = False
|
|
end
|
|
object servicelbl508: TVA508StaticText
|
|
Name = 'servicelbl508'
|
|
Left = 183
|
|
Top = 114
|
|
Width = 106
|
|
Height = 15
|
|
Alignment = taLeftJustify
|
|
Caption = 'service (for screen R.)'
|
|
Enabled = False
|
|
TabOrder = 2
|
|
Visible = False
|
|
ShowAccelChar = True
|
|
end
|
|
end
|
|
inherited cmdAccept: TButton
|
|
Left = 427
|
|
Top = 382
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 4
|
|
ExplicitLeft = 427
|
|
ExplicitTop = 382
|
|
end
|
|
inherited cmdQuit: TButton
|
|
Left = 526
|
|
Top = 382
|
|
Width = 64
|
|
Anchors = [akRight, akBottom]
|
|
TabOrder = 5
|
|
ExplicitLeft = 526
|
|
ExplicitTop = 382
|
|
ExplicitWidth = 64
|
|
end
|
|
inherited pnlMessage: TPanel
|
|
Left = 13
|
|
Top = 361
|
|
Width = 316
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
TabOrder = 2
|
|
ExplicitLeft = 13
|
|
ExplicitTop = 361
|
|
ExplicitWidth = 316
|
|
inherited memMessage: TRichEdit
|
|
Width = 254
|
|
ExplicitWidth = 254
|
|
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 = frmODProc'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlMain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlCombatVet'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblUrgency'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblPlace'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblAttn'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblProvDiag'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlReason'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = memReason'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboUrgency'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboPlace'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtAttn'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboProc'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboCategory'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboService'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdLexSearch'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = gbInptOpt'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radInpatient'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = radOutpatient'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtProvDiag'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblEarliest'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calEarliest'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblLatest'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calLatest'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtCombatVet'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = servicelbl508'
|
|
'Status = stsDefault'))
|
|
end
|
|
object mnuPopProvDx: TPopupMenu
|
|
Left = 353
|
|
Top = 133
|
|
object mnuPopProvDxDelete: TMenuItem
|
|
Caption = 'Delete diagnosis'
|
|
OnClick = mnuPopProvDxDeleteClick
|
|
end
|
|
end
|
|
object popReason: TPopupMenu
|
|
OnPopup = popReasonPopup
|
|
Left = 483
|
|
Top = 337
|
|
object popReasonCut: TMenuItem
|
|
Caption = 'Cu&t'
|
|
ShortCut = 16472
|
|
OnClick = popReasonCutClick
|
|
end
|
|
object popReasonCopy: TMenuItem
|
|
Caption = '&Copy'
|
|
ShortCut = 16451
|
|
OnClick = popReasonCopyClick
|
|
end
|
|
object popReasonPaste: TMenuItem
|
|
Caption = '&Paste'
|
|
ShortCut = 16470
|
|
OnClick = popReasonPasteClick
|
|
end
|
|
object popReasonPaste2: TMenuItem
|
|
Caption = 'Paste2'
|
|
ShortCut = 8237
|
|
Visible = False
|
|
OnClick = popReasonPasteClick
|
|
end
|
|
object popReasonReformat: TMenuItem
|
|
Caption = 'Reformat Paragraph'
|
|
ShortCut = 16466
|
|
OnClick = popReasonReformatClick
|
|
end
|
|
end
|
|
end
|