Routine: GMRCIEVT

Package	Total	Call Graph
Consult Request Tracking	7	($$GONOGO,EN)^GMRCIBKG PTMPIER^GMRCIERR ($$EXIST201,CRNRNTE,CRNROBX,FWD,FWD2IFC,RESUB,SF)^GMRCIEV1 ($$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

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

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, ISCERNER+10
$$GONOGO^GMRCIBKG	TRIGR+15
EN^GMRCIBKG	TRIGR+16
PTMPIER^GMRCIERR	NOMPI+3
$$EXIST201^GMRCIEV1	NW+65, 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
$$OBXRSLT^GMRCISEG	RSLT+36
$$OBXSF^GMRCISEG	GENUPD+47
$$OBXTZ^GMRCISEG	NW+47, GENUPD+65, RSLT+38
$$ORC^GMRCISEG	GENUPD+29, RSLT+25
NTE^GMRCISEG	GENUPD+58
OBXWP^GMRCISEG	NW+36, GENUPD+55
$$NWORC^GMRCISG1	NW+25
$$OBR^GMRCISG1	NW+27, GENUPD+37, RSLT+31
$$OBXPD^GMRCISG1	NW+44
$$CHKPROXY^GMRCIUT1	NW+60
FAILPRXY^GMRCIUT1	CHKCORR+31
$$ADD2OBR^GMRCIUTL	NW+31, GENUPD+38, RSLT+32
$$ADD2PID^GMRCIUTL	NW+21, GENUPD+17, RSLT+16
$$NOSND^GMRCIUTL	TRIGR+8
LOGMSG^GMRCIUTL	TRIGR+29, NW+11, NW+55, NW+56, NW+60, NW+65, NW+70, GENUPD+7, GENUPD+67, GENUPD+72 , RSLT+6, RSLT+40, RSLT+44, NOMPI+4, PROXYADD+14, PROXYADD+15
INIT^HLFNC2	NW+9, GENUPD+5, RSLT+4
GENERATE^HLMA	NW+67, GENUPD+70, RSLT+42
LINK^HLUTIL3	ROUTE+19
$$GETICN^MPIF001	NW+15, GENUPD+11, RSLT+10
$$IFLOCAL^MPIF001	NW+16, GENUPD+12, RSLT+11
GETPAT^MPIFRES	PROXYADD+6
GETICN^MPIFXMLI	PROXYADD+9
$$CRNRSITE^VAFCCRNR	ROUTE+14, ROUTE+19, CHKCORR+21, CHKCORR+25, CHKCORR+29, PROXYADD+14, PROXYADD+15
$$EN^VAFCPID	NW+17, GENUPD+13, RSLT+12
TFL^VAFCTFU2	CNVTD+19, CHKCORR+13, ISCERNER+12
$$SITE^VASITE	CNVTD+18, CHKCORR+12, ISCERNER+11, SITE+1
$$GET^XPAR	ROUTE+14
$$STA^XUAF4	NW+56, ROUTE+10, CNVTD+11, CHKCORR+8, ISCERNER+9

FileNo	Call Tags
^GMR(123 - [#123]	GET1^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+13, NW+21, NW+55, GENUPD+2, GENUPD+9, GENUPD+22, GENUPD+46, GENUPD+49 , RSLT+8, RSLT+16, RSLT+22, RSLT+35, NOMPI+2, ROUTE+9, CNVTD+10, CNVTD+14, CHKCORR+5, CHKCORR+7 , ISCERNER+8, LOC+2, LOC+3
^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+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+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
$$CHKCORR	NW+6
$$CNVTD	NW+21, NW+31, GENUPD+17, GENUPD+35, RSLT+16, RSLT+30
$$ISCERNER	GENUPD+52
$$PROXYADD	CHKCORR+35
$$ROUTE	NW+64, GENUPD+66, RSLT+39
GENUPD	TRIGR+40
NOMPI	NW+12, GENUPD+8, RSLT+7
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+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	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+2~
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+2~
ERR	NW+68~, NW+70, GENUPD+71~, GENUPD+72, RSLT+43~*, RSLT+44
FS	GENUPD+2~
GMRC773	NW+4~, NW+67, NW+68, NW+70, GENUPD+1~, GENUPD+70, GENUPD+71, GENUPD+72, RSLT+1~, RSLT+42 , RSLT+43, RSLT+44
GMRCACT	NW+65, 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
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+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+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+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+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, CNVTD+8~, CNVTD+14, CNVTD+15, CNVTD+18, CHKCORR+4~, CHKCORR+5, CHKCORR+12 , CHKCORR+35, PROXYADD~, PROXYADD+6, ISCERNER+7~, ISCERNER+10*, ISCERNER+11
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+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
GMRCLINK	ROUTE+18~, ROUTE+19
GMRCLINK(	ROUTE+19
GMRCLINK(0	ROUTE+19
GMRCLOC	LOC~, LOC+2, SITE+1*
GMRCMT	GENUPD+58~
GMRCN	ISCERNER+7~, ISCERNER+13*
GMRCPD	NW+4~, NW+44*, NW+45
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
HL	NW+4~, NW+9, NW+10, GENUPD+1~, GENUPD+5, GENUPD+6, RSLT+1~, RSLT+4, RSLT+5
HL("FS"	NW+51
HLL	NW+4~, GENUPD+1~, RSLT+1~
HLL("LINKS"	NW+64, NW+66, GENUPD+66, GENUPD+68, RSLT+39*, RSLT+41
>> HLP	NW+67, GENUPD+70, RSLT+42
>> HLP("SUBSCRIBER"	NW+66, GENUPD+68, RSLT+41*
I	NW+38~, NW+39, NW+40, GENUPD+50~, GENUPD+60*, GENUPD+61
ICN	GENUPD+2~
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+40, ISCERNER~, ISCERNER+8, ISCERNER+10
LOCNAME	LOC+1~, LOC+3, LOC+4, LOC+5*, LOC+6
MPIDATA	PROXYADD+4~, PROXYADD+9
MPIDATA("ICN"	PROXYADD+9
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	PROXYADD+4~, PROXYADD+6, PROXYADD+9
PATARR(1	PROXYADD+7, PROXYADD+8
PROSTHCS	GENUPD+1~, GENUPD+44*, GENUPD+54, GENUPD+55, GENUPD+57, GENUPD+58
PROXYADD	NW+4~, NW+6*, NW+60
PTACCTNO	GENUPD+2~*, GENUPD+17
REPTTN	GENUPD+2~
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+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+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+7~, ISCERNER+9*, ISCERNER+14
SUB	ROUTE+18~, ROUTE+19*
U	TRIGR+10, TRIGR+32, NW+13, NW+21, NW+55, NW+60, NW+66, NW+68, 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+9, ROUTE+14, ROUTE+19, CNVTD+10, CNVTD+14, CNVTD+18, CHKCORR+5, CHKCORR+7 , CHKCORR+12, CHKCORR+30, CHKCORR+31, ISCERNER+8, ISCERNER+11, ISCERNER+14, LOC+4, LOC+5, SITE+1
UCID	NW+52~*
ZTQUEUED	TRIGR+15, TRIGR+16~*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCIEVT

Information

Source Information

Call Graph

Call Graph Total: 22

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 15

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: