Routine: ORCACT2

Package	Total	Call Graph
Order Entry Results Reporting	17	$$VALID^ORCACT0 $$DOSES^ORCACT4 $$NMSP^ORCD PROVIDER^ORCDPSIV $$ORDERS^ORCHART FREEZE^ORCMENU ($$LOCATION,$$PROVIDER)^ORCMENU1 ($$ACTION,RESUME)^ORCSAVE (CANCEL,DELETE,STATUS)^ORCSAVE2 EN^ORCSEND UNOTIF^ORCSIGN EX^OREVNT ($$EMPTY,$$NAME,CANCEL)^OREVNTX PRINT^ORPR02 TEXT^ORQ12 ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2 ($$VALUE,DELAYED)^ORX8
VA Fileman	4	^DIC ^DIE ^DIK ^DIR
Kernel	2	$$NOW^XLFDT $$UP^XLFSTR
Dietetics	1	$$RESUME^FHWORR
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Order Entry Results Reporting	3	ORCDFHTF OREVNTX ORWDXA

Entry Points

Name	Comments	DBIA/ICR reference
UNREL	; -- Process unreleased/delayed order
DQ
DCD(IFN)	; -- order discontinued already?
NXT()	; -- Return next available subscript in ORDC()
COMPLX	; -- Ck for other child orders to be dc'd at same time
DCRQ
CLRDLY(IFN)	; -- [old Clear delayed fields] Cancel delayed [event]order
DC	; -- start here with: ; ORNMBR = #,#,...,# of selected orders
SET(ORDER,NATURE,REASON,TEXT,DCORIG)	; -- Set DC Reason into 6-node
PRINT(NATR)	; -- Ok to print order?
DCREASON()	; -- Returns Reason for DC
UNLOCK	; -- Unlock orders in ORDC(ORI)=ORIFN
ORDITEM(ID)	; -- Returns order text
SUBHDR(X)	; -- Display subheader of order being acted on
EVENT	; -- Cancel event too?
RESUME(ORDER)	; -- Resume tray service when dc'ing tubefeeding ORDER?
OK(NUM)	; -- Ok to DC delayed order(s) too?
DC1
DC2
DC3
DCQ

External References

Name	Field # of Occurrence
^DIC	DCREASON+5
^DIE	UNREL+7
^DIK	DC2+15
^DIR	OK+4, RESUME+6
$$RESUME^FHWORR	RESUME+1
$$VALID^ORCACT0	DC1+6
$$DOSES^ORCACT4	DC2+1
$$NMSP^ORCD	DC2
PROVIDER^ORCDPSIV	DC3+5
$$ORDERS^ORCHART	DC+7
FREEZE^ORCMENU	DC+8
$$LOCATION^ORCMENU1	DC3+6
$$PROVIDER^ORCMENU1	DC3+4
$$ACTION^ORCSAVE	DC3+10
RESUME^ORCSAVE	RESUME+7
CANCEL^ORCSAVE2	UNREL+13
DELETE^ORCSAVE2	UNREL+11
STATUS^ORCSAVE2	CLRDLY+5
EN^ORCSEND	DC3+12
UNOTIF^ORCSIGN	DCQ
EX^OREVNT	EVENT+10
$$EMPTY^OREVNTX	EVENT+3
$$NAME^OREVNTX	EVENT+8
CANCEL^OREVNTX	EVENT+8
PRINT^ORPR02	DC3+17
TEXT^ORQ12	DC2+7, ORDITEM+6
$$LOCK^ORX2	DC+6
$$LOCK1^ORX2	DC1+7, DC2+12
UNLK1^ORX2	DC2+16, DC3+12, UNLOCK+2, UNREL+8, UNREL+11
UNLOCK^ORX2	DCQ+1
$$VALUE^ORX8	DC2+1
DELAYED^ORX8	DC2+5
$$NOW^XLFDT	SET+3, CLRDLY+4
$$UP^XLFSTR	DC2+4
$$GET^XPAR	DC3+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: DC+6
Function Call: WRITE	Prompt: !,"This order has been deleted!" Line Location: DC1+3
Function Call: WRITE	Prompt: !,ORERR Line Location: DC1+6
Function Call: WRITE	Prompt: !,$P(ORLK,U,2) Line Location: DC1+7
Function Call: WRITE	Prompt: !,$C(7),"This is part of a complex order, which will be discontinued in its entirety:" Line Location: DC2+3
Function Call: WRITE	Prompt: !,+ORY_" delayed order(s) for the same medication were found:" Line Location: DC2+6
Function Call: WRITE	Prompt: !,$E(ORTX(1),1,75)_$S($L(ORTX(1))>75:"...",1:""),!," >> delayed until "_$P(ORV,U,2) Line Location: DC2+7
Function Call: WRITE	Prompt: ! Line Location: DC2+8
Function Call: WRITE	Prompt: !,"Orders not signed or released to the service will be deleted.",! Line Location: DC2+9
Function Call: WRITE	Prompt: !,$P(ORLKD,U,2) Line Location: DC2+12
Function Call: WRITE	Prompt: $C(7),!,"You are not authorized to release med orders.",! Line Location: DC3+2
Function Call: WRITE	Prompt: "." Line Location: DC3+10
Function Call: WRITE	Prompt: "." Line Location: DC3+13
Function Call: WRITE	Prompt: !,$$ORDITEM(+ORIFN)_" not discontinued." Line Location: DC3+14
Function Call: WRITE	Prompt: !," >> "_$P(ORERR,U,2) Condition for execution: $L($P($G(ORERR),U,2)) Line Location: DC3+15
Function Call: WRITE	Prompt: ! Line Location: DC3+15
Function Call: WRITE	Prompt: ! Line Location: OK+4
Function Call: WRITE	Prompt: !!,?(36-($L(X)\2)),"-- "_X_" --",! Line Location: SUBHDR+1
Function Call: WRITE	Prompt: !,"NOTE: NO current diet order exists for this patient!" Line Location: RESUME+2
Function Call: WRITE	Prompt: !,"Note: Patient is on a WITHHOLD SERVICE order!" Line Location: RESUME+3
Function Call: WRITE	Prompt: !,"This order will be deleted." Line Location: UNREL+10
Function Call: WRITE	Prompt: !,"This order was not released and will be cancelled." Line Location: UNREL+12
Function Call: WRITE	Prompt: !," ... "_X_" event cancelled." Line Location: EVENT+9
Routine Call	DIE Line Location: UNREL+7
Routine Call	DIC Line Location: DCREASON+5
Routine Call	DIR Line Location: OK+4 RESUME+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	Classic Fileman Calls
^ORD(100.03 - [#100.03]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(9.4 - [#9.4]	DCREASON+4
^OR(100 - [#100]	DC1+3, DC1+4, DC1+8, DC2+4, DC2+13, COMPLX+3, COMPLX+4, SET+1, SET+3, UNREL+2 , UNREL+5!, UNREL+6, CLRDLY+2, CLRDLY+4, CLRDLY+5, DCD+2, DCD+5
^ORD(100.02 - [#100.02]	PRINT+1, DCREASON+4, DCRQ, SET+2, CLRDLY+4
^ORD(100.03 - [#100.03]	DCREASON+3
^ORD(100.98 - [#100.98]	DC1+11
^ORE(100.2 - [#100.2]	UNREL+7, EVENT+3
^TMP("OR"	DC1+1
^TMP("ORNEW"	DC2+16, DC3+10*, DCQ+1, UNREL+9
^XUSEC("OREMAS"	DC3+2

Label References

Name	Line Occurrences
$$DCREASON	DC3
$$NXT	DC2+14, COMPLX+5
$$OK	DC2+8
$$ORDITEM	DC1+5, DC3+14
$$PRINT	DC3+8
CLRDLY	DC2+15, UNREL+13
COMPLX	DC2+17
DC3	DC3+2
DCQ	DC+7, DC2+17, DC3, DC3+3
DQ	DCD+3
EVENT	DCQ+3
RESUME	DC1+11
SET	DC3+10
SUBHDR	DC1+5
UNLOCK	DC3, DC3+3
UNREL	DC1+10

Naked Globals

Name	Field # of Occurrence
^(	DC2+4, UNREL+9!
^(1	DC2+16!
^(3	DC1+8, CLRDLY+2
^(6	SET+3*
^(8	DC1+8, DC2+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHLD	COMPLX+1~, COMPLX+3*, COMPLX+4, COMPLX+5
DA	DC2+5~, DC2+10, DC2+12, DC2+13, DC2+14, DC2+15, DC2+16, RESUME+1~, UNREL+1~, UNREL+7
DAD	COMPLX+1~, COMPLX+2*, COMPLX+3, COMPLX+5
DCORIG	SET~, SET+3
DIC	DCREASON+1~, DCREASON+3*, RESUME+1~
DIC("A"	DCREASON+4*
DIC("B"	DCREASON+3*!
DIC("S"	DCREASON+4*
DIC("W"	DCREASON+3*
DIC(0	DCREASON+3*
DIE	UNREL+1~, UNREL+7*
DIK	DC2+5~, DC2+10*
DIR	OK+1~, RESUME+1~
DIR("?"	OK+3, RESUME+5
DIR("A"	OK+2, RESUME+4
DIR("B"	OK+1, RESUME+5
DIR(0	OK+1, RESUME+4
DR	UNREL+1~, UNREL+7*
>> DTOUT	RESUME+6
DUZ	DC3+2, SET+3, CLRDLY+4
EVT	EVENT+1~, EVENT+2*, EVENT+3, EVENT+8, EVENT+10
I	DC2+2~, DC2+4, PRINT+1~, DCD+1~, DCD+5*
ID	ORDITEM~, ORDITEM+6
IDX	DC+5~, DC1+1*, DC1+2
IFN	CLRDLY~, CLRDLY+1*, CLRDLY+2, CLRDLY+4, CLRDLY+5, DCD~, DCD+1, DCD+2, DCD+5
NATR	PRINT~, PRINT+1
NATURE	SET~, SET+2*, SET+3
NMBR	DC+5~, DC1*, DC1+1
NUM	OK~, OK+2
OR0	DC+5~, DC1+8*, DC1+9, DC1+11, DC2, UNREL+7
OR1	PRINT+1~*, PRINT+2
OR3	DC+5~, DC1+8*, DC1+11, DC2+1, DC2+2, DC2+4, UNREL+6
ORA	UNREL+1~, UNREL+2*, UNREL+9
ORA0	UNREL+1~, UNREL+2*, UNREL+5
ORACT	DC+5~, DC+8*, DC1+6, DC3+12
ORCLNUP	DC+5~, DC3+8*
ORCREATE	DC+5~, DC3+1*, DC3+2, DC3+3, DC3+7, DC3+10, DC3+16
ORDA	DC+5~, DC3+10*
ORDC	DC+5~
ORDC(	DC2, DC2+14, DC3+9, UNLOCK+2, COMPLX+5*
ORDC(""	NXT+1
ORDC("DAD"	DC2+2*, DC2+17, COMPLX+2, COMPLX+5
ORDC(0	DC2+17
ORDER	SET~, SET+1*, SET+3, RESUME~, RESUME+7
ORDITM	DC+5~, DC1+5*
OREASON	DC+5~, DC3*, DC3+1, DC3+10, DC3+12
OREBUILD	DC+8!, DC3+18, DCQ, UNREL+8
ORERR	DC+5~, DC1+6, DC3+12, DC3+13, DC3+15
>> OREVENT	EVENT+10
OREVT	DC+5~, DCQ+3
OREVT(	DC1+9, DC2+15, EVENT+2
ORI	DC+5~, DC1, DC2, DC3+9, UNLOCK+1~, UNLOCK+2
ORIFN	DC+5~, DC1+2, DC1+3, DC1+4, DC1+5, DC1+6, DC1+7, DC1+8, DC1+11, DC2 , DC2+1, DC2+2, DC2+5, DC3+9, DC3+10, DC3+12, DC3+13, DC3+14, UNLOCK+1~, UNLOCK+2 , UNREL+2, UNREL+5, UNREL+7, UNREL+8, UNREL+9, UNREL+11, UNREL+13
ORJ	DC2+5~, DC2+7*, DC2+11~
>> ORL	DC3+3, DC3+6*, DC3+17
ORLK	DC+5~, DC1+7*
ORLKD	DC2+11~, DC2+12*
ORNATR	DC+5~, DC3+1*, DC3+8, DC3+10, DC3+12
>> ORNMBR	DC+7*, DC1, NXT+1
>> ORNP	DC3+3, DC3+4, DC3+5, DC3+10, DCQ+2*
ORPRINT	DC+5~, DC3+9, DC3+13, DC3+17
ORPRINT(	DC3+13*
ORPRINT(0	DC3+17
ORPRNT	DC+5~, DC3+8*, DC3+13, DC3+17
ORPTLK	DC+5~, DC+6*
ORQUIT	DC+5~, DC1, DC1+11, DC3+5, RESUME+6*, EVENT+2
ORSIG	DC2+11~, DC2+13*, DC2+15
ORSTS	DC+5~, DC1+8*, DC1+10, UNREL+13
>> ORTAB	DC1+1, DC1+2
ORTX	DC2+5~, DC2+7
ORTX(1	DC2+7
ORV	DC2+5~, DC2+7*
>> ORVP	DC+6, DC3+17, DCQ+1, RESUME+1
ORX	DC+5~, DC2, DC3+2, DC3+5, ORDITEM+6~, CLRDLY+1~, CLRDLY+3, CLRDLY+4
ORX(1	ORDITEM+6
ORXNP	DC+5~, DCQ+2
ORY	DC2+5~, DC2+6, DC2+8
ORY(	DC2+7, DC2+10, DC2+15
REASON	SET~, SET+3
STS	DC2+11~, DC2+13, DC2+14, CLRDLY+1~, CLRDLY+2, CLRDLY+3, DCD+1~, DCD+2*, DCD+3
TEXT	SET~, SET+3
U	DC+6, DC1+2, DC1+4, DC1+7, DC1+8, DC1+9, DC1+11, DC2, DC2+1, DC2+2 , DC2+4, DC2+7, DC2+12, DC2+13, DC3+1, DC3+10, DC3+13, DC3+15, PRINT+2, COMPLX+4 , DCRQ, SET+3, UNREL+5, UNREL+6, UNREL+7, CLRDLY+2, CLRDLY+4, CLRDLY+5, DCD+2, DCD+3 , DCD+5
>> VALMBCK	DC+5, DC+8
X	DC2+2~, DC2+4, OK+1~, ORDITEM+6~, ORDITEM+7, SUBHDR~, SUBHDR+1, DCREASON+1~, RESUME+1~, RESUME+2 , RESUME+3, RESUME+6, EVENT+1~, EVENT+8, EVENT+9
Y	OK+1~, OK+5, NXT+1~, NXT+2, PRINT+1~, PRINT+2, PRINT+3, DCREASON+1~, DCRQ, DCRQ+1 , RESUME+1~, RESUME+6, RESUME+7, DCD+1~, DCD+3, DCD+5, DQ
Y(0	DCRQ

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCACT2

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: