IBAUTL4 ;ALB/CPM - MEANS TEST BILLING UTILITIES (CON'T.) ; 10-OCT-91
Source file <IBAUTL4.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 4 | OPT^IBAMTD1 (CHADD,CHFIND,CHUPD,COPAY,TYPE)^IBAUTL2 (CLADD,CLOCKCL,CLUPD,EVADD,EVCLOS1)^IBAUTL3 ($$CONT,$$DIEM,$$SECT,FILER,PASS)^IBAUTL5 |
Registration | 2 | $$BIL^DGMTUB IN5^VADPT |
VA Fileman | 1 | (,YMD)^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
CALCQ | ||
COPAY | ; - process co-payment
|
|
EN | ; Calculate inpatient co-pay, per diem charges for a date range
|
|
LAST | ; - handle last day of billing clock
|
|
CALC | ; Find charges for one day
|
Name | Field # of Occurrence |
---|---|
^%DTC | CALC+33, COPAY+13 |
YMD^%DTC | EN+3 |
$$BIL^DGMTUB | CALC+5 |
OPT^IBAMTD1 | CALC+19 |
CHADD^IBAUTL2 | CALC+35, COPAY+15 |
CHFIND^IBAUTL2 | CALC+26, COPAY+8 |
CHUPD^IBAUTL2 | CALC+34, COPAY+14 |
COPAY^IBAUTL2 | COPAY+4 |
TYPE^IBAUTL2 | CALC+25 |
CLADD^IBAUTL3 | CALC+9, CALC+17 |
CLOCKCL^IBAUTL3 | CALC+3, CALC+5, CALC+10, CALC+13, LAST+4 |
CLUPD^IBAUTL3 | CALC+21 |
EVADD^IBAUTL3 | CALC+15, CALC+32 |
EVCLOS1^IBAUTL3 | CALC+12, CALC+30 |
$$CONT^IBAUTL5 | COPAY+1 |
$$DIEM^IBAUTL5 | CALC+24 |
$$SECT^IBAUTL5 | CALC+7 |
FILER^IBAUTL5 | CALC+30, CALC+33, COPAY+12, COPAY+13, COPAY+16, LAST+2, LAST+3 |
PASS^IBAUTL5 | CALC+3, CALC+5, CALC+10, CALC+12 |
IN5^VADPT | CALC+7 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.1 - [#399.1] | CALC+14 |
^IB - [#350] | CALC+26, COPAY+9 |
Name | Line Occurrences |
---|---|
CALC | EN+3 |
CALCQ | CALC+3, CALC+5, CALC+8, CALC+12, CALC+15, CALC+17, CALC+25, CALC+28, CALC+35, COPAY+4 , COPAY+11, COPAY+15, COPAY+16, LAST+1, LAST+2, LAST+3 |
COPAY | CALC+24 |
LAST | COPAY+1, COPAY+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %H | EN+3* |
>> DFN | CALC+5, CALC+19, COPAY+1 |
>> IBATYP | COPAY+12 |
>> IBBDT | EN+3 |
>> IBBS | CALC+7*, CALC+9, CALC+12, CALC+14 |
>> IBCHARG | COPAY+5*, COPAY+6 |
>> IBCHCDA | COPAY+9, COPAY+11, COPAY+12*, COPAY+13*, COPAY+14, COPAY+15*, COPAY+16*, LAST+3* |
>> IBCHCTY | COPAY+9*, COPAY+12 |
>> IBCHG | COPAY+5, COPAY+6*, COPAY+7 |
>> IBCHPDA | CALC+26, CALC+28, CALC+32*, CALC+33*, CALC+34, CALC+35*, LAST+2* |
>> IBCHPDE | CALC+26*, CALC+29 |
>> IBCHTO | CALC+33, COPAY+13 |
>> IBCLCT | CALC+3*, CALC+9*, CALC+10, CALC+13, CALC+17*, LAST+1 |
>> IBCLDA | CALC+3, CALC+5, CALC+9, CALC+10, CALC+13, CALC+17 |
>> IBCLDAY | CALC+9*, CALC+17*, CALC+21, CALC+22*, COPAY+1, COPAY+2 |
>> IBCLDOL | CALC+9*, CALC+17*, CALC+21*, COPAY+3, COPAY+5, COPAY+7*, COPAY+16 |
>> IBCLDT | CALC+9*, CALC+17* |
>> IBDATE | EN+3* |
>> IBDT | EN+3*, CALC+5, CALC+7, CALC+9, CALC+17, CALC+19, CALC+24, CALC+33, COPAY+1, COPAY+13 |
>> IBEDT | EN+3 |
>> IBEVDA | CALC+3, CALC+5, CALC+10, CALC+12, CALC+13*, CALC+15, CALC+31, CALC+32, COPAY+8*, COPAY+9* |
>> IBEVDT | CALC+15*, CALC+31* |
>> IBEVNEW | CALC+1*, CALC+32*, COPAY+9 |
>> IBEVOLD | CALC+1*, CALC+31*, COPAY+8, COPAY+16* |
>> IBJOB | CALCQ |
>> IBMAX | COPAY+2*, COPAY+3, COPAY+5, COPAY+16 |
>> IBMED | COPAY+2 |
>> IBN | CALC+34*, CALC+35, COPAY+14*, COPAY+15 |
>> IBNH | CALC+14*, CALC+29, COPAY+2 |
>> IBNOS | CALC+26*, COPAY+9*, COPAY+16*, LAST+2*, LAST+3* |
>> IBSL | CALC+7* |
>> IBWHER | CALC+3*, CALC+5*, CALC+9*, CALC+10*, CALC+12*, CALC+15*, CALC+17*, CALC+25*, CALC+26*, CALC+31* , CALC+33*, CALC+35*, COPAY+4*, COPAY+12*, COPAY+13*, COPAY+15*, COPAY+16*, LAST+2*, LAST+3* |
>> IBX | CALC+25*, COPAY+8* |
>> IBY | EN+3, CALC+3, CALC+5, CALC+10, CALC+12, CALC+13, CALC+15, CALC+17, CALC+25, CALC+28 , CALC+30, CALC+32, CALC+35, COPAY+4, COPAY+11, COPAY+15, COPAY+16, LAST+2, LAST+3 |
>> VAIP("D" | CALC+7* |
>> VAIP(1 | CALC+7 |
>> VAIP(10 | CALC+8 |
>> VAIP(3 | CALC+15, CALC+31 |
>> VAIP(8 | CALC+7 |
>> X | EN+3, CALC+33, COPAY+13 |
>> X1 | CALC+33*, COPAY+13* |
>> X2 | CALC+33*, COPAY+13* |