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

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 ^DIC  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Kernel 2 $$NOW^XLFDT  OWNSKEY^XUSRB  
Accounts Receivable 1 AUDIT^RCDPAYER  
Integrated Billing 1 ($$LOCK,COPY,MOVE,REMOVE,RESTORE,UNLOCK)^IBCEOB4  

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

Package Total Caller Graph
Accounts Receivable 7 RCDPE EEOB MOVE/COPY/REMOVE  RCDPEM  RCDPEMA  RCDPEU2  RCDPEWL3  RCDPLPL3  RCDPRPL1  

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

External References

Name Field # of Occurrence
^DIC EN+25, EN+53
$$EXTERNAL^DILFD PROMPT+8, JUST+9, JUST1+8, FINDEOB+7
$$GET1^DIQ EN+29, VALSTAT+7, EEOB+11, EEOB+25, EEOB+26, EEOB+27, EEOB+28, EEOB+29, EEOB+30, SUSP+11
, SUSP+15, SUSP+19, SUSP+25, SUSP+29, SUSP+33, RESTORE+13
^DIR EN+8, EN+15, EN+70, EN+77, REMOVE+8, REMOVE+15, EEOB+36
$$LOCK^IBCEOB4 EN+39, RESTORE+7
COPY^IBCEOB4 UPDATE+19, AUTOCOPY+9
MOVE^IBCEOB4 UPDATE+14, AUTOMOVE+11, RESTORE+19
REMOVE^IBCEOB4 REMOVE+19, AUTOREM+8
RESTORE^IBCEOB4 RESTORE+21
UNLOCK^IBCEOB4 EXIT, RESTORE+23
AUDIT^RCDPAYER UPDATE+12, UPDATE+16, UPDATE+23, UPDATE+32, REMOVE+21, AUTOREM+10, AUTOCOPY+12, AUTOCOPY+18, AUTOMOVE+9, AUTOMOVE+13
, RESTORE+17
$$NOW^XLFDT UPDATE+14, UPDATE+19, AUTOCOPY+9, AUTOMOVE+11, RESTORE+19
OWNSKEY^XUSRB EN+12

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
Routine Call
  • DIC
  • Line Location:
    • EN+25
    • EN+53
Routine Call
  • DIR
  • Line Location:
    • EN+8
    • EN+15
    • EN+70
    • EN+77
    • REMOVE+8
    • REMOVE+15
    • EEOB+36

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EN+35
^IBM(361.1 - [#361.1] EN+34, UPDATE+31, PROMPT+8, JUST+9, JUST1+8, AUTOCOPY+17, LOCK+1, UNLOCK+1, EEOB+20
^PRCA(430 - [#430] PROMPT+14, JUST+18, JUST1+16
^RCY(344.4 - [#344.4] FINDEOB+6
^RCY(344.49 - [#344.49] SUSP+21

Label References

Name Line Occurrences
$$JUST AUTO+50, AUTOCOPY+6, AUTOCOPY+7, AUTOMOVE+6, AUTOMOVE+7
$$JUST1 UPDATE+10, UPDATE+21, UPDATE+25
$$LOCK AUTO+35, AUTOREM+6
$$PROMPT EN+69
$$SUSP EEOB+15
AUTOCOPY AUTO+46
AUTOMOVE AUTO+41
AUTOREM AUTO+51
EXIT EN+42, EN+61, EN+64, EN+72, EN+77, EN+81, REMOVE+15
REMOVE EN+42
UNLOCK AUTO+54, AUTOREM+12
UPDATE EN+81

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BILL FINDEOB~, FINDEOB+7
CCLAIM AUTO+8~, AUTO+46, AUTO+50, AUTOCOPY~, AUTOCOPY+6, AUTOCOPY+7, AUTOCOPY+9
CCLAIM( AUTO+28*, AUTOCOPY+15, AUTOCOPY+17
CLAIM EEOB+9~, EEOB+11*, EEOB+13
CLIEN VALSTAT~, VALSTAT+7
CSTAT VALSTAT+6~, VALSTAT+7*, VALSTAT+8
CURR EN+33~, EN+35*
DA EN+19~
DIC EN+19~, EN+24*, EN+25!, EN+52*, EN+53!
DIC("A" EN+22*, EN+50*, EN+51*
DIC("S" EN+24*, EN+52*
DIC(0 EN+24*, EN+52*
DIE EN+19~
DIR EN+2~, EN+15~, EN+19~, EN+67~, EN+75~, REMOVE+5~, REMOVE+13~, EEOB+33!
DIR("A" EN+3*, EN+69*, EN+76*, REMOVE+7*, REMOVE+14*, EEOB+35*
DIR("B" EN+4*, EN+68*, REMOVE+6*, EEOB+34*
DIR(0 EN+5*, EN+6*, EN+7*, EN+15*, EN+68*, EN+76*, REMOVE+6*, REMOVE+14*, EEOB+34*
DIROUT EN+2~, EN+8, EN+61, EN+67~, EN+72, EN+75~, EN+77, REMOVE+5~, REMOVE+10, REMOVE+13~
, REMOVE+15, EEOB+9~
DR EN+19~
DTOUT EEOB+9~, EEOB+37
DUOUT EN+2~, EN+8, EN+61, EN+72, EN+75~, EN+77, REMOVE+10, REMOVE+13~, REMOVE+15, EEOB+9~
, EEOB+37
DUZ EN+12, UPDATE+14, UPDATE+19, REMOVE+19, AUTOREM+8, AUTOCOPY+9, AUTOMOVE+11, RESTORE+19
EOBIEN LOCK~, LOCK+1, UNLOCK~, UNLOCK+1
FIRST PROMPT+6~, PROMPT+12*, PROMPT+15*, JUST+7~, JUST+16*, JUST+19*, JUST1+6~, JUST1+14*, JUST1+17*
FLAG VALSTAT+6~, VALSTAT+8*, VALSTAT+9, AUTO+8~
FLAG( AUTO+12*
FLAG("N" AUTO+29*, AUTO+32
FLAG("O" AUTO+23*, AUTO+49
FLAG("S" AUTO+21*, AUTO+39, AUTO+49
IEN3444 FINDEOB~, FINDEOB+6
IEN3611 FINDEOB+4~, FINDEOB+5*, FINDEOB+6, FINDEOB+7*, FINDEOB+8
IEN399 EN+33~, EN+34*, EN+35
IFN AUTO+8~, AUTO+17*, AUTO+21, AUTO+25, AUTO+28
J AUTO+8~, AUTO+12*
JCOM EN+75~, EN+78*, EN+81
JUST UPDATE~, UPDATE+12, UPDATE+14, UPDATE+16, UPDATE+19, UPDATE+23, UPDATE+32, REMOVE+13~, REMOVE+16*, REMOVE+19
, REMOVE+21, AUTO+8~, AUTO+50*, AUTO+51, AUTOREM~, AUTOREM+8, AUTOREM+10, AUTOCOPY+4~, AUTOCOPY+6*, AUTOCOPY+12
, AUTOMOVE+4~, AUTOMOVE+6*, AUTOMOVE+9, AUTOMOVE+11, RESTORE+11~, RESTORE+15*, RESTORE+17, RESTORE+19
JUST1 UPDATE+6~, UPDATE+10*, UPDATE+12, UPDATE+16, UPDATE+21*, UPDATE+23, UPDATE+25*, UPDATE+32, AUTO+8~, AUTOCOPY+4~
, AUTOCOPY+7*, AUTOCOPY+9, AUTOCOPY+18, AUTOMOVE+4~, AUTOMOVE+7*, AUTOMOVE+13
LIT EN+45~, EN+46*, EN+51, EN+59*
MODE EN+2~, EN+9*, EN+12, EN+22, EN+42, EN+48, EN+50, EN+51, EN+56, EN+59
, EN+69, EN+81, UPDATE~, UPDATE+8, UPDATE+12, UPDATE+14, UPDATE+16, UPDATE+18, UPDATE+19, UPDATE+23
, UPDATE+32, PROMPT~, PROMPT+9, JUST~, JUST+12, JUST+13, JUST+14, JUST+23, JUST+24, JUST1~
, JUST1+11, JUST1+12, JUST1+21, JUST1+22, REMOVE~, REMOVE+21, AUTOCOPY+4~, AUTOCOPY+5*, AUTOCOPY+12, AUTOCOPY+18
, AUTOMOVE+4~, AUTOMOVE+5*, AUTOMOVE+9, AUTOMOVE+13
MSG EN+12~
MSG(0 EN+12
NBILL AUTO+8~, AUTO+16*, AUTO+23, AUTO+27
NCLAIM EN+19~, EN+45~, EN+69, EN+81, UPDATE~, UPDATE+10, UPDATE+19, UPDATE+21, UPDATE+25, PROMPT~
, JUST~, JUST1~, AUTO+8~, AUTO+41, AUTOMOVE~, AUTOMOVE+6, AUTOMOVE+7, RESTORE+11~, RESTORE+13*, RESTORE+19
NCLAIM( EN+58*, UPDATE+29, UPDATE+31, PROMPT+13, PROMPT+14, JUST+17, JUST+18, JUST1+15, JUST1+16, AUTO+25*
NCLAIM("" EN+64
NCLAIM(1 UPDATE+14, AUTOMOVE+11
NCLAIMX EN+45~
NCLAIMX( EN+57, EN+58*
NEWEOB UPDATE+27~, UPDATE+31*, UPDATE+32, AUTOCOPY+4~, AUTOCOPY+17*, AUTOCOPY+18
OBILL AUTO~, AUTO+23, AUTO+27
ORIG EN+19~, EN+29*, EN+34, EN+39, EN+42, EN+69, EN+81, EXIT, UPDATE~, UPDATE+10
, UPDATE+12, UPDATE+14, UPDATE+16, UPDATE+19, UPDATE+21, UPDATE+23, UPDATE+25, PROMPT~, PROMPT+8, JUST~
, JUST+9, JUST1~, JUST1+8, REMOVE~, REMOVE+19, REMOVE+21, AUTO~, AUTO+10, AUTO+35, AUTO+41
, AUTO+46, AUTO+50, AUTO+51, AUTO+54, AUTOREM~, AUTOREM+6, AUTOREM+8, AUTOREM+10, AUTOREM+12, AUTOCOPY~
, AUTOCOPY+6, AUTOCOPY+7, AUTOCOPY+9, AUTOCOPY+12, AUTOMOVE~, AUTOMOVE+6, AUTOMOVE+7, AUTOMOVE+9, AUTOMOVE+11, AUTOMOVE+13
, RESTORE~, RESTORE+7, RESTORE+17, RESTORE+19, RESTORE+21, RESTORE+23
ORIGNAM EN+19~, EN+29*, EN+56, REMOVE+7
QUIT EN+45~, EN+46*, EN+48, EN+54*
RCBILL EN+45~, EN+55*, EN+57, EN+58
RCBILLNM EN+45~, EN+55*, EN+56
RCEEOB EEOB+9~, EEOB+15*, EEOB+17, EEOB+20, EEOB+27, EEOB+28, EEOB+29, EEOB+30, EEOB+41, SUSP+9~
, SUSP+29*, SUSP+31, SUSP+33, SUSP+35
RCEEOBH EEOB+9~, EEOB+20*, EEOB+22, EEOB+28, EEOB+29, EEOB+30
RCERA AUTO~, EEOB+9~, EEOB+15, EEOB+24, EEOB+25, EEOB+26, SUSP~, SUSP+11*, SUSP+13, SUSP+19
, SUSP+21, SUSP+25, SUSP+29
RCLINE EEOB+9~, EEOB+15, EEOB+25, SUSP~, SUSP+25*, SUSP+27, SUSP+29
RCORIG SUSP+9~, SUSP+19*, SUSP+21*, SUSP+23, SUSP+25
RCPTDA RESTORE~, RESTORE+13
RCRCPT EEOB~, EEOB+11, EEOB+15, SUSP~, SUSP+11, SUSP+15
RCRCZ SUSP+9~, SUSP+15*, SUSP+17, SUSP+19
RCSPLIT AUTO~, SUSP+9~, SUSP+19*
RCSPLIT( AUTO+14, AUTO+16, AUTO+17, AUTO+19
RCTRANDA EEOB~, EEOB+11, EEOB+15, SUSP~, SUSP+15, RESTORE~, RESTORE+13
SRC JUST~, JUST+26, AUTO~, AUTO+41, AUTO+46, AUTO+50, AUTOCOPY~, AUTOCOPY+5, AUTOCOPY+6, AUTOCOPY+7
, AUTOMOVE~, AUTOMOVE+5, AUTOMOVE+6, AUTOMOVE+7, RESTORE~, RESTORE+15
STR PROMPT+6~, PROMPT+9*, PROMPT+10*, PROMPT+18, JUST+7~, JUST+12*, JUST+13*, JUST+14*, JUST+23*, JUST+24*
, JUST+26, JUST1+6~, JUST1+11*, JUST1+12*, JUST1+21*, JUST1+22*, JUST1+24
STR1 PROMPT+6~, PROMPT+12*, PROMPT+15*, PROMPT+16*, PROMPT+18, JUST+7~, JUST+12*, JUST+16*, JUST+19*, JUST+20*
, JUST+23*, JUST+24*, JUST+26, JUST1+6~, JUST1+14*, JUST1+17*, JUST1+18*, JUST1+21*, JUST1+22*, JUST1+24
SUB EN+45~, EN+46*, EN+48, EN+58*, UPDATE+27~, UPDATE+28*, UPDATE+29*, UPDATE+31, PROMPT+6~, PROMPT+12*
, PROMPT+13*, PROMPT+14, JUST+7~, JUST+16*, JUST+17*, JUST+18, JUST1+6~, JUST1+14*, JUST1+15*, JUST1+16
, FINDEOB+4~, FINDEOB+5*, FINDEOB+6*, FINDEOB+7, AUTO+8~, AUTO+11*, AUTO+14*, AUTO+16, AUTO+17, AUTO+19
, AUTOCOPY+4~, AUTOCOPY+14*, AUTOCOPY+15*, AUTOCOPY+17, AUTOMOVE+4~
SUB1 AUTO+8~, AUTO+11*, AUTO+25*, AUTO+39
TEXT PROMPT+6~, PROMPT+8*, PROMPT+9, PROMPT+10, PROMPT+14*, PROMPT+15, PROMPT+16, JUST+7~, JUST+9*, JUST+12
, JUST+13, JUST+14, JUST+18*, JUST+19, JUST+20, JUST+23, JUST+24, JUST1+6~, JUST1+8*, JUST1+11
, JUST1+12, JUST1+16*, JUST1+17, JUST1+18, JUST1+21, JUST1+22
TYPE JUST~, JUST+11, JUST+22, JUST1~, JUST1+10, JUST1+20
U EN+29, EN+34, EN+35, EN+55, PROMPT+8, PROMPT+14, JUST+9, JUST+18, JUST1+8, JUST1+16
, AUTO+16, AUTO+17, AUTO+19
VALID AUTO+8~, AUTO+11*
X EN+2~, EN+19~, EN+67~, EN+75~, REMOVE+5~, REMOVE+13~
Y EN+2~, EN+9, EN+19~, EN+27, EN+29, EN+54, EN+55, EN+67~, EN+72, EN+75~
, EN+78, REMOVE+5~, REMOVE+10, REMOVE+13~, REMOVE+16, EEOB+38
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