Routine: GMRCIEV1

Package	Total	Call Graph
Consult Request Tracking	5	($$CNVTD,$$ISCERNER,$$LOC,$$ROUTE,NOMPI,NW,TRIGR)^GMRCIEVT SETTCH2^GMRCIMSG ($$OBXSF,$$OBXTZ,$$ORC,OBXWP)^GMRCISEG ($$OBR,$$OBXPD)^GMRCISG1 ($$ADD2OBR,$$ADD2PID,LOGMSG)^GMRCIUTL
Health Level Seven	2	INIT^HLFNC2 GENERATE^HLMA
Kernel	2	$$FMTE^XLFDT ($$TITLE,$$UP)^XLFSTR
Registration	2	$$EN^VAFCPID $$SITE^VASITE
Master Patient Index VistA	1	($$GETICN,$$IFLOCAL)^MPIF001
VA FileMan	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Consult Request Tracking	1	GMRCIEVT

Name	Comments	DBIA/ICR reference
RESUB(GMRCDA,GMRCACT)	;build HL7 msg with edits from resubit
SF(GMRCDA,GMRCACT)	;send SIG FINDING update
FWD(GMRCDA,GMRCACT)	;bld HL7 msg upon FWD action
FWD2IFC(GMRCDA,GMRCACT)	;pkg up and send request upon fwd'ing into IFC serv
EXIST201(GMRCDA,GMRCACT)	;
CRNRNTE(IEN,GMRCNA)	;format an NTE seg with all comments to go to Cerner
CRNROBX(IEN,GMRCNA)	;If Add Comment going to Cerner, send ALL comments
LOC(GMRCLOC,GMRCIENS)	;DETERMINE LOCATION
SITE	;SET LOCAL SITE

External References

Name	Field # of Occurrence
$$GET1^DIQ	EXIST201+2, CRNROBX+35
GETS^DIQ	CRNRNTE+16, CRNROBX+21
$$CNVTD^GMRCIEVT	RESUB+24, RESUB+38, SF+24, SF+36, FWD+24, FWD+37
$$ISCERNER^GMRCIEVT	RESUB+7, SF+7, SF+47, FWD+7, FWD+46, FWD2IFC+5, FWD2IFC+11, FWD2IFC+24, FWD2IFC+31
$$LOC^GMRCIEVT	CRNROBX+33
$$ROUTE^GMRCIEVT	RESUB+68, SF+58, FWD+59
NOMPI^GMRCIEVT	RESUB+15, SF+15, FWD+15
NW^GMRCIEVT	FWD2IFC+6
TRIGR^GMRCIEVT	FWD2IFC+20
SETTCH2^GMRCIMSG	CRNRNTE+5
$$OBXSF^GMRCISEG	SF+56, FWD+57
$$OBXTZ^GMRCISEG	RESUB+67, SF+57, FWD+58
$$ORC^GMRCISEG	RESUB+30, SF+31, FWD+30
OBXWP^GMRCISEG	RESUB+44, RESUB+60, SF+49, FWD+50, CRNROBX+30
$$OBR^GMRCISG1	RESUB+34, SF+37, FWD+33
$$OBXPD^GMRCISG1	RESUB+53
$$ADD2OBR^GMRCIUTL	RESUB+38, SF+38, FWD+37
$$ADD2PID^GMRCIUTL	RESUB+24, SF+24, FWD+24
LOGMSG^GMRCIUTL	RESUB+7, RESUB+14, RESUB+69, RESUB+73, SF+7, SF+14, SF+59, SF+64, FWD+7, FWD+14 , FWD+60, FWD+65, FWD2IFC+14
INIT^HLFNC2	RESUB+12, SF+12, FWD+12
GENERATE^HLMA	RESUB+71, SF+62, FWD+63
$$GETICN^MPIF001	RESUB+18, SF+18, FWD+18
$$IFLOCAL^MPIF001	RESUB+19, SF+19, FWD+19
$$EN^VAFCPID	RESUB+20, SF+20, FWD+20
$$SITE^VASITE	CRNRNTE+6, CRNROBX+10, SITE+1
$$FMTE^XLFDT	CRNRNTE+17, CRNROBX+22
$$TITLE^XLFSTR	CRNRNTE+11, CRNRNTE+13, CRNROBX+12, CRNROBX+14
$$UP^XLFSTR	CRNRNTE+17, CRNROBX+22

FileNo	Call Tags
123.02	GETS^DIQ
^GMR(123.6 - [#123.6]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CRNROBX+35, LOC+5
^GMR(123 - [#123]	RESUB+7, RESUB+16, RESUB+24, SF+7, SF+16, SF+24, SF+30, SF+45, SF+56, FWD+7 , FWD+16, FWD+24, FWD+47, FWD+57, FWD2IFC+5, FWD2IFC+19, FWD2IFC+26, CRNRNTE+15, CRNRNTE+19, CRNROBX+19 , CRNROBX+20, LOC+2, LOC+3
^GMR(123.1 - [#123.1]	CRNRNTE+11, CRNRNTE+13, CRNROBX+12, CRNROBX+14
^GMR(123.6 - [#123.6]	FWD2IFC+5, FWD2IFC+13, FWD2IFC+26, EXIST201+1
^TMP("GMRCCRNRCMT"	CRNROBX+16
^TMP("GMRCMT"	RESUB+59!, RESUB+60, RESUB+61, RESUB+62, RESUB+63, RESUB+65!, SF+46!, SF+48, SF+49, SF+50 , SF+51, SF+52, SF+54!, FWD+48!, FWD+49, FWD+50, FWD+51, FWD+52, FWD+53, FWD+55!
^TMP("GMRCRFR"	RESUB+43!, RESUB+44, RESUB+45, RESUB+47, RESUB+48, RESUB+50!
^TMP("HLS"	RESUB+11!, RESUB+20, RESUB+24, RESUB+30, RESUB+34, RESUB+38, RESUB+48, RESUB+54, RESUB+63, RESUB+67* , SF+11!, SF+20, SF+24, SF+31, SF+38, SF+52, SF+56, SF+57, FWD+11!, FWD+20 , FWD+24, FWD+30, FWD+38, FWD+53, FWD+57, FWD+58

Name	Line Occurrences
$$EXIST201	RESUB+69, SF+59, FWD+60
$$LOC	CRNRNTE+20
CRNROBX	SF+48, FWD+49
FWD	FWD2IFC+27, FWD2IFC+31
SITE	CRNRNTE+20, LOC+2

Name	Field # of Occurrence
^(	CRNRNTE+15, CRNRNTE+19, CRNROBX+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CMT	CRNRNTE+3~, CRNRNTE+4*
ERR	RESUB+72~, RESUB+73, SF+63~, SF+64, FWD+64~*, FWD+65
ERRCODE	FWD2IFC+12~, FWD2IFC+13, FWD2IFC+25~, FWD2IFC+26
GMRC773	RESUB+9~, RESUB+71, RESUB+72, RESUB+73, SF+9~, SF+62, SF+63, SF+64, FWD+9~, FWD+63 , FWD+64, FWD+65
GMRCACT	RESUB~, RESUB+7, RESUB+14, RESUB+15, RESUB+30, RESUB+34, RESUB+44, RESUB+60, RESUB+69, RESUB+73 , SF~, SF+7, SF+14, SF+15, SF+31, SF+45, SF+49, SF+59, SF+64, FWD~ , FWD+7, FWD+14, FWD+15, FWD+30, FWD+33, FWD+47, FWD+50, FWD+60, FWD+65, FWD2IFC~ , FWD2IFC+6, FWD2IFC+13, FWD2IFC+14, FWD2IFC+26, FWD2IFC+27, FWD2IFC+31, EXIST201~, EXIST201+1, CRNROBX+6~
GMRCACTD	CRNRNTE+3~, CRNRNTE+10, CRNRNTE+11, CRNRNTE+12, CRNRNTE+13, CRNROBX+6~, CRNROBX+11, CRNROBX+12, CRNROBX+13, CRNROBX+14
GMRCACTD(	CRNRNTE+11, CRNRNTE+13, CRNRNTE+15, CRNRNTE+18, CRNROBX+12, CRNROBX+14, CRNROBX+19, CRNROBX+20, CRNROBX+24, CRNROBX+28
GMRCACTN	FWD2IFC+4~, FWD2IFC+18, FWD2IFC+19, FWD2IFC+20
GMRCCRNR	SF+9~, SF+47, SF+48, SF+49, FWD+9~, FWD+46, FWD+47, FWD+49, FWD+50
GMRCDA	RESUB~, RESUB+7, RESUB+14, RESUB+15, RESUB+16, RESUB+24, RESUB+30, RESUB+34, RESUB+38, RESUB+44 , RESUB+53, RESUB+60, RESUB+68, RESUB+69, RESUB+73, SF~, SF+7, SF+14, SF+15, SF+16 , SF+24, SF+30, SF+31, SF+36, SF+37, SF+38, SF+45, SF+47, SF+48, SF+49 , SF+56, SF+58, SF+59, SF+64, FWD~, FWD+7, FWD+14, FWD+15, FWD+16, FWD+24 , FWD+30, FWD+33, FWD+37, FWD+46, FWD+47, FWD+49, FWD+50, FWD+57, FWD+59, FWD+60 , FWD+65, FWD2IFC~, FWD2IFC+5, FWD2IFC+6, FWD2IFC+11, FWD2IFC+13, FWD2IFC+14, FWD2IFC+19, FWD2IFC+20, FWD2IFC+24 , FWD2IFC+26, FWD2IFC+27, FWD2IFC+31, EXIST201~, EXIST201+1
GMRCDFN	RESUB+16~, RESUB+17, RESUB+18, RESUB+19, RESUB+20, RESUB+24, SF+16~, SF+17, SF+18, SF+19 , SF+20, SF+24, FWD+16~*, FWD+17, FWD+18, FWD+19, FWD+20, FWD+24
GMRCDT	CRNRNTE+3~, CRNRNTE+17, CRNRNTE+23, CRNROBX+6~, CRNROBX+22, CRNROBX+39
GMRCENBY	CRNRNTE+3~, CRNRNTE+21, CRNRNTE+22, CRNROBX+6~, CRNROBX+37, CRNROBX+38
GMRCIENS	CRNRNTE+3~, CRNRNTE+16, CRNRNTE+17, CRNRNTE+20, CRNRNTE+21, CRNROBX+6~, CRNROBX+21, CRNROBX+22, CRNROBX+33, CRNROBX+34 , CRNROBX+35, CRNROBX+37, LOC~, LOC+2, LOC+3
GMRCIQT	RESUB+9~, RESUB+15, RESUB+17, RESUB+18, RESUB+19, SF+9~, SF+15, SF+17, SF+18, SF+19 , FWD+9~, FWD+15, FWD+17, FWD+18, FWD+19*
GMRCL	CRNRNTE+3~, CRNRNTE+19, CRNROBX+6~, CRNROBX+31
GMRCLOC	CRNRNTE+3~, CRNRNTE+6, CRNRNTE+20, CRNROBX+6~, CRNROBX+10, CRNROBX+33, LOC~, LOC+2, SITE+1*
GMRCN	CRNRNTE+3~, CRNRNTE+15, CRNRNTE+16, CRNRNTE+19, CRNROBX+6~, CRNROBX+18, CRNROBX+19*, CRNROBX+20, CRNROBX+21, CRNROBX+30
GMRCNA	CRNRNTE~, CRNRNTE+18, CRNRNTE+19*, CRNRNTE+20, CRNRNTE+22, CRNRNTE+23, CRNRNTE+24, CRNRNTE+25, CRNROBX~, CRNROBX+23 , CRNROBX+24, CRNROBX+28, CRNROBX+31, CRNROBX+33, CRNROBX+36, CRNROBX+38, CRNROBX+39
GMRCO	CRNROBX+6~, CRNROBX+21!
GMRCO(	CRNROBX+22, CRNROBX+33, CRNROBX+34, CRNROBX+35, CRNROBX+37
GMRCOS	SF+9~, SF+30*, FWD+9~
GMRCOUT	CRNRNTE+3~, CRNRNTE+16!
GMRCOUT(	CRNRNTE+17, CRNRNTE+21
GMRCPCS	CRNRNTE+3~
GMRCPD	RESUB+9~, RESUB+53*, RESUB+54
GMRCSITE	CRNROBX+35~*
GMRCSTDA	CRNROBX+35~*
GMRCSTNM	CRNROBX+35~*, CRNROBX+36
GMRCT	CRNRNTE+3~, CRNRNTE+15, CRNRNTE+18, CRNRNTE+19, CRNRNTE+20, CRNRNTE+22, CRNRNTE+23, CRNRNTE+24, CRNRNTE+25, CRNROBX+6~ , CRNROBX+18, CRNROBX+23, CRNROBX+24, CRNROBX+28, CRNROBX+31, CRNROBX+33, CRNROBX+36, CRNROBX+38, CRNROBX+39*
GMRCTMP	CRNRNTE+3~, CRNROBX+6~, CRNROBX+16*, CRNROBX+30, CRNROBX+31, CRNROBX+40
GMRCX	CRNRNTE+3~, CRNRNTE+11, CRNRNTE+13, CRNRNTE+15, CRNRNTE+18, CRNRNTE+19, CRNROBX+6~, CRNROBX+12, CRNROBX+14, CRNROBX+19* , CRNROBX+20, CRNROBX+24, CRNROBX+28, CRNROBX+31*
HL	RESUB+9~, RESUB+12, RESUB+13, SF+9~, SF+12, SF+13, FWD+9~, FWD+12, FWD+13
HLL	RESUB+9~, SF+9~, FWD+9~
HLL("LINKS"	RESUB+68, RESUB+70, SF+58, SF+60, FWD+59*, FWD+61
>> HLP	RESUB+71, SF+62, FWD+63
>> HLP("SUBSCRIBER"	RESUB+70, SF+60, FWD+61*
I	RESUB+46~, RESUB+47, RESUB+48, RESUB+58~, RESUB+62, RESUB+63, SF+51~, SF+52, FWD+52~*, FWD+53
IEN	CRNRNTE~, CRNRNTE+15, CRNRNTE+16, CRNRNTE+19, CRNROBX~, CRNROBX+19, CRNROBX+20, CRNROBX+21, CRNROBX+30
IEN123P6	EXIST201+1~*, EXIST201+2
LOCNAME	CRNROBX+6~, CRNROBX+33, LOC+1~, LOC+3, LOC+4, LOC+5, LOC+6
MSGLOGDA	FWD2IFC+12~, FWD2IFC+13, FWD2IFC+25~, FWD2IFC+26
OBR	SF+9~, SF+37, SF+38, SF+43, FWD+9~, FWD+33, FWD+37, FWD+38, FWD+44
OK2SEND	FWD2IFC+12~, FWD2IFC+13, FWD2IFC+14, FWD2IFC+25~, FWD2IFC+26, FWD2IFC+27
PROSTHCS	SF+9~, SF+43, SF+48, SF+49, FWD+9~, FWD+44, FWD+49, FWD+50
SEG	RESUB+9~, RESUB+10, RESUB+20, RESUB+24, RESUB+26, RESUB+30, RESUB+31, RESUB+34, RESUB+38, RESUB+40 , RESUB+48, RESUB+49, RESUB+54, RESUB+55, RESUB+63, RESUB+64, RESUB+67, SF+9~, SF+10, SF+20 , SF+24, SF+26, SF+31, SF+32, SF+38, SF+39, SF+52, SF+53, SF+56, SF+57 , FWD+9~, FWD+10, FWD+20, FWD+24, FWD+26, FWD+30, FWD+31, FWD+38, FWD+40, FWD+53 , FWD+54, FWD+57*, FWD+58
TCH	CRNRNTE+3~
U	RESUB+7, RESUB+16, RESUB+24, RESUB+70, RESUB+72, SF+7, SF+16, SF+24, SF+30, SF+43 , SF+56, SF+60, SF+63, FWD+7, FWD+16, FWD+24, FWD+44, FWD+57, FWD+61, FWD+64 , FWD2IFC+5, FWD2IFC+13, FWD2IFC+26, CRNRNTE+6, CRNRNTE+15, CRNRNTE+18, CRNRNTE+21, CRNROBX+10, CRNROBX+19, CRNROBX+20 , CRNROBX+24, CRNROBX+28, CRNROBX+37, LOC+4, LOC+5, SITE+1

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCIEV1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: