Routine: GMRCEDIT

Package	Total	Call Graph
Consult Request Tracking	3	($$LOCK,UNLOCK)^GMRCA1 $$VALID^GMRCAU EN^GMRCEDT2
Order Entry Results Reporting	2	$$XQAKILL^ORB3F1 DEL^ORB3FUP1
Registration	2	EN^VALM SET^VALM10
Kernel	1	DISP^XQORM1
VA Fileman	1	^DIR

Package

Total

Call Graph

Consult Request Tracking

($$LOCK,UNLOCK)^GMRCA1 $$VALID^GMRCAU EN^GMRCEDT2

Order Entry Results Reporting

$$XQAKILL^ORB3F1 DEL^ORB3FUP1

Registration

EN^VALM SET^VALM10

Kernel

DISP^XQORM1

VA Fileman

^DIR

Package	Total	Caller Graph
Consult Request Tracking	3	GMRCA1 GMRCACTM GMRCEDT4
Order Entry Results Reporting	1	ORB3FUP2

Package

Total

Caller Graph

Consult Request Tracking

GMRCA1 GMRCACTM GMRCEDT4

Order Entry Results Reporting

ORB3FUP2

Entry Points

Name	Comments	DBIA/ICR reference
END	; -- exit code
HELP	; -- help code
VALPROV(GMRCIEN)	; Check Provider or Update authority.
EXPND	; -- expand code
INIT	; -- init variables and list array
EXIT	;
EN(XQCON,XQDFN)	; -- main entry point for GMRCEDIT
HDR	; -- header code

Name	Field # of Occurrence
^DIR	EN+21
$$LOCK^GMRCA1	EN+7
UNLOCK^GMRCA1	END+1
$$VALID^GMRCAU	VALPROV+2
EN^GMRCEDT2	EN+22
$$XQAKILL^ORB3F1	EN+5, EN+11, EN+24
DEL^ORB3FUP1	EN+5, EN+11, EN+24
EN^VALM	EN+15
SET^VALM10	INIT+3
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"This Consult Has Not Been Resubmitted!!" Line Location: EN+18
Function Call: WRITE	Prompt: !,"Resubmit Or All Edits Will Be Lost!!",!! Line Location: EN+19
Function Call: WRITE	Prompt: !!,"No changes made!" Line Location: EN+21
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+15
Routine Call	DIR Line Location: EN+21

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+12
^GMR(123 - [#123]	EN+10, EN+13, VALPROV+1, VALPROV+2
^ORD(100.01 - [#100.01]	EN+10
^TMP("GMRCED"	EN+16, END+3!
^TMP("GMRCFLD20"	END+3!
^TMP("GMRCR"	INIT+1!, INIT+3, END+2!
^TMP("GMRCSUB"	END+3!
^VA(200 - [#200]	EN+14

Name	Line Occurrences
END	EN+5, EN+7, EN+11, EN+25

Name	Field # of Occurrence
^(	INIT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CMDA	END+4!
DA	END+4!
DATA	INIT+2, INIT+3, INIT+5!
DFN	EN+2~, EN+3*, EN+12, END+4!
DIC	END+4!
DIE	END+4!
DIR	EN+17~
DIR("A"	EN+20*
DIR("B"	EN+20*
DIR(0	EN+20*
DR	END+4!
DSPLINE	INIT+2, INIT+3, INIT+5!
DTOUT	EN+17~, EN+21
DUOUT	EN+17~, EN+21
DUZ	VALPROV+1
FLDA	END+4!
FLDNM	END+4!
GMRCA	END+4!
GMRCANS	END+4!
GMRCATN	END+4!
GMRCCORY	EN+2~, EN+5, EN+11, EN+24
GMRCD	END+4!
GMRCDA	EN+2~, EN+3*, EN+5, EN+6, EN+10, EN+13, HDR+1, END+5!
GMRCDA1	END+5!
GMRCDAP	EN+6*, EN+7, EN+22, END+1, END+5!
GMRCDD	END+4!
GMRCDIAG	END+4!
GMRCED	END+4!
GMRCED(0	EN+16
GMRCEDCM	END+4!
GMRCFLD	END+5!
GMRCIEN	VALPROV~, VALPROV+1, VALPROV+2
GMRCIND	END+4!
GMRCINO	END+4!
GMRCKEEP	END+4!
GMRCLCK	EN+8~*, END+1
GMRCLNO	INIT+3, INIT+4, END+4!
GMRCND	END+4!
GMRCND1	END+4!
GMRCNOTF	EN+2~, EN+4*, EN+5, EN+11, EN+24
GMRCO	EN+2~, END+4!
GMRCOK	EN+10*, EN+11, END+4!
GMRCOUNT	END+5!
GMRCPC	END+4!
GMRCPL	END+4!
GMRCPNM	EN+12*, HDR+1, END+4!
GMRCPR	END+4!
GMRCPROC	END+4!
GMRCPROV	EN+13, EN+14, HDR+2, END+4!
GMRCREQ	END+4!
GMRCRQT	END+4!
GMRCRSUB	EN+16, END+5!
GMRCSS	END+5!
GMRCURG	END+5!
LINE	INIT+3*, INIT+5!
ND	END+5!
TRKDA	END+5!
>> VALMAR	INIT+2*
>> VALMCNT	INIT+4*
>> VALMHDR(1	HDR+1*
>> VALMHDR(2	HDR+2*
>> VALMPGE	INIT+4*
X	EN+17~, HELP+1*
XQAKILL	EN+5, EN+11, EN+24*, END+5!
XQCON	EN~, EN+3
XQDFN	EN~, EN+3, EN+4, EN+5, EN+11, EN+24
>> XQORM("A"	INIT+4*
Y	EN+17~, EN+21

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCEDIT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: