iSharkFly-Open
/
VistA-cprs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
VistA-cprs/CPRS-Chart/fCover.dfm

553 lines
14 KiB
Plaintext
Raw Normal View History

Initial Upload of Official WV CPRS 1.0.26.76
2008-07-06 17:36:37 -04:00
inherited frmCover: TfrmCover
Left = 206
Top = 280
HelpContext = 1000
BorderIcons = []
Caption = 'Cover Sheet'
HelpFile = 'overvw'
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object pnlBase: TPanel
Left = 0
Top = 0
Width = 640
Height = 349
Align = alClient
BevelOuter = bvNone
Constraints.MinHeight = 10
TabOrder = 0
object sptBottom: TSplitter
Left = 0
Top = 230
Width = 640
Height = 5
Cursor = crVSplit
Align = alBottom
Constraints.MinHeight = 5
OnCanResize = sptBottomCanResize
end
object pnlNotTheBottom: TPanel
Left = 0
Top = 0
Width = 640
Height = 230
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object sptTop: TSplitter
Left = 0
Top = 120
Width = 640
Height = 5
Cursor = crVSplit
Align = alTop
Constraints.MinHeight = 5
OnCanResize = sptTopCanResize
end
object pnlTop: TPanel
Left = 0
Top = 0
Width = 640
Height = 120
Align = alTop
BevelOuter = bvNone
TabOrder = 0
object spt_2: TSplitter
Left = 424
Top = 0
Width = 5
Height = 120
Align = alRight
Constraints.MinWidth = 5
OnCanResize = spt_2CanResize
end
object pnl_not3: TPanel
Left = 0
Top = 0
Width = 424
Height = 120
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object spt_1: TSplitter
Left = 211
Top = 0
Width = 5
Height = 120
Color = clBtnFace
Constraints.MinWidth = 5
ParentColor = False
OnCanResize = spt_1CanResize
end
object pnl_1: TPanel
Left = 0
Top = 0
Width = 211
Height = 120
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
Visible = False
object lbl_1: TOROffsetLabel
Left = 0
Top = 0
Width = 211
Height = 19
Align = alTop
Caption = ' '
HorzOffset = 2
Transparent = False
VertOffset = 6
WordWrap = False
end
object lst_1: TORListBox
Tag = 10
Left = 0
Top = 19
Width = 211
Height = 101
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '2,3'
end
end
object pnl_2: TPanel
Left = 216
Top = 0
Width = 208
Height = 120
Align = alClient
BevelOuter = bvNone
TabOrder = 1
Visible = False
object lbl_2: TOROffsetLabel
Left = 0
Top = 0
Width = 208
Height = 19
Align = alTop
Caption = ' '
HorzOffset = 2
Transparent = False
VertOffset = 6
WordWrap = False
end
object lst_2: TORListBox
Tag = 20
Left = 0
Top = 19
Width = 208
Height = 101
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
end
end
end
object pnl_3: TPanel
Left = 429
Top = 0
Width = 211
Height = 120
Align = alRight
BevelOuter = bvNone
TabOrder = 1
Visible = False
object lbl_3: TOROffsetLabel
Left = 0
Top = 57
Width = 211
Height = 19
Align = alTop
Caption = ' '
HorzOffset = 2
Transparent = False
VertOffset = 6
WordWrap = False
end
object sptFlag: TSplitter
Left = 0
Top = 52
Width = 211
Height = 5
Cursor = crVSplit
Align = alTop
Beveled = True
Constraints.MinHeight = 5
end
object pnlFlag: TPanel
Left = 0
Top = 0
Width = 211
Height = 52
Align = alTop
Constraints.MinHeight = 40
TabOrder = 0
object lblFlag: TOROffsetLabel
Left = 1
Top = 1
Width = 209
Height = 15
Align = alTop
Caption = 'Patient Record Flags'
HorzOffset = 2
Transparent = False
VertOffset = 2
WordWrap = False
end
object lstFlag: TORListBox
Left = 1
Top = 16
Width = 209
Height = 35
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = lstFlagClick
OnKeyDown = lstFlagKeyDown
ItemTipColor = clWindow
LongList = False
Pieces = '2'
end
end
object lst_3: TORListBox
Tag = 30
Left = 0
Top = 76
Width = 211
Height = 44
Align = alClient
Ctl3D = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentCtl3D = False
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '20'
end
end
end
object pnlMiddle: TPanel
Left = 0
Top = 125
Width = 640
Height = 105
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object spt_3: TSplitter
Left = 318
Top = 0
Width = 5
Height = 105
Constraints.MinWidth = 5
OnCanResize = spt_3CanResize
end
object pnl_4: TPanel
Left = 0
Top = 0
Width = 318
Height = 105
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
Visible = False
object lbl_4: TOROffsetLabel
Left = 0
Top = 0
Width = 318
Height = 13
Align = alTop
Caption = ' '
HorzOffset = 2
Transparent = False
VertOffset = 0
WordWrap = False
end
object lst_4: TORListBox
Tag = 40
Left = 0
Top = 13
Width = 318
Height = 92
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '35'
end
end
object pnl_5: TPanel
Left = 323
Top = 0
Width = 317
Height = 105
Align = alClient
BevelOuter = bvNone
TabOrder = 1
Visible = False
object lbl_5: TOROffsetLabel
Left = 0
Top = 0
Width = 317
Height = 13
Align = alTop
Caption = ' '
HorzOffset = 2
Transparent = False
VertOffset = 0
WordWrap = False
end
object lst_5: TORListBox
Tag = 50
Left = 0
Top = 13
Width = 317
Height = 92
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '34,44'
end
end
end
end
object pnlBottom: TPanel
Left = 0
Top = 235
Width = 640
Height = 114
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object spt_5: TSplitter
Left = 380
Top = 0
Width = 5
Height = 114
Align = alRight
Constraints.MinWidth = 5
OnCanResize = spt_5CanResize
end
object pnl_not8: TPanel
Left = 0
Top = 0
Width = 380
Height = 114
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object spt_4: TSplitter
Left = 255
Top = 0
Width = 5
Height = 114
Constraints.MinWidth = 5
OnCanResize = spt_4CanResize
end
object pnl_6: TPanel
Left = 0
Top = 0
Width = 255
Height = 114
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
Visible = False
object lbl_6: TOROffsetLabel
Left = 0
Top = 0
Width = 255
Height = 13
Align = alTop
Caption = ' '
HorzOffset = 2
Transparent = False
VertOffset = 0
WordWrap = False
end
object lst_6: TORListBox
Tag = 60
Left = 0
Top = 13
Width = 255
Height = 101
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '34'
end
end
object pnl_7: TPanel
Left = 260
Top = 0
Width = 120
Height = 114
Align = alClient
BevelOuter = bvNone
TabOrder = 1
Visible = False
object lbl_7: TOROffsetLabel
Left = 0
Top = 0
Width = 120
Height = 13
Align = alTop
HorzOffset = 2
Transparent = False
VertOffset = 0
WordWrap = False
end
object lst_7: TORListBox
Tag = 70
Left = 0
Top = 13
Width = 120
Height = 101
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '4,13,15,24'
end
end
end
object pnl_8: TPanel
Left = 385
Top = 0
Width = 255
Height = 114
Align = alRight
BevelOuter = bvNone
TabOrder = 1
Visible = False
object lbl_8: TOROffsetLabel
Left = 0
Top = 0
Width = 255
Height = 13
Align = alTop
HorzOffset = 2
Transparent = False
VertOffset = 0
WordWrap = False
end
object lst_8: TORListBox
Tag = 80
Left = 0
Top = 13
Width = 255
Height = 101
Align = alClient
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = CoverItemClick
OnExit = CoverItemExit
ItemTipColor = clWindow
LongList = False
TabPositions = '15,35'
end
end
end
end
object timPoll: TTimer
Enabled = False
Interval = 2600
OnTimer = timPollTimer
Left = 20
Top = 32
end
object popMenuAllergies: TPopupMenu
OnPopup = popMenuAllergiesPopup
Left = 283
Top = 46
object popNewAllergy: TMenuItem
Caption = 'Enter new allergy'
OnClick = popNewAllergyClick
end
object popEditAllergy: TMenuItem
Caption = 'Edit selected allergy'
Visible = False
OnClick = popEditAllergyClick
end
object popEnteredInError: TMenuItem
Caption = 'Mark selected allergy as entered in error'
OnClick = popEnteredInErrorClick
end
object popNKA: TMenuItem
Caption = 'Mark patient as having "No Known Allergies" (NKA)'
OnClick = popNKAClick
end
end
end