Routine: GMRC101H

Information

GMRC101H ;SLC/DCM - SET UP HL-7 MESSAGE TO UPDATE OERR ORDERABLE ITEMS FILE WITH NEW CONSULT TYPE ;5/20/98 14:20

Package	Total	Call Graph
Consult Request Tracking	1	$$MSH^GMRCHL7

Package	Total	Caller Graph
Consult Request Tracking	4	GMRC101C GMRC1233 GMRCSRVS GMRCYP57

Name	Comments	DBIA/ICR reference
MFE(RSPLVL,ORXDA,GMRCPRNO,PFX)	;set MFE HL-7 segment
ZSY(ARRAY)	;set ZSY segment of the HL-7 segment; contains synonyms
SVC(SVCIEN,SVCNAME,EVCODE)	;format an HL-7 message that defines a new service
MFI(MTP)	;set MFI HL-7 segment
EN(ELC,RLECODE,ORDA,ORNAME,GMRCARRY,GMRCPRFX)	;entry point to set up HL-7 message to update orderable items file - file 101.43
BUILD	;build the HL-7 array into its export form

Name	Field # of Occurrence
$$MSH^GMRCHL7	EN+7, SVC+5

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	SVC+8, SVC+9

Name	Field # of Occurrence
ARRAY	ZSY~
ARRAY(	ZSY+2
ELC	EN~, EN+9
EVCODE	SVC~, SVC+6, SVC+7
GMRCARRY	EN~, EN+10, SVC+10, SVC+13!
GMRCARRY(	SVC+9*
GMRCMSG	SVC+4!
GMRCPRFX	EN~, EN+7, EN+9
GMRCPRNO	MFE~, MFE+2
HLQ	EN+12!, SVC+13!
MFE	EN+9, EN+12!, BUILD+4, SVC+7, SVC+13!
MFI	EN+8, EN+12!, BUILD+3, MFI+1, MFI+2, SVC+6*, SVC+13!
MSG	EN+12!, BUILD+1*, BUILD+2, BUILD+3, BUILD+4, BUILD+6, SVC+13!
MSGND	EN+12!
MSH	EN+7, EN+12!, BUILD+2, SVC+5, SVC+13!
MTP	MFI~, MFI+1
ND	EN+12!, BUILD+1, BUILD+2, BUILD+3, BUILD+4, BUILD+6, BUILD+9!, ZSY+3!, SVC+9, SVC+13!
ND1	EN+12!, BUILD+6, BUILD+7!, ZSY+1, ZSY+2, ZSY+3!, SVC+9, SVC+13!
ND2	EN+12!, ZSY+1, ZSY+2
ORDA	EN~, EN+9
ORNAME	EN~, EN+9
ORXDA	MFE~, MFE+2
PFX	MFE~
RLECODE	EN~, EN+8
RSPLVL	MFE~, MFE+2
SEP1	EN+12!, SVC+13!
SEP2	EN+12!, SVC+13!
SEP3	EN+12!, SVC+13!
SEP4	EN+12!, SVC+13!
SEP5	EN+12!, SVC+13!
SVCIEN	SVC~, SVC+7, SVC+8, SVC+9
SVCNAME	SVC~, SVC+7
X	MFE+1~, MFE+2*, MFE+3
ZSY	EN+12!, SVC+13!
ZSY(	BUILD+6, ZSY+2*
ZSY(0	BUILD+5