Routine: OREVNT1

Information

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

Source Information

Source file <OREVNT1.m>

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
Registration	1	FULL^VALM1
Toolkit	1	$$GET^XPAR
VA Fileman	1	^DIR

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

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

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~

Customize PDF page

Package: Order Entry Results Reporting

Routine: OREVNT1

Information

Source Information

Call Graph

Call Graph Total: 19

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: