Routine: GMRCHL7A

Information

GMRCHL7A ;SLC/DCM,MA - Receive HL-7 Message from OERR ;Sep 15, 2020@06:44:39

Package	Total	Call Graph
Consult Request Tracking	4	$$FMDATE^GMRCHL7 (DC,MODIFY,NEW)^GMRCHL7B (EXIT,INIT,NTE,PID,PV1,REJECT,RETURN)^GMRCHL7U CPRSPURG^GMRCPURG
VA FileMan	1	^DIE

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Consult Request Tracking	3	GMRC RECEIVE GMRCIAC1 GMRCIACT
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
URG(X)	;Return Urgency give Z-code from HL-7 segment; see ORC+9
ORC(GMRCORC)	;Get fields from ORC segment and set into GMRC variables
OBR(GMRCOBR)	;Get fields from OBR segment and set into GMRC variables
ZSV(GMRCZSV)	;Get service from ZSV segment and set into GMRCSS
OBX(GMRCOBX)	;Get fields from OBX segment and set into GMRC variables
EN(MSG)	;Entry point to routine
RTN(GMRCORN,DA)	;Put ^OR(100, ien for order into ^GMR(123,

External References

Name	Field # of Occurrence
^DIE	RTN+2
$$FMDATE^GMRCHL7	ORC+11, ORC+13, OBR+19, OBR+21
DC^GMRCHL7B	EN+31
MODIFY^GMRCHL7B	EN+33
NEW^GMRCHL7B	EN+27
EXIT^GMRCHL7U	EN+25, EN+26, EN+30, EN+35
INIT^GMRCHL7U	EN+8
NTE^GMRCHL7U	EN+21
PID^GMRCHL7U	EN+15
PV1^GMRCHL7U	EN+16
REJECT^GMRCHL7U	EN+29
RETURN^GMRCHL7U	EN+28, EN+31
CPRSPURG^GMRCPURG	EN+26

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^GMR(123 - [#123]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	RTN+2
^ORD(101 - [#101]	ORC+10, OBR+20

Label References

Name	Line Occurrences
$$URG	ORC+10
OBR	EN+18
OBX	EN+20
ORC	EN+17
RTN	EN+32
ZSV	EN+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	RTN~, RTN+2
DFN	EN+4~
DIE	RTN+1*, RTN+3!
>> DILOCKTM	RTN+2
DR	RTN+1*, RTN+3!
GMRCACT	EN+4~
GMRCAD	ORC+13*, EN+6~
GMRCADD	EN+4~
>> GMRCAPP	ORC+8*
>> GMRCATN	OBR+21*
>> GMRCCMT(	OBX+22*
>> GMRCCMT(1	OBX+21*
GMRCDSID	ZSV+4*, EN+7~
GMRCERDT	ORC+11*, EN+7~
GMRCFAC	EN+4~, EN+9*
>> GMRCINTR	OBR+22*
>> GMRCMSG	OBX+6, OBX+7, OBX+9, OBX+14, OBX+17, OBX+21, EN+8, EN+9, EN+10, EN+13* , EN+14*, EN+15, EN+16, EN+17, EN+18, EN+19, EN+20, EN+21, EN+22
GMRCMTP	EN+4~, EN+10*
>> GMRCNATO	ORC+14*
GMRCNLTD	EN+7~
>> GMRCNOD	EN+8, EN+13, EN+14*, EN+20, EN+21, EN+22
GMRCO	ORC+12*, EN+4~, EN+21, EN+26, EN+28, EN+30, EN+31, EN+32
GMRCOBR	OBR~, OBR+10, OBR+14, OBR+18, OBR+19, OBR+20, OBR+21, OBR+22
GMRCOBX	OBX~, OBX+6, OBX+10, OBX+22
GMRCOCR	ORC+14*, EN+4~
>> GMRCODT	ORC+13, OBR+19
>> GMRCOFN	EN+22*
>> GMRCOID	OBX+7*, OBX+8, OBX+12, OBX+20
GMRCORC	ORC~, ORC+8, ORC+9, ORC+11, ORC+12, ORC+13, ORC+14
GMRCORFN	ORC+8*, EN+5~, EN+32
GMRCORN	RTN~
GMRCORNP	ORC+9*, EN+4~
GMRCOTXT	OBR+18, ZSV+3, EN+6~
GMRCPLCR	ORC+9*, EN+5~
>> GMRCPLI	OBR+20*
GMRCPNM	EN+4~
>> GMRCPR	OBR+10*, OBR+11, OBR+13
GMRCPRCD	OBX+19*, EN+6~
>> GMRCPRDG	OBX+14, OBX+15, OBX+18*
>> GMRCPRI	OBR+12, OBR+14, OBR+15*
GMRCRB	EN+5~
GMRCRECV	EN+7~, EN+10*, EN+12
GMRCREJ	EN+7~, EN+27, EN+29
>> GMRCRFQ(	OBX+10*
>> GMRCRFQ(1	OBX+9*
>> GMRCS123	OBR+22*
>> GMRCS38	ORC+9*
GMRCSBR	EN+6~
GMRCSEND	EN+5~, EN+9*
GMRCSS	OBR+12, ZSV+2, EN+6~
>> GMRCSTDT	OBR+21*
GMRCSTS	EN+5~
GMRCTRLC	ORC+8*, EN+5~, EN+6~, EN+21, EN+25, EN+26, EN+27, EN+28, EN+31, EN+32 , EN+33
>> GMRCTYPE	OBR+11*
>> GMRCURGI	ORC+9, ORC+10
>> GMRCVAL	OBX+7*
>> GMRCVTYP	OBX+7*, OBX+13, OBX+16
GMRCWARD	EN+5~
GMRCZSS	ZSV+1*, ZSV+2, EN+6~
GMRCZSV	ZSV~, ZSV+1, ZSV+3, ZSV+4
LN	OBX+10, OBX+22, OBX+24!
MSG	EN~, EN+21, EN+29
MSG(	OBX+6, OBX+10, OBX+22, EN+8, EN+14, EN+22!
ORC	EN+6~
ORIFN	EN+5~
PRDXSEG	OBX+17~*, OBX+18, OBX+19
>> SEP1	ORC+8, ORC+9, ORC+11, ORC+12, ORC+13, ORC+14, OBR+10, OBR+14, OBR+18, OBR+19 , OBR+20, OBR+21, OBR+22, ZSV+1, OBX+7, OBX+9, OBX+14, OBX+17, OBX+21, EN+9 , EN+10, EN+22
>> SEP2	ORC+8, ORC+9, ORC+11, ORC+12, ORC+14, OBR+10, OBR+14, OBR+18, ZSV+1, OBX+7
X	URG~, URG+1, URG+2, URG+3

Customize PDF page

Package: Consult Request Tracking