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+76, NTE+81
$$GET1^DIQ EN+14, EN+40, PID+41, PID+72, 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+80
$$ADDEND^GMRCCCR1 ADDEND+5
$$CLRADD^GMRCCCR1 EN+48, EN+57
$$GETADD^GMRCCCR1 PID+45
$$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+4
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+98
$$OI^ORX8 OITEM+4
$$OUTPTPR^SDUTL3 EN+53
TGET^TIUSRVR1 NTE+19, NTE+43
GETLINK^TIUSRVT1 EN+36
IN5^VADPT PID+66
KVA^VADPT PID+85
BLDPID^VAFCQRY PID+2
EN^VAFHLIN1 PID+13
$$FMTHL7^XLFDT EN+38, PID+64
$$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+71

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+38
^DPT - [#2] EN+9, PID+19, PID+20, PID+26, COMMENT+4
^GMR(123 - [#123] EN+12, EN+13, PID+88, PID+91, 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+30, PID+33
^IBCNR(366.03 - [#366.03] PID+34
^TIU(8925 - [#8925] ADDEND+3
^TMP("GMRCHL7CCRA" EN+30, EN+31, PID+92!
^TMP("TIUVIEW" NTE+32!, NTE+50!
^VA(200 - [#200] EN+46, EN+58
^XTMP("GMRCHL7H" EN+42*, PID+96

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+87
QDATE DATE+3

Naked Globals

Name Field # of Occurrence
^( PID+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A PID+77~*!
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+77~*!
CC DATE+2~, DATE+5*
CMT NTE+53~, NTE+57*, NTE+58*, NTE+59*, NTE+60*, NTE+61, NTE+62*, NTE+63
COORDBEN PID+22~, PID+23*, PID+24*, PID+25, PID+36!
DATA EN+22~, EN+30*
DD DATE+2~, DATE+5*
DFN EN+2~, EN+9*, EN+53, PID+2, PID+4, PID+13, PID+19, PID+20, PID+26, PID+80
, COMMENT+4~*, COMMENT+6, ADDEND+4~, ADDEND+7
DONE NTE+37~*, NTE+38, NTE+48*
DUZ(2 PID+71
DX EN+22~, PID+57*, PID+60*, PID+62
DXCODE EN+22~, PID+58*, PID+61*, PID+62
ECH EN+22~, EN+28*, EN+36, EN+37, EN+45, EN+55, PID+62, NTE+69
EFFDT EN+22~, EN+38*, EN+39, EN+41
ERRARY MESSAGE~, MESSAGE+1
FDA EN+23~, PID+76~, NTE+81~
FDA(123 PID+76*, 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+64, STATUS+10
GDATA EN+22~, EN+31*, EN+34, EN+36, EN+38, EN+39, EN+41, EN+45, PID+57, PID+58
PID+64, NTE+5, NTE+56
GMRC0 PID+11~, PID+16*, PID+17, PID+25*, PID+28*, PID+32*, PID+35*, PID+43*, PID+45*, PID+46
PID+51!
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+72, PID+76, PID+88, PID+91, 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+70~, PID+71*, PID+73*, PID+76, PID+77, PID+78!
GMRCERR EN+23~
GMRCHL EN+22~, EN+27, EN+47, EN+56, PID+2, PID+87, PID+95, PID+96*
GMRCHL("ECH" EN+28
GMRCHL("EID" EN+26*, EN+27, PID+98
GMRCHLP PID+94~, PID+98
GMRCIN1 PID+11~, PID+51!
GMRCIN1( PID+15, PID+16, PID+46*, PID+47
GMRCM EN+33!, PID+95
GMRCM( EN+39*, EN+41*, EN+49*, EN+59*, PID+7*, PID+8*, PID+47*, PID+49*, PID+62*, PID+64*
PID+67*, PID+68*, PID+77*, PID+80*, PID+81*, PID+90, PID+91*, 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+4, PID+5!*, PID+9!
GMRCP( PID+6, PID+7, PID+8
GMRCPARN NTE+19, STATUS+9*, STATUS+10, ADDEND+4~
GMRCRES PID+94~, PID+98
GMRCSTR PID+11~, PID+12*, PID+13, PID+51!
GMRCTXT NTE+15~, NTE+19, NTE+23, NTE+27, NTE+39~, NTE+43, NTE+44
HL PID+94~, PID+95*, NTE~, NTE+9, NTE+29, NTE+46, NTE+61, NTE+74
HLA PID+94~
HLA("HLS" PID+95*
HR TIME+2~, TIME+4*
I EN+2~, EN+4*, EN+8*, PID+6*, PID+7, PID+8, PID+11~, PID+15*, PID+16, PID+46
PID+47, PID+51!, NTE+5*, NTE+22*, NTE+23*, NTE+24, NTE+26*, NTE+27*, NTE+43*, NTE+44*
, NTE+71*
INSP PID+11~, PID+17*, PID+40, PID+41, PID+45, PID+51!
INSPX PID+11~, PID+39*, PID+40, PID+51!
LASTVER PID+22~, PID+26*, PID+27*, PID+28, PID+36!
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+75, 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+75, NTE+2, NTE+14, NTE+38
N PID+11~, PID+19*, PID+20, PID+26, PID+51!
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+64, STATUS+10*
ORGDIV PID+72~*, PID+73, PID+74
ORIEN NTE+53~, NTE+56*, NTE+57, NTE+58
P4 PID+89~, PID+91*
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+11~, PID+29*, PID+30, PID+33, PID+51!
PLANID PID+33*, PID+34*, PID+35, PID+36!
PN EN+22~, EN+45*, EN+49
PRECERT PID+11~, PID+18*, PID+30*, PID+31*, PID+49*, PID+51!
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+11~, PID+41*, PID+42*, PID+43, PID+51!, OITEM+2~, OITEM+3*, OITEM+4*, OITEM+5*, OITEM+7
SEC TIME+2~, TIME+4*
SENS EN+22~, PID+80*
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+59~, PID+60*, PID+61
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~, PID+4, PID+5
TMPGMRCP(1 PID+5
TYP EN+22~, EN+36*, EN+37*, EN+39, EN+41
TYPE PID+11~, PID+30*, PID+32, PID+51!
U EN+13, EN+37, PID+39, 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+83!
VAIP(13 PID+67, PID+81
VAIP(18 PID+67
VAIP(5 PID+68
VAL FEE+2~, FEE+3*, FEE+4*, FEE+5*, FEE+6*, FEE+7
X PID+11~, PID+20*, PID+23, PID+29, PID+38, PID+39, PID+51!, 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+38~*
XXCNT PID+89~, PID+90*, PID+91
Y PID+22~, PID+26*, PID+36!
YY DATE+2~, DATE+5*
ZCNT EN+22~, EN+28*, EN+39*, EN+41, EN+49*, EN+59*, PID+7*, PID+8, PID+47*, PID+49*
PID+62*, PID+64*, PID+67*, PID+68, PID+77, PID+80, PID+81, 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