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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: OREVNT1

Package: Order Entry Results Reporting

Routine: OREVNT1


Information

OREVNT1 ;SLC/MKB - Release delayed orders ;3/31/04 09:08

Source Information

Source file <OREVNT1.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Order Entry Results Reporting 16 $$ORDITEM^ORCACT  $$VALID^ORCACT0  $$ORDERS^ORCHART  FREEZE^ORCMENU  $$LOCATION^ORCMENU1  EN2^ORCSEND  ($$ESIG,$$NATURE,$$ONCHART,$$SELSIG,$$STATUS,UNOTIF)^ORCSIGN  $$CANREL^OREV3  
EX^OREVNT  ($$EMPTY,$$NAME,$$TYPE,ACTLOG,DONE)^OREVNTX  (BHS,BTS)^ORMBLD  $$LOC^ORMEVNT  SAVE^ORMEVNT1  PRINT^ORPR02  ($$CHART,$$SIGSTS)^ORX1  ($$LCKEVT,$$LOCK,$$LOCK1,UNLEVT,UNLK1,UNLOCK)^ORX2  
List Manager 1 FULL^VALM1  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 ^DIR  

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: 3

Package Total Caller Graph
Order Entry Results Reporting 2 ORC DELAYED ORDER ACTIONS  ORC RELEASE ORDERS  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ENQ0
EN ; -- start here
ENQ
READ ; -- Press return to continue
DONE() ; -- OREVENT done?
UNLOCK ; -- Unlock orders in ORES(ORDER)
WORK(NATR) ; -- Returns 1 or 0, to print work copies for NATR
VALID ; -- validate ORDER for signature/release
EN1
EN2
EN3
SETPRINT(NATR) ; -- Set print arrays
NEEDSIG()
EMPTY ; -- check if no more orders for events in OREVT()

External References

Name Field # of Occurrence
^DIR EN3+5, READ+3
$$ORDITEM^ORCACT EN2+9, EN2+11, VALID+1, VALID+2, VALID+4
$$VALID^ORCACT0 VALID+1, VALID+2
$$ORDERS^ORCHART EN+4
FREEZE^ORCMENU EN+5
$$LOCATION^ORCMENU1 EN+6
EN2^ORCSEND EN2+6
$$ESIG^ORCSIGN EN1+5, EN1+9
$$NATURE^ORCSIGN EN1+7
$$ONCHART^ORCSIGN EN1+6
$$SELSIG^ORCSIGN EN+8
$$STATUS^ORCSIGN EN2+9
UNOTIF^ORCSIGN ENQ0
$$CANREL^OREV3 EN+1
EX^OREVNT EMPTY+11, DONE+11
$$EMPTY^OREVNTX EMPTY+3
$$NAME^OREVNTX EMPTY+9, DONE+3
$$TYPE^OREVNTX EN2+13
ACTLOG^OREVNTX EMPTY+8
DONE^OREVNTX EMPTY+8
BHS^ORMBLD EN1+13
BTS^ORMBLD EN2+14
$$LOC^ORMEVNT EN3
SAVE^ORMEVNT1 EN2+13
PRINT^ORPR02 EN3+6, EN3+7, EN3+8
$$CHART^ORX1 SETPRINT+3
$$SIGSTS^ORX1 EN1+9
$$LCKEVT^ORX2 EN2+2
$$LOCK^ORX2 EN+3
$$LOCK1^ORX2 VALID+3
UNLEVT^ORX2 ENQ+1
UNLK1^ORX2 EN2+6, EN2+7, VALID+6, UNLOCK+2
UNLOCK^ORX2 ENQ
FULL^VALM1 DONE+2
$$GET^XPAR EN1+10, EN1+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Insufficient privilege!"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,$C(7),$P(ORPTLK,U,2)
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"Nothing signed or released!"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !!,"Processing orders ..."
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !!,$$ORDITEM^ORCACT(ORDER)_" "_$$STATUS^ORCSIGN(ORDER)
  • Line Location: EN2+9
Function Call: WRITE
  • Prompt: !,$$ORDITEM^ORCACT(ORIFN)_" (LB #"_+^OR(100,ORIFN,4)_")"
  • Line Location: EN2+11
