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 |
| 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+58, COPAY+16 |
| YMD^%DTC | EN+3 |
| $$BIL^DGMTUB | CALC+26 |
| $$ASIHORG^IBAECN1 | CALC+4 |
| $$CLOCK^IBAECU | CALC+7 |
| $$STDATE^IBAECU1 | CALC+4 |
| $$TREATSP^IBAECU2 | CALC+4 |
| CANCVIS^IBAECU5 | CALC+6, CALC+22 |
| $$GMTEFD^IBAGMT | CALC+29 |
| $$ISGMTPT^IBAGMT | CALC+28 |
| $$ISGMTTYP^IBAGMT | CALC+50, CALC+60 |
| $$REDUCE^IBAGMT | CALC+50, COPAY+3, COPAY+7 |
| OPT^IBAMTD1 | CALC+43 |
| SITE^IBAUTL | CALC+5 |
| CHADD^IBAUTL2 | CALC+64, COPAY+20 |
| CHFIND^IBAUTL2 | CALC+51, COPAY+11 |
| CHUPD^IBAUTL2 | CALC+63, COPAY+19 |
| COPAY^IBAUTL2 | COPAY+6 |
| TYPE^IBAUTL2 | CALC+49 |
| CLADD^IBAUTL3 | CALC+33, CALC+41 |
| CLOCKCL^IBAUTL3 | CALC+8, CALC+23, CALC+26, CALC+34, CALC+37, LAST+4 |
| CLUPD^IBAUTL3 | CALC+45 |
| EVADD^IBAUTL3 | CALC+39, CALC+57 |
| EVCLOS1^IBAUTL3 | CALC+36, CALC+55 |
| $$CONT^IBAUTL5 | COPAY+1 |
| $$DIEM^IBAUTL5 | CALC+48 |
| $$SECT^IBAUTL5 | CALC+31 |
| FILER^IBAUTL5 | CALC+55, CALC+58, CALC+60, CALC+62, COPAY+15, COPAY+16, COPAY+18, COPAY+21, LAST+2, LAST+3 |
| PASS^IBAUTL5 | CALC+8, CALC+26, CALC+34, CALC+36 |
| IN5^VADPT | CALC+4, CALC+21, CALC+31 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399.1 - [#399.1] | CALC+38 |
| ^DIC(45.7 - [#45.7] | CALC+4, CALC+21 |
| ^IB - [#350] | CALC+51, CALC+62, COPAY+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | EN+3* |
| >> DFN | CALC+4, CALC+6, CALC+7, CALC+22, CALC+26, CALC+28, CALC+43, COPAY+1 |
| >> DGQUIET | CALCQ |
| >> IBATYP | CALC+50, CALC+60, COPAY+15 |
| >> IBBDT | EN+3 |
| >> IBBS | CALC+31*, CALC+33, CALC+36, CALC+38 |
| >> 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+50*, COPAY+7*, COPAY+8, COPAY+9*, COPAY+10 |
| >> IBCHPDA | CALC+51, CALC+53, CALC+57*, CALC+58*, CALC+60*, CALC+62*, CALC+63, CALC+64*, COPAY+18*, LAST+2* |
| >> IBCHPDE | CALC+51*, CALC+54 |
| >> IBCHTO | CALC+58, CALC+60, COPAY+16, COPAY+18 |
| >> IBCLCT | CALC+8*, CALC+33*, CALC+34, CALC+37, CALC+41*, LAST+1 |
| >> IBCLDA | CALC+8, CALC+23, CALC+26, CALC+33, CALC+34, CALC+37, CALC+41 |
| >> IBCLDAY | CALC+33*, CALC+41*, CALC+45, CALC+46*, COPAY+1, COPAY+4 |
| >> IBCLDOL | CALC+33*, CALC+41*, CALC+45*, COPAY+5, COPAY+8, COPAY+10*, COPAY+21 |
| >> IBCLDT | CALC+23, CALC+33*, CALC+41* |
| >> IBDATE | EN+3* |
| >> IBDT | EN+3*, CALC+4, CALC+6, CALC+7, CALC+21, CALC+22, CALC+26, CALC+28, CALC+31, CALC+33 , CALC+41, CALC+43, CALC+48, CALC+50, CALC+58, CALC+60, COPAY+1, COPAY+3, COPAY+7, COPAY+16 , COPAY+18 |
| >> IBEDT | EN+3 |
| >> IBEVDA | CALC+4, CALC+8, CALC+26, CALC+34, CALC+36, CALC+37*, CALC+39, CALC+56, CALC+57, COPAY+11* , COPAY+12* |
| >> IBEVDT | CALC+39*, CALC+56* |
| >> IBEVNEW | CALC+2*, CALC+57*, COPAY+12 |
| >> IBEVOLD | CALC+2*, CALC+56*, COPAY+11, COPAY+21* |
| IBFAC | CALC+5~ |
| IBGMT | CALC+1~, CALC+2*, CALC+28*, CALC+50, CALC+60, COPAY+3, COPAY+7, COPAY+18 |
| IBGMTEFD | CALC+1~, CALC+29*, CALC+50, CALC+60, COPAY+3, COPAY+7, COPAY+18 |
| IBGMTR | CALC+1~, CALC+2*, CALC+50*, CALC+62, COPAY+7* |
| >> IBJOB | CALCQ |
| >> IBMAX | COPAY+2*, COPAY+3*, COPAY+4*, COPAY+5, COPAY+8, COPAY+21 |
| >> IBMED | COPAY+2 |
| >> IBN | CALC+63*, CALC+64, COPAY+19*, COPAY+20 |
| >> IBNH | CALC+38*, CALC+54, COPAY+4 |
| >> IBNOS | CALC+51*, COPAY+12*, COPAY+21*, LAST+2*, LAST+3* |
| IBSITE | CALC+5~ |
| >> IBSL | CALC+31* |
| >> IBWHER | CALC+8*, CALC+26*, CALC+33*, CALC+34*, CALC+36*, CALC+39*, CALC+41*, CALC+49*, CALC+51*, CALC+56* , CALC+58*, CALC+60*, CALC+62*, CALC+64*, COPAY+6*, COPAY+15*, COPAY+16*, COPAY+18*, COPAY+20*, COPAY+21* , LAST+2*, LAST+3* |
| >> IBX | CALC+49*, COPAY+11* |
| >> IBY | EN+3, CALC+8, CALC+26, CALC+34, CALC+36, CALC+37, CALC+39, CALC+41, CALC+49, CALC+53 , CALC+55, CALC+57, CALC+64, COPAY+6, COPAY+14, COPAY+20, COPAY+21, LAST+2, LAST+3 |
| U | CALC+4, CALC+21 |
| >> VAIP("D" | CALC+4*, CALC+21*, CALC+31* |
| >> VAIP(1 | CALC+31 |
| >> VAIP(10 | CALC+32 |
| >> VAIP(3 | CALC+39, CALC+56 |
| >> VAIP(8 | CALC+4, CALC+21, CALC+31 |
| >> X | EN+3, CALC+58, COPAY+16 |
| >> X1 | CALC+58*, COPAY+16* |
| >> X2 | CALC+58*, COPAY+16* |