Routine: ORCMENU1

Package	Total	Call Graph
Order Entry Results Reporting	6	($$CANCEL,$$REASON,LIST,SESSION)^ORCHECK (EN,NOTIF)^ORCMENU2 OC^ORCSAVE2 TEXT^ORQ12 $$ACTLOC^ORWU UNLK1^ORX2
VA FileMan	5	^DIC MIX^DIC1 YN^DICN ^DIK ^DIR
Kernel	1	$$PROVIDER^XUSER
List Manager	1	FULL^VALM1
Scheduling	1	$$OUTPTPR^SDUTL3
Toolkit	1	$$GET^XPAR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 13

Package	Total	Caller Graph
Order Entry Results Reporting	12	ORC EVENT ADMISSION ORC EVENT TRANSFER ORC NEW LOCATION ORCACT ORCACT2 ORCB ORCMED ORCMENU ORCPROB ORCSIGN OREVNT OREVNT1
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
ORDCHK	; -- Order Checking [called from ORCSIGN] ; Returns ORQUIT=1 if ^ or timeout
OC1
OC2
LOCATION(ORQ,ORB,ORS)	; -- Returns patient location ; Optional: ORQ = 1 if not required ; ORB = Default value in vptr format ; ORS = String of location types to allow
LOC1
PROVIDER(ASK)	; -- Return ordering provider [ASK=1: force prompting]
P
PQ
SPEC(EVENT)	; -- Return treating specialty
CHANGE	; -- Change location and/or provider

External References

Name	Field # of Occurrence
^DIC	P+2
MIX^DIC1	SPEC+4
YN^DICN	P+5
^DIK	OC1+5
^DIR	OC1+2, LOC1
$$CANCEL^ORCHECK	OC1
$$REASON^ORCHECK	OC2+1
LIST^ORCHECK	ORDCHK+8
SESSION^ORCHECK	ORDCHK+3
EN^ORCMENU2	CHANGE+3
NOTIF^ORCMENU2	CHANGE+3
OC^ORCSAVE2	OC2+3
TEXT^ORQ12	ORDCHK+6
$$ACTLOC^ORWU	LOC1+1
UNLK1^ORX2	OC1+5
$$OUTPTPR^SDUTL3	PROVIDER+5
FULL^VALM1	SPEC+1, CHANGE+4
$$GET^XPAR	PROVIDER+6, P+4, P+5
$$PROVIDER^XUSER	P+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Unsigned orders with order checks:" Line Location: ORDCHK+4
Function Call: WRITE	Prompt: !!,$J(ORY,3)_". "_$G(ORTX(1))_$S($O(ORTX(1)):" ...",1:"") Line Location: ORDCHK+7
Function Call: WRITE	Prompt: !?10,"... orders cancelled.",! Line Location: OC1+7
Function Call: WRITE	Prompt: !!,"Critical order checks remain that require a justification." Line Location: OC2+1
Function Call: WRITE	Prompt: $C(7),!,"This location is inactive!" Line Location: LOC1+1
Function Call: WRITE	Prompt: !,"Requesting CLINICIAN: "_$P($G(^VA(200,Y,0)),U) Line Location: PROVIDER+4
Function Call: WRITE	Prompt: $C(7),!,"This provider is no longer active!" Line Location: P+3
Function Call: WRITE	Prompt: !!,"You are not allowed to choose yourself as the Requesting Clinician",! Line Location: P+4
Function Call: WRITE	Prompt: !!,"There are new orders for this patient from the current location or provider!" Line Location: CHANGE+2
Function Call: WRITE	Prompt: !!,"NOTE: You may now select a new ordering location and/or provider." Line Location: CHANGE+5
Function Call: WRITE	Prompt: !,"===== These changes will remain in effect until the chart is closed unless",!," these values are changed again!",!,$C(7) Line Location: CHANGE+6
Function Call: WRITE	Prompt: !?10,"... "_$S(ORCHNGD:"changes now effective!",1:"nothing changed!") Line Location: CHANGE+10
Routine Call	DIC Line Location: P+2
Routine Call	DIR Line Location: OC1+2 LOC1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^OR(100 - [#100]	Classic Fileman Calls
^DIC(45.7 - [#45.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	LOCATION+9, CHANGE+8
^TMP("ORNEW"	OC1+6!, CHANGE+1, CHANGE+8!
^VA(200 - [#200]	PROVIDER+4, PROVIDER+6, P+5
^XUSEC("ORELSE"	P+4
^XUSEC("OREMAS"	P+4
^XUSEC("ORES"	PROVIDER+2, PROVIDER+6, P+5
^XUSEC("PROVIDER"	PROVIDER+2, PROVIDER+6

Label References

Name	Line Occurrences
$$LOCATION	CHANGE+7
$$PROVIDER	CHANGE+9
LOC1	LOC1+1
P	P+3, P+4, P+5
PQ	P+2, P+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PROVIDER+1~, P+5*
ASK	PROVIDER~, PROVIDER+2
>> D	SPEC+2*
DA	OC1+1~, OC1+5*, OC1+6
DFN	PROVIDER+1~
DIC	PROVIDER+1~, P, SPEC+1~, SPEC+2
DIC("A"	P, SPEC+3
DIC("B"	PROVIDER+6*
DIC("S"	P+1, SPEC+2
DIC(0	P, SPEC+2
DIK	OC1+1~, OC1+3*
DIR	OC1+1~, LOCATION+5~
DIR("?"	OC1+2, LOCATION+8
DIR("A"	OC1+2, LOCATION+6
DIR("B"	LOCATION+9*
DIR("S"	LOCATION+7*
DIR(0	OC1+2, LOCATION+6
>> DTOUT	OC1+2, SPEC+4
>> DUOUT	OC1+2, SPEC+4
DUZ	PROVIDER+2, PROVIDER+3, PROVIDER+6, P+4, P+5
EVENT	SPEC~, SPEC+1*, SPEC+3
NMBR	OC1+1~, OC1+3*, OC1+4
ORB	LOCATION~, LOCATION+9
ORCHECK	ORDCHK+2~, ORDCHK+3
ORCHECK(	ORDCHK+5, OC1+6!, OC2+1, OC2+3
ORCHECK("OK"	OC2+1*, OC2+2!
ORCHNGD	CHANGE+1~, CHANGE+4, CHANGE+8, CHANGE+9*, CHANGE+10
>> ORES(	OC1+6!
ORI	OC1+1~, OC1+4*
ORIFN	ORDCHK+2~, ORDCHK+5, ORDCHK+6, ORDCHK+8, OC2+1, OC2+3*
ORIGVIEW	ORDCHK+2~, ORDCHK+6*
>> ORL	CHANGE+7, CHANGE+8*
>> ORL(0	CHANGE+8*
>> ORL(1	CHANGE+8*
>> ORNP	PROVIDER+3, PROVIDER+4, PROVIDER+6, CHANGE+9*
ORQ	LOCATION~, LOCATION+6
>> ORQUIT	OC2+2*
ORRV	CHANGE+1~, CHANGE+3*
ORS	LOCATION~, LOCATION+5*
ORTX	ORDCHK+2~, ORDCHK+6
ORTX(1	ORDCHK+7
>> ORVP	PROVIDER+5
ORX	CHANGE+1~, CHANGE+7, CHANGE+8, CHANGE+9
ORY	ORDCHK+2~, ORDCHK+5, ORDCHK+6, ORDCHK+7, OC1+1, OC1+2, OC1+6*, OC2
ORY(	ORDCHK+6*, OC1+5, OC1+6!
U	LOCATION+9, PROVIDER+4, PROVIDER+5, PROVIDER+6, CHANGE+8
>> VALMBCK	SPEC+1, CHANGE+4
VALMHDR	CHANGE+8!
X	OC1+1~, OC1+4, OC1+5, OC1+6, LOCATION+5~, PROVIDER+1~, P+4, P+5*, SPEC+1~
Y	OC1+1~, OC1+3, LOCATION+5~, LOC1, LOC1+1, LOC1+2, PROVIDER+1~, PROVIDER+2, PROVIDER+3, PROVIDER+4 , PROVIDER+5, P+2, P+3, P+4, P+5, PQ, SPEC+1~, SPEC+4*, SPEC+5
Z	OC1+1~

Customize PDF page

Package: Order Entry Results Reporting

Routine: ORCMENU1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: