IBCU65 ;ALB/ARH - BILL CHARGE UTILITY: COMBINE E&M ; 12/01/04
Source file <IBCU65.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASKCMB(IBIFN) | ; if the user requests, combine (E&M) charges on the bill
|
|
| CHGCMB(IBIFN) | ; combine certain E&M codes on the bill
|
|
| RVDEL(IBIFN,RCIFN) | ; delete charge line item, Output: 0/1
; Input: IBIFN = Bill Number, RCIFN = Charge Line Item in RC multiple |
|
| RVCHG(IBIFN,RCIFN,CHG) | ; update line item charge and remove component, Output: 0/1
; Input: IBIFN = Bill Number, RCIFN = Charge Line Item in RC multiple, CHG = New Charge Amount |
|
| CHKCODE(CPT) | ; return true if CPT code combinable
|
|
| CHKCODQ | ||
| CHKBILL(IBIFN) | ; return true if combining charges is applicable or available for bill
; bill must be Provider Based and have at least one combinable procedure |
|
| CHKBILQ | ||
| BILLCHG(IBIFN) | ; get all possible charges for bill with discounts applied
; output array of charges for combinable procedures ; Output: ^TMP($J,"IBCU65 CMB", "units ^ cpt ^ div ^ itm type ^ itm ptr") = inst chg ^ prof chg ^ total chg |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
