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 |