TIUCCRHL ;LB/PB - Send TIU Notes MDM-T02 HL7 Message to CCRA/HSRM ;02/01/19 09:00
Source file <TIUCCRHL.m>
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 |
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
|
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 |
FileNo | Call Tags |
---|---|
^ORD(101 - [#101] | FIND1^DIC |
^TIU(8925 - [#8925] | GET1^DIQ, GETS^DIQ |
^TIU(8925.1 - [#8925.1] | GET1^DIQ |
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 |
>> | 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 |