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

Package: Accounts Receivable

Routine: RCDPCSA


Information

RCDPCSA ;UNY/RGB-CROSS-SERVICING STATUS FIX ;03/15/14 3:34 PM

Source Information

Source file <RCDPCSA.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 ^DIC  (,FILE)^DIE  ^DIR  
Accounts Receivable 2 $$ADDR^RCTCSP1  ($$NAME,$$TAXID)^RCTCSPD  
Kernel 1 KILL^XUSCLEAN  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
A
B
C ;select bill
; returns -1 for timeout or ^, 0 for no selection, or ien of bill
C1
1 ;option 1
2 ;option 2
3 ;option 3
4 ;option 4
5 ;option 5
SET16 ;SET NODE 16 FOR TCSP BILL ;PRCA*4.5*336
EXIT

External References

Name Field # of Occurrence
^DIC C+7
^DIE 2+5, 3+3, 3+7, 5+9
FILE^DIE 1+7, 4+7, 5+8
^DIR B+3, 1+2, 1+6, 2+3, 3+2, 4+2, 4+6, 5+4, 5+7
$$ADDR^RCTCSP1 SET16+6
$$NAME^RCTCSPD SET16+4
$$TAXID^RCTCSPD SET16+4
$$SITE^VASITE A
KILL^XUSCLEAN EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: C+4
Function Call: WRITE
  • Prompt: !,"*** BILL NOT CROSS SERVICED ***"
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: !,"*** BILL NOT ACTIVE ***"
  • Line Location: C1+1
Function Call: WRITE
  • Prompt: !," < *** debtor not found on bill *** >"
  • Line Location: C1+2
Function Call: WRITE
  • Prompt: !," < *** debtor on bill not found *** >"
  • Line Location: C1+3
Function Call: WRITE
  • Prompt: !," < *** debtor must be a veteran *** >"
  • Line Location: C1+4
Function Call: WRITE
  • Prompt: !," <debtor not flagged as CS *** >"
  • Line Location: C1+5
Function Call: WRITE
  • Prompt: !," < *** debtor info not found *** >"
  • Line Location: C1+6
Function Call: WRITE
  • Prompt: ?60,$E($P(RC0,U,9),6,9)
  • Line Location: C1+7
Function Call: WRITE
  • Prompt: !,"*** BILL ALREADY CROSS-SERVICED ***"
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: " < Bill Not Updated >"
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: " <",$G(PRCAERR("DIERR",1,"TEXT",1)),">"
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: !,"*** BILL NOT CROSS SERVICED ***"
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: " <Bill Not Updated"
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: 2+5
Function Call: WRITE
  • Prompt: " <Bill Not Updated"
  • Line Location: 3+2
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: 3+3
Function Call: WRITE
  • Prompt: !,?4,$P(^PRCA(430,PRCAIEN,0),U)," Cleared"
  • Line Location: 3+9
Function Call: WRITE
  • Prompt: !,"*** DEBTOR ALREADY CROSS-SERVICED ***"
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: " < Debtor Not Updated >"
  • Line Location: 4+6
Function Call: WRITE
  • Prompt: " <",$G(RCDERR("DIERR",1,"TEXT",1)),">"
  • Line Location: 4+7
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: 4+8
Function Call: WRITE
  • Prompt: !,"*** BILL ALREADY CROSS-SERVICED, DEBTOR MUST BE ALSO ***"
  • Line Location: 5+1
Function Call: WRITE
  • Prompt: !,"*** DEBTOR ALREADY CROSS-SERVICED, USE OPTION 1 TO SET BILL ***"
  • Line Location: 5+2
Function Call: WRITE
  • Prompt: !,"*** BILL RETURNED BY RECONCILIATION ***"
  • Line Location: 5+3
Function Call: WRITE
  • Prompt: " < Debtor Not Updated >"
  • Line Location: 5+7
Function Call: WRITE
  • Prompt: " <",$G(RCDERR("DIERR",1,"TEXT",1)),">"
  • Line Location: 5+8
Function Call: WRITE
  • Prompt: " <DONE>",!,">>> Bill Updating for CS info... "
  • Line Location: 5+11
Function Call: WRITE
  • Prompt: "fully re-established as Cross-Serviced >"
  • Line Location: 5+12
Routine Call
  • DIC
  • Line Location:
    • C+7
Routine Call
  • DIE
  • Line Location:
    • 2+5
    • 3+3
    • 3+7
    • 5+9
Routine Call
  • DIE
  • Line Location:
    • 1+7
    • 4+7
    • 5+8
