Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Accounts Receivable 3 $$COM^RCDPECH  $$VALSTAT^RCDPEM5  $$BILL^RCJIBFN2  
VA FileMan 3 ^DIC  ^DIE  ^DIR  
List Manager 2 EN^VALM  ($$SETFLD,$$SETSTR,CLEAR)^VALM1  
Kernel 1 $$NOW^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Accounts Receivable 4 RCDPEAA3  RCDPEWL0  RCDPEWL2  RCDPEWL8  

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

External References

Name Field # of Occurrence
^DIC EDCL+19
^DIE UPD+3, EDITCOM+4
^DIR SPLIT+13, EDCL+7, EDCL+13, EDCL+28, EDCL+44, EDCL+58, EDCL+73
$$COM^RCDPECH EDCL+75
$$VALSTAT^RCDPEM5 EDCL+25
$$BILL^RCJIBFN2 EDCL+31
EN^VALM SPLIT+32
$$SETFLD^VALM1 INIT+14, INIT+15, INIT+16, INIT+17, INIT+18
$$SETSTR^VALM1 INIT+20
CLEAR^VALM1 SPLIT+3
$$NOW^XLFDT UPD+3

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
Routine Call
  • DIC
  • Line Location:
    • EDCL+19
Routine Call
  • DIE
  • Line Location:
    • UPD+3
    • EDITCOM+4
Routine Call
  • DIR
  • Line Location:
    • SPLIT+13
    • EDCL+7
    • EDCL+13
    • EDCL+28
    • EDCL+44
    • EDCL+58
    • EDCL+73
