IBAUTL4 ;ALB/CPM-MEANS TEST BILLING UTILITIES (CON'T.) ;10-OCT-91
Source file <IBAUTL4.m>
Package | Total | Call Graph |
---|---|---|
Integrated Billing | 11 | $$ASIHORG^IBAECN1 $$CLOCK^IBAECU $$STDATE^IBAECU1 $$TREATSP^IBAECU2 CANCVIS^IBAECU5 ($$GMTEFD,$$ISGMTPT,$$ISGMTTYP,$$REDUCE)^IBAGMT OPT^IBAMTD1 SITE^IBAUTL (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 |
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 |
Package | Total | Caller Graph |
---|---|---|
Integrated Billing | 3 | IBAMTC IBAMTD IBAMTV2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ; Calculate inpatient co-pay, per diem charges for a date range
; Input: DFN, IBBDT, IBEDT, IBCLDA, IBEVDA, IBY, IBAFY ; IBCLCT/IBCLDAY/IBCLDOL (if IBCLDA'=0) |
|
CALC | ; Find charges for one day
|
|
COPAY | ; - process co-payment
|
|
LAST | ; - handle last day of billing clock
|
|
CALCQ |
Name | Field # of Occurrence |
---|---|
^%DTC | CALC+42, COPAY+16 |
YMD^%DTC | EN+3 |
$$BIL^DGMTUB | CALC+10 |
$$ASIHORG^IBAECN1 | CALC+4 |
$$CLOCK^IBAECU | CALC+7 |
$$STDATE^IBAECU1 | CALC+4 |
$$TREATSP^IBAECU2 | CALC+4 |
CANCVIS^IBAECU5 | CALC+6 |
$$GMTEFD^IBAGMT | CALC+13 |
$$ISGMTPT^IBAGMT | CALC+12 |
$$ISGMTTYP^IBAGMT | CALC+34, CALC+44 |
$$REDUCE^IBAGMT | CALC+34, COPAY+3, COPAY+7 |
OPT^IBAMTD1 | CALC+27 |
SITE^IBAUTL | CALC+5 |
CHADD^IBAUTL2 | CALC+48, COPAY+20 |
CHFIND^IBAUTL2 | CALC+35, COPAY+11 |
CHUPD^IBAUTL2 | CALC+47, COPAY+19 |
COPAY^IBAUTL2 | COPAY+6 |
TYPE^IBAUTL2 | CALC+33 |
CLADD^IBAUTL3 | CALC+17, CALC+25 |
CLOCKCL^IBAUTL3 | CALC+8, CALC+10, CALC+18, CALC+21, LAST+4 |
CLUPD^IBAUTL3 | CALC+29 |
EVADD^IBAUTL3 | CALC+23, CALC+41 |
EVCLOS1^IBAUTL3 | CALC+20, CALC+39 |
$$CONT^IBAUTL5 | COPAY+1 |
$$DIEM^IBAUTL5 | CALC+32 |
$$SECT^IBAUTL5 | CALC+15 |
FILER^IBAUTL5 | CALC+39, CALC+42, CALC+44, CALC+46, COPAY+15, COPAY+16, COPAY+18, COPAY+21, LAST+2, LAST+3 |
PASS^IBAUTL5 | CALC+8, CALC+10, CALC+18, CALC+20 |
IN5^VADPT | CALC+4, CALC+15 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGCR(399.1 - [#399.1] | CALC+22 |
^DIC(45.7 - [#45.7] | CALC+4 |
^IB - [#350] | CALC+35, CALC+46, COPAY+12 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> %H | EN+3* |
>> DFN | CALC+4, CALC+6, CALC+7, CALC+10, CALC+12, CALC+27, COPAY+1 |
>> DGQUIET | CALCQ |
>> IBATYP | CALC+34, CALC+44, COPAY+15 |
>> IBBDT | EN+3 |
>> IBBS | CALC+15*, CALC+17, CALC+20, CALC+22 |
>> IBCHARG | COPAY+8*, COPAY+9 |
>> IBCHCDA | COPAY+12, COPAY+14, COPAY+15*, COPAY+16*, COPAY+19, COPAY+20*, COPAY+21*, LAST+3* |
>> IBCHCTY | COPAY+12*, COPAY+15 |
>> IBCHG | CALC+34*, COPAY+7*, COPAY+8, COPAY+9*, COPAY+10 |
>> IBCHPDA | CALC+35, CALC+37, CALC+41*, CALC+42*, CALC+44*, CALC+46*, CALC+47, CALC+48*, COPAY+18*, LAST+2* |
>> IBCHPDE | CALC+35*, CALC+38 |
>> IBCHTO | CALC+42, CALC+44, COPAY+16, COPAY+18 |
>> IBCLCT | CALC+8*, CALC+17*, CALC+18, CALC+21, CALC+25*, LAST+1 |
>> IBCLDA | CALC+8, CALC+10, CALC+17, CALC+18, CALC+21, CALC+25 |
>> IBCLDAY | CALC+17*, CALC+25*, CALC+29, CALC+30*, COPAY+1, COPAY+4 |
>> IBCLDOL | CALC+17*, CALC+25*, CALC+29*, COPAY+5, COPAY+8, COPAY+10*, COPAY+21 |
>> IBCLDT | CALC+17*, CALC+25* |
>> IBDATE | EN+3* |
>> IBDT | EN+3*, CALC+4, CALC+6, CALC+7, CALC+10, CALC+12, CALC+15, CALC+17, CALC+25, CALC+27 , CALC+32, CALC+34, CALC+42, CALC+44, COPAY+1, COPAY+3, COPAY+7, COPAY+16, COPAY+18 |
>> IBEDT | EN+3 |
>> IBEVDA | CALC+4, CALC+8, CALC+10, CALC+18, CALC+20, CALC+21*, CALC+23, CALC+40, CALC+41, COPAY+11* , COPAY+12* |
>> IBEVDT | CALC+23*, CALC+40* |
>> IBEVNEW | CALC+2*, CALC+41*, COPAY+12 |
>> IBEVOLD | CALC+2*, CALC+40*, COPAY+11, COPAY+21* |
IBFAC | CALC+5~ |
IBGMT | CALC+1~, CALC+2*, CALC+12*, CALC+34, CALC+44, COPAY+3, COPAY+7, COPAY+18 |
IBGMTEFD | CALC+1~, CALC+13*, CALC+34, CALC+44, COPAY+3, COPAY+7, COPAY+18 |
IBGMTR | CALC+1~, CALC+2*, CALC+34*, CALC+46, COPAY+7* |
>> IBJOB | CALCQ |
>> IBMAX | COPAY+2*, COPAY+3*, COPAY+4*, COPAY+5, COPAY+8, COPAY+21 |
>> IBMED | COPAY+2 |
>> IBN | CALC+47*, CALC+48, COPAY+19*, COPAY+20 |
>> IBNH | CALC+22*, CALC+38, COPAY+4 |
>> IBNOS | CALC+35*, COPAY+12*, COPAY+21*, LAST+2*, LAST+3* |
IBSITE | CALC+5~ |
>> IBSL | CALC+15* |
>> IBWHER | CALC+8*, CALC+10*, CALC+17*, CALC+18*, CALC+20*, CALC+23*, CALC+25*, CALC+33*, CALC+35*, CALC+40* , CALC+42*, CALC+44*, CALC+46*, CALC+48*, COPAY+6*, COPAY+15*, COPAY+16*, COPAY+18*, COPAY+20*, COPAY+21* , LAST+2*, LAST+3* |
>> IBX | CALC+33*, COPAY+11* |
>> IBY | EN+3, CALC+8, CALC+10, CALC+18, CALC+20, CALC+21, CALC+23, CALC+25, CALC+33, CALC+37 , CALC+39, CALC+41, CALC+48, COPAY+6, COPAY+14, COPAY+20, COPAY+21, LAST+2, LAST+3 |
U | CALC+4 |
>> VAIP("D" | CALC+4*, CALC+15* |
>> VAIP(1 | CALC+15 |
>> VAIP(10 | CALC+16 |
>> VAIP(3 | CALC+23, CALC+40 |
>> VAIP(8 | CALC+4, CALC+15 |
>> X | EN+3, CALC+42, COPAY+16 |
>> X1 | CALC+42*, COPAY+16* |
>> X2 | CALC+42*, COPAY+16* |