RCKATP ;ALB/CPM - ADJUST ACCOUNTS FOR KATRINA VETS ; 28-FEB-06
Source file <RCKATP.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
POST | ; Queue PRCA*4.5*241 post-init job.
|
|
EN | ; Queued entry point to run the PRCA*4.5*241 post init.
|
|
EX | ; Entry point to exempt interest/admin charges
|
|
CHK(DFN) | ; Check to see if vet should have charges cancelled
; Input: DFN -- Pointer to patient in file 2 ; Output: 0 -- No, don't cancel charges ; 1 -- Yes, cancel charges |
|
CHKQ | ||
TPP(RCTI,RCH) | ; Identify decreases that are credits for third party payments
; Input: RCTI -- Pointer to AR Transaction in file 433 ; RCH -- Array of 'counted' transactions passed by reference ; Output: RCRES -- 1^2, where ; 1 = total amount of credit adjustments ; 2 = pointer to the affected bill in file #430 |
|
TPPQ | ||
DEC(RCBILL,RCAMT) | ; Decrease a bill
; Input: RCBILL -- Bill Number of a bill in file 430 ; RCAMT -- Amount to decrease bill ; Output: RCBUCK -- Amount not decreased, to go to bucket |
|
DECQ | ||
FLAG(DFN) | ; Flag veteran as having had copay charges cancelled
; Input: DFN -- Pointer to patient in file 2 |
|
ADJ(DFN,RCAMT) | ; Make final credit adjustments to the vet's account
; Input: DFN -- Pointer to patient in file 2 ; RCAMT -- Amount to decrease from account |
|
BULL | ; Send job completion bulletin
|
FileNo | Call Tags |
---|---|
^RCD(340 - [#340] | Classic Fileman Calls |