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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: GMRCCCRA

Package: Consult Request Tracking

Routine: GMRCCCRA


Information

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

Source Information

Source file <GMRCCCRA.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Kernel 4 $$FMTHL7^XLFDT  $$HLNAME^XLFNAME  ($$TRIM,$$UP)^XLFSTR  $$NS^XUAF4  
Registration 4 $$SSN^DPTLK1  (IN5,KVA)^VADPT  BLDPID^VAFCQRY  EN^VAFHLIN1  
Consult Request Tracking 3 ($$ADDEND,$$CLRADD,$$GETADD,$$TIUC,ACK,AUTHDTTM,CCONTROL,EDIPI,MESSAGE)^GMRCCCR1  $$DATE^GMRCCCRA  ($$ADDR,$$PH,HL7TXT)^GMRCHL7P  
VA FileMan 3 $$FIND1^DIC  UPDATE^DIE  ($$GET1,GETS)^DIQ  
Health Level Seven 2 INIT^HLFNC2  GENERATE^HLMA  
Text Integration Utility 2 TGET^TIUSRVR1  GETLINK^TIUSRVT1  
Order Entry Results Reporting 1 $$OI^ORX8  
Scheduling 1 $$OUTPTPR^SDUTL3  

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

Package Total Caller Graph
Consult Request Tracking 7 GMRC CCRA-HSRM REF-I12 SERVER  GMRC CCRA-HSRM REF-I13 SERVER  GMRC CCRA-HSRM REF-I14 SERVER  GMRC CONSULTS TO CCRA  GMRCACMT  GMRCCCRA  GMRCGUIB  
Kernel 1 ^ORD(101  
Text Integration Utility 1 TIUCCRHL  

Entry Points

Name Comments DBIA/ICR reference
EN(MSG) ;Entry point to routine from GMRC CONSULTS TO CCRA protocol attached to GMRC EVSEND OR
PID ;
NTE(HL) ;Find Reason for Request for New or Resubmit entries, Find TIU for complete, find Activity Comment for others
AUTHDTTM ; Add Author and Date/Time to NTE
STATUS(T1,T2) ;get status for event
FEE(FEESVC) ;send only if name contains HCPS
COMMENT(GMRCDA) ;send comments on Non VA Care consults to HCP
ADDEND(TIUDA) ;send addendums on Non VA Care consults to HCP
TIME(X,FMT) ; Copied from $$TIME^TIULS
; Receives X as 2910419.01 and FMT=Return Format of time (HH:MM:SS).
DATE(X,FMT) ; Copied from $$DATE^TIULS
; Call with X=2910419.01 and FMT=Return Format of date ("MM/DD")
QDATE
OITEM(GMRCORDN) ; Orderable Item
; patch 106 - modified to use ICR 2467
ACK ; Process ACK HL7 messages
MESSAGE(MSGID,ERRARY) ; Send a MailMan Message with the errors

External References

Name Field # of Occurrence
$$FIND1^DIC EN+26
UPDATE^DIE PID+82, NTE+81
$$GET1^DIQ EN+14, EN+40, PID+47, PID+78, NTE+21, NTE+57, NTE+58, FEE+4, FEE+5, FEE+6
, COMMENT+4, COMMENT+7, ADDEND+8, ADDEND+9
GETS^DIQ EN+30
$$SSN^DPTLK1 PID+86
$$ADDEND^GMRCCCR1 ADDEND+5
$$CLRADD^GMRCCCR1 EN+48, EN+57
$$GETADD^GMRCCCR1 PID+51
$$TIUC^GMRCCCR1 NTE+8, NTE+30, NTE+47, NTE+62, NTE+75
ACK^GMRCCCR1 ACK+1
AUTHDTTM^GMRCCCR1 AUTHDTTM+1
CCONTROL^GMRCCCR1 EN+11
EDIPI^GMRCCCR1 PID+7
MESSAGE^GMRCCCR1 MESSAGE+1
$$DATE^GMRCCCRA NTE+21
$$ADDR^GMRCHL7P EN+47, EN+56
$$PH^GMRCHL7P EN+47, EN+56
HL7TXT^GMRCHL7P NTE+9, NTE+29, NTE+46, NTE+61, NTE+74
INIT^HLFNC2 EN+27
GENERATE^HLMA PID+104
$$OI^ORX8 OITEM+4
$$OUTPTPR^SDUTL3 EN+53
TGET^TIUSRVR1 NTE+19, NTE+43
GETLINK^TIUSRVT1 EN+36
IN5^VADPT PID+72
KVA^VADPT PID+91
BLDPID^VAFCQRY PID+2
EN^VAFHLIN1 PID+19
$$FMTHL7^XLFDT EN+38, PID+70
$$HLNAME^XLFNAME EN+45, EN+55
$$TRIM^XLFSTR NTE+6, NTE+28, NTE+45, NTE+59, NTE+73
$$UP^XLFSTR NTE+77, FEE+4, FEE+5, FEE+6
$$NS^XUAF4 PID+77

Used in HL7 Interface

HL7 Protocol Name Call Tags
GMRC CCRA-HSRM REF-I12 SERVER ACK
GMRC CCRA-HSRM REF-I13 SERVER ACK
GMRC CCRA-HSRM REF-I14 SERVER ACK

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^ORD(101 - [#101] FIND1^DIC
^GMR(123 - [#123] GET1^DIQ,  GETS^DIQ
^GMR(123.5 - [#123.5] GET1^DIQ
^DIC(36 - [#36] GET1^DIQ
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(36 - [#36] PID+44
^DPT - [#2] EN+9, PID+25, PID+26, PID+32, COMMENT+4
^GMR(123 - [#123] EN+12, EN+13, PID+94, PID+97, NTE+18, NTE+42, NTE+67, NTE+70, NTE+71, STATUS+9
^GMR(123.1 - [#123.1] NTE+68
^IBA(355.3 - [#355.3] PID+36, PID+39
^IBCNR(366.03 - [#366.03] PID+40
^TIU(8925 - [#8925] ADDEND+3
^TMP("GMRCHL7CCRA" EN+30, EN+31, PID+98!
^TMP("TIUVIEW" NTE+32!, NTE+50!
^TMP($J PID+5!, PID+11, PID+15!
^VA(200 - [#200] EN+46, EN+58
^XTMP("GMRCHL7H" EN+42*, PID+102

Label References

Name Line Occurrences
$$FEE EN+13, EN+14, ADDEND+9
$$OITEM COMMENT+7, ADDEND+8
$$STATUS EN+20
$$TIME DATE+8
AUTHDTTM NTE+3, NTE+16, NTE+40, NTE+54, NTE+70
EN COMMENT+8, ADDEND+9
NTE PID+93
QDATE DATE+3

Naked Globals

Name Field # of Occurrence
^( PID+25

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PID+83~*!
ACT NTE+65~, NTE+68*
ACTD NTE+65~, NTE+68*, NTE+69
ACTIEN EN+2~, EN+12*, EN+13, NTE+65~, NTE+67*, NTE+70, NTE+71
ADDR EN+22~, EN+47*, EN+48*, EN+49
AMTH DATE+2~, DATE+6*
B PID+83~*!
CC DATE+2~, DATE+5*
CMT NTE+53~, NTE+57*, NTE+58*, NTE+59*, NTE+60*, NTE+61, NTE+62*, NTE+63
COORDBEN PID+28~, PID+29*, PID+30*, PID+31, PID+42!
DATA EN+22~, EN+30*
DD DATE+2~, DATE+5*
DFN EN+2~, EN+9*, EN+53, PID+2, PID+7, PID+19, PID+25, PID+26, PID+32, PID+86
, COMMENT+4~*, COMMENT+6, ADDEND+4~, ADDEND+7
DONE NTE+37~*, NTE+38, NTE+48*
DUZ(2 PID+77
DX EN+22~, PID+63*, PID+66*, PID+68
DXCODE EN+22~, PID+64*, PID+67*, PID+68
ECH EN+22~, EN+28*, EN+36, EN+37, EN+45, EN+55, PID+68, NTE+69
EFFDT EN+22~, EN+38*, EN+39, EN+41
ERRARY MESSAGE~, MESSAGE+1
FDA EN+23~, PID+82~, NTE+81~
FDA(123 PID+82*, NTE+81*
FEESVC FEE~, FEE+1, FEE+4, FEE+5, FEE+6
FMT TIME~, TIME+3*, TIME+5*, TIME+6, DATE~, DATE+3*, DATE+4*, DATE+6, DATE+7*, DATE+8*
, QDATE
FROMSVC EN+2~, EN+13*
FS EN+2~, EN+5*, EN+6, EN+9, EN+10, PID+70, STATUS+10
GDATA EN+22~, EN+31*, EN+34, EN+36, EN+38, EN+39, EN+41, EN+45, PID+63, PID+64
, PID+70, NTE+5, NTE+56
GMRC0 PID+17~, PID+22*, PID+23, PID+31*, PID+34*, PID+38*, PID+41*, PID+49*, PID+51*, PID+52
, PID+57!
GMRC8925 ADDEND+4~
GMRCASTR NTE+15~, NTE+22*, NTE+24*, NTE+25, NTE+26
GMRCCMP NTE+15~, NTE+21*, NTE+24
GMRCD ADDEND+4~
GMRCD1 ADDEND+4~
GMRCDA EN+2~, EN+10*, EN+11, EN+12, EN+13, EN+14, EN+30, EN+31, EN+39, EN+40
, EN+42, PID+78, PID+82, PID+94, PID+97, NTE+18, NTE+42, NTE+67, NTE+70, NTE+71
, NTE+81, STATUS+9, COMMENT~, COMMENT+2, COMMENT+4, COMMENT+7, ADDEND+4~
GMRCDIV PID+76~, PID+77*, PID+79*, PID+82, PID+83, PID+84!
GMRCERR EN+23~
GMRCHL EN+22~, EN+27, EN+47, EN+56, PID+2, PID+93, PID+101, PID+102*
GMRCHL("ECH" EN+28
GMRCHL("EID" EN+26*, EN+27, PID+104
GMRCHLP PID+100~, PID+104
GMRCIN1 PID+17~, PID+57!
GMRCIN1( PID+21, PID+22, PID+52*, PID+53
GMRCM EN+33!, PID+101
GMRCM( EN+39*, EN+41*, EN+49*, EN+59*, PID+13*, PID+14*, PID+53*, PID+55*, PID+68*, PID+70*
, PID+73*, PID+74*, PID+83*, PID+86*, PID+87*, PID+96, PID+97*, NTE+4*, NTE+10*, NTE+17*
, NTE+31*, NTE+41*, NTE+48*, NTE+55*, NTE+63*, NTE+72*, NTE+76*
GMRCN NTE+15~, NTE+18*, NTE+19, NTE+39~, NTE+42*, NTE+43
GMRCO ADDEND+4~, ADDEND+5*, ADDEND+8, ADDEND+9
GMRCORDN OITEM~, OITEM+4
GMRCP EN+22~, PID+1~, PID+2, PID+3, PID+7, PID+8*, PID+11!*, PID+15!
GMRCP( PID+12, PID+13, PID+14
GMRCP(1 PID+11
GMRCPARN NTE+19, STATUS+9*, STATUS+10, ADDEND+4~
GMRCRES PID+100~, PID+104
GMRCSTR PID+17~, PID+18*, PID+19, PID+57!
GMRCTXT NTE+15~, NTE+19, NTE+23, NTE+27, NTE+39~, NTE+43, NTE+44
HL PID+100~, PID+101*, NTE~, NTE+9, NTE+29, NTE+46, NTE+61, NTE+74
HLA PID+100~
HLA("HLS" PID+101*
HR TIME+2~, TIME+4*
I EN+2~, EN+4*, EN+8*, PID+12*, PID+13, PID+14, PID+17~, PID+21*, PID+22, PID+52
, PID+53, PID+57!, NTE+5*, NTE+22*, NTE+23*, NTE+24, NTE+26*, NTE+27*, NTE+43*, NTE+44*
, NTE+71*
INSP PID+17~, PID+23*, PID+46, PID+47, PID+51, PID+57!
INSPX PID+17~, PID+45*, PID+46, PID+57!
LASTVER PID+28~, PID+32*, PID+33*, PID+34, PID+42!
LOOPER EN+62!*
MIN TIME+2~, TIME+4*
MM DATE+2~, DATE+5*, DATE+6
MSG EN~, EN+4*, EN+5, EN+6, EN+8*, EN+9, EN+10
MSG( EN+4, EN+8
MSGID MESSAGE~, MESSAGE+1
MSGTYP EN+2~, EN+6*, EN+19, EN+25, PID+81, NTE+2
MSGTYP2 EN+2~, EN+10*, EN+20, EN+25, NTE+2, NTE+14, NTE+52
MSGTYP3 EN+2~, EN+10*, EN+12, EN+19*, EN+20, PID+81, NTE+2, NTE+14, NTE+38
N PID+17~, PID+25*, PID+26, PID+32, PID+57!
NEWGMRCP PID+4!, PID+8
NEWGMRCP(1 PID+8
NPI EN+46~*, EN+49, EN+58*, EN+59
NTECNT NTE+1~*, NTE+4, NTE+10*, NTE+17, NTE+31*, NTE+41, NTE+48*, NTE+55, NTE+72, NTE+76*
OK EN+2~, EN+14*, EN+15
OKFROM EN+2~, EN+13*, EN+15, NTE+2, STATUS+13
ORC EN+2~, EN+10*, PID+70, STATUS+10*
ORGDIV PID+78~*, PID+79, PID+80
ORIEN NTE+53~, NTE+56*, NTE+57, NTE+58
P4 PID+95~, PID+97*
PCADDR EN+23~, EN+56*, EN+57*, EN+59
PCDUZ EN+23~, EN+55*, EN+56, EN+58
PCP EN+23~, EN+53*, EN+54, EN+55
PCPH EN+23~, EN+56*, EN+59
PCPN EN+23~, EN+55*, EN+59
PDUZ EN+22~, EN+45*, EN+46, EN+47
PH EN+22~, EN+47*, EN+49
PID PID+1!
PLAN PID+17~, PID+35*, PID+36, PID+39, PID+57!
PLANID PID+39*, PID+40*, PID+41, PID+42!
PN EN+22~, EN+45*, EN+49
PRECERT PID+17~, PID+24*, PID+36*, PID+37*, PID+55*, PID+57!
Q NTE+65~, NTE+67*, NTE+72*
QUIT EN+2~, EN+4*, EN+5*, EN+6*, EN+8, EN+9*, EN+15*, EN+18
RES EN+22~, EN+36, EN+37
RETVAL PID+17~, PID+47*, PID+48*, PID+49, PID+57!, OITEM+2~, OITEM+3*, OITEM+4*, OITEM+5*, OITEM+7
SEC TIME+2~, TIME+4*
SENS EN+22~, PID+86*
SNAME EN+22~, EN+25*, EN+26
STATUS EN+2~, EN+20*, EN+39, EN+41, NTE+69
T COMMENT+5~, COMMENT+8, ADDEND+4~, ADDEND+9
T(1 COMMENT+5*, ADDEND+6*
T(2 COMMENT+6*, ADDEND+7*
T(4 COMMENT+7*, ADDEND+8*
T1 STATUS~, STATUS+2, STATUS+4, STATUS+5, STATUS+6, STATUS+11, STATUS+13, STATUS+14
T2 STATUS~, STATUS+2, STATUS+3, STATUS+4, STATUS+5, STATUS+6, STATUS+7, STATUS+8, STATUS+11, STATUS+12
, STATUS+13, STATUS+14
TDXCODE PID+65~, PID+66*, PID+67
TGMRCP EN+62~, PID+3*
TIUDA NTE+19, NTE+21, NTE+43, STATUS+9, STATUS+10, ADDEND~, ADDEND+2, ADDEND+3
TIUI TIME+2~, TIME+5*, DATE+2~, DATE+7*
TIUTMP DATE+2~, DATE+3*
TIUTYP ADDEND+4~
TMPGMRCP EN+62~
TYP EN+22~, EN+36*, EN+37*, EN+39, EN+41
TYPE PID+17~, PID+36*, PID+38, PID+57!
U EN+13, EN+37, PID+45, NTE+18, NTE+42, NTE+68, STATUS+9
UCID EN+3~, EN+40*, EN+41, EN+42
UPDATE81 EN+23~, NTE+65~, NTE+66*, NTE+79*, NTE+80, NTE+81
URG EN+22~, EN+34*, EN+35*, EN+39, EN+41
VAIP PID+89!
VAIP(13 PID+73, PID+87
VAIP(18 PID+73
VAIP(5 PID+74
VAL FEE+2~, FEE+3*, FEE+4*, FEE+5*, FEE+6*, FEE+7
X PID+17~, PID+26*, PID+29, PID+35, PID+44, PID+45, PID+57!, NTE+1~, NTE+5*, NTE+6*
, NTE+7, NTE+8*, NTE+9, NTE+10, NTE+23*, NTE+24, NTE+27*, NTE+28*, NTE+29, NTE+30*
, NTE+31, NTE+44*, NTE+45*, NTE+46, NTE+47*, NTE+48, NTE+67*, NTE+68, NTE+71*, NTE+73*
, NTE+74, NTE+75*, NTE+76, NTE+77, NTE+78*, NTE+79, TIME~, TIME+4*, DATE~, DATE+3
, DATE+5, DATE+8
X1 PID+44~*
XXCNT PID+95~, PID+96*, PID+97
Y PID+28~, PID+32*, PID+42!
YY DATE+2~, DATE+5*
ZCNT EN+22~, EN+28*, EN+39*, EN+41, EN+49*, EN+59*, PID+13*, PID+14, PID+53*, PID+55*
, PID+68*, PID+70*, PID+73*, PID+74, PID+83, PID+86, PID+87, NTE+4*, NTE+10*, NTE+17*
, NTE+31*, NTE+41*, NTE+48*, NTE+55*, NTE+63*, NTE+72*, NTE+76*
ZERR EN+22~, EN+28*, PID+2
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 |  Naked Globals |  Local Variables  | All