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.
|
| FileNo | Call Tags |
|---|---|
| ^IBA(355.33 - [#355.33] | Classic Fileman Calls, GET1^DIQ, GETS^DIQ |
