Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: OREVNT

Package: Order Entry Results Reporting

Routine: OREVNT


Information

OREVNT ; SLC/MKB - Event delayed orders ;3/31/04 13:42 [4/9/04 10:20am]

Source Information

Source file <OREVNT.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- view/add EVOs
EX ; -- Back to Active Orders
ED ; -- Change delay event
ED1
ED2
ED3
ACTIVE() ; -- Return to Active orders?
DELAYED() ; -- Return 1 or 0, if current view=EDOs
NODELAY() ; -- Return 1 or 0, if event should be removed
UNLOCK ; -- Unlock orders after ^
CURRENT() ; -- Display current patient data
PTEVENT(DFN,DLGONLY) ; -- Select Patient Event [or create new one]
; Pass in DLGONLY=1 to skip new event's Order Set (from Copy, Xfer)
; Returns Pt Evt ien ^ Event name
PT1
PT2
PTQ
HELP(RSP) ; -- ?help for DIR Event lookup
NEW(DFN,EVT,IFN) ; -- Create new Patient Event in #100.2
NHCU(OREVT) ; -- Returns 1 or 0, if EVT is to NHCU
DELETE(DA) ; -- Delete Patient Event
MATCH(DFN,EVT) ; -- Does Pt's current data match selected Event?
MQ
CURRLOC(DFN) ; -- Return current Hospital Location (ptr to #44) of patient DFN
CONT() ; -- ok to continue?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CURRENT
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_ORERR
  • Line Location: ED+7
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORIFN)_" invalid.",!," >> "_$P(ORLK,U,2)
  • Line Location: ED+8
Function Call: WRITE
  • Prompt: !,"Nothing changed!"
  • Line Location: ED1+2
Function Call: WRITE
  • Prompt: !!,"Removing release event ..."
  • Line Location: ED1+3
Function Call: WRITE
  • Prompt: "."
  • Line Location: ED1+6
Function Call: WRITE
  • Prompt: " done."
  • Line Location: ED1+7
Function Call: WRITE
  • Prompt: !!,$$CURRENT
  • Line Location: ED2+0
Function Call: WRITE
  • Prompt: !,"Nothing changed!"
  • Line Location: ED2+1
Function Call: WRITE
  • Prompt: !!,"Setting release event to "_$P(ORP,U,2)_" ..."
  • Line Location: ED2+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: ED2+5
Function Call: WRITE
  • Prompt: " done."
  • Line Location: ED2+6
Function Call: WRITE
  • Prompt: !," ... "_X_" event cancelled."
  • Line Location: ED3+7
Function Call: WRITE
  • Prompt: !,DIR("A",I)
  • Line Location: PT1+0
Function Call: WRITE
  • Prompt: !,"Select RELEASE EVENT: "_$S($L($G(DIR("B"))):DIR("B")_"//",1:"")
  • Line Location: PT1+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PT1+2
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: PT2+0
Function Call: WRITE
  • Prompt: !,"Select the release event for which you wish to delay orders."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !,"Choose from:"
  • Line Location: HELP+3
Function Call: READ
  • Variable: Z
  • Timeout: DTIME
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORE(100.2 - [#100.2] Classic Fileman Calls
^ORD(100.5 - [#100.5] Classic Fileman Calls
^DIC(45.7 - [#45.7] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call