©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
IBCU62 ;ALB/AAS - UTILITY ROUTINE TO SET BEDSECTION/REVENUE CODES FROM PTF DATA ; 29-OCT-90
Source file <IBCU62.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKREV | ;check if billing rate (dgbr) is active, and use with payer.
|
|
| EDITREV | ;edit revenue code data.
|
|
| SETREV | ;find current active revenue codes for bedsection
|
|
| WRT | ;S Z="00"_$P(^DGCR(399.5,DGBR,0),"^",3) W:'$G(IBAUTO) !,DGFUNC,?12,$E(Z,($L(Z)-2),$L(Z)),?24,DGBSLOS,?31,"$",$J(DGAMNT,8,2),?44,DGBS
|
|
| STORREV | ;store revenue code in revenue code file
|
|
| REVHDR | ||
| FILE | ;manually file entry, index with ix1^dik to use compiled x-ref
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | STORREV+2, FILE+3, FILE+4, FILE+5, FILE+7*, FILE+8*, FILE+9 |
| ^DGCR(399.5 - [#399.5] | SETREV+2, SETREV+3, SETREV+4, CHKREV+2, STORREV+1, WRT+1 |
| ^ICPT - [#81] | WRT+1 |
| Name | Line Occurrences |
|---|---|
| CHKREV | SETREV+4 |
| EDITREV | STORREV+2 |
| FILE | STORREV+3 |
| REVHDR | FILE+1, EDITREV+1 |
| STORREV | SETREV+4 |
| WRT | STORREV+3 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | STORREV+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | STORREV+2*, FILE+4*, FILE+5*, FILE+7, FILE+8 |
| >> DA(1 | STORREV+1*, FILE+9, EDITREV+3* |
| >> DGACTDT | SETREV+1*, SETREV+2*, SETREV+3, SETREV+4 |
| >> DGAMNT | STORREV+1*, FILE+7, EDITREV+3, WRT+1 |
| >> DGBR | SETREV+1*, SETREV+4*, CHKREV+2, STORREV+1, WRT+1 |
| >> DGBRN | CHKREV+2*, CHKREV+3, CHKREV+4, CHKREV+6 |
| >> DGBS | EDITREV+3, WRT+1 |
| >> DGBSI | SETREV+2, SETREV+3, SETREV+4, STORREV+2, FILE+7 |
| >> DGBSLOS | FILE+2*, FILE+7, EDITREV+2*, EDITREV+3, WRT+1 |
| >> DGDIV | FILE+7 |
| DGFND | SETREV+1!, SETREV+2, CHKREV+6* |
| >> DGFUNC | STORREV+1*, STORREV+2*, WRT+1 |
| >> DGINPAR | CHKREV+3, CHKREV+5 |
| >> DGLL | FILE+5* |
| >> DGPROC | FILE+7, WRT+1, REVHDR |
| >> DGREV | SETREV+1*, SETREV+3*, SETREV+4, CHKREV+5 |
| >> DGREV00 | CHKREV+5* |
| >> DGREVHDR | FILE+1, EDITREV+1, REVHDR* |
| >> DIC | STORREV+1*, EDITREV+3 |
| >> DIC(0 | STORREV+1* |
| >> DIE | EDITREV+3* |
| >> DIK | FILE+9* |
| >> DR | EDITREV+3* |
| >> IBAUTO | WRT+1, REVHDR |
| >> IBCHK | SETREV+4, CHKREV+1*, CHKREV+6* |
| >> IBIDS( | CHKREV+3, CHKREV+4, CHKREV+5, CHKREV+6, FILE+2, EDITREV+2 |
| >> IBIDS(151 | SETREV+1 |
| >> IBIFN | STORREV+1, STORREV+2, FILE+3, FILE+4, FILE+5, FILE+7, FILE+8, FILE+9, EDITREV+3 |
| U | CHKREV+6, WRT+1 |
| >> X | STORREV+1*, STORREV+2, FILE+7 |
| >> Z | WRT+1* |