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 |  Marked Items  | All
Print Page as PDF
Routine: IBCEOB

Package: Integrated Billing

Routine: IBCEOB


Information

IBCEOB ;ALB/TMP/PJH - 835 EDI EOB MESSAGE PROCESSING ; 8/19/10 6:33pm

Source Information

Source file <IBCEOB.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Integrated Billing 13 PUTONWL^IBCAPP  $$COBN^IBCEF  $$LOCK^IBCEM  $$CHKSUM^IBCEMU1  (30,40,41,42,45,46)^IBCEOB0  ($$15,$$20,$$35,$$37,ICN)^IBCEOB00  UPD^IBCEOB01  ($$HDR,$$STORE)^IBCEOB1  
DELMSG^IBCESRV2  $$DATE^IBCEU  $$EOB^IBCNSBL2  $$WNRBILL^IBEFUNC  $$ARSTATA^IBJTU4  
VA FileMan 3 FILE^DICN  (,FILE,WP)^DIE  CLEAN^DILF  
Accounts Receivable 1 $$TPR^PRCAFN  
MailMan 1 $$NET^XMRENT  
Registration 1 $$SITE^VASITE  

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

Package Total Caller Graph
Integrated Billing 5 IBCEOB0  IBCEOB00  IBCEOB01  IBCEOB1  IBCESRV3  
Accounts Receivable 4 RCDPESR2  RCDPESR6  RCDPEX32  RCDPEX4  

Entry Points

Name Comments DBIA/ICR reference
UPDEOB(IBTDA) ; Update EXPLANATION OF BENEFITS file (#361.1) from return msg
; IBTDA = ien of return message
; Function returns ien of EOB file entry or "" if errors found
; the data. Any errors found are
; stored in array ^TMP("IBCERR-EOB",$J,n) in text format
; n = seq # and are stored with the EOB in a wp field
UPDQ
835(IB0,IBEGBL,IBEOB) ; Store header
5(IB0,IBEGBL,IBEOB) ; Record '05'
6(IB0,IBEGBL,IBEOB) ; Record '06' - corrected patient name and/or ID#
; This data is not going to be filed into file 361.1 so the value of this function will always be a 1 so as to
; not interrupt the filing process of the EOB/MRA data into file 361.1.
Q6 ; exit point for $$6 function
10(IB0,IBEGBL,IBEOB) ; Record '10'
Q10
12(IB0,IBEGL,IBEOB) ; Record '12'
Q12
13(IB0,IBEGL,IBEOB) ; Record '13'
Q13
15(IB0,IBEGBL,IBEOB) ; Record '15'
; Moved due to space constraints
Q15
17(IB0,IBEGBL,IBEOB) ; Record '17'
Q17
20(IB0,IBEGBL,IBEOB) ; Record '20'
; Moved due to space constraints
Q20
30(IB0,IBEGBL,IBEOB) ; Record '30'
Q30
35(IB0,IBEGBL,IBEOB) ; Record '35'
; Moved due to space constraints
Q35
37(IB0,IBEGBL,IBEOB) ; Record '37'
; Moved due to space constraints
Q37
40(IB0,IBEGBL,IBEOB) ; Record '40'
Q40
41(IB0,IBEGBL,IBEOB) ; Record '41'
Q41
42(IB0,IBEGBL,IBEOB) ; Record '42'
Q42
45(IB0,IBEGBL,IBEOB) ; Record '45'
46(IB0,IBEGBL,IBEOB) ; Record '46'
Q46
MSG(IBEOB,MSG) ; procedure to file message into field 6.03
; Results of processing of the "06" record type
MSGX ;
DOLLAR(X) ; Convert value in X to dollar format XXX.XX
ADD3611(IBMNUM,IBTBILL,IBBATCH,X,IBAR,IBFILE) ; Add stub record to file 361.1
; X = the ien of the referenced bill in file 399
; IBTBILL = ien of transmitted bill (optional)
; IBBATCH = ien of batch # the transmitted bill was in (optional)
; IBMNUM = the message # from which this record originally came
; IBAR = 1 only if called from AR
; IBFILE = array reference of raw EOB data
  • ICR #4042
    • Status: Active
    • Usage: Private
    UPD3611(IBEOB,IBTDA,IBAR) ; From flat file 835 format, add EOB record
    ; IBEOB = the ien of the entry in file 361.1 being updated
    ; IBTDA = the ien in the source file
    ; IBAR = 1 if being called from AR
  • ICR #4042
    • Status: Active
    • Usage: Private
    ERRUPD(IBEOB,IBEGBL) ; Update error text in entry, if needed
  • ICR #4042
    • Status: Active
    • Usage: Private
    DUP(IBARRAY,IBIFN) ; Duplicate Check
    ; This function determines if the EOB data already exists in file
    ; 361.1 by comparing the checksums of the raw 835 data.
  • ICR #4042
    • Status: Active
    • Usage: Private
    DUPX ;
    ERADET(IBEOB,ERADET) ; EP - Update EOB with reference to ERA detail - Subroutine added for IB*2.0*639
    ; Input: IBEOB - Internal entry number to file 361.1
    ; ERADET - IENS reference to ERA detail in the format "nnn,nnnnnn,"
    ; Output: None

    External References

    Name Field # of Occurrence
    FILE^DICN ADD3611+18
    ^DIE 5+11, 6+7, 10+13, 12+10, 13+10, MSG+9
    FILE^DIE ERADET+7
    WP^DIE ERRUPD+1
    CLEAN^DILF UPDQ+3
    PUTONWL^IBCAPP UPD3611+28
    $$COBN^IBCEF 6+15
    $$LOCK^IBCEM UPDEOB+21
    $$CHKSUM^IBCEMU1 ADD3611+17, DUP+20
    30^IBCEOB0 30+3
    40^IBCEOB0 40+3
    41^IBCEOB0 41+3
    42^IBCEOB0 42+3
    45^IBCEOB0 45+3
    46^IBCEOB0 46+4
    $$15^IBCEOB00 Q15
    $$20^IBCEOB00 Q20
    $$35^IBCEOB00 Q35
    $$37^IBCEOB00 Q37
    ICN^IBCEOB00 10+18
    UPD^IBCEOB01 6+20
    $$HDR^IBCEOB1 835+2, UPD3611+9
    $$STORE^IBCEOB1 17+13
    DELMSG^IBCESRV2 UPDEOB+19
    $$DATE^IBCEU 5+7, 5+8, 5+9, 10+11
    $$EOB^IBCNSBL2 UPD3611+27
    $$WNRBILL^IBEFUNC 6+16
    $$ARSTATA^IBJTU4 UPD3611+23
    $$TPR^PRCAFN UPD3611+25
    $$SITE^VASITE 6+14
    $$NET^XMRENT ADD3611+14

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^IBM(361.1 - [#361.1] Classic Fileman Calls,  WP^DIE

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DGCR(399 - [#399] 6+12, 6+17, ADD3611+12, UPD3611+27
    ^IBA(364 - [#364] UPDEOB+13
    ^IBA(364.2 - [#364.2] UPDEOB+11, UPDEOB+23
    ^IBM(361.1 - [#361.1] 6+9, 10+18, MSG+5, ADD3611+9, ADD3611+19, UPD3611+21, UPD3611+25, DUP+19, DUP+23, DUP+24
    ^TMP( 5+12*, 10+15*, 12+12*, 13+12*, 17+14*, UPD3611+15*, UPD3611+18
    ^TMP("IBCERR-EOB" UPDEOB+8!, UPDQUPDQ+2!
    ^TMP($J UPDEOB+8!, UPDQ+2!, UPD3611+9, UPD3611+13!

    Label References

    Name Line Occurrences
    $$ADD3611 UPDEOB+22
    $$DOLLAR 10+8
    $$DUP UPDEOB+19
    DUPX DUP+18, DUP+19, DUP+21
    ERRUPD UPDQ
    MSG 6+8, 6+10, 6+13, 6+14, 6+16, 6+18
    MSGX MSG+4
    Q10 10+15
    Q12 12+3
    Q13 13+3, 13+5
    Q46 46+3
    Q6 6+8, 6+10, 6+13, 6+14, 6+16, 6+18
    UPD3611 UPDEOB+26
    UPDQ UPDEOB+15, UPDEOB+19, UPDEOB+21, UPDEOB+25

    Naked Globals

    Name Field # of Occurrence
    ^( UPD3611+11

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    A 17+1~, 17+12*, 17+13
    BS ADD3611+8~, ADD3611+12*, ADD3611+13
    CHKSUM1 DUP+16~, DUP+20*, DUP+21, DUP+26
    CHKSUM2 DUP+16~, DUP+24*, DUP+25, DUP+26
    CLM 6+6~, 6+8*, 6+12, 6+13
    CNT 17+6~, 17+7*, 17+8*, 17+9*, 17+10
    DA 5+2~, 5+5*, 6+6~, 6+7*, 10+2~, 10+3*, 12+2~, 12+4*, 13+2~, 13+4*
    , MSG+2~, MSG+3*, MSG+5, ADD3611+8~
    DASHES UPD3611+4~, UPD3611+7*, UPD3611+15
    DATA 17+1~, 17+3*, 17+7*, 17+8*, 17+9*, 17+10*, 17+13
    DD UPDEOB+7~, ADD3611+8~
    DFN 6+6~, 6+17*, 6+18, 6+20
    DIC UPDEOB+7~, ADD3611+8~, ADD3611+15*
    DIC("DR" ADD3611+16*, ADD3611+17*
    DIC(0 ADD3611+15*
    DIE 5+2~, 5+5*, 6+6~, 6+7*, 10+2~, 10+3*, 12+2~, 12+4*, 13+2~, 13+4*
    , MSG+2~, MSG+3*
    DLAYGO UPDEOB+7~, ADD3611+8~, ADD3611+15*
    DO UPDEOB+7~, ADD3611+8~
    DR 5+2~, 5+4*, 5+7*, 5+8*, 5+9*, 5+10*, 5+11, 6+6~, 6+7*, 10+2~
    , 10+7*, 10+8*, 10+9*, 10+10*, 10+11*, 12+2~, 12+4*, 12+5*, 12+6*, 12+7*
    , 12+8*, 13+2~, 13+8*, MSG+2~, MSG+8*, ADD3611+8~
    DUP DUP+16~, DUP+17*, DUP+23, DUP+26*, DUPX+1
    ERADET ERADET~, ERADET+6
    FDA ERADET+5~
    FDA( ERADET+6*
    HIPAA 835+2, 10+11, 12+3, 13+3, 17+5, 46+3, UPD3611+4~, UPD3611+8*, UPD3611+9
    IB UPDEOB+7~, UPD3611+15*
    IB0 UPDEOB+7~, UPDEOB+11*, UPDEOB+12, UPDEOB+13, UPDEOB+22, 835~, 835+2, 5~, 5+7, 5+8
    , 5+9, 6~, 6+8, 6+20, 10~, 10+7, 10+8, 10+9, 10+10, 10+11
    , 10+18, 12~, 12+5, 12+6, 12+7, 13~, 13+5, 13+6, 13+7, 15~
    Q15, 17~, 17+3, 17+8, 17+9, 17+10, 20~, Q20, 30~, 30+3
    , 35~, Q35, 37~, Q37, 40~, 40+3, 41~, 41+3, 42~, 42+3
    , 45~, 45+3, 46~, 46+4, UPD3611+11*, UPD3611+12
    IB100 UPDEOB+7~
    IB361 10+2~, UPD3611+19~, UPD3611+21*, UPD3611+22, UPD3611+28
    IBA1 UPDEOB+7~, UPD3611+4~, UPD3611+10*, UPD3611+11*
    IBAR ADD3611~, ADD3611+16, UPD3611~, UPD3611+5, UPD3611+6, UPD3611+9, UPD3611+11
    IBARRAY DUP~, DUP+18, DUP+20
    IBBAD UPDEOB+7~, UPDEOB+10*
    IBBATCH ADD3611~, ADD3611+16
    IBBTCH UPDEOB+7~
    IBE UPDEOB+7~
    IBEGBL 835~, 835+2, 5~, 5+12, 6~, 10~, 10+15, 12+12, 13+12, 15~
    Q15, 17~, 17+14, 20~, Q20, 30~, 35~, Q35, 37~, Q37
    , 40~, 41~, 42~, 45~, 46~, UPD3611+4~, UPD3611+6*, UPD3611+9, UPD3611+15, UPD3611+18
    , ERRUPD~
    IBEGL 12~, 13~
    IBEOB UPDEOB+7~, UPDEOB+10*, UPDEOB+22*, UPDEOB+25*, UPDEOB+26, UPDQUPDQ+4, 835~, 835+2, 5~
    , 5+5, 6~, 6+7, 6+8, 6+9, 6+10, 6+13, 6+14, 6+16, 6+18
    , 6+20, 10~, 10+3, 10+18, 12~, 12+4, 13~, 13+4, 15~, Q15
    , 17~, 17+13, 20~, Q20, 30~, 30+3, 35~, Q35, 37~, Q37
    , 40~, 40+3, 41~, 41+3, 42~, 42+3, 45~, 45+3, 46~, 46+4
    , MSG~, MSG+3, UPD3611~, UPD3611+9, UPD3611+18, UPD3611+21, UPD3611+25, ERRUPD~, ERRUPD+1, DUP+16~
    , DUP+22*, DUP+23*, DUP+24, DUP+26, ERADET~, ERADET+6
    IBFILE UPDEOB+7~, UPDEOB+18*, UPDEOB+19, UPDEOB+22, ADD3611~, ADD3611+17, UPD3611+4~, UPD3611+5*, UPD3611+11
    IBIFN UPDEOB+7~, 6+6~, 6+11*, 6+13, 6+15, 6+16, 6+17, 6+20, UPD3611+19~, UPD3611+21*
    , UPD3611+23, UPD3611+25, UPD3611+27, DUP~, DUP+17*, DUP+18, DUP+19, DUP+23
    IBIFN1 6+6~, 6+12*, 6+13
    IBM 6+6~, 6+9*, 6+10, 6+11
    IBMNUM UPDEOB+7~, UPDEOB+12*, UPDEOB+15, UPDEOB+22, ADD3611~, ADD3611+14, ADD3611+16
    IBOK UPDEOB+7~, 5+2~, 5+4*, 5+11*, 5+12, 5+13, 10+2~, 10+14*, 10+15, 10+18
    Q10, 12+2~, 12+3*, 12+11*, 12+12, Q12, 13+2~, 13+3*, 13+5*, 13+11*
    , 13+12, Q13, 17+1~, 17+13*, 17+14, Q17, 30+2~, 30+3, Q30, 40+2~
    , 40+3, Q40, 41+2~, 41+3, Q41, 42+2~, 42+3, Q42, 45+2~, 45+3
    , 45+4, 46+2~, 46+3*, 46+4, Q46, UPD3611+15
    IBPYMT UPD3611+19~, UPD3611+25*, UPD3611+27
    IBREC UPD3611+4~, UPD3611+12*, UPD3611+13, UPD3611+15
    IBT UPDEOB+7~
    IBTBILL ADD3611~, ADD3611+16
    IBTDA UPDEOB~, UPDEOB+11, UPDEOB+18, UPDEOB+19, UPDEOB+21, UPDEOB+23, UPDEOB+26, UPD3611~, UPD3611+5
    IBTXT UPD3611+19~, UPD3611+27
    IBX UPD3611+19~, UPD3611+27*
    IBZDATA 5+3!
    MMI ADD3611+8~, ADD3611+14*
    MSG MSG~, MSG+4, MSG+6*, MSG+7*
    NAME 13+2~, 13+5*, 13+6*, 13+7*, 13+8
    Q UPD3611+4~, UPD3611+15*
    REVSTAT ADD3611+8~, ADD3611+13*, ADD3611+16
    SEQ 6+6~, 6+15*, 6+16, 6+20
    SITE 6+6~, 6+8*, 6+14
    U UPDEOB+12, UPDEOB+13, UPDEOB+22, 5+7, 5+8, 5+9, 6+8, 6+10, 6+11, 6+14
    , 6+17, 10+7, 10+8, 10+9, 10+10, 10+11, 10+18, 12+5, 12+6, 12+7
    , 13+5, 13+6, 13+7, 17+7, 17+8, 17+9, 17+10, MSG+5, ADD3611+12, UPD3611+21
    , UPD3611+22, UPD3611+23, UPD3611+28, DUP+24
    VAL 10+2~, 12+2~, 13+2~
    X UPDEOB+7~, UPDEOB+13*, UPDEOB+15, UPDEOB+19, UPDEOB+22, 5+2~, 10+2~, 12+2~, 13+2~, DOLLAR~
    , DOLLAR+1, ADD3611~, ADD3611+12
    Y UPDEOB+7~, 5+2~, 5+11, 10+2~, 10+14, 12+2~, 12+11, 13+2~, 13+11, ADD3611+8~
    , ADD3611+20
    Z UPDEOB+7~, MSG+2~, MSG+5*, MSG+6, UPD3611+4~
    Z0 UPDEOB+7~
    Z1 UPDEOB+7~

    Marked Items

    Name Field # of Occurrence
    $T(@Q UPD3611+15
    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 |  Marked Items  | All