230 lines
5.4 KiB
Plaintext
230 lines
5.4 KiB
Plaintext
inherited frmPtSelOptns: TfrmPtSelOptns
|
|
Left = 200
|
|
Top = 190
|
|
BorderStyle = bsNone
|
|
Caption = 'frmPtSelOptns'
|
|
ClientHeight = 269
|
|
ClientWidth = 190
|
|
DefaultMonitor = dmDesktop
|
|
Position = poDesigned
|
|
OnCreate = FormCreate
|
|
ExplicitWidth = 190
|
|
ExplicitHeight = 269
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object orapnlMain: TORAutoPanel [0]
|
|
Left = 0
|
|
Top = 0
|
|
Width = 190
|
|
Height = 269
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 0
|
|
object lblPtList: TLabel
|
|
Left = 4
|
|
Top = 1
|
|
Width = 52
|
|
Height = 13
|
|
Caption = 'Patient List'
|
|
end
|
|
object lblDateRange: TLabel
|
|
Left = 4
|
|
Top = 226
|
|
Width = 98
|
|
Height = 13
|
|
Caption = 'List Appointments for'
|
|
end
|
|
object bvlPtList: TORAutoPanel
|
|
Left = 4
|
|
Top = 24
|
|
Width = 180
|
|
Height = 84
|
|
BevelOuter = bvLowered
|
|
TabOrder = 0
|
|
object radAll: TRadioButton
|
|
Tag = 18
|
|
Left = 116
|
|
Top = 58
|
|
Width = 55
|
|
Height = 17
|
|
Caption = '&All'
|
|
TabOrder = 6
|
|
OnClick = radHideSrcClick
|
|
end
|
|
object radWards: TRadioButton
|
|
Tag = 17
|
|
Left = 116
|
|
Top = 40
|
|
Width = 58
|
|
Height = 16
|
|
Caption = '&Wards'
|
|
TabOrder = 5
|
|
OnClick = radShowSrcClick
|
|
end
|
|
object radClinics: TRadioButton
|
|
Tag = 16
|
|
Left = 116
|
|
Top = 20
|
|
Width = 60
|
|
Height = 17
|
|
Caption = '&Clinics'
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 4
|
|
OnClick = radLongSrcClick
|
|
end
|
|
object radSpecialties: TRadioButton
|
|
Tag = 14
|
|
Left = 1
|
|
Top = 58
|
|
Width = 115
|
|
Height = 17
|
|
Caption = '&Specialties'
|
|
TabOrder = 3
|
|
OnClick = radShowSrcClick
|
|
end
|
|
object radTeams: TRadioButton
|
|
Tag = 13
|
|
Left = 1
|
|
Top = 39
|
|
Width = 116
|
|
Height = 17
|
|
Caption = '&Team/Personal'
|
|
TabOrder = 2
|
|
OnClick = radShowSrcClick
|
|
end
|
|
object radProviders: TRadioButton
|
|
Tag = 12
|
|
Left = 1
|
|
Top = 20
|
|
Width = 107
|
|
Height = 17
|
|
Caption = '&Providers'
|
|
TabOrder = 1
|
|
OnClick = radLongSrcClick
|
|
end
|
|
object radDflt: TRadioButton
|
|
Tag = 11
|
|
Left = 1
|
|
Top = 3
|
|
Width = 162
|
|
Height = 17
|
|
Caption = 'No &Default'
|
|
TabOrder = 0
|
|
OnClick = radHideSrcClick
|
|
end
|
|
end
|
|
object cboList: TORComboBox
|
|
Left = 4
|
|
Top = 109
|
|
Width = 169
|
|
Height = 116
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Patient List'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 2
|
|
MaxLength = 0
|
|
ParentShowHint = False
|
|
Pieces = '2'
|
|
ShowHint = True
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 1
|
|
OnExit = cboListExit
|
|
OnKeyPause = cboListKeyPause
|
|
OnMouseClick = cboListMouseClick
|
|
OnNeedData = cboListNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cboDateRange: TORComboBox
|
|
Left = 4
|
|
Top = 244
|
|
Width = 169
|
|
Height = 21
|
|
Style = orcsDropDown
|
|
AutoSelect = True
|
|
Caption = 'List Appointments for'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = False
|
|
LookupPiece = 0
|
|
MaxLength = 0
|
|
Pieces = '2'
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabOrder = 2
|
|
OnExit = cboDateRangeExit
|
|
OnMouseClick = cboDateRangeMouseClick
|
|
CharsNeedMatch = 1
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = orapnlMain'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = bvlPtList'
|
|
'Property = Hint'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radAll'
|
|
'Text = Patient List All'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radWards'
|
|
'Text = Patient List Wards'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radClinics'
|
|
'Text = Patient List Clinics'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radSpecialties'
|
|
'Text = Patient List Specialties'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radTeams'
|
|
'Text = Patient List Team/Personal'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radProviders'
|
|
'Text = Patient List Providers'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = radDflt'
|
|
'Text = Patient List No Default'
|
|
'Status = stsOK')
|
|
(
|
|
'Component = cboList'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = cboDateRange'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmPtSelOptns'
|
|
'Status = stsDefault'))
|
|
end
|
|
object calApptRng: TORDateRangeDlg
|
|
DateOnly = True
|
|
Instruction = 'Enter a date range -'
|
|
LabelStart = 'First Appointment Date'
|
|
LabelStop = 'Last Appointment Date'
|
|
RequireTime = False
|
|
Format = 'mmm d,yy'
|
|
Left = 72
|
|
Top = 128
|
|
end
|
|
end
|