Routine: GMRCIUTL

Package	Total	Call Graph
Kernel	4	$$NOW^XLFDT ($$FMNAME,$$HLNAME,$$NAMEFMT)^XLFNAME ($$IEN,$$NS,$$STA)^XUAF4 $$KSP^XUPARAM
Consult Request Tracking	3	$$MSA^GMRCISEG $$ORCRESP^GMRCISG1 GETSVC^GMRCPR0
VA Fileman	2	$$FIND1^DIC UPDATE^DIE
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Consult Request Tracking	8	GMRCIAC1 GMRCIAC2 GMRCIACT GMRCIEV1 GMRCIEVT GMRCIMSG GMRCISEG GMRCISG1

Entry Points

Name	Comments	DBIA/ICR reference
GETPROC(GMRCSID)	;return procedure and sercvice ordered by IFC
DIV(LOC)	; get the division from a hospital location ; Input -- LOC HOSPITAL LOCATION file (#44) IEN ; Output -- INSTITUTION file (#4) IEN^INSTITUTION file (#4) NAME
CODEOI(GMRCDA)	; look at ordered procedure or service and code it for IFC msg
ERR601	;Multiple services matched to procedure
ERR501	;Error in procedure name
LOGMSG(GMRCO,GMRCACT,GMRCMSG,GMRCER)	;create or update IFC MESSAGE LOG entry
VALMSG(GMRCPID,GMRCORC)	; determine if message is valid
ERR702	;Service is Disabled
ERR703	;Procedure is Inactive
ERR701	;Error in Service name
ERR901	;Unable to update record successfully
ERR902	;Earlier pending transactions
ERR903	;HL Logical Link not found
ERR904	;VistA HL7 unable to send transaction
ERR801	;Inappropriate action for specified request
ERR802	;Duplicate, activity not filed
RESP(GMRCAC,GMRCMID,GMRCOC,GMRCDA,GMRCERR)	;build and send appl ACK/NAK ; Input: ; GMRCAC = acknowledgement code (AA or AR) ; GMRCMID = message id from original msg ; GMRCOC = order control from original msg ORC ; GMRCDA = ien of consult being worked on ; GMRCERR = only defined if an error is found
GETSERV(GMRCSRV)	;return local service from IFC service in HL7 msg
UNHLNAME(GMRCNM,GMRCNMC,STD,DEL)	;return regular name from HL7 name
TRIMWP(ARRAY,PIECE)	;trim OBX or NTE segments so that only comment remains ; Input: ; ARRAY = the array in which the segments are contained ; ex. ^TMP("GMRCIF",541083753,"OBX",3,3)=3\|TX\|^COMMENTS^\|3\|text " ; PIECE = the piece in the array where the text lives ; ; Output: ; trimmed array ; ex. ^TMP("GMRCIF",541083753,"OBX",3,3)="text"
ERR202	;Local or unknown MPI identifiers
ERR201	;Unknown Patient
URG(GMRCO)	;return urgency code to send in HL7 msg ; Input: ; GMRCO = consult ien from file 123
ERR101	;Unknown Consult/Procedure request
HLNAME(GMRCWHO)
ERR401	;Procedure not matched to receiving facility
ERR301	;Service not matched to receiving facility

External References

Name	Field # of Occurrence
$$FIND1^DIC	GETSERV+7, GETPROC+8
UPDATE^DIE	LOGMSG+14, LOGMSG+25
$$MSA^GMRCISEG	RESP+8
$$ORCRESP^GMRCISG1	RESP+10
GETSVC^GMRCPR0	GETPROC+17
$$SITE^VASITE	DIV+7
$$NOW^XLFDT	LOGMSG+10, LOGMSG+17
$$FMNAME^XLFNAME	UNHLNAME+16
$$HLNAME^XLFNAME	HLNAME+6
$$NAMEFMT^XLFNAME	UNHLNAME+17
$$IEN^XUAF4	GETSERV+11, GETPROC+12
$$NS^XUAF4	DIV+11
$$STA^XUAF4	CODEOI+9
$$KSP^XUPARAM	CODEOI+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123.3 - [#123.3]	FIND1^DIC
^GMR(123.5 - [#123.5]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	URG+17, CODEOI+10, CODEOI+11, CODEOI+14, LOGMSG+18
^GMR(123.3 - [#123.3]	GETPROC+14, GETPROC+21, CODEOI+12
^GMR(123.5 - [#123.5]	GETSERV+13, GETSERV+16, CODEOI+15
^GMR(123.6 - [#123.6]	LOGMSG+8, LOGMSG+12
^ORD(101 - [#101]	URG+18
^ORD(101.42 - [#101.42]	URG+21, URG+23
^SC - [#44]	DIV+5
^VA(200 - [#200]	HLNAME+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	TRIMWP~, TRIMWP+11, TRIMWP+12
DEL	UNHLNAME~, UNHLNAME+14*
DUZ(2	DIV+11
ERROR	GETSERV+6~, GETSERV+8, GETSERV+9, GETSERV+12, GETSERV+14, GETSERV+15, GETSERV+17, GETSERV+18, GETPROC+7~, GETPROC+9 , GETPROC+10, GETPROC+13, GETPROC+15, GETPROC+16, GETPROC+18, GETPROC+20, GETPROC+22*, GETPROC+23
FDA	LOGMSG+7~
FDA(1	LOGMSG+10, LOGMSG+11, LOGMSG+12, LOGMSG+13, LOGMSG+17, LOGMSG+18, LOGMSG+19, LOGMSG+20, LOGMSG+21, LOGMSG+22 , LOGMSG+23, LOGMSG+24
GMRC	HLNAME+2~, HLNAME+6
GMRC("FIELD"	HLNAME+5*
GMRC("FILE"	HLNAME+3*
GMRC("IENS"	HLNAME+4*
GMRCAC	RESP~, RESP+8
GMRCACT	LOGMSG~, LOGMSG+8, LOGMSG+21
GMRCDA	VALMSG+12~, CODEOI~, CODEOI+10, CODEOI+11, CODEOI+14, RESP~, RESP+10
GMRCDIV	DIV+4~, DIV+9, DIV+10, DIV+11, DIV+12
GMRCER	LOGMSG~, LOGMSG+13, LOGMSG+24
GMRCERR	RESP~, RESP+8, LOGMSG+7~
GMRCHL	DIV+4~, DIV+5*, DIV+6, DIV+7
GMRCINST	VALMSG+12~
GMRCLG	LOGMSG+7~, LOGMSG+8*, LOGMSG+9, LOGMSG+10, LOGMSG+11, LOGMSG+12, LOGMSG+13
GMRCMID	RESP~, RESP+8
GMRCMSG	LOGMSG~, LOGMSG+11, LOGMSG+19
GMRCNM	UNHLNAME~, UNHLNAME+15
GMRCNMC	UNHLNAME~, UNHLNAME+15, UNHLNAME+16, UNHLNAME+17*
GMRCO	URG~, URG+17, LOGMSG~, LOGMSG+8, LOGMSG+18, LOGMSG+20
GMRCOC	RESP~, RESP+9, RESP+10
GMRCOI	CODEOI+8~, CODEOI+12, CODEOI+13, CODEOI+15, CODEOI+16
GMRCORC	VALMSG~
GMRCPID	VALMSG~
GMRCPR	GETPROC+7~, GETPROC+8, GETPROC+9, GETPROC+14, GETPROC+17, GETPROC+21, GETPROC+23, CODEOI+8~, CODEOI+11, CODEOI+12
GMRCSID	GETPROC~, GETPROC+8, GETPROC+11
GMRCSIT	CODEOI+8~, CODEOI+9*, CODEOI+12, CODEOI+15
GMRCSRV	GETSERV~, GETSERV+7, GETSERV+10
GMRCSS	GETPROC+7~, GETPROC+17, GETPROC+18, GETPROC+19, GETPROC+23, CODEOI+8~, CODEOI+14, CODEOI+15
GMRCSS(1	GETPROC+19
GMRCSTN	DIV+4~, DIV+7*, DIV+8, DIV+9
GMRCWHO	HLNAME~, HLNAME+1, HLNAME+4
>> HLA("HLA"	RESP+8, RESP+10
I	TRIMWP+10~, TRIMWP+11, TRIMWP+12
LOC	DIV~, DIV+5
ORURG	URG+16~, URG+20, URG+21, URG+22, URG+23
PIECE	TRIMWP~, TRIMWP+12
PROT	URG+16~, URG+17*, URG+18
SENDER	GETSERV+6~, GETSERV+10, GETSERV+11, GETSERV+13, GETPROC+7~, GETPROC+11, GETPROC+12, GETPROC+14
SERV	GETSERV+6~, GETSERV+7*, GETSERV+8, GETSERV+13, GETSERV+16, GETSERV+18
STD	UNHLNAME~, UNHLNAME+17
U	DIV+5, DIV+8, DIV+9, DIV+11, UNHLNAME+14, URG+17, URG+18, GETSERV+7, GETSERV+10, GETSERV+16 , GETPROC+8, GETPROC+11, GETPROC+21, GETPROC+23, CODEOI+10, CODEOI+11, CODEOI+12, CODEOI+14, CODEOI+15, LOGMSG+12 , LOGMSG+18
URG	URG+16~, URG+18*, URG+19, URG+20

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCIUTL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 8

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Local Variables

Legend: