IBCBB3 ;ALB/TMP - CONTINUATION OF EDIT CHECKS ROUTINE (MEDICARE) ;06/23/98
Source file <IBCBB3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDITMRA(IBQUIT,IBER,IBIFN,IBFT) | ;
; Requires execution of GVAR^IBCBB, IBIFN defined ; File IB ERROR (350.8) contains error codes/text |
|
PARTA | ; MEDICARE specific edit checks for PART A claims (UB-04 formats)
|
|
IBER(IBER,ERRNO) | ; Sets error list
; NOTE: add code to check error list > 20 ... If so, display message and ; quit so we don't get too many errors at once to handle ; Print all if printing list |
|
NONMCR(IBPR,IBLABS) | ; Delete all oxygen and lab, flu shot CPT entries from IBPR
; IBPR = array subscripted by CPT codes from bill ; IBLABS = flag returned =1 if labs found on bill |
|
MCRANUM(IBIFN) | ; Determine MEDICARE A provider ID # from bedsection for
; bill ien IBIFN |
|
MCRACK(IBIFN,X,IBFLD) | ; Check for MEDICARE A for bill IBIFN
; Called from CLAIM STATUS MRA field (#24) xrefs in file 399 ; X = current value of field 399;24 ; IBFLD = 1 for primary ins co, 2 for secondary, 3 for tertiary |
|
GYMODCHK(Z) | ; GY modifier check procedure. IB*2*377 - 2/4/08
; Z is the IBXDATA(IBI) service line EDI |
|
GYMODX | ;
|