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

Package: Accounts Receivable

Routine: RCDPEWL6


Information

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

Source Information

Source file <RCDPEWL6.m>

Entry Points

Name Comments DBIA/ICR reference
DISTADJ ;EP - Protocol action - RCDPE EOB WORKLIST DIST ADJ
; Distribute an adjustment that retracts a payment to other bill(s)
DISTQ
REFRESH ;EP - Protocol action - RCDPE EOB WORKLIST REFRESH
; Refresh the entry in file 344.49 to remove all user adjustments
REFQ
WHAT(RCSCR) ; Text for what to do if not enough funds found for dist adj
ADJUST ; Allow entry into increase/decrease adjustment functions
ADJUSTQ
RESTMP ;
UPDBAL(RCY) ; Updates the claim balance if bill exists in list
; RCY = ien of bill in file 430

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+24
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+27
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+36
Function Call: WRITE
  • Prompt: !,"THIS LINE DOES NOT EXIST FOR THIS ERA"
  • Line Location: DISTADJ+38
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+38
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+41
Function Call: WRITE
  • Prompt: !," LINE #: "_+Y_" AMOUNT NEEDED TO DISTRIBUTE: "_$J(+RCZ(Y),"",2),!
  • Line Location: DISTADJ+43
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+56
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+62
Function Call: WRITE
  • Prompt: !,"THIS LINE DOES NOT EXIST FOR THIS ERA"
  • Line Location: DISTADJ+64
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+64
Function Call: WRITE
  • Prompt: !,$S(Y[".":"THIS LINE CANNOT BE USED FOR AN ADJUSTMENT DISTRIBUTION",1:"PLEASE ENTER THE ENTIRE LINE # (Such as: 1.001)")
  • Line Location: DISTADJ+68
Function Call: WRITE
  • Prompt: !
  • Line Location: DISTADJ+68
Function Call: WRITE
  • Prompt: !,"THIS IS NOT AN ACTIVE BILL !",!,"CANNOT PERFORM DISTRIBUTION TO THIS CLAIM",!
  • Line Location: DISTADJ+78
Function Call: WRITE
  • Prompt: !,"Warning - on-hold exists for this claim",!
  • Line Location: DISTADJ+80
Function Call: WRITE
  • Prompt: !," LINE #: "_+Y_" LINE BALANCE: "_$J(+$P(RCZ2(Y),U,2),"",2),!
  • Line Location: DISTADJ+81
Function Call: WRITE
  • Prompt: !,"THE LINE SELECTED IS AN ADDITIONAL PAYMENT LINE, NOT SPECIFIC TO A CLAIM",!,"THE AMT WILL BE DISTRIBUTED, BUT A DECREASE ADJUSTMENT WILL NOT BE PERFORMED",!
  • Line Location: DISTADJ+87
Function Call: WRITE
  • Prompt: !
  • Line Location: REFRESH+14
Function Call: WRITE
  • Prompt: !
  • Line Location: REFRESH+19
Function Call: WRITE
  • Prompt: !
  • Line Location: ADJUST+9
Function Call: WRITE
  • Prompt: !
  • Line Location: ADJUST+13
Function Call: WRITE
  • Prompt: !,"Claim balance is now: ",$J(+$P($$BILL^RCJIBFN2(RCY),U,3),"",2)
  • Line Location: ADJUST+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call