Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRCHL7I

Package: Consult Request Tracking

Routine: GMRCHL7I


Information

GMRCHL7I ;DAL/PHH - PROCESS HL7 RRI^I13 MESSAGES FROM HCPS ;8/7/14

Source Information

Source file <GMRCHL7I.m>

Call Graph

Call Graph

Call Graph Total: 8

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

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 HL*1.6*56 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

External References

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

Used in HL7 Interface

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All