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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCEU2

Package: Integrated Billing

Routine: IBCEU2


Information

IBCEU2 ;ALB/TMP - EDI UTILITIES FOR AUTO ADD OF CODES ON BILL ;20-OCT-99

Source Information

Source file <IBCEU2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Integrated Billing 2 ($$COBN,$$FT,$$INPAT,F)^IBCEF  ($$GETSPEC,$$MCRWNR)^IBEFUNC  
VA FileMan 2 FILE^DICN  ^DIE  

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: 5

Package Total Caller Graph
Integrated Billing 5 IBCB1  IBCD5  IBCEF11  IBCEF22  IBCEMQA  

Entry Points

Name Comments DBIA/ICR reference
AUTOCK(IBIFN,IBQUIET) ; Auto add any codes necessary based on data
; existing on bill, if needed.
; IBQUIET - optional parameter - equals 1 to suppress screen display
PRPAY(IBIFN,IBCOBN,IBQUIET) ; Output value cd A1 or A2 for prior payments, if needed
; IBIFN = ien of bill in file 399
; IBCOBN = the COB sequence number for bill (2=secondary, 3=tertiary)
; IBQUIET = 1 to suppress screen display
SUBDOB(IBIFN,IBCOBN,IBQUIET) ; Add occurrence codes A1,B1,C1 as needed for subscriber DOB
; IBIFN = ien of bill in file 399
; IBQUIET = 1 to suppress screen display
COMBO(IBXDATA,IBXTRA,IBINST) ; Determine the bundled/unbundled codes - add
; line items where needed to line item array IBXDATA(line #)
; Update referenced line in COB entries returned in IBXDATA
; IBXTR = array input with bundled/unbundled procedures
; ("ALL",original line~original procedure~service date,
; new procedure)=COB seq #^sequence # of adjustment in
; IBXDATA(n,"COB",COB seq #,adj#)
; IBINST = 1 if institutional claim, 0 if professional
MCRPT(DFN,IBDT) ; Determine if patient has MCRWNR insurance or if they
; are at least 65 yrs old, so should be MCR eligible as of IBDT (or DT)
; DFN = ien of patient

External References

Name Field # of Occurrence
FILE^DICN AUTOCK+39, PRPAY+31, PRPAY+39, SUBDOB+21
^DIE AUTOCK+41
$$COBN^IBCEF AUTOCK+5
$$FT^IBCEF AUTOCK+14
$$INPAT^IBCEF AUTOCK+14, AUTOCK+26
F^IBCEF AUTOCK+16, AUTOCK+21, AUTOCK+31, PRPAY+17, PRPAY+23, SUBDOB+13, SUBDOB+14
$$GETSPEC^IBEFUNC PRPAY+30, PRPAY+38, SUBDOB+20
$$MCRWNR^IBEFUNC MCRPT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] AUTOCK+28, AUTOCK+35, PRPAY+9, PRPAY+10, PRPAY+11, PRPAY+13, SUBDOB+7, SUBDOB+11, SUBDOB+18
^DGCR(399.1 - [#399.1] AUTOCK+18, AUTOCK+28, AUTOCK+38, PRPAY+7, PRPAY+8, SUBDOB+6
^DGCR(399.2 - [#399.2] AUTOCK+35
^DPT - [#2] MCRPT+7
^DPT(2 MCRPT+6
^IBM(361.1 - [#361.1] PRPAY+26

Label References

Name Line Occurrences
SUBDOB AUTOCK+11

Naked Globals

Name Field # of Occurrence
^( MCRPT+6
^(0 AUTOCK+35
^(1 PRPAY+26

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA AUTOCK+4~, AUTOCK+27~, AUTOCK+41*, PRPAY+5~, SUBDOB+8~
DA(1 AUTOCK+37*, PRPAY+29*, PRPAY+37*, SUBDOB+20*
DD AUTOCK+27~, AUTOCK+40!, PRPAY+5~, PRPAY+31!, PRPAY+39!, SUBDOB+8~, SUBDOB+21!
DFN MCRPT~, MCRPT+6, MCRPT+7
DIC AUTOCK+27~, AUTOCK+37*, AUTOCK+40!, PRPAY+5~, PRPAY+29*, PRPAY+31!, PRPAY+37*, PRPAY+39!, SUBDOB+8~, SUBDOB+20*
DIC("DR" AUTOCK+37*, PRPAY+30*, PRPAY+38*, SUBDOB+20*
DIC("P" PRPAY+30*, PRPAY+38*, SUBDOB+20*
DIC(0 AUTOCK+37*, PRPAY+30*, PRPAY+38*, SUBDOB+20*
DIE AUTOCK+4~, AUTOCK+27~, AUTOCK+41*
DLAYGO AUTOCK+27~, AUTOCK+37*, AUTOCK+40!, PRPAY+5~, PRPAY+29*, PRPAY+31!, PRPAY+37*, PRPAY+39!, SUBDOB+8~, SUBDOB+20*
DO AUTOCK+27~, AUTOCK+40!, PRPAY+5~, PRPAY+31!, PRPAY+39!, SUBDOB+8~, SUBDOB+21!
DOB MCRPT+3~, MCRPT+7*
DR AUTOCK+4~, AUTOCK+5*, AUTOCK+19*, AUTOCK+22*, AUTOCK+27~, AUTOCK+41, SUBDOB+4~
DT MCRPT+4, MCRPT+7
IB24 PRPAY+5~, PRPAY+25*, PRPAY+26*, PRPAY+27, PRPAY+30
IB24( PRPAY+8*, PRPAY+9, PRPAY+10, PRPAY+11, PRPAY+37
IB24("A1" PRPAY+6*
IB24("A2" PRPAY+6*
IB24(24 PRPAY+6*, PRPAY+7*, PRPAY+13, PRPAY+29
IBAMT AUTOCK+27~, AUTOCK+34*, AUTOCK+35*, AUTOCK+36, AUTOCK+37
IBCOBN AUTOCK+4~, AUTOCK+5*, AUTOCK+11, PRPAY~, SUBDOB~, SUBDOB+15, SUBDOB+16, SUBDOB+17
>> IBCT PRPAY+6*, PRPAY+18*, PRPAY+34
IBDT MCRPT~, MCRPT+4*
IBFL AUTOCK+4~, AUTOCK+27~
IBFL(39 AUTOCK+32
IBIFN AUTOCK~, AUTOCK+5, AUTOCK+11, AUTOCK+14, AUTOCK+16, AUTOCK+21, AUTOCK+26, AUTOCK+28, AUTOCK+31, AUTOCK+35
, AUTOCK+37, AUTOCK+41, PRPAY~, PRPAY+9, PRPAY+10, PRPAY+11, PRPAY+13, PRPAY+17, PRPAY+23, PRPAY+29
, PRPAY+37, SUBDOB~, SUBDOB+7, SUBDOB+11, SUBDOB+13, SUBDOB+14, SUBDOB+18, SUBDOB+20
IBINST COMBO~, COMBO+25, COMBO+26, COMBO+34, COMBO+35
IBND0 AUTOCK+27~, AUTOCK+28*
IBNEED PRPAY+5~, PRPAY+6*, PRPAY+10*, PRPAY+14, PRPAY+15, PRPAY+33
IBNEED( PRPAY+10*, PRPAY+18*, PRPAY+38
IBNEED24 PRPAY+5~, PRPAY+6*, PRPAY+11*, PRPAY+13*, PRPAY+14, PRPAY+18*, PRPAY+20
IBOC SUBDOB+8~, SUBDOB+9*, SUBDOB+10, SUBDOB+11, SUBDOB+18, SUBDOB+19, SUBDOB+20
IBOC( SUBDOB+18
IBOK AUTOCK+27~, AUTOCK+30*, AUTOCK+32*, AUTOCK+33
IBQUIET AUTOCK~, AUTOCK+11, PRPAY~, PRPAY+28, PRPAY+34, SUBDOB~, SUBDOB+19
IBTOB AUTOCK+27~, AUTOCK+28*, AUTOCK+29
IBV PRPAY+5~
IBV( PRPAY+11*
IBVN PRPAY+5~
IBVN( PRPAY+18*, PRPAY+36
IBVN("" PRPAY+34
IBVOC SUBDOB+4~
IBVOC( SUBDOB+6*, SUBDOB+10, SUBDOB+11, SUBDOB+20
IBVOC("A1" SUBDOB+5*
IBVOC("B1" SUBDOB+5*
IBVOC("C1" SUBDOB+5*
IBXDATA PRPAY+16~, PRPAY+21~, COMBO~
IBXDATA( COMBO+24*, COMBO+25*, COMBO+26*, COMBO+33*, COMBO+34*, COMBO+35*, COMBO+36*
IBXDATA("" COMBO+24, COMBO+33
IBXTRA COMBO~
IBXTRA("ALL" COMBO+9, COMBO+15, COMBO+17, COMBO+18!
IBXTRA("B" COMBO+17*, COMBO+29, COMBO+31
IBXTRA("U" COMBO+15*, COMBO+21, COMBO+22, COMBO+25, COMBO+34, COMBO+36
IBZ AUTOCK+17, AUTOCK+22, PRPAY+16~, PRPAY+21~, SUBDOB+4~, SUBDOB+12
IBZ( PRPAY+18, SUBDOB+18, SUBDOB+20
IBZ(0 PRPAY+17
IBZ(1 PRPAY+24, PRPAY+26, SUBDOB+15*, SUBDOB+16*, SUBDOB+17*
IBZ(2 SUBDOB+15*, SUBDOB+16*, SUBDOB+17*
IBZ(3 SUBDOB+15*, SUBDOB+16*, SUBDOB+17*
IBZ1 SUBDOB+8~, SUBDOB+15, SUBDOB+16, SUBDOB+17
IBZ2 SUBDOB+8~
IBZ2(1 SUBDOB+15, SUBDOB+16, SUBDOB+17
IBZ2(2 SUBDOB+15, SUBDOB+16, SUBDOB+17
MCR MCRPT+3~, MCRPT+5*, MCRPT+6*, MCRPT+7*, MCRPT+8
PROC1 COMBO+30~, COMBO+31*, COMBO+33*
U AUTOCK+18, AUTOCK+28, AUTOCK+32, AUTOCK+35, AUTOCK+38, PRPAY+7, PRPAY+8, PRPAY+11, PRPAY+18, PRPAY+26
, PRPAY+38, SUBDOB+6, SUBDOB+19, COMBO+25, COMBO+26, COMBO+34, COMBO+35, COMBO+36, MCRPT+6, MCRPT+7
X AUTOCK+27~, AUTOCK+38*, AUTOCK+39, PRPAY+29*, PRPAY+37*, SUBDOB+8~, SUBDOB+20*
Y AUTOCK+27~, SUBDOB+8~
Z AUTOCK+18~*, AUTOCK+19, AUTOCK+27~, AUTOCK+32*, AUTOCK+34*, AUTOCK+35*, PRPAY+5~, PRPAY+7*, PRPAY+8*, PRPAY+9*
, PRPAY+10, PRPAY+11, PRPAY+18*, PRPAY+25*, PRPAY+26*, PRPAY+36*, PRPAY+37, PRPAY+38, SUBDOB+4~, SUBDOB+6*
, SUBDOB+7*, SUBDOB+9, SUBDOB+18, SUBDOB+19, SUBDOB+20, COMBO+8~, COMBO+9*, COMBO+15, COMBO+17, COMBO+22*
, COMBO+24, COMBO+25, COMBO+31*, COMBO+33, COMBO+34, COMBO+36, MCRPT+3~, MCRPT+5*, MCRPT+6*
Z0 AUTOCK+27~, AUTOCK+35*, PRPAY+5~, PRPAY+8*, PRPAY+11*, PRPAY+18*, PRPAY+26*, SUBDOB+4~, SUBDOB+6*, COMBO+8~
, COMBO+9*, COMBO+15*, COMBO+17, COMBO+22*, COMBO+25, COMBO+26, COMBO+31*, COMBO+33, COMBO+34, COMBO+36
Z1 PRPAY+21~, PRPAY+26*, COMBO+8~, COMBO+24*, COMBO+25, COMBO+26, COMBO+33*, COMBO+34, COMBO+35, COMBO+36
ZP COMBO+33~*, COMBO+34, COMBO+35
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All