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

Package: Accounts Receivable

Routine: RCDPEWL4


Information

RCDPEWL4 ;ALB/TMK/PJH - ELECTRONIC EOB WORKLIST ACTIONS ;Jun 06, 2014@19:11:19

Source Information

Source file <RCDPEWL4.m>

Entry Points

Name Comments DBIA/ICR reference
DISTADJ(RCFR,RCTO,RCAMT,RCCOM) ; Action that distributes an adjustment amount
; against another line item's payment
; Assumes RCSCR = ien of the entry in file 344.49
; RCFR = ien of entry in 344.491 that has a negative net
; RCTO = ien of entry in 344.491 that will be decremented
; RCAMT = the amount being adjusted (positive #)
; RCCOM = the comment to place on the decrease adjustment
NEWREC ; Create a new receipt from scratch pad entry
NEWRECQ
VRECPT ;EP - Protocol action - RCDPE EOB WL RECEIPT VIEW
; Preview receipt lines
; Assume RCSCR = ien from file 344.49 (and 344.4)
VRECPTQ ;
RECPROC ;EP - Protocol action - RCDPE EON WORKLIST RECEIPT PROCESSING
; Receipt Processing
; Called by RCDPE EOB WORKLIST RECEIPT PROCESSING protocol
; Assume RCSCR is the IEN from file 344.49 (and 344.4)
; Variable RCRECTDA is needed by RECEIPT PROFILE so is not newed
; Variable RCDPFXIT is used by RCDPLPLM for immediate exit so newed it here so that does not happen
RECPROC1 ;
RECPROCQ ;
; Display the message in DIR("A",1) and then press enter

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+9
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+12
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+13
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+16
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+30
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+30
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+52
Function Call: WRITE
  • Prompt: !
  • Line Location: NEWREC+54
Function Call: WRITE
  • Prompt: !
  • Line Location: VRECPT+15
Function Call: WRITE
  • Prompt: !,"THE FOLLOWING LINES HAVE A NET PAYMENT LESS THAN 0. THESE LINES MUST HAVE",!,"THIS NEGATIVE AMOUNT DISTRIBUTED TO OTHER LINE(S) IN THE ERA BEFORE A",!,"RECEIPT CAN BE CREATED."
  • Line Location: VRECPT+19
Function Call: WRITE
  • Prompt: !,$J("",5)_$J(Z,10)_" "_$E($P(RCZ(Z),U)_$J("",15),1,15)_" "_$J(+$P(RCZ(Z),U,2),"",2)
  • Line Location: VRECPT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: VRECPT+21
Function Call: WRITE
  • Prompt: !!,"This action can only be taken by users that have the RCDPEPP security key.",!
  • Line Location: RECPROC+11
Function Call: WRITE
  • Prompt: !
  • Line Location: RECPROC+30
Function Call: WRITE
  • Prompt: !
  • Line Location: RECPROCQ+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344 - [#344] Classic Fileman Calls
^RCY(344.1 - [#344.1] Classic Fileman Calls
^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