IBARXEPS ;ALB/RM/PHH,EG - RX COPAY EXEMPTION UPDATE STATUS ; 12/13/2005
Source file <IBARXEPS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; Entry point from TaskMan
|
|
| START | ;Entry Point from post-install
|
|
| NAMESPC() | ; API returns the name space for this patch
|
|
| RUNCHK(NAMESPC) | ; Check to see if clean up is already running
|
|
| QTIME(WHEN) | ; Get the run time for queuing
|
|
| QUEUE(ZTDTH) | ; Queue the process
|
|
| UPDT(IBBDT,IBEDT,IBUP) | ;
; IBBDT - Beginning Date for the process ; IBEDT - Ending Date for the process ; IBUP - Update mode (1 - Update, 0 - Report only) |
|
| CHK | ; Check if current status = computed status
|
|
| CHKQ | ||
| UP | ; -- update current exemption status
|
|
| UP1 | ||
| UPQ | ||
| SET | ; Set ^tmp node if not okay
|
|
| REPORT | ; Send MailMan recap report of updated records
|
|
| REPORTQ | ||
| MSGLN(IBNAM,IBER) | ; Create the body of the report
|
|
| EXRSN | ; Exempt Reason Array for MailMan Message
|
| FileNo | Call Tags |
|---|---|
| ^IBE(350.9 - [#350.9] | GET1^DIQ |
| ^IBA(354 - [#354] | Classic Fileman Calls |
