©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
IBCU61 ;ALB/AAS - DELETE ENTRIES IN REVENUE CODE MULT. ; 4-MAY-90
Source file <IBCU61.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ALL | ;delete all revenue codes that may have been set up automatically
|
|
| DEL | ||
| GVAR | ;I $D(PTF),PTF]"",$D(^DGPT(PTF,0)),'$P(^DGPT(PTF,0),"^",6),$D(DGPTUPDT) D UPDT^DGPTUTL S DGPTUPDT="" ;if open, update ptf record
|
|
| CAT | ;check patient bills to see if cat c. set IBids(.11)="C"
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | ALL+3, ALL+5, DEL, GVAR+1, GVAR+2, GVAR+10, CAT+2 |
| ^DGCR(399.3 - [#399.3] | CAT+2 |
| ^DGCR(399.5 - [#399.5] | ALL+5 |
| ^DIC(36 - [#36] | GVAR+10, GVAR+13 |
| Name | Line Occurrences |
|---|---|
| DEL | ALL+5 |
| Name | Field # of Occurrence |
|---|---|
| ^("M" | GVAR+10 |
| ^("U" | GVAR+2 |
| ^(0 | GVAR+1, GVAR+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ALL+2!*, ALL+3* |
| DA(1 | ALL+2*, DEL |
| >> DGII | ALL+3* |
| >> DGINPAR | GVAR+13* |
| >> DIK | DEL* |
| >> IBAUTO | ALL+2, ALL+5 |
| >> IBIDS( | GVAR+3*, GVAR+4*, GVAR+5*, GVAR+6*, GVAR+7*, GVAR+8, GVAR+9, GVAR+10, GVAR+11, GVAR+13 , CAT+2* |
| >> IBIDS(101 | GVAR+10*, GVAR+11, GVAR+13 |
| >> IBIDS(151 | GVAR+8* |
| >> IBIDS(152 | GVAR+9* |
| >> IBIFN | ALL+2, ALL+3, ALL+5, DEL, GVAR+1, GVAR+2, GVAR+10, CAT+2 |
| >> IBND0 | GVAR+1*, GVAR+3, GVAR+4, GVAR+5, GVAR+6, GVAR+7 |
| >> IBNDU | GVAR+2*, GVAR+8, GVAR+9 |
| >> IBQUIT | GVAR+11* |
| U | ALL+5 |
| >> X | ALL+3*, ALL+5 |