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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRCCCR1

Package: Consult Request Tracking

Routine: GMRCCCR1


Information

GMRCCCR1 ;COG/PB - Receive HL7 Message for HCP ;3/21/18 09:00

Source Information

Source file <GMRCCCR1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Health Level Seven 2 ($$FMDATE,$$HLADDR)^HLFNC  GENACK^HLMA1  
Kernel 2 ($$FMTE,$$FMTHL7)^XLFDT  $$KSP^XUPARAM  
MailMan 1 ^XMD  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Registration 1 TFL^VAFCTFU2  
Text Integration Utility 1 EXTRACT^TIULQ  
VA FileMan 1 $$GET1^DIQ  

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 2 GMRCCCRA  GMRCCCRI  

Entry Points

Name Comments DBIA/ICR reference
GETADD(INSP) ;
; INSP contains internal value of insurance plan for this patient (IN1 segment)
CLRADD(ADDRESS) ;
; patch 146 - take any address field that contains only spaces and change to null
MESSAGE(MSGID,ERRARY) ; Send a MailMan Message with the errors
; moved here for patch 112
MESSAGE2(MSGID,ABORT,CONID) ; Send a MailMan Message with the errors
CCONTROL(GMRCDA) ; patch 112
; remove control characters from data before building OBR segment
ANAK(NAKMSG,USERMAIL,ICN,DFN,CONID,GMRCDT) ; Application Error, send NAK back
TIUC(X) ; Check each segment of the TIU notes for HL7 control characters
ADDEND ; moved from ADDEND^GMRCCCRA routine for space ; patch 146 ; MJ
; returns 0 if value not found
AUTHDTTM ;
ACK ;
EDIPI(DFN,GMRCP) ;

External References

Name Field # of Occurrence
$$GET1^DIQ GETADD+3, GETADD+4, GETADD+5, GETADD+6, GETADD+7, GETADD+8, ANAK+7, ADDEND+34, AUTHDTTM+8, AUTHDTTM+9
$$FMDATE^HLFNC MESSAGE+3, MESSAGE2+3
$$HLADDR^HLFNC GETADD+10
GENACK^HLMA1 ANAK+17
$$GETICN^MPIF001 EDIPI+4
EXTRACT^TIULQ ADDEND+4
TFL^VAFCTFU2 EDIPI+7
$$FMTE^XLFDT MESSAGE+3, MESSAGE2+3
$$FMTHL7^XLFDT AUTHDTTM+9
^XMD MESSAGE+22, MESSAGE2+15
$$KSP^XUPARAM MESSAGE2+2, ANAK+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,XX," ",NODE
  • Line Location: CCONTROL+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
