RCDPEM5 ;ALB/PJH - EPAYMENTS MOVE EEOB TO NEW CLAIM ;Oct 29, 2014@16:43:51
Source file <RCDPEM5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;Entry point for EEOB Move/Copy/Remove [RCDPE EEOB MOVE/COPY/REMOVE] option
|
|
EXIT | ||
UPDATE(ORIG,NCLAIM,MODE,JUST) | ;
; Input - ORIG - Original EOB ; - NCLAIM - New claim (s) ; - MODE M=Move C=Copy ; - JUST = User input justification text ; Output - Updates EOB and Audit log |
|
PROMPT(ORIG,NCLAIM,MODE) | ;Construct prompt text
; Input - ORIG - Original EOB ; - NCLAIM - New claim (s) ; - MODE M=Move C=Copy ; Output - Justification text |
|
JUST(ORIG,NCLAIM,MODE,TYPE,SRC) | ;Construct justification text for automatic updates
; Input - ORIG - Original EOB ; - NCLAIM - New claim (s) ; - MODE - "M" = Move "C" =Copy "R" = Remove ; - TYPE - 0 = old EOB 1 = new EOB ; - SRC - "W" = Worklist "A" = Auto-post, "L" = Link Payment ; Output - Justification text |
|
JUST1(ORIG,NCLAIM,MODE,TYPE) | ;Construct AR comment for stand-alone MCR option
; Input - ORIG - Original EOB ; - NCLAIM - New claim (s) ; - MODE M=Move C=Copy ; - TYPE = 0 - original EOB 1 - new EOB(s) ; Output - Justification text |
|
FINDEOB(IEN3444,BILL) | ;Find EOB for a claim within an ERA
; Input - IEN3444 = ERA ien ; BILL = Bill number ; Output - IEN of EOB in #361.1 |
|
REMOVE(ORIG,MODE) | ; Interactive option to Remove EEOB - PRCA*4.5*298
; Input - ORIG = original EOB in #361.1 ; Output - mode = "R" |
|
VALSTAT(CLIEN) | ; validation on current status of the AR claim selected for the move/copy event
; Claims that are in a incomplete state cannot be selected ; incomplete states are determined at CURRENT STATUS (8,430) of the AR claim ; AR claims with 'BILL INCOMPLETE', 'INCOMPLETE', 'NEW BILL' statuses cannot be selected ; CLIEN=430 ien ; returns 0 or 1 |
|
AUTO(OBILL,RCSPLIT,RCERA,SRC,ORIG) | ;EP from RCDPEM and RCDPEMA
; Automatic move copy of EOB ; Input: OBILL - Original Bill number in #399 ; RCSPLIT - Array of split lines ; RCERA - ERA ien #344.4 ; SRC - "W" = Worklist "A" = APAR/Autopost ; ORIG - IEN of EOB in file #361.1 ; Output - Update EOBs and audit trail |
|
AUTOREM(ORIG,JUST) | ;Silent remove of EEOB where entire payment is suspensed or moved to other claims
; Input - ORIG = EOB in #361.1 ; JUST = Justification text ; Output - Update EOB in #361.1 and audit trail |
|
AUTOCOPY(ORIG,CCLAIM,SRC) | ; EP from RCDPEU2 - Copy EOBs and upate AR TRANSACTION file - PRCA*4.5*332
; Input: ORIG - IEN for file 361.1 of original EOB ; CCLAIM - Array of claims to copy to ; SRC - "W" = Worklist "A" = APAR/Autopost "L" = Link Payments |
|
AUTOMOVE(ORIG,NCLAIM,SRC) | ; EP from RCDPEU2 - Move EOB from one claim to another PRCA*4.5*332
; Input: ORIG - IEN for file 361.1 of original EOB ; NCLAIM - Array of new claims ; SRC - "W" = Worklist "A" = APAR/Autopost "L" = Link Payments |
|
LOCK(EOBIEN) | ;Lock Original EOB
|
|
UNLOCK(EOBIEN) | ;Release EOB
|
|
EEOB(RCRCPT,RCTRANDA) | ; Option to restore associated suspended/removed EEOB
|
|
SUSP(RCRCPT,RCTRANDA,RCERA,RCLINE) | ; Identify suspended EEOB
|
|
RESTORE(RCPTDA,RCTRANDA,ORIG,SRC) | ; Change bill number on EOB and clear 'removed' status
|
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^RCY(344 - [#344] | GET1^DIQ |
344.01 | GET1^DIQ |
^RCY(344.4 - [#344.4] | GET1^DIQ |
344.41 | EXTERNAL^DILFD, GET1^DIQ |
344.491 | GET1^DIQ |
^IBM(361.1 - [#361.1] | Classic Fileman Calls, EXTERNAL^DILFD, GET1^DIQ |
361.1101 | GET1^DIQ |
^DGCR(399 - [#399] | GET1^DIQ |
^PRCA(430 - [#430] | Classic Fileman Calls, GET1^DIQ |