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

Package Total Call Graph
Integrated Billing 3 $$COBN^IBCEF  MRA^IBCEMRAA  ($$MCRONBIL,$$WNRBILL)^IBEFUNC  
VA FileMan 3 ^DIC  $$EXTERNAL^DILFD  ^DIR  
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: 25

Package Total Caller Graph
Integrated Billing 25 IB20P375  IBCAPP1  IBCAPP2  IBCAPR2  IBCB1  IBCC  IBCCC2  IBCCCB  
IBCCCB0  IBCECOB  IBCECOB1  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) ; This function returns the number of Split MRA's for a
; given bill#.
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 ;
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
^DIR PRINTMRA+17, SEL+46
$$COBN^IBCEF MRAEXIST+18
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

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+5, SPLIT+8, SPLIT+9, 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+5
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
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, EOBLST~, EOBLST+7, SEL+9~, SEL+11*, SEL+48*, SEL+52
, SEL+53, SEL+57, SEL+61, SELX+1
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+5, EOBLST+5~, EOBLST+8*, EOBLST+9, SEL~, SEL+11*, SEL+12, SEL+14, SEL+55
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
IBMRANOT MRACNT~, MRACNT+5, SEL+16, SEL+17, SEL+33, SEL+45
IBREC CHKSUM+8~, CHKSUM+13*, CHKSUM+14, CHKSUM+15, CHKSUM+16
IEN CHK+2~, CHK+3*, CHK+4*, CHK+5, MRACNT+2~, MRACNT+3*, MRACNT+4*, MRACNT+5, SPLTMRA+3~, SPLTMRA+4*
, SPLTMRA+5*, 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+3~, SPLTMRA+4*, SPLTMRA+5*, 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*
SEQ EOBLST+5~, EOBLST+12*, EOBLST+16, SEL+9~, SEL+19*, SEL+24
SPLIT SPLIT+6~, SPLIT+7*, SPLIT+10*, SPLIT+11, SPLIT+12*, 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