Routine: GMRCIEVT

Package	Total	Call Graph
Consult Request Tracking	7	($$GONOGO,EN)^GMRCIBKG PTMPIER^GMRCIERR ($$EXIST201,CRNRNTE,CRNROBX,FWD,FWD2IFC,RESUB,SF)^GMRCIEV1 $$NOSND^GMRCIEVT ($$OBXRSLT,$$OBXSF,$$OBXTZ,$$ORC,NTE,OBXWP)^GMRCISEG ($$NWORC,$$OBR,$$OBXPD)^GMRCISG1 ($$ADD2OBR,$$ADD2PID,LOGMSG)^GMRCIUTL
Health Level Seven	3	INIT^HLFNC2 GENERATE^HLMA LINK^HLUTIL3
Master Patient Index VistA	3	($$GETICN,$$IFLOCAL)^MPIF001 GETPAT^MPIFRES GETICN^MPIFXMLI
Registration	3	$$EN^VAFCPID TFL^VAFCTFU2 $$SITE^VASITE
VA FileMan	2	^DIE ($$GET1,GETS)^DIQ
Kernel	1	$$STA^XUAF4
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Consult Request Tracking	14	GMRCART GMRCGUIB GMRCGUIC GMRCGUIU GMRCHL7U GMRCIBKG GMRCIERR GMRCIEV1 GMRCIEVT GMRCIMSG GMRCINC GMRCISG1 GMRCP GMRCSTS1

Name	Comments	DBIA/ICR reference
TRIGR(IEN,ACTN)	;determine what action was taken on IFC and call event point
NW(GMRCDA)	;build new order message for IFC ; Input: ; GMRCDA = ien from file 123
GENUPD(GMRCDA,GMRCACT)	;build msg and send upon REC, SC or ADD CMT event
RSLT(GMRCDA,GMRCACT)	;attach or dis-associate results and update
NOMPI(GMRCIEN,GMRCACTV)	;process MPI exception
ROUTE(GMRCDA)
CNVTD(GMRCDA)	; had facility been converted ; Input: ; GMRCDA = ien from file 123
CHKCORR(GMRCDA)	;
PROXYADD(GMRCDA,GMRCDFN,STA)	;
GETLINK(STA)	;
ISCERNER(IEN)	;Is 'Add Comment' going to Cerner?
LOC(GMRCLOC,GMRCIENS)	;DETERMINE LOCATION
SITE	;SET LOCAL SITE
NOSND()	;Do not respond to the sent comment.

External References

Name	Field # of Occurrence
^DIE	TRIGR+28
$$GET1^DIQ	NW+51, ISCERNER+10
GETS^DIQ	NOSND+5
$$GONOGO^GMRCIBKG	TRIGR+15
EN^GMRCIBKG	TRIGR+16
PTMPIER^GMRCIERR	NOMPI+3
$$EXIST201^GMRCIEV1	NW+55, GENUPD+67, RSLT+40
CRNRNTE^GMRCIEV1	GENUPD+57
CRNROBX^GMRCIEV1	GENUPD+54
FWD^GMRCIEV1	TRIGR+38
FWD2IFC^GMRCIEV1	TRIGR+39
RESUB^GMRCIEV1	TRIGR+34
SF^GMRCIEV1	TRIGR+36
$$NOSND^GMRCIEVT	TRIGR+8
$$OBXRSLT^GMRCISEG	RSLT+36
$$OBXSF^GMRCISEG	GENUPD+47
$$OBXTZ^GMRCISEG	NW+46, GENUPD+65, RSLT+38
$$ORC^GMRCISEG	GENUPD+29, RSLT+25
NTE^GMRCISEG	GENUPD+58
OBXWP^GMRCISEG	NW+35, GENUPD+55
$$NWORC^GMRCISG1	NW+24
$$OBR^GMRCISG1	NW+26, GENUPD+37, RSLT+31
$$OBXPD^GMRCISG1	NW+43
$$ADD2OBR^GMRCIUTL	NW+30, GENUPD+38, RSLT+32
$$ADD2PID^GMRCIUTL	NW+20, GENUPD+17, RSLT+16
LOGMSG^GMRCIUTL	TRIGR+29, NW+10, NW+55, NW+59, GENUPD+7, GENUPD+67, GENUPD+72, RSLT+6, RSLT+40, RSLT+44 , NOMPI+4, ROUTE+42, PROXYADD+7
INIT^HLFNC2	NW+8, GENUPD+5, RSLT+4
GENERATE^HLMA	NW+57, GENUPD+70, RSLT+42
LINK^HLUTIL3	ROUTE+14, GETLINK+2
$$GETICN^MPIF001	NW+14, GENUPD+11, RSLT+10
$$IFLOCAL^MPIF001	NW+15, GENUPD+12, RSLT+11
GETPAT^MPIFRES	PROXYADD+3
GETICN^MPIFXMLI	PROXYADD+6
$$EN^VAFCPID	NW+16, GENUPD+13, RSLT+12
TFL^VAFCTFU2	ROUTE+21, CNVTD+19, CHKCORR+9, ISCERNER+12
$$SITE^VASITE	ROUTE+20, CNVTD+18, CHKCORR+8, ISCERNER+11, SITE+1
$$GET^XPAR	GETLINK+3
$$STA^XUAF4	ROUTE+12, CNVTD+11, CHKCORR+5, ISCERNER+9

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
123.02	GETS^DIQ
^GMR(123.6 - [#123.6]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+5
^GMR(123 - [#123]	TRIGR+10, TRIGR+32, NW+12, NW+20, GENUPD+2, GENUPD+9, GENUPD+22, GENUPD+46, GENUPD+49, RSLT+8 , RSLT+16, RSLT+22, RSLT+35, NOMPI+2, ROUTE+11, ROUTE+17, CNVTD+10, CNVTD+14, CHKCORR+2, CHKCORR+4 , ISCERNER+8, LOC+2, LOC+3, NOSND+3, NOSND+4
^GMR(123.6 - [#123.6]	TRIGR+18, TRIGR+22, TRIGR+26, TRIGR+27
^TMP("GMRCMT"	GENUPD+51!, GENUPD+54, GENUPD+55, GENUPD+57, GENUPD+58*, GENUPD+59, GENUPD+60, GENUPD+61, GENUPD+63!
^TMP("GMRCRFR"	NW+34!, NW+35, NW+36, NW+38, NW+39, NW+41!
^TMP("HLS"	NW+7!, NW+16, NW+20, NW+24, NW+26, NW+30, NW+39, NW+44, NW+46, NW+51* , GENUPD+4!, GENUPD+13, GENUPD+17, GENUPD+29, GENUPD+39, GENUPD+47, GENUPD+53, GENUPD+56, GENUPD+61, GENUPD+65* , RSLT+3!, RSLT+12, RSLT+16, RSLT+25, RSLT+31, RSLT+32, RSLT+36, RSLT+38*

Name	Line Occurrences
$$CNVTD	NW+20, NW+30, GENUPD+17, GENUPD+35, RSLT+16, RSLT+30
$$GETLINK	ROUTE+36, ROUTE+40
$$ISCERNER	GENUPD+52
$$ROUTE	NW+54, GENUPD+66, RSLT+39
CHKCORR	NW+5
GENUPD	TRIGR+40
NOMPI	NW+11, GENUPD+8, RSLT+7
NW	TRIGR+30
PROXYADD	CHKCORR+15, CHKCORR+17
RSLT	TRIGR+31, TRIGR+32, TRIGR+33, TRIGR+35
SITE	LOC+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTN	TRIGR~, TRIGR+10, TRIGR+18, TRIGR+22, TRIGR+29, TRIGR+31, TRIGR+32, TRIGR+33, TRIGR+34, TRIGR+35 , TRIGR+36, TRIGR+38, TRIGR+39, TRIGR+40, NW+10, NW+55, RSLT+40
ACTVT	GENUPD+21~, GENUPD+22, GENUPD+25, GENUPD+28, RSLT+21~, RSLT+22, RSLT+24
ACTYPE	TRIGR+9~, TRIGR+10*, TRIGR+11, TRIGR+12, TRIGR+19, TRIGR+20, TRIGR+30, TRIGR+31, TRIGR+32, TRIGR+33 , TRIGR+34, TRIGR+35, TRIGR+36, TRIGR+37, TRIGR+38, TRIGR+39
CERNERID	ROUTE+9~, ROUTE+10, ROUTE+24, ROUTE+36, ROUTE+38, CHKCORR+1~, CHKCORR+6, CHKCORR+12, CHKCORR+15
CNT	ROUTE+9~, ROUTE+23, CNVTD+8~, CNVTD+21, CHKCORR+1~, CHKCORR+11*
CONSULTDFN	ROUTE+9~, ROUTE+10, ROUTE+25, ROUTE+28, ROUTE+30, ROUTE+36, ROUTE+38, ROUTE+41, CNVTD+8~, CNVTD+9* , CNVTD+21, CNVTD+23, CHKCORR+1~, CHKCORR+6, CHKCORR+13, CHKCORR+15, CHKCORR+17, PROXYADD+1~, PROXYADD+2, PROXYADD+6* , PROXYADD+7
CS	GENUPD+2~
DA	TRIGR+24~, TRIGR+27*
DGKEY	ROUTE+9~, ROUTE+20, ROUTE+21, CNVTD+8~, CNVTD+18, CNVTD+19, CHKCORR+1~, CHKCORR+8*, CHKCORR+9
DGOUT	ROUTE+9~, ROUTE+21, CNVTD+8~, CNVTD+19, CHKCORR+1~, CHKCORR+9
DGOUT(	ROUTE+23, CNVTD+21, CHKCORR+11
DIE	TRIGR+24~, TRIGR+27*
DR	TRIGR+24~, TRIGR+28*
EDIPI	GENUPD+2~
ERR	NW+58~, NW+59, GENUPD+71~, GENUPD+72, RSLT+43~*, RSLT+44
FS	GENUPD+2~
GMRC773	NW+4~, NW+57, NW+58, NW+59, GENUPD+1~, GENUPD+70, GENUPD+71, GENUPD+72, RSLT+1~, RSLT+42 , RSLT+43, RSLT+44
GMRCACT	GENUPD~, GENUPD+7, GENUPD+8, GENUPD+22, GENUPD+29, GENUPD+49, GENUPD+55, GENUPD+58, GENUPD+67, GENUPD+72 , RSLT~, RSLT+6, RSLT+7, RSLT+22, RSLT+25, RSLT+35, RSLT+36, RSLT+40, RSLT+44
GMRCACTS	TRIGR+24~, TRIGR+25, TRIGR+26, TRIGR+27
GMRCACTV	NOMPI~, NOMPI+4
GMRCARRAY	NOSND+1~
GMRCARRAY(	NOSND+6
GMRCCNV	ISCERNER+7~, ISCERNER+13, ISCERNER+14, ISCERNER+16
GMRCCRNR	GENUPD+1~, GENUPD+52*, GENUPD+54, GENUPD+55, GENUPD+57, GENUPD+58
GMRCDA	NW~, NW+5, NW+10, NW+11, NW+12, NW+20, NW+24, NW+26, NW+30, NW+35 , NW+43, NW+51, NW+54, NW+59, GENUPD~, GENUPD+2, GENUPD+7, GENUPD+8, GENUPD+9, GENUPD+17 , GENUPD+22, GENUPD+29, GENUPD+35, GENUPD+37, GENUPD+38, GENUPD+46, GENUPD+47, GENUPD+49, GENUPD+52, GENUPD+54 , GENUPD+55, GENUPD+57, GENUPD+58, GENUPD+66, GENUPD+67, GENUPD+72, RSLT~, RSLT+6, RSLT+7, RSLT+8 , RSLT+16, RSLT+22, RSLT+25, RSLT+30, RSLT+31, RSLT+32, RSLT+35, RSLT+36, RSLT+39, RSLT+44 , ROUTE~, ROUTE+11, ROUTE+17, ROUTE+42, CNVTD~, CNVTD+10, CNVTD+14, CHKCORR~, CHKCORR+2, CHKCORR+4 , CHKCORR+15, CHKCORR+17, PROXYADD~, PROXYADD+7
GMRCDFN	NW+12~, NW+13, NW+14, NW+15, NW+16, NW+20, GENUPD+9~, GENUPD+10, GENUPD+11, GENUPD+12 , GENUPD+13, GENUPD+17, RSLT+8~, RSLT+9, RSLT+10, RSLT+11, RSLT+12, RSLT+16, NOMPI+1~, NOMPI+2 , NOMPI+3, ROUTE+9~, ROUTE+17, ROUTE+20, CNVTD+8~, CNVTD+14, CNVTD+15, CNVTD+18, CHKCORR+1~, CHKCORR+2* , CHKCORR+8, CHKCORR+15, CHKCORR+17, PROXYADD~, PROXYADD+3, ISCERNER+7~, ISCERNER+10*, ISCERNER+11
GMRCDQ	TRIGR+7~, NOSND+2, NOSND+3, NOSND+6*, NOSND+7
GMRCDQ1	TRIGR+7~, TRIGR+8*
GMRCIEN	NOMPI~, NOMPI+2, NOMPI+4
GMRCIENS	LOC~, LOC+2, LOC+3
GMRCIQT	NW+4~, NW+11, NW+13, NW+14, NW+15, GENUPD+1~, GENUPD+8, GENUPD+10, GENUPD+11, GENUPD+12 , RSLT+1~, RSLT+7, RSLT+9, RSLT+10, RSLT+11*
GMRCKEY	ISCERNER+7~, ISCERNER+11*, ISCERNER+12
GMRCL	NOSND+1~, NOSND+3*, NOSND+4
GMRCLINK	ROUTE+8~, ROUTE+14, ROUTE+31, ROUTE+32, ROUTE+33, GETLINK+1~, GETLINK+2, GETLINK+4, GETLINK+5
GMRCLINK(	ROUTE+32, GETLINK+5
GMRCLINK(0	ROUTE+31, GETLINK+4
GMRCLINK(1	GETLINK+3*, GETLINK+6
GMRCLOC	LOC~, LOC+2, SITE+1*
GMRCMT	GENUPD+58~
GMRCN	ISCERNER+7~, ISCERNER+13*
GMRCPD	NW+4~, NW+43*, NW+44
GMRCQT	TRIGR+20~, TRIGR+23*
GMRCSITE	ISCERNER+7~, ISCERNER+8*, ISCERNER+9
GMRCTFL	ISCERNER+7~, ISCERNER+12
GMRCTFL(	ISCERNER+13
GMRCX	ISCERNER+7~, ISCERNER+13*, ISCERNER+14
GMRCZ	NOSND+1~, NOSND+4*, NOSND+5, NOSND+6
HL	NW+4~, NW+8, NW+9, GENUPD+1~, GENUPD+5, GENUPD+6, RSLT+1~, RSLT+4, RSLT+5
HL("FS"	NW+50
HLL	NW+4~, GENUPD+1~, RSLT+1~
HLL("LINKS"	NW+54, NW+56, GENUPD+66, GENUPD+68, RSLT+39*, RSLT+41
>> HLP	NW+57, GENUPD+70, RSLT+42
>> HLP("SUBSCRIBER"	NW+56, GENUPD+68, RSLT+41*
I	NW+37~, NW+38, NW+39, GENUPD+50~, GENUPD+60*, GENUPD+61
ICN	GENUPD+2~
IDS	ROUTE+9~, ROUTE+23, ROUTE+24, ROUTE+25, CNVTD+8~, CNVTD+21, CHKCORR+1~, CHKCORR+11*, CHKCORR+12, CHKCORR+13
IEN	TRIGR~, TRIGR+10, TRIGR+18, TRIGR+22, TRIGR+26, TRIGR+27, TRIGR+29, TRIGR+30, TRIGR+31, TRIGR+32 , TRIGR+33, TRIGR+34, TRIGR+35, TRIGR+36, TRIGR+38, TRIGR+39, TRIGR+40, NW+55, RSLT+40, ISCERNER~ , ISCERNER+8, ISCERNER+10, NOSND+3, NOSND+4, NOSND+5, NOSND+6
LOCNAME	LOC+1~, LOC+3, LOC+4, LOC+5*, LOC+6
MPIDATA	ROUTE+9~, PROXYADD+1~, PROXYADD+6
MPIDATA("ICN"	PROXYADD+6
OBR	GENUPD+1~, GENUPD+37, GENUPD+38, GENUPD+39, GENUPD+44
OC	GENUPD+21~, GENUPD+25, GENUPD+29, RSLT+21~, RSLT+23, RSLT+25
OS	GENUPD+21~, GENUPD+28, GENUPD+29, RSLT+21~, RSLT+24, RSLT+25
PATARR	ROUTE+9~, PROXYADD+1~, PROXYADD+3, PROXYADD+6
PATARR(1	PROXYADD+4, PROXYADD+5
PROSTHCS	GENUPD+1~, GENUPD+44*, GENUPD+54, GENUPD+55, GENUPD+57, GENUPD+58
PTACCTNO	GENUPD+2~*, GENUPD+17
REPTTN	GENUPD+2~
RETURN	ROUTE+9~, ROUTE+10, ROUTE+33, ROUTE+36, ROUTE+40, ROUTE+43*, ROUTE+45
SEG	NW+4~, NW+6, NW+16, NW+20, NW+22, NW+24, NW+25, NW+26, NW+30, NW+32 , NW+39, NW+40, NW+44, NW+45, NW+46, NW+51, GENUPD+1~, GENUPD+3, GENUPD+13, GENUPD+17 , GENUPD+18, GENUPD+29, GENUPD+30, GENUPD+39, GENUPD+40, GENUPD+47, GENUPD+48, GENUPD+53, GENUPD+56, GENUPD+61 , GENUPD+62, GENUPD+65, RSLT+1~, RSLT+2, RSLT+12, RSLT+16, RSLT+18, RSLT+25, RSLT+26, RSLT+31 , RSLT+32, RSLT+33, RSLT+36, RSLT+37, RSLT+38
SEP	NW+49~, NW+50*, NW+51
SITE	ROUTE+8~, ROUTE+11, ROUTE+12, CNVTD+7~, CNVTD+10, CNVTD+11, CHKCORR+1~, CHKCORR+4*, CHKCORR+5
STA	ROUTE+8~, ROUTE+12, ROUTE+14, ROUTE+25, ROUTE+33, ROUTE+36, ROUTE+40, CNVTD+7~, CNVTD+11, CNVTD+12 , CNVTD+21, CHKCORR+1~, CHKCORR+5, CHKCORR+13, CHKCORR+15, CHKCORR+17, PROXYADD~, PROXYADD+4, GETLINK~, GETLINK+2 , GETLINK+6, ISCERNER+7~, ISCERNER+9, ISCERNER+14
U	TRIGR+10, TRIGR+32, NW+12, NW+20, NW+56, NW+58, GENUPD+2, GENUPD+9, GENUPD+22, GENUPD+44 , GENUPD+46, GENUPD+68, GENUPD+71, RSLT+8, RSLT+16, RSLT+22, RSLT+35, RSLT+41, RSLT+43, NOMPI+2 , ROUTE+11, ROUTE+17, ROUTE+20, ROUTE+33, CNVTD+10, CNVTD+14, CNVTD+18, CHKCORR+2, CHKCORR+4, CHKCORR+8 , GETLINK+6, ISCERNER+8, ISCERNER+11, ISCERNER+14, LOC+4, LOC+5, SITE+1
UCID	NW+51~*
X	ROUTE+9~
ZTQUEUED	TRIGR+15, TRIGR+16~*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCIEVT

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 14

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: