Routine: GMRCIAC2

Package	Total	Call Graph
Consult Request Tracking	3	EN^GMRCHL7 ($$GETPROC,$$GETSERV,RESP,TRIMWP,UNHLNAME)^GMRCIUTL UNLKREC^GMRCUTL1
Kernel	3	($$FMDIFF,$$HL7TFM,$$NOW)^XLFDT $$IEN^XUAF4 $$KSP^XUPARAM
MailMan	2	XMZ^XMA2 EN1^XMD
VA FileMan	2	(UPDATE,WP)^DIE $$GET1^DIQ
Health Level Seven	1	GENACK^HLMA1
Toolkit	1	$$GET^XPAR

Package	Total	Caller Graph
Consult Request Tracking	3	GMRCIAC1 GMRCIACT GMRCIMSG

Entry Points

Name	Comments	DBIA/ICR reference
FILRES(GMRCO,GMRCOBX)	;file or delete results
UPDORD(GMRCDA,GMRC40)	; update CPRS order if action on placer order. ; Input: ; GMRCDA = ien from file 123 ; GMRC40 = ien of activity in 40 multiple
FILEACT(GMRCO,GMRCLAST,GMRCFR,GMRCAR,GMRCCRNR,GMRCROUT)	;file REQUEST PROCESSING ACTIVITY - P184 ; Input: ; GMRCO = ien from file 123 ; GMRCLAST = last action taken on request ; GMRCFR = service that consult was forwarded from ; GMRCAR = name of the array containing the message ; GMRCCRNR = 1 if from Cerner [OPTIONAL] ; GMRCROUT = Routine station [OPTIONAL]
TST(ARRAY)	;process test message and check item ordered
GETDA(GMRCORC)	; determine what local Consult ien to work on ; Input: ; GMRCORC = ORC seg from incoming message ; Output: ; ien from file 123
DUPACT(GMRCO,ACTVT,ORC,OBX,CRNR,MSGI)	;check to see if activity is a dup transmission ;MKN added CRNR and MSGI
APPACK(GMRCO,ACK,ERR,CRNR,MSGID)	;send application acknowledgement for all cases ;MKN GMRC3154 added CRNR and MSGID
MGMSG(ERR,MSGID)	;Send message to required mail groups
SENDMSG(GRP,ERR,ERRTEXT,MSGID)	; Send a MailMan Message with the errors
CRNR	;GMRC CRNR IFC ERRORS;GMRC CRNR IFC TECH ERRORS;GMRC CRNR IFC CLIN ERRORS;GMRC TIER II CRNR IFC ERRORS
101	;1;1;0;1;Unknown Consult/Procedure request
202	;1;0;1;1;Local or Unknown MPI Identifiers
301	;1;0;1;1;Service not Matched to Receiving Facility
401	;1;0;1;1;Procedure not Matched to Receiving Facility
501	;1;0;1;1;Error in Procedure Name
601	;1;0;1;1;Multiple Services Matched to Procedure
701	;1;0;1;1;Error in Service Name
702	;1;0;1;1;Service is Disabled
703	;1;0;1;1;Procedure is Inactive
801	;1;1;0;1;Inappropriate Action for Specified Request
802	;1;0;0;1;Duplicate, activity not filed
901	;1;0;0;1;Unable to Update Record Successfully
902	;1;0;0;1;Earlier Pending Transactions
903	;0;0;0;0;HL Logical Link not Found - will not hit the APPACK API
904	;0;0;0;0;VistA HL7 Unable to Send Transaction - will not hit the APPACK API
201	;0;0;0;0;Unknown Patient - will not hit the APPACK API

Name	Field # of Occurrence
UPDATE^DIE	FILRES+18, FILEACT+43, FILEACT+47
WP^DIE	FILEACT+54, FILEACT+59
$$GET1^DIQ	MGMSG+4
EN^GMRCHL7	UPDORD+12
$$GETPROC^GMRCIUTL	TST+11
$$GETSERV^GMRCIUTL	TST+15
RESP^GMRCIUTL	TST+19, TST+23, APPACK+14
TRIMWP^GMRCIUTL	FILEACT+53, FILEACT+58
UNHLNAME^GMRCIUTL	FILEACT+18, FILEACT+19
UNLKREC^GMRCUTL1	APPACK+17
GENACK^HLMA1	TST+20, TST+24, APPACK+15
$$FMDIFF^XLFDT	FILEACT+39
$$HL7TFM^XLFDT	FILEACT+14, FILEACT+16, DUPACT+14, DUPACT+15
$$NOW^XLFDT	FILRES+9, FILEACT+13, FILEACT+39
XMZ^XMA2	SENDMSG+16
EN1^XMD	SENDMSG+17
$$GET^XPAR	MGMSG+3
$$IEN^XUAF4	FILRES+7, FILEACT+30, GETDA+23, GETDA+25, DUPACT+23
$$KSP^XUPARAM	GETDA+23, GETDA+25

FileNo	Call Tags
123.02	WP^DIE
^XMB(3.8 - [#3.8]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	FILRES+14, UPDORD+6, UPDORD+7, UPDORD+9, UPDORD+10, FILEACT+36, FILEACT+38, FILEACT+39, FILEACT+40, FILEACT+62 , GETDA+23, DUPACT+18, DUPACT+26, DUPACT+27
^TMP("GMRCFIL"	FILEACT+9!, FILEACT+11*, FILEACT+12, FILEACT+22, FILEACT+25, FILEACT+27, FILEACT+50, FILEACT+52, FILEACT+55, FILEACT+57 , FILEACT+66!
^TMP("GMRCIN"	TST+5!, TST+6*, TST+8, TST+25!, GETDA+22
^XMB(3.8 - [#3.8]	SENDMSG+9, SENDMSG+11, SENDMSG+13

Name	Line Occurrences
APPACK	DUPACT+30
CRNR	MGMSG+3
MGMSG	APPACK+21
SENDMSG	MGMSG+4
UPDORD	FILEACT+65

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AC	UPDORD+5~, UPDORD+10*, UPDORD+11
ACK	APPACK~, APPACK+14
ACTVT	DUPACT~, DUPACT+18, DUPACT+26, DUPACT+27
ARRAY	TST~, TST+6
CRNR	DUPACT~, DUPACT+17, DUPACT+30, APPACK~, APPACK+13, APPACK+20
DESC	FILEACT+26~, FILEACT+32*, FILEACT+33
DUP	DUPACT+13~, DUPACT+16, DUPACT+18, DUPACT+20, DUPACT+28, DUPACT+29*
ERR	APPACK~, APPACK+12*, APPACK+14, APPACK+21, MGMSG~, MGMSG+4, SENDMSG~, SENDMSG+6, SENDMSG+8
ERRTEXT	SENDMSG~, SENDMSG+2, SENDMSG+6, SENDMSG+8
FDA	FILRES+17, FILEACT+10~, FILEACT+48!
FDA(1	FILRES+9, FILRES+10, FILRES+11, FILRES+16, FILEACT+42, FILEACT+46
GMRC40	UPDORD~, UPDORD+7, UPDORD+8, UPDORD+9, UPDORD+10
GMRCACT	FILEACT+10~
GMRCACT(1	FILEACT+41*, FILEACT+42, FILEACT+45, FILEACT+54, FILEACT+59, FILEACT+65
GMRCAD	UPDORD+5~, UPDORD+9*, UPDORD+12
GMRCAR	FILEACT~, FILEACT+11
GMRCCRNR	FILEACT~, FILEACT+23
GMRCDA	UPDORD~, UPDORD+6, UPDORD+7, UPDORD+9, UPDORD+10, UPDORD+12, TST+4~
GMRCDFN	UPDORD+5~, UPDORD+6*, UPDORD+12
GMRCEP	FILEACT+10~, FILEACT+18, FILEACT+20
GMRCERR	FILRES+1~, FILEACT+10~, MGMSG+1~, MGMSG+2*, MGMSG+4
GMRCFDA	FILEACT+10~, FILEACT+42, FILEACT+46, FILEACT+48!, TST+4~
GMRCFDA(	FILEACT+13, FILEACT+14, FILEACT+20, FILEACT+21, FILEACT+22, FILEACT+23, FILEACT+24, FILEACT+33, FILEACT+40
GMRCFDA(1	FILEACT+15*
GMRCFDA(2	FILEACT+16*
GMRCFIL	FILRES+1~, FILRES+3, FILRES+5, FILRES+6
GMRCFR	FILEACT~, FILEACT+24
GMRCIADT	DUPACT+13~, DUPACT+15*, DUPACT+18
GMRCIFDT	DUPACT+13~, DUPACT+14*, DUPACT+18
GMRCITER	TST+4~, TST+12, TST+16, TST+17, TST+19, TST+21
GMRCITM	TST+4~, TST+8*, TST+9, TST+11, TST+13, TST+15
GMRCLACT	FILEACT+35~, FILEACT+36*, FILEACT+37, FILEACT+38, FILEACT+39, FILEACT+40, FILEACT+41
GMRCLAST	FILEACT~, FILEACT+15, FILEACT+34, FILEACT+63, FILEACT+64
GMRCMG	MGMSG+1~, MGMSG+2*
GMRCMGN	MGMSG+1~, MGMSG+2*, MGMSG+3
GMRCMGNA	MGMSG+1~, MGMSG+3, MGMSG+4
GMRCMT	UPDORD+5~, UPDORD+8*, UPDORD+12
GMRCMT(0	UPDORD+8*
GMRCO	FILRES~, FILRES+9, FILRES+10, FILRES+11, FILRES+14, FILRES+16, FILEACT~, FILEACT+36, FILEACT+38, FILEACT+39 , FILEACT+40, FILEACT+42, FILEACT+46, FILEACT+54, FILEACT+59, FILEACT+62, FILEACT+65, DUPACT~, DUPACT+18, DUPACT+26 , DUPACT+27, DUPACT+30, APPACK~, APPACK+17
GMRCOBR4	GETDA+22~*, GETDA+23
GMRCOBX	FILRES~, FILRES+2, FILRES+3, FILRES+4, FILRES+7, FILRES+8, FILRES+12, FILEACT+26~, FILEACT+27*, FILEACT+28 , FILEACT+29, FILEACT+30, FILEACT+31, FILEACT+32
GMRCOC	UPDORD+5~, UPDORD+11*, UPDORD+12
GMRCORC	FILEACT+10~, FILEACT+12*, FILEACT+14, FILEACT+16, FILEACT+18, FILEACT+19, TST+4~, GETDA~, GETDA+7
GMRCORC2	GETDA+6~, GETDA+7*, GETDA+23, GETDA+25
GMRCORC3	GETDA+6~, GETDA+7*, GETDA+23, GETDA+26
GMRCORG	MGMSG+1~, MGMSG+4*
GMRCPAR	MGMSG+1~, MGMSG+3*
GMRCRES	FILRES+1~, FILRES+2, FILRES+6, FILRES+10, FILRES+14
GMRCROOT	FILRES+1~, FILRES+4*, FILRES+6
GMRCROUT	FILEACT~, FILEACT+23
GMRCRP	FILEACT+10~, FILEACT+19, FILEACT+21
GMRCRSLT	TST+18~, TST+20, TST+22~, TST+24, APPACK+11~, APPACK+15
GMRCSITE	FILRES+1~, FILRES+7*, FILRES+11, FILRES+14
GMRCX	MGMSG+1~, MGMSG+2*
GRP	SENDMSG~, SENDMSG+9, SENDMSG+15
GRPIEN	SENDMSG+1~, SENDMSG+9*, SENDMSG+11, SENDMSG+13
>> HL("EID"	TST+20, TST+24, APPACK+15
>> HL("EIDS"	TST+20, TST+24, APPACK+15
>> HL("MID"	TST+19, TST+23, APPACK+14
>> HLMTIENS	TST+20, TST+24, APPACK+15
MEM	SENDMSG+1~, SENDMSG+11, SENDMSG+13
MSGI	DUPACT~, DUPACT+17*, DUPACT+30
MSGID	APPACK~, APPACK+13, APPACK+21, MGMSG~, MGMSG+2, MGMSG+4, SENDMSG~, SENDMSG+3, SENDMSG+4, SENDMSG+5 , SENDMSG+7
OBX	DUPACT~, DUPACT+20, DUPACT+21, DUPACT+22, DUPACT+23, DUPACT+24
ORC	DUPACT~, DUPACT+14, DUPACT+15
PROC	TST+10~, TST+11*, TST+12
RESIEN	FILRES+1~, FILRES+13~, FILRES+14*, FILRES+15, FILRES+16
RFIL	FILEACT+26~, FILEACT+28, FILEACT+33, DUPACT+19~, DUPACT+21, DUPACT+25
ROOT	FILEACT+26~, FILEACT+31, FILEACT+33, DUPACT+19~, DUPACT+24, DUPACT+25
RSITE	FILEACT+26~, FILEACT+30, FILEACT+33, DUPACT+19~, DUPACT+23, DUPACT+26, DUPACT+27
RSLT	FILEACT+26~, FILEACT+29, FILEACT+33, DUPACT+19~, DUPACT+22, DUPACT+25*, DUPACT+26, DUPACT+27
SERV	TST+14~, TST+15*, TST+16
TMPARR	FILEACT+51~, FILEACT+52, FILEACT+53, FILEACT+54, FILEACT+56~, FILEACT+57, FILEACT+58, FILEACT+59
U	FILRES+3, FILRES+4, FILRES+7, UPDORD+6, UPDORD+9, UPDORD+10, FILEACT+18, FILEACT+19, FILEACT+28, FILEACT+30 , FILEACT+31, FILEACT+32, FILEACT+38, FILEACT+40, FILEACT+62, TST+12, TST+16, GETDA+23, GETDA+25, DUPACT+21 , DUPACT+23, DUPACT+24, SENDMSG+4, SENDMSG+5, SENDMSG+11, SENDMSG+13
XMDUZ	SENDMSG+1~, SENDMSG+15*
XMSUB	SENDMSG+1~, SENDMSG+2*
XMTEXT	SENDMSG+1~, SENDMSG+2*
XMTEXT(1	SENDMSG+4, SENDMSG+8
XMTEXT(2	SENDMSG+5*
XMTEXT(3	SENDMSG+6*
XMY	SENDMSG+1~, SENDMSG+14
XMY(	SENDMSG+11, SENDMSG+13

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCIAC2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items