Routine: GMRCHL7I

Package	Total	Call Graph
Consult Request Tracking	2	$$ORTX^GMRCAU MSG^GMRCP
Text Integration Utility	2	GETSTAT^TIUPRF2 MAKEADD^TIUSRVP2
Health Level Seven	1	GENACK^HLMA1
Kernel	1	($$HL7TFM,$$NOW)^XLFDT
Master Patient Index VistA	1	($$GETDFN,$$GETICN)^MPIF001
VA FileMan	1	(,UPDATE,WP)^DIE

Package	Total	Caller Graph
Consult Request Tracking	1	GMRC HCP RRI-I13 CLIENT
Kernel	1	^ORD(101

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for routine
COPYMSG(Y)	; Copy HL7 Message to array Y (by reference) ; Based on HL1.656 VISTA HL7 Site Manager & Developer Manual ; Paragraph 9.7, page 9-4
CHKMSG(Y)	; Check Message for all required segments
PROCMSG(Y)	; Process message
RF1(RF1SEG,RETVAL)	; Process RF1 Segment
PID(PIDSEG,RETVAL)	; Process PID Segment
OBR(OBRSEG,RETVAL)	; Process OBR Segment
NTE(NTESEG,RETVAL)	; Process NTE Segment
ADDCMT(GMRCIEN,NTEARY)	; Add comment to file #123
TIUTXT(NTEARY,RETVAL)	; Return TIU-formatted Text
UPDUSRS(GMRCTIU,GMRCATIU)	; Update Users on Addendums
DEESCAPE(TXTSTR)	; De-escape delimiters ; (assuming "\" is the escape character): ; - field separator (de-escape from \F\) ; - component separator (de-escape from \S\) ; - repetition separator (de-escape from \R\) ; - escape character (de-escape from \E\) ; - subcomponent separator (de-escape from \T\) ; \F\ will be de-escaped only if the length of FS is 1.
SNDALRT(GMRCIEN,GMRCRJT)	; Send Alert ; GMRCRJT is optional, and is only set to 1 for a rejection status
ACK(STAT,MID,SID,SEG,FLD,CD,TXT,ACKTYP)	; Creates ACKs for HL7 Message

Name	Field # of Occurrence
^DIE	UPDUSRS+9
UPDATE^DIE	ADDCMT+13
WP^DIE	ADDCMT+17
$$ORTX^GMRCAU	SNDALRT+10
MSG^GMRCP	SNDALRT+11
GENACK^HLMA1	ACK+37
$$GETDFN^MPIF001	PROCMSG+18
$$GETICN^MPIF001	PROCMSG+22
GETSTAT^TIUPRF2	PROCMSG+51
MAKEADD^TIUSRVP2	PROCMSG+60
$$HL7TFM^XLFDT	ADDCMT+6
$$NOW^XLFDT	ADDCMT+2

HL7 Protocol Name	Call Tags
GMRC HCP RRI-I13 CLIENT	EN

FileNo	Call Tags
123.02	WP^DIE
^TIU(8925 - [#8925]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123 - [#123]	PROCMSG+13, PROCMSG+26, ADDCMT+16, SNDALRT+6, SNDALRT+9
^GMR(123.1 - [#123.1]	ADDCMT+3
^TIU(8925 - [#8925]	PROCMSG+55, UPDUSRS+2, UPDUSRS+3, UPDUSRS+4, UPDUSRS+8, UPDUSRS+9
^VA(200 - [#200]	ADDCMT+7

Name	Line Occurrences
$$CHKMSG	EN+10
$$DEESCAPE	NTE+4
$$PROCMSG	EN+11
ACK	EN+12, CHKMSG+11, CHKMSG+15, PROCMSG+15, PROCMSG+21, PROCMSG+24, PROCMSG+28, PROCMSG+33, PROCMSG+41, PROCMSG+57
ADDCMT	PROCMSG+43
COPYMSG	EN+9
NTE	PROCMSG+9
OBR	PROCMSG+8
PID	PROCMSG+7
RF1	PROCMSG+6
SNDALRT	PROCMSG+44, PROCMSG+45, PROCMSG+62
TIUTXT	PROCMSG+59
UPDUSRS	PROCMSG+61

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACKTYP	ACK~, ACK+30, ACK+34
ADDTXT	PROCMSG+2~, PROCMSG+59, PROCMSG+60
CD	ACK~, ACK+14*, ACK+31, ACK+35
CS	EN+1~, EN+3*, PID+2, OBR+3, DEESCAPE+27, ACK+26, ACK+31, ACK+35
DA	UPDUSRS+1~, UPDUSRS+6*
DFN	CHKMSG+1~
DIE	UPDUSRS+1~, UPDUSRS+6*
>> DILOCKTM	UPDUSRS+8
DR	UPDUSRS+1~, UPDUSRS+7*
EID	ACK+10~, ACK+18*, ACK+20, ACK+37
EIDS	ACK+10~, ACK+19*, ACK+20, ACK+37
ERR	ACK+10~
ES	EN+1~, EN+5*, DEESCAPE+21, DEESCAPE+23, DEESCAPE+26, DEESCAPE+29, DEESCAPE+32, DEESCAPE+33, DEESCAPE+35
FDA	ADDCMT+11!, ADDCMT+18!
FDA(1	ADDCMT+12*
FLD	ACK~, ACK+14*, ACK+26
FS	EN+1~, EN+2*, CHKMSG+9, PROCMSG+31, PROCMSG+36, PROCMSG+39, PROCMSG+44, PROCMSG+45, PROCMSG+48, PROCMSG+55 , RF1+2, RF1+3, RF1+4, PID+2, OBR+2, OBR+3, OBR+4, NTE+2, NTE+4, DEESCAPE+23 , DEESCAPE+24, ACK+17, ACK+26, ACK+27, ACK+31, ACK+35
GMRC1202	UPDUSRS+1~, UPDUSRS+3*
GMRC1204	UPDUSRS+1~, UPDUSRS+4*
GMRC1302	UPDUSRS+1~, UPDUSRS+2*
GMRCADUZ	SNDALRT+2~, SNDALRT+8*, SNDALRT+11
GMRCADUZ(	SNDALRT+7*
GMRCATIU	PROCMSG+2~, PROCMSG+60, PROCMSG+61, UPDUSRS~, UPDUSRS+6, UPDUSRS+8, UPDUSRS+9
GMRCCMT	ADDCMT+1~, ADDCMT+15*, ADDCMT+17
GMRCDFN	PROCMSG+2~, PROCMSG+18, PROCMSG+19, PROCMSG+21, PROCMSG+22, PROCMSG+26, SNDALRT+2~, SNDALRT+9, SNDALRT+11
GMRCERR	ADDCMT+1~
GMRCFDA	ADDCMT+1~, ADDCMT+12
GMRCFDA(	ADDCMT+2*, ADDCMT+4
GMRCFDA(1	ADDCMT+3*
GMRCFDA(2	ADDCMT+4, ADDCMT+6
GMRCFDA(3	ADDCMT+9*
GMRCFDA(4	ADDCMT+10*
GMRCICN	PROCMSG+1~, PROCMSG+17, PROCMSG+18, PROCMSG+22, PID+1~, PID+2, PID+3
GMRCIEN	PROCMSG+1~, PROCMSG+11, PROCMSG+13, PROCMSG+26, PROCMSG+39, PROCMSG+43, PROCMSG+44, PROCMSG+45, PROCMSG+62, RF1+1~ , RF1+3, RF1+4, ADDCMT~, ADDCMT+12, ADDCMT+16, ADDCMT+17, SNDALRT~, SNDALRT+6, SNDALRT+9, SNDALRT+10 , SNDALRT+11
GMRCLACT	ADDCMT+1~, ADDCMT+16*, ADDCMT+17
GMRCNTE	PROCMSG+1~, PROCMSG+9, PROCMSG+43, PROCMSG+59
GMRCNTE("WP"	PROCMSG+43
GMRCOBR	PROCMSG+1~, PROCMSG+8, PROCMSG+39, PROCMSG+50, PROCMSG+55
GMRCOIEN	OBR+1~, OBR+2*, OBR+4
GMRCORN	SNDALRT+2~, SNDALRT+5*, SNDALRT+11
GMRCORTX	SNDALRT+2~, SNDALRT+3, SNDALRT+4, SNDALRT+10*, SNDALRT+11
GMRCPID	PROCMSG+1~, PROCMSG+7, PROCMSG+17
GMRCPRXY	ADDCMT+1~, ADDCMT+7*, ADDCMT+8, ADDCMT+9, ADDCMT+10
GMRCRF1	PROCMSG+1~, PROCMSG+6, PROCMSG+11, PROCMSG+31, PROCMSG+36, PROCMSG+44, PROCMSG+45, PROCMSG+48
GMRCRJT	SNDALRT~, SNDALRT+4
GMRCRP	SNDALRT+2~, SNDALRT+6*, SNDALRT+7
GMRCSTS	RF1+1~, RF1+2*, RF1+4
GMRCTIU	PROCMSG+2~, PROCMSG+50*, PROCMSG+51, PROCMSG+55, PROCMSG+60, PROCMSG+61, UPDUSRS~, UPDUSRS+2, UPDUSRS+3, UPDUSRS+4
GMRCTIUS	PROCMSG+2~, PROCMSG+50, PROCMSG+51, PROCMSG+52, PROCMSG+55
GMRCTXT	NTE+1~, NTE+4, NTE+6, NTE+7, NTE+9, NTE+10, NTE+12, NTE+13, NTE+17, NTE+18* , NTE+20
GMRCTYP	OBR+1~, OBR+3*, OBR+4
>> HL("ECH"	EN+3, EN+4, EN+5, EN+6, DEESCAPE+13
>> HL("EID"	ACK+18
>> HL("EIDS"	ACK+19
>> HL("FS"	EN+2
>> HL("MID"	EN+7
HLA	ACK+10~
HLA("HLA"	ACK+17, ACK+25, ACK+26, ACK+27, ACK+31, ACK+35
HLCHAR	DEESCAPE+9~, DEESCAPE+19*, DEESCAPE+21, DEESCAPE+38
HLCHAR23	DEESCAPE+9~, DEESCAPE+20, DEESCAPE+22, DEESCAPE+23, DEESCAPE+26, DEESCAPE+29, DEESCAPE+32, DEESCAPE+35
HLDATA	DEESCAPE+9~, DEESCAPE+10*, DEESCAPE+11, DEESCAPE+14, DEESCAPE+16, DEESCAPE+19, DEESCAPE+22
HLEN	DEESCAPE+9~, DEESCAPE+16*, DEESCAPE+18
HLENCHR	DEESCAPE+9~, DEESCAPE+13*, DEESCAPE+14, DEESCAPE+35
HLI	DEESCAPE+9~, DEESCAPE+18, DEESCAPE+19, DEESCAPE+22, DEESCAPE+25, DEESCAPE+28, DEESCAPE+31, DEESCAPE+34, DEESCAPE+37
>> HLMTIENS	ACK+20, ACK+37
>> HLNEXT	COPYMSG+3, COPYMSG+6
HLNODE	EN+1~, EN+8*, COPYMSG+7
HLNODE(	COPYMSG+8, COPYMSG+9
HLOUT	DEESCAPE+9~, DEESCAPE+17, DEESCAPE+24, DEESCAPE+27, DEESCAPE+30, DEESCAPE+33, DEESCAPE+36, DEESCAPE+38*, DEESCAPE+40
HLQUIT	EN+1~, EN+8*, COPYMSG+6
I	COPYMSG+5~, COPYMSG+6, COPYMSG+7, COPYMSG+9, CHKMSG+1~, CHKMSG+4, CHKMSG+5, CHKMSG+6, CHKMSG+9, PROCMSG+1~ , PROCMSG+3, PROCMSG+4, PROCMSG+5, PROCMSG+6, PROCMSG+7, PROCMSG+8, PROCMSG+9, NTE+1~, NTE+2, NTE+3 , NTE+20, TIUTXT+1~, TIUTXT+2, TIUTXT+3, TIUTXT+4
I13MSG	EN+1~, EN+9, EN+10, EN+11
ICN	CHKMSG+1~
J	COPYMSG+5~, COPYMSG+7, COPYMSG+8, COPYMSG+9
MID	EN+1~, EN+7, EN+12, CHKMSG+11, CHKMSG+15, PROCMSG+15, PROCMSG+21, PROCMSG+24, PROCMSG+28, PROCMSG+33 , PROCMSG+41, PROCMSG+57, ACK~, ACK+13, ACK+17
NTEARY	ADDCMT~, TIUTXT~
NTEARY("Datetime"	ADDCMT+5, ADDCMT+6
NTEARY("WP"	ADDCMT+15, TIUTXT+3, TIUTXT+4
NTESEG	NTE~, NTE+2, NTE+4
OBRSEG	OBR~, OBR+2, OBR+3
PIDSEG	PID~, PID+2
QUIT	CHKMSG+1~, CHKMSG+2, CHKMSG+3, CHKMSG+10, CHKMSG+14, CHKMSG+16, PROCMSG+1~, PROCMSG+3, PROCMSG+13, PROCMSG+14* , PROCMSG+19, PROCMSG+20, PROCMSG+22, PROCMSG+23, PROCMSG+26, PROCMSG+27, PROCMSG+31, PROCMSG+32, PROCMSG+40, PROCMSG+56 , PROCMSG+64
REQSEG	CHKMSG+1~, CHKMSG+3*, CHKMSG+7, CHKMSG+15
RES	ACK+10~, ACK+22*, ACK+37
RETVAL	RF1~, RF1+4, PID~, PID+3, OBR~, OBR+4*, NTE~, TIUTXT~
RETVAL("Datetime"	NTE+13, NTE+15
RETVAL("TEXT"	TIUTXT+4*
RETVAL("WP"	NTE+20*
RF1SEG	RF1~, RF1+2, RF1+3
RS	EN+1~, EN+4*, DEESCAPE+30
SEG	ACK~, ACK+13*, ACK+26
SEGFND	CHKMSG+1~, CHKMSG+4, CHKMSG+5, CHKMSG+7, CHKMSG+13
SEGTYP	CHKMSG+1~, CHKMSG+6, CHKMSG+7, CHKMSG+9, PROCMSG+1~, PROCMSG+5, PROCMSG+6, PROCMSG+7, PROCMSG+8, PROCMSG+9
SID	ACK~, ACK+13*, ACK+24, ACK+26
SS	EN+1~, EN+6*, DEESCAPE+36
STAT	ACK~, ACK+13*, ACK+17
TXT	ACK~, ACK+14*, ACK+31, ACK+35
TXTSTR	DEESCAPE~, DEESCAPE+10
X	UPDUSRS+1~
Y	COPYMSG~, CHKMSG~, PROCMSG~
Y(	COPYMSG+7, COPYMSG+9, CHKMSG+5, CHKMSG+6, CHKMSG+9, PROCMSG+4, PROCMSG+5, PROCMSG+6, PROCMSG+7, PROCMSG+8 , PROCMSG+9

Customize PDF page

Package: Consult Request Tracking

Routine: GMRCHL7I

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: