Routine: GMRCIR

Information

GMRCIR ;SLC/JAK - IFC Request data & statistics ;03/05/02 08:20

Source Information

Source file <GMRCIR.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Consult Request Tracking	6	UP^GMRCA2 SERV1^GMRCASV $$STS^GMRCPC1 (EN,ENOR)^GMRCSTLM (PRNTASK,PRNTIT)^GMRCSTU LISTDATE^GMRCSTU1
VA Fileman	3	$$FIND1^DIC $$GET1^DIQ ^DIR
Kernel	2	^%ZISC DISP^XQORM1
Registration	1	EN^VALM

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Consult Request Tracking	4	GMRC IFC PRINT RPT NUMBERED GMRC IFC RPT CONSULTS GMRC IFC RPT CONSULTS BY REMPR GMRCSTLM

Entry Points

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for GMRC IF 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.
PRNTQ	;Print Queued report from ^TMP global then kill off ^TMP & ^XTMP
EXPND	; -- expand code
EXIT	; -- exit code
HELPR	;Help for Remote Ordering Provider prompt
DESC	;Displays Description from Option file
HELP	; -- help code

External References

Name	Field # of Occurrence
^%ZISC	PRNTQ+8
$$FIND1^DIC	DESC+4
$$GET1^DIQ	DESC+6
^DIR	EN+13, EN+25, EN+32, HELPR+8, HELPR+11, DESC+12, DESC+15, PRNTONLY+6, PRNTONLY+20
UP^GMRCA2	EN+26
SERV1^GMRCASV	EN+44
$$STS^GMRCPC1	EN+36, PRNTONLY+8
EN^GMRCSTLM	EN+50, PRNTONLY+11
ENOR^GMRCSTLM	PRNTONLY+32, PRNTQ+3
PRNTASK^GMRCSTU	PRNTONLY+24
PRNTIT^GMRCSTU	PRNTONLY+34
LISTDATE^GMRCSTU1	EN+48
EN^VALM	EN+54
DISP^XQORM1	HELP+1

Interaction Calls

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: @IOF Line Location: HELPR+3
Function Call: WRITE	Prompt: @IOF Line Location: DESC+8
Function Call: WRITE	Prompt: ^TMP("GMRCR",$J,TMPNAME,INDEX,0),! Line Location: PRNTQ+6
Routine Call	VALM Line Location: EN+54
Routine Call	DIC Line Location: DESC+4
Routine Call	DIR Line Location: EN+13 EN+25 EN+32 HELPR+8 HELPR+11 DESC+12 DESC+15 PRNTONLY+6 PRNTONLY+20

