IBCNEDE ;DAOU/DAC - eIV DATA EXTRACTS ;07-MAY-2015
Source file <IBCNEDE.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 10 | EN^IBCNEDE1 EN^IBCNEDE2 EN^IBCNEDE4 ^IBCNEDEP ^IBCNEHLM MMPURGE^IBCNEKI2 MSG004^IBCNEMS1 EN^IBCNERTC ($$MGRP,$$PYRAPP,MSG)^IBCNEUT5 AMCHECK^IBCNEUT6 |
| Kernel | 4 | (,UNWIND)^%ZTER ^%ZTLOAD ($$DOW,$$FMADD,$$FMTH,$$NOW)^XLFDT $$PROD^XUPROD |
| List Manager | 1 | PAUSE^VALM1 |
| Registration | 1 | $$SITE^VASITE |
| VA FileMan | 1 | $$GET1^DIQ |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 | Field # of Occurrence |
|---|---|
| ^%ZTER | ER+2 |
| UNWIND^%ZTER | ER+3 |
| ^%ZTLOAD | MMQ+28, DSTQ+22 |
| $$GET1^DIQ | EN+5, EN+8, WAIT+6 |
| EN^IBCNEDE1 | EXTRACTS+4 |
| EN^IBCNEDE2 | EXTRACTS+2 |
| EN^IBCNEDE4 | EXTRACTS+6 |
| ^IBCNEDEP | EN1+18 |
| ^IBCNEHLM | EN1+4 |
| MMPURGE^IBCNEKI2 | EN1+28 |
| MSG004^IBCNEMS1 | CKIIVEC+21 |
| EN^IBCNERTC | EN+27 |
| $$MGRP^IBCNEUT5 | MMQ+36, DSTQ+30 |
| $$PYRAPP^IBCNEUT5 | TBLCHK+8 |
| MSG^IBCNEUT5 | CKIIVEC+23, MMQ+37, DSTQ+30 |
| AMCHECK^IBCNEUT6 | EN+29 |
| PAUSE^VALM1 | EN+14 |
| $$SITE^VASITE | EN+5, CKIIVEC+16 |
| $$DOW^XLFDT | CKIIVEC+2 |
| $$FMADD^XLFDT | FRESHDT+5 |
| $$FMTH^XLFDT | MMQ+14, DSTQ+11 |
| $$NOW^XLFDT | EN+27, EN1+28 |
| $$PROD^XUPROD | CKIIVEC+19 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^HLCS(870 - [#870] | EN1+8 |
| ^HLMA("AC" | EN1+9, CKIIVEC+13 |
| ^IBE( | TBLCHK+10 |
| ^IBE(350.9 - [#350.9] | EN+17*, MMQ+7, DSTQ+6 |
| ^IBE(365.12 - [#365.12] | TBLCHK+5, TBLCHK+6 |
| ^TMP("IBCNEDE" | EN+13, ENX+2, ER+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CT | WAIT+3*, WAIT+5, WAIT+8*, WAIT+9! |
| CURRTIME | MMQ+4~, MMQ+12*, MMQ+19, DSTQ+3~, DSTQ+9*, DSTQ+16 |
| DT | CKIIVEC+2, FRESHDT+5, MMQ+13, DSTQ+10 |
| EXT | FRESHDT~ |
| IBLLIEN | EN1+7~, EN1+8*, EN1+9, CKIIVEC+13 |
| IBMSGIEN | EN1+7~, EN1+9*, EN1+20, CKIIVEC~, CKIIVEC+5, CKIIVEC+14 |
| IEN | CKIIVEC+1~, CKIIVEC+13*, CKIIVEC+14 |
| II | TBLCHK+3~, TBLCHK+10* |
| IIV | MMQ+4~, MMQ+7*, MMQ+8, MMQ+9, MMQ+10, MMQ+13, MMQ+33, DSTQ+3~, DSTQ+6*, DSTQ+7 , DSTQ+10, DSTQ+27 |
| MGRP | MMQ+4~, MMQ+36*, MMQ+37, DSTQ+3~, DSTQ+30* |
| MSG | CKIIVEC+21, MMQ+4~, DSTQ+3~ |
| MSG(1 | CKIIVEC+23, MMQ+32*, DSTQ+26* |
| MSG(2 | MMQ+33*, DSTQ+27* |
| MSG(3 | MMQ+34*, DSTQ+28* |
| MTIME | MMQ+4~, MMQ+13*, MMQ+14*, MMQ+15*, MMQ+19, MMQ+22, DSTQ+3~, DSTQ+10*, DSTQ+11*, DSTQ+12* , DSTQ+16 |
| PAY | TBLCHK+3~, TBLCHK+4*, TBLCHK+5*, TBLCHK+6 |
| PAYIEN | TBLCHK+3~, TBLCHK+4*, TBLCHK+6*, TBLCHK+8 |
| PAYOK | TBLCHK+3~, TBLCHK+4*, TBLCHK+5, TBLCHK+6, TBLCHK+8*, TBLCHK+9, TBLCHK+11 |
| QFL | EN1+13, EN1+15, EN1+16!, WAIT+3*, WAIT+5, WAIT+6*, WAIT+7 |
| STALEDT | FRESHDT+4~, FRESHDT+5*, FRESHDT+6 |
| STALEDYS | FRESHDT~, FRESHDT+5 |
| TBLOK | TBLCHK+3~, TBLCHK+4*, TBLCHK+10*, TBLCHK+11 |
| U | EN+5, EN+17, MMQ+8, MMQ+9, MMQ+10, MMQ+13, MMQ+33, DSTQ+7, DSTQ+10, DSTQ+27 |
| XMSUB | CKIIVEC+1~ |
| XMTEXT | CKIIVEC+1~ |
| XMY | CKIIVEC+1~, CKIIVEC+23 |
| XMY("VHAeInsuranceRapidResponse@domain.ext" | CKIIVEC+19* |
| XX | CKIIVEC+1~, CKIIVEC+16*, CKIIVEC+17 |
| Y | MMQ+4~ |
| YY | CKIIVEC+1~, CKIIVEC+17*, CKIIVEC+21 |
| ZTCPU | MMQ+5~, DSTQ+4~ |
| ZTDESC | MMQ+5~, MMQ+26*, DSTQ+4~, DSTQ+20* |
| ZTDTH | MMQ+5~, MMQ+19*, MMQ+22*, DSTQ+4~, DSTQ+16* |
| ZTIO | MMQ+5~, MMQ+27*, DSTQ+4~, DSTQ+21* |
| ZTKIL | MMQ+5~, DSTQ+4~ |
| ZTPRI | MMQ+5~, DSTQ+4~ |
| >> ZTQUEUED | ENX+1 |
| >> ZTREQ | ENX+1* |
| ZTRTN | MMQ+5~, MMQ+25*, DSTQ+4~, DSTQ+19* |
| ZTSAVE | MMQ+5~, DSTQ+4~ |
| ZTSK | EN+14, MMQ+5~, MMQ+29, DSTQ+4~, DSTQ+23 |
| >> ZTSTOP | EN1, EN1+12, EN1+23, EXTRACTS+3, EXTRACTS+5 |
| ZTSYNC | MMQ+5~, DSTQ+4~ |
| ZTUCI | MMQ+5~, DSTQ+4~ |