Routine Call
  • DIR
  • Line Location:
    • B+3
    • 1+2
    • 1+6
    • 2+3
    • 3+2
    • 4+2
    • 4+6
    • 5+4
    • 5+7

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] C1+6, SET16+7
^PRCA(430 - [#430] C1C1+1, C1+2, 1+1, 2+1, 2+4!, 3+5, 3+6, 3+8!, 3+9
5+1, 5+3, 5+9*, SET16+3, SET16+7, SET16+14*
^RCD(340 - [#340] C1+3, C1+5, 4+1, 5+2, SET16+2

Label References

Name Line Occurrences
1 1+7
4 4+7
5 5+8
@( C1+8
B C+8, C+9
C C1C1+1, C1+2, C1+3, C1+4, C1+5, C1+6, C1+9
EXIT B+4
SET16 1+8, 5+10

Naked Globals

Name Field # of Occurrence
^(7 SET16+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% C+2!
%Y C+2!
>> ADDRCS SET16+6*, SET16+7, SET16+10
C C+2!
>> DA 2+5*, 3+3*, 3+7*, 5+9*
>> DEBTOR SET16+6*
>> DEBTOR0 SET16+2*
>> DEBTOR1 SET16+2*
DIC C+2!, C+4*
DIC("A" C+4*
DIC(0 C+4*
DIE C+2!, 2+5*, 3+3*, 3+7*, 5+9*
DIR B!, C+2!, C+3!, 1+2!, 1+6!, 2+3!, 4+2!, 4+6!, 5+4!, 5+7!
DIR("?" B+1*, 1+5*, 2+2*, 3+1*, 4+5*, 5+6*
DIR("A" B+2*, 1+2*, 1+5*, 2+2*, 3+1*, 4+2*, 4+5*, 5+4*, 5+6*
DIR("B" 1+5*, 2+2*, 3+1*, 4+5*, 5+6*
DIR(0 B*, 1+2*, 1+5*, 2+2*, 3+1*, 4+2*, 4+5*, 5+4*, 5+6*
DIRUT B+4, C+3!, 1+3, 1+6, 2+3, 3+2, 4+3, 4+6, 5+4, 5+7
>> DR 2+5*, 3+3*, 3+7*, 5+9*
DTOUT C+2!, C+8
DUOUT C+2!, C+8, 1+3, 4+3
>> I SET16+8*, SET16+9*, SET16+12*
PRCAERR 1+7!
PRCAERR("DIERR" 1+7
>> PRCAIEN 3+4*, 3+5*, 3+6, 3+7, 3+9
>> PRCAOPT B+5*, C1C1+5, C1+8
>> PRCAR(430 1+7*
>> RC0 C1+6*, C1+7
>> RCAMTRFD SET16+8*, SET16+9
>> RCB6 SET16+3*
>> RCB7 SET16+3*, SET16+8
>> RCBEFLUP C+6*
>> RCBILLDA C+10*, C1C1+1, C1+2, 1+1, 1+7, 2+1, 2+4, 2+5, 3+8
5+1, 5+3, 5+9, SET16+3, SET16+7, SET16+14
>> RCBILLDT SET16+3*, SET16+5
>> RCDAS 1+7*, 4+7*, 5+8*
>> RCDATE 1+4*, 1+7, 4+4*, 4+7, 5+5*, 5+8
>> RCDEBTOR C1+2*, C1+3, C1+5, 3+3, 3+5, 4+1, 4+7, 5+2, 5+8, SET16+2
SET16+4, SET16+6
>> RCDEBTR0 SET16+2*, SET16+4
>> RCDEBTV C1+3*, C1+4, C1+6
RCDERR 4+7!, 5+8!
RCDERR("DIERR" 4+7, 5+8
>> RCDFN SET16+2*, SET16+6, SET16+7
>> RCDPN16 SET16+3*, SET16+5*, SET16+6*, SET16+7*, SET16+9*, SET16+13*, SET16+14
>> RCDPT C1+6*
>> RCDR(340 4+7*, 5+8*
>> RCNAME SET16+4*, SET16+5
RCXX SET16+1~, SET16+10*, SET16+11, SET16+12
RCY C+3!
RCYY SET16+1~, SET16+10*, SET16+12*, SET16+13
>> SITE A*
>> TAXID SET16+4*, SET16+5
U A*, C1+1, C1+2, C1+3, C1+7, 3+9, SET16+3, SET16+4, SET16+5, SET16+6
SET16+7, SET16+8, SET16+9, SET16+10, SET16+13
X C+2!
Y B+5, C+2!, C+9, C+10, 1+4, 1+6, 2+3, 3+2, 4+4, 4+6
5+5, 5+7
Info |  Source |  Call 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