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~ |