Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Order Entry Results Reporting 11 $$ORDITEM^ORCACT  $$VALID^ORCACT0  ($$ORDER,EN)^ORCDLG  $$FIND^ORCDLG2  ($$ORDERS,TAB)^ORCHART  FREEZE^ORCMENU  ($$LOCATION,$$PROVIDER)^ORCMENU1  HELP^OREVNT  
($$EMPTY,$$LAPSED,$$NAME,CANCEL,CHGEVT)^OREVNTX  $$DIV^ORMEVNT  ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2  
VA FileMan 4 IX^DIC  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  $$UP^XLFSTR  
List Manager 1 FULL^VALM1  
Toolkit 1 $$GET^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Order Entry Results Reporting 12 ORC ADD INPT MED  ORC ADD IV MED  ORC ADD OUTPT MED  ORC DELAY EVENT  ORC DELAYED ORDERS  ORCACT  ORCACT2  ORCMED  
OREVNT  OREVNT1  OREVNTX1  ORMEVNT1  

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?

External References

Name Field # of Occurrence
IX^DIC PT1+9
^DIK DELETE+1
$$GET1^DIQ NHCU+2
^DIR ACTIVE+4, NODELAY+4, CONT+5
$$ORDITEM^ORCACT ED+7, ED+8
$$VALID^ORCACT0 ED+7
$$ORDER^ORCDLG PT2+4, PT2+6
EN^ORCDLG PT2+8
$$FIND^ORCDLG2 PT1+4
$$ORDERS^ORCHART ED+2
TAB^ORCHART EN+10, EX+3
FREEZE^ORCMENU ED+3
$$LOCATION^ORCMENU1 EN+7
$$PROVIDER^ORCMENU1 PT2+1
HELP^OREVNT PT1+3
$$EMPTY^OREVNTX EX+1, ED3+1
$$LAPSED^OREVNTX PTEVENT+8
$$NAME^OREVNTX ED3+6
CANCEL^OREVNTX EX+1, ED3+6
CHGEVT^OREVNTX ED1+6, ED2+5
$$DIV^ORMEVNT MATCH+6
$$LOCK^ORX2 PT2
$$LOCK1^ORX2 ED+8
UNLK1^ORX2 ED1+6, ED2+5, UNLOCK+1
UNLOCK^ORX2 PT2+9
FULL^VALM1 EN+5
$$NOW^XLFDT NEW+15
$$UP^XLFSTR PTEVENT+10, PTEVENT+15
$$GET^XPAR PTEVENT+14

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
Routine Call
  • DIC
  • Line Location:
    • PT1+9
Routine Call
  • DIR
  • Line Location:
    • ACTIVE+4
    • NODELAY+4
    • 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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] CURRLOC+2
