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

Package: Consult Request Tracking

Routine: GMRCHL7H


Information

GMRCHL7H ;DSS/KC - Receive HL7 Message for HCP ;Jun 13, 2018@09:30

Source Information

Source file <GMRCHL7H.m>

Call Graph

Call Graph

Call Graph Total: 18

Package Total Call Graph
Kernel 5 ($$FMTE,$$FMTHL7)^XLFDT  $$HLNAME^XLFNAME  ($$TRIM,$$UP)^XLFSTR  F4^XUAF4  $$KSP^XUPARAM  
Health Level Seven 3 $$FMDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Registration 3 $$SSN^DPTLK1  (IN5,KVA)^VADPT  BLDPID^VAFCQRY  
Text Integration Utility 2 TGET^TIUSRVR1  GETLINK^TIUSRVT1  
VA FileMan 2 ($$FIND1,FIND)^DIC  ($$GET1,GETS)^DIQ  
Consult Request Tracking 1 ($$ADDR,$$PH,HL7TXT)^GMRCHL7P  
MailMan 1 ^XMD  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
Consult Request Tracking 5 GMRC HCP REF-I12 SERVER  GMRC HCP REF-I13 SERVER  GMRC HCP REF-I14 SERVER  GMRCACMT  GMRCGUIB  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN(MSG) ;Entry point to routine from GMRC CONSULTS TO HCP protocol attached or 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
; Recieves 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
ACK ; Process ACK HL7 messages
MESSAGE(MSGID,ERRARY) ; Send a MailMan Message with the errors
HLTEXT(MSGID) ;get hl7 message text; find obr and get consult record number

External References

Name Field # of Occurrence
$$FIND1^DIC EN+23
FIND^DIC HLTEXT+3
$$GET1^DIQ EN+13, EN+38, NTE+20, NTE+51, AUTHDTTM+8, AUTHDTTM+9, FEE+4, COMMENT+3, COMMENT+6, ADDEND+7
, ADDEND+10, ADDEND+14, ADDEND+22, ADDEND+28, ADDEND+29, HLTEXT+9, HLTEXT+11
GETS^DIQ EN+27
$$SSN^DPTLK1 EN+63
$$ADDR^GMRCHL7P EN+44
$$PH^GMRCHL7P EN+44
HL7TXT^GMRCHL7P NTE+8, NTE+29, NTE+41, NTE+52, NTE+63
$$FMDATE^HLFNC MESSAGE+2
INIT^HLFNC2 EN+24
GENERATE^HLMA EN+74
TGET^TIUSRVR1 NTE+18, NTE+38
GETLINK^TIUSRVT1 EN+33
IN5^VADPT EN+60
KVA^VADPT EN+65
BLDPID^VAFCQRY EN+47
$$FMTE^XLFDT MESSAGE+2
$$FMTHL7^XLFDT EN+35, EN+58, AUTHDTTM+9
$$HLNAME^XLFNAME EN+43
$$TRIM^XLFSTR NTE+6, NTE+28, NTE+40, NTE+51, NTE+62
$$UP^XLFSTR FEE+4
^XMD MESSAGE+29
$$GET^XPAR MESSAGE+3
F4^XUAF4 MESSAGE+6
$$KSP^XUPARAM MESSAGE+5

Used in HL7 Interface

HL7 Protocol Name Call Tags
GMRC HCP REF-I12 SERVER ACK
GMRC HCP REF-I14 SERVER ACK
GMRC HCP REF-I13 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
^HL(772 - [#772] GET1^DIQ
^HLMA - [#773] FIND^DIC,  GET1^DIQ
^TIU(8925 - [#8925] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+9, COMMENT+3, ADDEND+11
^GMR(123 - [#123] EN+11, EN+12, NTE+17, NTE+37, NTE+56, NTE+59, NTE+60, AUTHDTTM+1, STATUS+9, ADDEND+17
, ADDEND+19, ADDEND+21
^GMR(123.1 - [#123.1] NTE+57
^OR(100 - [#100] OITEM+3, OITEM+5
^TIU(8925 - [#8925] NTE+20, ADDEND+3
^TMP("GMRCHL7H" EN+27, EN+28, EN+68!
^TMP("TIUVIEW" NTE+31!, NTE+44!
^XTMP("GMRCHL7H" EN+40*, EN+73

Label References

Name Line Occurrences
$$DATE NTE+20
$$FEE EN+12, EN+13, ADDEND+29
$$HLTEXT MESSAGE+8
$$OITEM COMMENT+6, ADDEND+28
$$STATUS EN+19
$$TIME DATE+8
AUTHDTTM NTE+3, NTE+15, NTE+35, NTE+48, NTE+59
EN COMMENT+7, ADDEND+29
MESSAGE ACK+19
NTE EN+67
QDATE DATE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT NTE+55~, NTE+57*
ACTD NTE+55~, NTE+57*, NTE+58
ACTIEN EN+2~, EN+11*, EN+12, NTE+55~, NTE+56*, NTE+59, NTE+60, AUTHDTTM+1*, AUTHDTTM+2, AUTHDTTM+8
AUTHDTTM+9
ADDR EN+21~, EN+44*, EN+45
AMTH DATE+2~, DATE+6*
CC DATE+2~, DATE+5*
CMT NTE+47~, NTE+51*, NTE+52, NTE+53
DATA EN+21~, EN+27*
DATE MESSAGE+1~, MESSAGE+2*, MESSAGE+11
DD DATE+2~, DATE+5*
DFN EN+2~, EN+9*, EN+47, EN+63, COMMENT+3~*, COMMENT+5, ADDEND+4~, ADDEND+10*, ADDEND+11, ADDEND+17
, ADDEND+19, ADDEND+27
DIFROM MESSAGE+1~
DONE ACK+1~, ACK+7*, ACK+8, ACK+10*
DUZ MESSAGE+1~
DX EN+21~, EN+53*, EN+55*, EN+56
DXCODE EN+21~, EN+54*, EN+56
ECH EN+21~, EN+25*, EN+33, EN+34, EN+43, EN+56, NTE+58
EFFDT EN+21~, EN+35*, EN+36, EN+39
ERRARY ACK+1~, ACK+19, MESSAGE~
ERRARY( ACK+15*, ACK+17*, ACK+18*, MESSAGE+16, MESSAGE+18, MESSAGE+19, MESSAGE+20, MESSAGE+21, MESSAGE+22, MESSAGE+23
, MESSAGE+24
ERRI ACK+1~, ACK+3*, ACK+14*, ACK+15, ACK+17, ACK+18
FEESVC FEE~, FEE+1, FEE+4
FMT TIME~, TIME+3*, TIME+5*, TIME+6, DATE~, DATE+3*, DATE+4*, DATE+6, DATE+7*, DATE+8*
QDATE
FROMSVC EN+2~, EN+12*
FS EN+2~, EN+5*, EN+6, EN+9, EN+10, EN+58, STATUS+10
FSCGRP MESSAGE+1~, MESSAGE+3*, MESSAGE+28
GDATA EN+21~, EN+28*, EN+31, EN+33, EN+35, EN+36, EN+39, EN+43, EN+53, EN+54
, EN+58, NTE+5, NTE+50
GMRC772 HLTEXT+1~, HLTEXT+9*, HLTEXT+10, HLTEXT+11
GMRC773 HLTEXT+1~, HLTEXT+7*, HLTEXT+8, HLTEXT+9
GMRC8925 ADDEND+4~, ADDEND+22*, ADDEND+23
GMRCASTR NTE+14~, NTE+21*, NTE+23*, NTE+25, NTE+26
GMRCCMP NTE+14~, NTE+20*, NTE+23
GMRCD ADDEND+4~, ADDEND+16*, ADDEND+17*, ADDEND+19
GMRCD1 ADDEND+4~, ADDEND+20*, ADDEND+21*, ADDEND+22
GMRCDA EN+2~, EN+10*, EN+11, EN+12, EN+13, EN+27, EN+28, EN+36, EN+38, EN+40
, NTE+17, NTE+37, NTE+56, NTE+59, NTE+60, AUTHDTTM+1, AUTHDTTM+8, AUTHDTTM+9, STATUS+9, COMMENT~
, COMMENT+2, COMMENT+3, COMMENT+6, ADDEND+4~, ADDEND+18*, ADDEND+19*, ADDEND+21, ADDEND+22, ADDEND+23
GMRCERR HLTEXT+1~, HLTEXT+4
GMRCFLG HLTEXT+1~, HLTEXT+2*, HLTEXT+9
GMRCHL EN+21~, EN+24, EN+44, EN+47, EN+67, EN+72, EN+73*
GMRCHL("ECH" EN+25
GMRCHL("EID" EN+23*, EN+24, EN+74
GMRCHLP EN+71~, EN+74
GMRCI TIME+2~, TIME+5*, DATE+2~, DATE+7*
GMRCIFN HLTEXT+1~, HLTEXT+2*, HLTEXT+4, HLTEXT+5, HLTEXT+8, HLTEXT+10, HLTEXT+16*, HLTEXT+17
GMRCM EN+30!, EN+72
GMRCM( EN+36*, EN+39*, EN+45*, EN+49*, EN+50*, EN+56*, EN+58*, EN+61*, EN+62*, EN+63*
, EN+64*, NTE+4*, NTE+9*, NTE+16*, NTE+30*, NTE+36*, NTE+42*, NTE+49*, NTE+53*, NTE+61*
, NTE+64*, 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
GMRCMSID HLTEXT+1~, HLTEXT+11*
GMRCN NTE+14~, NTE+17*, NTE+18, NTE+34~, NTE+37*, NTE+38
GMRCNDX HLTEXT+1~, HLTEXT+2*
GMRCNO MESSAGE+1~, MESSAGE+8*, MESSAGE+14
GMRCO ADDEND+4~, ADDEND+16*, ADDEND+17, ADDEND+19, ADDEND+21, ADDEND+23*, ADDEND+24, ADDEND+28, ADDEND+29
GMRCOBR HLTEXT+1~, HLTEXT+15*, HLTEXT+16
GMRCOITM OITEM+1~, OITEM+3*, OITEM+4, OITEM+5
GMRCORDN OITEM~, OITEM+3, OITEM+5
GMRCOUT HLTEXT+1~
GMRCOUT("DILIST" HLTEXT+5, HLTEXT+6, HLTEXT+7
GMRCP EN+21~, EN+47, EN+51!
GMRCP( EN+48, EN+49, EN+50
GMRCPARN NTE+18, STATUS+9*, STATUS+10, ADDEND+4~, ADDEND+14*, ADDEND+23
GMRCRES EN+71~, EN+74
GMRCSTA MESSAGE+1~, MESSAGE+5*, MESSAGE+6, MESSAGE+7
GMRCSTNA MESSAGE+1~, MESSAGE+5*, MESSAGE+6, MESSAGE+7
GMRCSTNA("NAME" MESSAGE+7
GMRCTEXT MESSAGE+1~, MESSAGE+7*, MESSAGE+13
GMRCTMP DATE+2~, DATE+3*
GMRCTXT NTE+14~, NTE+18, NTE+22, NTE+27, NTE+34~, NTE+38, NTE+39
GMRCWPTX HLTEXT+1~
GMRCWPTX( HLTEXT+13, HLTEXT+14, HLTEXT+15
HL EN+71~, EN+72*, NTE~, NTE+8, NTE+29, NTE+41, NTE+52, NTE+63
HL("DTM" MESSAGE+2
HLA EN+71~
HLA("HLS" EN+72*
>> 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+48*, EN+49, EN+50, NTE+5*, NTE+21*, NTE+22*, NTE+23
, NTE+26*, NTE+27*, NTE+38*, NTE+39*, NTE+60*, 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, MESSAGE+1~, MESSAGE+16*
, MESSAGE+18, MESSAGE+19, MESSAGE+20, MESSAGE+21, MESSAGE+22, MESSAGE+23, MESSAGE+24, HLTEXT+1~, HLTEXT+12*, HLTEXT+13*
, HLTEXT+14, HLTEXT+15
IDX HLTEXT+1~, HLTEXT+2*, HLTEXT+6*, HLTEXT+7
J MESSAGE+1~, MESSAGE+16*, MESSAGE+17*, MESSAGE+18*, MESSAGE+19*, MESSAGE+20*, MESSAGE+21*, MESSAGE+22*, MESSAGE+23*, MESSAGE+24*
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+8, MESSAGE+12, HLTEXT~, HLTEXT+3
MSGTEXT MESSAGE+1~
MSGTEXT( MESSAGE+17*, MESSAGE+18*, MESSAGE+19*, MESSAGE+20*, MESSAGE+21*, MESSAGE+22*, MESSAGE+23*, MESSAGE+24*
MSGTEXT(1 MESSAGE+9*
MSGTEXT(2 MESSAGE+10*
MSGTEXT(3 MESSAGE+11*
MSGTEXT(4 MESSAGE+12*
MSGTEXT(5 MESSAGE+13*
MSGTEXT(6 MESSAGE+14*
MSGTEXT(7 MESSAGE+15*
MSGTYP EN+2~, EN+6*, EN+18, EN+22, NTE+2
MSGTYP2 EN+2~, EN+10*, EN+19, EN+22, NTE+2, NTE+13, NTE+46
MSGTYP3 EN+2~, EN+10*, EN+11, EN+18*, EN+19, NTE+2, NTE+13, NTE+33
NTECNT NTE+1~*, NTE+4, NTE+9*, NTE+16, NTE+30*, NTE+36, NTE+42*, NTE+49, NTE+61, NTE+64*
AUTHDTTM+3, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+6*, AUTHDTTM+8, AUTHDTTM+9*, AUTHDTTM+10*, AUTHDTTM+11*
OK EN+2~, EN+13*, EN+14
OKFROM EN+2~, EN+12*, EN+14, NTE+2, STATUS+13
ORC EN+2~, EN+10*, EN+58, STATUS+10*
ORIEN NTE+47~, NTE+50*, NTE+51
PDUZ EN+21~, EN+43*, EN+44
PH EN+21~, EN+44*, EN+45
PN EN+21~, EN+43*, EN+45
Q NTE+55~, NTE+56*, NTE+61*
QUIT EN+2~, EN+4*, EN+5*, EN+6*, EN+8, EN+9*, EN+14*, EN+17
RES EN+21~, EN+33, EN+34
RETVAL OITEM+1~, OITEM+2*, OITEM+5*, OITEM+6*, OITEM+7
SEC TIME+2~, TIME+4*
SENS EN+21~, EN+63*
SNAME EN+21~, EN+22*, EN+23
STATUS EN+2~, EN+19*, EN+36, EN+39, NTE+58
T COMMENT+4~, COMMENT+7, ADDEND+4~, ADDEND+29
T(1 COMMENT+4*, ADDEND+26*
T(2 COMMENT+5*, ADDEND+27*
T(4 COMMENT+6*, ADDEND+28*
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+18, NTE+20, NTE+38, STATUS+9, STATUS+10, ADDEND~, ADDEND+2, ADDEND+3, ADDEND+7, ADDEND+10
, ADDEND+14, ADDEND+23
TIUTYP ADDEND+4~, ADDEND+7*, ADDEND+8
TYP EN+21~, EN+33*, EN+34*, EN+36, EN+39
U EN+12, EN+34, NTE+17, NTE+20, NTE+37, NTE+57, STATUS+9, MESSAGE+18, MESSAGE+19, MESSAGE+20
, MESSAGE+21, MESSAGE+22, MESSAGE+23, MESSAGE+24
UCID EN+3~, EN+38*, EN+39, EN+40
URG EN+21~, EN+31*, EN+32*, EN+36, EN+39
>> VAIP(13 EN+61, EN+64
>> VAIP(18 EN+61
>> VAIP(5 EN+62
VAL FEE+2~, FEE+3*, FEE+4*, FEE+5
X NTE+1~, NTE+5*, NTE+6*, NTE+7, NTE+8, NTE+9, NTE+22*, NTE+23, NTE+27*, NTE+28*
, NTE+29, NTE+30, NTE+39*, NTE+40*, NTE+41, NTE+42, NTE+56*, NTE+57, NTE+60*, NTE+62*
, NTE+63, NTE+64, TIME~, TIME+4*, DATE~, DATE+3, DATE+5, DATE+8, ACK+1~, ACK+6*
XMDUZ MESSAGE+1~, MESSAGE+26*
XMMG MESSAGE+1~
XMROU MESSAGE+1~
XMSTRIP MESSAGE+1~
XMSUB MESSAGE+1~, MESSAGE+4*
XMTEXT MESSAGE+1~, MESSAGE+25*
XMY MESSAGE+1~
XMY( MESSAGE+28*
XMY("G.GMRC H CP HL7 MESSAGES" , MESSAGE+27*
XMYBLOB MESSAGE+1~
XMZ MESSAGE+1~
YY DATE+2~, DATE+5*
ZCNT EN+21~, EN+25*, EN+36*, EN+39, EN+45*, EN+49*, EN+50, EN+56*, EN+58*, EN+61*
, EN+62, EN+63, EN+64, NTE+4*, NTE+9*, NTE+16*, NTE+30*, NTE+36*, NTE+42*, NTE+49*
, NTE+53*, NTE+61*, NTE+64*, AUTHDTTM+3*, AUTHDTTM+4*, AUTHDTTM+5*, AUTHDTTM+8*, AUTHDTTM+9*, AUTHDTTM+10*
ZERR EN+21~, EN+25*, EN+47
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 |  Local Variables  | All