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

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
TAXID(DEBTOR) ;computes TAXID to place on documents ;PRCA*4.5*343
NAME(DFN) ;returns name for document and name in file ;PRCA*4.5*343
LJSF(X,Y) ;left justified space filled
BLANK(X) ;returns 'x' blank spaces
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

FileMan Files Accessed Via FileMan Db Call

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