IBCBB3 ;ALB/TMP - CONTINUATION OF EDIT CHECKS ROUTINE (MEDICARE) ;06/23/98
Source file <IBCBB3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Integrated Billing | 9 | IBCBB1 IBCBB21 IBCBB4 IBCBB5 IBCBB7 IBCBB7A IBCBB8 IBCBB9 ^DGCR(399.1 |
| 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 | ;
|
| Name | Field # of Occurrence |
|---|---|
| WARN^IBCBB11 | EDITMRA+18, PARTA+89 |
| EN^IBCBB2 | EDITMRA+27 |
| EN^IBCBB21 | EDITMRA+29 |
| ^IBCBB4 | PARTA+123 |
| PARTB^IBCBB9 | EDITMRA+11 |
| $$COBN^IBCEF | MCRACK+6 |
| $$INPAT^IBCEF | EDITMRA+18, PARTA+74 |
| F^IBCEF | EDITMRA+13, PARTA+26, PARTA+47, PARTA+117 |
| GETPRV^IBCEU | EDITMRA+20 |
| SET^IBCSC4D | PARTA+8 |
| ALLPROC^IBCVA1 | EDITMRA+22 |
| $$MRATYPE^IBEFUNC | EDITMRA+7, MCRACK+6 |
| $$NEEDMRA^IBEFUNC | PARTA+83 |
| $$REQMRA^IBEFUNC | PARTA+59, PARTA+115 |
| $$WNRBILL^IBEFUNC | PARTA+8, MCRACK+6 |
| DEM^VADPT | PARTA+109 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | PARTA+119, MCRANUM+5 |
| ^DGCR(399.1 - [#399.1] | PARTA+36, MCRANUM+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ERRNO | IBER~, IBER+6*, IBER+8 |
| FL80TXT | PARTA+116~, PARTA+119*, PARTA+120 |
| IB | MCRACK+4~, MCRACK+5*, MCRACK+6*, MCRACK+7 |
| IBBCPT | PARTA+5~ |
| IBCAGE | PARTA+3~ |
| IBCCARY1 | PARTA+4~ |
| IBCCARY1( | PARTA+28* |
| IBCOV | PARTA+5~, PARTA+15* |
| IBCTYP | PARTA+2~, PARTA+14* |
| >> IBDX | PARTA+8 |
| IBDXARY | PARTA+2~ |
| IBDXC | PARTA+2~ |
| >> IBDXO | PARTA+8 |
| IBECAT | PARTA+5~, PARTA+63*, PARTA+67*, PARTA+68, PARTA+71*, PARTA+74*, PARTA+77*, PARTA+80, PARTA+81 |
| IBER | EDITMRA~, EDITMRA+17, PARTA+8, PARTA+11, PARTA+91, PARTA+110, PARTA+118, PARTA+120, IBER~, IBER+7* , IBER+8*, GYMODCHK+3, GYMODCHK+7 |
| >> IBFDT | PARTA+37 |
| IBFLD | MCRACK~, MCRACK+6 |
| IBFT | EDITMRA~, EDITMRA+9, EDITMRA+11, EDITMRA+15, EDITMRA+27, EDITMRA+29 |
| IBI | PARTA+2~, PARTA+25*, PARTA+28*, PARTA+60*, PARTA+61*, PARTA+62, PARTA+63, PARTA+65, PARTA+79, PARTA+80 , PARTA+81, MCRANUM+4~, MCRANUM+5*, MCRANUM+6 |
| IBIFN | EDITMRA~, EDITMRA+7, EDITMRA+13, EDITMRA+18, EDITMRA+20, EDITMRA+22, PARTA+8, PARTA+26, PARTA+47, PARTA+59 , PARTA+74, PARTA+83, PARTA+115, PARTA+117, PARTA+119, MCRANUM~, MCRANUM+5, MCRACK~, MCRACK+6 |
| IBINC | PARTA+5~, PARTA+37* |
| IBJ | PARTA+2~, PARTA+25*, PARTA+45*, PARTA+63*, PARTA+67, PARTA+68, PARTA+71, PARTA+79 |
| IBLABS | PARTA+2~, PARTA+88, PARTA+89, NONMCR~, NONMCR+3*, NONMCR+8* |
| IBMRATYP | EDITMRA+4~, EDITMRA+7* |
| IBNCOV | PARTA+5~, PARTA+15* |
| >> IBNDU | PARTA+36 |
| >> IBNDU2 | PARTA+15 |
| IBNOPR | PARTA+3~, PARTA+60*, PARTA+64, PARTA+66* |
| IBOCCD | PARTA+3~ |
| IBOCCS | PARTA+3~ |
| IBOCSDT | PARTA+3~ |
| IBOCSP | PARTA+4~ |
| IBOK | EDITMRA+4~, EDITMRA+21* |
| IBPATST | PARTA+4~, PARTA+36*, PARTA+37 |
| IBPR | PARTA+2~, PARTA+66!, PARTA+88, NONMCR~ |
| IBPR( | PARTA+65*, NONMCR+5!, NONMCR+6!, NONMCR+8, NONMCR+10! |
| IBPR("" | PARTA+83, PARTA+90 |
| >> IBPRT("PRT" | IBER+7 |
| IBQUIT | EDITMRA~, EDITMRA+5*, EDITMRA+15, EDITMRA+17*, PARTA+8*, PARTA+83, PARTA+91*, PARTA+110*, PARTA+115, PARTA+118* , PARTA+120*, IBER+5, IBER+7*, IBER+9, GYMODCHK+7* |
| IBREV1 | PARTA+3~ |
| IBREV1( | PARTA+67, PARTA+68*, PARTA+79* |
| IBREVC | PARTA+5~ |
| IBREVC12 | PARTA+5~ |
| IBREVDUP | PARTA+5~ |
| IBREVTOT | PARTA+5~, PARTA+45* |
| IBREVTOT( | PARTA+80* |
| IBREVTOT("AC" | PARTA+45* |
| IBREVTOT("AI" | PARTA+45* |
| IBREVTOT("AO" | PARTA+45* |
| IBS | PARTA+3~, PARTA+45* |
| IBSTOP | PARTA+2~ |
| >> IBTDT | PARTA+37 |
| >> IBTOB | PARTA+11, PARTA+115 |
| >> IBTOB12 | EDITMRA+17 |
| IBTUNIT | PARTA+3~, PARTA+45*, PARTA+81* |
| IBVALCD | PARTA+3~ |
| IBX | PARTA+2~, PARTA+36*, MCRANUM+2~, MCRANUM+4~, MCRANUM+6*, MCRANUM+7 |
| IBXDATA | EDITMRA+13!, EDITMRA+15, PARTA+4~, PARTA+26!, PARTA+47! |
| IBXDATA( | PARTA+28, PARTA+61, PARTA+62, PARTA+63, PARTA+65, PARTA+79, PARTA+80, PARTA+81 |
| IBXERR | PARTA+4~ |
| IBXIEN | PARTA+4~ |
| IBZ | PARTA+116~, PARTA+118 |
| IBZADMIT | PARTA+4~ |
| IBZDISCH | PARTA+4~ |
| IBZP | EDITMRA+4~, EDITMRA+21* |
| IBZP1 | EDITMRA+4~, EDITMRA+22 |
| >> IBZPRC92 | EDITMRA+29 |
| MODS | GYMODCHK+2~, GYMODCHK+4*, GYMODCHK+5 |
| REQMRA | PARTA+2~, PARTA+59*, PARTA+62 |
| U | EDITMRA+17, EDITMRA+21, PARTA+8, PARTA+15, PARTA+28, PARTA+36, PARTA+63, PARTA+65, PARTA+80, PARTA+81 , PARTA+110, PARTA+119, MCRANUM+5, MCRANUM+6, GYMODCHK+4, GYMODCHK+6 |
| VADM | PARTA+2~ |
| VADM(5 | PARTA+110 |
| VAPA | PARTA+2~ |
| X | PARTA+11*, MCRACK~, MCRACK+6 |
| Z | EDITMRA+4~, EDITMRA+16~, EDITMRA+18*, EDITMRA+20, EDITMRA+21*, NONMCR+3~, NONMCR+5*, NONMCR+6*, NONMCR+8*, NONMCR+10* , GYMODCHK~, GYMODCHK+4, GYMODCHK+6 |
| Z( | EDITMRA+21 |
| >> Z0 | NONMCR+6* |
