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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Accounts Receivable 4 $$INCDEC^RCBEUTR1  ADDCOMM^RCBEUTRA  HDR^RCDPRPLM  ($$FMSSTAT,EDITREC)^RCDPUREC  
Generic Code Sheet 2 DATA^GECSSGET  SETSTAT^GECSSTAA  
VA FileMan 2 ^DIE  ^DIR  
Kernel 1 $$FMDIFF^XLFDT  
List Manager 1 FULL^VALM1  

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

Package Total Caller Graph
Accounts Receivable 2 RCDP RECEIPT PROFILE ONLINE  RCDPRPL3  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^DIE UPD+3
^DIR ASKSTAT+6, ERAWL+12
DATA^GECSSGET ONLINE+51
SETSTAT^GECSSTAA ONLINE+52
$$INCDEC^RCBEUTR1 ERAWL+17
ADDCOMM^RCBEUTRA ERAWL+29
HDR^RCDPRPLM QUIT+3
$$FMSSTAT^RCDPUREC ONLINE+9, ONLINE+35, ONLINE+55
EDITREC^RCDPUREC ONLINE+33, ONLINE+47
FULL^VALM1 ONLINE+4
$$FMDIFF^XLFDT ONLINE+23

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
Routine Call
  • DIE
  • Line Location:
    • UPD+3
Routine Call
  • DIR
  • Line Location:
    • ASKSTAT+6
    • ERAWL+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] ERAWL+15, ERAWL+19, ERAWL+27
^RCY(344 - [#344] ONLINE+23
^RCY(344.49 - [#344.49] ERAWL+7
^XUSEC("PRCAY PAYMENT SUP" ONLINE+17

Label References

Name Line Occurrences
$$ASKSTAT ONLINE+30, ONLINE+40
QUIT ONLINE+17, ONLINE+20, ONLINE+23, ONLINE+26, ONLINE+37, ONLINE+40
UPD ERAWL+25, ERAWL+29

Naked Globals

Name Field # of Occurrence
^( ERAWL+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ONLINE+8~, QUIT+2*
ACTION ASKSTAT~, ASKSTAT+4
DA UPD+1~, UPD+2*
DA(1 UPD+2*, UPD+3
DA(2 UPD+2*, UPD+3
DIE UPD+1~, UPD+3*
DIQ2 ASKSTAT+2~
DIR ASKSTAT+2~, ERAWL+12!
DIR("A" ASKSTAT+4*, ASKSTAT+5*, ERAWL+11*
DIR("B" ASKSTAT+3*, ERAWL+11*
DIR(0 ASKSTAT+3*, ERAWL+11*
DR UPD+1~, UPD+3*
DT ONLINE+23
DTIME QUIT+2
DTOUT ASKSTAT+2~, ASKSTAT+7
DUOUT ASKSTAT+2~, ASKSTAT+7
DUZ ONLINE+17
FMSDOC ONLINE+8~, ONLINE+9*, ONLINE+15, ONLINE+20, ONLINE+23, ONLINE+26, ONLINE+29, ONLINE+35*, ONLINE+36, ONLINE+51
, ONLINE+55*, ONLINE+56
GECSDATA ONLINE+8~, ONLINE+52
RC1 ERAWL+5~, ERAWL+6*, ERAWL+9, ERAWL+10*
RCADJ ERAWL+5~, ERAWL+6*, ERAWL+7, ERAWL+9, ERAWL+13*, ERAWL+15*, ERAWL+19*, ERAWL+21*, ERAWL+26*, ERAWL+31
RCCOM ERAWL+5~, ERAWL+17, ERAWL+29
RCCOM(1 ERAWL+8*
RCOK ERAWL+5~
>> RCRECTDA ONLINE+9, ONLINE+23, ONLINE+33, ONLINE+35, ONLINE+47, ONLINE+55
RCSCR ERAWL~, ERAWL+7, ERAWL+25, ERAWL+29, UPD~, UPD+2
RCZ ERAWL+5~, ERAWL+6*, ERAWL+7*, ERAWL+25, ERAWL+29
RCZ0 ERAWL+5~, ERAWL+7*, ERAWL+25, ERAWL+29
U ERAWL+7, ERAWL+8, ERAWL+9, ERAWL+14, ERAWL+15, ERAWL+16, ERAWL+17, ERAWL+19, ERAWL+20, ERAWL+27
, ERAWL+28, ERAWL+29
V00 ERAWL+5~, ERAWL+7*, ERAWL+15, ERAWL+17, ERAWL+19, ERAWL+27, ERAWL+29
>> VALMBCK ONLINE+5*
WLA ERAWL+5~, ERAWL+17*, ERAWL+20
X ASKSTAT+2~
Y ASKSTAT+2~, ASKSTAT+7*, ASKSTAT+8, ERAWL+13
Z UPD~, UPD+2
Z0 UPD~, UPD+2
Z00 ERAWL+5~, ERAWL+7*, ERAWL+8, ERAWL+9, ERAWL+14, ERAWL+15, ERAWL+16, ERAWL+17, ERAWL+19, ERAWL+27
, ERAWL+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All