Routine: GMRCPR0

Package	Total	Call Graph
Consult Request Tracking	2	EXAC^GMRCADC SERV^GMRCPS
Kernel	2	$$UP^XLFSTR EN^XQORM
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
Order Entry Results Reporting	4	ORCDGMRC ORQQCN1 ORWDCN32 ORY26
Consult Request Tracking	1	GMRCIUTL

Entry Points

Name	Comments	DBIA/ICR reference
ASK1
ASKTO	;Ask for service when file link not defined in protocol file
TO	;Get Service from File Link field
GETSVC(SLIST,PROC)	;Get the services that process a procedure type
ASK	;ASK FOR TO, PROCEDURE,URGENCY, AND PLACE OF CONSULT
PROC	;Use XQORM to select procedure

External References

Name	Field # of Occurrence
^DIC	ASK1+6, ASK1+20, PROC+2
^DIR	ASK1+2
EXAC^GMRCADC	ASK1+14
SERV^GMRCPS	ASKTO+1
$$UP^XLFSTR	ASK1+10
EN^XQORM	ASK1+13, ASK1+24, ASK1+27, PROC+4

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	ASK1+9, ASK1+10
^GMR(123.3 - [#123.3]	GETSVC+5
^GMR(123.5 - [#123.5]	ASK+1, ASK+2, TO+3, GETSVC+6, GETSVC+7, GETSVC+8, GETSVC+10
^ORD(100.98 - [#100.98]	TO+4
^ORD(101 - [#101]	ASK+1, ASK+2, TO+1, PROC+5, PROC+6
^XUTL("XQORM"	ASK1+10, ASK1+23

Label References

Name	Line Occurrences
ASKTO	TO+2
PROC	ASK+2

Naked Globals

Name	Field # of Occurrence
^(	PROC+5
^(20	PROC+6
^(5	ASK+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIC	ASK1+6!, ASK1+20, PROC+2*
DIC(0	ASK1+6, ASK1+20, PROC+2*
DIR	ASK1+2!
DIR("A"	ASK1+2*
DIR("B"	ASK1+2*
DIR(0	ASK1+2*
DIROUT	ASK1+2!, ASK1+13!, ASK1+24!, ASK1+27!, PROC+4!
DTOUT	ASK1+2!, ASK1+13!, ASK1+24!, ASK1+27!, PROC+4!
DUOUT	ASK1+2!, ASK1+13!, ASK1+24!, ASK1+27!, PROC+4!
DUZ	ASK1+9, ASK1+10
>> GMRCDG	ASKTO+1, ASKTO+2
>> GMRCEN	PROC+6*
>> GMRCEND	ASK+2, ASK1+2, ASK1+11, ASK1+13, ASK1+16, ASK1+24, ASK1+25, ASK1+27, TO+2, ASKTO+1* , PROC+1, PROC+4
>> GMRCIOPT	ASK1, ASK1+1, ASK1+2, ASK1+3*, ASK1+4, ASK1+18
GMRCMSG	ASK1+14*!
GMRCORSV	ASK+1!, ASK+2!
>> GMRCPL	ASK1+28*
>> GMRCPLI	ASK1+28*
>> GMRCPR	ASK+1, ASK+2, PROC+3, PROC+5*
>> GMRCPRI	ASK+1, ASK+2, TO+1, PROC+5, PROC+6
>> GMRCQUT	PROC+4*
>> GMRCSRVC	ASK+1, ASK+2, ASK+3*
>> GMRCSS	ASK+1, TO+1, TO+2, TO+3, ASKTO+2*
>> GMRCSSNM	ASK+3, TO+3*
>> GMRCTYPE	PROC+6*
>> GMRCURG	ASK1+17*
GMRCURG1	ASK1+9!, ASK1+10, ASK1+12!
>> GMRCURGI	ASK1+17*
>> GMRCVP	PROC+5*
>> GMRCWARD	ASK1
>> ORTO	TO+4*
PROC	GETSVC~, GETSVC+2, GETSVC+5
SCNT	GETSVC+1~, GETSVC+3, GETSVC+9, GETSVC+10, GETSVC+12
SLIST	GETSVC~, GETSVC+3, GETSVC+12
SLIST(	GETSVC+10*
SVC	GETSVC+1~, GETSVC+4, GETSVC+5, GETSVC+6, GETSVC+7, GETSVC+8, GETSVC+10
U	ASK1+23, GETSVC+7, GETSVC+8, GETSVC+10
>> X	ASK1+4, ASK1+5, ASK1+13, ASK1+18, ASK1+19, ASK1+24, ASK1+27, PROC+2, PROC+4, PROC+6
XQORM	ASK1+7, ASK1+9, ASK1+10, ASK1+21!, ASK1+23, ASK1+24!, ASK1+27!, ASK1+28!, PROC+1~, PROC+3* , PROC+4!
XQORM("??"	ASK1+7, ASK1+21, PROC+3*
XQORM("A"	ASK1+8, ASK1+22, PROC+3*
XQORM("B"	ASK1+10, ASK1+23, PROC+3*
XQORM("NO^^"	ASK1+8, ASK1+23, PROC+3*
XQORM(0	ASK1+7, ASK1+21, PROC+3*
>> Y	ASK1+3, ASK1+6, ASK1+7, ASK1+11, ASK1+14, ASK1+20, ASK1+21, ASK1+25, ASK1+27, PROC+2 , PROC+3
>> Y(1	ASK1+17, ASK1+28, PROC+5

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCPR0

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: