©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBTUTL ;ALB/AAS - CLAIMS TRACKING UTILITY ROUTINE ; 21-JUN-93
Source file <IBTUTL.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 6 | SITE^IBAUTL $$INSURED^IBCNS1 $$BILLED^IBCU8 $$SCH^IBTRKR2 PRE^IBTUTL2 COM^IBTUTL3 |
| VA Fileman | 3 | C^%DTC FILE^DICN ^DIE |
| Registration | 1 | INP^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EABDQ | ||
| ADDTQ | ||
| ADDT | ; -- add new entry to tracking, ibt(356
|
|
| ADMDR(IBADMDT,IBETYP,DGPMCA,RANDOM) | ; -- set up dr string for admissions
|
|
| BILLQ | ||
| KTOBIL | ||
| EABD(IBETYP,IBTDT) | ; -- compute earliest auto bill date: date entered plus days delay for event type
|
|
| ADMDRQ | ||
| OTH(DFN,IBETYP,IBTDT) | ; -- add miscellaneous entries, care may not be in data base
|
|
| ADM(DGPMCA,VAINDT,RANDOM,IBVSIT) | ; -- set up info for adding a current admission
|
|
| IBSITE() | ; -- calculate site from site parameters
|
|
| OTHQ | ||
| ADMQ | ||
| BILL(IBTRN) | ;check if event is billable, return EABD if it is
|
|
| STOBIL |
| FileNo | Call Tags |
|---|---|
| ^IBT(356 - [#356] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | ADM+12, ADM+24 |
| ^IBE(356.6 - [#356.6] | ADM+14, EABD+5 |
| ^IBT(356 - [#356] | ADM+11, ADM+15, ADM+19, ADM+22, ADM+27, ADM+34, ADDT+3, ADDT+4, ADDT+6, ADDT+7 , OTH+6, OTH+11, OTH+13, BILL+1, BILL+8 |
| Name | Line Occurrences |
|---|---|
| $$ADMDR | ADM+20 |
| $$EABD | OTH+10, ADMDR+3, BILL+9 |
| $$IBSITE | ADDT+6 |
| ADDT | ADM+16, OTH+7 |
| ADDTQ | ADDT+3, ADDT+4 |
| ADMDRQ | ADMDR+2 |
| ADMQ | ADM+11, ADM+17, ADM+19, ADM+31 |
| BILLQ | BILL+1, BILL+4, BILL+7 |
| EABDQ | EABD+4, EABD+6 |
| OTHQ | OTH+6, OTH+8, OTH+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | ADDT+2~ |
| DA | ADM+6~, ADM+18*, ADM+21!, OTH+5~, OTH+9*, OTH+12! |
| DD | ADDT+2~, ADDT+5! |
| DFN | ADM+11, OTH~, OTH+6, OTH+10, ADMDR+3 |
| DGPMCA | ADM~, ADM+8*, ADM+9, ADM+11, ADM+12, ADM+15, ADM+20, ADM+24, ADMDR~, ADMDR+3 , ADMDR+4 |
| DIC | ADM+6~, ADDT+2~, ADDT+5!*, OTH+5~ |
| DIC(0 | ADDT+5* |
| DIE | ADM+6~, ADM+18*, ADM+21!, ADDT+2~, OTH+5~, OTH+9*, OTH+12! |
| >> DINUM | ADDT+6* |
| DLAYGO | ADDT+2~, ADDT+5* |
| DO | ADDT+2~, ADDT+5! |
| DR | ADM+6~, ADM+20*, ADM+21!, ADDT+2~, ADDT+5!, OTH+5~, OTH+10*, OTH+12!, ADMDR+1*, ADMDR+3* , ADMDR+4*, ADMDRQ |
| DT | ADM+27, ADM+34, EABD+5, BILL+8 |
| DUZ | OTH+10, ADMDR+3 |
| IBADMDT | ADM+12*, ADM+20, ADMDR~, ADMDR+2, ADMDR+3 |
| IBETYP | ADM+14*, ADM+20, OTH~, OTH+6, OTH+10, ADMDR~, ADMDR+2, ADMDR+3, EABD~, EABD+4 , EABD+5 |
| IBETYPD | EABD+4~, EABD+5*, EABD+6, EABD+7 |
| IBFAC | IBSITE+3~ |
| >> IBNEW | ADDTQ* |
| IBSCH | ADM+6~, ADM+15*, ADM+31 |
| IBSCHED | ADM+6~, ADM+24*, ADM+27, ADM+34 |
| IBSITE | IBSITE+3~, IBSITE+5 |
| IBTDT | OTH~, OTH+6, OTH+10, EABD~, EABD+5*, EABD+8 |
| IBTR1 | ADDT+2~, ADDT+6*, ADDT+7 |
| IBTRN | ADM+11*, ADM+15*, ADM+16, ADM+17, ADM+18, ADM+19, ADM+22, ADM+27, ADM+34, ADDTQ* , OTH+6*, OTH+8, OTH+9, OTH+11, OTH+13, BILL~, BILL+1, BILL+4, BILL+8 |
| IBTRND | BILL+1~*, BILL+4, BILL+7, BILL+9 |
| >> IBTRV | ADM+34 |
| IBVSIT | ADM~, ADMDR+3 |
| RANDOM | ADM~, ADM+10*, ADM+20, ADMDR~, ADMDR+4 |
| U | ADM+24, ADM+27, ADM+34, BILL+4, BILL+7, BILL+9 |
| VA | ADM+6~ |
| >> VA200 | ADM+8* |
| VAIN | ADM+6~ |
| VAIN(1 | ADM+8 |
| VAINDT | ADM~, ADM+7! |
| X | ADM+6~, ADM+11*, ADDT+4*, ADDT+6*, OTH+5~, OTH+6*, EABD+4~, EABD+8, BILL+1~*, BILL+9* , BILLQ |
| X1 | EABD+4~, EABD+8* |
| X2 | EABD+4~, EABD+7* |
| Y | ADDT+3*, ADDT+4*, ADDT+6, ADDTQ, OTH+5~, EABD+4~*, EABD+8*, EABDQ, BILL+1~*, BILL+4* , BILL+8*, BILL+9 |
| Z | BILL+1~, BILL+4* |