Routine: ORCONSLT

Package	Total	Call Graph
Consult Request Tracking	6	(COMMENT,DC,EDTSUB,PS,RC)^GMRCA1 CPRS^GMRCACTM FR^GMRCAFRD SF^GMRCASF DIS^GMRCDIS (ADDEND,ENTER)^GMRCTIU
Order Entry Results Reporting	3	SUBHDR^ORCACT ($$ORDERS,DESELECT,SELECT,TAB)^ORCHART FREEZE^ORCMENU
Kernel	1	EN^XQORM

Package	Total	Caller Graph
Order Entry Results Reporting	14	ORC COMMENT CONSULT ORC COMPLETE CONSULT ORC CONSULT ACTIONS ORC CONSULT EDIT/RESUBMIT ORC CONSULT MAKE ADDENDUM ORC DENY CONSULT ORC DISCONTINUE CONSULT ORC FORWARD CONSULT ORC PRINT CONSULT ORC RECEIVE CONSULT ORC REM MED RESULTS ORC REROUTE CONSULT ORC SCHEDULE CONSULT ORC SIGNIFICANT FINDINGS
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point
ENQ
EN1(ORACT)	; -- Action ORACT on consults
EDITRES	;Edit/Resubmit consult
REC	; -- Receive consult
SCHED	; -- Schedule consult
RR	; -- Reroute consult
CMMT	; -- Add comment to consult order
COMP	; -- Complete consult
REMRSLT	; -- Remove Medicine Results
DC	; -- Discontinue consult
DENY	; -- Deny consult request
FWD	; -- Forward consult request to other services
PRNT	; -- Print consult form
SIGF	; -- Significant Findings
ADDEND	; -- Make an addendum to the consult result
SERVMENU()	; -- Returns 1 or 0, if user is allowed service menu
SMQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Insufficient privilege for this service!" Line Location: EN1+8
Function Call: WRITE	Prompt: !!,"This action is not available yet." Line Location: REMRSLT+1
Function Call: WRITE	Prompt: !!,"No longer available." Line Location: FWD+2
Function Call: WRITE	Prompt: !!,"This action is not available yet." Line Location: SIGF+1

Name	Line Occurrences (* Changed, ! Killed)
^ORD(101 - [#101]	EN+4, EN+5, EN+7
^TMP("OR"	EN1+5, EN1+9*, SERVMENU+3

Name	Field # of Occurrence
^(20	EN+7

Name	Field # of Occurrence
GMRCACT	EN1+1~, DC+1, DENY+1
I	SERVMENU+1~, SERVMENU+3, SERVMENU+5
ID	EN1+1~, EN1+6*, EN1+7, EDITRES+1, REC+1, SCHED+1, RR+1, CMMT+1, COMP+2, REMRSLT+2 , DC+1, DENY+1, PRNT+1, SIGF+2, ADDEND+1
NMBR	EN1+1~, EN1+5, SERVMENU+1~, SERVMENU+3
ORACT	EN1~, EN1+2, EN1+7
ORCMENU	EN+1~, EN+3, EN+4, EN+5, EN1+3~
>> OREBUILD	ENQ, EN1+9, EDITRES+1, REC+1, SCHED+1, RR+1, COMP+2, REMRSLT+2, DC+1, DENY+1 , SIGF+2, ADDEND+1
ORFLG	EN+1~, EN1+3~
ORFLG(	EN1+7, SERVMENU+5
ORI	EN1+1~, EN1+5*
ORIDX	EN1+1~, EN1+5*, EN1+6
ORLK	EN1+1~
>> ORNMBR	EN+2, ENQ, EN1+3, EN1+5, SERVMENU+3
ORQUIT	EN1+1~, EN1+5
>> ORTAB	EN1+5, EN1+9, SERVMENU+3
U	EN+5, EN+7, EN1+6, EN1+9, SERVMENU+3
>> VALMBCK	EN+1, EN1+2, EN1+4*
X	EN1+1~, EN1+6, SERVMENU+1~, SERVMENU+3*, SERVMENU+4
XQORM	EN+1~, EN+4*, EN+5
XQORM("A"	EN+5*
XQORM("M"	EN+5*
XQORM(0	EN+5*
>> XQORNOD(0	EN+2
Y	EN+1~, EN+6, SERVMENU+1~, SERVMENU+5, SMQ
Y(1	EN+7