Routine: ORCACT

Package	Total	Call Graph
Order Entry Results Reporting	11	$$VALID^ORCACT0 $$NMSP^ORCD ADD^ORCDLG PROVIDER^ORCDPSIV ($$ORDERS,TAB)^ORCHART (FREEZE,REBLD)^ORCMENU ($$LOCATION,$$PROVIDER)^ORCMENU1 INIT^ORCMENU2 $$PTEVENT^OREVNT TEXT^ORQ12 ($$LOCK,$$LOCK1,UNLK1,UNLOCK)^ORX2
VA FileMan	1	^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	31	ORC ADD CONSULT ORC ADD INPT MED ORC ADD IV MED ORC ADD LAB ORC ADD OUTPT MED ORC ADD PROCEDURE ORC ADD XRAY ORC CHANGE ORDERS ORC COMPLETE ORDERS ORC DELAY EVENT ORC DISCONTINUE ORDERS ORC FLAG ORDERS ORC HOLD ORDERS ORC RELEASE ORDERS ORC RENEW ORDERS ORC REWRITE ORDERS ORC SIGN ORDERS ORC TRANSFER MEDS ORC UNFLAG ORDERS ORC UNHOLD ORDERS ORC VERIFY CHART REVIEW ORC VERIFY ORDERS ORCACT1 ORCB ORCDPS3 ORCMED ORCMENU2 ORCONSLT ORCSIGN OREVNT OREVNT1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ADD	; -- add new order via NW on pkg results tab ; Requires ORDIALOG = name of pkg dialog
ADQ
EDIT	; -- change orders
RENEW	; -- renew orders
REWRITE	; -- rewrite orders
HOLD	; -- hold orders
UNHOLD	; -- release hold on orders
EN(ORACT)	; -- start here with: ; ORNMBR = #,#,...,# of selected orders ; ORACT = action to be taken on orders
EN1
ENQ
ORDITEM(ID)	; -- Returns order text
SUBHDR(X)	; -- Display subheader of order being acted on
DELAY()	; -- Delay release of orders?
EX	; -- exit action

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: ADD+3
Function Call: WRITE	Prompt: !!,$C(7),$P(ORPTLK,U,2) Line Location: EN+7
Function Call: WRITE	Prompt: !,"This order has been deleted!" Line Location: EN1+3
Function Call: WRITE	Prompt: !,ORERR Line Location: EN1+6
Function Call: WRITE	Prompt: !,$P(ORLK,U,2) Line Location: EN1+8
Function Call: WRITE	Prompt: !!,?(36-($L(X)\2)),"-- "_X_" --",! Line Location: SUBHDR+1
Routine Call	DIR Line Location: DELAY+5

Name	Line Occurrences (* Changed, ! Killed)
^OR(100 - [#100]	EN1+3, EN1+4, EN1+7
^ORD(100.5 - [#100.5]	DELAY+1
^ORD(101.41 - [#101.41]	ADD+10
^TMP("OR"	ADQ, EN1+1, EX+4, EX+5, EX+7
^TMP("ORECALL"	ADD+12!
^TMP("ORNEW"	ADD+11, ADQ+1, EN1+8, EN1+10, EN1+11, ENQ
^TMP("ORWORD"	ADD+12!

Name	Line Occurrences
$$DELAY	ADD+5, REWRITE+1
$$ORDITEM	EN1+5
@(	EN1+9
ADQ	ADD+2, ADD+5, ADD+8, ADD+9, ADD+10
EN	EDIT+1, RENEW+1, REWRITE+4, HOLD+1, UNHOLD+1
ENQ	EN+8, EN+10, EN+11
SUBHDR	EN1+5

Name	Field # of Occurrence
^("MENU"	ADQ, EX+7
^(0	EX+4, EX+5

Name	Field # of Occurrence
DIR	DELAY+2~
DIR("?"	DELAY+4*
DIR("A"	DELAY+3*
DIR("B"	DELAY+2*
DIR(0	DELAY+2*
>> DTOUT	DELAY+5
>> DUOUT	DELAY+5
ID	ORDITEM~, ORDITEM+6
IDX	EN+6~, EN1+1*, EN1+2
NMBR	EN+6~, EN1*, EN1+1
ORACT	EN~, EN1+6, EN1+9
ORDER	EN+6~
ORDG	EN+6~
ORDIALOG	ADD+2, ADD+10*, ADD+12!
ORDITM	EN+6~, EN1+5*
OREBUILD	EN+9!, EN1+11*, EX+1
OREL	EN+6~
ORERR	EN+6~, EN1+6
OREVENT	ADD+2~, ADD+7, REWRITE+1~, REWRITE+3
ORI	EN+6~, EN1*
ORIFN	EN+6~, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7
ORIG	EN+6~, EN1+5*, EN1+8, EN1+10
>> ORL	ADD+9, EN+11
ORLK	EN+6~, EN1+8*
>> ORNMBR	EN+8*, EN1
ORNOW	EN+6~
>> ORNP	ADD+8, EN+10, ENQ+1*
ORPRINT	EN+6~
ORPRNT	EN+6~
ORPTLK	ADD+2~, ADD+3, EN+6~, EN+7
ORQUIT	EN+6~, EN1, EN1+7
ORSIG	EN+6~
ORSTS	EN+6~
>> ORTAB	ADD+5, EN1+1, EN1+2, EX+2, EX+3, EX+6, EX+7
>> ORVP	ADD+3, ADD+6, ADQ+1, REWRITE+2, EN+7, ENQ
ORX	ORDITEM+6~
ORX(1	ORDITEM+6
ORXNP	EN+6~, ENQ+1
TAB	EX+3~, EX+4*
U	ADD+3, EN+7, EN1+2, EN1+4, EN1+7, EN1+8, EX+4, EX+5
>> VALMBCK	ADD+2, ADD+4, ADD+12, EN+6, EN+9*
X	ADD+2~, ADD+5, ADD+6, ADD+7, REWRITE+1~, REWRITE+2, REWRITE+3, ORDITEM+6~*, ORDITEM+7, SUBHDR~ , SUBHDR+1, DELAY+2~
>> XQORM("HIJACK"	ADQ, EX+7
Y	DELAY+2~, DELAY+5*, DELAY+6