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

Package: Accounts Receivable

Routine: RCDPEM5


Information

RCDPEM5 ;ALB/PJH - EPAYMENTS MOVE EEOB TO NEW CLAIM ;Oct 29, 2014@16:43:51

Source Information

Source file <RCDPEM5.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: !,"Cannot move EEOB to same claim"
  • Line Location: EN+56
Function Call: WRITE
  • Prompt: !,"Claim already entered"
  • Line Location: EN+57
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+70
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+77
Function Call: WRITE
  • Prompt: !!,"Update not performed"
  • Line Location: EN+77
Function Call: WRITE
  • Prompt: !!,"EEOB Update Complete"
  • Line Location: UPDATE+33
Function Call: WRITE
  • Prompt: !
  • Line Location: REMOVE+8
Function Call: WRITE
  • Prompt: !
  • Line Location: REMOVE+15
Function Call: WRITE
  • Prompt: !!,"Update not performed"
  • Line Location: REMOVE+15
Function Call: WRITE
  • Prompt: !!,"EEOB Update Complete"
  • Line Location: REMOVE+23
Function Call: WRITE
  • Prompt: !!,"This claim has an associated EEOB on ERA "_RCERA
  • Line Location: EEOB+24
Function Call: WRITE
  • Prompt: !!,"Claim Number : ",$$GET1^DIQ(344.41,RCLINE_","_RCERA,.02,"E")
  • Line Location: EEOB+25
Function Call: WRITE
  • Prompt: !,"Trace Number : ",$$GET1^DIQ(344.4,RCERA,.02,"E")
  • Line Location: EEOB+26
Function Call: WRITE
  • Prompt: !,"Total Amount Paid: ",$$GET1^DIQ(361.1,RCEEOB,1.01,"E")
  • Line Location: EEOB+27
Function Call: WRITE
  • Prompt: !,"Date/Time Removed: ",$$GET1^DIQ(361.1101,RCEEOBH_","_RCEEOB,.01,"E")
  • Line Location: EEOB+28
Function Call: WRITE
  • Prompt: !,"Removed by : ",$$GET1^DIQ(361.1101,RCEEOBH_","_RCEEOB,.02,"E")
  • Line Location: EEOB+29
Function Call: WRITE
  • Prompt: !,"Justification : ",$$GET1^DIQ(361.1101,RCEEOBH_","_RCEEOB,.03,"E"),!
  • Line Location: EEOB+30
Function Call: WRITE
  • Prompt: !,"Updating EEOB...."
  • Line Location: RESTORE+9
Function Call: WRITE
  • Prompt: "done"
  • Line Location: RESTORE+25

FileMan Files Accessed Via FileMan Db Call

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