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