123.02 GET1^DIQ
123.03 GET1^DIQ
^DIC(36 - [#36] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ANAK+6, ANAK+9, ANAK+10, ADDEND+11
^GMR(123 - [#123] CCONTROL+3, CCONTROL+4, CCONTROL+7, CCONTROL+8*, CCONTROL+9*, CCONTROL+10*, CCONTROL+11*, CCONTROL+12*, CCONTROL+13*, CCONTROL+14*
, CCONTROL+15*, CCONTROL+16*, CCONTROL+17*, CCONTROL+18*, ADDEND+29, ADDEND+31, ADDEND+33, AUTHDTTM+1
^TMP("TIULQ" ADDEND+7, ADDEND+10, ADDEND+14
^TMP($J EDIPI+30*, EDIPI+32

Label References

Name Line Occurrences
MESSAGE ACK+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT MESSAGE2~, MESSAGE2+9
>> ACTIEN AUTHDTTM+1*, AUTHDTTM+2, AUTHDTTM+8, AUTHDTTM+9
ADD CLRADD+2~, CLRADD+4*, CLRADD+5*, CLRADD+6
ADDCITY GETADD+2~, GETADD+6*, GETADD+9
ADDLN1 GETADD+2~, GETADD+3*, GETADD+9
ADDLN2 GETADD+2~, GETADD+4*, GETADD+9
ADDLN3 GETADD+2~, GETADD+5*
ADDRESS CLRADD~, CLRADD+3, CLRADD+4, CLRADD+6*, CLRADD+7
ADDST GETADD+2~, GETADD+7*, GETADD+9
ADDZIP GETADD+2~, GETADD+8*, GETADD+9
CONID MESSAGE2~, MESSAGE2+4, MESSAGE2+9, ANAK~, ANAK+4, ANAK+7, ANAK+16
CONPAT ANAK+1~, ANAK+7*, ANAK+8
DATE MESSAGE+2~, MESSAGE+3*, MESSAGE+7, MESSAGE2+1~, MESSAGE2+3*, MESSAGE2+7
DFN ANAK~, ANAK+3, ANAK+6, ANAK+8, ANAK+9, ANAK+10, ADDEND+10*, ADDEND+11, ADDEND+29, ADDEND+31
, EDIPI~, EDIPI+2, EDIPI+4
DIFROM MESSAGE+2~, MESSAGE2+1~
DONE ACK+1~, ACK+7*, ACK+8, ACK+10*
DUZ MESSAGE+2~, MESSAGE2+1~
EDIPI EDIPI+1~, EDIPI+4*, EDIPI+13*, EDIPI+15, EDIPI+17
EID ANAK+1~, ANAK+11*, ANAK+17
EIDS ANAK+1~, ANAK+12*, ANAK+17
ERRARY MESSAGE~, ACK+1~, ACK+19
ERRARY( MESSAGE+10, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+17, MESSAGE+18, ACK+15*, ACK+17*
, ACK+18*
ERRI ACK+1~, ACK+3*, ACK+14*, ACK+15, ACK+17, ACK+18
FIELDS EDIPI+1~, EDIPI+23*, EDIPI+24*
FIELDS1 EDIPI+1~, EDIPI+23*, EDIPI+27*
>> GMRC8925 ADDEND+34*, ADDEND+35
>> GMRCD ADDEND+28*, ADDEND+29*, ADDEND+31
>> GMRCD1 ADDEND+32*, ADDEND+33*, ADDEND+34
GMRCDA CCONTROL~, CCONTROL+3, CCONTROL+4, CCONTROL+7, CCONTROL+8, CCONTROL+9, CCONTROL+10, CCONTROL+11, CCONTROL+12, CCONTROL+13
, CCONTROL+14, CCONTROL+15, CCONTROL+16, CCONTROL+17, CCONTROL+18, ADDEND+30*, ADDEND+31*, ADDEND+33, ADDEND+34, ADDEND+35
, AUTHDTTM+1, AUTHDTTM+8, AUTHDTTM+9
GMRCDT ANAK~, ANAK+5, ANAK+16
>> GMRCM( AUTHDTTM+3*, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+8*, AUTHDTTM+9*, AUTHDTTM+10*
GMRCMSG ACK+1~
GMRCMSG( ACK+5*, ACK+6*, ACK+8, ACK+9, ACK+10, ACK+11, ACK+12, ACK+15, ACK+16, ACK+17
, ACK+18
>> GMRCO ADDEND+28*, ADDEND+29, ADDEND+31, ADDEND+33, ADDEND+35*, ADDEND+36
GMRCP EDIPI~, EDIPI+15
GMRCP( EDIPI+20, EDIPI+22
GMRCP(1 EDIPI+3
>> GMRCPARN ADDEND+14*, ADDEND+35
>> HL("DTM" MESSAGE+3, MESSAGE2+3
>> HL("EID" ANAK+11
>> HL("EIDS" ANAK+12
>> HL("MID" ANAK+13
>> HLA("HLA" ANAK+16*
>> HLMTIENS ANAK+17
>> HLNEXT ACK+4
>> HLNODE ACK+5
>> HLNODE( ACK+6
>> HLQUIT ACK+4
HSRMEDIPI EDIPI+1~, EDIPI+17*, EDIPI+25
I CLRADD+2~, CLRADD+3*, CLRADD+4, CLRADD+6, MESSAGE+2~, MESSAGE+10*, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15
, MESSAGE+16, MESSAGE+17, MESSAGE+18, ACK+1~, ACK+4*, ACK+5, ACK+6, ACK+8*, ACK+9, ACK+10
, ACK+11, ACK+12, ACK+15, ACK+16, ACK+17, ACK+18, EDIPI+23!, EDIPI+24*, EDIPI+27*, EDIPI+28!*
, EDIPI+30!*
ICN ANAK~, ANAK+10*, ANAK+16, EDIPI+1~, EDIPI+4*, EDIPI+5, EDIPI+6
INSP GETADD~, GETADD+3, GETADD+4, GETADD+5, GETADD+6, GETADD+7, GETADD+8
J CLRADD+2~, MESSAGE+2~, MESSAGE+10*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+14*, MESSAGE+15*, MESSAGE+16*, MESSAGE+17*
, MESSAGE+18*, MESSAGE2+1~
LCNT EDIPI+1~, EDIPI+23*, EDIPI+30*
LST EDIPI+1~, EDIPI+7
LST( EDIPI+10, EDIPI+11, EDIPI+12, EDIPI+13
MSG MESSAGE2+1~, MESSAGE2+9*, MESSAGE2+10*, MESSAGE2+11
MSGID MESSAGE~, MESSAGE+8, MESSAGE2~, MESSAGE2+8, ACK+1~, ACK+11*, ACK+19
MSGN ANAK+1~, ANAK+13*, ANAK+16
MSGTEXT MESSAGE+2~, MESSAGE2+1~
MSGTEXT( MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+14*, MESSAGE+15*, MESSAGE+16*, MESSAGE+17*, MESSAGE+18*
MSGTEXT(1 MESSAGE+5*, MESSAGE2+5*
MSGTEXT(2 MESSAGE+6*, MESSAGE2+6*
MSGTEXT(3 MESSAGE+7*, MESSAGE2+7*
MSGTEXT(4 MESSAGE+8*, MESSAGE2+8*
MSGTEXT(5 MESSAGE+9*, MESSAGE2+11*
NAKMSG ANAK~, ANAK+2, ANAK+16
NAKMSG1 ANAK+1~
>> NEWGMRCP EDIPI+15*, EDIPI+32*
NGMRCP EDIPI+1~, EDIPI+20*, EDIPI+21*, EDIPI+28
NODE CCONTROL+5!, CCONTROL+7*, CCONTROL+8, CCONTROL+9, CCONTROL+10, CCONTROL+11, CCONTROL+12, CCONTROL+13, CCONTROL+14, CCONTROL+15
, CCONTROL+16, CCONTROL+17, CCONTROL+18, CCONTROL+20!
>> NTECNT AUTHDTTM+3, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+6*, AUTHDTTM+8, AUTHDTTM+9*, AUTHDTTM+10*, AUTHDTTM+11*
NUMSEGS EDIPI+1~, EDIPI+23*, EDIPI+29*
PATID EDIPI+1~, EDIPI+25*, EDIPI+26
PATNAME ANAK+1~, ANAK+9*, ANAK+16
PID EDIPI+1~, EDIPI+19!, EDIPI+20*, EDIPI+22*, EDIPI+24, EDIPI+25, EDIPI+26*, EDIPI+27, EDIPI+30
PIDLEN EDIPI+1~, EDIPI+24*
PIDLEN1 EDIPI+1~, EDIPI+27*, EDIPI+29, EDIPI+30
PIDSEG EDIPI+1~, EDIPI+19!
PT EDIPI+1~, EDIPI+6*, EDIPI+7
RES ANAK+1~, ANAK+17
SEGCNT EDIPI+1~, EDIPI+23*, EDIPI+29*, EDIPI+30
SITE MESSAGE2+1~, MESSAGE2+2*, MESSAGE2+9, MESSAGE2+10, ANAK+1~, ANAK+9*, ANAK+16
>> TIUDA ADDEND+4, ADDEND+7, ADDEND+10, ADDEND+14, ADDEND+35
>> TIUTYP ADDEND+7*, ADDEND+8
TMPGMRCP EDIPI+1~
U MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+17, MESSAGE+18
USERMAIL ANAK~, ANAK+16
VADD GETADD+2~, GETADD+9*, GETADD+10
VCSZ GETADD+2~, GETADD+9*, GETADD+10
X GETADD+2~, GETADD+10*, GETADD+11*, GETADD+12, TIUC~, TIUC+1, TIUC+2*, TIUC+3*, TIUC+4*, TIUC+5*
, TIUC+6*, TIUC+7*, TIUC+8*, TIUC+9*, TIUC+10*, TIUC+11*, TIUC+12*, TIUC+13*, TIUC+14, ACK+1~
, ACK+6*
XMDUZ MESSAGE+2~, MESSAGE+20*, MESSAGE2+1~, MESSAGE2+13*
XMMG MESSAGE+2~, MESSAGE2+1~
XMROU MESSAGE+2~, MESSAGE2+1~
XMSTRIP MESSAGE+2~, MESSAGE2+1~
XMSUB MESSAGE+2~, MESSAGE+4*, MESSAGE2+1~, MESSAGE2+4*
XMTEXT MESSAGE+2~, MESSAGE+19*, MESSAGE2+1~, MESSAGE2+12*
XMY MESSAGE+2~, MESSAGE2+1~
XMY("G.GMRC H CP HL7 MESSAGES" , MESSAGE+21*, SRM SIU HL7 MESSAGES" , MESSAGE2+14*
XMYBLOB MESSAGE+2~, MESSAGE2+1~
XMZ MESSAGE+2~, MESSAGE2+1~
XX CCONTROL+4*, CCONTROL+7, CCONTROL+8, CCONTROL+9, CCONTROL+10, CCONTROL+11, CCONTROL+12, CCONTROL+13, CCONTROL+14, CCONTROL+15
, CCONTROL+16, CCONTROL+17, CCONTROL+18, CCONTROL+21!, EDIPI+1~, EDIPI+10*, EDIPI+11, EDIPI+12, EDIPI+13, EDIPI+18!
, EDIPI+20*, EDIPI+22
YY CCONTROL+3*, CCONTROL+4, CCONTROL+7, CCONTROL+8, CCONTROL+9, CCONTROL+10, CCONTROL+11, CCONTROL+12, CCONTROL+13, CCONTROL+14
, CCONTROL+15, CCONTROL+16, CCONTROL+17, CCONTROL+18, CCONTROL+21!, EDIPI+1~
>> ZCNT AUTHDTTM+3*, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+8*, AUTHDTTM+9*, AUTHDTTM+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All