Routine: GMRCYP31

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$CJ,$$REPEAT)^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR
Consult Request Tracking	1	BLDALN^GMRCSLM4

Entry Points

Name	Comments	DBIA/ICR reference
ACTS(CSLT)	;loop activities and see if there is a remote FWD or SF update
EXIT	; clean up
POST1	; START POST-INIT
PRINT	; loop the ^TMP global and write records ; ask device and queue if needed ;
POST	;
HDR(PAGE,CSLT)	;print a new header ; PAGE = next page number ; CSLT = consult ien working on

External References

Name	Field # of Occurrence
^%ZIS	POST+3
HOME^%ZIS	POST+9, PRINT+8, PRINT+55
^%ZISC	PRINT+8, PRINT+55
^%ZTLOAD	POST+9
$$GET1^DIQ	PRINT+24, PRINT+25, PRINT+26
^DIR	PRINT+10, HDR+6
BLDALN^GMRCSLM4	PRINT+45
$$CJ^XLFSTR	PRINT+32, PRINT+33, HDR+14
$$REPEAT^XLFSTR	PRINT+12, PRINT+16, PRINT+28, PRINT+38, HDR+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report should be sent to a printer",! Line Location: POST+2
Function Call: WRITE	Prompt: !,"REPORT TASKED TO PRINT!" Line Location: POST+10
Function Call: WRITE	Prompt: !,"No records to report" Line Location: PRINT+9
Function Call: WRITE	Prompt: !,"No cleanup or modification should be made to Inter-facility consults that are " Line Location: PRINT+13
Function Call: WRITE	Prompt: !,"identified with extraneous comments at this time. Patch GMRC332 will outline" Line Location: PRINT+14
Function Call: WRITE	Prompt: !,"the processes that should be utilized to properly accomplish these corrections." Line Location: PRINT+15
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79) Line Location: PRINT+16
Function Call: WRITE	Prompt: !! Line Location: PRINT+17
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",78) Line Location: PRINT+28
Function Call: WRITE	Prompt: !,"Consult #: ",GMRCDA Line Location: PRINT+29
Function Call: WRITE	Prompt: !,PTNM,?50,PTSSN Line Location: PRINT+30
Function Call: WRITE	Prompt: !,"Receiving Site: ",REMSIT,?50,"Remote Consult #: ",REMNUM Line Location: PRINT+31
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Activities for Review",78) Line Location: PRINT+32
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("*********************",78) Line Location: PRINT+33
Function Call: WRITE	Prompt: !,"Facility" Line Location: PRINT+35
Function Call: WRITE	Prompt: !," Activity",?25,"Date/Time/Zone",$E(TAB,1,6) Line Location: PRINT+36
Function Call: WRITE	Prompt: "Responsible Person",$E(TAB,1,2),"Entered By" Line Location: PRINT+37
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: PRINT+38
Function Call: WRITE	Prompt: !,?11,"Act. #:",ACT Line Location: PRINT+44
Function Call: WRITE	Prompt: !,$G(^TMP("GMRCR",$J,"DT",I,0)) Line Location: PRINT+50
Function Call: WRITE	Prompt: ! Line Location: PRINT+52
Function Call: WRITE	Prompt: @IOF Line Location: HDR+8
Function Call: WRITE	Prompt: !,"GMRC331 Post-Install",?69,"Page: ",PAGE Line Location: HDR+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: HDR+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(TEXT,80) Line Location: HDR+14
Function Call: WRITE	Prompt: ! Line Location: HDR+15
Routine Call	%ZIS Line Location: POST+9 PRINT+8 PRINT+55
Routine Call	DIR Line Location: PRINT+10 HDR+6
Routine Call	%ZIS Line Location: POST+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	POST1+3, POST1+5, POST1+6, POST1+7, ACTS+4, ACTS+6, ACTS+8, ACTS+9, ACTS+11, PRINT+25 , PRINT+26, PRINT+27
^TMP("GMRCR"	PRINT+47, PRINT+50, PRINT+51!
^TMP("GMRCYP31"	POST1+9, POST1+10, ACTS+12, PRINT+8, PRINT+19, PRINT+21, PRINT+40, EXIT+1!

Label References

Name	Line Occurrences
ACTS	POST1+8
EXIT	PRINT+56
HDR	PRINT+7, PRINT+22, PRINT+34, PRINT+42, PRINT+48
POST1	POST+12
PRINT	POST1+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	POST+1~, POST+3*
ACT	PRINT+4~, PRINT+39, PRINT+40, PRINT+43, PRINT+44, PRINT+45, PRINT+49
ACTV	ACTS+2~, ACTS+3, ACTS+4, ACTS+6, ACTS+8, ACTS+9, ACTS+12
ACTYPE	ACTS+5~, ACTS+6*, ACTS+7
CSLT	ACTS~, ACTS+4, ACTS+6, ACTS+8, ACTS+9, ACTS+11, ACTS+12, HDR~, HDR+11, HDR+13
DIR	PRINT+10~, HDR+5~
DIR(0	PRINT+10, HDR+6
DIROUT	HDR+5~
DIRUT	HDR+5~, HDR+7
DTOUT	HDR+5~
DUOUT	HDR+5~
GMRCCT	PRINT+4~, PRINT+41~*
GMRCDA	PRINT+4~, PRINT+20, PRINT+21, PRINT+22, PRINT+24, PRINT+25, PRINT+26, PRINT+27, PRINT+29, PRINT+34 , PRINT+40, PRINT+42, PRINT+43, PRINT+45, PRINT+48, PRINT+49
GMRCISIT	POST1+1~, POST1+2, POST1+3, POST1+5, POST1+6, POST1+9, POST1+10
GMRCO	POST1+1~, POST1+6*, POST1+7, POST1+8, POST1+9, POST1+10
GMRCPG	PRINT+4~, PRINT+6*, PRINT+7, PRINT+22, PRINT+28, PRINT+34, PRINT+42, PRINT+48
GMRCQT	POST+1~
GMRCRO	POST1+1~, POST1+4, POST1+5, POST1+6
GMRCSIT	PRINT+4~, PRINT+18, PRINT+19, PRINT+21, PRINT+40
I	PRINT+46~, PRINT+47, PRINT+49*, PRINT+50
IO	PRINT+5
IO("Q"	POST+5, POST+9!
IOF	HDR+8
ION	POST+7
IOSL	PRINT+22, PRINT+34, PRINT+42, PRINT+48
IOST	PRINT+10, HDR+4
PAGE	HDR~, HDR+4, HDR+7, HDR+9, HDR+16
POP	POST+1~, POST+4
PTNM	PRINT+23~, PRINT+24*, PRINT+30
PTSSN	PRINT+23~, PRINT+25*, PRINT+30
REMNUM	PRINT+4~, PRINT+27*, PRINT+31
REMSIT	PRINT+23~, PRINT+26*, PRINT+31
SITE	ACTS+10~, ACTS+11*, ACTS+12
TAB	PRINT+4~, PRINT+12*, PRINT+36, PRINT+37
TEXT	HDR+12~, HDR+13*, HDR+14
U	POST1+7, ACTS+6, ACTS+11, PRINT+25, PRINT+26, PRINT+27
ZTDESC	POST+6~, POST+8*
ZTDTH	POST+6~, POST+7*
ZTIO	POST+6~, POST+7*
ZTRTN	POST+6~, POST+7*
ZTSAVE	POST+6~

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCYP31

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: