543 lines
14 KiB
Plaintext
543 lines
14 KiB
Plaintext
|
inherited frmMeds: TfrmMeds
|
||
|
|
Left = 93
|
||
|
|
Top = 250
|
||
|
|
Width = 709
|
||
|
|
Height = 686
|
||
|
|
HelpContext = 3000
|
||
|
|
VertScrollBar.Visible = False
|
||
|
|
Caption = 'Medications Page'
|
||
|
|
HelpFile = 'qnoback'
|
||
|
|
Menu = mnuMeds
|
||
|
|
Visible = True
|
||
|
|
OnDestroy = FormDestroy
|
||
|
|
OnMouseUp = FormMouseUp
|
||
|
|
OnResize = FormResize
|
||
|
|
OnShow = FormShow
|
||
|
|
PixelsPerInch = 96
|
||
|
|
TextHeight = 13
|
||
|
|
inherited shpPageBottom: TShape
|
||
|
|
Top = 524
|
||
|
|
Width = 1028
|
||
|
|
Height = -4
|
||
|
|
Align = alCustom
|
||
|
|
end
|
||
|
|
object splitTop: TSplitter
|
||
|
|
Left = 0
|
||
|
|
Top = 421
|
||
|
|
Width = 701
|
||
|
|
Height = 4
|
||
|
|
Cursor = crVSplit
|
||
|
|
Align = alBottom
|
||
|
|
AutoSnap = False
|
||
|
|
Color = clBtnFace
|
||
|
|
Constraints.MaxHeight = 4
|
||
|
|
Constraints.MinHeight = 4
|
||
|
|
MinSize = 100
|
||
|
|
ParentColor = False
|
||
|
|
OnMoved = splitTopMoved
|
||
|
|
end
|
||
|
|
object pnlBottom: TORAutoPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 425
|
||
|
|
Width = 701
|
||
|
|
Height = 207
|
||
|
|
Align = alBottom
|
||
|
|
Constraints.MinHeight = 40
|
||
|
|
Ctl3D = False
|
||
|
|
ParentCtl3D = False
|
||
|
|
TabOrder = 0
|
||
|
|
object splitBottom: TSplitter
|
||
|
|
Left = 1
|
||
|
|
Top = 102
|
||
|
|
Width = 699
|
||
|
|
Height = 4
|
||
|
|
Cursor = crVSplit
|
||
|
|
Align = alBottom
|
||
|
|
AutoSnap = False
|
||
|
|
Color = clBtnFace
|
||
|
|
Constraints.MaxHeight = 4
|
||
|
|
Constraints.MinHeight = 4
|
||
|
|
MinSize = 100
|
||
|
|
ParentColor = False
|
||
|
|
OnMoved = splitBottomMoved
|
||
|
|
end
|
||
|
|
object pnlMedIn: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 106
|
||
|
|
Width = 699
|
||
|
|
Height = 100
|
||
|
|
Align = alBottom
|
||
|
|
Constraints.MinHeight = 100
|
||
|
|
TabOrder = 0
|
||
|
|
object lstMedsIn: TCaptionListBox
|
||
|
|
Tag = 2
|
||
|
|
Left = 1
|
||
|
|
Top = 17
|
||
|
|
Width = 697
|
||
|
|
Height = 82
|
||
|
|
Style = lbOwnerDrawVariable
|
||
|
|
Align = alClient
|
||
|
|
Color = clCream
|
||
|
|
Constraints.MinHeight = 65
|
||
|
|
Ctl3D = False
|
||
|
|
ItemHeight = 13
|
||
|
|
MultiSelect = True
|
||
|
|
ParentCtl3D = False
|
||
|
|
PopupMenu = popMed
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = lstMedsInClick
|
||
|
|
OnDblClick = lstMedsDblClick
|
||
|
|
OnDrawItem = lstMedsDrawItem
|
||
|
|
OnExit = lstMedsExit
|
||
|
|
OnMeasureItem = lstMedsMeasureItem
|
||
|
|
Caption = 'Inpatient Medications'
|
||
|
|
end
|
||
|
|
object hdrMedsIn: THeaderControl
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 697
|
||
|
|
Height = 16
|
||
|
|
BiDiMode = bdLeftToRight
|
||
|
|
DragReorder = False
|
||
|
|
Constraints.MinHeight = 16
|
||
|
|
Sections = <
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 42
|
||
|
|
Text = 'Action'
|
||
|
|
Width = 42
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 20
|
||
|
|
Text = 'Inpatient Medications'
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Stop Date'
|
||
|
|
Width = 62
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Status'
|
||
|
|
Width = 62
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Location'
|
||
|
|
Width = 20
|
||
|
|
end>
|
||
|
|
OnSectionClick = hdrMedsInSectionClick
|
||
|
|
OnSectionResize = hdrMedsInSectionResize
|
||
|
|
ParentBiDiMode = False
|
||
|
|
OnMouseDown = hdrMedsInMouseDown
|
||
|
|
OnMouseUp = hdrMedsInMouseUp
|
||
|
|
OnResize = hdrMedsInResize
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object pnlNonVA: TPanel
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 699
|
||
|
|
Height = 101
|
||
|
|
Align = alClient
|
||
|
|
Caption = 'pnlNonVA'
|
||
|
|
Constraints.MinHeight = 40
|
||
|
|
TabOrder = 1
|
||
|
|
object lstMedsNonVA: TCaptionListBox
|
||
|
|
Tag = 3
|
||
|
|
Left = 1
|
||
|
|
Top = 17
|
||
|
|
Width = 697
|
||
|
|
Height = 83
|
||
|
|
Style = lbOwnerDrawVariable
|
||
|
|
Align = alClient
|
||
|
|
Color = clCream
|
||
|
|
Constraints.MinHeight = 40
|
||
|
|
Ctl3D = False
|
||
|
|
ItemHeight = 13
|
||
|
|
MultiSelect = True
|
||
|
|
ParentCtl3D = False
|
||
|
|
PopupMenu = popMed
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = lstMedsNonVAClick
|
||
|
|
OnDblClick = lstMedsDblClick
|
||
|
|
OnDrawItem = lstMedsDrawItem
|
||
|
|
OnExit = lstMedsExit
|
||
|
|
OnMeasureItem = lstMedsMeasureItem
|
||
|
|
Caption = 'Inpatient Medications'
|
||
|
|
end
|
||
|
|
object hdrMedsNonVA: THeaderControl
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 697
|
||
|
|
Height = 16
|
||
|
|
BiDiMode = bdLeftToRight
|
||
|
|
DragReorder = False
|
||
|
|
Constraints.MinHeight = 16
|
||
|
|
Sections = <
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 42
|
||
|
|
Text = 'Action'
|
||
|
|
Width = 42
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 20
|
||
|
|
Text = 'Non-VA Medications'
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Start Date'
|
||
|
|
Width = 62
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Status'
|
||
|
|
Width = 62
|
||
|
|
end>
|
||
|
|
OnSectionClick = hdrMedsNonVASectionClick
|
||
|
|
OnSectionResize = hdrMedsNonVASectionResize
|
||
|
|
ParentBiDiMode = False
|
||
|
|
OnMouseDown = hdrMedsNonVAMouseDown
|
||
|
|
OnMouseUp = hdrMedsNonVAMouseUp
|
||
|
|
OnResize = hdrMedsNonVAResize
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object pnlTop: TORAutoPanel
|
||
|
|
Left = 0
|
||
|
|
Top = 0
|
||
|
|
Width = 701
|
||
|
|
Height = 421
|
||
|
|
Align = alClient
|
||
|
|
Ctl3D = True
|
||
|
|
ParentCtl3D = False
|
||
|
|
TabOrder = 1
|
||
|
|
object lstMedsOut: TCaptionListBox
|
||
|
|
Tag = 1
|
||
|
|
Left = 1
|
||
|
|
Top = 17
|
||
|
|
Width = 699
|
||
|
|
Height = 403
|
||
|
|
Style = lbOwnerDrawVariable
|
||
|
|
Align = alClient
|
||
|
|
Color = clCream
|
||
|
|
Constraints.MinHeight = 40
|
||
|
|
Ctl3D = False
|
||
|
|
ItemHeight = 13
|
||
|
|
MultiSelect = True
|
||
|
|
ParentCtl3D = False
|
||
|
|
PopupMenu = popMed
|
||
|
|
TabOrder = 0
|
||
|
|
OnClick = lstMedsOutClick
|
||
|
|
OnDblClick = lstMedsDblClick
|
||
|
|
OnDrawItem = lstMedsDrawItem
|
||
|
|
OnExit = lstMedsExit
|
||
|
|
OnMeasureItem = lstMedsMeasureItem
|
||
|
|
Caption = 'Outpatient Medications'
|
||
|
|
end
|
||
|
|
object hdrMedsOut: THeaderControl
|
||
|
|
Left = 1
|
||
|
|
Top = 1
|
||
|
|
Width = 699
|
||
|
|
Height = 16
|
||
|
|
BiDiMode = bdLeftToRight
|
||
|
|
DragReorder = False
|
||
|
|
Constraints.MinHeight = 16
|
||
|
|
Sections = <
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 42
|
||
|
|
Text = 'Action'
|
||
|
|
Width = 42
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 20
|
||
|
|
Text = 'Outpatient Medications'
|
||
|
|
Width = 100
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Expires'
|
||
|
|
Width = 62
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Status'
|
||
|
|
Width = 62
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Last Filled'
|
||
|
|
Width = 62
|
||
|
|
end
|
||
|
|
item
|
||
|
|
ImageIndex = -1
|
||
|
|
MinWidth = 16
|
||
|
|
Text = 'Refills Remaining'
|
||
|
|
Width = 78
|
||
|
|
end>
|
||
|
|
OnSectionClick = hdrMedsOutSectionClick
|
||
|
|
OnSectionResize = hdrMedsOutSectionResize
|
||
|
|
ParentBiDiMode = False
|
||
|
|
OnMouseDown = hdrMedsOutMouseDown
|
||
|
|
OnMouseUp = hdrMedsOutMouseUp
|
||
|
|
OnResize = hdrMedsOutResize
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuMeds: TMainMenu
|
||
|
|
Left = 56
|
||
|
|
Top = 154
|
||
|
|
object mnuView: TMenuItem
|
||
|
|
Caption = '&View'
|
||
|
|
GroupIndex = 3
|
||
|
|
OnClick = mnuViewClick
|
||
|
|
object mnuViewChart: TMenuItem
|
||
|
|
Caption = 'Chart &Tab'
|
||
|
|
object mnuChartCover: TMenuItem
|
||
|
|
Tag = 1
|
||
|
|
Caption = 'Cover &Sheet'
|
||
|
|
ShortCut = 16467
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartProbs: TMenuItem
|
||
|
|
Tag = 2
|
||
|
|
Caption = '&Problem List'
|
||
|
|
ShortCut = 16464
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartMeds: TMenuItem
|
||
|
|
Tag = 3
|
||
|
|
Caption = '&Medications'
|
||
|
|
ShortCut = 16461
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartOrders: TMenuItem
|
||
|
|
Tag = 4
|
||
|
|
Caption = '&Orders'
|
||
|
|
ShortCut = 16463
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartNotes: TMenuItem
|
||
|
|
Tag = 6
|
||
|
|
Caption = 'Progress &Notes'
|
||
|
|
ShortCut = 16462
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartCslts: TMenuItem
|
||
|
|
Tag = 7
|
||
|
|
Caption = 'Consul&ts'
|
||
|
|
ShortCut = 16468
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartSurgery: TMenuItem
|
||
|
|
Tag = 11
|
||
|
|
Caption = 'S&urgery'
|
||
|
|
ShortCut = 16469
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartDCSumm: TMenuItem
|
||
|
|
Tag = 8
|
||
|
|
Caption = '&Discharge Summaries'
|
||
|
|
ShortCut = 16452
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartLabs: TMenuItem
|
||
|
|
Tag = 9
|
||
|
|
Caption = '&Laboratory'
|
||
|
|
ShortCut = 16460
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
object mnuChartReports: TMenuItem
|
||
|
|
Tag = 10
|
||
|
|
Caption = '&Reports'
|
||
|
|
ShortCut = 16466
|
||
|
|
OnClick = mnuChartTabClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuViewInformation: TMenuItem
|
||
|
|
Caption = 'Information'
|
||
|
|
OnClick = mnuViewInformationClick
|
||
|
|
object mnuViewDemo: TMenuItem
|
||
|
|
Tag = 1
|
||
|
|
Caption = 'De&mographics...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewVisits: TMenuItem
|
||
|
|
Tag = 2
|
||
|
|
Caption = 'Visits/Pr&ovider...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewPrimaryCare: TMenuItem
|
||
|
|
Tag = 3
|
||
|
|
Caption = 'Primary &Care...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewMyHealtheVet: TMenuItem
|
||
|
|
Tag = 4
|
||
|
|
Caption = 'MyHealthe&Vet...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuInsurance: TMenuItem
|
||
|
|
Tag = 5
|
||
|
|
Caption = '&Insurance...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewFlags: TMenuItem
|
||
|
|
Tag = 6
|
||
|
|
Caption = '&Flags...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewRemoteData: TMenuItem
|
||
|
|
Tag = 7
|
||
|
|
Caption = 'Remote &Data...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewReminders: TMenuItem
|
||
|
|
Tag = 8
|
||
|
|
Caption = '&Reminders...'
|
||
|
|
Enabled = False
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
object mnuViewPostings: TMenuItem
|
||
|
|
Tag = 9
|
||
|
|
Caption = '&Postings...'
|
||
|
|
OnClick = ViewInfo
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object Z2: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object mnuViewActive: TMenuItem
|
||
|
|
Caption = '&Active Medications'
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
object mnuViewExpiring: TMenuItem
|
||
|
|
Caption = '&Expiring Medications'
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
object Z3: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
object mnuViewSortClass: TMenuItem
|
||
|
|
Caption = 'Sort by &VA Drug Class'
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
object mnuViewSortName: TMenuItem
|
||
|
|
Caption = 'Sort by Drug &Name'
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
object Z4: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
Visible = False
|
||
|
|
end
|
||
|
|
object mnuViewDetail: TMenuItem
|
||
|
|
Caption = '&Details...'
|
||
|
|
OnClick = mnuViewDetailClick
|
||
|
|
end
|
||
|
|
object mnuViewHistory: TMenuItem
|
||
|
|
Caption = 'Administration &History...'
|
||
|
|
OnClick = mnuViewHistoryClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object mnuAct: TMenuItem
|
||
|
|
Caption = '&Action'
|
||
|
|
GroupIndex = 4
|
||
|
|
OnClick = mnuActClick
|
||
|
|
object mnuActNew: TMenuItem
|
||
|
|
Caption = '&New Medication...'
|
||
|
|
OnClick = mnuActNewClick
|
||
|
|
end
|
||
|
|
object Z1: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object mnuActChange: TMenuItem
|
||
|
|
Caption = '&Change...'
|
||
|
|
OnClick = mnuActChangeClick
|
||
|
|
end
|
||
|
|
object mnuActDC: TMenuItem
|
||
|
|
Caption = '&Discontinue / Cancel...'
|
||
|
|
OnClick = mnuActDCClick
|
||
|
|
end
|
||
|
|
object mnuActHold: TMenuItem
|
||
|
|
Caption = '&Hold...'
|
||
|
|
OnClick = mnuActHoldClick
|
||
|
|
end
|
||
|
|
object mnuActRenew: TMenuItem
|
||
|
|
Caption = 'Rene&w...'
|
||
|
|
OnClick = mnuActRenewClick
|
||
|
|
end
|
||
|
|
object mnuActCopy: TMenuItem
|
||
|
|
Caption = 'Co&py to New Order...'
|
||
|
|
OnClick = mnuActCopyClick
|
||
|
|
end
|
||
|
|
object mnuActTransfer: TMenuItem
|
||
|
|
Caption = '&Transfer to...'
|
||
|
|
OnClick = mnuActCopyClick
|
||
|
|
end
|
||
|
|
object mnuActRefill: TMenuItem
|
||
|
|
Caption = 'R&efill...'
|
||
|
|
OnClick = mnuActRefillClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
object popMed: TPopupMenu
|
||
|
|
OnPopup = popMedPopup
|
||
|
|
Left = 116
|
||
|
|
Top = 155
|
||
|
|
object popMedDetails: TMenuItem
|
||
|
|
Caption = 'Detai&ls...'
|
||
|
|
OnClick = mnuViewDetailClick
|
||
|
|
end
|
||
|
|
object popMedHistory: TMenuItem
|
||
|
|
Caption = 'Administration &History...'
|
||
|
|
OnClick = mnuViewHistoryClick
|
||
|
|
end
|
||
|
|
object N1: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object popMedChange: TMenuItem
|
||
|
|
Caption = '&Change...'
|
||
|
|
OnClick = mnuActChangeClick
|
||
|
|
end
|
||
|
|
object popMedDC: TMenuItem
|
||
|
|
Caption = '&Discontinue...'
|
||
|
|
OnClick = mnuActDCClick
|
||
|
|
end
|
||
|
|
object popMedRefill: TMenuItem
|
||
|
|
Caption = 'R&efill...'
|
||
|
|
OnClick = mnuActRefillClick
|
||
|
|
end
|
||
|
|
object popMedRenew: TMenuItem
|
||
|
|
Caption = 'Rene&w...'
|
||
|
|
OnClick = mnuActRenewClick
|
||
|
|
end
|
||
|
|
object N2: TMenuItem
|
||
|
|
Caption = '-'
|
||
|
|
end
|
||
|
|
object popMedNew: TMenuItem
|
||
|
|
Caption = '&New Medication...'
|
||
|
|
OnClick = mnuActNewClick
|
||
|
|
end
|
||
|
|
object mnuOptimizeFields: TMenuItem
|
||
|
|
Caption = 'Adjust Field Size'
|
||
|
|
Visible = False
|
||
|
|
OnClick = mnuOptimizeFieldsClick
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|