Routine: GMRCHL7

Package	Total	Call Graph
Kernel	2	($$FMTHL7,$$HL7TFM,$$NOW)^XLFDT MSG^XQOR
Consult Request Tracking	1	(NTE,OBR,OBX)^GMRCHL72
Registration	1	$$SITE^VASITE

Package	Total	Caller Graph
Consult Request Tracking	19	GMRC101H GMRCA1 GMRCAAC GMRCADC GMRCAFRD GMRCASF GMRCDIS GMRCGUIA GMRCGUIB GMRCGUIC GMRCGUIS GMRCHL72 GMRCHL7A GMRCHL7U GMRCIAC2 GMRCMED GMRCR GMRCSTS1 GMRCTIU1

Entry Points

Name	Comments	DBIA/ICR reference
MSH(X)	;Format MSH segment of HL-7 message.
BLD(MSH,PID,PV1,ORC,OBR,ZSV,OBX,NTE,CTRLCD)	;Build the HL-7 message global to pass to OR
ZSV(GMRCO)	;build ZSV segment for at least forward
ORC(GMRCIEN,GMRCTRL,ORCPLCR,MAINT,GMRCDT)	;Build ORC segment of HL-7 msg
INIT
PID(GMRCIEN)	;Format the HL-7 PID segment
PV1(GMRCIEN,RMBED,VISIT)	;Format the HL-7 PV1 segment
FMDATE(DATE)	;Convert HL-7 formatted date to a Fileman formatted date
NTE(NTE,ND)	;Format the HL-7 NTE segment
HL7DT(DATE)	;Convert Fileman Date to HL-7 Date
EN(PATID,GMRCIEN,GMRCRTYP,RMBED,ORCTRL,GMRCPLCR,VISIT,GMRCOM,GRPUPD,ACTDT)	;;Main entry point

External References

Name	Field # of Occurrence
NTE^GMRCHL72	EN+27
OBR^GMRCHL72	EN+23
OBX^GMRCHL72	EN+26
$$SITE^VASITE	MSH+4
$$FMTHL7^XLFDT	HL7DT+2
$$HL7TFM^XLFDT	FMDATE+2
$$NOW^XLFDT	ORC+12
MSG^XQOR	EN+30

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PID+4
^GMR(123 - [#123]	PID+3, PV1+2, PV1+3, ORC+8, ORC+13, ORC+15, ZSV+2, ZSV+5, ZSV+7
^GMR(123.5 - [#123.5]	ZSV+4
^ORD(100.01 - [#100.01]	ORC+14
^ORD(101 - [#101]	ORC+8
^ORD(101.42 - [#101.42]	ORC+10

Label References

Name	Line Occurrences
$$HL7DT	PV1+3, ORC+11, ORC+21
$$MSH	EN+17
$$PID	EN+18
$$PV1	EN+19
BLD	EN+28
INIT	MSH+3
NTE	BLD+5
ORC	EN+20
ZSV	EN+25

Naked Globals

Name	Field # of Occurrence
^(0	PV1+3, ORC+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTDT	EN~, EN+20, EN+23
CTRLCD	BLD~
CTYPE	ZSV+1~, ZSV+5, ZSV+6, ZSV+7*, ZSV+8
DATE	HL7DT~, HL7DT+1, HL7DT+2, HL7DT+4, FMDATE~, FMDATE+1, FMDATE+2
DUZ(2	MSH+4
GMRCA	EN+15~
>> GMRCAUTH	EN+23
GMRCDPT	PID+3*, PID+4, PID+5, PID+6!
GMRCDT	ORC~, ORC+12, ORC+21, ORC+24
GMRCIEN	PID~, PID+3, PV1~, PV1+2, PV1+3, EN~, EN+18, EN+19, EN+20, EN+23 , EN+25, EN+26, EN+27, ORC~, ORC+8, ORC+13, ORC+15, ORC+23
GMRCMSG	EN+30, EN+31!
GMRCMSS	EN+14!
GMRCND	NTE+2, NTE+4, EN+31!
GMRCND1	NTE+2, NTE+3, NTE+4, EN+31!, BLD+11, BLD+12
GMRCNOD	EN+31!
GMRCO	ZSV~, ZSV+2, ZSV+5, ZSV+7
GMRCOM	EN~, EN+27
GMRCOM(0	EN+27
GMRCORFN	EN+31!
GMRCPLCR	EN~, EN+20
GMRCPLI	EN+15~, EN+31!
GMRCPR	EN+16~
GMRCPRI	EN+31!
GMRCPTN	PID+4*, PID+5, PID+6!
GMRCRTYP	EN~
GMRCSS	EN+16~
GMRCSTS	PV1+1~, PV1+3*, PV1+4, PV1+5!
GMRCTRL	ORC~, ORC+7*, ORC+18, ORC+22
GMRCTYPE	EN+16~
GMRCURG	ORC+6~, ORC+10*, ORC+20
GMRCURGI	EN+15~
GRPUPD	EN~, EN+20
HL7DT	EN+31!
HLQ	INIT*, MSH+3, EN+31!
HOSPLOC	PV1+2*, PV1+3, PV1+4, PV1+5!
J	EN+31!, BLD+3*
MAINT	ORC~, ORC+19
MSG	NTE+3, NTE+4, EN+15~, BLD+1*, BLD+2, BLD+3, BLD+4, BLD+6, BLD+7, BLD+10 , BLD+12
MSH	EN+15~, EN+17*, EN+28, BLD~
ND	NTE~, NTE+3, NTE+4, EN+31!, BLD+1, BLD+3, BLD+4, BLD+5, BLD+6, BLD+7 , BLD+10, BLD+12, BLD+13*
ND1	EN+31!
ND2	EN+31!
NOTIFY	EN+31!
NTE	NTE~, NTE+1, EN+15~, EN+28, BLD~, BLD+5
NTE(	NTE+3, NTE+4
NTE(0	NTE+1, BLD+5
OBR	EN+15~, EN+28, BLD~, BLD+6
OBX	EN+15~, EN+28, BLD~
OBX(	BLD+9, BLD+10, BLD+11, BLD+12
OBX(""	BLD+8
OBXND	EN+31!, BLD+8, BLD+9, BLD+10, BLD+11, BLD+12
OBXNO	EN+31!
ORC	EN+15~, EN+22, EN+28, BLD~, BLD+4, ORC+22, ORC+23, ORC+24
ORCACT	EN+31!, ORC+6~, ORC+14*
ORCDT	EN+31!, ORC+6~, ORC+8, ORC+11, ORC+24
ORCNATR	ORC+6~, ORC+17, ORC+18, ORC+19*, ORC+24
ORCPLCR	EN+16~, ORC~, ORC+24
ORCPRV	ORC+6~, ORC+8*, ORC+24
ORCSTS	ORC+6~, ORC+16*, ORC+23
ORCTRL	EN~, EN+13, EN+19, EN+20, EN+21*, EN+22, EN+23, EN+26, EN+27, EN+28
ORIEN	ORC+6~, ORC+15*, ORC+22
ORURG	EN+31!, ORC+8, ORC+9, ORC+10
PATID	EN~
PID	EN+15~, EN+18*, EN+28, BLD~
PV1	EN+15~, EN+19*, EN+28, BLD~
QUANT	ORC+6~, ORC+20*, ORC+23
REAS	ORC+6~, ORC+7*, ORC+18
RMBED	PV1~, PV1+4, EN~, EN+19
SEP1	INIT+1*, PV1+1~, EN+22, EN+31!
SEP2	INIT+1*, EN+31!
SEP3	INIT+1*, EN+31!
SEP4	INIT+1*, EN+31!
SEP5	INIT+1*, EN+31!
SERV	ZSV+1~, ZSV+2*, ZSV+3, ZSV+4, ZSV+8
SERVNM	ZSV+1~, ZSV+4*, ZSV+6, ZSV+8
STS	ORC+6~, ORC+13*, ORC+14, ORC+16
U	EN+21, ORC+7, ORC+14, ZSV+2, ZSV+4, ZSV+7, ZSV+8
VISIT	PV1~, PV1+3*, PV1+4, PV1+5!, EN~, EN+19
X	MSH~, MSH+2~, MSH+4, MSH+5, PID+2~, PID+5, PID+7, PV1+1~, PV1+4, PV1+6 , HL7DT+3~, HL7DT+4, HL7DT+5, FMDATE+3~
Y	PV1+1~, PV1+5!
ZSV	EN+15~, EN+28, BLD~, BLD+7, ZSV+8*

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCHL7

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 19

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: