Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCBB3

Package: Integrated Billing

Routine: IBCBB3


Information

IBCBB3 ;ALB/TMP - CONTINUATION OF EDIT CHECKS ROUTINE (MEDICARE) ;06/23/98

Source Information

Source file <IBCBB3.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 10 WARN^IBCBB11  EN^IBCBB2  EN^IBCBB21  ^IBCBB4  PARTB^IBCBB9  ($$COBN,$$INPAT,F)^IBCEF  GETPRV^IBCEU  SET^IBCSC4D  
ALLPROC^IBCVA1  ($$MRATYPE,$$NEEDMRA,$$REQMRA,$$WNRBILL)^IBEFUNC  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Integrated Billing 8 IBCBB1  IBCBB21  IBCBB4  IBCBB5  IBCBB7  IBCBB7A  IBCBB8  IBCBB9  

Entry Points

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 ;

External References

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] PARTA+119, MCRANUM+5
^DGCR(399.1 - [#399.1] PARTA+36, MCRANUM+6

Label References

Name Line Occurrences
$$IBER EDITMRA+17, PARTA+8, PARTA+11, PARTA+91, PARTA+110, PARTA+118, PARTA+120, GYMODCHK+7
GYMODCHK PARTA+62
NONMCR PARTA+88
PARTA EDITMRA+10

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All