380 lines
9.4 KiB
Plaintext
380 lines
9.4 KiB
Plaintext
inherited frmEncounter: TfrmEncounter
|
|
Left = 481
|
|
Top = 242
|
|
Anchors = [akTop]
|
|
BorderIcons = [biSystemMenu]
|
|
Caption = 'Provider & Location for Current Activities'
|
|
ClientHeight = 423
|
|
ClientWidth = 462
|
|
Constraints.MinWidth = 470
|
|
OldCreateOrder = True
|
|
Position = poScreenCenter
|
|
Scaled = False
|
|
OnClose = FormClose
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnResize = FormResize
|
|
OnShow = FormShow
|
|
ExplicitWidth = 470
|
|
ExplicitHeight = 457
|
|
DesignSize = (
|
|
462
|
|
423)
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object lblInstruct: TLabel [0]
|
|
Left = 6
|
|
Top = 6
|
|
Width = 253
|
|
Height = 31
|
|
AutoSize = False
|
|
Caption =
|
|
'Select the appointment or visit that should be associated with t' +
|
|
'he note or orders .'
|
|
Visible = False
|
|
WordWrap = True
|
|
end
|
|
object lblLocation: TLabel [1]
|
|
Tag = 9
|
|
Left = 6
|
|
Top = 140
|
|
Width = 93
|
|
Height = 13
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Encounter Location'
|
|
Constraints.MinHeight = 12
|
|
end
|
|
object lblProvider: TLabel [2]
|
|
Left = 6
|
|
Top = 6
|
|
Width = 91
|
|
Height = 13
|
|
Caption = 'Encounter Provider'
|
|
end
|
|
object cboPtProvider: TORComboBox [3]
|
|
Left = 6
|
|
Top = 20
|
|
Width = 331
|
|
Height = 117
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Encounter Provider'
|
|
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 = 0
|
|
OnDblClick = cmdOKClick
|
|
OnNeedData = cboPtProviderNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cmdDateRange: TButton [4]
|
|
Tag = 9
|
|
Left = 266
|
|
Top = 153
|
|
Width = 84
|
|
Height = 25
|
|
Anchors = [akLeft, akBottom]
|
|
Caption = 'Date Range...'
|
|
Constraints.MinHeight = 21
|
|
Constraints.MinWidth = 21
|
|
TabOrder = 2
|
|
OnClick = cmdDateRangeClick
|
|
end
|
|
object txtLocation: TCaptionEdit [5]
|
|
Tag = 9
|
|
Left = 6
|
|
Top = 154
|
|
Width = 258
|
|
Height = 21
|
|
Anchors = [akLeft, akBottom]
|
|
AutoSize = False
|
|
Color = clBtnFace
|
|
Constraints.MinHeight = 21
|
|
ReadOnly = True
|
|
TabOrder = 1
|
|
Text = '< Select a location from the tabs below.... >'
|
|
Caption = 'Encounter Location'
|
|
end
|
|
object cmdCancel: TButton [6]
|
|
Left = 341
|
|
Top = 45
|
|
Width = 84
|
|
Height = 23
|
|
Anchors = [akTop, akRight]
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
Constraints.MinHeight = 21
|
|
Constraints.MinWidth = 21
|
|
TabOrder = 4
|
|
OnClick = cmdCancelClick
|
|
end
|
|
object cmdOK: TButton [7]
|
|
Left = 340
|
|
Top = 20
|
|
Width = 84
|
|
Height = 23
|
|
Anchors = [akTop, akRight]
|
|
Caption = 'OK'
|
|
Constraints.MinHeight = 21
|
|
Constraints.MinWidth = 21
|
|
Default = True
|
|
TabOrder = 3
|
|
OnClick = cmdOKClick
|
|
end
|
|
object Panel1: TPanel [8]
|
|
Left = 0
|
|
Top = 179
|
|
Width = 460
|
|
Height = 243
|
|
Anchors = [akLeft, akRight, akBottom]
|
|
TabOrder = 6
|
|
DesignSize = (
|
|
460
|
|
243)
|
|
object pgeVisit: TPageControl
|
|
Tag = 9
|
|
Left = 4
|
|
Top = 5
|
|
Width = 452
|
|
Height = 232
|
|
ActivePage = tabNewVisit
|
|
Anchors = [akLeft, akTop, akRight, akBottom]
|
|
Constraints.MinHeight = 150
|
|
RaggedRight = True
|
|
TabOrder = 0
|
|
OnChange = pgeVisitChange
|
|
OnMouseDown = pgeVisitMouseDown
|
|
object tabClinic: TTabSheet
|
|
Caption = 'Clinic Appointments'
|
|
object lstClinic: TORListBox
|
|
Left = 0
|
|
Top = 20
|
|
Width = 444
|
|
Height = 184
|
|
Align = alClient
|
|
Constraints.MinHeight = 21
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ScrollWidth = 353
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnDblClick = cmdOKClick
|
|
Caption = 'Clinic Appointments / Visits (T-30 thru T+1)'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '3,2,4'
|
|
TabPositions = '30,50'
|
|
OnChange = lstClinicChange
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 444
|
|
Height = 20
|
|
Align = alTop
|
|
TabOrder = 2
|
|
object lblDateRange: TLabel
|
|
Left = 138
|
|
Top = 4
|
|
Width = 71
|
|
Height = 13
|
|
Caption = '(T-30 thru T+1)'
|
|
end
|
|
object lblClinic: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 127
|
|
Height = 13
|
|
Caption = 'Clinic Appointments / Visits'
|
|
end
|
|
end
|
|
end
|
|
object tabAdmit: TTabSheet
|
|
Caption = 'Hospital Admissions'
|
|
object lstAdmit: TORListBox
|
|
Left = 0
|
|
Top = 17
|
|
Width = 444
|
|
Height = 187
|
|
Align = alClient
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnDblClick = cmdOKClick
|
|
Caption = 'Hospital Admissions'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '3,5,4'
|
|
TabPositions = '20'
|
|
OnChange = lstAdmitChange
|
|
end
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 444
|
|
Height = 17
|
|
Align = alTop
|
|
TabOrder = 2
|
|
object lblAdmit: TLabel
|
|
Left = 4
|
|
Top = 1
|
|
Width = 93
|
|
Height = 13
|
|
Caption = 'Hospital Admissions'
|
|
end
|
|
end
|
|
end
|
|
object tabNewVisit: TTabSheet
|
|
Caption = 'New Visit'
|
|
object lblVisitDate: TLabel
|
|
Left = 220
|
|
Top = 4
|
|
Width = 85
|
|
Height = 13
|
|
Caption = 'Date/Time of Visit'
|
|
end
|
|
object lblNewVisit: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 63
|
|
Height = 13
|
|
Caption = 'Visit Location'
|
|
end
|
|
object calVisitDate: TORDateBox
|
|
Left = 220
|
|
Top = 18
|
|
Width = 140
|
|
Height = 21
|
|
TabOrder = 1
|
|
Text = 'NOW'
|
|
OnChange = calVisitDateChange
|
|
OnExit = calVisitDateExit
|
|
DateOnly = False
|
|
RequireTime = True
|
|
end
|
|
object ckbHistorical: TORCheckBox
|
|
Left = 220
|
|
Top = 50
|
|
Width = 140
|
|
Height = 81
|
|
Caption =
|
|
'Historical Visit: a visit that occurred at some time in the past' +
|
|
' or at some other location (possibly non-VA) but is not used for' +
|
|
' workload credit.'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
WordWrap = True
|
|
OnClick = ckbHistoricalClick
|
|
AutoSize = True
|
|
end
|
|
object cboNewVisit: TORComboBox
|
|
Left = 4
|
|
Top = 18
|
|
Width = 208
|
|
Height = 117
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Visit Location'
|
|
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 = cboNewVisitChange
|
|
OnDblClick = cmdOKClick
|
|
OnNeedData = cboNewVisitNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = cboPtProvider'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdDateRange'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = txtLocation'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdCancel'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cmdOK'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = Panel1'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pgeVisit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = tabClinic'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstClinic'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = Panel2'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = tabAdmit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstAdmit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = Panel3'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = tabNewVisit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = calVisitDate'
|
|
'Text = Date/Time of Visit'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = ckbHistorical'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboNewVisit'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmEncounter'
|
|
'Status = stsDefault'))
|
|
end
|
|
object dlgDateRange: TORDateRangeDlg
|
|
DateOnly = True
|
|
Instruction = 'Show appointments / visits in the date range:'
|
|
LabelStart = 'From'
|
|
LabelStop = 'Through'
|
|
RequireTime = False
|
|
Format = 'mmm d,yyyy'
|
|
Left = 264
|
|
Top = 4
|
|
end
|
|
end
|