298 lines
6.5 KiB
Plaintext
298 lines
6.5 KiB
Plaintext
object frmPtSel: TfrmPtSel
|
|
Left = 194
|
|
Top = 131
|
|
Width = 793
|
|
Height = 589
|
|
BorderIcons = []
|
|
Caption = 'Patient Selection'
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
OldCreateOrder = True
|
|
OnClose = FormClose
|
|
OnDestroy = FormDestroy
|
|
OnKeyDown = FormKeyDown
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
object sptVert: TSplitter
|
|
Left = 0
|
|
Top = 290
|
|
Width = 785
|
|
Height = 4
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
end
|
|
object pnlDivide: TORAutoPanel
|
|
Left = 0
|
|
Top = 294
|
|
Width = 785
|
|
Height = 17
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
BevelWidth = 2
|
|
TabOrder = 0
|
|
Visible = False
|
|
object lblNotifications: TLabel
|
|
Left = 4
|
|
Top = 4
|
|
Width = 58
|
|
Height = 13
|
|
Caption = 'Notifications'
|
|
end
|
|
object ggeInfo: TGauge
|
|
Left = 212
|
|
Top = 1
|
|
Width = 100
|
|
Height = 15
|
|
Color = clBtnFace
|
|
ForeColor = clActiveCaption
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clCaptionText
|
|
Font.Height = -11
|
|
Font.Name = 'MS Sans Serif'
|
|
Font.Style = []
|
|
ParentColor = False
|
|
ParentFont = False
|
|
Progress = 0
|
|
Visible = False
|
|
end
|
|
end
|
|
object pnlPtSel: TORAutoPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 785
|
|
Height = 290
|
|
Align = alTop
|
|
BevelWidth = 2
|
|
TabOrder = 3
|
|
OnResize = pnlPtSelResize
|
|
object lblPatient: TLabel
|
|
Left = 185
|
|
Top = 8
|
|
Width = 33
|
|
Height = 13
|
|
Caption = 'Patient'
|
|
ShowAccelChar = False
|
|
end
|
|
object cboPatient: TORComboBox
|
|
Left = 185
|
|
Top = 22
|
|
Width = 272
|
|
Height = 262
|
|
Hint = 'Enter name,Full SSN ,Last 4 (x1234),'#39'HRN'#39',DOB, or Phone#'
|
|
Style = orcsSimple
|
|
AutoSelect = True
|
|
Caption = 'Patient'
|
|
Color = clWindow
|
|
DropDownCount = 8
|
|
ItemHeight = 13
|
|
ItemTipColor = clWindow
|
|
ItemTipEnable = True
|
|
ListItemsOnly = False
|
|
LongList = True
|
|
LookupPiece = 2
|
|
MaxLength = 0
|
|
ParentShowHint = False
|
|
Pieces = '2,3'
|
|
ShowHint = True
|
|
Sorted = False
|
|
SynonymChars = '<>'
|
|
TabPositions = '20,25,30,60'
|
|
TabOrder = 1
|
|
OnChange = cboPatientChange
|
|
OnDblClick = cboPatientDblClick
|
|
OnEnter = cboPatientEnter
|
|
OnExit = cboPatientExit
|
|
OnKeyDown = cboPatientKeyDown
|
|
OnKeyPause = cboPatientKeyPause
|
|
OnMouseClick = cboPatientMouseClick
|
|
OnNeedData = cboPatientNeedData
|
|
CharsNeedMatch = 1
|
|
end
|
|
object cmdOK: TButton
|
|
Left = 698
|
|
Top = 22
|
|
Width = 78
|
|
Height = 19
|
|
Caption = 'OK'
|
|
TabOrder = 2
|
|
OnClick = cmdOKClick
|
|
end
|
|
object cmdCancel: TButton
|
|
Left = 698
|
|
Top = 43
|
|
Width = 78
|
|
Height = 19
|
|
Cancel = True
|
|
Caption = 'Cancel'
|
|
TabOrder = 3
|
|
OnClick = cmdCancelClick
|
|
end
|
|
object cmdSaveList: TButton
|
|
Left = 499
|
|
Top = 265
|
|
Width = 175
|
|
Height = 18
|
|
Caption = 'Save Patient List Settings'
|
|
TabOrder = 0
|
|
OnClick = cmdSaveListClick
|
|
end
|
|
object RadioGroup1: TRadioGroup
|
|
Left = 464
|
|
Top = 192
|
|
Width = 313
|
|
Height = 65
|
|
Caption = 'Specific "In-Depth" Lookup by '
|
|
ItemIndex = 0
|
|
Items.Strings = (
|
|
'&None of the below'
|
|
'&PHONE NUMBER [RESIDENCE]'
|
|
'&DATE OF BIRTH')
|
|
TabOrder = 4
|
|
OnClick = onclick1
|
|
end
|
|
end
|
|
object pnlNotifications: TORAutoPanel
|
|
Left = 0
|
|
Top = 520
|
|
Width = 785
|
|
Height = 35
|
|
Align = alBottom
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
Visible = False
|
|
object cmdProcessInfo: TButton
|
|
Left = 11
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Process Info'
|
|
TabOrder = 0
|
|
OnClick = cmdProcessInfoClick
|
|
end
|
|
object cmdProcessAll: TButton
|
|
Left = 120
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Process All'
|
|
TabOrder = 1
|
|
OnClick = cmdProcessAllClick
|
|
end
|
|
object cmdProcess: TButton
|
|
Left = 229
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Process'
|
|
Enabled = False
|
|
TabOrder = 2
|
|
OnClick = cmdProcessClick
|
|
end
|
|
object cmdForward: TButton
|
|
Left = 335
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Forward'
|
|
Enabled = False
|
|
TabOrder = 4
|
|
OnClick = cmdForwardClick
|
|
end
|
|
object cmdRemove: TButton
|
|
Left = 490
|
|
Top = 10
|
|
Width = 95
|
|
Height = 21
|
|
Caption = 'Remove'
|
|
Enabled = False
|
|
TabOrder = 3
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
end
|
|
object lstvAlerts: TCaptionListView
|
|
Left = 0
|
|
Top = 311
|
|
Width = 785
|
|
Height = 209
|
|
Align = alClient
|
|
Columns = <
|
|
item
|
|
Caption = 'Info'
|
|
Width = 30
|
|
end
|
|
item
|
|
Caption = 'Patient'
|
|
Tag = 1
|
|
Width = 120
|
|
end
|
|
item
|
|
Caption = 'Location'
|
|
Tag = 2
|
|
Width = 60
|
|
end
|
|
item
|
|
Caption = 'Urgency'
|
|
Tag = 3
|
|
Width = 67
|
|
end
|
|
item
|
|
Caption = 'Alert Date/Time'
|
|
Tag = 4
|
|
Width = 110
|
|
end
|
|
item
|
|
Caption = 'Message'
|
|
Tag = 5
|
|
Width = 280
|
|
end
|
|
item
|
|
Caption = 'Forwarded By/When'
|
|
Tag = 6
|
|
Width = 180
|
|
end>
|
|
HoverTime = 0
|
|
IconOptions.WrapText = False
|
|
MultiSelect = True
|
|
ReadOnly = True
|
|
RowSelect = True
|
|
ParentShowHint = False
|
|
PopupMenu = popNotifications
|
|
ShowWorkAreas = True
|
|
ShowHint = True
|
|
TabOrder = 1
|
|
ViewStyle = vsReport
|
|
OnColumnClick = lstvAlertsColumnClick
|
|
OnCompare = lstvAlertsCompare
|
|
OnDblClick = lstvAlertsDblClick
|
|
OnInfoTip = lstvAlertsInfoTip
|
|
OnKeyDown = lstvAlertsKeyDown
|
|
OnSelectItem = lstvAlertsSelectItem
|
|
Caption = 'Notifications'
|
|
end
|
|
object popNotifications: TPopupMenu
|
|
Left = 508
|
|
Top = 323
|
|
object mnuProcess: TMenuItem
|
|
Caption = 'Process'
|
|
OnClick = cmdProcessClick
|
|
end
|
|
object mnuForward: TMenuItem
|
|
Caption = 'Forward'
|
|
OnClick = cmdForwardClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuRemove: TMenuItem
|
|
Caption = 'Remove'
|
|
OnClick = cmdRemoveClick
|
|
end
|
|
end
|
|
end
|