Routine: GMRCPC

Information

GMRCPC ;SLC/DCM,dee,MA - List Manager Routine: Collect and display consults by service and status ;23-Sep-2011 09:17;PLS

Source file <GMRCPC.m>

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
Registration	1	EN^VALM

Package	Total	Caller Graph
Consult Request Tracking	6	GMRC PRINT RPT NUMBERED GMRC RPT COMPLETE CONSULTS GMRC RPT COMPLETE/PENDING GMRC RPT PENDING CONSULTS GMRCPC1 GMRCSTLM

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

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+16

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!
GMRTST	EXIT+2!, PRNTONLY+21, PRNTQ+3
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*