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

Package: Accounts Receivable

Routine: RCTCSP1


Information

RCTCSP1 ;ALBANY/BDB-CROSS-SERVICING TRANSMISSION ;03/15/14 3:34 PM

Source Information

Source file <RCTCSP1.m>

Entry Points

Name Comments DBIA/ICR reference
BILLREP ;Cross-servicing bill report, prints individual bills that make up a cross-servicing account
BILLREPP ;Call to build array of bills referred
BILLREPQ
BILLREPH ;header for cross-servicing bill report
CSRPRT ;Print Cross-Servicing Report, prints sorted individual bills that make up a cross-servicing account
CSRPRTR ; compile/print job - either foreground or background
REC5B ;Create record 5B for Treasury
DATE8(X) ;changes fileman date into 8 digit date yyyymmdd
AMOUNT(X,TT) ;changes amount to zero filled, right justified
BLANK(X) ;returns 'x' blank spaces
RJZF(X,Y) ;right justify zero fill width Y
LJSF(X,Y) ;left justified space filled
TAXID(DEBTOR) ;computes TAXID to place on documents
ADDR(RCDFN,RCCSW) ; returns patient file address
DEM(RCDFN) ; returns patient file information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"It is recommended that you Queue this report to a device that is 132 characters wide. "
  • Line Location: BILLREP+9
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: BILLREP+15
Function Call: WRITE
  • Prompt: !,$P(^PRCA(430,BILL,0),U)
  • Line Location: BILLREPP+20
Function Call: WRITE
  • Prompt: ?12,$P(^PRCA(430.3,CSTAT,0),U,2)
  • Line Location: BILLREPP+21
Function Call: WRITE
  • Prompt: U_$P(^PRCA(430.3,CSTAT,0),U,2)
  • Line Location: BILLREPP+22
Function Call: WRITE
  • Prompt: ?15
  • Line Location: BILLREPP+23
Function Call: WRITE
  • Prompt: U
  • Line Location: BILLREPP+24
Function Call: WRITE
  • Prompt: ?27
  • Line Location: BILLREPP+26
Function Call: WRITE
  • Prompt: U
  • Line Location: BILLREPP+27
Function Call: WRITE
  • Prompt: ?37
  • Line Location: BILLREPP+30
Function Call: WRITE
  • Prompt: U
  • Line Location: BILLREPP+31
Function Call: WRITE
  • Prompt: ?47,$J($P(B7,U,1),9,2),?57,$J($P(B7,U,2),9,2),?67,$J($P(B7,U,3),9,2),?77,$J($P(B7,U,4),9,2)
  • Line Location: BILLREPP+33
Function Call: WRITE
  • Prompt: U,$J($P(B7,U,1),8,2)_U_$J($P(B7,U,2),7,2)_U_$J($P(B7,U,3),7,2)_U_$J($P(B7,U,4),8,2)
  • Line Location: BILLREPP+34
Function Call: WRITE
  • Prompt: ?87,TMP
  • Line Location: BILLREPP+36
Function Call: WRITE
  • Prompt: U_TMP
  • Line Location: BILLREPP+37
Function Call: READ
  • Formatting: !!
  • Prompt: "END OF REPORT...PRESS RETURN TO CONTINUE"
  • Variable: X
  • Timeout: DTIME
  • Line Location: BILLREPP+42
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BILLREPP+42
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BILLREPH+1
Function Call: WRITE
  • Prompt: "PAGE "_PAGE,?24,"CROSS-SERVICING BILL REPORT",?60,$$FMTE^XLFDT(DT,"2Z"),!,DASH
  • Line Location: BILLREPH+3
Function Call: WRITE
  • Prompt: "PAGE "_PAGE_U_"CROSS-SERVICING BILL REPORT"_U_U_$$FMTE^XLFDT(DT,"2Z")
  • Line Location: BILLREPH+4
Function Call: WRITE
  • Prompt: !!,"DEBTOR: ",$E($P(RCHDR,U,1),1,18),?26,"SSN: ",RCSSN,?45,"CURRENT CS DEBT: ",$J(TAMT,8,2),!,DASH
  • Line Location: BILLREPH+8
Function Call: WRITE
  • Prompt: !,"BILL NO.",?12,"ST",?15,"AR CAT",?27,"ORIG AMT",?37,"CURR AMT",?47,"PRIN",?57,"INT",?67,"ADMIN",?77,"COURT",?87,"CS REF DT"
  • Line Location: BILLREPH+9
Function Call: WRITE
  • Prompt: !,"-----------",?12,"--",?15,"----------",?27,"--------",?37,"--------",?47,"---------",?57,"---------",?67,"---------",?77,"---------",?87,"---------"
  • Line Location: BILLREPH+10
Function Call: WRITE
  • Prompt: !,"DEBTOR: "_$E($P(RCHDR,U,1),1,18)_U_U_"SSN: "_RCSSN_U_U_U_"CURRENT CS DEBT: "_$J(TAMT,8,2)
  • Line Location: BILLREPH+11
Function Call: WRITE
  • Prompt: !,"BILL NO."_U_"ST"_U_"AR CAT"_U_"ORIG AMT"_U_"CURR AMT"_U_"PRIN"_U_"INT"_U_"ADMIN"_U_"COURT"_U_"CS REF DATE"
  • Line Location: BILLREPH+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CSRPRT+5
Function Call: WRITE
  • Prompt: !,"It is recommended that you Queue this report to a device that is 132 characters wide. "
  • Line Location: CSRPRT+14
Function Call: WRITE
  • Prompt: !!,"Report compilation has started with task# ",ZTSK,".",!
  • Line Location: CSRPRT+20
Function Call: WRITE
  • Prompt: !,$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U)_U_$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U,2)_U_$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U,3)
  • Line Location: CSRPRTR+25
Function Call: WRITE
  • Prompt: U_$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U,4)_U_$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U,5)_U_$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U,6)_U_$P(^TMP("RCTCSP1",$J,NCIEN,ITEM),U,7)
  • Line Location: CSRPRTR+26
Function Call: WRITE
  • Prompt: !,$P(^TMP("RCTCSP1",$J,DBTR,NCIEN),U,1,4)_U_$P(^TMP("RCTCSP1",$J,DBTR,NCIEN),U,5)_U_$P(^TMP("RCTCSP1",$J,DBTR,NCIEN),U,6)_U_$P(^TMP("RCTCSP1",$J,DBTR,NCIEN),U,7)
  • Line Location: CSRPRTR+57
Function Call: WRITE
  • Prompt: !,$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U)_U_$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U,2)_U_$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U,3)_U_$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U,4)
  • Line Location: CSRPRTR+89
Function Call: WRITE
  • Prompt: U_$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U,5)_U_$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U,6)_U_$P(^TMP("RCTCSP1",$J,SDT,NCIEN),U,7)
  • Line Location: CSRPRTR+90
Function Call: READ
  • Formatting: !!
  • Prompt: "END OF REPORT...PRESS RETURN TO CONTINUE"
  • Variable: X
  • Timeout: DTIME
  • Line Location: CSRPRTR+104
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CSRPRTR+104

FileMan Files Accessed Via FileMan Db Call

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