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: GMRCCCRI

Package: Consult Request Tracking

Routine: GMRCCCRI


Information

GMRCCCRI ;DAL/PHH/MBJ - PROCESS HL7 RRI^I13 MESSAGES FROM HSRM ;8/29/18

Source Information

Source file <GMRCCCRI.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Health Level Seven 2 $$FMDATE^HLFNC  GENACK^HLMA1  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  $$LOW^XLFSTR  
Consult Request Tracking 1 (ANAK,MESSAGE2)^GMRCCCR1  
MailMan 1 ^XMD  
Master Patient Index VistA 1 ($$GETDFN,$$GETICN)^MPIF001  
VA FileMan 1 (FILE,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: 3

Package Total Caller Graph
Consult Request Tracking 2 GMRC HSRM-CCRA REF-I13 CLIENT  GMRC HSRM-CCRA REF-I14 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
PRD(PRDSEG,RETVAL) ; Process PRD segment
ACK(STAT,MID,SID,SEG,FLD,CD,TXT,ACKTYP) ; Creates ACKs for HL7 Message
MESSAGE(MSGID,ERRARY) ; Send a MailMan Message with the errors

External References

Name Field # of Occurrence
FILE^DIE PROCMSG+49, PROCMSG+55
UPDATE^DIE PROCMSG+62, PROCMSG+72, PROCMSG+82, PROCMSG+92
WP^DIE PROCMSG+64, PROCMSG+74, PROCMSG+84, PROCMSG+94
ANAK^GMRCCCR1 PROCMSG+35
MESSAGE2^GMRCCCR1 PROCMSG+36
$$FMDATE^HLFNC MESSAGE+2
GENACK^HLMA1 ACK+47
$$GETDFN^MPIF001 PROCMSG+17
$$GETICN^MPIF001 PROCMSG+21
$$FMTE^XLFDT PROCMSG+30, MESSAGE+2
$$NOW^XLFDT PROCMSG+30
$$LOW^XLFSTR PROCMSG+32
^XMD MESSAGE+21

Used in HL7 Interface

HL7 Protocol Name Call Tags
GMRC HSRM-CCRA REF-I13 CLIENT EN
GMRC HSRM-CCRA REF-I14 CLIENT EN

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
123.02 WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(123 - [#123] PROCMSG+12, PROCMSG+25
^GMR(123.1 - [#123.1] PROCMSG+53
^VA(200 - [#200] PROCMSG+33

Label References

Name Line Occurrences
$$CHKMSG EN+10
$$PROCMSG EN+11
ACK EN+12, CHKMSG+11, CHKMSG+15, PROCMSG+14, PROCMSG+20, PROCMSG+23, PROCMSG+27, PROCMSG+42
COPYMSG EN+9
MESSAGE ACK+44
PID PROCMSG+7
PRD PROCMSG+8
RF1 PROCMSG+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT EN+1~, PROCMSG+34*, PROCMSG+36
ACKTYP ACK~, ACK+31, ACK+35
ADDTXT PROCMSG+2~
CD ACK~, ACK+14*, ACK+32, ACK+37
CS EN+1~, EN+3*, PROCMSG+39, RF1+4, RF1+5, RF1+6, PID+5, PID+6, PRD+2, PRD+3
, ACK+27, ACK+32, ACK+37
DATE MESSAGE+1~, MESSAGE+2*, MESSAGE+6
DFN CHKMSG+1~
DIFROM MESSAGE+1~
DUZ MESSAGE+1~
EID ACK+10~, ACK+18*, ACK+20, ACK+47
EIDS ACK+10~, ACK+19*, ACK+20, ACK+47
ERR1 EN+1~, PROCMSG+34*
ERRARY ACK+25!, ACK+44, MESSAGE~
ERRARY( ACK+40*, ACK+42*, ACK+43*, MESSAGE+9, MESSAGE+11, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16
, MESSAGE+17
ERRI ACK+10~, ACK+36*, ACK+39*, ACK+40, ACK+42, ACK+43
ES EN+1~, EN+5*
FDA PROCMSG+48!, PROCMSG+50!, PROCMSG+54!, PROCMSG+55!, PROCMSG+65!, PROCMSG+75!, PROCMSG+85!, PROCMSG+95!
FDA(123 PROCMSG+48*, PROCMSG+54*
FLD ACK~, ACK+14*, ACK+27
FS EN+1~, EN+2*, CHKMSG+9, PROCMSG+10, RF1+2, RF1+3, RF1+4, RF1+5, RF1+6, RF1+7
, PID+2, PRD+2, PRD+3, ACK+17, ACK+27, ACK+28, ACK+32, ACK+37
GMRCATIU PROCMSG+2~
GMRCCIEN PROCMSG+65!, PROCMSG+75!, PROCMSG+85!, PROCMSG+95!, PROCMSG+97!
GMRCCIEN(1 PROCMSG+64, PROCMSG+74, PROCMSG+84, PROCMSG+94
GMRCDFN PROCMSG+2~, PROCMSG+17*, PROCMSG+18, PROCMSG+20, PROCMSG+21, PROCMSG+25, PROCMSG+35
GMRCDT PROCMSG+30*, PROCMSG+58, PROCMSG+60, PROCMSG+69, PROCMSG+70, PROCMSG+79, PROCMSG+80, PROCMSG+89, PROCMSG+90, PROCMSG+97!
GMRCDT1 PROCMSG+30*, PROCMSG+35, PROCMSG+63, PROCMSG+97!
GMRCEML PROCMSG+1~, PROCMSG+3*, PROCMSG+32, PROCMSG+35, PRD+1, PRD+3*, PRD+4
GMRCERR PROCMSG+65!, PROCMSG+75!, PROCMSG+85!, PROCMSG+95!
GMRCFDA PROCMSG+50!, PROCMSG+65!, PROCMSG+75!, PROCMSG+85!, PROCMSG+95!, PROCMSG+97!
GMRCFDA( PROCMSG+58*, PROCMSG+59*, PROCMSG+60*, PROCMSG+61*, PROCMSG+69*, PROCMSG+70*, PROCMSG+71*, PROCMSG+79*, PROCMSG+80*, PROCMSG+81*
, PROCMSG+89*, PROCMSG+90*, PROCMSG+91*
GMRCI PID+1~, PID+4*, PID+5, PID+6
GMRCICN PROCMSG+1~, PROCMSG+16*, PROCMSG+17, PROCMSG+21, PROCMSG+35, PID+1~, PID+2*, PID+3, PID+5, PID+6*
, PID+7
GMRCIEN PROCMSG+1~, PROCMSG+10*, PROCMSG+12, PROCMSG+25, PROCMSG+35, PROCMSG+36, PROCMSG+48, PROCMSG+54, PROCMSG+58, PROCMSG+59
, PROCMSG+60, PROCMSG+61, PROCMSG+64, PROCMSG+69, PROCMSG+70, PROCMSG+71, PROCMSG+74, PROCMSG+79, PROCMSG+80, PROCMSG+81
, PROCMSG+84, PROCMSG+89, PROCMSG+90, PROCMSG+91, PROCMSG+94, RF1+1~, RF1+3*, RF1+7
GMRCJ PID+1~, PID+2*, PID+3, PID+4, PID+6
GMRCNTE PROCMSG+1~
GMRCOBR PROCMSG+1~
GMRCPID PROCMSG+1~, PROCMSG+7, PROCMSG+16
GMRCPRD PROCMSG+1~, PROCMSG+8
GMRCRF1 PROCMSG+1~, PROCMSG+6, PROCMSG+10
GMRCSTID PROCMSG+52*, PROCMSG+53*, PROCMSG+54, PROCMSG+59, PROCMSG+97!
GMRCSTS PROCMSG+10*, PROCMSG+39, PROCMSG+45*, PROCMSG+46, PROCMSG+48, PROCMSG+63, RF1+1~, RF1+2*, RF1+7
GMRCTIU PROCMSG+2~
GMRCTIUS PROCMSG+2~
GMRCTXT PROCMSG+65!, PROCMSG+75!, PROCMSG+85!, PROCMSG+95!, PROCMSG+97!
GMRCTXT(1 PROCMSG+63*, PROCMSG+73*, PROCMSG+83*, PROCMSG+93*
GMRCUSER PROCMSG+32*, PROCMSG+33*, PROCMSG+34, PROCMSG+61, PROCMSG+71, PROCMSG+81, PROCMSG+91, PROCMSG+97!
>> HL("DTM" MESSAGE+2
>> HL("ECH" EN+3, EN+4, EN+5, EN+6
>> HL("EID" ACK+18
>> HL("EIDS" ACK+19
>> HL("FS" EN+2
>> HL("MID" EN+7
HLA ACK+10~
HLA("HLA" ACK+17*, ACK+26*, ACK+27*, ACK+28*, ACK+32*, ACK+37*, ACK+40, ACK+41, ACK+42, ACK+43
>> HLMTIENS ACK+20, ACK+47
>> HLNEXT COPYMSG+3, COPYMSG+6
HLNODE EN+1~, EN+8*, COPYMSG+7
HLNODE( COPYMSG+8, COPYMSG+9
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, PID+1~, PID+5*, PID+6, MESSAGE+9*
, MESSAGE+11, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+17
I13MSG EN+1~, EN+9, EN+10, EN+11
ICN CHKMSG+1~
J COPYMSG+5~, COPYMSG+7*, COPYMSG+8*, COPYMSG+9, PID+1~, PID+3*, PID+4, PID+6, MESSAGE+1~, MESSAGE+9*
, MESSAGE+10*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+14*, MESSAGE+15*, MESSAGE+16*, MESSAGE+17*
MID EN+1~, EN+7*, EN+12, CHKMSG+11, CHKMSG+15, PROCMSG+14, PROCMSG+20, PROCMSG+23, PROCMSG+27, PROCMSG+36
, PROCMSG+42, ACK~, ACK+13*, ACK+17, ACK+44
MSGID MESSAGE~, MESSAGE+7
MSGTEXT MESSAGE+1~
MSGTEXT( MESSAGE+10*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+14*, MESSAGE+15*, MESSAGE+16*, MESSAGE+17*
MSGTEXT(1 MESSAGE+4*
MSGTEXT(2 MESSAGE+5*
MSGTEXT(3 MESSAGE+6*
MSGTEXT(4 MESSAGE+7*
MSGTEXT(5 MESSAGE+8*
NAKMSG EN+1~, PROCMSG+34*, PROCMSG+35
PIDSEG PID~, PID+2
PRDSEG PRD~, PRD+2, PRD+3
PROGAUTH PROCMSG+2~, PROCMSG+88, PROCMSG+93, RF1+6*
QUIT CHKMSG+1~, CHKMSG+2*, CHKMSG+3, CHKMSG+10*, CHKMSG+14*, CHKMSG+16, PROCMSG+1~, PROCMSG+3*, PROCMSG+12, PROCMSG+13*
, PROCMSG+18, PROCMSG+19*, PROCMSG+21, PROCMSG+22*, PROCMSG+25, PROCMSG+26*, PROCMSG+35*, PROCMSG+41*, PROCMSG+44, PROCMSG+98
REFDT PROCMSG+2~, PROCMSG+68, PROCMSG+73, RF1+4*
REFXDT PROCMSG+2~, PROCMSG+78, PROCMSG+83, RF1+5*
REQSEG CHKMSG+1~, CHKMSG+3*, CHKMSG+7, CHKMSG+15
RES ACK+10~, ACK+22*, ACK+47
RETVAL RF1~, RF1+7*, PID~, PID+7*, PRD~, PRD+1*, PRD+2*, PRD+4*
RF1SEG RF1~, RF1+2, RF1+3, RF1+4, RF1+5, RF1+6
RS EN+1~, EN+4*, PID+3, PID+4, PID+6
SEG ACK~, ACK+13*, ACK+27
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
SID ACK~, ACK+13*, ACK+24, ACK+27
SS EN+1~, EN+6*
STAT ACK~, ACK+13*, ACK+17
STID PROCMSG+2~, PROCMSG+39*, PROCMSG+40, PROCMSG+45, PROCMSG+52
TXT ACK~, ACK+14*, ACK+32, ACK+37
U MESSAGE+11, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+17
XDT PROCMSG+2~
XMDUZ MESSAGE+1~, MESSAGE+19*
XMMG MESSAGE+1~
XMROU MESSAGE+1~
XMSTRIP MESSAGE+1~
XMSUB MESSAGE+1~, MESSAGE+3*
XMTEXT MESSAGE+1~, MESSAGE+18*
XMY MESSAGE+1~
XMY("G.GMRC H CP HL7 MESSAGES" , MESSAGE+20*
XMYBLOB MESSAGE+1~
XMZ MESSAGE+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
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