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 |