IBCRU1 ;ALB/ARH - RATES: UTILITIES ; 22-MAY-1996
Source file <IBCRU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EMUTL(X,LNG) | ; returns external form of an MCCR Utility entry (399.1), full or abbrev.
|
|
| MCCRUTL(N,P) | ; returns IFN of MCCR Utility entry (399.1) if Name N is found and piece P is true
|
|
| EXPAND(FILE,FIELD,VALUE) | ; return expanded external form of a data element
|
|
| DATE(X) | ; date in external format
|
|
| GETDT(DEFAULT,PROMPT,MIN,MAX) | ; user select effective date (-1 if ^, 0 if none) DT1
|
|
| GETBR(BI) | ; ask and return a billing rate (363.3): (-1 if ^, 0 if none) IFN^.01
; if BI passed in then only allow selection of billing rates with that type of billable item |
|
| GETCS() | ; ask and return a charge set (363.2): (-1 if ^, 0 if none) IFN^.01
|
|
| GETSG(TYPE,BR) | ; ask and return a special group (363.32): (-1 if ^, 0 if none) IFN^.01
; if TYPE is passed in then only groups of that type may be selected ; if BR is passed in then only groups assigned that billing rate may be selected |
|
| GETBED(COL) | ; ask and return billable bedsection (399.1): (-1 if ^, 0 if none) IFN^.01
|
|
| GETCPT(COL,ALL) | ; ask and return CPT (81): (-1 if ^, 0 if none) IFN^.01
|
|
| GETNDC(COL) | ; ask and return NDC #'s (363.21): (-1 if ^, 0 if none) IFN^.01
|
|
| GETDRG(COL,ALL) | ; ask and return DRG (80.2): (-1 if ^, 0 if none) IFN^.01
; ALL: Default is 1 (disable screening) |
|
| GETMISC(COL,CS) | ; ask and return MISCELLANEOUS item (363.21): (-1 if ^, 0 if none) IFN^.01
; if CS is passed in then only billing items with charges in that set are selectable |
|
| GETITEM(IBCSFN,COL,ALL) | ; returns user selected item for a specific charge set:
; IFN ^ .01 ^ source file reference ^ source file (-1 if ^, 0 if none) |
|
| GIQ |
| FileNo | Call Tags |
|---|---|
| ^IBE(363.1 - [#363.1] | Classic Fileman Calls |
| ^IBA(363.21 - [#363.21] | Classic Fileman Calls |
| ^IBE(363.3 - [#363.3] | Classic Fileman Calls |
| ^IBE(363.32 - [#363.32] | Classic Fileman Calls |
| ^DGCR(399.1 - [#399.1] | Classic Fileman Calls |
| ^ICD - [#80.2] | Classic Fileman Calls |
| ^ICPT - [#81] | Classic Fileman Calls |
