RCRCUTL ;ALB/CMS - RC REFERRAL UTILITY PROGRAM ; 16-JUN-00
Source file <RCRCUTL.m>
| Package | Total | Call Graph |
|---|---|---|
| Accounts Receivable | 1 | DEBTOR^PRCAUTL |
| Registration | 1 | (ADD,DEM)^VADPT |
| VA FileMan | 1 | ^DIC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;4.5;Accounts Receivable;**63,159,327**;Mar 20, 1995;Build 7
|
|
| BN | ;User Select an AR Bill No.
|
|
| BNA | ||
| BNQ | ||
| BNVAR(PRCABN) | ;Set PRCA( array with bill information
|
|
| BNVARQ | ||
| DEBT(PRCABN) | ;Get Debtor Name and Address
|
|
| DEBTQ | ||
| PT(DFN) | ;Get Patient information
|
|
| PTQ | ||
| RCDOM() | ;Get supporting RC Domain
|
|
| RCDOMQ | ||
| RCCAT(ARRAY) | ;Get array of valid AR/RC Bill Categories
|
|
| RCCATQ | ||
| REFST(PRCABN) | ;Referral Status
|
|
| REFSTQ | ||
| RETN(PRCABN) | ;Returned from RC/DOJ
|
|
| ACTDT(PRCABN) | ;Date account activated
|
|
| ACTDTQ | ||
| AEOB | ;File 433 Cross-Ref on Transaction Type
; -used to alert pending EOB processing when Payment in Part ; transaction is created |
|
| AEOBQ | ||
| ECHK | ;Check to see if pending EOB Code Processing exists
|
|
| ECHKQ | ||
| ADDR | ;Regional Counsel Addresses and Death Notification addresses.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^PRCA(430 - [#430] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | PT+3 |
| ^PRCA(430 - [#430] | BNVAR+4, REFST+4, REFST+5, RETN+3, ACTDT+4, ACTDT+5, ACTDT+6, AEOB+6 |
| ^PRCA(430.2 - [#430.2] | BNVAR+6, RCCAT+4, RCCAT+5, RCCAT+6, RCCAT+7 |
| ^PRCA(430.3 - [#430.3] | BNVAR+7 |
| ^PRCA(433 - [#433] | AEOB+5, AEOB+8*, ECHK+1 |
| ^RCT(349.1 - [#349.1] | RCDOM+6, RCDOM+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %Y | BN+2~, DEBT+4~ |
| ARRAY | RCCAT~ |
| ARRAY(10 | RCCAT+7* |
| ARRAY(6 | RCCAT+4* |
| ARRAY(7 | RCCAT+5* |
| ARRAY(9 | RCCAT+6* |
| DA | BN+2~, AEOB+4, AEOB+5, AEOB+8 |
| DFN | PT~, PT+3 |
| DIC | BN+2~, BNA* |
| DIC("S" | BNA+1* |
| DIC(0 | BNA* |
| >> PRCA("BNAME" | BNVAR+5* |
| >> PRCA("CAT" | BNVAR+6* |
| >> PRCA("DEBTAD1" | DEBT+6!, DEBT+13* |
| >> PRCA("DEBTAD2" | DEBT+6!, DEBT+14* |
| >> PRCA("DEBTADD" | DEBT+6!, DEBT+15* |
| >> PRCA("DEBTCT" | DEBT+5!, DEBT+10* |
| >> PRCA("DEBTNM" | DEBT+5!, DEBT+9 |
| >> PRCA("DEBTOR" | DEBT+5! |
| >> PRCA("DEBTST" | DEBT+6!, DEBT+12* |
| >> PRCA("DEBTZIP" | DEBT+5!, DEBT+11* |
| >> PRCA("STATUS" | BNVAR+7* |
| PRCABN | BNA+2*, BNA+3!, BNVAR~, BNVAR+3, BNVAR+4, DEBT~, DEBT+7, REFST~, REFST+4, REFST+5 , RETN~, RETN+3, ACTDT~, ACTDT+3, ACTDT+4, ACTDT+5, ACTDT+6, AEOB+3~, AEOB+5*, AEOB+6 , AEOB+7, AEOB+8 |
| PRCABN0 | BNVAR+2~, BNVAR+4*, BNVAR+5, BNVAR+6, BNVAR+7 |
| PRCACT | DEBT+4~, DEBT+10 |
| PRCAKP | DEBT+4~, DEBT+11 |
| PRCAST | DEBT+4~, DEBT+12 |
| PRCAST1 | DEBT+4~, DEBT+13 |
| PRCAST2 | DEBT+4~, DEBT+14 |
| RCAT | AEOB+3~ |
| U | BNVAR+5, BNVAR+6, BNVAR+7, RCDOM+7, RCCAT+4, RCCAT+5, RCCAT+6, RCCAT+7, REFST+4, REFST+5 , RETN+3, AEOB+5, AEOB+6 |
| VA | PT+2! |
| VADM | PT+2! |
| VAPD | PT+2! |
| X | BN+2~, DEBT+4~, DEBT+15, RCDOM+2~, RCDOM+6*, RCDOM+7*, RCDOMQ, REFST+3~*, REFST+5*, REFST+6* , REFSTQ, RETN+3~*, RETN+4, ACTDT+2~*, ACTDT+4*, ACTDT+5*, ACTDT+6*, ACTDTQ, AEOB+4 |
| Y | BN+2~, BNA+2, DEBT+4~ |