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,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: 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
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 EN+131
$$GET1^DIQ EN+14, EN+40, EN+98, EN+129, NTE+22, NTE+61, FEE+4, FEE+5, FEE+6, COMMENT+4
, COMMENT+7, ADDEND+11, ADDEND+12
GETS^DIQ EN+30
$$SSN^DPTLK1 EN+136
$$ADDEND^GMRCCCR1 ADDEND+7
$$CLRADD^GMRCCCR1 EN+48, EN+57
$$GETADD^GMRCCCR1 EN+102
$$TIUC^GMRCCCR1 NTE+8, NTE+32, NTE+51, NTE+64, NTE+76
ACK^GMRCCCR1 ACK+1
AUTHDTTM^GMRCCCR1 AUTHDTTM+1
CCONTROL^GMRCCCR1 EN+11
MESSAGE^GMRCCCR1 MESSAGE+1
$$DATE^GMRCCCRA NTE+22
$$ADDR^GMRCHL7P EN+47, EN+56
$$PH^GMRCHL7P EN+47, EN+56
HL7TXT^GMRCHL7P NTE+9, NTE+31, NTE+50, NTE+63, NTE+75
INIT^HLFNC2 EN+27
GENERATE^HLMA EN+150
$$OI^ORX8 OITEM+8
$$OUTPTPR^SDUTL3 EN+53
TGET^TIUSRVR1 NTE+19, NTE+47
GETLINK^TIUSRVT1 EN+36
IN5^VADPT EN+123
KVA^VADPT EN+141
BLDPID^VAFCQRY EN+62
EN^VAFHLIN1 EN+70
$$FMTHL7^XLFDT EN+38, EN+121
$$HLNAME^XLFNAME EN+45, EN+55
$$TRIM^XLFSTR NTE+6, NTE+30, NTE+49, NTE+61, NTE+74
$$UP^XLFSTR FEE+4, FEE+5, FEE+6
$$NS^XUAF4 EN+128

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] EN+95
^DPT - [#2] EN+9, EN+76, EN+77, EN+83, COMMENT+4
^GMR(123 - [#123] EN+12, EN+13, NTE+18, NTE+46, NTE+68, NTE+71, NTE+72, STATUS+9
^GMR(123.1 - [#123.1] NTE+69
^IBA(355.3 - [#355.3] EN+87, EN+90
^IBCNR(366.03 - [#366.03] EN+91
^TIU(8925 - [#8925] ADDEND+4
^TMP("GMRCHL7CCRA" EN+30, EN+31, EN+144!
^TMP("TIUVIEW" NTE+34!, NTE+54!
^VA(200 - [#200] EN+46, EN+58
^XTMP("GMRCHL7H" EN+42*, EN+149

Label References

Name Line Occurrences
$$FEE EN+13, EN+14, ADDEND+12
$$OITEM COMMENT+7, ADDEND+11
$$STATUS EN+20
$$TIME DATE+8
AUTHDTTM NTE+3, NTE+16, NTE+44, NTE+58, NTE+71
EN COMMENT+8, ADDEND+12
NTE EN+143
QDATE DATE+3

Naked Globals

Name Field # of Occurrence
^( EN+76

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+132~*!
ACT NTE+67~, NTE+69*
ACTD NTE+67~, NTE+69*, NTE+70
ACTIEN EN+2~, EN+12*, EN+13, NTE+67~, NTE+68*, NTE+71, NTE+72
ADDR EN+22~, EN+47*, EN+48*, EN+49
AMTH DATE+2~, DATE+6*
B EN+132~*!
CC DATE+2~, DATE+5*
CMT NTE+57~, NTE+61*, NTE+62*, NTE+63, NTE+64*, NTE+65
COORDBEN EN+79~, EN+80*, EN+81*, EN+82, EN+93!
DATA EN+22~, EN+30*
DD DATE+2~, DATE+5*
DFN EN+2~, EN+9*, EN+53, EN+62, EN+70, EN+76, EN+77, EN+83, EN+136, COMMENT+4~*
, COMMENT+6, ADDEND+5~, ADDEND+10
DONE NTE+41~*, NTE+42, NTE+52*
DUZ(2 EN+128
DX EN+22~, EN+114*, EN+117*, EN+119
DXCODE EN+22~, EN+115*, EN+118*, EN+119
ECH EN+22~, EN+28*, EN+36, EN+37, EN+45, EN+55, EN+119, NTE+70
EFFDT EN+22~, EN+38*, EN+39, EN+41
ERRARY MESSAGE~, MESSAGE+1
FDA EN+131~
FDA(123 EN+131*
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, EN+121, STATUS+10
GDATA EN+22~, EN+31*, EN+34, EN+36, EN+38, EN+39, EN+41, EN+45, EN+114, EN+115
, EN+121, NTE+5, NTE+60
GMRC0 EN+68~, EN+73*, EN+74, EN+82*, EN+85*, EN+89*, EN+92*, EN+100*, EN+102*, EN+103
, EN+108!
GMRC8925 ADDEND+5~
GMRCASTR NTE+15~, NTE+23*, NTE+25*, NTE+27, NTE+28
GMRCCMP NTE+15~, NTE+22*, NTE+25
GMRCD ADDEND+5~
GMRCD1 ADDEND+5~
GMRCDA EN+2~, EN+10*, EN+11, EN+12, EN+13, EN+14, EN+30, EN+31, EN+39, EN+40
, EN+42, EN+129, EN+131, NTE+18, NTE+46, NTE+68, NTE+71, NTE+72, STATUS+9, COMMENT~
, COMMENT+2, COMMENT+4, COMMENT+7, ADDEND+5~
GMRCDIV EN+127~, EN+128*, EN+130*, EN+131, EN+132, EN+133!
GMRCHL EN+22~, EN+27, EN+47, EN+56, EN+62, EN+143, EN+148, EN+149*
GMRCHL("ECH" EN+28
GMRCHL("EID" EN+26*, EN+27, EN+150
GMRCHLP EN+147~, EN+150
GMRCIN1 EN+68~, EN+108!
GMRCIN1( EN+72, EN+73, EN+103*, EN+104
GMRCM EN+33!, EN+148
GMRCM( EN+39*, EN+41*, EN+49*, EN+59*, EN+64*, EN+65*, EN+104*, EN+106*, EN+119*, EN+121*
, EN+124*, EN+125*, EN+132*, EN+136*, EN+137*, NTE+4*, NTE+10*, NTE+17*, NTE+33*, NTE+45*
, NTE+52*, NTE+59*, NTE+65*, NTE+73*, NTE+77*
GMRCN NTE+15~, NTE+18*, NTE+19, NTE+43~, NTE+46*, NTE+47
GMRCO ADDEND+5~, ADDEND+7*, ADDEND+11, ADDEND+12
GMRCORDN OITEM~, OITEM+8
GMRCP EN+22~, EN+62, EN+66!
GMRCP( EN+63, EN+64, EN+65
GMRCPARN NTE+19, STATUS+9*, STATUS+10, ADDEND+5~
GMRCRES EN+147~, EN+150
GMRCSTR EN+68~, EN+69*, EN+70, EN+108!
GMRCTXT NTE+15~, NTE+19, NTE+24, NTE+29, NTE+43~, NTE+47, NTE+48
HL EN+147~, EN+148*, NTE~, NTE+9, NTE+31, NTE+50, NTE+63, NTE+75
HLA EN+147~
HLA("HLS" EN+148*
HR TIME+2~, TIME+4*
I EN+2~, EN+4*, EN+8*, EN+63*, EN+64, EN+65, EN+68~, EN+72*, EN+73, EN+103
, EN+104, EN+108!, NTE+5*, NTE+23*, NTE+24*, NTE+25, NTE+28*, NTE+29*, NTE+47*, NTE+48*
, NTE+72*
INSP EN+68~, EN+74*, EN+97, EN+98, EN+102, EN+108!
INSPX EN+68~, EN+96*, EN+97, EN+108!
LASTVER EN+79~, EN+83*, EN+84*, EN+85, EN+93!
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, NTE+2
MSGTYP2 EN+2~, EN+10*, EN+20, EN+25, NTE+2, NTE+14, NTE+56
MSGTYP3 EN+2~, EN+10*, EN+12, EN+19*, EN+20, NTE+2, NTE+14, NTE+42
N EN+68~, EN+76*, EN+77, EN+83, EN+108!
NPI EN+46~*, EN+49, EN+58*, EN+59
NTECNT NTE+1~*, NTE+4, NTE+10*, NTE+17, NTE+33*, NTE+45, NTE+52*, NTE+59, NTE+73, NTE+77*
OK EN+2~, EN+14*, EN+15
OKFROM EN+2~, EN+13*, EN+15, NTE+2, STATUS+13
ORC EN+2~, EN+10*, EN+121, STATUS+10*
ORGDIV EN+129~*, EN+130, EN+131
ORIEN NTE+57~, NTE+60*, NTE+61
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
PLAN EN+68~, EN+86*, EN+87, EN+90, EN+108!
PLANID EN+90*, EN+91*, EN+92, EN+93!
PN EN+22~, EN+45*, EN+49
PRECERT EN+68~, EN+75*, EN+87*, EN+88*, EN+106*, EN+108!
Q NTE+67~, NTE+68*, NTE+73*
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 EN+68~, EN+98*, EN+99*, EN+100, EN+108!, OITEM+2~, OITEM+3*, OITEM+8*, OITEM+9*, OITEM+11
SEC TIME+2~, TIME+4*
SENS EN+22~, EN+136*
SNAME EN+22~, EN+25*, EN+26
STATUS EN+2~, EN+20*, EN+39, EN+41, NTE+70
T COMMENT+5~, COMMENT+8, ADDEND+5~, ADDEND+12
T(1 COMMENT+5*, ADDEND+9*
T(2 COMMENT+6*, ADDEND+10*
T(4 COMMENT+7*, ADDEND+11*
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 EN+116~, EN+117*, EN+118
TIUDA NTE+19, NTE+22, NTE+47, STATUS+9, STATUS+10, ADDEND~, ADDEND+3, ADDEND+4
TIUI TIME+2~, TIME+5*, DATE+2~, DATE+7*
TIUTMP DATE+2~, DATE+3*
TIUTYP ADDEND+5~
TYP EN+22~, EN+36*, EN+37*, EN+39, EN+41
TYPE EN+68~, EN+87*, EN+89, EN+108!
U EN+13, EN+37, EN+96, NTE+18, NTE+46, NTE+69, STATUS+9
UCID EN+3~, EN+40*, EN+41, EN+42
URG EN+22~, EN+34*, EN+35*, EN+39, EN+41
VAIP EN+139!
VAIP(13 EN+124, EN+137
VAIP(18 EN+124
VAIP(5 EN+125
VAL FEE+2~, FEE+3*, FEE+4*, FEE+5*, FEE+6*, FEE+7
X EN+68~, EN+77*, EN+80, EN+86, EN+95, EN+96, EN+108!, NTE+1~, NTE+5*, NTE+6*
, NTE+7, NTE+8*, NTE+9, NTE+10, NTE+24*, NTE+25, NTE+29*, NTE+30*, NTE+31, NTE+32*
, NTE+33, NTE+48*, NTE+49*, NTE+50, NTE+51*, NTE+52, NTE+68*, NTE+69, NTE+72*, NTE+74*
, NTE+75, NTE+76*, NTE+77, TIME~, TIME+4*, DATE~, DATE+3, DATE+5, DATE+8
X1 EN+95~*
Y EN+79~, EN+83*, EN+93!
YY DATE+2~, DATE+5*
ZCNT EN+22~, EN+28*, EN+39*, EN+41, EN+49*, EN+59*, EN+64*, EN+65, EN+104*, EN+106*
, EN+119*, EN+121*, EN+124*, EN+125, EN+132, EN+136, EN+137, NTE+4*, NTE+10*, NTE+17*
, NTE+33*, NTE+45*, NTE+52*, NTE+59*, NTE+65*, NTE+73*, NTE+77*
ZERR EN+22~, EN+28*, EN+62
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