©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
IBCU63 ;ALB/AAS - BILLING UTILITY TO SET AMB SURG REV CODES ; 20-NOV-91
Source file <IBCU63.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | ^IBAUTL1 $$FT^IBCU3 (FILE,SETREV)^IBCU62 |
| VA Fileman | 1 | ^DIK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| STDATE() | ; -start date for basc billing
|
|
| ALL | ;delete all revenue codes that may have been set up automatically
|
|
| END | ||
| RX | ;add rx refill charges (adds default rx cpt for hcfa 1500)
|
|
| STORREV | ;build revenue codes in bill
|
|
| DEL | ||
| FILE | ;
|
|
| BLD |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | BLD, STORREV+1*, RX+2*, ALL+3, DEL |
| ^DGCR(399.1 - [#399.1] | STORREV+4, RX+4 |
| ^IBE(350.9 - [#350.9] | %+3, STDATE+1, RX+5, RX+7 |
| ^ICPT - [#81] | FILE+3 |
| ^UTILITY($J | %+2!, BLD+4, BLD+5, STORREV+2 |
| Name | Line Occurrences |
|---|---|
| $$STDATE | BLD+3 |
| DEL | ALL+5 |
| END | RX+8 |
| FILE | STORREV+5, RX+10 |
| Name | Field # of Occurrence |
|---|---|
| ^( | BLD+4*, BLD+5*, STORREV+2 |
| ^(1 | %+3, STDATE+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ALL+2!*, ALL+3* |
| DA(1 | FILE+1*, ALL+2*, DEL |
| >> DGAMNT | STORREV+3*, FILE+3, RX+9* |
| DGASC | BLD*, STORREV+7! |
| >> DGBILLBS | STORREV+4, FILE+3 |
| >> DGBS | RX+4* |
| >> DGBSI | STORREV+4*, RX+4* |
| >> DGBSLOS | STORREV+2*, FILE+3, RX+3* |
| DGDAT | BLD+1*, BLD+3, BLD+4, BLD+5, STORREV+2*, STORREV+3, STORREV+7! |
| DGDIV | BLD+1*, BLD+2, BLD+4, BLD+5, STORREV+2*, STORREV+3, STORREV+7!, RX+5*, END! |
| >> DGII | ALL+3* |
| >> DGINPAR | %+3, RX+6 |
| DGPROC | BLD*, BLD+1, BLD+4, BLD+5, STORREV+2*, STORREV+3, STORREV+7!, FILE+3, RX+5*, END! |
| DGRVCOD | %+3*, STORREV+4, STORREV+7!, FILE+3, RX+6*, RX+7*, RX+8, RX+9, END! |
| >> DIK | DEL* |
| >> IBAUTO | FILE+3, ALL+2, ALL+5 |
| >> IBCNT | RX+3 |
| >> IBIDS( | %+1 |
| >> IBIFN | BLD, STORREV+1, FILE+1, RX+2, RX+5, ALL+2, ALL+3, DEL |
| >> X | STORREV+3*, STORREV+4*, RX+9*, ALL+3* |
| >> Y | STORREV+3 |