IBCNEDE ;DAOU/DAC - eIV DATA EXTRACTS ;07-MAY-2015
Source file <IBCNEDE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; Entry Point
; Prevent simultaneous runs ; Set error trap to ensure that lock is released |
|
| EN1 | ||
| ENX | ; Purge task record - if queued
|
|
| EXTRACTS | ; Run the extracts
; IB*794\DTG switch the order to run eIV Appointment extract then eIV Buffer extract |
|
| CKIIVEC(IBMSGIEN) | ; Verifying that the IIV EC Logical Link is up and running.
|
|
| TBLCHK() | ;
; Confirm that at least one eIV payer and that all X12 tables ; have been loaded |
|
| WAIT | ; Wait for acknowledgement comes back from EC
; Hang for 60 seconds and check status again ; Try 360 times for a total of 21600 seconds (6 hours) |
|
| FRESHDT(EXT,STALEDYS) | ; Calculate Freshness
; Ext - ien of extract for future purposes ; Staledys - # of days in the past in which an insurance verification ; is considered still valid/current |
|
| MMQ | ; This procedure is responsible for scheduling the creation and
; sending of the daily MailMan statistical message if the site has ; defined this appropriately in the eIV site parameters. |
|
| MMQX | ;
|
|
| ER | ; Unlock the eIV Nightly Task and return to log error
|
|
| DSTQ | ; This procedure is responsible for scheduling the creation and
; sending of the daily statistical message to FSC. |
|
| DSTQX | ;
|
|
| CHKPER | ; IB*687 moved to routine IBCNINS as we had to check for other non-eIV non-human users
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
