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

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

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

FileMan Files Accessed Via FileMan Db Call

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