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) |