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

Package: Integrated Billing

Routine: IBCEMU1


Information

IBCEMU1 ;ALB/DSM - IB MRA Utility ;26-MAR-2003

Source Information

Source file <IBCEMU1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Integrated Billing 3 ($$COBN,$$INPAT,$$INSPRF,F)^IBCEF  MRA^IBCEMRAA  ($$MCRONBIL,$$WNRBILL)^IBEFUNC  
Kernel 1 $$FMTE^XLFDT  

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

Package Total Caller Graph
Integrated Billing 26 IB20P375  IBCAPP1  IBCAPP2  IBCAPR2  IBCB1  IBCC  IBCCC2  IBCCCB  
IBCCCB0  IBCECOB  IBCECOB1  IBCECOB2  IBCECSA4  IBCEF4  IBCEMCA3  IBCEMQC  
IBCEMRAX  IBCEMSR  IBCEMU2  IBCEMVU  IBCEOB  IBCEOB1  IBCEOB21  IBCESRV3  
IBCEU1  IBOSTUS1  

Entry Points

Name Comments DBIA/ICR reference
MRAUSR() ;; Function
; Returns IEN (Internal Entry Number) from file #200 for
; the Bill Authorizer of acceptable MRA secondary claims,
; namely, AUTHORIZER,IB MRA
MRA(IBIFN) ; Utility driver procedure - this is what gets called
MRAX ;
MRAEXIST(IBIFN) ; This function determines if any MRA exists for the
; passed bill (IBIFN).
MRAEX ;
CHK(IBIFN) ; This function returns 1 if there is at least 1 MRA EOB for
; this bill# in file 361.1.
CHKX ;
PRINTMRA(IBIFN) ; This procedure is called when the user is printing bills
; and we know that one or more MRA's exist for this bill. We ask the
; user if the MRA(s) should be printed at this time too.
PRMRAX ;
MRACNT(IBIFN,IBMRANOT) ; This function counts up the number of MRA EOB's in file ;WCJ IB*2.0*432
; 361.1 for this bill#
MRACNTX ;
SPLTMRA(IBIFN,IBMRARET) ; This function returns the number of Split MRA's for a
; given bill#.
; IBIFN = claim number
; IBMRARET = if passed in, return the 361.1 IENs
SPLTX ;
SPLIT(IBEOB) ; This function returns whether or not the given EOB is a
; split EOB as indicated in the claim level remark code.
; Check the remittance advice remark codes looking for code MA15. This
; code indicates that the claim has been separated to expedite
; handling. This means that this is an incomplete EOB.
SPLITX ;
SPLIT2(IBEOB,IBALLORONE) ; All lines Covered? aka SPLIT2
EOBLST(IBEOB) ; Standard FileMan lister code for entries in the EOB file
; Input parameter IBEOB is the IEN into file 361.1
; This can be used by setting DIC("W")="D EOBLST^IBCEMU1(Y)" prior
; to FileMan lister calls.
EOBLSTX ;
SEL(IBIFN,MRAONLY,IBDA) ; Function to display and allow user selection
; of an EOB/MRA on file in 361.1 for the given bill.
SELX ;
CHKSUM(IBARRAY) ; Incoming 835 checksum calculation
; This function calculates the checksum of the raw 835 data from
; the data in array IBARRAY. This is done to prevent duplicates.
; Input parameter IBARRAY is the array reference where the data exists
; at @IBARRAY@(n,0) where n is a sequential #
; For file 364.2, IBARRAY = "^IBA(364.2,IBIEN,2)" where IBIEN = the ien
; of the entry in file 364.2 being evaluated
EXT(DATA) ; Extracts from the text in DATA if the text contains
; "##RAW DATA: "

External References

