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 |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: TIUCCRHL

Package: Text Integration Utility

Routine: TIUCCRHL


Information

TIUCCRHL ;LB/PB - Send TIU Notes MDM-T02 HL7 Message to CCRA/HSRM ;02/01/19 09:00

Source Information

Source file <TIUCCRHL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Health Level Seven 3 $$FMDATE^HLFNC  INIT^HLFNC2  GENERATE^HLMA  
Kernel 3 ($$FMTE,$$FMTHL7)^XLFDT  $$TRIM^XLFSTR  $$NS^XUAF4  
Registration 3 $$SSN^DPTLK1  (IN5,KVA)^VADPT  BLDPID^VAFCQRY  
Consult Request Tracking 2 $$DATE^GMRCCCRA  HL7TXT^GMRCHL7P  
VA FileMan 2 $$FIND1^DIC  ($$GET1,GETS)^DIQ  
MailMan 1 ^XMD  

Entry Points

Name Comments DBIA/ICR reference
EN() ;Entry point to routine called from POSTSIGN^TIULC1 for the CCRA TIU Documents - Historical
NTE(HL) ; Find TIU and build NTE segments
AUTHDTTM ; Add Author and Date/Time to NTE
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
ACK ; Process ACK HL7 messages
MESSAGE(MSGID,ERRARY) ; Send a MailMan Message with the errors
TIUC(X) ; Check each segment of the TIU notes for HL7 control characters

External References

Name Field # of Occurrence
$$FIND1^DIC EN+18
$$GET1^DIQ EN+50, NTE+10
GETS^DIQ EN+37
$$SSN^DPTLK1 EN+85
$$DATE^GMRCCCRA NTE+10
HL7TXT^GMRCHL7P NTE+16
$$FMDATE^HLFNC MESSAGE+2
INIT^HLFNC2 EN+19
GENERATE^HLMA EN+123
IN5^VADPT EN+77
KVA^VADPT EN+88
BLDPID^VAFCQRY EN+70
$$FMTE^XLFDT MESSAGE+2
$$FMTHL7^XLFDT EN+65, EN+66, EN+100, EN+112, AUTHDTTM+2
$$TRIM^XLFSTR NTE+13
^XMD MESSAGE+21
$$NS^XUAF4 EN+81

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC
^TIU(8925 - [#8925] GET1^DIQ,  GETS^DIQ
^TIU(8925.1 - [#8925.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TIU(8925 - [#8925] EN+12, EN+32, EN+48
^TMP("TIUHL7CCRA" EN+8*, EN+13*, EN+35, EN+39, EN+42*, EN+51*, EN+52*, EN+124!
^XTMP("TIUHL7CCRA" EN+122

Label References

Name Line Occurrences
$$TIME DATE+8
$$TIUC NTE+14
AUTHDTTM NTE+2
MESSAGE ACK+19
NTE EN+117
QDATE DATE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+82~*!
ABORT EN+6~
ADDR EN+15~
AMTH DATE+2~, DATE+6*
B EN+82~*!
BASEDT EN+6~
CC DATE+2~, DATE+5*
CLINARY EN+6~
COUNT EN+6~
CS EN+5~, EN+22*, EN+66, EN+81, EN+82, EN+113, EN+114
>> DA EN+8, EN+12, EN+13, EN+29, EN+32, EN+48
DATA EN+15~, EN+35*, EN+37
DATE MESSAGE+1~, MESSAGE+2*, MESSAGE+6
DD DATE+2~, DATE+5*
>> DFN EN+11, EN+12*, EN+13, EN+42, EN+69*, EN+70, EN+85
DIFROM MESSAGE+1~
DONE ACK+1~, ACK+7*, ACK+8, ACK+10*
DUZ MESSAGE+1~
DUZ(2 EN+81
DX EN+15~
DXCODE EN+15~
ECH EN+15~, EN+20*
EFFDT EN+15~
ERRARY ACK+1~, ACK+19, MESSAGE~
ERRARY( ACK+15*, ACK+17*, ACK+18*, MESSAGE+9, MESSAGE+11, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16
, MESSAGE+17
ERRI ACK+1~, ACK+3*, ACK+14*, ACK+15, ACK+17, ACK+18
ES EN+5~, EN+24*
FMT TIME~, TIME+3*, TIME+5*, TIME+6, DATE~, DATE+3*, DATE+4*, DATE+6, DATE+7*, DATE+8*
QDATE
FS EN+5~, EN+21*, EN+65, EN+66, EN+78, EN+79, EN+82, EN+85, EN+86, EN+100
, EN+101, EN+112, EN+113, NTE+6, NTE+17, AUTHDTTM+1, AUTHDTTM+2, AUTHDTTM+3
GDATA EN+15~, EN+39*, EN+42, EN+44, EN+52, EN+65, EN+66, EN+69, EN+100, EN+101
, EN+112, EN+113, EN+114, NTE+6, NTE+8, NTE+10, NTE+12, AUTHDTTM+1, AUTHDTTM+2
GMRCCMP NTE+4~, NTE+5*, NTE+10*
GMRCDA EN+3~, EN+29*, EN+32*, EN+37, EN+39, EN+101, EN+112, NTE+10
GMRCDIV EN+80~, EN+81*, EN+82, EN+83!
GMRCHL EN+15~, EN+19, EN+70, EN+117, EN+121, EN+122*
GMRCHL("ECH" EN+20, EN+22, EN+23, EN+24, EN+25
GMRCHL("EID" EN+18*, EN+19, EN+123
GMRCHL("FS" EN+21
GMRCHL("MID" EN+26
GMRCHLP EN+120~, EN+123
GMRCM EN+3~, EN+121
GMRCM( EN+65*, EN+66*, EN+72*, EN+73*, EN+78*, EN+79*, EN+82*, EN+85*, EN+86*, EN+100*
, EN+101*, EN+112*, EN+113*, EN+114*, NTE+6*, NTE+17*, AUTHDTTM+1*, AUTHDTTM+2*, AUTHDTTM+3*
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
GMRCP EN+15~, EN+70, EN+74!
GMRCP( EN+71, EN+72, EN+73
GMRCRES EN+120~, EN+123
HDR EN+6~
HDRTIME EN+6~
HL EN+120~, EN+121*, NTE~, NTE+16
HL("DTM" MESSAGE+2
HLA EN+120~
HLA("HLS" EN+121*
>> HLNEXT ACK+4
HLNODE EN+5~, EN+27*, ACK+5
HLNODE( ACK+6
HLQUIT EN+5~, EN+27*, ACK+4
HR TIME+2~, TIME+4*
I EN+3~, EN+71*, EN+72, EN+73, NTE+11*, NTE+12*, 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+9*
, MESSAGE+11, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+17
J MESSAGE+1~, MESSAGE+9*, MESSAGE+10*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+14*, MESSAGE+15*, MESSAGE+16*, MESSAGE+17*
LASTSEG EN+6~
MID EN+5~, EN+26*
MIN TIME+2~, TIME+4*
MM DATE+2~, DATE+5*, DATE+6
MSG EN+6~
MSGARY EN+6~
MSGID ACK+1~, ACK+11*, ACK+19, MESSAGE~, MESSAGE+7
MSGTEXT MESSAGE+1~
MSGTEXT( MESSAGE+10*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+14*, MESSAGE+15*, MESSAGE+16*, MESSAGE+17*
MSGTEXT(1 MESSAGE+4*
MSGTEXT(2 MESSAGE+5*
MSGTEXT(3 MESSAGE+6*
MSGTEXT(4 MESSAGE+7*
MSGTEXT(5 MESSAGE+8*
NTECNT NTE+1~*, NTE+6, NTE+17*, AUTHDTTM+1, AUTHDTTM+2*, AUTHDTTM+3*, AUTHDTTM+4*
OK EN+3~, EN+45*, EN+49*, EN+51*, EN+52*, EN+53
PARDOCTY EN+3~, EN+48*, EN+49, EN+50
PCADDR EN+16~
PCDUZ EN+16~
PCP EN+16~
PCPH EN+16~
PCPN EN+16~
PDUZ EN+15~
PH EN+15~
PN EN+15~
POSTSIGC EN+3~, EN+30*, EN+50*, EN+51
PROVDTL EN+6~
PRSIG1 EN+110~
PRSIG2 EN+110~
RES EN+15~
RS EN+5~, EN+23*
SEC TIME+2~, TIME+4*
SEG EN+6~
SEGTYPE EN+6~
SENS EN+15~, EN+85*
SNAME EN+15~, EN+17*, EN+18
SS EN+5~, EN+25*, EN+82, EN+114
STATUS EN+3~
TIUI TIME+2~, TIME+5*, DATE+2~, DATE+7*
TIUTMP DATE+2~, DATE+3*
TIUTYP EN+3~, EN+44*, EN+46, NTE+8*, NTE+9
TYP EN+15~
U MESSAGE+11, MESSAGE+12, MESSAGE+13, MESSAGE+14, MESSAGE+15, MESSAGE+16, MESSAGE+17
URG EN+15~
VAIP EN+87!
VAIP(13 EN+78, EN+86
VAIP(18 EN+78
VAIP(5 EN+79
X NTE+1~, NTE+12*, NTE+13*, NTE+14*, NTE+15, NTE+16, NTE+17, TIME~, TIME+4*, DATE~
, DATE+3, DATE+5, DATE+8, ACK+1~, ACK+6*, TIUC~, TIUC+1, TIUC+2*, TIUC+3*, TIUC+4*
, TIUC+5*, TIUC+6*, TIUC+7*, TIUC+8*, TIUC+9*, TIUC+10*, TIUC+11*, TIUC+12*, TIUC+13
XMDUZ MESSAGE+1~, MESSAGE+19*
XMMG MESSAGE+1~
XMROU MESSAGE+1~
XMSTRIP MESSAGE+1~
XMSUB MESSAGE+1~, MESSAGE+3*
XMTEXT MESSAGE+1~, MESSAGE+18*
XMY MESSAGE+1~
XMY("G.GMRC H CP HL7 MESSAGES" , MESSAGE+20*
XMYBLOB MESSAGE+1~
XMZ MESSAGE+1~
YY DATE+2~, DATE+5*
ZCNT EN+15~, EN+20*, EN+64*, EN+65, EN+66, EN+72*, EN+73, EN+78*, EN+79, EN+82
, EN+85, EN+86, EN+99*, EN+100, EN+101, EN+111*, EN+112, EN+113, EN+114, NTE+6*
, NTE+17*, AUTHDTTM+1*, AUTHDTTM+2*, AUTHDTTM+3*
ZERR EN+15~, EN+20*, EN+69*, EN+70
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All