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* |