^DIC(45.7 - [#45.7] CURRENT+1, CONT+2
^DPT - [#2] PTEVENT+3, NEW+13, MATCH+7, CURRLOC+1
^OR(100 - [#100] ED1+5, ED2+4, NEW+17*
^ORD(100.5 - [#100.5] PTEVENT+9, PTEVENT+15, PT1+11, PT2+3, HELP+4, HELP+5, HELP+6, HELP+7, NEW+9, NEW+10
, NHCU+2, MATCH+2, MATCH+3, MATCH+8, MATCH+9
^ORE(100.2 - [#100.2] EX+1, ED3+1, PTEVENT+5, PTEVENT+7, PTEVENT+8, NEW+3, NEW+5, NEW+6, NEW+8*, NEW+11
, NEW+12*, NEW+14*, NEW+15*, NEW+16*, NEW+17*, NEW+18
^SC - [#44] MATCH+5, CONT+2
^TMP("OR" EN+9*, EX+2*, ED+5, DELAYED+2
^TMP("ORECALL" PT2+8!
^TMP("ORNEW" PT2+9

Label References

Name Line Occurrences
$$ACTIVE EN+3
$$CONT PT1+10
$$CURRENT EN+6, ED2
$$CURRLOC MATCH+5
$$DELAYED ED1
$$MATCH PT1+10
$$NEW PT1+13, PT2+5, PT2+7
$$NHCU NEW+13
$$NODELAY ED1+1
$$PTEVENT EN+8, ED2
ED3 ED1
EX EN+3, ED3+8
MQ MATCH+4, MATCH+6, MATCH+8, MATCH+9
PT1 PT1+3, PT1+5, PT1+10
PTQ PT1+4, PT1+13
UNLOCK ED1+2, ED2+1

Naked Globals

Name Field # of Occurrence
^( PTEVENT+7, NHCU+2
^("B" MATCH+8, MATCH+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADM NEW+2~, NEW+13*, NEW+15
CNT PTEVENT+6~*, PTEVENT+9*, PTEVENT+11, PTEVENT+12, PTEVENT+13, HELP+1~, HELP+3*, HELP+9*
D PT1+6~*
DA NEW+2~, NEW+7*, NEW+12, NEW+14, NEW+15, NEW+16, NEW+17, NEW+19, DELETE~, DELETE+1
DAD NEW+2~, NEW+10*, NEW+11*, NEW+12
DFN PTEVENT~, PTEVENT+3, PTEVENT+5, PTEVENT+7, PT1+10, PT1+13, PT2PT2+5, PT2+7, PT2+9
, NEW~, NEW+1, NEW+7*, NEW+11, NEW+13, NEW+14, NEW+15, NEW+16, NEW+17, MATCH~
, MATCH+5, MATCH+7, CURRLOC~, CURRLOC+1
DIC PT1+6~*
DIC("S" PT1+7*
DIC("W" PT1+6*
DIC(0 PT1+6*
DIK DELETE+1~*
DIR ACTIVE+1~, NODELAY+1~, PTEVENT+4~, PTEVENT+6!, PT1+6~, CONT+1~
DIR("?" ACTIVE+3*, NODELAY+3*, CONT+4*
DIR("A" ACTIVE+2*, NODELAY+2*, PTEVENT+11*, PTEVENT+12*, PTEVENT+13*, PT1PT1+4, CONT+2*, CONT+3*
DIR("B" ACTIVE+2*, NODELAY+2*, PTEVENT+15*, PT1+1, PT1+2, PT1+3, CONT+5*
DIR(0 ACTIVE+1*, NODELAY+1*, CONT+3*
DLGONLY PTEVENT~, PT1+13, PT2+8
DOMAIN PTEVENT+4~, PTEVENT+6*
DONE HELP+1~, HELP+4, HELP+5, HELP+10*
DTIME PT1+2, HELP+10
DTOUT ACTIVE+4, NODELAY+4, PTEVENT+4~, CONT+5
DUOUT ACTIVE+4, NODELAY+4, PTEVENT+4~, CONT+5
DUZ NEW+15
EVT ED+1~, ED1+5*, ED2+4*, ED3*, ED3+1, ED3+6, PTEVENT+6~*, PTEVENT+7*, PTEVENT+9, NEW~
, NEW+9, NEW+13, NEW+15, NEW+16, MATCH~, MATCH+2, MATCH+3, MATCH+8, MATCH+9
HDR NEW+2~, NEW+5*, NEW+7*, NEW+8
I PTEVENT+12*, PT1*, NEW+2~, NEW+3*, NEW+6*, NEW+7
IDX ED+1~, ED+5*
IFN NEW~, NEW+14*, NEW+15, NEW+17
IOSL HELP+9
LAST NEW+2~, NEW+5*, NEW+6
LOC MATCH+1~, MATCH+5*, MATCH+6
NMBR ED+1~, ED+4*, ED+5
ORDAD PTEVENT+4~, PT1+11*, PT1+13, PT2+2, PT2+3, PT2+5
ORDERS ED+1~
ORDERS( ED+9*, ED1+4, ED2+3, UNLOCK+1
ORDERS(0 ED1
ORDIALOG PTEVENT+4~, PT1+12*, PT1+13, PT2+3*, PT2+4, PT2+5*, PT2+6
ORDIV PTEVENT+4~
ORDSET PTEVENT+4~, PT1+12*, PT1+13, PT2+8
OREBUILD ED+3!, ED1ED1+7*, ED2+6*, PTEVENT+4~
>> ORERR ED+7
OREV0 PTEVENT+4~, PT1+11*, PT1+12
OREVENT EN+2, EN+9*, EX+1, EX+2!, ED3+8, DELAYED+1, PTEVENT+4~, PT2+8*
OREVT ED+1~, PTEVENT+4~, PT1+5*, PT1+9*, PT1+10, PT1+11, PT1+13, PT2+3~*, PT2+7, NHCU~
, NHCU+2
OREVT( ED1+5*, ED2+4*, ED3
ORI ED+1~, ED+4*, NHCU+1~*, NHCU+2*
ORIFN ED+1~, ED+5*, ED+6*, ED+7, ED+8, ED+9, ED1+4*, ED1+5, ED1+6, ED2+3*
ED2+4, ED2+5, UNLOCK+1*, PTEVENT+4~, PT2+2, PT2+4*, PT2+5!, PT2+6*, PT2+7
>> ORL EN+7*, MATCH+5, CONT+2
ORLK ED+1~, ED+8*
>> ORNMBR ED+2*, ED+4
>> ORNP PT2+1*
ORP EN+1~, EN+8*, EN+9, ED2*, ED2+1, ED2+2, ED2+4, ED2+5
>> ORPNM CURRENT+1, PTEVENT+11, CONT+2
ORPTEVT PTEVENT+4~, PTEVENT+6!, PT1+4*, PT1+13*, PT2+5*, PT2+7*, PT2+8, PTQ
ORPTEVT( PTEVENT+9*, PTEVENT+12
ORPTEVT("B" PTEVENT+10*
ORPTLK PTEVENT+4~, PT2*
ORQUIT EN+1~, EN+2, EN+3*, EN+4*, ED+1~, ED+4, ED1ED1+2*
>> ORTAB EN+10, EX+3, ED+5, DELAYED+2
>> ORTS CURRENT+1, MATCH+7, CONT+2
>> ORVP EN+8, ED2
>> ORWARD CURRENT+1, HELP+8
ORX NHCU+1~, NHCU+2*
ORY NHCU+1~*, NHCU+2*, NHCU+3
PEVT MATCH+1~, MATCH+2*, MATCH+3, MATCH+8, MATCH+9
RSP HELP~, HELP+8
TOTAL NEW+2~, NEW+5*, NEW+7
TS MATCH+1~, MATCH+7*, MATCH+8
>> TYPE HELP+7*, HELP+8
U EN+9, EX+2, ED+5, ED+8, ED1+5, ED2+2, ED2+4, DELAYED+2, DELAYED+3, CURRENT+1
, PTEVENT+9, PTEVENT+12, PTEVENT+15, PT1+9, PT1+11, PT1+12, PT2PT2+3, HELP+7, NEW+5
, NEW+7, NEW+9, NEW+10, NEW+12, NEW+13, NEW+15, NEW+17, MATCH+2, MATCH+4, MATCH+6
, CURRLOC+1, CONT+2
>> VAIP(13 NEW+13
>> VALMBCK EN+1*, EN+5*, ED+3*
WD MATCH+1~, MATCH+5*, MATCH+9
X EN+1~, EN+3*, EN+4, ED+1~, ED1+1*, ED1+2, ED1+3, ED3+6*, ED3+7, ACTIVE+1~
, DELAYED+2~*, DELAYED+3, NODELAY+1~, PTEVENT+4~, PTEVENT+9*, PTEVENT+10*, PTEVENT+14*, PTEVENT+15, PT1+2*, PT1+3*
PT1+4, HELP+1~, HELP+4*, HELP+5, HELP+9, CURRLOC+1~*, CURRLOC+2*, CONT+1~
X0 NEW+2~, NEW+9*, NEW+10*, NEW+13, MATCH+1~, MATCH+3*, MATCH+4, MATCH+6
Y ACTIVE+1~, ACTIVE+4*, ACTIVE+5, DELAYED+2~, DELAYED+3*, DELAYED+4, NODELAY+1~, NODELAY+4*, NODELAY+5, CURRENT+1~*
, CURRENT+2, PTEVENT+4~, PTEVENT+7*, PTEVENT+8, PTEVENT+9, PTEVENT+10, PTEVENT+15*, PT1+9, HELP+1~, HELP+5*
, HELP+6, HELP+7, MATCH+1~, MATCH+3*, MATCH+4*, MATCH+6*, MATCH+8*, MATCH+9*, MQ, CURRLOC+1~*
, CURRLOC+2*, CURRLOC+3, CONT+1~, CONT+5*, CONT+6
Y(0 PT1+9
Z HELP+1~, HELP+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All