Routine: GMRCA1

Information

GMRCA1 ;SLC/DLT,DCM - Actions taken from Review Screens ; 7/11/03 14:05

Source Information

Source file <GMRCA1.m>

Call Graph

Call Graph Total: 14

Package	Total	Call Graph
Consult Request Tracking	10	SELECT^GMRCA2 (COMMENT,PROCALRT)^GMRCACMT (DC,EXAC)^GMRCADC RT^GMRCART GETPROV^GMRCAU ($$VALPROV,EN)^GMRCEDIT EN^GMRCHL7 (AUDIT,STATUS)^GMRCP EN^GMRCP5 $$GETDT^GMRCUTL1
Kernel	1	$$NOW^XLFDT
Order Entry Results Reporting	1	($$LOCK1,UNLK1)^ORX2
Registration	1	FULL^VALM1
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Consult Request Tracking	6	GMRCADC GMRCAFRD GMRCASF GMRCDIS GMRCEDIT GMRCTIUE
Order Entry Results Reporting	1	ORCONSLT

Entry Points

Name	Comments	DBIA/ICR reference
DC(GMRCO,GMRCA)	;Discontinue/Cancel(Deny) logic
END	;kill off variables and exit
COMMENT(GMRCO)	;Add a comment without changing the status
LOCK(GMRCIFN)	;;lock a consult record using OE/RR order number
RC(GMRCO,GMRCSCH)	;Service tracking request received or scheduled ; GMRCSCH=1 - schedule action
RT(GMRCO)	;Results Display logic
UNLOCK(GMRCIFN)	;unlock a consult record using OE/RR order number
EDTSUB(GMRCO)	;Patch 18 Edit/Resubmit a canceled consult
PS(GMRCO)	;Print Service Copy (CPRS entry point)

External References

Name	Field # of Occurrence
^DIR	RC+9
SELECT^GMRCA2	COMMENT+3, EDTSUB+4, RC+3, RT+2, PS+2
COMMENT^GMRCACMT	COMMENT+7
PROCALRT^GMRCACMT	RC+56
DC^GMRCADC	DC+10
EXAC^GMRCADC	DC+6, EDTSUB+12, RC+21, RC+28, RC+32, RC+42, LOCK+5
RT^GMRCART	RT+4
GETPROV^GMRCAU	RC+38
$$VALPROV^GMRCEDIT	EDTSUB+8
EN^GMRCEDIT	EDTSUB+17
EN^GMRCHL7	RC+53
AUDIT^GMRCP	RC+52
STATUS^GMRCP	RC+51
EN^GMRCP5	PS+5
$$GETDT^GMRCUTL1	RC+39
$$LOCK1^ORX2	LOCK+3
UNLK1^ORX2	UNLOCK+3
FULL^VALM1	RC+35
$$NOW^XLFDT	RC+40

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"The requesting facility may not take this action on an " Line Location: RC+7
Function Call: WRITE	Prompt: "inter-facility consult." Line Location: RC+8
Function Call: WRITE	Prompt: !,$C(7) Line Location: RC+42
Routine Call	DIR Line Location: RC+9

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	EDTSUB+10, EDTSUB+15, RC+5, RC+16, PS+4, LOCK+2, UNLOCK+2
^TMP("GMRC"	END+6

Label References

Name	Line Occurrences
$$LOCK	COMMENT+5, EDTSUB+13, RC+12
END	DC+7, DC+11, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+8, EDTSUB+4, EDTSUB+5, EDTSUB+12, EDTSUB+13 , EDTSUB+18, RC+3, RC+4, RC+10, RC+12, RC+18, RC+28, RC+32, RC+38, RC+43 , RC+57, RT+2, RT+3, RT+5, PS+2, PS+3, PS+6
UNLOCK	END+1

Name	Field # of Occurrence
^("MENU"	END+6
^(0	RC+18, RC+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DFN	RC+17*, RC+53
DIR	RC+6~
DIR(0	RC+9*
DIROUT	END+4, END+5!
DTOUT	END+4, END+5!
DUOUT	END+5!
GETPROV	RC+36~, RC+37*, RC+38!
>> GMRC("NMBR"	END+2
>> GMRC(0	RC+16, RC+17, RC+18, RC+19, RC+25, RC+30, RC+48, RC+49, PS+4*, END+3!
GMRCA	DC~, DC+4, DC+10, COMMENT+1~, EDTSUB+1~, RC+47, RC+50, END+3!
GMRCACTM	END+3!
GMRCAD	RC+14~, RC+39, RC+40, RC+41, RC+53
GMRCADUZ	END+3!
GMRCAGN	RC+2!, END+3!
GMRCBM	END+3!
GMRCDA	RC+14~
GMRCDFN	EDTSUB+1~, EDTSUB+15*, EDTSUB+17, END+3!
GMRCEND	END+3!
GMRCENTR	END+3!
GMRCFL	END+3!
GMRCIEN	END+3!
GMRCIFN	RC+14~, LOCK~, LOCK+2, UNLOCK~, UNLOCK+2
GMRCLCK	COMMENT+1~, COMMENT+6, EDTSUB+1~, EDTSUB+14, RC+14~, RC+15*, END+1
GMRCLOCK	LOCK+1~, LOCK+3*, LOCK+5
GMRCMSG	DC+5, DC+6, EDTSUB+1~, EDTSUB+9, EDTSUB+11, EDTSUB+12, RC+19, RC+21, RC+22!, RC+26* , RC+27, RC+28, RC+31, RC+32, END+3!
GMRCMSG(1	RC+20*
GMRCO	DC~, DC+10, COMMENT~, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+7, EDTSUB~, EDTSUB+4, EDTSUB+5 , EDTSUB+8, EDTSUB+10, EDTSUB+13, EDTSUB+15, EDTSUB+17, RC~, RC+3, RC+4, RC+5, RC+12 , RC+16, RC+53, RC+56, RT~, RT+2, RT+3, RT+4, PS~, PS+2, PS+3 , PS+4, PS+5, END+1, END+2!, END+3!
GMRCOM	RC+52*, RC+53, RC+54, END+3!
GMRCORD	LOCK+1~, LOCK+2, LOCK+3, UNLOCK+1~, UNLOCK+2, UNLOCK+3
GMRCORFN	END+3!
GMRCORN	END+3!
>> GMRCORNP	RC+53
GMRCORTX	END+3!
GMRCQIT	DC+9!, COMMENT+2!, EDTSUB+2!, RC+2!, RC+38, RT+1!, PS+1!, END+4
GMRCQUT	DC+8, DC+9!, COMMENT+2!, COMMENT+3, COMMENT+4, COMMENT+5, EDTSUB+2!, EDTSUB+4, EDTSUB+5, EDTSUB+12* , EDTSUB+13, EDTSUB+16, RC+2!, RC+3, RC+4, RC+11, RC+12, RC+18, RC+29, RC+33* , RC+38, RC+44, RT+1!, RT+2, RT+3, PS+1!, PS+2, PS+3
GMRCRTFL	END+3!
GMRCSA	END+3!
GMRCSCH	RC~, RC+25, RC+30, RC+37, RC+39, RC+40, RC+46, RC+50, RC+54
GMRCSEL	RC+2!, PS+1!, END+2!, END+3!
GMRCSR	END+3!
GMRCSTS	RC+48, RC+49, RC+50*, END+3!
GMRCTM	END+3!
GMRCTRLC	END+3!
>> GMRCTYPE	RC+53
>> GMRCVSIT	RC+53
>> GMRCWARD	RC+53
>> IOBM	RC+35
>> IOSTBM	RC+35
>> IOTM	RC+35
OREND	END+3!
ORIFN	END+3!
SF	END+3!
STS	END+3!
TXT	RC+55~*, RC+56
U	RC+5, RC+54, LOCK+2, LOCK+5, UNLOCK+2
>> XQORM("HIJACK"	END+6*
>> XQORM("M"	EDTSUB+3*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCA1

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: