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

Package: Accounts Receivable

Routine: RCDPEWL


Information

RCDPEWL ;ALB/TMK/KML - ELECTRONIC EOB MESSAGE WORKLIST ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEWL.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
DISP(RCERA,RCNOED) ; Entry to worklist from receipt processing
; RCERA = ien of entry in file 344.49
; RCNOED = 1 if receipt exists/no editing allowed
; = 2 if no edit and called from receipt processing
; ; prca*4.5*298 - added AUTOPOST input argument
; AUTOPOST = "" if ERA is non-autopost
; = 0 if auto-posted ERA is in UNPOSTED status
; = 1 if auto-posted ERA is in PARTIAL posted status
; = 2 if auto-posted ERA is in COMPLETE status
DISPQ
INIT ; -- set up initial variables
CV ; Change View Action for EEOB Worklist
ADDREC(RCERA,RCDAT) ; Add a record to file 344.49
; RCERA = ien of file 344.4
; RCDAT = array containing additional data to add to new entry
HDR ; Creates header lines for the selected ERA display
; PRCA*4.5*349 - Reorganized NEW list & added XX temp. variable
FNL ; -- Clean up list
SEL(RCDA) ; Select entry from worklist scratch pad screen
; RCDA = array returned if selections made
; RCDA(n)=ien of entry(s) in file 344.41
; where n = the line # selected
NOEDIT ; Display no edit allowed if receipt exists
NOBATCH ; Display action not allowed if working at batch level not the ERA level
RECEIPTS(RCSCR) ; get list of receipts for the ERA
; Input: RCSCR: ERA File (#344.4) IEN
; Output: "" - No Receipt / REC# - One Receipt / REC#A-REC#Z - Range of Receipts

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+20
Function Call: WRITE
  • Prompt: !!,"PAYMENT METHOD CODE REPORTED: "_$P(RC0,U,15),!
  • Line Location: DISP+25
Function Call: WRITE
  • Prompt: !!,"NO PAYMENT METHOD CODE REPORTED",!
  • Line Location: DISP+26
Function Call: WRITE
  • Prompt: !!,"This ERA does NOT have a matching EFT"
  • Line Location: DISP+40
Function Call: WRITE
  • Prompt: !,"ERA #",RCERA," (TRACE #"_RCTRACE_") matched to TDA ",RCTRACE
  • Line Location: DISP+41
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+54
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISP+56
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+59
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+63
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+66
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+76
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+82
Function Call: WRITE
  • Prompt: !!,"Another user is currently editing this entry",!
  • Line Location: DISP+94
Function Call: WRITE
  • Prompt: !!,"Another user is currently editing this entry",!
  • Line Location: DISP+95
Function Call: WRITE
  • Prompt: !
  • Line Location: NOEDIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOEDIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOBATCH+4
Function Call: WRITE
  • Prompt: !
  • Line Location: NOBATCH+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.31 - [#344.31] GET1^DIQ
^RCY(344.4 - [#344.4] Classic Fileman Calls,  GET1^DIQ
^RCY(344.49 - [#344.49] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call