IBCEMU1 ;ALB/DSM - IB MRA Utility ;26-MAR-2003
Source file <IBCEMU1.m>
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: " |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | Classic Fileman Calls |
^IBM(361.1 - [#361.1] | EXTERNAL^DILFD, GET1^DIQ |
^DGCR(399 - [#399] | GET1^DIQ |