IVMPTRN4 ;ALB/SEK,TDM - SEND RE-TRANSMISSIONS TO THE IVM CENTER ; 8/15/08 10:29am
Source file <IVMPTRN4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTRY | ; Check if message transmission has not been acknowledged for the
; following date range (IVMDMT3 through IVM14) where: ; IVMDMT3 - First Date Checked ; IVM14 - Last Date Checked |
|
| ENTRYQ | ||
| MAILMSGN | ; Get Mailman message number related to this transmission
|
|
| MSGN(IVMDT) | ; Find the mailman message number for an HL7 message
; Input: IVMDT -- The date/time (301.6;.02) the msg was sent ; Output: Pointer to the message in file #773, or zero if not found |
|
| MSGNQ | ||
| MMN(Y) | ; Do look-up on file #772 and find mail message number.
; Input: Y -- Message Control ID ; Output: Mail Message Number |
|
| MMNQ |