Name Field # of Occurrence
^DIC MRAUSR+11
$$EXTERNAL^DILFD EOBLST+11, EOBLST+12, EOBLST+15, SEL+18, SEL+19, SEL+22
$$GET1^DIQ SPLIT+14, SPLIT2+31, SPLIT2+34, SPLIT2+43, SPLIT2+49, SPLIT2+60, SPLIT2+70, SPLIT2+71, SPLIT2+72
^DIR PRINTMRA+17, SEL+46
$$COBN^IBCEF MRAEXIST+18
$$INPAT^IBCEF SPLIT2+45
$$INSPRF^IBCEF SPLIT2+45
F^IBCEF SPLIT2+55, SPLIT2+56, SPLIT2+57
MRA^IBCEMRAA PRINTMRA+21
$$MCRONBIL^IBEFUNC MRAEXIST+20
$$WNRBILL^IBEFUNC MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
$$FMTE^XLFDT EOBLST+13, SEL+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRINTMRA+16
Function Call: WRITE
  • Prompt: $E(PATNAME,1,19)," (",$E(SEQ),")",$E(INSCO,1,17),?56,EOBDT
  • Line Location: EOBLST+16
Function Call: WRITE
  • Prompt: ?66,EOBTYP,?70,CLMSTAT
  • Line Location: EOBLST+17
Function Call: WRITE
  • Prompt: !!,"The selected bill has multiple ",J," on file. Please choose one."
  • Line Location: SEL+34
Function Call: WRITE
  • Prompt: !!?7,"#",?11,"Seq",?17,"Insurance Company",?40,"EOB Date"
  • Line Location: SEL+35
Function Call: WRITE
  • Prompt: ?51,"Type",?57,"Claim Status"
  • Line Location: SEL+36
Function Call: WRITE
  • Prompt: !?5,$J(J,3),?11,"(",$P(A,U,2),")",?17,$E($P(A,U,3),1,20)
  • Line Location: SEL+38
Function Call: WRITE
  • Prompt: ?40,$P(A,U,4),?51,$P(A,U,5),?57,$P(A,U,6)
  • Line Location: SEL+39
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+43
Routine Call
  • DIC
  • Line Location:
    • MRAUSR+11
Routine Call
  • DIR
  • Line Location:
    • PRINTMRA+17
    • SEL+46

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^IBM(361.1 - [#361.1] EXTERNAL^DILFD,  GET1^DIQ
^DGCR(399 - [#399] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] MRAEXIST+17, MRAEXIST+30, EOBLST+9
^DPT - [#2] EOBLST+10
^IBM(361.1 - [#361.1] CHK+4, CHK+5, MRACNT+4, MRACNT+5, SPLTMRA+8, SPLIT+8, SPLIT+9, SPLIT2+37, SPLIT2+40, SPLIT2+68
, SPLIT2+75, SPLIT2+78, EOBLST+7, SEL+12, SEL+14, SEL+15, SEL+52, SEL+53
^TMP("IBCECOB" SEL+55, SEL+56*, SEL+57*
^TMP("IBCECOB1" SEL+60, SEL+61*, SEL+62*, SEL+63*, SEL+64*, SEL+65*

Label References

Name Line Occurrences
$$CHK MRAEXIST+23, MRAEXIST+26, MRAEXIST+31
$$EXT CHKSUM+12
$$MRACNT PRINTMRA+6
$$MRAEXIST MRA+1
$$SPLIT SPLTMRA+8
MRAEX MRAEXIST+17, MRAEXIST+19, MRAEXIST+20, MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
PRINTMRA MRA+1
PRMRAX PRINTMRA+5, PRINTMRA+6, PRINTMRA+18
SELX SEL+28, SEL+47, SEL+52
SPLITX SPLIT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A SEL+10~, SEL+37*, SEL+38, SEL+39
CLMSTAT EOBLST+6~, EOBLST+15*, EOBLST+17, SEL+9~, SEL+22*, SEL+24
CNT PRINTMRA+4~, PRINTMRA+6*, PRINTMRA+11, PRINTMRA+12, MRACNT+2~, MRACNT+3*, MRACNT+6*, MRACNTX+1
COUNT SEL+9~, SEL+11*, SEL+23*, SEL+24, SEL+28, SEL+34, SEL+37, SEL+43
DATA CHKSUM+8~, CHKSUM+12*, CHKSUM+13, CHKSUM+17, EXT~, EXT+2
DIC MRAUSR+8~, MRAUSR+9*
DIC(0 MRAUSR+9*
DIR PRINTMRA+4~, PRINTMRA+17!, SEL+10~, SEL+46!
DIR("?" PRINTMRA+15*
DIR("A" PRINTMRA+9*, PRINTMRA+10*, PRINTMRA+12*, PRINTMRA+13*, SEL+43*, SEL+45*
DIR("B" PRINTMRA+8*
DIR(0 PRINTMRA+8*, SEL+43*
DIROUT PRINTMRA+4~, SEL+10~
DIRUT PRINTMRA+4~, SEL+10~
DTOUT PRINTMRA+4~, SEL+10~
DUOUT PRINTMRA+4~, SEL+10~
EOBDATE SEL+9~, SEL+11*, SEL+12*, SEL+14
EOBDT EOBLST+6~, EOBLST+13*, EOBLST+16, SEL+9~, SEL+20*, SEL+24
EOBFLG CHKSUM+8~, CHKSUM+9*, CHKSUM+14*, CHKSUM+20
EOBTYP EOBLST+6~, EOBLST+14*, EOBLST+17, SEL+9~, SEL+21*, SEL+24
IB EOBLST+5~, EOBLST+9*, EOBLST+10
IBALLORONE SPLIT2~, SPLIT2+69
IBARRAY CHKSUM~, CHKSUM+11, CHKSUM+12
IBCOB MRAEXIST+14~, MRAEXIST+18*, MRAEXIST+19, MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
IBDA SEL~, SEL+11*, SEL+55, SEL+56, SEL+57, SEL+60, SEL+61, SEL+62, SEL+63, SEL+64
, SEL+65
IBEOB SPLIT~, SPLIT+7*, SPLIT+8, SPLIT+9, SPLIT+14, SPLIT2~, SPLIT2+28, SPLIT2+31, SPLIT2+34, SPLIT2+37
, SPLIT2+40, SPLIT2+43, SPLIT2+60, SPLIT2+69, EOBLST~, EOBLST+7, SEL+9~, SEL+11*, SEL+48*, SEL+52
, SEL+53, SEL+57, SEL+61, SELX+1
IBFT SPLIT2+23~, SPLIT2+24~, SPLIT2+49*, SPLIT2+50, SPLIT2+53, SPLIT2+55, SPLIT2+56, SPLIT2+57
IBIFN MRA~, MRA+1, MRAEXIST~, MRAEXIST+15*, MRAEXIST+17, MRAEXIST+18, MRAEXIST+20, MRAEXIST+23, MRAEXIST+26, MRAEXIST+29
, MRAEXIST+30, CHK~, CHK+4, PRINTMRA~, PRINTMRA+5*, PRINTMRA+6, PRINTMRA+21, MRACNT~, MRACNT+4, SPLTMRA~
, SPLTMRA+8, SPLIT2+23~, SPLIT2+43*, SPLIT2+44, SPLIT2+45, SPLIT2+49, SPLIT2+55, SPLIT2+56, SPLIT2+57, SPLIT2+68
, EOBLST+5~, EOBLST+8*, EOBLST+9, SEL~, SEL+11*, SEL+12, SEL+14, SEL+55
IBLINE SPLIT2+24~, SPLIT2+76*, SPLIT2+77*, SPLIT2+78
IBLOOP SPLIT2+23~
IBLOOPEOB SPLIT2+24~, SPLIT2+67*, SPLIT2+68*, SPLIT2+69, SPLIT2+70, SPLIT2+71, SPLIT2+72, SPLIT2+75, SPLIT2+78
IBM EOBLST+5~, EOBLST+7*, EOBLST+8, EOBLST+11, EOBLST+12, EOBLST+13, EOBLST+14, EOBLST+15, SEL+9~, SEL+15*
, SEL+16, SEL+17, SEL+18, SEL+19, SEL+20, SEL+21, SEL+22, SEL+52*, SEL+56, SEL+62
, SEL+63, SEL+64
IBM1 SEL+10~, SEL+53*, SEL+65
IBM3 SPLIT+6~, SPLIT+8*, SPLIT+10
IBM5 SPLIT+6~, SPLIT+9*, SPLIT+12
IBMRAF SPLIT2+25~
IBMRANOT MRACNT~, MRACNT+5, SEL+16, SEL+17, SEL+33, SEL+45
IBMRARET SPLTMRA~
IBMRARET( SPLTMRA+8*
IBPAYSEQ SPLIT2+24~, SPLIT2+60*, SPLIT2+61, SPLIT2+72
IBRC SPLIT2+25~
IBREC CHKSUM+8~, CHKSUM+13*, CHKSUM+14, CHKSUM+15, CHKSUM+16
IBXARRAY SPLIT2+25~
IBXARRY SPLIT2+25~
IBXERR SPLIT2+25~
IBXSAVE SPLIT2+25~
IBZDATA SPLIT2+23~, SPLIT2+24~
IBZDATA( SPLIT2+77, SPLIT2+78!
IBZDATA(0 SPLIT2+64, SPLIT2+86
IEN CHK+2~, CHK+3*, CHK+4*, CHK+5, MRACNT+2~, MRACNT+3*, MRACNT+4*, MRACNT+5, SPLTMRA+5~, SPLTMRA+6*
, SPLTMRA+8*, SEL+9~, SEL+13*, SEL+14*, SEL+15, SEL+24
INSCO EOBLST+5~, EOBLST+11*, EOBLST+16, SEL+9~, SEL+18*, SEL+24
J SEL+10~, SEL+31*, SEL+33*, SEL+34, SEL+37*, SEL+38
LIST SEL+9~
LIST( SEL+24*, SEL+37, SEL+48
LN CHKSUM+8~, CHKSUM+10*, CHKSUM+11*, CHKSUM+12
MRAONLY SEL~, SEL+16, SEL+17
NUM SPLTMRA+5~, SPLTMRA+6*, SPLTMRA+8*, SPLTX+1
OK MRAEXIST+14~, MRAEXIST+16*, MRAEXIST+23*, MRAEXIST+26*, MRAEXIST+31*, MRAEX+1, CHK+2~, CHK+3*, CHK+4, CHK+5*
CHKX+1
PATNAME EOBLST+5~, EOBLST+10*, EOBLST+16
PCE SPLIT+6~, SPLIT+10*, SPLIT+12*
POS CHKSUM+8~, CHKSUM+17*
PRIMBILL MRAEXIST+14~, MRAEXIST+30*, MRAEXIST+31
REMC SPLIT+6~, SPLIT+10*, SPLIT+12*
RESULT SPLIT2+23~, SPLIT2+27*, SPLIT2+28, SPLIT2+31, SPLIT2+34, SPLIT2+37, SPLIT2+40, SPLIT2+44, SPLIT2+45, SPLIT2+50
, SPLIT2+53, SPLIT2+61, SPLIT2+63*, SPLIT2+64, SPLIT2+68, SPLIT2+75*, SPLIT2+81, SPLIT2+86
SEQ EOBLST+5~, EOBLST+12*, EOBLST+16, SEL+9~, SEL+19*, SEL+24
SPLIT SPLIT+6~, SPLIT+7*, SPLIT+10*, SPLIT+11, SPLIT+12*, SPLIT+14*, SPLITX+1
U MRAEXIST+30, CHK+5, MRACNT+5, SPLIT+10, SPLIT+12, EOBLST+10, EOBLST+11, EOBLST+12, EOBLST+13, EOBLST+14
, EOBLST+15, SEL+16, SEL+17, SEL+18, SEL+19, SEL+20, SEL+21, SEL+22, SEL+24, SEL+38
, SEL+39, SEL+55, SEL+56, SEL+57, SEL+61, SEL+62, SEL+63, SEL+64, SEL+65, CHKSUM+13
X MRAUSR+8~, MRAUSR+9*, PRINTMRA+4~, SEL+10~
Y MRAUSR+8~, MRAUSR+14, PRINTMRA+4~, PRINTMRA+18, SEL+10~, SEL+47, SEL+48, CHKSUM+8~, CHKSUM+9*, CHKSUM+17*
, CHKSUM+20*, CHKSUM+21
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All