FileNo	Call Tags
^DIC(19 - [#19]	FIND1^DIC, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	EN+5, HELPR+4
^GMR(123.5 - [#123.5]	EN+38, EN+40, EN+41
^TMP("GMRCR"	EXIT+4!, PRNTQ+6, PRNTQ+7!
^TMP("GMRCRINDEX"	EXIT+4!
^TMP("GMRCS"	EXIT+4!
^TMP("GMRCSLIST"	EN+52, EXIT+4!, PRNTONLY+14
^TMP("GMRCTOT"	EXIT+4!
^XTMP("GMRCR"	PRNTQ+7!

Name	Line Occurrences
$$CWIDTH	PWIDTH+1
DESC	PRNTONLY+21
EXIT	EN+34, EN+37, EN+38, EN+50, EN+52, PRNTONLY+9, PRNTONLY+12, PRNTONLY+14, PRNTONLY+20, PRNTONLY+25 , PRNTONLY+35, PRNTQ+9
PWIDTH	PRNTONLY+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CNT	EXIT+1!
CTRLCOL	EXIT+1!
DIR	EN+9~, EN+16~, EN+29~, HELPR+7~, HELPR+10~, DESC+11~, DESC+14~, PRNTONLY+3~, PRNTONLY+17~
DIR("?"	EN+18*
DIR("A"	EN+12, EN+19, EN+20, EN+21, EN+22, EN+23, EN+24, EN+31, HELPR+11, DESC+15 , PRNTONLY+5, PRNTONLY+19
DIR("B"	PRNTONLY+18*
DIR("S"	EN+11*
DIR(0	EN+10, EN+17, EN+30, HELPR+8, HELPR+11, DESC+12, DESC+15, PRNTONLY+4, PRNTONLY+18*
DIROUT	EN+9~, EN+16~, EN+29~, HELPR+7~, HELPR+10~, DESC+11~, DESC+14~, PRNTONLY+3~, PRNTONLY+17~
DIRUT	EN+9~, EN+13, EN+16~, EN+25, EN+29~, EN+32, HELPR+7~, HELPR+10~, DESC+11~, DESC+14~ , PRNTONLY+3~, PRNTONLY+6, PRNTONLY+17~, PRNTONLY+20
DOLLARH	PRNTQ+7!
DTOUT	EN+9~, EN+16~, EN+29~, HELPR+7~, HELPR+10~, DESC+11~, DESC+14~, PRNTONLY+3~, PRNTONLY+17~
DUOUT	EN+9~, EN+16~, EN+29~, HELPR+7~, HELPR+10~, DESC+11~, DESC+14~, PRNTONLY+3~, PRNTONLY+17~
GMRCARRN	EXIT+3!
GMRCCK	EN+2~, PRNTONLY+3~
GMRCCT	HDR+1, EXIT+1!
GMRCCTRL	HDR+5, EXIT+3!, CWIDTH~, CWIDTH+3, CWIDTH+4, CWIDTH+6, PWIDTH~, PWIDTH+1, PRNTONLY~, PRNTONLY+15* , PRNTONLY+22, PRNTONLY+32, PRNTQ+3
GMRCDESC	DESC+1~, DESC+6*
GMRCDESC(	DESC+8, DESC+9
GMRCDESC(0	DESC+7
GMRCDG	EN+2~, EN+43*, PRNTONLY+1~, PRNTONLY+32, PRNTQ+3
GMRCDT1	EN+3~, EN+46*, EN+48, PRNTONLY+2~, PRNTONLY+32, PRNTQ+3
GMRCDT2	EN+3~, EN+47*, EN+48, PRNTONLY+2~, PRNTONLY+32, PRNTQ+3
>> GMRCEACT	EN+38, EN+39
GMRCEDT1	EN+3~, EN+48, HDR+4, EXIT+2!, PRNTONLY+2~
GMRCEDT2	EN+3~, EN+48, HDR+4, EXIT+2!, PRNTONLY+2~
>> GMRCHEAD	HDR+3
GMRCIS	EN+2~, EN+27, EN+33, HDR+2, PRNTONLY+3~, PRNTONLY+6*
GMRCNUM	DESC+1~, DESC+2, DESC+8, DESC+9
GMRCOPT	DESC+1~, DESC+4*, DESC+5, DESC+6
GMRCOPTN	DESC+1~, DESC+3*, DESC+4
GMRCQUT	EN+7, EN+13, EN+25, EN+32, EN+34, EN+37, EN+50, EN+52, HDR+1, EXIT+1! , HELPR+1~, HELPR+4, HELPR+6, HELPR+9, DESC+1~, DESC+8, DESC+10, DESC+13, PRNTONLY+1~, PRNTONLY+9 , PRNTONLY+12, PRNTONLY+14, PRNTONLY+25
>> GMRCREMP	EN+4, EN+26*
>> GMRCRF	EN+4, EN+14*
GMRCRP	HELPR+1~, HELPR+2, HELPR+4, HELPR+5
GMRCSTAT	EN+2~, EN+36, EXIT+3!, PRNTONLY+1~, PRNTONLY+8, PRNTONLY+32, PRNTQ+3
GMRCSVC	EN+1!, EN+38, EN+40*, EN+41, EN+43, EN+50, EXIT+1!
GMRCSVCP	EN+1!, EN+39*, EN+40, EXIT+1!
GMRCSVNM	EXIT+2!
INDEX	PRNTQ+2~, PRNTQ+5, PRNTQ+6
IO	PRNTQ+4
IO("Q"	PRNTONLY+27
IOF	HELPR+3, HELPR+6, DESC+8, DESC+10
IOSL	HELPR+6, DESC+10
J	PRNTQ+7!
RETURN	PRNTONLY+1~, PRNTONLY+32, PRNTQ+2~, PRNTQ+3
>> TMPNAME	PRNTQ+6, PRNTQ+7
VALMBCK	PRNTONLY+1~
>> VALMCAP	HDR+5*
VALMHDR	EXIT+1!
VALMHDR(1	HDR+2*
VALMHDR(2	HDR+3*
VALMHDR(3	HDR+4*
WIDTH	CWIDTH+1~, CWIDTH+2, CWIDTH+4, CWIDTH+5, CWIDTH+6, CWIDTH+7
X	EN+9~, EN+16~, EN+26, EN+29~, HELP+1*, HELPR+6~, HELPR+10~, DESC+10~, DESC+14~, PRNTONLY+3~ , PRNTONLY+17~
Y	EN+9~, EN+14, EN+16~, EN+26*, EN+29~, EN+33, HELPR+6~, HELPR+10~, DESC+10~, DESC+14~ , PRNTONLY+3~, PRNTONLY+6, PRNTONLY+17~, PRNTONLY+21
>> ZTSAVE("GMRCCTRL"	PRNTONLY+28*
>> ZTSAVE("GMRCIS"	PRNTONLY+29*
>> ZTSAVE("GMRCSTAT"	PRNTONLY+30*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCIR

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: