Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call