IBCF12 ;ALB/AAS - PRINT BILL CONT. ;24 MAY 90
Source file <IBCF12.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REVCOD | ;I $D(IBIP) S X=IBLS_" DAY"_$S(IBLS>1:"S ",1:" ")_$S(IBBS'=IBU:IBBS,1:"INPATIENT CARE") D SET
|
|
| RCODE | ;Find revenue codes sorted by bedsection
|
|
| ADDCOD | ;Find additional codes
|
|
| TOTAL | ;Find offsets and Totals
|
|
| OPVIS | ;Find outpatient Visit dates
|
|
| SET | ||
| RSPACE | ;Find remaining blank lines
|
|
| FILL | ;fill space with blank lines so all will fit on page
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | OPVIS+7 |
| ^DGCR(399 - [#399] | %+5, %+6, %+12, %+13, REVCOD+4, REVCOD+7, RCODE+2, RCODE+3, RCODE+5, OPVIS+2 , OPVIS+7 |
| ^DGCR(399.1 - [#399.1] | REVCOD+4 |
| ^DGCR(399.3 - [#399.3] | %+5 |
| ^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+4, RCODE+7, ADDCOD+4, ADDCOD+5, ADDCOD+6 , TOTAL+3, TOTAL+4, TOTAL+5, OPVIS+5, OPVIS+7, OPVIS+8, SET+2, FILL+1 |
| TOTAL | %+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DGBS | REVCOD+3*, REVCOD+4*, RCODE+2, RCODE+3 |
| >> DGCNT | %+15*, REVCOD+7*, OPVIS+2*, OPVIS+3*, OPVIS+4 |
| DGDA | REVCOD+7*, RCODE+1~, RCODE+3*, RCODE+4, RCODE+5 |
| >> 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~, RCODE+2*, RCODE+3 |
| >> 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! |
| IBCODE | RCODE+1~, RCODE+5*, RCODE+6 |
| >> IBIFN | %+5, %+6, %+12, %+13, REVCOD+4, REVCOD+7, RCODE+2, RCODE+3, RCODE+5, OPVIS+2 , OPVIS+7 |
| >> IBIP | REVCOD+1 |
| >> IBLS | REVCOD+1 |
| >> IBPROC | ADDCOD+1, ADDCOD+3 |
| >> IBPROC( | ADDCOD+6 |
| >> J | ADDCOD+6* |
| U | REVCOD+7, RCODE+4, RCODE+5, RCODE+6 |
| >> X | REVCOD+1*, REVCOD+2*, REVCOD+4*, REVCOD+7*, REVCOD+8*, RCODE+4*, RCODE+6*, 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* |
