DG53632P ;ALB/LBD - Post install routine for DG*5.3*632; 1 NOV 2004
Source file <DG53632P.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| POST | ; Post install entry point
|
|
| FVINC | ; Add new entry #86 to the INCONSISTENT DATA ELEMENTS file (#38.6)
|
|
| UNEMPOW | ; Run update process for Unemployable and POW Veterans
|
|
| QUETASK | ; Queue the Unemp/POW Vet update job
|
|
| EN | ; Entry point for queued process
|
|
| POW(DFN) | ; Is veteran a POW?
|
|
| UNEMP(DFN) | ; Is veteran Unemployable Priority 1?
|
|
| UPRX(DFN,EX) | ; Update RX Copay status in Annual Means Test file (#408.31)
; and Billing Patient file (#354) ; INPUT - DFN = Patient IEN ; EX = Exemption type, either POW or UNEMP |
|
| CHK() | ; Check if Unemp Vet update process should be run
|
|
| ACTIVE(TASK) | ; Check if task is running
; Input -- TASK = Task number ; Output -- 1 = Task is running ; 0 = Task is not running |
|
| SENDMSG | ; Send Mailman bulletin when process completes
|
| FileNo | Call Tags |
|---|---|
| ^IBA(354 - [#354] | GET1^DIQ |
| ^HLCS(869.3 - [#869.3] | GET1^DIQ |
