VistA-cprs/CPRS-Chart/fNoteCPFields.dfm

159 lines
3.5 KiB
Plaintext

inherited frmNoteCPFields: TfrmNoteCPFields
Left = 508
Top = 307
Caption = 'Enter Required Fields'
ClientHeight = 151
ClientWidth = 249
Position = poScreenCenter
OnCreate = FormCreate
ExplicitWidth = 257
ExplicitHeight = 178
PixelsPerInch = 96
TextHeight = 13
object lblAuthor: TLabel [0]
Left = 7
Top = 5
Width = 94
Height = 13
AutoSize = False
Caption = 'Author:'
end
object lblProcSummCode: TOROffsetLabel [1]
Left = 4
Top = 50
Width = 125
Height = 15
Caption = 'Procedure Summary Code'
HorzOffset = 2
Transparent = False
VertOffset = 2
WordWrap = False
end
object lblProcDateTime: TOROffsetLabel [2]
Left = 4
Top = 96
Width = 105
Height = 15
Caption = 'Procedure Date/Time'
HorzOffset = 2
Transparent = False
VertOffset = 2
WordWrap = False
end
object cboAuthor: TORComboBox [3]
Left = 4
Top = 17
Width = 239
Height = 21
Style = orcsDropDown
AutoSelect = True
Caption = 'Author'
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 = 0
OnNeedData = cboAuthorNeedData
CharsNeedMatch = 1
end
object cboProcSummCode: TORComboBox [4]
Left = 4
Top = 66
Width = 142
Height = 21
Style = orcsDropDown
AutoSelect = True
Caption = 'Procedure Summary Code'
Color = clWindow
DropDownCount = 8
Items.Strings = (
'1^Normal'
'2^Abnormal'
'3^Borderline'
'4^Incomplete')
ItemHeight = 13
ItemTipColor = clWindow
ItemTipEnable = True
ListItemsOnly = False
LongList = False
LookupPiece = 0
MaxLength = 0
Pieces = '2'
Sorted = False
SynonymChars = '<>'
TabOrder = 1
CharsNeedMatch = 1
end
object calProcDateTime: TORDateBox [5]
Left = 4
Top = 112
Width = 142
Height = 21
TabOrder = 2
DateOnly = False
RequireTime = True
Caption = 'Procedure Date/Time'
end
object cmdOK: TButton [6]
Left = 166
Top = 78
Width = 72
Height = 21
Hint =
'Save these items, and continue to enter text interpretation of r' +
'esults.'
Caption = 'Save'
Default = True
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = cmdOKClick
end
object cmdCancel: TButton [7]
Left = 166
Top = 105
Width = 72
Height = 21
Hint =
'Enter text interpretation of results now, and enter these items ' +
'later.'
Cancel = True
Caption = 'Enter Later'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = cmdCancelClick
end
inherited amgrMain: TVA508AccessibilityManager
Data = (
(
'Component = cboAuthor'
'Status = stsDefault')
(
'Component = cboProcSummCode'
'Status = stsDefault')
(
'Component = calProcDateTime'
'Status = stsDefault')
(
'Component = cmdOK'
'Status = stsDefault')
(
'Component = cmdCancel'
'Status = stsDefault')
(
'Component = frmNoteCPFields'
'Status = stsDefault'))
end
end