Function Call: WRITE
  • Prompt: "."
  • Line Location: EN2+13
Function Call: WRITE
  • Prompt: !!,"Cannot release "_$$ORDITEM^ORCACT(ORDER),!," >> "_ORERR
  • Line Location: VALID+1
Function Call: WRITE
  • Prompt: !!,"Cannot sign "_$$ORDITEM^ORCACT(ORDER),!," >> "_ORERR
  • Line Location: VALID+2
Function Call: WRITE
  • Prompt: !!,"Cannot release "_$$ORDITEM^ORCACT(ORDER),!," >> "_$P(ORLK,U,2)
  • Line Location: VALID+4
Function Call: WRITE
  • Prompt: !," ... "_X_" event completed."
  • Line Location: EMPTY+10
Function Call: WRITE
  • Prompt: !!,"The event "_$$NAME^OREVNTX(OREVENT)_" has occurred since"
  • Line Location: DONE+3
Function Call: WRITE
  • Prompt: !,"you started writing delayed orders. The orders that were signed have now been"
  • Line Location: DONE+4
Function Call: WRITE
  • Prompt: !,"released; any unsigned orders will be released immediately upon signature."
  • Line Location: DONE+5
Function Call: WRITE
  • Prompt: !!,"To write new delayed orders for this event you must select the Delayed Orders"
  • Line Location: DONE+6
Function Call: WRITE
  • Prompt: !,"action and this release event again. Orders delayed to this same event will"
  • Line Location: DONE+7
Function Call: WRITE
  • Prompt: !,"remain delayed until the event occurs again."
  • Line Location: DONE+8
Function Call: WRITE
  • Prompt: !!,"The Orders tab will now be refreshed in the Active Orders view; you may then"
  • Line Location: DONE+9
Function Call: WRITE
  • Prompt: !,"write active orders for this patient as usual."
  • Line Location: DONE+10
