621 lines
16 KiB
Plaintext
621 lines
16 KiB
Plaintext
inherited frmOrders: TfrmOrders
|
|
Left = 451
|
|
Top = 177
|
|
HelpContext = 4000
|
|
Caption = 'Orders Page'
|
|
ClientHeight = 591
|
|
ClientWidth = 766
|
|
HelpFile = 'overvw'
|
|
Menu = mnuOrders
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
ExplicitWidth = 774
|
|
ExplicitHeight = 645
|
|
PixelsPerInch = 96
|
|
TextHeight = 13
|
|
inherited shpPageBottom: TShape
|
|
Top = 586
|
|
Width = 766
|
|
ExplicitTop = 528
|
|
ExplicitWidth = 766
|
|
end
|
|
inherited sptHorz: TSplitter
|
|
Left = 117
|
|
Height = 586
|
|
OnMoved = sptHorzMoved
|
|
ExplicitLeft = 117
|
|
ExplicitHeight = 528
|
|
end
|
|
inherited pnlLeft: TPanel
|
|
Width = 117
|
|
Height = 586
|
|
ExplicitWidth = 117
|
|
ExplicitHeight = 586
|
|
object OROffsetLabel1: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 117
|
|
Height = 19
|
|
Align = alTop
|
|
Caption = 'View Orders'
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 6
|
|
WordWrap = False
|
|
end
|
|
object lblWrite: TLabel
|
|
Left = 0
|
|
Top = 97
|
|
Width = 117
|
|
Height = 19
|
|
Align = alTop
|
|
AutoSize = False
|
|
Caption = 'Write Orders'
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Layout = tlBottom
|
|
OnMouseMove = lblWriteMouseMove
|
|
end
|
|
object sptVert: TSplitter
|
|
Left = 0
|
|
Top = 75
|
|
Width = 117
|
|
Height = 4
|
|
Cursor = crVSplit
|
|
Align = alTop
|
|
OnMoved = sptVertMoved
|
|
end
|
|
object lstSheets: TORListBox
|
|
Left = 0
|
|
Top = 19
|
|
Width = 117
|
|
Height = 56
|
|
Align = alTop
|
|
Constraints.MinHeight = 30
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
OnClick = lstSheetsClick
|
|
Caption = 'View Orders'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object lstWrite: TORListBox
|
|
Left = 0
|
|
Top = 116
|
|
Width = 117
|
|
Height = 470
|
|
Align = alClient
|
|
ItemHeight = 13
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 2
|
|
OnClick = lstWriteClick
|
|
Caption = 'Write Orders'
|
|
ItemTipColor = clWindow
|
|
LongList = False
|
|
Pieces = '2'
|
|
end
|
|
object btnDelayedOrder: TORAlignButton
|
|
Left = 0
|
|
Top = 79
|
|
Width = 117
|
|
Height = 18
|
|
Align = alTop
|
|
Caption = 'Write Delayed Orders'
|
|
TabOrder = 1
|
|
OnClick = btnDelayedOrderClick
|
|
Alignment = taLeftJustify
|
|
end
|
|
end
|
|
inherited pnlRight: TPanel
|
|
Left = 121
|
|
Width = 645
|
|
Height = 586
|
|
ParentColor = True
|
|
ParentCtl3D = False
|
|
ParentFont = False
|
|
OnResize = pnlRightResize
|
|
ExplicitLeft = 121
|
|
ExplicitWidth = 645
|
|
ExplicitHeight = 586
|
|
object lblOrders: TOROffsetLabel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 645
|
|
Height = 19
|
|
Align = alTop
|
|
Caption = 'Active Orders'
|
|
HorzOffset = 2
|
|
Transparent = False
|
|
VertOffset = 6
|
|
WordWrap = False
|
|
end
|
|
object imgHide: TImage
|
|
Left = 520
|
|
Top = 0
|
|
Width = 16
|
|
Height = 16
|
|
Hint = 'All Active Orders not Visible'
|
|
AutoSize = True
|
|
ParentShowHint = False
|
|
Picture.Data = {
|
|
07544269746D6170F6000000424DF60000000000000076000000280000001000
|
|
0000100000000100040000000000800000000000000000000000100000001000
|
|
0000000000000000800000800000008080008000000080008000808000008080
|
|
8000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
|
|
FF003333000000000EEE33330FF00FBFB0EE33330F0BFB0BFB0E33330FF000BF
|
|
BFB033330FFF0BFBFBF033300000BF0FBFB0000FBFB0F0FB0BF0E0FB00000000
|
|
BF00E0BFBFBFBFB0F0F0E0FBFB0000000FF0E0BFBFBFBFB0FFF0E0FBFB00000F
|
|
0000E00FBFBFB0FF0FF0003000000FFF0F0333330FFFFFFF0033333300000000
|
|
0333}
|
|
ShowHint = True
|
|
Transparent = True
|
|
end
|
|
object hdrOrders: THeaderControl
|
|
Left = 0
|
|
Top = 19
|
|
Width = 645
|
|
Height = 17
|
|
Sections = <
|
|
item
|
|
ImageIndex = -1
|
|
Width = 0
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Service'
|
|
Width = 50
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 20
|
|
Text = 'Order'
|
|
Width = 210
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Start / Stop'
|
|
Width = 100
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Provider'
|
|
Width = 60
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Nurse'
|
|
Width = 40
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Clerk'
|
|
Width = 35
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Chart'
|
|
Width = 35
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 16
|
|
Text = 'Status'
|
|
Width = 50
|
|
end
|
|
item
|
|
ImageIndex = -1
|
|
MinWidth = 25
|
|
Text = 'Location'
|
|
Width = 40
|
|
end>
|
|
OnSectionClick = hdrOrdersSectionClick
|
|
OnSectionResize = hdrOrdersSectionResize
|
|
OnMouseDown = hdrOrdersMouseDown
|
|
OnMouseUp = hdrOrdersMouseUp
|
|
end
|
|
object lstOrders: TCaptionListBox
|
|
Left = 0
|
|
Top = 36
|
|
Width = 645
|
|
Height = 550
|
|
Style = lbOwnerDrawVariable
|
|
Align = alClient
|
|
Color = clCream
|
|
Ctl3D = False
|
|
ItemHeight = 32
|
|
MultiSelect = True
|
|
ParentCtl3D = False
|
|
PopupMenu = popOrder
|
|
TabOrder = 1
|
|
OnDblClick = lstOrdersDblClick
|
|
OnDrawItem = lstOrdersDrawItem
|
|
OnMeasureItem = lstOrdersMeasureItem
|
|
Caption = 'Active Orders'
|
|
end
|
|
end
|
|
inherited amgrMain: TVA508AccessibilityManager
|
|
Data = (
|
|
(
|
|
'Component = lstSheets'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstWrite'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = btnDelayedOrder'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = hdrOrders'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = lstOrders'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlLeft'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = pnlRight'
|
|
'Status = stsDefault')
|
|
(
|
|
'Component = frmOrders'
|
|
'Status = stsDefault'))
|
|
end
|
|
object mnuOrders: TMainMenu
|
|
Left = 136
|
|
Top = 60
|
|
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 Z1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuViewActive: TMenuItem
|
|
Caption = '&Active Orders (includes pending, recent activity)'
|
|
OnClick = mnuViewActiveClick
|
|
end
|
|
object mnuViewCurrent: TMenuItem
|
|
Caption = 'Current &Orders (active/pending status only)'
|
|
OnClick = mnuViewCurrentClick
|
|
end
|
|
object EventRealeasedOrder1: TMenuItem
|
|
Caption = 'Auto DC/Release Event Orders'
|
|
OnClick = EventRealeasedOrder1Click
|
|
end
|
|
object mnuViewExpiring: TMenuItem
|
|
Caption = '&Expiring Orders'
|
|
OnClick = mnuViewExpiringClick
|
|
end
|
|
object mnuViewUnsigned: TMenuItem
|
|
Caption = '&Unsigned Orders'
|
|
OnClick = mnuViewUnsignedClick
|
|
end
|
|
object mnuViewExpired: TMenuItem
|
|
Caption = '&Recently Expired Orders'
|
|
OnClick = mnuViewExpiredClick
|
|
end
|
|
object Z2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuViewCustom: TMenuItem
|
|
Caption = '&Custom Order View...'
|
|
OnClick = mnuViewCustomClick
|
|
end
|
|
object Z6: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuViewDfltSave: TMenuItem
|
|
Caption = '&Save as Default View...'
|
|
OnClick = mnuViewDfltSaveClick
|
|
end
|
|
object mnuViewDfltShow: TMenuItem
|
|
Caption = '&Return to Default View'
|
|
OnClick = mnuViewDfltShowClick
|
|
end
|
|
object Z3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuViewDetail: TMenuItem
|
|
Caption = '&Details...'
|
|
OnClick = mnuViewDetailClick
|
|
end
|
|
object mnuViewResult: TMenuItem
|
|
Caption = '&Results...'
|
|
OnClick = mnuViewResultClick
|
|
end
|
|
object mnuViewResultsHistory: TMenuItem
|
|
Caption = 'Results History...'
|
|
OnClick = mnuViewResultsHistoryClick
|
|
end
|
|
end
|
|
object mnuAct: TMenuItem
|
|
Caption = '&Action'
|
|
GroupIndex = 4
|
|
OnClick = mnuActClick
|
|
object mnuActChange: TMenuItem
|
|
Caption = '&Change...'
|
|
OnClick = mnuActChangeClick
|
|
end
|
|
object mnuActCopy: TMenuItem
|
|
Caption = 'Copy to &New Order...'
|
|
OnClick = mnuActCopyClick
|
|
end
|
|
object mnuActDC: TMenuItem
|
|
Caption = '&Discontinue / Cancel...'
|
|
OnClick = mnuActDCClick
|
|
end
|
|
object mnuActRel: TMenuItem
|
|
Caption = 'Release Delayed Orders'
|
|
Visible = False
|
|
OnClick = mnuActRelClick
|
|
end
|
|
object mnuActChgEvnt: TMenuItem
|
|
Caption = 'Change Release Event'
|
|
OnClick = mnuActChgEvntClick
|
|
end
|
|
object mnuActHold: TMenuItem
|
|
Caption = '&Hold...'
|
|
OnClick = mnuActHoldClick
|
|
end
|
|
object mnuActUnhold: TMenuItem
|
|
Caption = 'Re&lease Hold...'
|
|
OnClick = mnuActUnholdClick
|
|
end
|
|
object mnuActRenew: TMenuItem
|
|
Caption = 'Rene&w...'
|
|
OnClick = mnuActRenewClick
|
|
end
|
|
object Z4: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuActAlert: TMenuItem
|
|
Caption = '&Alert when Results...'
|
|
OnClick = mnuActAlertClick
|
|
end
|
|
object mnuActComplete: TMenuItem
|
|
Caption = 'Co&mplete...'
|
|
OnClick = mnuActCompleteClick
|
|
end
|
|
object mnuActFlag: TMenuItem
|
|
Caption = '&Flag...'
|
|
OnClick = mnuActFlagClick
|
|
end
|
|
object mnuActUnflag: TMenuItem
|
|
Caption = '&Unflag...'
|
|
OnClick = mnuActUnflagClick
|
|
end
|
|
object mnuActVerify: TMenuItem
|
|
Caption = '&Verify...'
|
|
OnClick = mnuActVerifyClick
|
|
end
|
|
object mnuActChartRev: TMenuItem
|
|
Caption = 'Char&t Review...'
|
|
OnClick = mnuActChartRevClick
|
|
end
|
|
object Z5: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuActRelease: TMenuItem
|
|
Caption = 'R&elease without MD Signature...'
|
|
OnClick = mnuActReleaseClick
|
|
end
|
|
object mnuActOnChart: TMenuItem
|
|
Caption = 'Signature &On Chart...'
|
|
OnClick = mnuActOnChartClick
|
|
end
|
|
object mnuActSign: TMenuItem
|
|
Caption = 'Si&gn Selected...'
|
|
OnClick = mnuActSignClick
|
|
end
|
|
end
|
|
object mnuOpt: TMenuItem
|
|
Caption = '&Options'
|
|
GroupIndex = 5
|
|
OnClick = mnuOptClick
|
|
object mnuOptSaveQuick: TMenuItem
|
|
Caption = '&Save as Quick Order...'
|
|
OnClick = mnuOptSaveQuickClick
|
|
end
|
|
object mnuOptEditCommon: TMenuItem
|
|
Caption = '&Edit Common List...'
|
|
OnClick = mnuOptEditCommonClick
|
|
end
|
|
end
|
|
end
|
|
object popOrder: TPopupMenu
|
|
OnPopup = popOrderPopup
|
|
Left = 445
|
|
Top = 300
|
|
object popOrderDetail: TMenuItem
|
|
Caption = 'Detai&ls...'
|
|
OnClick = mnuViewDetailClick
|
|
end
|
|
object popOrderResult: TMenuItem
|
|
Caption = '&Results...'
|
|
OnClick = mnuViewResultClick
|
|
end
|
|
object popResultsHistory: TMenuItem
|
|
Caption = 'Results History...'
|
|
OnClick = mnuViewResultsHistoryClick
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object popOrderChange: TMenuItem
|
|
Tag = 1
|
|
Caption = '&Change...'
|
|
OnClick = mnuActChangeClick
|
|
end
|
|
object popOrderRel: TMenuItem
|
|
Caption = 'Release Delayed Orders'
|
|
Visible = False
|
|
OnClick = mnuActRelClick
|
|
end
|
|
object mnuChgEvnt: TMenuItem
|
|
Caption = 'Change Release Event'
|
|
OnClick = mnuActChgEvntClick
|
|
end
|
|
object popOrderCopy: TMenuItem
|
|
Tag = 1
|
|
Caption = 'Copy to &New Order...'
|
|
OnClick = mnuActCopyClick
|
|
end
|
|
object popOrderDC: TMenuItem
|
|
Tag = 1
|
|
Caption = '&Discontinue...'
|
|
OnClick = mnuActDCClick
|
|
end
|
|
object popOrderRenew: TMenuItem
|
|
Tag = 1
|
|
Caption = 'Rene&w...'
|
|
OnClick = mnuActRenewClick
|
|
end
|
|
object sepOrderVerify: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object popOrderVerify: TMenuItem
|
|
Tag = 2
|
|
Caption = '&Verify...'
|
|
OnClick = mnuActVerifyClick
|
|
end
|
|
object popOrderChartRev: TMenuItem
|
|
Tag = 2
|
|
Caption = 'Char&t Review'
|
|
OnClick = mnuActChartRevClick
|
|
end
|
|
object popOrderSign: TMenuItem
|
|
Tag = 1
|
|
Caption = '&Sign...'
|
|
OnClick = mnuActSignClick
|
|
end
|
|
object mnuOptimizeFields: TMenuItem
|
|
Caption = 'Adjust Column Size'
|
|
Visible = False
|
|
OnClick = mnuOptimizeFieldsClick
|
|
end
|
|
end
|
|
end
|