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

Package: Accounts Receivable

Routine: RCDPEWL3


Information

RCDPEWL3 ;ALB/TMK/KML - ELECTRONIC EOB WORKLIST ACTIONS ;24-FEB-03

Source Information

Source file <RCDPEWL3.m>

Entry Points

Name Comments DBIA/ICR reference
SPLIT(RCSCR,RCL) ; Perform line splits
SPLITQ
TOT(N,RCSPLIT,RCLINE) ; CALCULATE TOTAL OF PAY (N=2) or ADJ (N=3)
; RCSPLIT = the array (passed by ref) where the amounts are stored
; RCLINE = if editing, this is the line # NOT to add in when
; determining previous amounts entered
UPD(Q,Q1) ;
HDR ;
FNL ;
INIT ; Build screen for display
; RCSCR, RCDIR, RCSPLIT must already exist
SET(X,RCSEQ) ;
EDITCOM(DA) ; Edit the comment for an adjustment entry
EDIT(RCSCR,RCLINE,RCDIR,RCSPLIT,RCDEF,RCDONE) ; Edit a split line
EDCL ;
ABORT ; User aborted split - kill split array

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SPLIT+8
Function Call: WRITE
  • Prompt: !,^TMP("RCDPE-EOB_WL",$J,Z,0)
  • Line Location: SPLIT+9
Function Call: WRITE
  • Prompt: !,"THIS IS AN ERA-LEVEL ADJUSTMENT - ONLY THE ADJUSTMENT COMMENT CAN BE EDITED"
  • Line Location: SPLIT+12
Function Call: WRITE
  • Prompt: !!,"NOTE: THIS LINE HAS AN ADJUSTMENT RECORD ASSOCIATED WITH IT",!
  • Line Location: SPLIT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EDCL+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EDCL+13
Function Call: WRITE
  • Prompt: !," THIS IS NOT A 3RD PARTY CLAIM. CLAIMS NEED TO BE 3RD PARTY."
  • Line Location: EDCL+23
Function Call: WRITE
  • Prompt: !," CLAIM IS IN AN INCOMPLETE STATUS. ENTER ANOTHER CLAIM."
  • Line Location: EDCL+25
Function Call: WRITE
  • Prompt: " >>Current claim balance is: ",$J(+$P($$BILL^RCJIBFN2(+Y),U,3),"",2)
  • Line Location: EDCL+31
Function Call: WRITE
  • Prompt: !!,$J("",5)_"THIS LINE CONTAINS AN ADJUSTMENT AMOUNT OF $"_$J(+$P(RCDIR,U,3),"",2),!,$J("",5)_"THIS AMT IS USUALLY THE AMT THE PAYER PREVIOUSLY PAID",!,$J("",5),"ON A CLAIM WHICH THEY HAVE NOW AMENDED. IF THERE WAS"
  • Line Location: EDCL+50
Function Call: WRITE
  • Prompt: !,$J("",5)_"AN AMT PREVIOUSLY PAID FOR THIS CLAIM, ENTER THAT AMOUNT",!,$J("",5),"AS A NEGATIVE AMOUNT HERE.",!
  • Line Location: EDCL+51
Function Call: WRITE
  • Prompt: " Comment will be deleted"
  • Line Location: EDCL+78

FileMan Files Accessed Via FileMan Db Call

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