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 ($$GETADD,CCONTROL,MESSAGE)^GMRCCCR1  $$DATE^GMRCCCRA  ($$ADDR,$$PH,HL7TXT)^GMRCHL7P  
Text Integration Utility 3 EXTRACT^TIULQ  TGET^TIUSRVR1  GETLINK^TIUSRVT1  
Health Level Seven 2 INIT^HLFNC2  GENERATE^HLMA  
VA FileMan 2 $$FIND1^DIC  ($$GET1,GETS)^DIQ  
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
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
$$GET1^DIQ EN+14, EN+40, EN+96, NTE+22, NTE+55, AUTHDTTM+8, AUTHDTTM+9, FEE+4, FEE+5, FEE+6
, COMMENT+4, COMMENT+7, ADDEND+37, ADDEND+43, ADDEND+44
GETS^DIQ EN+30
$$SSN^DPTLK1 EN+126
$$GETADD^GMRCCCR1 EN+100
CCONTROL^GMRCCCR1 EN+11
MESSAGE^GMRCCCR1 MESSAGE+1
$$DATE^GMRCCCRA NTE+22
$$ADDR^GMRCHL7P EN+47, EN+55
$$PH^GMRCHL7P EN+47, EN+55
HL7TXT^GMRCHL7P NTE+9, NTE+31, NTE+44, NTE+57, NTE+69
INIT^HLFNC2 EN+27
GENERATE^HLMA EN+140
$$OI^ORX8 OITEM+8
$$OUTPTPR^SDUTL3 EN+52
EXTRACT^TIULQ ADDEND+7
TGET^TIUSRVR1 NTE+19, NTE+41
GETLINK^TIUSRVT1 EN+36
IN5^VADPT EN+116
KVA^VADPT EN+131
BLDPID^VAFCQRY EN+60
EN^VAFHLIN1 EN+68
$$FMTHL7^XLFDT EN+38, EN+114, AUTHDTTM+9
$$HLNAME^XLFNAME EN+45, EN+54
$$TRIM^XLFSTR NTE+6, NTE+30, NTE+43, NTE+55, NTE+68
$$UP^XLFSTR FEE+4, FEE+5, FEE+6
$$NS^XUAF4 EN+121

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
123.02 GET1^DIQ
123.03 GET1^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+93
^DPT - [#2] EN+9, EN+74, EN+75, EN+81, COMMENT+4, ADDEND+14
^GMR(123 - [#123] EN+12, EN+13, NTE+18, NTE+40, NTE+62, NTE+65, NTE+66, AUTHDTTM+1, STATUS+9, ADDEND+32
, ADDEND+34, ADDEND+36
^GMR(123.1 - [#123.1] NTE+63
^IBA(355.3 - [#355.3] EN+85, EN+88
^IBCNR(366.03 - [#366.03] EN+89
^TIU(8925 - [#8925] ADDEND+5
^TMP("GMRCHL7CCRA" EN+30, EN+31, EN+134!
^TMP("TIULQ" ADDEND+10, ADDEND+13, ADDEND+17
^TMP("TIUVIEW" NTE+34!, NTE+48!
^VA(200 - [#200] EN+46, EN+56
^XTMP("GMRCHL7H" EN+42*, EN+139

Label References

Name Line Occurrences
$$FEE EN+13, EN+14, ADDEND+44
$$OITEM COMMENT+7, ADDEND+43
$$STATUS EN+20
$$TIME DATE+8
AUTHDTTM NTE+3, NTE+16, NTE+38, NTE+52, NTE+65
EN COMMENT+8, ADDEND+44
MESSAGE ACK+19
NTE EN+133
QDATE DATE+3

Naked Globals

Name Field # of Occurrence
^( EN+74

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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