IBCF12 ;ALB/AAS - PRINT BILL CONT. ;24 MAY 90
Source file <IBCF12.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SET | ||
| RSPACE | ;Find remaining blank lines | |
| OPVIS | ;Find outpatient Visit dates | |
| REVCOD | ;I $D(IBIP) S X=IBLS_" DAY"_$S(IBLS>1:"S ",1:" ")_$S(IBBS'=IBU:IBBS,1:"INPATIENT CARE") D SET | |
| FILL | ;fill space with blank lines so all will fit on page | |
| TOTAL | ;Find offsets and Totals | |
| RCODE | ;Find revenue codes sorted by bedsection | |
| ADDCOD | ;Find additional codes | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD("DD" | OPVIS+7 | 
| ^DGCR(399 - [#399] | %+5, %+6, %+12, %+13, REVCOD+4, REVCOD+7, RCODE+1, RCODE+2, OPVIS+2, OPVIS+7 | 
| ^DGCR(399.1 - [#399.1] | REVCOD+4 | 
| ^DGCR(399.3 - [#399.3] | %+5 | 
| ^ICPT - [#81] | RCODE+2 | 
| ^UTILITY($J | %+1!, SET+2, SET+3* | 
| Name | Line Occurrences | 
|---|---|
| ADDCOD | %+12 | 
| FILL | %+14, ADDCOD+3, TOTAL+2, OPVIS+4 | 
| OPVIS | %+13 | 
| RCODE | REVCOD+4 | 
| REVCOD | %+10 | 
| RSPACE | ADDCOD+2, TOTAL+1, OPVIS+1 | 
| SET | REVCOD+1, REVCOD+2, REVCOD+4, REVCOD+7, REVCOD+8, RCODE+1, RCODE+3, ADDCOD+4, ADDCOD+5, ADDCOD+6 , TOTAL+3, TOTAL+4, TOTAL+5, OPVIS+5, OPVIS+7, OPVIS+8, SET+2, FILL+1 | 
| TOTAL | %+11 | 
| Name | Field # of Occurrence | 
|---|---|
| ^( | REVCOD+7 | 
| ^(0 | REVCOD+7 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> DGBS | REVCOD+3*, REVCOD+4*, RCODE+1 | 
| >> DGCNT | %+15*, REVCOD+7*, OPVIS+2*, OPVIS+3*, OPVIS+4 | 
| >> DGDA | REVCOD+7*, RCODE+1*, RCODE+2 | 
| >> DGLCNT | %+1*, %+14, %+15, SET*, SET+1*, SET+2, SET+3, RSPACE+1, FILL+1 | 
| >> DGPAG | %+15* | 
| >> DGRNODE | %+5*, %+6, %+7 | 
| >> DGRSPAC | ADDCOD+3, TOTAL+2, OPVIS+4, RSPACE+1* | 
| >> DGRV | RCODE+1* | 
| >> DGSM | %+1*, %+6*, %+7*, %+9, SET+1, RSPACE+1, FILL+1 | 
| >> DGTOTPAG | %+15* | 
| >> I | REVCOD+4*, REVCOD+7*, ADDCOD+6*, OPVIS+2*, FILL+1* | 
| >> IB("U1" | TOTAL+2, TOTAL+4 | 
| IB01 | OPVIS+7*, OPVIS+9! | 
| IB02 | OPVIS+7*, OPVIS+8, OPVIS+9! | 
| >> IBIFN | %+5, %+6, %+12, %+13, REVCOD+4, REVCOD+7, RCODE+1, RCODE+2, OPVIS+2, OPVIS+7 | 
| >> IBIP | REVCOD+1 | 
| >> IBLS | REVCOD+1 | 
| >> IBPROC | ADDCOD+1, ADDCOD+3 | 
| >> IBPROC( | ADDCOD+6 | 
| >> J | RCODE+1*, ADDCOD+6* | 
| >> K | RCODE+1* | 
| U | REVCOD+7 | 
| >> X | REVCOD+1*, REVCOD+2*, REVCOD+4*, REVCOD+7*, REVCOD+8*, RCODE+1*, RCODE+2*, ADDCOD+4*, ADDCOD+5*, ADDCOD+6* , TOTAL+3*, TOTAL+4*, TOTAL+5*, OPVIS+5*, OPVIS+6*, OPVIS+7*, SET+3, FILL+1* | 
| >> Y | OPVIS+7* |