IBACVA1 ;ALB/CPM - BILL CHAMPVA SUBSISTENCE CHARGE ; 29-JUL-93
Source file <IBACVA1.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 6 | ERRMSG^IBACVA2 COST^IBAUTL2 ($$CHECK,$$LAST)^IBECEAU ADD^IBECEAU3 PROC^IBECEAU4 $$DAT1^IBOUTL |
Registration | 1 | IN5^VADPT |
VA Fileman | 1 | YMD^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
LIMQ | ||
LIM(DATE) | ; Find the CHAMPVA subsistence limit on DATE.
|
|
PD(IBDT) | ; Find the CHAMPVA per diem charge on IBDT.
|
|
PREVQ | ||
BILL | ; Create the CHAMPVA inpatient subsistence charge.
|
|
PDQ | ||
PREV(DFN,DATE,LINK) | ; Billed an admission the CHAMPVA subsistence charge?
|
|
BILLQ |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^IB - [#350] | PREV+8 |
^IB("ACVA" | PREV+8 |
^IBE(350.1 - [#350.1] | LIM+4, PD+4, PREV+8 |
^IBE(350.2 - [#350.2] | LIM+5, LIM+6 |
Name | Line Occurrences |
---|---|
BILLQ | BILL+1, BILL+14, BILL+17, BILL+20 |
LIM | BILL+7 |
LIMQ | LIM+4 |
PD | BILL+8 |
PDQ | PD+5 |
PREVQ | PREV+6 |
Name | Field # of Occurrence |
---|---|
^( | LIM+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %H | BILL+5* |
DATE | LIM~, LIM+5, PREV~, PREV+6, PREV+8 |
DFN | PREV~, PREV+6, PREV+8 |
>> IBATYP | PD+4*, PD+5 |
>> IBBDT | BILL+5, BILL+6 |
>> IBBILLED | BILL+2*, BILL+5, BILL+11* |
>> IBCHG | BILL+10, BILL+29*, PD+4*, PD+6 |
>> IBCHGT | BILL+2*, BILL+9, BILL+10*, BILL+11*, BILL+14, BILL+24, BILL+29 |
>> IBD | BILL+5* |
>> IBDESC | BILL+29* |
IBDT | BILL+5*, BILL+6, BILL+7, BILL+8, BILL+9, BILL+10, PD~ |
>> IBEDT | BILL+5, BILL+6 |
>> IBFR | BILL+9*, BILL+22 |
>> IBJOB | BILL+14, BILL+17, BILL+20 |
>> IBLIM | BILL+11, LIM+3*, LIM+6* |
IBN | PREV+7~, PREV+8* |
IBND | PREV+7~, PREV+8* |
IBP | PREV+7~, PREV+8* |
>> IBSL | BILL+29* |
>> IBTO | BILL+10*, BILL+23 |
>> IBUNIT | BILL+29* |
>> IBY | BILL+1*, BILL+5, BILL+7, BILL+8, BILL+14, BILL+17, BILL+20, LIM+4*, LIM+6*, PD+5* , PD+6* |
LINK | PREV~, PREV+6, PREV+8 |
>> VAIP("D" | BILL+6* |
>> VAIP(10 | BILL+6 |
X | BILL+5, LIM+3~, LIM+4*, LIM+5*, LIM+6 |
>> Y | PREV+8*, PREVQ |