Routine: GMRCISG1

Information

GMRCISG1 ;SLC/JFR - BUILD IFC HL7 SEGMENTS CONT'D ;10/31/01 09:00

Source Information

Source file <GMRCISG1.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Kernel	3	($$FMTHL7,$$NOW)^XLFDT $$STA^XUAF4 $$KSP^XUPARAM
Consult Request Tracking	2	$$BUILD^GMRCISEG ($$CODEOI,$$HLNAME,$$URG)^GMRCIUTL
Health Level Seven	1	$$HLPHONE^HLFNC
Registration	1	$$SITE^VASITE
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 5

Package	Total	Caller Graph
Consult Request Tracking	5	GMRCIBKG GMRCIEV1 GMRCIEVT GMRCITST GMRCIUTL

Entry Points

Name	Comments	DBIA/ICR reference
OBR(GMRCO,GMRCACT)	; build an OBR seg for new order or resubmit ; Input: ; GMRCO = ien from file 123 ; GMRCACT = ien from 40 multiple of action (only on resubmit or fwd)
OBXPD(GMRCO)	; create OBX segment for the prov. dx ; Input: ; GMRCO = ien from file 123 of order to send remotely
ORCRESP(GMRCO,GMRCOC,GMRCOS)	;build ORC for app ACK msgs ; Input: ; GMRCO = ien from file 123 of entry responding to ; GMRCOC = order control to put into segment ; GMRCOS = HL7 encoded order status to put in message ; ; Output: ; ORC segment to use in response message
NWORC(GMRCO)	; build ORC seg for a new order ; Input: ; GMRCO = ien from file 123 of order to send remotely
OBRTST(GMRCOI,GMRCTYP)	; build OBR seg for testing imp. ; Input: ; GMRCOI = ien from file 123.5 or 123.3 ; GMRCTYP = "P" or "C" (procedure or consult service)
ORCTST()	;build ORC for testing imp.

External References

Name	Field # of Occurrence
$$GET1^DIQ	NWORC+14, NWORC+15
$$BUILD^GMRCISEG	ORCRESP+15, NWORC+25, OBXPD+12, OBXPD+16, OBR+46, ORCTST+12, OBRTST+20
$$CODEOI^GMRCIUTL	OBR+38
$$HLNAME^GMRCIUTL	NWORC+12, NWORC+13, OBR+41, OBR+44
$$URG^GMRCIUTL	NWORC+10
$$HLPHONE^HLFNC	NWORC+16
$$SITE^VASITE	NWORC+23
$$FMTHL7^XLFDT	NWORC+11, NWORC+17, OBR+40, OBR+43, ORCTST+9
$$NOW^XLFDT	ORCTST+9
$$STA^XUAF4	ORCRESP+11, ORCRESP+12, ORCRESP+14, NWORC+9, OBR+12, OBR+15, OBR+18, OBR+20, OBR+24, OBR+32 , ORCTST+8, OBRTST+9
$$KSP^XUPARAM	ORCRESP+12, ORCRESP+14, NWORC+9, OBR+12, OBR+20, OBR+24, OBR+32, ORCTST+8, OBRTST+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	ORCRESP+11, NWORC+11, NWORC+12, NWORC+13, NWORC+14, NWORC+15, NWORC+17, NWORC+18, NWORC+20, OBXPD+7 , OBXPD+9, OBXPD+12, OBXPD+14, OBXPD+15, OBR+10, OBR+15, OBR+18, OBR+21, OBR+25, OBR+26 , OBR+29, OBR+33, OBR+40, OBR+41, OBR+43, OBR+44, OBR+45
^GMR(123.3 - [#123.3]	OBRTST+18
^GMR(123.5 - [#123.5]	OBR+27, OBR+35, OBRTST+14

Naked Globals

Name	Field # of Occurrence
^(	NWORC+20
^(0	ORCRESP+11, OBR+15, OBR+18
^(30	OBXPD+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTV	NWORC+19~, NWORC+20*, NWORC+21
GMRCACT	OBR~, OBR+13, OBR+21, OBR+26, OBR+29, OBR+33, OBR+39, OBR+40, OBR+41, OBR+42
GMRCO	ORCRESP~, ORCRESP+11, ORCRESP+12, NWORC~, NWORC+9, NWORC+10, NWORC+11, NWORC+12, NWORC+13, NWORC+14 , NWORC+15, NWORC+17, NWORC+18, NWORC+20, OBXPD~, OBXPD+7, OBXPD+9, OBXPD+12, OBXPD+14, OBXPD+15 , OBR~, OBR+10, OBR+12, OBR+15, OBR+18, OBR+20, OBR+21, OBR+25, OBR+26, OBR+29 , OBR+33, OBR+38, OBR+40, OBR+41, OBR+43, OBR+44, OBR+45
GMRCOC	ORCRESP~, ORCRESP+10
GMRCOI	OBRTST~, OBRTST+14, OBRTST+15, OBRTST+18, OBRTST+19
GMRCOS	ORCRESP~, ORCRESP+13
GMRCPAG	NWORC+7~, NWORC+15*, NWORC+16
GMRCPCS	ORCRESP+9~, ORCRESP+15, NWORC+7~, NWORC+25, OBXPD+8~, OBXPD+12, OBXPD+16, OBR+8~, OBR+46, ORCTST+6~ , ORCTST+12, OBRTST+8~, OBRTST+20
GMRCPCS(1	ORCRESP+10, NWORC+8, OBXPD+9, OBR+9, ORCTST+7, OBRTST+10
GMRCPCS(10	NWORC+12, ORCTST+10
GMRCPCS(11	OBXPD+11*
GMRCPCS(12	NWORC+13*
GMRCPCS(14	NWORC+16*
GMRCPCS(15	NWORC+17*
GMRCPCS(16	NWORC+22, OBR+41, OBR+44, ORCTST+11
GMRCPCS(17	ORCRESP+14, NWORC+24
GMRCPCS(18	OBR+45*
GMRCPCS(2	ORCRESP+11, NWORC+9, OBXPD+9, OBR+12, OBR+18, OBR+19, ORCTST+8, OBRTST+11
GMRCPCS(3	ORCRESP+12, OBXPD+10, OBR+15, OBR+16, OBR+20*
GMRCPCS(4	OBXPD+10, OBR+28, OBR+36, OBR+37, OBR+38, OBRTST+15, OBRTST+19
GMRCPCS(5	ORCRESP+13, OBXPD+14, OBXPD+15*
GMRCPCS(6	OBR+40, OBR+43
GMRCPCS(7	NWORC+10*
GMRCPCS(9	NWORC+11, ORCTST+9
GMRCPHN	NWORC+7~, NWORC+14*, NWORC+16
GMRCROL	OBR+8~, OBR+10*, OBR+11, OBR+14, OBR+17, OBR+25, OBR+26
GMRCRP	ORCTST+6~
GMRCTYP	OBRTST~, OBRTST+12, OBRTST+16
I	NWORC+19~, NWORC+20
PROC	OBRTST+17~, OBRTST+18*, OBRTST+19
SERV	OBR+23~, OBR+25, OBR+26, OBR+27, OBR+28, OBR+31~, OBR+33, OBR+34, OBR+35, OBR+36 , OBRTST+13~, OBRTST+14, OBRTST+15
SERVNM	OBR+23~, OBR+27, OBR+28, OBR+31~, OBR+35, OBR+36
SITE	ORCRESP+9~, NWORC+7~, NWORC+23, NWORC+24, OBR+23~, OBR+24, OBR+28, OBR+31~, OBR+32, OBR+36 , ORCTST+6~, OBRTST+8~, OBRTST+9, OBRTST+11, OBRTST+15, OBRTST+19
U	ORCRESP+11, ORCRESP+12, NWORC+9, NWORC+10, NWORC+12, NWORC+13, NWORC+14, NWORC+15, NWORC+17, NWORC+20 , NWORC+24, OBXPD+14, OBXPD+15, OBR+10, OBR+12, OBR+15, OBR+16, OBR+18, OBR+19, OBR+20 , OBR+21, OBR+25, OBR+26, OBR+27, OBR+28, OBR+29, OBR+33, OBR+35, OBR+36, OBR+40 , OBR+41, OBR+43, OBR+44, OBR+45, ORCTST+8, OBRTST+11, OBRTST+14, OBRTST+15, OBRTST+18, OBRTST+19

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCISG1

Call Graph Total: 8

Caller Graph Total: 5