IBCNFSND ;WOIFO/PO - Electronic Insurance Identification ;12/23/2011
Source file <IBCNFSND.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SENDEII | ; send HMS extract files and check status of files transfers.
; this subroutine is called from IBAMTC routine which is an scheduled job running once a day. |
|
| FILEDUE(IBDUEDAY,IBLTDAY,IBCRDT,IBNOW) | ; check if file is due
; input: IBDEUDAY - day of the month the file is due ; IBLTDAY - number of days after day of month to declare file is late ; IBCRDT - date/time last file was processed ; output: 1 - if file is due ; 0 - if file is not due |
|
| MSGNORES(IBFILE) | ; Notify G.IBCNF EII IRM mail group that the result file is not received
; input: IBNORES - result file name ; output: none |
|
| MSGNOEXT(IBNOEXT) | ; Notify G.IBCNF EII IRM mail group that the extract file is not created
; input: IBNOEXT(<file name>)="" list of the extract file names. ; output: none |
|
| MSGNOTRC(IBNOTREC) | ; Notify G.IBCNF EII IRM mail group the confirmation messages are not received for extract files
; input: IBNOTREC - array where ; IBNOTREC((<file index>)= <file name> ^ ; IBNOTREC(<file index>, <message index>) = <message #> ^ ; output: none |
|
| CHKEXT(IBD0,IBFILE,IBAITC,IBNOTREC) | ; For given extract file type check if all messages are confirmed.
; input: IBD0 - ien of HMS extract file status (#355.35) ; IBFILE - file name ; IBAITC = AITC DMI queue email address. |
|
| FILERD(DIR,FILE,IBTEXT) | ; Read the extract file into @IBTEXT@ array
; input: DIR - HMS directory name ; FILE - extract file name ; output: IBTEXT - array name where file is read into as @IBTEXT@(<1...n>) |
|
| MSGSEND(XMY,XMSUB,IBTEXT,IBFROM,IBTO,IBMAXREC) | ; send the extract file text to AITC DMI Queue
; input: XMY - array of recipients names ; XMSUB - message subject ; IBTEXT - array name where content of message is read from @IBTEXT@(IBFROM:IBTO) ; IBFROM - start of the message text in @IBTEXT@() array ; IBTO - end of the message text in @IBTEXT@() array ; IBMAXREC - maximum line length that can be put into each messge line. ; output: returns the created message id |
|
| CACTLOG(IBD0) | ; create the activity log of HMS extract file status
; input: IBD0 - ien of HMS extract file status (#355.35) ; output: none ; |
|
| PURGELOG(IBAKEEP) | ; purge the activity logs of HMS extract file status and HMS result file status
; input: IBAKEEP - number of days to keep the activity logs ; output: none |
|
| RESNDMSG(IBNOTREC,IBAKEEP) | ; Resend the messages for which the confirmation messages are not received for extract files
; input: IBNOTREC - array where ; IBNOTREC((<file index>)= file name^AITC DMI queue email address ; IBNOTREC(<file index>, <message index>) = message # ^ send date time ; IBAKEEP = number of days before purge the new message ; output: none |
|
| GMSGTXT(XMZ,IBRESMSG) | ; get message's txt
; input: XMZ - message id. ; output: IBRESMSG - array containing the message's txt |
| FileNo | Call Tags |
|---|---|
| ^IBA(355.35 - [#355.35] | Classic Fileman Calls |
