IBARXEL ;ALB/CPM - RX COPAY EXEMPTION INCOME TEST REMINDERS ;22-MAR-95
Source file <IBARXEL.m>
| 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 for the generation of income test reminder letters.
; Invoked by the nightly IB Background job (routine IBAMTC). |
|
| ENQ | ||
| ; Print a reminder letter.
; Required variable input: ; IBEX -- Pointer to exemption in file #354.1 ; IBLET -- Pointer to the reminder letter in file #354.6 |
||
| DATE(X) | ; Format the exemption expiration date.
|
|
| DOM(DFN) | ; Is the veteran in a domiciliary?
; Input: DFN - Pointer to the patient in file #2 ; Output: 0 - Vet is not in a domiciliary ; 1 - Vet is in a domiciliary |
|
| CONFADD() | ; Determine, does the patient have a Confidential Address.
; Input: VAPA() local array (by ADD^VADPT) |
| FileNo | Call Tags |
|---|---|
| ^IBA(354.1 - [#354.1] | Classic Fileman Calls |
| ^IBE(354.6 - [#354.6] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(42 - [#42] | DOM+7 |
| ^DPT - [#2] | EN+41 |
| ^IBA(354 - [#354] | EN+42 |
| ^IBA(354.1 - [#354.1] | EN+20, EN+21, EN+22, PRINT+6 |
| ^IBE(354.6 - [#354.6] | EN+4, EN+5, PRINT+11 |
| ^TMP("IBEX" | EN+19!, EN+43, EN+49*, EN+50*, EN+53, EN+58, EN+59, ENQ+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | EN+10 |
| A | DATE+1~*, DATE+2 |
| DA | ENQ*!, PRINT+18*! |
| DFN | EN+38*, EN+39, EN+40, EN+41, EN+42, EN+43, EN+49, EN+50, ENQ+3!, PRINT+9* , PRINT+10, DOM~ |
| DIE | ENQ*!, PRINT+18*! |
| DR | ENQ*!, PRINT+18*! |
| DT | PRINT+18 |
| IB | PRINT+19! |
| IBALIN | ENQ+5!, PRINT+11*, PRINT+12* |
| IBCNT | PRINT+19! |
| IBCNTL | PRINT+19! |
| IBD | EN+20*, EN+21, EN+39, ENQ+4! |
| IBDAT | EN+10*, EN+11, EN+12, EN+16, EN+17, ENQ+4! |
| IBDATA | ENQ+5!, PRINT+10* |
| IBDAY | EN+11*, EN+12*, EN+13, ENQ+4! |
| IBDEV | EN+6*, EN+54, ENQ+4! |
| IBEND | EN+17*, EN+20, ENQ+5! |
| IBEX | EN+21*, EN+22, EN+50, EN+59*, ENQ+4!, PRINT+6, PRINT+18 |
| IBEXD | EN+22*, EN+25, EN+29, EN+30, EN+32, EN+36, EN+38, EN+42, EN+50, ENQ+4! , PRINT+6*, PRINT+7, PRINT+9, PRINT+19! |
| IBEXPD | ENQ+5!, PRINT+7* |
| IBEXREA | EN+32*, EN+33, ENQ+4! |
| IBLASTPR | EN+25*, EN+26, EN+27, ENQ+5! |
| IBLET | EN+4*, EN+5, ENQ, ENQ+5!, PRINT+11 |
| IBLET0 | EN+5*, EN+6, EN+7, EN+13, EN+40, ENQ+4! |
| IBNAM | ENQ+5!, PRINT+10* |
| IBQUIT | ENQ+4!, PRINT+9* |
| IBREPR | EN+7*, EN+26, EN+27, ENQ, ENQ+4! |
| IBSCR | EN+58*, EN+59, ENQ+5! |
| IBSTART | EN+16*, EN+20, ENQ+5! |
| IBX | PRINT+19! |
| IBZIP | EN+47*, EN+48*, EN+50, ENQ+4! |
| IO | EN+55 |
| >> IOP | EN+54* |
| >> POP | EN+54 |
| TAB | PRINT+19! |
| U | CONFADD+3 |
| VA | EN+46!, ENQ+3!, PRINT+19!, DOM+5~ |
| VAERR | EN+46!, ENQ+3!, PRINT+19!, DOM+5~ |
| VAIN | DOM+5~ |
| VAIN(4 | DOM+7 |
| VAPA | EN+46!, ENQ+3!, PRINT+19! |
| VAPA( | EN+47 |
| VAPA(12 | CONFADD+2 |
| VAPA(22 | CONFADD+3 |
| X | ENQ+3!, DATE~, DATE+2 |
