IBCF33 ;ALB/ARH - UB-04 CMS-1450 (GATHER CODES) ;25-AUG-1993
Source file <IBCF33.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RV | ;rev codes sorted by bedsection - no longer used as of patch IB*2*51
|
|
| TOTAL | ;add total
|
|
| CPT | ;add additional procedures
|
|
| OPV | ;add outpatient visit dates
|
|
| CONT | ;D ^IBCF331 ;More free text - can no longer print on UB-04
|
|
| END | ||
| SPACE | ;checks to see if IBX can fit on page, if not starts new page
|
|
| FILLPG | ;fill rest of page with blank lines
|
|
| SET1 | ; add rev codes to array: rev cd ^ rev cd st abbrev. ^ CPT CODE ^ unit charge ^ units ^ total ^ non-cov charge ^ form locator 49 ^ rev code mult ien ^ cpt modifiers attached to revenue code/procedure (unlinked)^ outpt serv date
|
|
| SET2 | ;set free text into block 42 array
|
|
| FILLUP | ; Fill block 42 with blank lines
|
|
| NEXTLN | ;checks counter for next line, resets if necessary,
|
|
| MOD(RCLN,IBIFN) | ; return modifier(s) for a directly linked CPT charge or for an indirectly linked one
|
|
| MODQ | ||
| DATE45(IBIFN,IBXDATA,IBDATE) | ; What prints in the service date box of UB-04
; INPUT: ; IBIFN = ien of bill ; IBDATE = the default outpt service date ; OUTPUT: ; IBXDATA = the output formatter array with the service dates ; (pass by reference) |
