IVMPTRN3 ;ALB/KCL - SEND INITIAL TRANSMISSION TO IVM CENTER ; 9/24/03
Source file <IVMPTRN3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FILE | ; - call HL7 to send batch of segments
|
|
| FILE1 | ; - call HL7 to send batch of segments
; (V1.6 - call this if non-ack batch but still has an MSA segment.) ; Called by ^IVMPTRN and ^IVMPTRN7 with ^TMP("HLS",$J) global set. ; Must convert ^TMP("HLS" into ^TMP("HLA" for GENACK^HLMA1 to work. |
|
| FILEPT(DFN,IVMYR,WHEN,MSGID,EVENTS,MTSTAT,INSSTAT) | ;
|
|
| UPDTLOG(IVMPTR,WHEN,MSGID,EVENTS,MTSTAT,INSSTAT) | ;
; Update record to TRANSMITTED, and remove duplicates |
|
| DUP(DFN,IVMYR,IVMPTR) | ; remove duplicate entries in file 301.5
|
| FileNo | Call Tags |
|---|---|
| ^IVM(301.6 - [#301.6] | Classic Fileman Calls |
