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 |  Local Variables  | All
Print Page as PDF
Routine: RCTCS1

Package: Accounts Receivable

Routine: RCTCS1


Information

RCTCS1 ;HAF/ASF-CROSS-SERVICING S/R ;03/17/19 3:34 PM

Source Information

Source file <RCTCS1.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 4 NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  
Accounts Receivable 1 STOP^RCTCSPU  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry
DSEL ;Pick patient only
SHOWB ;
DISPLAY ;Display Info for each BILL
TMP ;
BILLHEAD ;bill header
DEBSTAT(DEBTOR) ;Debtor TSP Status
REUPS ;already set to stop
REUPR ;already re-active
SETS ;set the stop
SETR ;reactivate
SITE(SITE) ;Status from file 342

External References

Name Field # of Occurrence
NOW^%DTC SETS+12, SETR+5
^DIC DSEL+5
$$GET1^DIQ SHOWB+4, DISPLAY+1, DISPLAY+3, DISPLAY+5, DEBSTAT+12, DEBSTAT+13, DEBSTAT+15, DEBSTAT+16
^DIR EN+5, SETS+2, SETS+6, SETS+9, SETR+2
STOP^RCTCSPU EN+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Debtor must be selected",!
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !,DNAME
  • Line Location: DISPLAY+1
Function Call: WRITE
  • Prompt: ?32,SSN
  • Line Location: DISPLAY+2
Function Call: WRITE
  • Prompt: ?43,BILLN
  • Line Location: DISPLAY+3
Function Call: WRITE
  • Prompt: ?58,CSTAT
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: ?74,CBAL
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,"Bill",?13,"Debtor",?40,"Current Bal",!?8,"CURRENT STATUS",?30,"CATEGORY",!,SEPLINE
  • Line Location: TMP+2
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: BILLHEAD+1
Function Call: WRITE
  • Prompt: !,"Debtor Name",?32,"SSN",?43,"Bill #",?58,"AR Status",?74,"Amount"
  • Line Location: BILLHEAD+2
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: BILLHEAD+3
Function Call: WRITE
  • Prompt: !!,"Referral to Cross-Servicing has already been stopped for this debtor"
  • Line Location: REUPS+1
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing referral effective date: "
  • Line Location: REUPS+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: REUPS+2
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing referral reason: "
  • Line Location: REUPS+3
Function Call: WRITE
  • Prompt: $S(X="D":"DMC Eligible",X="H":"High risk veteran",X="B":"Bankruptcy",X="T":"Treasury Error",X="O":"Other",1:1)
  • Line Location: REUPS+4
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing referral reason Other: ",RCDSTAT("COMMENT")
  • Line Location: REUPS+5
Function Call: WRITE
  • Prompt: !,"Cross-Servicing referral stopped by : ",$P(^VA(200,RCDSTAT("USER"),0),U)
  • Line Location: REUPS+6
Function Call: WRITE
  • Prompt: !!,"Referral to Cross-Servicing has already been reactivated for this debtor"
  • Line Location: REUPR+1
Function Call: WRITE
  • Prompt: !,"Reactivated Cross-Servicing referral effective date: "
  • Line Location: REUPR+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: REUPR+2
Function Call: WRITE
  • Prompt: !,"Cross-Servicing referral reactivated by : ",$P(^VA(200,RCDSTAT("USER"),0),U)
  • Line Location: REUPR+3
Function Call: WRITE
  • Prompt: !!,"Are You Sure You Want To Stop Cross-Servicing Referral for this Debtor?"
  • Line Location: SETS+1
Function Call: WRITE
  • Prompt: !!,"Stop Cross-Servicing Referral Complete"
  • Line Location: SETS+16
Function Call: WRITE
  • Prompt: !!,"*** End of Stop Cross-Servicing Referral ***"
  • Line Location: SETS+17
Function Call: WRITE
  • Prompt: !!,"Are You Sure You Want To Reactivate Cross-Servicing Referral for this Debtor?"
  • Line Location: SETR+1
Function Call: WRITE
  • Prompt: !!,"Reactivate Cross-Servicing Referral complete"
  • Line Location: SETR+8
Function Call: WRITE
  • Prompt: !,"All eligible bills for this Debtor are now to be Referred to Cross-Servicing"
  • Line Location: SETR+9
Function Call: WRITE
  • Prompt: !!,"*** End of Reactivate Cross-Servicing Referral ***"
  • Line Location: SETR+10
Routine Call
  • DIC
  • Line Location:
    • DSEL+5
Routine Call
  • DIR
  • Line Location:
    • EN+5
    • SETS+2
    • SETS+6
    • SETS+9
    • SETR+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" REUPS+2, REUPR+2
^DPT - [#2] DSEL+7
^PRCA(430 - [#430] SHOWB+2, SHOWB+3
^RC(342 - [#342] SITE+3, SITE+4
^RCD(340 - [#340] DEBSTAT+2, DEBSTAT+4, DEBSTAT+5, SETS+11, SETS+13*, SETS+14*, SETS+15*, SETR+4, SETR+6*, SETR+7*
^VA(200 - [#200] REUPS+6, REUPR+3

Label References

Name Line Occurrences
BILLHEAD SHOWB+6
DEBSTAT EN+10
DISPLAY SHOWB+7
DSEL EN+7
REUPR EN+13
REUPS EN+12
SETR EN+15
SETS EN+14
SHOWB EN+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+1~, SETS+13, SETS+15, SETR+6, SETR+7
BILLN EN+1~, DISPLAY+3*
CBAL EN+1~, DISPLAY+5*
CNT EN+1~, SETS+11*, SETS+13, SETS+15, SETR+4*, SETR+6, SETR+7
CSTAT EN+1~, SHOWB+4*, SHOWB+5, DISPLAY+4
DA EN+1~
DEBTOR EN+8, EN+10, DSEL+1*, DSEL+6*, SHOWB+2, DEBSTAT~, DEBSTAT+2, DEBSTAT+4, DEBSTAT+5, DEBSTAT+12
, DEBSTAT+13, DEBSTAT+15, DEBSTAT+16, SETS+11, SETS+13, SETS+14, SETS+15, SETR+4, SETR+6, SETR+7
DIC EN+1~, DSEL+2*
DIC("S" DSEL+4*
DIC("V" DSEL+3*
DIC(0 DSEL+2*
DIK EN+1~
DIR EN+3!, SETS+2!, SETS+4!, SETS+8!, SETR+2!
DIR("A" SETS+4*, SETS+9*
DIR("B" EN+5*, SETS+2*, SETR+2*
DIR(0 EN+4*, SETS+2*, SETS+5*, SETS+9*, SETR+2*
>> DIRUT EN+5, SETS+6, SETS+9, SETS+18, SETR+11
DNAME EN+1~, DISPLAY+1*
DTIME SETS+18, SETR+11
DUZ SETS+13, SETR+6
EFFEC SITE+1~, SITE+4*, SITE+5
G SITE+1~, SITE+4*, SITE+5
G1 EN+1~, DEBSTAT+5*, DEBSTAT+6, DEBSTAT+7, DEBSTAT+8, DEBSTAT+9, DEBSTAT+10
GOTBILL EN+1~, SHOWB+3*
HDR1 EN+1~, SHOWB+1*, SHOWB+6*
IOST SETS+18, SETR+11
LASTDT EN+1~, DEBSTAT+2*, DEBSTAT+3, DEBSTAT+4, DEBSTAT+11
LASTIEN EN+1~, DEBSTAT+4*, DEBSTAT+5
LSUB EN+1~, SETS+11*, SETR+4*
N SITE+1~, SITE+3*, SITE+4
N1 SITE+1~, SITE+3*, SITE+4
RCBILLDA EN+1~, SHOWB+3*
RCDSTAT EN+11, DEBSTAT+1!
RCDSTAT("COMMENT" DEBSTAT+10*, DEBSTAT+16*, REUPS+5
RCDSTAT("DATE" DEBSTAT+7*, DEBSTAT+13*, REUPS+2, REUPR+2
RCDSTAT("REASON" DEBSTAT+9*, DEBSTAT+15*, REUPS+4, REUPS+5
RCDSTAT("STOP FLAG" , EN+12, EN+13, EN+14, EN+15, DEBSTAT+6*, DEBSTAT+12*
RCDSTAT("USER" DEBSTAT+8*, REUPS+6, REUPR+3
RCDT SITE+1~, SITE+2*, SITE+3*, SITE+5*
RCG EN+1~
RCSTAT SITE+1~, SITE+2*, SITE+5*, SITE+6
RCTCB EN+1~, SHOWB+2*, SHOWB+3, SHOWB+4, DISPLAY+1, DISPLAY+3, DISPLAY+5
RCTCNO EN+1~, EN+2~, SETS+7*, SETS+10*, SETS+13
RCTCNR EN+2~, SETS+7*, SETS+9, SETS+13
RET EN+2~, SHOWB+1*, SHOWB+2
SEPLINE EN+2~, TMP+1*, TMP+2, BILLHEAD+1*, BILLHEAD+3
SITE SITE~
SSN EN+2~, DSEL+7*, DISPLAY+2
U DSEL+7, SHOWB+3, DEBSTAT+6, DEBSTAT+7, DEBSTAT+8, DEBSTAT+9, DEBSTAT+10, REUPS+6, REUPR+3, SETS+13
SETR+6, SITE+4, SITE+5
X EN+2~, REUPS+4*, SETS+18*, SETR+11*
Y EN+2~, EN+6, DSEL+5, DSEL+6, REUPS+2*, REUPR+2*, SETS+3, SETS+7, SETS+10, SETR+3
Y(0 DSEL+7
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All