RCKATP ;ALB/CPM - ADJUST ACCOUNTS FOR KATRINA VETS ; 28-FEB-06
Source file <RCKATP.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 4 | DEC^PRCASER1 $$EXEMPT^RCBEUTR2 $$GETTRANS^RCDPBTLM EN^RCKATPD |
| Kernel | 2 | ^%ZTLOAD (BMES,MES)^XPDUTL |
| Integrated Billing | 1 | $$CAN^IBAKAT |
| MailMan | 1 | ^XMD |
| Registration | 1 | $$EMGRES^DGUTL |
| VA FileMan | 1 | FILE^DICN |
| 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 |
|---|---|---|
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRCA(430 - [#430] | EX+9, EX+10, EX+54, DEC+7 |
| ^PRCA(433 - [#433] | EX+6, EX+7, EX+8, TPP+10, TPP+12, TPP+14, TPP+19, TPP+20 |
| ^RCD(340 - [#340] | EX+11, EX+73*, EX+78, CHK+8, CHK+14, FLAG+4, FLAG+8* |
| ^TMP("RCKATP" | EX+3!, EX+18*, EX+22, EX+26, EX+83! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DD | FLAG+7! |
| DFN | CHK~, CHK+7, CHK+8, FLAG~, FLAG+4, FLAG+6, ADJ~, ADJ+5 |
| DIC | FLAG+6*, FLAG+7! |
| DIC(0 | FLAG+6* |
| DLAYGO | FLAG+6*, FLAG+7! |
| DO | FLAG+7! |
| DUZ | DEC+10, BULL+15 |
| RC | EX+66*, EX+84! |
| RCAMT | EX+60*, EX+64, EX+65, EX+69, EX+85!, TPP+7~, TPP+8*, TPP+11*, TPP+23*, TPP+25 , DEC~, DEC+6, ADJ~, ADJ+7 |
| RCAPA | EX+64*, EX+65, EX+66, EX+85! |
| RCAPI | EX+65*, EX+66, EX+85! |
| RCAPPLY | EX+49*, EX+50, EX+57, EX+60, EX+61, EX+85! |
| RCB | EX+8*, EX+9, EX+10, EX+18, EX+26*, EX+29, EX+54, EX+66, EX+84!, TPP+7~ , TPP+10*, TPP+12, TPP+13, TPP+23, TPP+25, DEC+7*, DEC+8, DEC+10 |
| RCBILL | DEC~, DEC+7 |
| RCBUCK | EX+25*, EX+57*, EX+61*, EX+77, EX+78, EX+79, EX+84!, DEC+5~, DEC+6*, DEC+10 , DECQ |
| RCCB | EX+29*, EX+84! |
| RCCOM | EX+66, EX+85! |
| RCCOM(1 | EX+4*, EX+78 |
| RCD | EX+5*, EX+6*, EX+7, EX+84! |
| RCDEB | EX+11*, EX+12, EX+14, EX+15, EX+22*, EX+26, EX+73, EX+78, EX+84!, CHK+4~ , CHK+8*, CHK+11, CHK+14, FLAG+3~, FLAG+4*, FLAG+5, FLAG+7*, FLAG+8 |
| RCDEBN | ADJ+4~, ADJ+5*, ADJ+7 |
| RCDPT | EX+10*, EX+11, EX+18, EX+84! |
| RCDT | EX+30*, EX+31, EX+32, EX+35, EX+84! |
| RCEXEM | EX+46*, EX+49, EX+85! |
| RCH | EX+29*, EX+35*, EX+40, EX+84!, CHK+4~, CHK+5*, CHK+11*, CHK+14*, CHKQ, TPP~ |
| RCH( | TPP+13, TPP+23* |
| RCHOLD | EX+29*, EX+36*, EX+37*, EX+41*, EX+42*, EX+45, EX+46, EX+84! |
| RCI | TPP+7~, TPP+19*, TPP+20 |
| RCINT | EX+45*, EX+49, EX+85! |
| RCINTB | EX+54*, EX+57, EX+60, EX+61, EX+85! |
| RCLIST | EX+85! |
| RCLIST( | EX+30, EX+31, EX+32 |
| RCMSG | DEC+5~, DEC+9*, DEC+10, ADJ+4~, ADJ+6*, ADJ+7 |
| RCN | BULL+1~ |
| RCNEWP | EX+25*, EX+53*, EX+80, EX+84! |
| RCQ | TPP+7~, TPP+18*, TPP+19, TPP+20* |
| RCRES | EN+4*, EN+9!, TPP+7~, TPP+8*, TPP+25*, TPPQ, BULL+7, BULL+8, BULL+9, BULL+10 , BULL+11 |
| RCS | TPP+7~, TPP+18*, TPP+20 |
| RCT | EX+7*, EX+8, EX+31*, EX+32, EX+84!, TPP+7~, TPP+12*, TPP+13, TPP+14, TPP+19 , TPP+20, TPP+23, DEC+5~, DEC+10, BULL+1~ |
| RCT(1 | BULL+2* |
| RCT(2 | BULL+3* |
| RCT(3 | BULL+4* |
| RCT(4 | BULL+5* |
| RCT(5 | BULL+6* |
| RCT(6 | BULL+7*, BULL+9* |
| RCT(7 | BULL+10* |
| RCT(8 | BULL+11* |
| RCTD | TPP+7~, TPP+14*, TPP+15, TPP+23 |
| RCTI | TPP~, TPP+9, TPP+10, TPP+12 |
| RCTOTAL | EN+9!, EX+21*, EX+69*, EX+79*, EX+80*, BULL+4, BULL+5 |
| RCV | EX+32*, EX+35, EX+36, EX+37, EX+40, EX+41, EX+42, EX+85! |
| X | EX+54*, EX+64, EX+85!, FLAG+6* |
| XMDUZ | BULL+1~, BULL+16* |
| XMSUB | BULL+1~, BULL+13* |
| XMTEXT | BULL+1~, BULL+14* |
| XMY | BULL+1~ |
| XMY( | BULL+15* |
| XMY("G.PRCA A | DJUSTMENT TRANS" , BULL+15* |
| >> Y | FLAG+7 |
| ZTDESC | POST+4*, POST+8! |
| ZTDTH | POST+3*, POST+8! |
| ZTIO | POST+3*, POST+8! |
| >> ZTQUEUED | EN+8 |
| >> ZTREQ | EN+8* |
| ZTRTN | POST+3*, POST+8! |
| ZTSK | POST+6, POST+7, POST+8! |
