IBY659PO ;AITC/VD - Post-Installation for IB patch 659; 22-MAY-2018
Source file <IBY659PO.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DOC | ;
; REGMSG send site registration message to FSC for version change from 10 to 11. ; Don't send if site is MANILA (#358) ; SITEFIL set the initial values for: ; MEDICARE FRESHNESS DAYS in [#350.9,51.32] to "365". ; MANILA EIV ENABLED in [#350.9,51.33] to "N" for all VAMC sites. ; TSKCLN clean-up the corrupted records in the Insurance Verification Processor file (#355.33). ; ICR # 10063 for ^%ZTLOAD ; ICR # 10103 for ^XLFDT |
|
| EN | ; Entry Point for Post-Install routine
|
|
| REGMSG(IBXPD) | ; send site registration message to FSC
|
|
| REGMSGQ | ;
|
|
| SITEFIL(IBXPD) | ; Set initial value of [#350.9,51.32] and [#350.9,51.33]
|
|
| TSKCLN(IBXPD) | ; Clean-up corrupted records in the Insurance Verification Processor file #355.33
|
|
| TSKCLNQ | ||
| TASK(ZTDTH,ZTDESC,ZTRTN,ZTIO) | ;bypass for queued task
|
|
| SCHED(ZTDTH,ZTIO) | ;
|
|
| BADRECS(IBXPD) | ; Clean-up corrupted records in File #355.33.
|
|
| BADRECQ | ||
| DELDATA | ; Delete data from corrupted records.
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | TASK+2 |
| ^%ZTLOAD | SCHED+2 |
| DESC^%ZTLOAD | TASK+6 |
| ISQED^%ZTLOAD | TASK+10 |
| ^DIE | SITEFIL+7, SITEFIL+12, DELDATA+14 |
| $$GET1^DIQ | BADRECS+10 |
| GETS^DIQ | DELDATA+6 |
| ^IBCNEHLM | REGMSG+7 |
| MSG^IBCNEUT5 | BADRECS+19 |
| $$SITE^VASITE | EN+4, BADRECS+4 |
| $$FMADD^XLFDT | TSKCLN+7 |
| $$HTE^XLFDT | TASK+11 |
| $$NOW^XLFDT | TSKCLN+7 |
| BMES^XPDUTL | REGMSG+1, SITEFIL+2, TSKCLN+1 |
| MES^XPDUTL | EN+5, EN+12, EN+13, REGMSG+2, REGMSG+3, REGMSG+5, REGMSG+6, SITEFIL+3, SITEFIL+6, SITEFIL+11 , TSKCLN+2, TSKCLN+3, TSKCLN+4, TSKCLN+13 |
| $$PROD^XUPROD | REGMSG+6, BADRECS+18 |
| FileNo | Call Tags |
|---|---|
| ^IBA(355.33 - [#355.33] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(355.33 - [#355.33] | BADRECS+8, BADRECS+9, BADRECS+10, DELDATA+2, DELDATA+18, DELDATA+19, DELDATA+20! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | TASK+1~ |
| CNT0 | BADRECS+1~, BADRECS+2*, BADRECS+9*, BADRECS+15 |
| CNTAR | BADRECS+1~, BADRECS+2*, BADRECS+10*, BADRECS+16 |
| DA | SITEFIL+1~, SITEFIL+7*, SITEFIL+8!, SITEFIL+12*, SITEFIL+13!, BADRECS+1~, DELDATA+1~, DELDATA+14*! |
| DIC | BADRECS+1~, DELDATA+1~, DELDATA+14! |
| DIE | SITEFIL+1~, SITEFIL+7*, SITEFIL+8!, SITEFIL+12*, SITEFIL+13!, BADRECS+1~, DELDATA+1~, DELDATA+14*! |
| DR | SITEFIL+1~, SITEFIL+7*, SITEFIL+8!, SITEFIL+12*, SITEFIL+13!, BADRECS+1~, DELDATA+1~, DELDATA+5*, DELDATA+10*, DELDATA+11* , DELDATA+13, DELDATA+14! |
| DR(1 | DELDATA+10* |
| GTASKS | TASK+1~, TASK+5! |
| GTASKS( | TASK+8 |
| IBBUFDA | BADRECS+1~, BADRECS+2*, BADRECS+8*, BADRECS+9, BADRECS+10, DELDATA+2, DELDATA+5, DELDATA+14, DELDATA+18, DELDATA+19 , DELDATA+20 |
| IBCNT | DELDATA+1~, DELDATA+5*, DELDATA+10* |
| IBFLD | DELDATA+1~, DELDATA+8*, DELDATA+9*, DELDATA+11 |
| IBFLDS | DELDATA+1~ |
| IBFLDS( | DELDATA+9 |
| IBI | DELDATA+1~, DELDATA+17*, DELDATA+18*, DELDATA+19, DELDATA+20 |
| IBIFN | DELDATA+1~, DELDATA+5*, DELDATA+6, DELDATA+9 |
| IBX | DELDATA+1~, DELDATA+19*, DELDATA+20 |
| IBXMY | BADRECS+1~, BADRECS+19 |
| IBXMY("VHAeInsuranceRapidResponse@domain.ext" | BADRECS+18* |
| IBXPD | EN+1~, REGMSG~, REGMSG+1, SITEFIL~, SITEFIL+2, SITEFIL+5, SITEFIL+10, TSKCLN~, TSKCLN+1, BADRECS~ |
| IDT | TASK+1~, TASK+2*, TASK+14 |
| MSG | TSKCLN+5~, TSKCLN+12*, TSKCLN+13, TASK+1~, TASK+9, TASK+11*, TASK+17*, TASK+20*, TASK+21, BADRECS+1~ |
| MSG(1 | BADRECS+13* |
| MSG(2 | BADRECS+14* |
| MSG(3 | BADRECS+15* |
| MSG(4 | BADRECS+16* |
| SITENAME | BADRECS+1~, BADRECS+5*, BADRECS+19 |
| SITESYS | EN+1~, EN+4*, REGMSG+5, BADRECS+1~, BADRECS+4*, BADRECS+5*, BADRECS+19 |
| TSK | TASK+1~, TASK+7*, TASK+8*, TASK+9, TASK+10, TASK+14*, TASK+17 |
| U | EN+4, BADRECS+5 |
| X | DELDATA+1~, DELDATA+2* |
| XDT | TASK+1~, TASK+2*, TASK+20 |
| XPDIDTOT | EN+1~, EN+2*, REGMSG+1, SITEFIL+2, TSKCLN+1 |
| Y | TASK+1~, TASK+2*, DELDATA+1~ |
| ZTDESC | TSKCLN+5~, TSKCLN+6*, TSKCLN+12, TASK~, TASK+6 |
| ZTDTH | TSKCLN+5~, TSKCLN+7*, TSKCLN+12, TASK~, TASK+2, SCHED~ |
| ZTIO | TSKCLN+5~, TSKCLN+8*, TSKCLN+12, TASK~, TASK+14, SCHED~ |
| ZTQUEUED | TSKCLN+5~, TSKCLN+9*, BADRECS+22 |
| >> ZTREQ | BADRECS+22* |
| ZTRTN | TSKCLN+5~, TSKCLN+10*, TSKCLN+12, TASK~ |
| ZTSK | TASK+1~, TASK+10*, TASK+11, SCHED+1~, SCHED+3 |
| ZTSK("D" | TASK+11 |
