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 |