Routine Call
  • VALM
  • Line Location:
    • SPLIT+32

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EDCL+22
^RCY(344.49 - [#344.49] SPLIT+18, EDITCOM+2, EDITCOM+5, EDCL+48, EDCL+69
^TMP("RCDPE-EOB_WL" SPLIT+9, HDR+4
^TMP("RCDPE-EOB_WLDX" SPLIT+5, SPLIT+7, HDR+3
^TMP("RCDPE_EOB_SPLIT" FNL+1!, INIT+3!, SET+2*, SET+3*
^TMP("RCDPE_EOB_SPLITDX" FNL+1!, SET+4*
^TMP("RCDPE_EOB_SPLIT_OK" FNL+1!, INIT+5*, INIT+9*
^TMP("RCDPE_SPLIT_REBLD" UPD+4*
^TMP($J SPLIT+4*, SPLIT+31*

Label References

Name Line Occurrences
$$TOT INIT+6, EDCL+41, EDCL+43, EDCL+46, EDCL+54, EDCL+57, EDCL+60
ABORT EDCL+8, EDCL+14
EDCL EDCL+9, EDCL+20, EDCL+26, EDCL+45, EDCL+48, EDCL+75, EDCL+80
EDIT SPLIT+25
EDITCOM SPLIT+16
SET INIT+8, INIT+19, INIT+20, INIT+22
SPLITQ SPLIT+11, SPLIT+28
UPD EDITCOM+6

Naked Globals

Name Field # of Occurrence
^(0 EDCL+69

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CT EDIT+2~, EDCL+35*, EDCL+37*, EDCL+38*, EDCL+40*, EDCL+41*, EDCL+42*
DA SPLIT+1~, SPLIT+14*, SPLIT+15, SPLIT+16, UPD+1~, UPD+2*, EDITCOM~, EDITCOM+2, EDITCOM+5
DA(1 SPLIT+14*, UPD+2*, UPD+3, EDITCOM+2, EDITCOM+3, EDITCOM+5, EDITCOM+6
DA(2 SPLIT+14*, EDITCOM+2, EDITCOM+3, EDITCOM+5, EDITCOM+6
DIC SPLIT+1~, EDIT+2~, EDCL+19*!
DIC(0 EDCL+19*
DIE SPLIT+1~, UPD+1~, UPD+3*, EDITCOM+1~, EDITCOM+3*
DIR SPLIT+1~, SPLIT+13!, INIT+2~, EDIT+2~, EDCL+7!, EDCL+13!, EDCL+28!, EDCL+44!, EDCL+58!, EDCL+79!
DIR("?" EDCL+1*, EDCL+2*, EDCL+3*, EDCL+34*, EDCL+37*, EDCL+38*, EDCL+40*, EDCL+41*, EDCL+42*, EDCL+52*
EDCL+53*, EDCL+54*, EDCL+55*, EDCL+56*
DIR("A" EDCL+4*, EDCL+10*, EDCL+11*, EDCL+12*, EDCL+28*, EDCL+44*, EDCL+57*, EDCL+63*
DIR("B" EDCL+5*, EDCL+6*, EDCL+12*, EDCL+28*, EDCL+44*, EDCL+57*, EDCL+66*, EDCL+69*, EDCL+78
DIR(0 SPLIT+13*, EDCL+4*, EDCL+10*, EDCL+28*, EDCL+43*, EDCL+57*, EDCL+72*
DIRUT EDIT+2~
DR SPLIT+1~, UPD+1~, UPD+3*, EDITCOM+1~, EDITCOM+3*
DTOUT EDIT+2~, EDCL+8, EDCL+45, EDCL+59, EDCL+80
DUOUT EDIT+2~, EDCL+8, EDCL+45, EDCL+59, EDCL+80
DUZ UPD+3
N TOT~, TOT+6
Q UPD~, UPD+2, INIT+2~, INIT+21*, INIT+22
Q1 UPD~, UPD+2
RCCT INIT+2~, INIT+11*, INIT+13*, INIT+14, INIT+19, INIT+20, INIT+22
RCDEF EDIT~, EDCL+5, EDCL+39, EDCL+41, EDCL+43, EDCL+44, EDCL+54, EDCL+57
RCDIR SPLIT+1~, SPLIT+19*, SPLIT+22, SPLIT+25, INIT+7, EDIT~, EDCL+11, EDCL+36, EDCL+38, EDCL+41
EDCL+42, EDCL+43, EDCL+46, EDCL+50, EDCL+53, EDCL+54, EDCL+56, EDCL+57, EDCL+60
RCDIR(1 SPLIT+18*, SPLIT+19, EDCL+6, EDCL+33*
RCDIR(2 SPLIT+18*, SPLIT+19, EDCL+11, EDCL+44, EDCL+46*, EDCL+61
RCDIR(3 SPLIT+18*, SPLIT+19, EDCL+11, EDCL+57, EDCL+60*, EDCL+61
RCDIR(6 SPLIT+18*, EDIT+4
RCDONE SPLIT+1~, SPLIT+18*, SPLIT+23, SPLIT+25, EDIT~, EDCL+9, EDCL+61*, ABORT+2*
RCL SPLIT~, SPLIT+5, SPLIT+7, HDR+3, EDIT+2~, EDIT+4*, EDCL+69
RCL1 SPLIT+1~, SPLIT+5*, SPLIT+11, SPLIT+14
RCLINE SPLIT+1~, SPLIT+5*, SPLIT+9, SPLIT+14, SPLIT+18, SPLIT+25, TOT~, TOT+6, HDR+4, EDIT~
EDCL+48
RCNT INIT+2~, INIT+4*
RCOK SPLIT+1~, EDIT+2~, EDCL+20, EDCL+21*, EDCL+24*, EDCL+25*, EDCL+26, EDCL+27*, EDCL+28*, EDCL+48
EDCL+49*, EDCL+59*
RCSCR SPLIT~, SPLIT+14, SPLIT+18, SPLIT+25, EDIT~, EDCL+48, EDCL+69
RCSEQ SET~, SET+3, SET+4
RCSPLIT SPLIT+1~, SPLIT+21*, SPLIT+24*, SPLIT+25, SPLIT+26*, TOT~, INIT+6, EDIT~, EDCL+15, EDCL+20
EDCL+28, EDCL+30, EDCL+41, EDCL+43, EDCL+45, EDCL+46, EDCL+54, EDCL+57, EDCL+59, EDCL+60
EDCL+65, EDCL+66, EDCL+71, EDCL+75, EDCL+80, EDCL+81, ABORT+2!*
RCSPLIT( SPLIT+26, TOT+6, INIT+12, INIT+15, INIT+16, INIT+17, INIT+18, INIT+20, EDCL+15*, EDCL+20!
EDCL+28!, EDCL+30*, EDCL+45!, EDCL+46*, EDCL+59!, EDCL+60*, EDCL+65, EDCL+66, EDCL+71, EDCL+75!
EDCL+80!, EDCL+81*
RCSPLIT(0 SPLIT+28
RCT INIT+2~
RCT(1 INIT+11*, INIT+16*, INIT+22
RCT(2 INIT+11*, INIT+17*, INIT+22
RCT(3 INIT+11*, INIT+18*, INIT+22
RCTOT SPLIT+1~, INIT+2~
RCTOT( INIT+6*
RCTOT(2 INIT+7
RCTOT(3 INIT+7
RCX EDITCOM+1~, EDITCOM+2*, EDITCOM+5
U SPLIT+11, SPLIT+14, SPLIT+18, SPLIT+19, SPLIT+22, TOT+6, INIT+7, INIT+15, INIT+16, INIT+17
INIT+18, INIT+20, EDITCOM+2, EDITCOM+5, EDCL+5, EDCL+11, EDCL+15, EDCL+30, EDCL+31, EDCL+36
EDCL+38, EDCL+41, EDCL+42, EDCL+43, EDCL+44, EDCL+46, EDCL+48, EDCL+50, EDCL+53, EDCL+54
EDCL+56, EDCL+57, EDCL+60, EDCL+65, EDCL+66, EDCL+69, EDCL+71, EDCL+75, EDCL+81
VALMBG SPLIT+29~, SPLIT+30*
VALMCNT SPLIT+29~, SPLIT+30*, INIT+4*, SET+1*, SET+2, SET+3, SET+4
>> VALMHDR( HDR+4*, HDR+5*
X SPLIT+1~, UPD+1~, INIT+2~, INIT+13*, INIT+14*, INIT+15*, INIT+16*, INIT+17*, INIT+18*, INIT+19
INIT+20*, SET~, SET+2, EDITCOM+1~, EDIT+2~
Y SPLIT+1~, UPD+1~, INIT+2~, EDITCOM+1~, EDIT+2~, EDCL+9, EDCL+14, EDCL+15, EDCL+17*, EDCL+18*
EDCL+19, EDCL+20, EDCL+22, EDCL+25, EDCL+26, EDCL+28, EDCL+30, EDCL+31, EDCL+46, EDCL+60
EDCL+75*, EDCL+78, EDCL+81
Z SPLIT+1~, SPLIT+7*, SPLIT+9*, TOT+4~, TOT+5*, TOT+6*, HDR+1~, HDR+3*, HDR+4*, INIT+2~
INIT+6*, INIT+11*, INIT+12*, INIT+15, INIT+16, INIT+17, INIT+18, INIT+20, EDIT+2~, ABORT+1~
ABORT+2*
Z0 SPLIT+1~, SPLIT+7*, SPLIT+9, TOT+4~, TOT+5*, TOT+6*, TOT+7, HDR+1~, HDR+3*, HDR+4
ZCT HDR+1~, HDR+2*, HDR+4*, HDR+5*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All