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

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

Caller Graph

Caller Graph Total: 13

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  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
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
NEW(DFN,EVT,IFN) ; -- Create new Patient Event in #100.2
ED2
ED3
ED1
CURRENT() ; -- Display current patient data
ACTIVE() ; -- Return to Active orders?
PTQ
EN ; -- view/add EVOs
NHCU(OREVT) ; -- Returns 1 or 0, if EVT is to NHCU
ED ; -- Change delay event
MATCH(DFN,EVT) ; -- Does Pt's current data match selected Event?
DELETE(DA) ; -- Delete Patient Event
UNLOCK ; -- Unlock orders after ^
EX ; -- Back to Active Orders
CONT() ; -- ok to continue?
PT2
PT1
DELAYED() ; -- Return 1 or 0, if current view=EDOs
HELP(RSP) ; -- ?help for DIR Event lookup
NODELAY() ; -- Return 1 or 0, if event should be removed
MQ
CURRLOC(DFN) ; -- Return current Hospital Location (ptr to #44) of patient DFN

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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: Z
  • Line Location: HELP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: CONT+5
Routine Call
  • DIR
  • Line Location:
    • ACTIVE+4
    • NODELAY+4
    • CONT+5
Routine Call
  • DIC
  • Line Location:
    • PT1+9

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, PT2, PT2+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*, PT1, PT1+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!, ED1, ED1+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, ED1, ED1+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, PT2, PT2+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