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

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  
VA FileMan 4 NOW^%DTC  $$FIND1^DIC  UPDATE^DIE  ($$GET1,GETS)^DIQ  
Consult Request Tracking 3 ($$ADDEND,$$CLRADD,$$GETADD,$$TIUC,ACK,AUTHDTTM,CCONTROL,EDIPI,MESSAGE)^GMRCCCR1  $$DATE^GMRCCCRA  ($$ADDR,$$PH,HL7TXT)^GMRCHL7P  
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: 8

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  
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
NOW^%DTC EN+2
$$FIND1^DIC EN+27
UPDATE^DIE PID+76, NTE+79
$$GET1^DIQ EN+15, EN+41, PID+41, PID+72, NTE+21, NTE+57, FEE+4, FEE+5, FEE+6, COMMENT+4
, COMMENT+7, ADDEND+8, ADDEND+9
GETS^DIQ EN+31
$$SSN^DPTLK1 PID+80
$$ADDEND^GMRCCCR1 ADDEND+5
$$CLRADD^GMRCCCR1 EN+49, EN+58
$$GETADD^GMRCCCR1 PID+45
$$TIUC^GMRCCCR1 NTE+8, NTE+30, NTE+47, NTE+60, NTE+73
ACK^GMRCCCR1 ACK+1
AUTHDTTM^GMRCCCR1 AUTHDTTM+1
CCONTROL^GMRCCCR1 EN+12
EDIPI^GMRCCCR1 PID+4
MESSAGE^GMRCCCR1 MESSAGE+1
$$DATE^GMRCCCRA NTE+21
$$ADDR^GMRCHL7P EN+48, EN+57
$$PH^GMRCHL7P EN+48, EN+57
HL7TXT^GMRCHL7P NTE+9, NTE+29, NTE+46, NTE+59, NTE+72
INIT^HLFNC2 EN+28
GENERATE^HLMA PID+98
$$OI^ORX8 OITEM+4
$$OUTPTPR^SDUTL3 EN+54
TGET^TIUSRVR1 NTE+19, NTE+43
GETLINK^TIUSRVT1 EN+37
IN5^VADPT PID+66
KVA^VADPT PID+85
BLDPID^VAFCQRY PID+2
EN^VAFHLIN1 PID+13
$$FMTHL7^XLFDT EN+39, PID+64
$$HLNAME^XLFNAME EN+46, EN+56
$$TRIM^XLFSTR NTE+6, NTE+28, NTE+45, NTE+57, NTE+71
$$UP^XLFSTR NTE+75, 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+10, PID+19, PID+20, PID+26, COMMENT+4
^GMR(123 - [#123] EN+13, EN+14, PID+88, PID+91, NTE+18, NTE+42, NTE+65, NTE+68, NTE+69, STATUS+9
^GMR(123.1 - [#123.1] NTE+66
^IBA(355.3 - [#355.3] PID+30, PID+33
^IBCNR(366.03 - [#366.03] PID+34
^TIU(8925 - [#8925] ADDEND+3
^TMP("GMRCHL7CCRA" EN+31, EN+32, PID+92!
^TMP("TIUVIEW" NTE+32!, NTE+50!
^VA(200 - [#200] EN+47, EN+59
^XTMP("GMRCHL7H" EN+43*, PID+96

Label References

Name Line Occurrences
$$FEE EN+14, EN+15, ADDEND+9
$$OITEM COMMENT+7, ADDEND+8
$$STATUS EN+21
$$TIME DATE+8
AUTHDTTM NTE+3, NTE+16, NTE+40, NTE+54, NTE+68
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+63~, NTE+66*
ACTD NTE+63~, NTE+66*, NTE+67
ACTIEN EN+3~, EN+13*, EN+14, NTE+63~, NTE+65*, NTE+68, NTE+69
ADDR EN+23~, EN+48*, EN+49*, EN+50
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
COORDBEN PID+22~, PID+23*, PID+24*, PID+25, PID+36!
DATA EN+23~, EN+31*
DD DATE+2~, DATE+5*
DFN EN+3~, EN+10*, EN+54, 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+23~, PID+57*, PID+60*, PID+62
DXCODE EN+23~, PID+58*, PID+61*, PID+62
ECH EN+23~, EN+29*, EN+37, EN+38, EN+46, EN+56, PID+62, NTE+67
EFFDT EN+23~, EN+39*, EN+40, EN+42
ERRARY MESSAGE~, MESSAGE+1
FDA EN+24~, PID+76~, NTE+79~
FDA(123 PID+76*, NTE+79*
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+3~, EN+14*
FS EN+3~, EN+6*, EN+7, EN+10, EN+11, PID+64, STATUS+10
GDATA EN+23~, EN+32*, EN+35, EN+37, EN+39, EN+40, EN+42, EN+46, 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+3~, EN+11*, EN+12, EN+13, EN+14, EN+15, EN+31, EN+32, EN+40, EN+41
, EN+43, PID+72, PID+76, PID+88, PID+91, NTE+18, NTE+42, NTE+65, NTE+68, NTE+69
, NTE+79, 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+24~
GMRCHL EN+23~, EN+28, EN+48, EN+57, PID+2, PID+87, PID+95, PID+96*
GMRCHL("ECH" EN+29
GMRCHL("EID" EN+27*, EN+28, PID+98
GMRCHLP PID+94~, PID+98
GMRCIN1 PID+11~, PID+51!
GMRCIN1( PID+15, PID+16, PID+46*, PID+47
GMRCM EN+34!, PID+95
GMRCM( EN+40*, EN+42*, EN+50*, EN+60*, 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+61*, NTE+70*, NTE+74*
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+23~, 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+59, NTE+72
HLA PID+94~
HLA("HLS" PID+95*
HR TIME+2~, TIME+4*
I EN+3~, EN+5*, EN+9*, 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+69*
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+63!*
MIN TIME+2~, TIME+4*
MM DATE+2~, DATE+5*, DATE+6
MSG EN~, EN+5*, EN+6, EN+7, EN+9*, EN+10, EN+11
MSG( EN+5, EN+9
MSGID MESSAGE~, MESSAGE+1
MSGTYP EN+3~, EN+7*, EN+20, EN+26, PID+75, NTE+2
MSGTYP2 EN+3~, EN+11*, EN+21, EN+26, NTE+2, NTE+14, NTE+52
MSGTYP3 EN+3~, EN+11*, EN+13, EN+20*, EN+21, PID+75, NTE+2, NTE+14, NTE+38
N PID+11~, PID+19*, PID+20, PID+26, PID+51!
NPI EN+47~*, EN+50, EN+59*, EN+60
NTECNT NTE+1~*, NTE+4, NTE+10*, NTE+17, NTE+31*, NTE+41, NTE+48*, NTE+55, NTE+70, NTE+74*
OK EN+3~, EN+15*, EN+16
OKFROM EN+3~, EN+14*, EN+16, NTE+2, STATUS+13
ORC EN+3~, EN+11*, PID+64, STATUS+10*
ORGDIV PID+72~*, PID+73, PID+74
ORIEN NTE+53~, NTE+56*, NTE+57
P4 PID+89~, PID+91*
PCADDR EN+24~, EN+57*, EN+58*, EN+60
PCDUZ EN+24~, EN+56*, EN+57, EN+59
PCP EN+24~, EN+54*, EN+55, EN+56
PCPH EN+24~, EN+57*, EN+60
PCPN EN+24~, EN+56*, EN+60
PDUZ EN+23~, EN+46*, EN+47, EN+48
PH EN+23~, EN+48*, EN+50
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+23~, EN+46*, EN+50
PRECERT PID+11~, PID+18*, PID+30*, PID+31*, PID+49*, PID+51!
Q NTE+63~, NTE+65*, NTE+70*
QUIT EN+3~, EN+5*, EN+6*, EN+7*, EN+9, EN+10*, EN+16*, EN+19
RES EN+23~, EN+37, EN+38
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+23~, PID+80*
SNAME EN+23~, EN+26*, EN+27
STATUS EN+3~, EN+21*, EN+40, EN+42, NTE+67
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+63~, 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+63~, PID+4, PID+5
TMPGMRCP(1 PID+5
TYP EN+23~, EN+37*, EN+38*, EN+40, EN+42
TYPE PID+11~, PID+30*, PID+32, PID+51!
U EN+14, EN+38, PID+39, NTE+18, NTE+42, NTE+66, STATUS+9
UCID EN+4~, EN+41*, EN+42, EN+43
UPDATE81 EN+24~, NTE+63~, NTE+64*, NTE+77*, NTE+78, NTE+79
URG EN+23~, EN+35*, EN+36*, EN+40, EN+42
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+65*, NTE+66, NTE+69*, NTE+71*
, NTE+72, NTE+73*, NTE+74, NTE+75, NTE+76*, NTE+77, 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+23~, EN+29*, EN+40*, EN+42, EN+50*, EN+60*, 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+61*, NTE+70*, NTE+74*
ZERR EN+23~, EN+29*, 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