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
Print Page as PDF
Routine: RCDPRPL4

Package: Accounts Receivable

Routine: RCDPRPL4


Information

RCDPRPL4 ;WISC/RFJ/PJH-receipt profile listmanager options ;1 Apr 01

Source Information

Source file <RCDPRPL4.m>

Entry Points

Name Comments DBIA/ICR reference
ONLINE ; allow the supervisor to mark the CR document as input on line
QUIT ; pause and rebuild the header
ASKSTAT(ACTION) ; ask if its okay to remove or change the entered online status
; 1 is yes, otherwise no
ERAWL(RCSCR) ; Generate automatic dec adj from ERA Worklist in RCSCR
; RCADJ returned = 1 if passed by reference and adjustment successful
; returned = 2 if passed by ref and adjustments aborted
; returned = -1 if error
; returned = 0 if no WL adjustments found
UPD(RCSCR,Z,Z0) ; Mark as complete so it doesn't get done twice

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will allow you to mark a rejected Cash Receipt document as"
  • Line Location: ONLINE+11
Function Call: WRITE
  • Prompt: !,"entered on line. This will prevent the document from being listed on"
  • Line Location: ONLINE+12
Function Call: WRITE
  • Prompt: !,"the nightly mailman message used to help manage the receipts and deposits."
  • Line Location: ONLINE+13
Function Call: WRITE
  • Prompt: !!,"FMS Cash Receipt Document: ",$P(FMSDOC,"^"),?48,"Status: ",$P(FMSDOC,"^",2)
  • Line Location: ONLINE+15
Function Call: WRITE
  • Prompt: !!,"You are not an owner of the supervisor PRCAY PAYMENT SUP security key."
  • Line Location: ONLINE+17
Function Call: WRITE
  • Prompt: !!,"You CANNOT mark the Cash Receipt document as entered on line.",!,"The CR document is ACCEPTED ??"
  • Line Location: ONLINE+20
Function Call: WRITE
  • Prompt: !!,"You CANNOT mark the Cash Receipt document as entered on line.",!,"The CR document has NOT been TRANSMITTED for 2 days ??"
  • Line Location: ONLINE+23
Function Call: WRITE
  • Prompt: !!,"You CANNOT mark the Cash Receipt document as entered on line.",!,"The CR document is waiting to be TRANSMITTED ??"
  • Line Location: ONLINE+26
Function Call: WRITE
  • Prompt: !,"... removing CR status as entered on line ..."
  • Line Location: ONLINE+31
Function Call: WRITE
  • Prompt: !!,"FMS Cash Receipt Document: ",$P(FMSDOC,"^"),?48,"Status: ",$P(FMSDOC,"^",2)
  • Line Location: ONLINE+36
Function Call: WRITE
  • Prompt: !!,"... changing status to entered on line ..."
  • Line Location: ONLINE+43
Function Call: WRITE
  • Prompt: !,"... changing the generic code sheet stack file status to ACCEPTED ..."
  • Line Location: ONLINE+44
Function Call: WRITE
  • Prompt: !!,"FMS Cash Receipt Document: ",$P(FMSDOC,"^"),?48,"Status: ",$P(FMSDOC,"^",2)
  • Line Location: ONLINE+56
Function Call: WRITE
  • Prompt: !!,"press RETURN to continue: "
  • Line Location: QUIT+1
Function Call: WRITE
  • Prompt: !," Automatic decrease adj from ERA Worklist for bill #"_$P($G(^PRCA(430,+$P(V00,U,7),0)),U),!," for amount of "_$J(+$P(Z00,U,3),"",2)_" was previously completed"
  • Line Location: ERAWL+15
Function Call: WRITE
  • Prompt: !," Could not perform automatic decrease adj from ERA Worklist for ",!," bill # "_$P($G(^PRCA(430,+$P(V00,U,7),0)),U)_" for amount of "_$J(+$P(Z00,U,3),"",2)
  • Line Location: ERAWL+19
Function Call: WRITE
  • Prompt: !,"WARNING: Receipt cannot be processed.",!,"Processing this receipt will cause this bill to have a negative balance",!,"which is outside the scope of VA Accounting regulations."
  • Line Location: ERAWL+22
Function Call: WRITE
  • Prompt: !,"Correct the error and reprocess this receipt."
  • Line Location: ERAWL+23
Function Call: WRITE
  • Prompt: !," EDI Lbox Worklist automatic dec adjustment made to "_$P($G(^PRCA(430,+$P(V00,U,7),0)),U)_": "_$J(+$P(Z00,U,3),"",2)
  • Line Location: ERAWL+27
Info |  Source |  Entry Points |  Interaction Calls