297 lines
6.7 KiB
Plaintext
297 lines
6.7 KiB
Plaintext
inherited frmBALocalDiagnoses: TfrmBALocalDiagnoses
|
|
Left = 272
|
|
Top = 142
|
|
Caption = 'Assign Diagnoses to Order(s)'
|
|
ClientHeight = 517
|
|
ClientWidth = 612
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
ShowHint = True
|
|
OnActivate = FormActivate
|
|
OnCreate = FormCreate
|
|
OnKeyPress = FormKeyPress
|
|
OnShow = FormShow
|
|
ExplicitWidth = 620
|
|
ExplicitHeight = 551
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object pnlTop: TPanel [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 612
|
|
Height = 96
|
|
Align = alTop
|
|
Caption = 'pnlTop'
|
|
TabOrder = 0
|
|
DesignSize = (
|
|
612
|
|
96)
|
|
object lbOrders: TListBox
|
|
Left = 8
|
|
Top = 25
|
|
Width = 602
|
|
Height = 69
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
IntegralHeight = True
|
|
ItemHeight = 13
|
|
TabOrder = 1
|
|
OnMouseMove = lbOrdersMouseMove
|
|
end
|
|
object lblPatientName: TStaticText
|
|
Left = 8
|
|
Top = 8
|
|
Width = 76
|
|
Height = 17
|
|
Caption = 'PatientName'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object pnlMain: TPanel [1]
|
|
Left = 0
|
|
Top = 96
|
|
Width = 612
|
|
Height = 259
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object lblDiagSect: TLabel
|
|
Left = 9
|
|
Top = 1
|
|
Width = 241
|
|
Height = 17
|
|
AutoSize = False
|
|
Caption = 'Diagnosis Section'
|
|
end
|
|
object lblDiagCodes: TLabel
|
|
Left = 253
|
|
Top = 1
|
|
Width = 353
|
|
Height = 17
|
|
AutoSize = False
|
|
Caption = 'Diagnosis Codes'
|
|
end
|
|
object lbSections: TORListBox
|
|
Left = 9
|
|
Top = 14
|
|
Width = 238
|
|
Height = 199
|
|
IntegralHeight = True
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
OnClick = lbSectionsClick
|
|
OnDrawItem = lbSectionsDrawItem
|
|
Caption = 'Diagnosis Section'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '3'
|
|
end
|
|
object btnOther: TButton
|
|
Left = 155
|
|
Top = 219
|
|
Width = 92
|
|
Height = 20
|
|
Caption = 'Other &Diagnosis'
|
|
TabOrder = 2
|
|
OnClick = btnOtherClick
|
|
end
|
|
object lbDiagnosis: TORListBox
|
|
Left = 253
|
|
Top = 16
|
|
Width = 353
|
|
Height = 225
|
|
IntegralHeight = True
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 4
|
|
OnClick = lbDiagnosisClick
|
|
Caption = 'Diagnosis Section'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '1,2,3'
|
|
end
|
|
end
|
|
object pnlBottom: TORAutoPanel [2]
|
|
Left = 0
|
|
Top = 355
|
|
Width = 612
|
|
Height = 162
|
|
Align = alBottom
|
|
TabOrder = 2
|
|
DesignSize = (
|
|
612
|
|
162)
|
|
object cbAddToPDList: TCheckBox
|
|
Left = 459
|
|
Top = 33
|
|
Width = 129
|
|
Height = 17
|
|
Caption = 'Add to Personal Dx List'
|
|
TabOrder = 2
|
|
OnClick = cbAddToPDListClick
|
|
end
|
|
object cbAddToPL: TCheckBox
|
|
Left = 459
|
|
Top = 17
|
|
Width = 149
|
|
Height = 16
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Caption = 'Add To Problem List'
|
|
TabOrder = 0
|
|
OnClick = cbAddToPLClick
|
|
end
|
|
object btnPrimary: TButton
|
|
Left = 480
|
|
Top = 57
|
|
Width = 72
|
|
Height = 19
|
|
Caption = '&Primary'
|
|
TabOrder = 3
|
|
OnClick = btnPrimaryClick
|
|
end
|
|
object btnRemove: TButton
|
|
Left = 480
|
|
Top = 81
|
|
Width = 72
|
|
Height = 19
|
|
Caption = '&Remove'
|
|
TabOrder = 4
|
|
OnClick = btnRemoveClick
|
|
end
|
|
object btnSelectAll: TButton
|
|
Left = 385
|
|
Top = 108
|
|
Width = 72
|
|
Height = 18
|
|
Caption = '&Select All'
|
|
TabOrder = 5
|
|
OnClick = btnSelectAllClick
|
|
end
|
|
object buOK: TButton
|
|
Left = 384
|
|
Top = 136
|
|
Width = 72
|
|
Height = 21
|
|
Caption = '&OK'
|
|
TabOrder = 6
|
|
OnClick = buOKClick
|
|
end
|
|
object buCancel: TButton
|
|
Left = 482
|
|
Top = 136
|
|
Width = 72
|
|
Height = 21
|
|
Caption = '&Cancel'
|
|
TabOrder = 7
|
|
OnClick = buCancelClick
|
|
end
|
|
object gbProvDiag: TGroupBox
|
|
Left = 8
|
|
Top = 0
|
|
Width = 449
|
|
Height = 105
|
|
Caption = 'Provisional Diagnosis'
|
|
TabOrder = 1
|
|
object lvDxGrid: TListView
|
|
Left = 2
|
|
Top = 15
|
|
Width = 445
|
|
Height = 88
|
|
Align = alClient
|
|
Color = clInfoBk
|
|
Columns = <
|
|
item
|
|
Caption = 'Add To PL/PD'
|
|
Width = 85
|
|
end
|
|
item
|
|
Caption = 'Primary'
|
|
MinWidth = 65
|
|
Width = 65
|
|
end
|
|
item
|
|
Caption = 'Diagnosis for Selected Orders'
|
|
MinWidth = 275
|
|
Width = 290
|
|
end>
|
|
Ctl3D = False
|
|
HideSelection = False
|
|
MultiSelect = True
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
TabOrder = 0
|
|
ViewStyle = vsReport
|
|
OnClick = lvDxGridClick
|
|
OnKeyDown = lvDxGridKeyDown
|
|
OnKeyUp = lvDxGridKeyUp
|
|
end
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = pnlTop'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lbOrders'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lblPatientName'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlMain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lbSections'
|
|
'Label = lblDiagSect'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = btnOther'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lbDiagnosis'
|
|
'Label = lblDiagCodes'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = pnlBottom'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cbAddToPDList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cbAddToPL'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnPrimary'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnRemove'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnSelectAll'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = buOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = buCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = gbProvDiag'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lvDxGrid'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmBALocalDiagnoses'
|
|
'Status = stsDefault'))
|
|
end
|
|
end
|