Routine: GMRCADC

Package	Total	Call Graph
Consult Request Tracking	6	($$LOCK,UNLOCK)^GMRCA1 SELECT^GMRCA2 ($$ORTX,$$VALID,GETPROV)^GMRCAU EN^GMRCHL7 (AUDIT,MSG,STATUS)^GMRCP ($$DCPRNT,$$GETDT,PRNT)^GMRCUTL1
Kernel	1	$$PROVIDER^XUSER
Registration	1	FULL^VALM1
VA Fileman	1	^DIR

Package	Total	Caller Graph
Consult Request Tracking	27	GMRC101C GMRCA1 GMRCAAC GMRCACMT GMRCAFRD GMRCAR GMRCART GMRCASF GMRCASV GMRCDIS GMRCEDT2 GMRCEDT4 GMRCGUIA GMRCHL7B GMRCIACT GMRCMCP GMRCMED GMRCP5 GMRCPR0 GMRCR GMRCSLM2 GMRCSSP GMRCSTS GMRCSTU GMRCTIUA GMRCTIUE GMRCTIUL

Entry Points

Name	Comments	DBIA/ICR reference
EXAC(MSG)	;Exit message asking for user to press <ENTER> EXAC=Exit Action
DC(GMRCO,GMRCA)	;Discontinue a consult logic from DC^GMRCA1
PROC	;Check validity of action and if valid process the discontinue action
DCNOTE(IEN,USER)	;determine if service users receive alerts based on 1.04
FRGTPRV

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,MSG Line Location: EXAC+2
Function Call: WRITE	Prompt: !,MSG(ND) Line Location: EXAC+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: EXAC+4
Function Call: WRITE	Prompt: !,"Press <RETURN> to continue: " Line Location: EXAC+4
Function Call: WRITE	Prompt: !! Line Location: EXAC+4
Function Call: WRITE	Prompt: !,"The requesting facility may not take this action on an " Line Location: DC+8
Function Call: WRITE	Prompt: "inter-facility consult." Line Location: DC+9
Routine Call	DIR Line Location: DC+10

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	DC+6, DC+14, FRGTPRV+12, DCNOTE+2
^GMR(123.1 - [#123.1]	DC+16, FRGTPRV+10
^GMR(123.5 - [#123.5]	DCNOTE+3

Name	Field # of Occurrence
^(0	FRGTPRV+12

Name	Field # of Occurrence
DCFLG	DCNOTE+1~, DCNOTE+3*, DCNOTE+4, DCNOTE+5, DCNOTE+6
>> DFN	DC+15*, DC+23
DIR	DC+7~
DIR(0	DC+10*
DIROUT	PROC+1~, FRGTPRV
DTIME	EXAC+4
DTOUT	PROC+1~, FRGTPRV
DUOUT	PROC+1~, FRGTPRV
DUZ	DC+20, FRGTPRV+12, FRGTPRV+14
GETPROV	PROC+8~
GMRC	DC+2~
GMRC(0	DC+14, DC+15, DC+21, PROC+2, PROC+3, PROC+4, PROC+5, FRGTPRV+5
GMRCA	DC~, DC+16, DC+20, DC+22, FRGTPRV+5, FRGTPRV+10, FRGTPRV+14, FRGTPRV+17
GMRCACT	PROC+1~, FRGTPRV+1*
GMRCACTM	DC+2~, DC+16*, FRGTPRV+10
GMRCAD	DC+2~, DC+23, FRGTPRV+3*, FRGTPRV+4
GMRCADUZ	DC+2~, FRGTPRV+11*, FRGTPRV+18
GMRCADUZ(	FRGTPRV+12*
GMRCDA	DC+2~, DC+14*
>> GMRCDFN	DC+15*, PROC+7, FRGTPRV+18
GMRCFL	PROC+1~, FRGTPRV+11, FRGTPRV+14, FRGTPRV+18
GMRCMSG	PROC+1~, PROC+2, PROC+3, PROC+4, PROC+5
GMRCMSG(1	PROC+4*
GMRCO	DC~, DC+4, DC+5, DC+6, DC+12, DC+14, DC+18, DC+20, DC+21, DC+23 , DC+24, FRGTPRV+10, FRGTPRV+12, FRGTPRV+14, FRGTPRV+18
>> GMRCOM	DC+23, FRGTPRV+6*
>> GMRCORNP	DC+23, FRGTPRV+1
>> GMRCORTX	FRGTPRV+10*, FRGTPRV+18
>> GMRCORVP	PROC+7*
GMRCQIT	DC+3!
GMRCQUT	DC+3!, DC+4, DC+5, DC+11, DC+12, DC+18, PROC+2, PROC+3, PROC+4, PROC+5 , FRGTPRV, FRGTPRV+4
>> GMRCRB	DC+23
GMRCSERV	DC+2~
>> GMRCSTS	FRGTPRV+5*
>> GMRCTRLC	DC+22*, DC+23
>> GMRCTYPE	DC+23
>> GMRCVSIT	DC+23
IEN	DCNOTE~, DCNOTE+2, DCNOTE+6
>> IOBM	DC+1
>> IOSTBM	DC+1
>> IOTM	DC+1
MSG	EXAC~, EXAC+2
MSG(	EXAC+2, EXAC+3
MSG(0	EXAC+2
ND	EXAC+1~, EXAC+2*, EXAC+3
NOTYPE	FRGTPRV+17~*, FRGTPRV+18
SERV	DCNOTE+1~, DCNOTE+2*, DCNOTE+3, DCNOTE+6
U	DC+6, DC+21, FRGTPRV+1, FRGTPRV+10, DCNOTE+2, DCNOTE+3
USER	DCNOTE~, DCNOTE+6
X	EXAC+1~, EXAC+4*