Routine: GMRCIAIT

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
VA Fileman	2	$$GET1^DIQ ^DIR

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR

$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Consult Request Tracking	1	GMRC IFC INC RPT

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
NOREC	; print the no records found message
PRTLOG(LOG,CSLT,ACTVT)	;print the formatted entry
EN	; get the device to use
RPT	; sort logic
HDR(PAGE)	; print the page hdr and increment page number

Name	Field # of Occurrence
^%ZIS	EN+2
HOME^%ZIS	EN+3, EN+4, EN+12
^%ZISC	EN+4, EN+12
^%ZTLOAD	EN+8
$$GET1^DIQ	PRTLOG+11, PRTLOG+14, PRTLOG+15, PRTLOG+16, PRTLOG+17, PRTLOG+18, PRTLOG+19
^DIR	RPT+11, RPT+22
$$FMTE^XLFDT	PRTLOG+10, PRTLOG+17, HDR+4
$$NOW^XLFDT	HDR+4
$$REPEAT^XLFSTR	HDR+5

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Queued to Print, Task # ",ZTSK Line Location: EN+9
Function Call: WRITE	Prompt: !,"Sorry, Try again Later" Line Location: EN+10
Function Call: WRITE	Prompt: !!,?11,"CONSULT/REQUEST #: ",GMRCDA Line Location: RPT+14
Function Call: WRITE	Prompt: !!,?2,"Date/Time last transmitted: ",GMRCDT Line Location: PRTLOG+20
Function Call: WRITE	Prompt: ?51,"Trans. attempts: ",GMRCTRAN Line Location: PRTLOG+21
Function Call: WRITE	Prompt: !,?2,"Facility: ",GMRCFAC,?51,"Message: ",GMRCMSG Line Location: PRTLOG+22
Function Call: WRITE	Prompt: !,?2,"Consult #: ",CSLT,?51,"Activity: ",ACTVT Line Location: PRTLOG+23
Function Call: WRITE	Prompt: !,?2,"Patient name: ",GMRCPT,?51,"SSN: ",GMRCSSN Line Location: PRTLOG+24
Function Call: WRITE	Prompt: !,?2,"Ordered Service: ",$E(GMRCSER,1,31),?51,"Req. date: ",GMRCDTR Line Location: PRTLOG+25
Function Call: WRITE	Prompt: !,?2,"Error: ",GMRCERR Line Location: PRTLOG+26
Function Call: WRITE	Prompt: !,?5,"No incomplete IFC Transactions to report",! Line Location: NOREC+1
Function Call: WRITE	Prompt: @IOF Line Location: HDR+2
Function Call: WRITE	Prompt: "Incomplete IFC Transaction Report" Line Location: HDR+3
Function Call: WRITE	Prompt: ?44,$$FMTE^XLFDT($$NOW^XLFDT),?69,"Page: ",PAGE Line Location: HDR+4
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: HDR+5
Routine Call	%ZIS Line Location: EN+3 EN+4 EN+12
Routine Call	DIR Line Location: RPT+11 RPT+22
Routine Call	%ZIS Line Location: EN+2

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.6 - [#123.6]	RPT+5, RPT+7, RPT+17, RPT+18, PRTLOG+9

Name	Field # of Occurrence
%ZIS	EN+1~, EN+2*
ACTVT	PRTLOG~, PRTLOG+23
CSLT	PRTLOG~, PRTLOG+15, PRTLOG+16, PRTLOG+17, PRTLOG+23
DIR	RPT+9~, RPT+20~
DIR(0	RPT+11, RPT+22
DIROUT	RPT+9~, RPT+20~
DIRUT	RPT+9~, RPT+12, RPT+20~, RPT+23
DTOUT	RPT+9~, RPT+20~
DUOUT	RPT+9~, RPT+20~
GMRCACT	RPT+15~, RPT+16, RPT+17, RPT+18, RPT+25
GMRCDA	RPT+3~, RPT+4, RPT+5, RPT+7, RPT+14, RPT+17, RPT+18, RPT+25
GMRCDT	PRTLOG+7~, PRTLOG+10*, PRTLOG+20
GMRCDTR	PRTLOG+8~, PRTLOG+17*, PRTLOG+25
GMRCERR	PRTLOG+7~, PRTLOG+14*, PRTLOG+26
GMRCFAC	PRTLOG+8~, PRTLOG+11*, PRTLOG+22
GMRCLOG	RPT+15~, RPT+18*, RPT+25
GMRCLOG0	PRTLOG+8~, PRTLOG+9*, PRTLOG+10, PRTLOG+11, PRTLOG+12, PRTLOG+13
GMRCMSG	PRTLOG+7~, PRTLOG+12*, PRTLOG+22
GMRCPAGE	RPT+3~, RPT+4*, RPT+5, RPT+6, RPT+13, RPT+24
GMRCPT	PRTLOG+7~, PRTLOG+16, PRTLOG+18, PRTLOG+19, PRTLOG+24
GMRCQT	RPT+3~, RPT+7, RPT+8, RPT+12, RPT+17, RPT+19, RPT+23
GMRCSER	PRTLOG+8~, PRTLOG+15*, PRTLOG+25
GMRCSSN	PRTLOG+7~, PRTLOG+18*, PRTLOG+24
GMRCTRAN	PRTLOG+8~, PRTLOG+13*, PRTLOG+21
IO	RPT+2
IO("Q"	EN+4
IOF	HDR+2
ION	EN+7
IOSL	RPT+8, RPT+19
IOST	RPT+11, RPT+22
LOG	PRTLOG~, PRTLOG+9, PRTLOG+14
PAGE	HDR~, HDR+4, HDR+6*
POP	EN+1~, EN+3
U	PRTLOG+10, PRTLOG+11, PRTLOG+12, PRTLOG+13
ZTDESC	EN+5~, EN+6*
ZTDTH	EN+5~, EN+7*
ZTIO	EN+5~, EN+7*
>> ZTQUEUED	RPT+1
>> ZTREQ	RPT+1*
ZTRTN	EN+5~, EN+6*
ZTSK	EN+5~, EN+9

Information