Routine: GMRCPC

Package	Total	Call Graph
Consult Request Tracking	5	SERV1^GMRCASV $$STS^GMRCPC1 (EN,ENOR)^GMRCSTLM (PRNTASK,PRNTIT)^GMRCSTU LISTDATE^GMRCSTU1
Kernel	2	^%ZISC DISP^XQORM1
List Manager	1	EN^VALM

Package	Total	Caller Graph
Consult Request Tracking	12	GMRC COLUMN WIDTH MESSAGE GMRC OUTSTD CONSLTS SELECT NUMBERED GMRC OUTSTD CONSLTS SELECT SERVICE GMRC OUTSTD CONSLTS SELECT STATUS GMRC PENDING CONSULTS GMRC PRINT RPT NUMBERED GMRC RPT COMPLETE CONSULTS GMRC RPT COMPLETE/PENDING GMRC RPT PENDING CONSULTS GMRC SD PENDING CONSULTS GMRCPC1 GMRCSTLM
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	;GMRC List Manager Routine -- main entry point for GMRC PENDING CONSULTS
HDR	; -- header code
INIT	; -- init variables and list array
HELP	; -- help code
EXIT	; -- exit code
EXPND	; -- expand code
CWIDTH(GMRCCTRL)	;Prints a message about how wide the report is.
PWIDTH(GMRCCTRL)	;Prints a message about how wide the report is.
PRNTONLY(GMRCCTRL)	;Option to just send the report to a device.
PRNTQ	;Print Queued report from ^TMP global then kill off ^TMP & ^XTMP

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!,"This print out is "_$$CWIDTH(GMRCCTRL)_" columns wide." Line Location: PWIDTH+1
Function Call: WRITE	Prompt: ^TMP("GMRCR",$J,TMPNAME,INDEX,0),! Line Location: PRNTQ+6
Routine Call	VALM Line Location: EN+17

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	EN+2, EN+4, EN+5
^TMP("GMRCR"	EXIT+4!, PRNTQ+6, PRNTQ+7!
^TMP("GMRCRINDEX"	EXIT+4!
^TMP("GMRCS"	EXIT+4!
^TMP("GMRCSLIST"	EN+15, EXIT+4!, PRNTONLY+10
^TMP("GMRCTOT"	EXIT+4!
^XTMP("GMRCR"	PRNTQ+7!

Name	Line Occurrences
$$CWIDTH	PWIDTH+1
EXIT	EN+2, EN+13, EN+15, PRNTONLY+5, PRNTONLY+8, PRNTONLY+10, PRNTONLY+15, PRNTONLY+24, PRNTQ+9
PWIDTH	PRNTONLY+12

Name	Field # of Occurrence
CNT	EXIT+1!
CTRLCOL	EXIT+1!
DOLLARH	PRNTQ+7!
GMRCARRN	EXIT+3!
GMRCCOMP	EXIT+1!
GMRCCT	HDR+1, EXIT+1!
GMRCCTRL	HDR+4, EXIT+3!, CWIDTH~, CWIDTH+3, CWIDTH+4, CWIDTH+6, PWIDTH~, PWIDTH+1, PRNTONLY~, PRNTONLY+11* , PRNTONLY+12, PRNTONLY+21, PRNTQ+3
GMRCDG	EN+7*, PRNTONLY+1~, PRNTONLY+21, PRNTQ+3
GMRCDT1	EN+9*, EN+11, PRNTONLY+2~, PRNTONLY+21, PRNTQ+3
GMRCDT2	EN+10*, EN+11, PRNTONLY+2~, PRNTONLY+21, PRNTQ+3
>> GMRCEACT	EN+2, EN+3
GMRCEDT1	EN+11, HDR+3, EXIT+2!, PRNTONLY+2~
GMRCEDT2	EN+11, HDR+3, EXIT+2!, PRNTONLY+2~
GMRCHEAD	HDR+2, EXIT+3!
GMRCQUT	EN+13, EN+15, HDR+1, EXIT+1!, PRNTONLY+1~, PRNTONLY+5, PRNTONLY+8, PRNTONLY+10, PRNTONLY+15
GMRCSTAT	EXIT+3!, PRNTONLY+1~, PRNTONLY+4*, PRNTONLY+21, PRNTQ+3
GMRCSVC	EN+1!, EN+2, EN+4*, EN+5, EN+7, EN+13, EXIT+1!
GMRCSVCP	EN+1!, EN+3*, EN+4, EXIT+1!
GMRCSVNM	EXIT+2!
INDEX	PRNTQ+2~, PRNTQ+5, PRNTQ+6
IO	PRNTQ+4
IO("Q"	PRNTONLY+17
J	PRNTQ+7!
RETURN	PRNTONLY+1~, PRNTONLY+21, PRNTQ+2~, PRNTQ+3
>> TMPNAME	PRNTQ+6, PRNTQ+7
VALMBCK	PRNTONLY+1~
>> VALMCAP	HDR+4*
VALMHDR	EXIT+1!
VALMHDR(1	HDR+2*
VALMHDR(2	HDR+3*
WIDTH	CWIDTH+1~, CWIDTH+2, CWIDTH+4, CWIDTH+5, CWIDTH+6, CWIDTH+7
>> X	HELP+1*
>> ZTSAVE("GMRCCTRL"	PRNTONLY+19*
>> ZTSAVE("GMRCSTAT"	PRNTONLY+18*