358 lines
8.1 KiB
Plaintext
358 lines
8.1 KiB
Plaintext
|
object frmDCSummProperties: TfrmDCSummProperties
|
||
|
|
Left = 298
|
||
|
|
Top = 186
|
||
|
|
AutoScroll = False
|
||
|
|
BorderIcons = []
|
||
|
|
Caption = 'Discharge Summary Properties'
|
||
|
|
ClientHeight = 437
|
||
|
|
ClientWidth = 498
|
||
|
|
Color = clBtnFace
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
OldCreateOrder = False
|
||
|
|
Position = poScreenCenter
|
||
|
|
OnClose = FormClose
|
||
|
|
OnShow = FormShow
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
object bvlConsult: TBevel
|
||
|
|
Tag = 1
|
||
|
|
Left = 6
|
||
|
|
Top = 119
|
||
|
|
Width = 483
|
||
|
|
Height = 2
|
||
|
|
end
|
||
|
|
object pnlFields: TORAutoPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 498
|
||
|
|
Height = 218
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 0
|
||
|
|
object lblNewTitle: TLabel
|
||
|
|
Left = 7
|
||
|
|
Top = 15
|
||
|
|
Width = 120
|
||
|
|
Height = 13
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Caption = 'Discharge Summary Title:'
|
||
|
|
end
|
||
|
|
object lblDateTime: TLabel
|
||
|
|
Left = 28
|
||
|
|
Top = 141
|
||
|
|
Width = 99
|
||
|
|
Height = 13
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Caption = 'Dictation Date/Time:'
|
||
|
|
end
|
||
|
|
object lblAuthor: TLabel
|
||
|
|
Left = 51
|
||
|
|
Top = 167
|
||
|
|
Width = 76
|
||
|
|
Height = 13
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Caption = 'Author/Dictator:'
|
||
|
|
end
|
||
|
|
object lblCosigner: TLabel
|
||
|
|
Left = 31
|
||
|
|
Top = 194
|
||
|
|
Width = 96
|
||
|
|
Height = 13
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Caption = 'Attending Physician:'
|
||
|
|
end
|
||
|
|
object cboNewTitle: TORComboBox
|
||
|
|
Left = 148
|
||
|
|
Top = 11
|
||
|
|
Width = 347
|
||
|
|
Height = 118
|
||
|
|
Style = orcsSimple
|
||
|
|
AutoSelect = True
|
||
|
|
Caption = 'Discharge Summary Title:'
|
||
|
|
Color = clWindow
|
||
|
|
DropDownCount = 8
|
||
|
|
ItemHeight = 13
|
||
|
|
ItemTipColor = clWindow
|
||
|
|
ItemTipEnable = True
|
||
|
|
ListItemsOnly = True
|
||
|
|
LongList = True
|
||
|
|
LookupPiece = 0
|
||
|
|
MaxLength = 0
|
||
|
|
ParentShowHint = False
|
||
|
|
Pieces = '2'
|
||
|
|
ShowHint = True
|
||
|
|
Sorted = False
|
||
|
|
SynonymChars = '<>'
|
||
|
|
TabOrder = 0
|
||
|
|
OnDblClick = cboNewTitleDblClick
|
||
|
|
OnDropDownClose = cboNewTitleDropDownClose
|
||
|
|
OnEnter = cboNewTitleEnter
|
||
|
|
OnExit = cboNewTitleExit
|
||
|
|
OnMouseClick = cboNewTitleMouseClick
|
||
|
|
OnNeedData = cboNewTitleNeedData
|
||
|
|
CharsNeedMatch = 1
|
||
|
|
end
|
||
|
|
object calSumm: TORDateBox
|
||
|
|
Left = 148
|
||
|
|
Top = 138
|
||
|
|
Width = 140
|
||
|
|
Height = 21
|
||
|
|
TabOrder = 1
|
||
|
|
DateOnly = False
|
||
|
|
RequireTime = False
|
||
|
|
Caption = 'Dictation Date/Time:'
|
||
|
|
end
|
||
|
|
object cboAuthor: TORComboBox
|
||
|
|
Left = 148
|
||
|
|
Top = 164
|
||
|
|
Width = 239
|
||
|
|
Height = 21
|
||
|
|
Style = orcsDropDown
|
||
|
|
AutoSelect = True
|
||
|
|
Caption = 'Author/Dictator:'
|
||
|
|
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 = '<>'
|
||
|
|
TabOrder = 2
|
||
|
|
OnEnter = cboAuthorEnter
|
||
|
|
OnExit = cboAuthorExit
|
||
|
|
OnMouseClick = cboAuthorMouseClick
|
||
|
|
OnNeedData = cboAuthorNeedData
|
||
|
|
CharsNeedMatch = 1
|
||
|
|
end
|
||
|
|
object cboAttending: TORComboBox
|
||
|
|
Left = 148
|
||
|
|
Top = 191
|
||
|
|
Width = 239
|
||
|
|
Height = 21
|
||
|
|
Style = orcsDropDown
|
||
|
|
AutoSelect = True
|
||
|
|
Caption = 'Attending Physician:'
|
||
|
|
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 = '<>'
|
||
|
|
TabOrder = 3
|
||
|
|
OnExit = cboAttendingExit
|
||
|
|
OnNeedData = cboAttendingNeedData
|
||
|
|
CharsNeedMatch = 1
|
||
|
|
end
|
||
|
|
object cmdOK: TButton
|
||
|
|
Left = 411
|
||
|
|
Top = 165
|
||
|
|
Width = 72
|
||
|
|
Height = 21
|
||
|
|
Caption = 'OK'
|
||
|
|
Default = True
|
||
|
|
TabOrder = 4
|
||
|
|
OnClick = cmdOKClick
|
||
|
|
end
|
||
|
|
object cmdCancel: TButton
|
||
|
|
Left = 411
|
||
|
|
Top = 190
|
||
|
|
Width = 72
|
||
|
|
Height = 21
|
||
|
|
Cancel = True
|
||
|
|
Caption = 'Cancel'
|
||
|
|
TabOrder = 5
|
||
|
|
OnClick = cmdCancelClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object pnlTranscription: TORAutoPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 218
|
||
|
|
Width = 498
|
||
|
|
Height = 63
|
||
|
|
Align = alTop
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 1
|
||
|
|
Visible = False
|
||
|
|
object lblTranscriptionist: TLabel
|
||
|
|
Left = 53
|
||
|
|
Top = 13
|
||
|
|
Width = 71
|
||
|
|
Height = 13
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Caption = 'Transcriptionist'
|
||
|
|
end
|
||
|
|
object lblUrgency: TLabel
|
||
|
|
Left = 84
|
||
|
|
Top = 38
|
||
|
|
Width = 40
|
||
|
|
Height = 13
|
||
|
|
Alignment = taRightJustify
|
||
|
|
Caption = 'Urgency'
|
||
|
|
end
|
||
|
|
object cboTranscriptionist: TORComboBox
|
||
|
|
Left = 148
|
||
|
|
Top = 7
|
||
|
|
Width = 239
|
||
|
|
Height = 21
|
||
|
|
Style = orcsDropDown
|
||
|
|
AutoSelect = True
|
||
|
|
Caption = 'Transcriptionist'
|
||
|
|
Color = clWindow
|
||
|
|
DropDownCount = 8
|
||
|
|
ItemHeight = 13
|
||
|
|
ItemTipColor = clWindow
|
||
|
|
ItemTipEnable = True
|
||
|
|
ListItemsOnly = True
|
||
|
|
LongList = True
|
||
|
|
LookupPiece = 2
|
||
|
|
MaxLength = 0
|
||
|
|
ParentShowHint = False
|
||
|
|
Pieces = '2,3'
|
||
|
|
ShowHint = True
|
||
|
|
Sorted = False
|
||
|
|
SynonymChars = '<>'
|
||
|
|
TabOrder = 0
|
||
|
|
OnNeedData = cboAuthorNeedData
|
||
|
|
CharsNeedMatch = 1
|
||
|
|
end
|
||
|
|
object cboUrgency: TORComboBox
|
||
|
|
Left = 148
|
||
|
|
Top = 37
|
||
|
|
Width = 121
|
||
|
|
Height = 21
|
||
|
|
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 = 1
|
||
|
|
CharsNeedMatch = 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object pnlAdmissions: TORAutoPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 327
|
||
|
|
Width = 498
|
||
|
|
Height = 110
|
||
|
|
Align = alClient
|
||
|
|
AutoSize = True
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 2
|
||
|
|
Visible = False
|
||
|
|
object lstAdmissions: TORListBox
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 498
|
||
|
|
Height = 110
|
||
|
|
Align = alClient
|
||
|
|
ItemHeight = 13
|
||
|
|
ParentShowHint = False
|
||
|
|
ShowHint = True
|
||
|
|
TabOrder = 0
|
||
|
|
Caption = 'Associated Admission'
|
||
|
|
ItemTipColor = clWindow
|
||
|
|
LongList = False
|
||
|
|
Pieces = '3,5,4,9'
|
||
|
|
TabPositions = '20'
|
||
|
|
OnChange = lstAdmissionsChange
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object pnlLabels: TORAutoPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 281
|
||
|
|
Width = 498
|
||
|
|
Height = 46
|
||
|
|
Align = alTop
|
||
|
|
AutoSize = True
|
||
|
|
BevelOuter = bvNone
|
||
|
|
TabOrder = 3
|
||
|
|
Visible = False
|
||
|
|
DesignSize = (
|
||
|
|
498
|
||
|
|
46)
|
||
|
|
object lblLocation: TLabel
|
||
|
|
Left = 1
|
||
|
|
Top = 33
|
||
|
|
Width = 41
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Location'
|
||
|
|
end
|
||
|
|
object lblDate: TLabel
|
||
|
|
Left = 133
|
||
|
|
Top = 33
|
||
|
|
Width = 73
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Admission Date'
|
||
|
|
end
|
||
|
|
object lblType: TLabel
|
||
|
|
Left = 249
|
||
|
|
Top = 33
|
||
|
|
Width = 24
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Type'
|
||
|
|
end
|
||
|
|
object lblSummStatus: TLabel
|
||
|
|
Left = 336
|
||
|
|
Top = 33
|
||
|
|
Width = 127
|
||
|
|
Height = 13
|
||
|
|
Caption = 'Discharge Summary Status'
|
||
|
|
end
|
||
|
|
object lblDCSumm1: TStaticText
|
||
|
|
Tag = 1
|
||
|
|
Left = 81
|
||
|
|
Top = 0
|
||
|
|
Width = 300
|
||
|
|
Height = 17
|
||
|
|
Anchors = []
|
||
|
|
Caption = 'This discharge summary must be associated with an admission.'
|
||
|
|
Font.Charset = DEFAULT_CHARSET
|
||
|
|
Font.Color = clWindowText
|
||
|
|
Font.Height = -11
|
||
|
|
Font.Name = 'MS Sans Serif'
|
||
|
|
Font.Style = []
|
||
|
|
ParentFont = False
|
||
|
|
TabOrder = 0
|
||
|
|
end
|
||
|
|
object lblDCSumm2: TStaticText
|
||
|
|
Tag = 1
|
||
|
|
Left = 120
|
||
|
|
Top = 14
|
||
|
|
Width = 207
|
||
|
|
Height = 17
|
||
|
|
Anchors = []
|
||
|
|
Caption = 'Select one of the following or press cancel.'
|
||
|
|
TabOrder = 1
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|