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

Package: Accounts Receivable

Routine: RCTCSPU


Information

RCTCSPU ;ALBANY/BDB - CROSS-SERVICING UTILITIES ;03/15/14 3:34 PM

Source Information

Source file <RCTCSPU.m>

Entry Points

Name Comments DBIA/ICR reference
TOTALB(DEBTOR) ;
STOP ;stop Cross-Servicing referral
REASON ;ask referral reason
STOPFILE ;set stop referral data in file 430
DELSTOP ;Allows Cross-Servicing Referral to be re-instituted for bill
EDSTOP
STOPQ
RCLLSETB ;Set Cross-Servicing recall
RCRSB ;ask recall reason
RRSET ; Set rerefer for bills PRCA*4.5*350
RRSETB ;
RR(BILL) ; PRCA*4.5*350
; Return: Null = no RR, 0 = RR Requested, 1 = RR Performed
RRD(DEBTOR) ; PRCA*4.5*350
; Return: 0 = Debtor has no RR bills, 1 = Debtor has RR bills
DELSETB ;Allows Cross-Servicing Recall to be deleted for bill
EDSETB
SETBQ
RCLLSETD ;Set Cross-Servicing debtor recall
RCRSD ;ask debtor recall reason
DELSETD ;Allows Cross-Servicing Recall to be deleted for debtor
EDSETD
SETDQ
DECADJ(RCBILLDA,RCTRANDA) ;decrease adjustment transaction history for 5b cross-servicing record
INCADJ(RCBILLDA,RCTRANDA) ;increase adjustment transaction history for 5b cross-servicing record 315/DRF
RCLLSETC ;Set Cross-Servicing recall for a case
RCRSC ;set case recall reason
DELSETC ;Allows Cross-Servicing Recall to be deleted for case
SETCQ
SSN(DEBT) ;Get SSN for debtor
Q1
RECALL(BILL) ; recall bill from cross-servicing due to HRFS flag being set PRCA*4.5*400

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Stop flag for Cross-Servicing Referral set? : NO"
  • Line Location: STOP+6
Function Call: WRITE
  • Prompt: !,*7,"No action taken"
  • Line Location: STOP+9
Function Call: WRITE
  • Prompt: !,"A Reason of Other requires a comment to be entered"
  • Line Location: REASON+5
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing Referral complete"
  • Line Location: STOPFILE+3
Function Call: WRITE
  • Prompt: !!,*7,"Referral to Cross-Servicing has already been stopped for this bill."
  • Line Location: DELSTOP+2
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing referral effective date: ",$$GET1^DIQ(430,BILL,158,"E")
  • Line Location: DELSTOP+3
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing referral reason : ",$$GET1^DIQ(430,BILL,159,"E")
  • Line Location: DELSTOP+4
Function Call: WRITE
  • Prompt: !,"Stop Cross-Servicing referral comment : ",$$GET1^DIQ(430,BILL,159.1,"E")
  • Line Location: DELSTOP+5
Function Call: WRITE
  • Prompt: !!,"Bill is now eligible to be Referred to Cross-Servicing"
  • Line Location: DELSTOP+13
Function Call: WRITE
  • Prompt: !,*7,"No action taken"
  • Line Location: RCLLSETB+8
Function Call: WRITE
  • Prompt: !,*7,"No action taken. Bill has not been referred to Cross-Servicing."
  • Line Location: RCLLSETB+9
Function Call: WRITE
  • Prompt: !,"Setting this bill for Recall from Cross-Servicing is complete"
  • Line Location: RCRSB+7
Function Call: WRITE
  • Prompt: !!,"Re-Referral has already been requested",!
  • Line Location: RRSETB+14
Function Call: WRITE
  • Prompt: !,"By ",$P(^VA(200,$P(NZ,U,3),0),U)," on ",$$FMTE^XLFDT($P(NZ,U,2),"5Z")," Reason: "
  • Line Location: RRSETB+17
Function Call: WRITE
  • Prompt: $S(REASON="R":"Recall in error",REASON="T":"Treasury reversal",REASON="D":"Defaulted RPP",REASON="O":"Other: "_COMMENT,1:""),!
  • Line Location: RRSETB+18
Function Call: WRITE
  • Prompt: !!,"*** Re-Referral has been cancelled for this bill ***"
  • Line Location: RRSETB+31
Function Call: WRITE
  • Prompt: !!,"*** No changes applied to this re-referral ***",!
  • Line Location: RRSETB+38
Function Call: WRITE
  • Prompt: !!,"Unable to complete the re-referral process",!,$P(CHECK,U,3)
  • Line Location: RRSETB+47
Function Call: WRITE
  • Prompt: !!,"This bill has issues and will not make it through re-referral process because:",!,$P(CHECK,U,3)
  • Line Location: RRSETB+48
Function Call: WRITE
  • Prompt: !!,"PLEASE CORRECT THIS ISSUE AND THEN RE-REFER THE BILL AGAIN",!
  • Line Location: RRSETB+49
Function Call: WRITE
  • Prompt: !
  • Line Location: RRSETB+57
Function Call: WRITE
  • Prompt: !!,"*** No updates applied ***"
  • Line Location: RRSETB+64
Function Call: WRITE
  • Prompt: !!,"Bill is set to be re-referred to Cross-Servicing in the next weekly transmission"
  • Line Location: RRSETB+76
Function Call: WRITE
  • Prompt: !
  • Line Location: RRSETB+77
Function Call: WRITE
  • Prompt: !
  • Line Location: RRSETB+81
Function Call: WRITE
  • Prompt: !!,*7,"This bill has already been set for recall from Cross-Servicing."
  • Line Location: DELSETB+1
Function Call: WRITE
  • Prompt: !!,"Not available for reactivation. The Recall request has already been processed."
  • Line Location: DELSETB+2
Function Call: WRITE
  • Prompt: !!,"Recall from Cross-Servicing has been deleted for this bill."
  • Line Location: DELSETB+11
Function Call: WRITE
  • Prompt: !,*7,"No action taken"
  • Line Location: RCLLSETD+8
Function Call: WRITE
  • Prompt: !,*7,"No action taken. Debtor has not been referred to Cross-Servicing."
  • Line Location: RCLLSETD+9
Function Call: WRITE
  • Prompt: !,"Setting this debtor for Recall from Cross-Servicing is complete"
  • Line Location: RCRSD+12
Function Call: WRITE
  • Prompt: !!,*7,"This debtor has already been set for recall from Cross-Servicing."
  • Line Location: DELSETD+1
Function Call: WRITE
  • Prompt: !!,"Recall from Cross-Servicing has been deleted for this debtor."
  • Line Location: DELSETD+14
Function Call: WRITE
  • Prompt: !,*7,"No action taken"
  • Line Location: RCLLSETC+6
Function Call: WRITE
  • Prompt: !,*7,"No action taken. Case has not been referred to Cross-Servicing."
  • Line Location: RCLLSETC+7
Function Call: WRITE
  • Prompt: !,"Setting this case for Recall from Cross-Servicing is complete"
  • Line Location: RCRSC+7
Function Call: WRITE
  • Prompt: !!,*7,"This case has already been set for recall from Cross-Servicing."
  • Line Location: DELSETC+1
Function Call: WRITE
  • Prompt: !!,"Recall from Cross-Servicing has been deleted for this case."
  • Line Location: DELSETC+8

FileMan Files Accessed Via FileMan Db Call

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