IBCU7A1 ;ALB/ARH - BILL PROCEDURE MANIPULATIONS (BUNDLED) ; 10-OCT-03
Source file <IBCU7A1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BNDL(IBIFN) | ; manipulate a bill's CPT codes, replace bundled codes
; on facility and profesional bills global codes should be billed using their components ; on freestanding bills component codes should be billed as global ; - on facility bill, if a global code is found in the clinical data and on the bill then ; replace it on the bill with the institutional components ; - on professional bill, if the global code is found in the clinical data and the institutional components ; are found on the bill then replace the institutional components with the professional components ; - on a freestanding bill if all institutional and professional components are found then ; replace them with the global code ; maximum of 10 is insurance against infinite loops |
|
| RPL(IBIFN,NEWCPTS,OLDLIST) | ; replace procedures on the bill
; Input: NEWCPTS - list of CPT codes to add to the bill ; OLDLIST - list of procedure ifn's on the bill to be replaced ; Output: returns true if changes made ; the list of new and replaced may not be the same length ; - if more CPT's to be added than exist then the first existing procedure is copied for the new CPT ; - if fewer CPT's to be added than exist then the extra entries on the bill are deleted |
|
| IB029A(IBGLB,IBLN) | ; return ien of cpt code
; input: IBGLB = 0295T ; IBLN = 0295T:0296T^0297T:0298T |
|
| IB029B(IBIFN,OLDDA,NEWCPT) | ; replace cpt with another
; input: OLDDA = ien of cpt in bill cpt multiple to be replaced ; NEWCPT = ien of cpt code to be added |
|
| IB029C(IBMCPT) | ; return cpt code(s) for display
; input: IBMCPT = ien of cpt to be replaced ; output: IBTCPT = cpt code(s) separated by '^' |
|
| FND(IBIFN,LIST) | ; find first set of the procedures on the bill to be replaced
; if all found then returns procedure date followed by 'CP' ifn list ; Input: list of CPT's to be replaced separated by '^', internal format ; Output: procedure date ^ ifn of procedures in bill CP multiple |
|
| FNDQ | ||
| CHKIPB(CPT,TYPE) | ; return procedures that may replace procedure passed in
; Input: TYPE - 1 for institutional, 2 for professional, 3 for Non-Provider Based ; Output: Procedures to be replaced ':' Procedures they are replaced with |
|
| IPB(LINE,TYPE) | ; return procedures to be replaced and those they are replaced by for the type of bill
; Input: LINE - line of bundled procedures from IPBI ; TYPE - 1 for institutional, 2 for professional, 3 for Non-Provider Based ; Output: Procedures to be replaced ':' Procedures they are replaced with ; - institutional type the global is replaced by the technical componentes ; - professional type: the institutional components are replaced by the professional components ; - non-provider based: the institutional and professional components are preplaced by the global |
|
| IPBI | ; Facility Provider Based Replace Global by Technical Component: global:technical:professional
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