Routine Call
  • DIR
  • Line Location:
    • EN3+5
    • READ+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(9.4 - [#9.4] EN+7
^OR(100 - [#100] EN+14, EN2+1, EN2+4*, EN2+5*, EN2+11, NEEDSIG+5, VALID+2, VALID+5
^ORD(100.02 - [#100.02] WORK+1, WORK+2
^ORD(101.41 - [#101.41] VALID+6
^ORE(100.2 - [#100.2] EMPTY+3, DONE+1
^SC - [#44] EN3+2, EN3+4
^TMP("OR" EN+10, NEEDSIG+3
^TMP("ORNEW" EN2+7, ENQ
^XUSEC("ORELSE" EN+8
^XUSEC("OREMAS" EN+8
^XUSEC("ORES" EN+8, EN1+12

Label References

Name Line Occurrences
$$NEEDSIG EN+8
$$WORK SETPRINT+4
EMPTY ENQ0
ENQ EN+4, EN+6, EN+8, EN1, EN1+4
READ ENQ, ENQ+1, DONE+11
SETPRINT EN2+12
UNLOCK EN1+4
VALID EN+13

Naked Globals

Name Field # of Occurrence
^( EN2+7!
^(7 VALID+6
^(8 EN2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR EN3+1~, READ+1~
DIR("?" EN3+4*
DIR("A" EN3+2*, EN3+3*, READ+2*
DIR("B" EN3+1*
DIR(0 EN3+1*, READ+2*
DUZ EN+8, EN1+12
>> EVENT ENQ+1
>> EVENT( EN2+2*, ENQ+1
EVT EMPTY+1~, EMPTY+2*, EMPTY+3, EMPTY+8, EMPTY+9
IDX EN+2~, EN+10*
J EN+2~, ENQ+1*
NATR SETPRINT~, SETPRINT+1*, SETPRINT+3, SETPRINT+4, WORK~, WORK+1*, WORK+2
NMBR EN+2~, EN+9*, EN+10, NEEDSIG+1~, NEEDSIG+2*, NEEDSIG+3
OR0 EN+2~, EN2+1*, EN2+2, EN2+11, EN2+12
ORA0 EN+2~, EN2+1*, EN2+3, SETPRINT+1, SETPRINT+3
ORACT EN+2~, EN+7*, EN+8*, EN1+5, EN1+6, VALID+2
ORCHART EN+2~, EN1+11*, EN3+6, SETPRINT+3*
ORCHART( SETPRINT+3*
ORCHART(0 EN3, EN3+6
ORCL EN+2~, EN3*, EN3+2, EN3+5
ORDA EN+2~, EN+12*, EN2+3*, EN2+7, NEEDSIG+1~, NEEDSIG+4*, NEEDSIG+5, VALID+2
ORDER EN+2~, EN+10*, EN+11*, EN+12, EN+13, EN2*, EN2+1, EN2+3, EN2+6, EN2+9
, SETPRINT+2, SETPRINT+3, SETPRINT+4, VALID+1, VALID+2, VALID+4
ORDIALOG VALID+3~, VALID+5*, VALID+6
OREBUILD EN+5!, ENQ0*
OREL EN+2~, EN1+3*, EN1+4, EN1+5*, EN1+6*, EN1+9*
ORERR EN+2~, EN2+6, EN2+8, EN2+10, VALID+1, VALID+2
ORES EN+2~
ORES( EN+13*, EN2, UNLOCK+2
ORES("ES" EN1+3, NEEDSIG+5*
ORES("LAB" EN+14*, EN1+13, EN2+14
ORES(0 EN1
OREVENT EN+2~, EMPTY+11, DONE+1, DONE+3
OREVT EN+2~
OREVT( EN2+12*, EMPTY+2
ORI EN+2~, EN+9*, NEEDSIG+1~, NEEDSIG+2*
ORIFN EN+2~, EN+12*, EN+14, EN2+3*, EN2+4, EN2+5, EN2+6, EN2+7, EN2+11, EN2+13
, NEEDSIG+1~, NEEDSIG+3*, NEEDSIG+4*, NEEDSIG+5, VALID+2, VALID+3, VALID+5, VALID+6, UNLOCK+1~*, UNLOCK+2*
>> ORL EN+6*, EN2+4, EN3, EN3+4, EN3+5*, EN3+6, EN3+7, EN3+8
ORLAB EN+2~, EN1+11*, EN1+12*, EN2+11
ORLK VALID+3~*, VALID+4
ORLR EN+2~, EN+7*, EN+14, EN1+12
ORNATR EN+2~, EN+7*, EN1+6*, EN1+7*, EN1+8, EN1+9, EN2+6, EN2+12, VALID+2
>> ORNMBR EN+4*, EN+9, NEEDSIG+2
ORNP EN2+3~*
ORPRINT EN+2~, EN1+11*, EN3+7, SETPRINT+2*
ORPRINT( SETPRINT+2*
ORPRINT(0 EN3, EN3+7
ORPRNT EN+2~, EN1+10*, SETPRINT+3
ORPTLK EN+2~, EN+3*
ORQUIT EN+2~, EN+12!, EN+13, EN1!, VALID+1*, VALID+2*, VALID+4*, VALID+6
ORSIG EN+2~, EN1+3*, EN1+4, EN1+5*, EN1+6*, EN1+9*, EN2+6, SETPRINT+3
>> ORTAB EN+10, NEEDSIG+3
>> ORTS EN2+5
>> ORV EN2+12*, EN2+13
>> ORVP EN+3, EN1+13, EN2+14, EN3+6, EN3+7, EN3+8, ENQ
ORWAIT EN+2~, EN1!, EN2+8*, EN2+11*, ENQ, VALID+1*, VALID+2*, VALID+4*
ORWORK EN+2~, EN1+11*, EN3+8, SETPRINT+4*
ORWORK( SETPRINT+4*
ORWORK(0 EN3+8
U EN+3, EN+10, EN+14, EN2+2, EN2+3, EN2+4, EN2+5, EN2+10, EN2+11, EN2+12
, EN3+2, EN3+4, SETPRINT+1, SETPRINT+3, WORK+2, NEEDSIG+3, NEEDSIG+5, VALID+2, VALID+4, VALID+5
>> VALMBCK EN+5*
X EN3+1~, EMPTY+1~, EMPTY+9*, EMPTY+10, READ+1~
>> XQORQUIT DONE+11*
Y EN3+1~, EN3+5, NEEDSIG+1~*, NEEDSIG+2, NEEDSIG+5*, NEEDSIG+6, READ+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All