Routine: GMRCIEVT

Information

GMRCIEVT ;SLC/JFR - process events and build HL7 message; 6/20/2021 09:23 ; Jan 09, 2025@09:44:47

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

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: 17

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

Entry Points

Name	Comments	DBIA/ICR reference
TRIGR(IEN,ACTN)	;determine what action was taken on IFC and call event point
NW(GMRCDA,ACTN)	;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)	;
ISCERNER(IEN)	;Is consult going to Cerner?
LOC(GMRCLOC,GMRCIENS)	;DETERMINE LOCATION
SITE	;SET LOCAL SITE

External References

Name	Field # of Occurrence
$$ADD^DGPROSAD	CHKCORR+30
^DIE	TRIGR+28
$$GET1^DIQ	NW+52
$$GONOGO^GMRCIBKG	TRIGR+15
EN^GMRCIBKG	TRIGR+16
PTMPIER^GMRCIERR	NOMPI+3
$$EXIST201^GMRCIEV1	NW+65, GENUPD+72, RSLT+45
CRNRNTE^GMRCIEV1	GENUPD+62
CRNROBX^GMRCIEV1	GENUPD+59
FWD^GMRCIEV1	TRIGR+38
FWD2IFC^GMRCIEV1	TRIGR+39
RESUB^GMRCIEV1	TRIGR+34
SF^GMRCIEV1	TRIGR+36
$$ISCERNER^GMRCIEVT	GENUPD+4, RSLT+4
$$OBXRSLT^GMRCISEG	RSLT+41
$$OBXSF^GMRCISEG	GENUPD+52
$$OBXTZ^GMRCISEG	NW+47, GENUPD+70, RSLT+43
$$ORC^GMRCISEG	GENUPD+34, RSLT+30
NTE^GMRCISEG	GENUPD+63
OBXWP^GMRCISEG	NW+36, GENUPD+60
$$NWORC^GMRCISG1	NW+25
$$OBR^GMRCISG1	NW+27, GENUPD+42, RSLT+36
$$OBXPD^GMRCISG1	NW+44
$$CHKPROXY^GMRCIUT1	NW+60
FAILPRXY^GMRCIUT1	CHKCORR+31
$$ADD2OBR^GMRCIUTL	NW+31, GENUPD+43, RSLT+37
$$ADD2PID^GMRCIUTL	NW+21, GENUPD+22, RSLT+21
$$NOSND^GMRCIUTL	TRIGR+8
LOGMSG^GMRCIUTL	TRIGR+29, NW+11, NW+55, NW+56, NW+60, NW+65, NW+70, GENUPD+4, GENUPD+12, GENUPD+72 , GENUPD+77, RSLT+4, RSLT+11, RSLT+45, RSLT+49, NOMPI+4, PROXYADD+14, PROXYADD+15
INIT^HLFNC2	NW+9, GENUPD+10, RSLT+9
GENERATE^HLMA	NW+67, GENUPD+75, RSLT+47
LINK^HLUTIL3	ROUTE+19
$$GETICN^MPIF001	NW+15, GENUPD+16, RSLT+15
$$IFLOCAL^MPIF001	NW+16, GENUPD+17, RSLT+16
GETPAT^MPIFRES	PROXYADD+6
GETICN^MPIFXMLI	PROXYADD+9
$$CRNRSITE^VAFCCRNR	ROUTE+14, ROUTE+19, CHKCORR+21, CHKCORR+25, CHKCORR+29, PROXYADD+14, PROXYADD+15, ISCERNER+11
$$EN^VAFCPID	NW+17, GENUPD+18, RSLT+17
TFL^VAFCTFU2	CNVTD+19, CHKCORR+13
$$SITE^VASITE	CNVTD+18, CHKCORR+12, SITE+1
$$GET^XPAR	ROUTE+14
$$STA^XUAF4	NW+56, ROUTE+10, CNVTD+11, CHKCORR+8, ISCERNER+10

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	LOC+5
^GMR(123 - [#123]	TRIGR+10, TRIGR+32, NW+13, NW+21, NW+55, GENUPD+4, GENUPD+7, GENUPD+14, GENUPD+27, GENUPD+51 , GENUPD+54, RSLT+4, RSLT+13, RSLT+21, RSLT+27, RSLT+40, NOMPI+2, ROUTE+9, CNVTD+10, CNVTD+14 , CHKCORR+5, CHKCORR+7, ISCERNER+9, LOC+2, LOC+3
^GMR(123.6 - [#123.6]	TRIGR+18, TRIGR+22, TRIGR+26, TRIGR+27
^TMP("GMRCMT"	GENUPD+56!, GENUPD+59, GENUPD+60, GENUPD+62, GENUPD+63*, GENUPD+64, GENUPD+65, GENUPD+66, GENUPD+68!
^TMP("GMRCRFR"	NW+35!, NW+36, NW+37, NW+39, NW+40, NW+42!
^TMP("HLS"	NW+8!, NW+17, NW+21, NW+25, NW+27, NW+31, NW+40, NW+45, NW+47, NW+52* , GENUPD+9!, GENUPD+18, GENUPD+22, GENUPD+34, GENUPD+44, GENUPD+52, GENUPD+58, GENUPD+61, GENUPD+66, GENUPD+70* , RSLT+8!, RSLT+17, RSLT+21, RSLT+30, RSLT+36, RSLT+37, RSLT+41, RSLT+43*

Label References

Name	Line Occurrences
$$CHKCORR	NW+6
$$CNVTD	NW+21, NW+31, GENUPD+22, GENUPD+40, RSLT+21, RSLT+35
$$ISCERNER	GENUPD+57
$$PROXYADD	CHKCORR+35
$$ROUTE	NW+64, GENUPD+71, RSLT+44
GENUPD	TRIGR+40
NOMPI	NW+12, GENUPD+13, RSLT+12
NW	TRIGR+30
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+30, TRIGR+31, TRIGR+32, TRIGR+33, TRIGR+34 , TRIGR+35, TRIGR+36, TRIGR+38, TRIGR+39, TRIGR+40, NW~, NW+11, NW+55, NW+56, NW+60 , RSLT+45
ACTVT	GENUPD+26~, GENUPD+27, GENUPD+30, GENUPD+33, RSLT+26~, RSLT+27, RSLT+29
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	CHKCORR+4~, CHKCORR+10, CHKCORR+16, CHKCORR+25, CHKCORR+29, CHKCORR+30, CHKCORR+31, CHKCORR+35
CNT	CNVTD+8~, CNVTD+21, CHKCORR+4~, CHKCORR+15
CONSULTDFN	CNVTD+8~, CNVTD+9, CNVTD+21, CNVTD+23, CHKCORR+4~, CHKCORR+10, CHKCORR+17, CHKCORR+21, CHKCORR+25, CHKCORR+29 , CHKCORR+35, PROXYADD+4~, PROXYADD+5, PROXYADD+9, PROXYADD+13
CS	GENUPD+7~
DA	TRIGR+24~, TRIGR+27*
DATA	ROUTE+18~, ROUTE+19*
DGKEY	CNVTD+8~, CNVTD+18, CNVTD+19, CHKCORR+4~, CHKCORR+12, CHKCORR+13
DGOUT	CNVTD+8~, CNVTD+19, CHKCORR+4~, CHKCORR+13
DGOUT(	CNVTD+21, CHKCORR+15
DIE	TRIGR+24~, TRIGR+27*
DR	TRIGR+24~, TRIGR+28*
EDIPI	GENUPD+7~
ERR	NW+68~, NW+70, GENUPD+76~, GENUPD+77, RSLT+48~*, RSLT+49
FS	GENUPD+7~
GMRC773	NW+4~, NW+67, NW+68, NW+70, GENUPD+6~, GENUPD+75, GENUPD+76, GENUPD+77, RSLT+6~, RSLT+47 , RSLT+48, RSLT+49
GMRCACT	NW+65, GENUPD~, GENUPD+4, GENUPD+12, GENUPD+13, GENUPD+27, GENUPD+34, GENUPD+54, GENUPD+60, GENUPD+63 , GENUPD+72, GENUPD+77, RSLT~, RSLT+4, RSLT+11, RSLT+12, RSLT+27, RSLT+30, RSLT+40, RSLT+41 , RSLT+45, RSLT+49
GMRCACTS	TRIGR+24~, TRIGR+25, TRIGR+26, TRIGR+27
GMRCACTV	NOMPI~, NOMPI+4
GMRCCRNR	GENUPD+6~, GENUPD+57*, GENUPD+59, GENUPD+60, GENUPD+62, GENUPD+63
GMRCDA	NW~, NW+6, NW+11, NW+12, NW+13, NW+21, NW+25, NW+27, NW+31, NW+36 , NW+44, NW+52, NW+55, NW+60, NW+64, NW+65, NW+70, GENUPD~, GENUPD+4, GENUPD+7 , GENUPD+12, GENUPD+13, GENUPD+14, GENUPD+22, GENUPD+27, GENUPD+34, GENUPD+40, GENUPD+42, GENUPD+43, GENUPD+51 , GENUPD+52, GENUPD+54, GENUPD+57, GENUPD+59, GENUPD+60, GENUPD+62, GENUPD+63, GENUPD+71, GENUPD+72, GENUPD+77 , RSLT~, RSLT+4, RSLT+11, RSLT+12, RSLT+13, RSLT+21, RSLT+27, RSLT+30, RSLT+35, RSLT+36 , RSLT+37, RSLT+40, RSLT+41, RSLT+44, RSLT+49, ROUTE~, ROUTE+9, CNVTD~, CNVTD+10, CNVTD+14 , CHKCORR~, CHKCORR+5, CHKCORR+7, CHKCORR+31, CHKCORR+35, PROXYADD~, PROXYADD+14, PROXYADD+15
GMRCDFN	NW+4~, NW+13, NW+14, NW+15, NW+16, NW+17, NW+21, NW+60, GENUPD+14~, GENUPD+15 , GENUPD+16, GENUPD+17, GENUPD+18, GENUPD+22, RSLT+13~, RSLT+14, RSLT+15, RSLT+16, RSLT+17, RSLT+21 , NOMPI+1~, NOMPI+2, NOMPI+3, CNVTD+8~, CNVTD+14, CNVTD+15, CNVTD+18, CHKCORR+4~, CHKCORR+5, CHKCORR+12 , CHKCORR+35, PROXYADD~, PROXYADD+6
GMRCDQ	TRIGR+7~*
GMRCDQ1	TRIGR+7~, TRIGR+8*
GMRCIEN	NOMPI~, NOMPI+2, NOMPI+4
GMRCIENS	LOC~, LOC+2, LOC+3
GMRCIQT	NW+4~, NW+12, NW+14, NW+15, NW+16, GENUPD+6~, GENUPD+13, GENUPD+15, GENUPD+16, GENUPD+17 , RSLT+6~, RSLT+12, RSLT+14, RSLT+15, RSLT+16*
GMRCLINK	ROUTE+18~, ROUTE+19
GMRCLINK(	ROUTE+19
GMRCLINK(0	ROUTE+19
GMRCLOC	LOC~, LOC+2, SITE+1*
GMRCMT	GENUPD+63~
GMRCPD	NW+4~, NW+44*, NW+45
GMRCQT	TRIGR+20~, TRIGR+23*
GMRCSITE	ISCERNER+8~, ISCERNER+9*, ISCERNER+10
HL	NW+4~, NW+9, NW+10, GENUPD+6~, GENUPD+10, GENUPD+11, RSLT+6~, RSLT+9, RSLT+10
HL("FS"	NW+51
HLL	NW+4~, GENUPD+6~, RSLT+6~
HLL("LINKS"	NW+64, NW+66, GENUPD+71, GENUPD+73, RSLT+44*, RSLT+46
>> HLP	NW+67, GENUPD+75, RSLT+47
>> HLP("SUBSCRIBER"	NW+66, GENUPD+73, RSLT+46*
I	NW+38~, NW+39, NW+40, GENUPD+55~, GENUPD+65*, GENUPD+66
ICN	GENUPD+7~
IDS	CNVTD+8~, CNVTD+21, CHKCORR+4~, CHKCORR+15, CHKCORR+16, CHKCORR+17
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, NW+56, NW+60 , RSLT+45, ISCERNER~, ISCERNER+9
LOCNAME	LOC+1~, LOC+3, LOC+4, LOC+5*, LOC+6
MPIDATA	PROXYADD+4~, PROXYADD+9
MPIDATA("ICN"	PROXYADD+9
OBR	GENUPD+6~, GENUPD+42, GENUPD+43, GENUPD+44, GENUPD+49
OC	GENUPD+26~, GENUPD+30, GENUPD+34, RSLT+26~, RSLT+28, RSLT+30
OS	GENUPD+26~, GENUPD+33, GENUPD+34, RSLT+26~, RSLT+29, RSLT+30
PATARR	PROXYADD+4~, PROXYADD+6, PROXYADD+9
PATARR(1	PROXYADD+7, PROXYADD+8
PROSTHCS	GENUPD+6~, GENUPD+49*, GENUPD+59, GENUPD+60, GENUPD+62, GENUPD+63
PROXYADD	NW+4~, NW+6*, NW+60
PTACCTNO	GENUPD+7~*, GENUPD+22
REPTTN	GENUPD+7~
RTNCODE	CHKCORR+4~, CHKCORR+15, CHKCORR+30, CHKCORR+31, CHKCORR+35*, CHKCORR+36
SEG	NW+4~, NW+7, NW+17, NW+21, NW+23, NW+25, NW+26, NW+27, NW+31, NW+33 , NW+40, NW+41, NW+45, NW+46, NW+47, NW+52, GENUPD+6~, GENUPD+8, GENUPD+18, GENUPD+22 , GENUPD+23, GENUPD+34, GENUPD+35, GENUPD+44, GENUPD+45, GENUPD+52, GENUPD+53, GENUPD+58, GENUPD+61, GENUPD+66 , GENUPD+67, GENUPD+70, RSLT+6~, RSLT+7, RSLT+17, RSLT+21, RSLT+23, RSLT+30, RSLT+31, RSLT+36 , RSLT+37, RSLT+38, RSLT+41, RSLT+42, RSLT+43
SEP	NW+50~, NW+51*, NW+52
SITE	NW+4~, NW+55, NW+56, ROUTE+8~, ROUTE+9, ROUTE+10, CNVTD+7~, CNVTD+10, CNVTD+11, CHKCORR+4~ , CHKCORR+7, CHKCORR+8
STA	NW+4~, NW+56, NW+60, ROUTE+8~, ROUTE+10, ROUTE+14, ROUTE+19, CNVTD+7~, CNVTD+11, CNVTD+12 , CNVTD+21, CHKCORR+4~, CHKCORR+8, CHKCORR+17, CHKCORR+21, CHKCORR+25, CHKCORR+29, CHKCORR+30, CHKCORR+31, CHKCORR+35 , PROXYADD~, PROXYADD+7, PROXYADD+14, PROXYADD+15, ISCERNER+8~, ISCERNER+10*, ISCERNER+11
SUB	ROUTE+18~, ROUTE+19*
U	TRIGR+10, TRIGR+32, NW+13, NW+21, NW+55, NW+60, NW+66, NW+68, GENUPD+4, GENUPD+7 , GENUPD+14, GENUPD+27, GENUPD+49, GENUPD+51, GENUPD+54, GENUPD+73, GENUPD+76, RSLT+4, RSLT+13, RSLT+21 , RSLT+27, RSLT+40, RSLT+46, RSLT+48, NOMPI+2, ROUTE+9, ROUTE+14, ROUTE+19, CNVTD+10, CNVTD+14 , CNVTD+18, CHKCORR+5, CHKCORR+7, CHKCORR+12, CHKCORR+30, CHKCORR+31, ISCERNER+9, LOC+4, LOC+5, SITE+1
UCID	NW+52~*
ZTQUEUED	TRIGR+15, TRIGR+16~*

Customize PDF page

Package: Consult Request Tracking