Routine: GMRCICMT

Information

GMRCICMT ;SLC/JFR - IFC Possible Erroneous Comments Report; Jan 19,2024@14:05

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$CJ,$$REPEAT)^XLFSTR
VA FileMan	2	^%DT $$GET1^DIQ
Consult Request Tracking	1	REGDTM^GMRCU

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 3

Package	Total	Caller Graph
Consult Request Tracking	1	GMRC IFC ERR COMM RPT 1
Electronic Health Modernization	1	EHM-00075
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Main
BEGDT	;
MAKERPT(GMBEG)	;
GETIFCS	; Get IFCs
ACTS	; Get IFC activities
RPTACT	;
RPTCSLT	;
RPTCMTS	;
NOREC	; Print the no records found message
HDR(PAGE)	; Print the page hdr and increment page number

External References

Name	Field # of Occurrence
^%DT	BEGDT+9
^%ZIS	EN+7
HOME^%ZIS	EN+8, EN+9, EN+18
^%ZISC	EN+9, EN+18
^%ZTLOAD	EN+13
$$GET1^DIQ	RPTACT+15, RPTCSLT+4, RPTCSLT+5, RPTCSLT+6
REGDTM^GMRCU	RPTACT+4, RPTCSLT+25
$$FMTE^XLFDT	BEGDT+12, HDR+5
$$NOW^XLFDT	HDR+5
$$CJ^XLFSTR	MAKERPT+22, NOREC+1, HDR+9
$$REPEAT^XLFSTR	MAKERPT+6, RPTACT+2, RPTCSLT+10, RPTCSLT+11, RPTCSLT+16, RPTCSLT+22, RPTCSLT+23, RPTCMTS+7, HDR+6, HDR+10 , HDR+13, HDR+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Queued to Print, Task # ",ZTSK Line Location: EN+14
Function Call: WRITE	Prompt: !,"Sorry, Try again Later" Line Location: EN+15
Function Call: WRITE	Prompt: @IOF Line Location: BEGDT+3
Function Call: WRITE	Prompt: !!,"Enter beginning date for the IFC selection:",! Line Location: BEGDT+4
Function Call: WRITE	Prompt: @IOF Line Location: BEGDT+13
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("End of Report",80),!! Line Location: MAKERPT+22
Function Call: WRITE	Prompt: !,"Possible Erroneous Comment: "_$TR($J(ACTCNT,10)," ")_"/"_$TR($J(TOTCNT,10)," ") Line Location: RPTCSLT+3
Function Call: WRITE	Prompt: !," " Line Location: RPTCSLT+8
Function Call: WRITE	Prompt: !,"Consult #: ",GMRCO Line Location: RPTCSLT+9
Function Call: WRITE	Prompt: !,PTNM,$$REPEAT^XLFSTR(" ",51-$L(PTNM)),PTSSN Line Location: RPTCSLT+10
Function Call: WRITE	Prompt: !,REMSIT,$$REPEAT^XLFSTR(" ",51-$L(REMSIT)),REMNUM Line Location: RPTCSLT+11
Function Call: WRITE	Prompt: !,GMRCX2,$$REPEAT^XLFSTR(" ",51-$L(GMRCX2)),GMRCX Line Location: RPTCSLT+16
Function Call: WRITE	Prompt: !,"TIU Document #: ",GMRCX Line Location: RPTCSLT+19
Function Call: WRITE	Prompt: !," " Line Location: RPTCSLT+20
Function Call: WRITE	Prompt: !,"Activity Date/Time File Entry Date/Time Service Name" Line Location: RPTCSLT+21
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",79) Line Location: RPTCSLT+22
Function Call: WRITE	Prompt: !,GMRCX2_$E(TAB,1,21-$L(GMRCX2))_GMRCODT_$E(TAB,1,22-$L(GMRCODT))_GMRCNM Line Location: RPTCSLT+27
Function Call: WRITE	Prompt: !," " Line Location: RPTCSLT+28
Function Call: WRITE	Prompt: !,GMRCLINE Line Location: RPTCMTS+5
Function Call: WRITE	Prompt: !," " Line Location: RPTCMTS+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79) Line Location: RPTCMTS+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("No IFC possible erroneous comments to report",80),! Line Location: NOREC+1
Function Call: WRITE	Prompt: $C(12) Line Location: HDR+3
Function Call: WRITE	Prompt: !,"IFC Possible Erroneous Comments Report" Line Location: HDR+4
Function Call: WRITE	Prompt: ?44,$$FMTE^XLFDT($$NOW^XLFDT),?69,"Page: ",PAGE Line Location: HDR+5
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",78) Line Location: HDR+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(GMRCX,80),! Line Location: HDR+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79) Line Location: HDR+10
Function Call: WRITE	Prompt: !,"No automated modification will be made to inter-facility consults that are " Line Location: HDR+11
Function Call: WRITE	Prompt: !,"identified with possible erroneous comments at this time." Line Location: HDR+12
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("*",79),! Line Location: HDR+13
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",79) Line Location: HDR+14
Routine Call	%ZIS Line Location: EN+7
Routine Call	%ZIS Line Location: EN+8 EN+9 EN+18

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]	GETIFCS+3, GETIFCS+5, GETIFCS+6, GETIFCS+7, ACTS+3, ACTS+6, ACTS+9, ACTS+12, ACTS+13, ACTS+14 , RPTACT+3, RPTACT+6, RPTACT+8, RPTACT+11, RPTACT+12, RPTACT+13, RPTACT+14, RPTCSLT+5, RPTCSLT+6, RPTCSLT+7 , RPTCSLT+17, RPTCSLT+18, RPTCMTS+2, RPTCMTS+3, RPTCMTS+4
^GMR(123.1 - [#123.1]	RPTCSLT+13
^GMR(123.5 - [#123.5]	RPTACT+7
^TMP("GMRCICMT"	MAKERPT+1!, MAKERPT+3, MAKERPT+11, MAKERPT+13, MAKERPT+15, MAKERPT+17, MAKERPT+23!, ACTS+17, ACTS+21

Label References

Name	Line Occurrences
ACTS	GETIFCS+7
BEGDT	EN+6
GETIFCS	MAKERPT+2
HDR	MAKERPT+11, RPTCSLT+1
MAKERPT	EN+17
NOREC	MAKERPT+11
RPTACT	MAKERPT+18
RPTCMTS	RPTACT+18
RPTCSLT	RPTACT+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	BEGDT+1~, BEGDT+5!, BEGDT+6*
%DT("A"	BEGDT+8*
%DT("B"	BEGDT+7, BEGDT+12
%ZIS	EN+5~, EN+7*
ACTCNT	EN+4~, MAKERPT+7, GETIFCS+1, RPTCSLT+1, RPTCSLT+2*, RPTCSLT+3
ACTTYPE	EN+4~, ACTS+6*, ACTS+7
ANS	EN+3~, MAKERPT+7*
CMTIDX	ACTS+1~, ACTS+2, ACTS+13, ACTS+14, ACTS+15
DASHES	EN+1~, RPTCSLT+23*
ERRCMT	ACTS+1~, ACTS+2, ACTS+14, ACTS+16
GEXIT	EN+2~, EN+5~, BEGDT+2, BEGDT+10
GIDX	EN+2~, EN+4~, GETIFCS+1, ACTS+4
GMBEG	EN+2~, EN+11, EN+17, BEGDT+2, BEGDT+9, BEGDT+11, BEGDT+12, MAKERPT~, MAKERPT+11*, ACTS+10
GMRCACT	EN+2~, ACTS+2, ACTS+3, ACTS+6, ACTS+9, ACTS+13, ACTS+14, ACTS+17, RPTACT+1*
GMRCCMT	EN+3~, RPTCMTS+1, RPTCMTS+2, RPTCMTS+3, RPTCMTS+4
GMRCDA	EN+3~, MAKERPT+16, MAKERPT+17, RPTACT+8, RPTACT+11, RPTACT+12, RPTACT+13, RPTCSLT+15, RPTCMTS+2, RPTCMTS+3 , RPTCMTS+4
GMRCDA0	EN+3~, RPTACT+8*, RPTACT+9, RPTCSLT+25
GMRCDA2	EN+3~, RPTACT+11*, RPTCSLT+26
GMRCDA3	EN+3~, RPTACT+12*
GMRCISIT	EN+2~, GETIFCS+1, GETIFCS+2, GETIFCS+3, GETIFCS+5, GETIFCS+6, ACTS+17, RPTACT+1, RPTACT+14, RPTACT+15
GMRCLINE	EN+3~, RPTACT+1, RPTCMTS+1, RPTCMTS+4*, RPTCMTS+5
GMRCNM	EN+5~, RPTACT+7*, RPTCSLT+27
GMRCO	EN+2~, MAKERPT+14, MAKERPT+15, MAKERPT+17, GETIFCS+1, GETIFCS+6, GETIFCS+7, ACTS+3, ACTS+6, ACTS+9 , ACTS+12, ACTS+13, ACTS+14, ACTS+17, RPTACT+3, RPTACT+6, RPTACT+8, RPTACT+11, RPTACT+12, RPTACT+13 , RPTACT+14, RPTCSLT+4, RPTCSLT+5, RPTCSLT+6, RPTCSLT+7, RPTCSLT+9, RPTCSLT+17, RPTCSLT+18, RPTCMTS+2, RPTCMTS+3 , RPTCMTS+4
GMRCODT	EN+4~, RPTACT+3, RPTACT+4, RPTACT+5, RPTCSLT+27
GMRCPG	EN+3~, MAKERPT+7*, MAKERPT+11, RPTCSLT+1
GMRCRO	EN+2~, GETIFCS+1, GETIFCS+4, GETIFCS+5*, GETIFCS+6
GMRCSITE	EN+2~, MAKERPT+12, MAKERPT+13, MAKERPT+15, MAKERPT+17
GMRCTYPE	EN+3~, RPTACT+9*, RPTACT+10, RPTCSLT+13, RPTCSLT+14
GMRCX	EN+2~, ACTS+9, ACTS+10, RPTACT+1, RPTCSLT+13, RPTCSLT+14, RPTCSLT+16, RPTCSLT+17, RPTCSLT+18, RPTCSLT+19 , HDR+8*, HDR+9
GMRCX2	EN+2~, RPTACT+1, RPTCSLT+15, RPTCSLT+16, RPTCSLT+26*, RPTCSLT+27
GMRCX3	EN+2~
I	ACTS+1~, ACTS+2, ACTS+14
IO	EN+5~, MAKERPT+5
IO("Q"	EN+9, EN+16
IOF	BEGDT+3, BEGDT+13
ION	EN+12
NMIDX	EN+5~, RPTACT+6*, RPTACT+7
PAGE	HDR~, HDR+2*, HDR+3, HDR+5, HDR+7
POP	EN+5~, EN+8
PTNM	EN+4~, RPTCSLT+4*, RPTCSLT+10
PTSSN	EN+4~, RPTCSLT+5*, RPTCSLT+10
REMNUM	EN+3~, MAKERPT+7, RPTCSLT+7, RPTCSLT+11
REMSIT	EN+4~, RPTCSLT+6*, RPTCSLT+11
TAB	EN+1~, MAKERPT+6, RPTACT+2, RPTCSLT+26, RPTCSLT+27
TOTCNT	EN+4~, MAKERPT+3, MAKERPT+11, GETIFCS+1, ACTS+17, ACTS+21, RPTCSLT+3, HDR+8
U	GETIFCS+7, ACTS+6, ACTS+9, ACTS+13, RPTACT+6, RPTACT+7, RPTACT+14, RPTCSLT+5, RPTCSLT+6, RPTCSLT+7
X	BEGDT+1~, RPTACT+4, RPTACT+5, RPTCSLT+25, RPTCSLT+26
Y	BEGDT+1~, BEGDT+9, BEGDT+10
ZTDESC	EN+10~, EN+11*
ZTDTH	EN+10~, EN+12*
ZTIO	EN+10~, EN+12*
ZTQUEUED	EN+4~, MAKERPT+4
ZTREQ	EN+4~, MAKERPT+4*
ZTRTN	EN+10~, EN+11*
ZTSK	EN+10~, EN+14

Customize PDF page

Package: Consult Request Tracking