IBPU2 ;ALB/BGA - IB PURGE FILE CLEAN UP ; 17-FEB-94
Source file <IBPU2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | FILE^DICN ^DIE ^DIK |
| Integrated Billing | 1 | IFNTRN^IBCU83 |
| 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 |
|---|---|---|
| CTARNB | ; add a RNB (356,.19) for every episode found on the bill, if none exists (non-cancelled bills)
|
|
| CLBCOM | ; uses "D" xref to find all recs to be deleted
|
|
| CLPSTE | ; uses "AIFN_IBN" to find all recs pointing to the rec to be deleted
|
|
| CLCTBI | ; uses "C" xref to find all recs pointing to 399 then deletes
|
|
| CLCTRK | ; uses "E" xref to find all recs ptr to 399 then sets them to null
|
|
| IBPBIL | ; uses "AC" xref to find all recs ptr to 399 then sets to the bill #
|
|
| IBCYTO | ; uses "C" xref to find all recs ptr to 399 then sets the recs to null
|
|
| PTCH48 | ; CODE FOR PATCH IB*2*48 TO ADD NEW REASON NOT BILLABLE
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
| ^IBT(356.399 - [#356.399] | Classic Fileman Calls |
| ^IBE(356.8 - [#356.8] | Classic Fileman Calls |
| ^IBA(362.1 - [#362.1] | Classic Fileman Calls |
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | CTARNB+3, IBPBIL+2, IBCYTO+2, IBCYTO+3 |
| ^IBA( | CLPSTE+3 |
| ^IBA(362.1 - [#362.1] | CLBCOM+2 |
| ^IBE(356.8 - [#356.8] | CTARNB+1, PTCH48+2, PTCH48+4, PTCH48+5 |
| ^IBT(356 - [#356] | CTARNB+3, CLCTRK+2 |
| ^IBT(356.399 - [#356.399] | CLCTBI+2, CLCTBI+3 |
| ^TMP($J | CTARNB+2*, CLCTBI+3*, CLCTRK+2* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |