©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
BZSMAWO2 ; IHS/TAO/EDE - WRITE OFF OLD BILLS [ 05/23/2003 7:42 PM ]
Source file <BZSMAWO2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Accounts Receivable | 3 | (SETBLRL,SETVAR)^BARROLL TR^BARTDO $$NEW^BARTR |
| IHS VA Utilities | 2 | $$DIC^XBDIQ1 EN^XBVK |
| VA Fileman | 2 | ^DIE $$GET1^DIQ |
| Third Party Billing | 1 | (FILE,LKUP)^ABMAROLL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ROLLTPB | ; FILE A/R DATA IN PAYMENT MULTIPLE OF 3PB
|
|
| LOOPBIL | ; LOOP THRU A/R BILLS FOR SINGLE DATE OF SERVICE
|
|
| ROLLBILL | ; UPDATE PAYMENT MULTIPLE IN 3P, MARK COMPLETE AND ROLLED
; For bills written off, update Payment multiple in 3P and mark bill ; complete in 3PB. Also mark bill as rolled in A/R |
|
| WRITEOFF | ; WRITE OFF BILLS THAT MEET CRITERIA
|
|
| START | ; WRITE OFF BILLS
|
|
| LOOPDT | ; LOOP THRU A/R BILLS BY DATE OF SERVICE
|
|
| LOOPDUZ | ; LOOP THRU A/R BILLS BY DUZ(2)
|
|
| ROLL | ; ROLL A/R VARS TO 3PB
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BARAC(2906 - [#90050.02] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABMDBILL( | ROLL+10, ROLLTPB+4 |
| ^BARBL( | LOOPDUZ+2, LOOPDT+2, LOOPBIL+2, WRITEOFF+1, WRITEOFF+2, WRITEOFF+3, ROLL+9, ROLL+10 |
| ^BZSTMP("BZSAWO" | WRITEOFF+16*, WRITEOFF+18*, WRITEOFF+43* |
| ^DD(9002274.4 | START+1, START+2*, START+4* |
| Name | Line Occurrences |
|---|---|
| LOOPBIL | LOOPDT+5 |
| LOOPDT | LOOPDUZ+2 |
| LOOPDUZ | START+3 |
| ROLL | ROLLBILL+6 |
| ROLLBILL | WRITEOFF+44 |
| ROLLTPB | ROLL+13 |
| WRITEOFF | LOOPBIL+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABM | ROLLTPB+1* |
| >> ABMP("BDFN" | ROLLTPB+3*, ROLLTPB+4, ROLLTPB+6 |
| >> ABMP("BILL" | ROLLTPB+4*, ROLLTPB+5 |
| BARBL | ROLLBILL+4! |
| BARBL( | ROLL+2 |
| BARBL(17 | ROLL+4 |
| >> BARBLDA | ROLLBILL+3*, ROLL+9, ROLL+10 |
| >> BARSUM | ROLLTPB+1 |
| >> BZS("ACCT" | WRITEOFF+12 |
| >> BZS(0 | WRITEOFF+2*, WRITEOFF+4, WRITEOFF+5, WRITEOFF+8, WRITEOFF+12, WRITEOFF+13, WRITEOFF+42, WRITEOFF+43 |
| >> BZS(1 | WRITEOFF+3*, WRITEOFF+6 |
| >> BZS3PDA | ROLL+4*, ROLL+5, ROLL+6 |
| >> BZS3PNM | ROLL+2*, ROLL+3*, ROLL+10, ROLLTPB+5 |
| >> BZSACT | WRITEOFF+13*, WRITEOFF+14 |
| >> BZSAMT | WRITEOFF+5*, WRITEOFF+17 |
| >> BZSBAL | WRITEOFF+4*, WRITEOFF+15, WRITEOFF+42, WRITEOFF+43 |
| >> BZSBDOS | LOOPDT+4 |
| BZSBL | WRITEOFF+40! |
| >> BZSBL2 | LOOPBIL+1*, LOOPBIL+2*, WRITEOFF+1, WRITEOFF+2, WRITEOFF+3, WRITEOFF+16, WRITEOFF+18, WRITEOFF+43, ROLLBILL+3 |
| >> BZSCNT | WRITEOFF+41* |
| >> BZSDDSV | START+1*, START+4 |
| >> BZSDUZ | LOOPDUZ+1*, LOOPDUZ+2*, LOOPDT+2, LOOPBIL+2, WRITEOFF+1, WRITEOFF+2, WRITEOFF+3, WRITEOFF+16, WRITEOFF+18, WRITEOFF+19 |
| >> BZSEDOS | LOOPDT+3 |
| >> BZSGBL | ROLL+12*, ROLL+13 |
| >> BZSITYP | WRITEOFF+14* |
| >> BZSTRIEN | WRITEOFF+20*, WRITEOFF+21, WRITEOFF+39 |
| >> BZSVISIT | LOOPDT+1*, LOOPDT+2*, LOOPDT+3, LOOPDT+4, LOOPBIL+2 |
| >> BZSVSTL | WRITEOFF+6* |
| DA | WRITEOFF+21*, WRITEOFF+38!, ROLL+1! |
| >> DIC | ROLL+7*, ROLL+9, ROLL+12 |
| DIDEL | WRITEOFF+36*, WRITEOFF+38! |
| DIE | WRITEOFF+22*, WRITEOFF+38!, ROLL+1! |
| DR | WRITEOFF+23*, WRITEOFF+24*, WRITEOFF+25*, WRITEOFF+26*, WRITEOFF+27*, WRITEOFF+28*, WRITEOFF+29*, WRITEOFF+30*, WRITEOFF+31*, WRITEOFF+32* , WRITEOFF+33*, WRITEOFF+34*, WRITEOFF+35*, WRITEOFF+38!, ROLL+1! |
| DT | WRITEOFF+16, WRITEOFF+18, WRITEOFF+43 |
| DUZ | WRITEOFF+16, WRITEOFF+18, WRITEOFF+43 |
| DUZ(2 | WRITEOFF+19*, ROLL+8, ROLL+9*, ROLL+10*, ROLL+11, ROLL+14*, ROLLTPB+4 |
| >> DUZO2 | ROLL+8*, ROLL+9, ROLL+10, ROLL+14 |
| U | WRITEOFF+4, WRITEOFF+5, WRITEOFF+6, WRITEOFF+8, WRITEOFF+12, WRITEOFF+13, WRITEOFF+42, WRITEOFF+43, ROLL+9, ROLL+10 |
| >> X | ROLLTPB+2*, ROLLTPB+3 |
| >> Y | ROLL+6*, ROLL+11*, ROLL+12, ROLLTPB+2 |