©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
BARMAWO1 ; IHS/SD/LSL - Automatic Write-off (con't) ;
Source file <BARMAWO1.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Accounts Receivable | 5 | (SETBLRL,SETVAR)^BARROLL TR^BARTDO ($$NEW,MSG)^BARTR $$FIND3PB^BARUTL $$VALI^BARVPM |
| IHS VA Utilities | 1 | $$DIC^XBDIQ1 |
| Third Party Billing | 1 | FILE^ABMAROLL |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ROLLTPB | ;
; File A/R data in payment mult of 3PB |
|
| WRITEOFF | ||
| ROLLBILL | ||
| LOOPDT | ;
; Loop A/R Bill File by date of service |
|
| LOOPBIL | ;
; Loop bills for date of service |
|
| LOOPDUZ | ; EP
; Loop A/R Bill File by DUZ(2) |
|
| ROLL | ;EP
; Changed code NHA-0601-180049 V1.6 Patch 4 ; Roll A/R vars to 3PB |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | ROLLTPB+6 |
| ^BARBL( | LOOPDUZ+3, LOOPDT+3, LOOPBIL+3, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4 |
| ^BARTMP("BARAWO" | WRITEOFF+24*, WRITEOFF+26* |
| ^BARTMP("BARAWO2" | WRITEOFF+34* |
| Name | Line Occurrences |
|---|---|
| LOOPBIL | LOOPDT+3 |
| LOOPDT | LOOPDUZ+3 |
| ROLL | ROLLBILL+6 |
| ROLLBILL | WRITEOFF+60 |
| ROLLTPB | ROLL+15 |
| WRITEOFF | LOOPBIL+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABM | ROLLTPB+2* |
| >> ABMP("BDFN" | ROLLTPB+5*, ROLLTPB+6, ROLLTPB+15 |
| >> ABMP("BILL" | ROLLTPB+6* |
| >> BAR("3P BILL | LOC" , ROLL+4*, ROLL+6, ROLL+7 |
| >> BAR("ACCT" | WRITEOFF+13 |
| >> BAR("LOC" | WRITEOFF+11 |
| >> BAR(0 | WRITEOFF+3*, WRITEOFF+5, WRITEOFF+6, WRITEOFF+9, WRITEOFF+13, WRITEOFF+14, WRITEOFF+59 |
| >> BAR(1 | WRITEOFF+4*, WRITEOFF+7, WRITEOFF+33 |
| >> BARACT | WRITEOFF+14*, WRITEOFF+19 |
| >> BARAMT | WRITEOFF+6*, WRITEOFF+25 |
| >> BARBAL | WRITEOFF+5*, WRITEOFF+23, WRITEOFF+59 |
| BARBL | WRITEOFF+57! |
| >> BARBL2 | LOOPBIL+2*, LOOPBIL+3*, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+24, WRITEOFF+26, WRITEOFF+34, WRITEOFF+37, ROLLBILL+3 |
| >> BARBLDA | ROLLBILL+3*, ROLL+4 |
| >> BARCNT | WRITEOFF+58* |
| >> BARDOS | LOOPDT+3 |
| >> BARDUZ | LOOPDUZ+2*, LOOPDUZ+3*, LOOPDT+3, LOOPBIL+3, WRITEOFF+2, WRITEOFF+3, WRITEOFF+4, WRITEOFF+24, WRITEOFF+26, WRITEOFF+34 , WRITEOFF+35 |
| >> BAREXP | WRITEOFF+32 |
| >> BARGBL | ROLL+14*, ROLL+15 |
| >> BARITYP | WRITEOFF+20*, WRITEOFF+21 |
| >> BARSUM | ROLLTPB+2 |
| >> BARTRIEN | WRITEOFF+36*, WRITEOFF+37, WRITEOFF+38, WRITEOFF+56 |
| >> BARVISIT | LOOPDT+2*, LOOPDT+3*, LOOPBIL+3 |
| >> BARVSTL | WRITEOFF+7*, WRITEOFF+11 |
| >> D0 | WRITEOFF+19* |
| DA | WRITEOFF+38*, WRITEOFF+55!, ROLL+3! |
| >> DIC | ROLL+13*, ROLL+14 |
| DIDEL | WRITEOFF+53*, WRITEOFF+55! |
| DIE | WRITEOFF+39*, WRITEOFF+55!, ROLL+3! |
| DR | WRITEOFF+40*, WRITEOFF+41*, WRITEOFF+42*, WRITEOFF+43*, WRITEOFF+44*, WRITEOFF+45*, WRITEOFF+46*, WRITEOFF+47*, WRITEOFF+48*, WRITEOFF+49* , WRITEOFF+50*, WRITEOFF+51*, WRITEOFF+52*, WRITEOFF+55!, ROLL+3! |
| DT | WRITEOFF+24, WRITEOFF+26, WRITEOFF+33, WRITEOFF+34 |
| DUZ | WRITEOFF+24, WRITEOFF+26, WRITEOFF+34 |
| DUZ(2 | WRITEOFF+35*, ROLL+4, ROLL+5, ROLL+6*, ROLL+9*, ROLL+12, ROLL+16*, ROLLTPB+6 |
| >> DUZO2 | ROLL+5*, ROLL+9, ROLL+16 |
| >> ROLL | ROLLBILL+5*, ROLLBILL+7, ROLL+9*, ROLL+10* |
| U | WRITEOFF+5, WRITEOFF+6, WRITEOFF+7, WRITEOFF+9, WRITEOFF+13, WRITEOFF+14, WRITEOFF+33, WRITEOFF+59 |
| >> X | ROLLTPB+3*, ROLLTPB+5 |
| >> Y | ROLL+7*, ROLL+9, ROLL+12*, ROLL+14, ROLLTPB+3 |