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 |
|---|---|---|
| SETREV | ;find current active revenue codes for bedsection
|
|
| CHKREV | ;check if billing rate (dgbr) is active, and use with payer.
|
|
| STORREV | ;store revenue code in revenue code file
|
|
| FILE | ;manually file entry, index with ix1^dik to use compiled x-ref
|
|
| EDITREV | ;edit revenue code data.
|
|
| 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
|
|
| REVHDR |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | Classic Fileman Calls |
