Routine: RCTCSP1A

Information

RCTCSP1A ;ALBANY/PAW-CROSS-SERVICING REPORT ;03/15/14 3:34 PM

Name	Comments	DBIA/ICR reference
CSRPRTH1	;header for cross-servicing print report 1
CSRPRTH2	;header for cross-servicing print report 2
CSRPRTH3	;header for cross-servicing print report 3
COUNTRY(Z)	;
COUNTRYQ	;
HEADER	;
TRAILER	;
JD()	; returns today's Julian date YDOY
REC5B	;Create record 5B for Treasury ;PRCA4.5433 Tag REC5B Moved from routine RCTCSP1 for SACC size compliance ; trnnum transaction number file #433 pass in ; trntyp transaction type pointer to 430.3 ; trntypa aia transaction type (aio: dmc agency internal offset, abal: decrease adjustment)

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: CSRPRTH1+1
Function Call: WRITE	Prompt: !,"PAGE "_PAGE_U_U_"BILLS AT CROSS-SERVICING (SORTED BY BILL NO.)"_U_U_$$FMTE^XLFDT(DT,"2Z") Line Location: CSRPRTH1+10
Function Call: WRITE	Prompt: !,"BILL NO."_U_"AR CAT"_U_"DEBTOR"_U_"Pt ID"_U_"ORIG AMT"_U_"CS REF DATE"_U_" CURR AMT" Line Location: CSRPRTH1+11
Function Call: WRITE	Prompt: @IOF Line Location: CSRPRTH2+1
Function Call: WRITE	Prompt: !,"PAGE "_PAGE_U_U_"BILLS AT CROSS-SERVICING (SORTED BY DEBTOR)"_U_U_$$FMTE^XLFDT(DT,"2Z") Line Location: CSRPRTH2+9
Function Call: WRITE	Prompt: !,"DEBTOR"_U_"AR CAT"_U_"BILL NO."_U_"Pt ID"_U_"ORIG AMT"_U_"CS REF DATE"_U_" CURR AMT" Line Location: CSRPRTH2+10
Function Call: WRITE	Prompt: @IOF Line Location: CSRPRTH3+1
Function Call: WRITE	Prompt: !,"PAGE "_PAGE_U_U_"BILLS AT CROSS-SERVICING (SORTED BY CS REFERRED DATE)"_U_U_$$FMTE^XLFDT(DT,"2Z") Line Location: CSRPRTH3+9
Function Call: WRITE	Prompt: !,"CS REF DATE"_U_"AR CAT"_U_"DEBTOR"_U_"BILL NO."_U_"Pt ID"_U_"ORIG AMT"_U_" CURR AMT" Line Location: CSRPRTH3+10