Routine: GMRCP5

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC (,KILL)^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
Consult Request Tracking	4	SEL^GMRCA2 EXAC^GMRCADC PRNT^GMRCP5A AGAIN^GMRCSLMV
Registration	1	FULL^VALM1
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Consult Request Tracking	3	GMRC PRINT TEST PAGE GMRCA1 GMRCP513
Order Entry Results Reporting	2	ORPR09 ORQQCN2
Scheduling	1	SDCNSLT

Entry Points

Name	Comments	DBIA/ICR reference
COPY(X)
CCOPY()	; Determine if this is a "Chart" copy or a "Working" copy
TIUEN(GMRCIEN)	;Entry point for TIU to print 513
EN(GMRCIFN,GMRCCPY,GMRCDEV,GMRCSTAT)	;Entry point into routine -GMRCIFN=IFN from file 123
SETUP	;
SETPRNT	;
QUEUE(GMRCIFN,GMRCCPY,GMRCDEV)	;
DEVICE()	;Ask output device / set up output device print parameters
SEL	;Select the consult/request to print
GUI(ROOT,GMRCIFN)	;Entry point into routine for the GUI

External References

Name	Field # of Occurrence
^%ZIS	DEVICE+2, SETUP+5
^%ZISC	QUEUE+13, SETUP+16, SETPRNT+36
^%ZTLOAD	QUEUE+12, SETUP+16
KILL^%ZTLOAD	SETPRNT+38
$$GET1^DIQ	SETPRNT+9
SEL^GMRCA2	SEL+5
EXAC^GMRCADC	SEL+9
PRNT^GMRCP5A	TIUEN+7, GUI+11, EN+24
AGAIN^GMRCSLMV	SEL+3
FULL^VALM1	EN+8
$$FMTE^XLFDT	SETPRNT+10
$$NOW^XLFDT	SETPRNT+10
$$REPEAT^XLFSTR	SETPRNT+8, SETPRNT+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"No Orders To Print!",! Line Location: SEL+2
Function Call: WRITE	Prompt: $C(7),!,"Select A Number In The Range 1 To "_BLK Line Location: SEL+6
Function Call: WRITE	Prompt: !!,"Print consults printer setup page.",! Line Location: SETUP+4
Function Call: WRITE	Prompt: !!,"Queued as task #",ZTSK Line Location: SETUP+18
Function Call: WRITE	Prompt: !!," not queued." Line Location: SETUP+19
Function Call: WRITE	Prompt: !,LINE Line Location: SETPRNT+35
Routine Call	%ZIS Line Location: DEVICE+2 SETUP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	CCOPY+7
^TMP("GMRC"	TIUEN+4!, GUI+8!, GUI+13, EN+6!
^TMP("GMRCR"	TIUEN+5!, GUI+9!, EN+7!, SEL+2, SEL+4, SEL+8

Label References

Name	Line Occurrences
$$CCOPY	EN+15
$$COPY	CCOPY+13, CCOPY+25, CCOPY+26, CCOPY+31, CCOPY+32
$$DEVICE	EN+16
$$QUEUE	EN+11, EN+19
SEL	SEL+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%IS	DEVICE+1~, SETUP+2~
%ZIS	DEVICE+1~, DEVICE+2, SETUP+2~, SETUP+5
>> BLK	SEL+3, SEL+4, SEL+6
DIRUOUT	SEL+1!, SEL+5
DTIME	CCOPY+14
DTOUT	SEL+1!, SEL+5
DUZ	SETPRNT+9
>> GMRC("NMBR"	SEL+3
GMRCCPY	GUI+4~, GUI+7, GUI+11, EN~, EN+11, EN+15, EN+19, EN+24, QUEUE~, QUEUE+11
GMRCDEF	CCOPY+2~, CCOPY+9*, CCOPY+13, CCOPY+25, CCOPY+26, CCOPY+31, CCOPY+32
GMRCDEV	EN~, EN+10, EN+11, QUEUE~, QUEUE+7, QUEUE+13
GMRCIEN	TIUEN~, TIUEN+7
GMRCIFN	GUI~, GUI+11, EN~, EN+11, EN+19, EN+24, QUEUE~, QUEUE+11, CCOPY+7
>> GMRCMSG	SEL+9*
>> GMRCND	SEL+8*, SEL+9
GMRCPLEN	TIUEN+2~, GUI+4~, GUI+6*, GUI+11, EN+3~
GMRCQUT	SEL+1!, SEL+2, SEL+5, SEL+7, SEL+9
GMRCSEL	SEL+1!, SEL+3!, SEL+4, SEL+5, SEL+6, SEL+7, SEL+8
GMRCSTAT	EN~, EN+5, EN+12, EN+13, EN+20, EN+21, EN+22, CCOPY+2~, CCOPY+7, CCOPY+8* , CCOPY+9
GMRCTASK	TIUEN+2~, EN+3~, EN+11, EN+12, EN+19, EN+20
GMRCX	TIUEN+2~, TIUEN+4, TIUEN+5, GUI+4~, GUI+8, GUI+9, EN+6, EN+7, CCOPY+2~, CCOPY+11 , CCOPY+14, CCOPY+15, CCOPY+17, CCOPY+18, CCOPY+19, CCOPY+21, CCOPY+23, CCOPY+31, CCOPY+32, CCOPY+33
IO	DEVICE+3, SETPRNT+3
IO("Q"	EN+18, SETUP+7
IO(0	SETPRNT+36
>> IOBM	EN+8
IOF	SETPRNT+4
IOM	SETPRNT+16
ION	QUEUE+8, SETUP+13, SETPRNT+13, SETPRNT+29
IOP	SETUP+2~, SETUP+5!
IOSL	SETPRNT+15, SETPRNT+21, SETPRNT+23, SETPRNT+25
IOST	SETPRNT+14, SETPRNT+32
>> IOSTBM	EN+8
>> IOTM	EN+8
LINE	SETUP+2~, SETPRNT+2~, SETPRNT+35*
POP	DEVICE+1~, DEVICE+2*, DEVICE+3, SETUP+2~, SETUP+5
ROOT	GUI~, GUI+13*
U	EN+15, EN+22, CCOPY+8, CCOPY+14, CCOPY+15
X	COPY~
ZTCPU	QUEUE+2~, SETUP+9~
ZTDESC	QUEUE+2~, QUEUE+5, SETUP+9~, SETUP+12
ZTDTH	QUEUE+2~, QUEUE+10, SETUP+9~, SETUP+13
ZTIO	QUEUE+2~, QUEUE+7, QUEUE+8, SETUP+9~, SETUP+13*
ZTPAR	QUEUE+2~, SETUP+9~
ZTPRE	QUEUE+2~, SETUP+9~
ZTPRI	QUEUE+2~, SETUP+9~
>> ZTQUEUED	SETPRNT+1
>> ZTREQ	SETPRNT+1*
ZTRTN	QUEUE+2~, QUEUE+11, SETUP+9~, SETUP+13
ZTSAVE	QUEUE+3~, SETUP+10~
ZTSAVE("DUZ"	SETUP+14*
ZTSK	QUEUE+3~, QUEUE+15, SETUP+10~, SETUP+18, SETPRNT+38
ZTUCI	QUEUE+3~, SETUP+10~

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCP5

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: