Routine: RCTCSP4E

Package	Total	Call Graph
Accounts Receivable	3	$$SSN^RCFN01 (DATES,DEBTORS,FORMAT)^RCTCSP4 HDR^RCTCSP4E
Kernel	3	$$S^%ZTLOAD ($$FMTE,$$NOW)^XLFDT EN^XUTMDEVQ
VA FileMan	2	$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Accounts Receivable	2	RCTCSP4 RCTCSP4E

Name	Comments	DBIA/ICR reference
HDR	; report header
HDRX	;
EXCELHD	; print an Excel header record (only 1 Excel header should print for the whole report)
EXCELN	; write a line of Excel data
CSV(STRING,DATA)	; build the Excel data string format
DIVHDR	;
DLEVEL	; stop/reactivate report at 340 debtor level
QENT	;queue ENTRY
DSR
PRINT	;print for debtor level
DLHDR	;Debtor Level Header
DEVICE()	; Device Selection
DLXHD	; print an Excel header record DEBTOR level
DEXLN	; write a line of Excel data for debtor

Name	Field # of Occurrence
$$S^%ZTLOAD	HDR+46
$$GET1^DIQ	DSR+1, PRINT+6, PRINT+10
^DIR	HDR+6, DEVICE+29
$$SSN^RCFN01	PRINT+4
DATES^RCTCSP4	DLEVEL+4
DEBTORS^RCTCSP4	DLEVEL+2
FORMAT^RCTCSP4	DLEVEL+6
HDR^RCTCSP4E	PRINT+20
$$FMTE^XLFDT	HDR+27, HDR+28, HDR+34, EXCELN+11, EXCELN+12, DIVHDR+4, DIVHDR+9, DLHDR+4, DLHDR+9
$$NOW^XLFDT	HDR+34, DIVHDR+9, DLHDR+9
EN^XUTMDEVQ	DEVICE+27

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: HDR+9
Function Call: WRITE	Prompt: $C(13) Line Location: HDR+12
Function Call: WRITE	Prompt: ?47,"Cross-Servicing Stop Reactivate Report by ",$S(RCTCDIV="D":"Division",1:"Debtor"),?122,"Page: ",PAGE Line Location: HDR+22
Function Call: WRITE	Prompt: !,"Date Range: " Line Location: HDR+24
Function Call: WRITE	Prompt: "ALL" Line Location: HDR+25
Function Call: WRITE	Prompt: $$FMTE^XLFDT($G(RCTCDATE("BEGIN")),"2Z")," - " Line Location: HDR+27
Function Call: WRITE	Prompt: $$FMTE^XLFDT($G(RCTCDATE("END")),"2Z") Line Location: HDR+28
Function Call: WRITE	Prompt: " Currently Flagged, Reactivated, or Both: " Line Location: HDR+30
Function Call: WRITE	Prompt: $S(RCTCFLG="C":"Currently Flagged",RCTCFLG="R":"Reactivated",1:"Both") Line Location: HDR+31
Function Call: WRITE	Prompt: " "_DIV1 Line Location: HDR+32
Function Call: WRITE	Prompt: " Division: All" Line Location: HDR+33
Function Call: WRITE	Prompt: ?111,$$FMTE^XLFDT($$NOW^XLFDT) Line Location: HDR+34
Function Call: WRITE	Prompt: !,"Debtors: " Line Location: HDR+35
Function Call: WRITE	Prompt: "ALL" Line Location: HDR+36
Function Call: WRITE	Prompt: RTCN_" " Line Location: HDR+38
Function Call: WRITE	Prompt: !,SEPLINE Line Location: HDR+41
Function Call: WRITE	Prompt: !,SEPLINE Line Location: HDR+43
Function Call: WRITE	Prompt: !!!?5,"* Report Halted by TaskManager Request *" Line Location: HDR+48
Function Call: WRITE	Prompt: RCH Line Location: EXCELHD+25
Function Call: WRITE	Prompt: !,RCZ Line Location: EXCELN+19
Function Call: WRITE	Prompt: !,"Date Range: " Line Location: DIVHDR+2
Function Call: WRITE	Prompt: "All" Line Location: DIVHDR+3
Function Call: WRITE	Prompt: $$FMTE^XLFDT($G(RCTCDATE("BEGIN")),"2Z")," - ",$$FMTE^XLFDT($G(RCTCDATE("END")),"2Z") Line Location: DIVHDR+4
Function Call: WRITE	Prompt: ?47,"Cross-Servicing Stop Reactivate Report by Bill",?122,"Page: ",PAGE Line Location: DIVHDR+5
Function Call: WRITE	Prompt: ! Line Location: DIVHDR+6
Function Call: WRITE	Prompt: "Division(s): All" Line Location: DIVHDR+6
Function Call: WRITE	Prompt: ?45," Currently Flagged, Reactivated, or Both: " Line Location: DIVHDR+7
Function Call: WRITE	Prompt: $S(RCTCFLG="C":"Currently Flagged",RCTCFLG="R":"Reactivated",1:"Both") Line Location: DIVHDR+8
Function Call: WRITE	Prompt: ?111,$P($$FMTE^XLFDT($$NOW^XLFDT),":",1,2) Line Location: DIVHDR+9
Function Call: WRITE	Prompt: !,"Division(s): " Line Location: DIVHDR+11
Function Call: WRITE	Prompt: $E(DV1,1,$L(DV1)-2) Line Location: DIVHDR+12
Function Call: WRITE	Prompt: !,"Debtor Range: " Line Location: DIVHDR+13
Function Call: WRITE	Prompt: "ALL" Line Location: DIVHDR+14
Function Call: WRITE	Prompt: RCTCDEBT1,":",RCTCDEBT2 Line Location: DIVHDR+15
Function Call: WRITE	Prompt: !,SEPLINE Line Location: DIVHDR+16
Function Call: WRITE	Prompt: !,"Debtor Name",?24,"Division",?34,"Pt ID",?44,"Bill#",?55,"Status",?67,"Letter1",?77,"StopDate",?89,"Reason",?99,"CS STOP",?109,"User" Line Location: DIVHDR+17
Function Call: WRITE	Prompt: !,SEPLINE Line Location: DIVHDR+18
Function Call: WRITE	Prompt: !,NN Line Location: PRINT+12
Function Call: WRITE	Prompt: ?35,PTID Line Location: PRINT+13
Function Call: WRITE	Prompt: ?42,SSN Line Location: PRINT+14
Function Call: WRITE	Prompt: ?54,SR Line Location: PRINT+15
Function Call: WRITE	Prompt: ?57,XDATE Line Location: PRINT+16
Function Call: WRITE	Prompt: ?75,REASON Line Location: PRINT+17
Function Call: WRITE	Prompt: ?107,USER Line Location: PRINT+19
Function Call: WRITE	Prompt: *7 Line Location: PRINT+20
Function Call: WRITE	Prompt: !!,?20,"* ",$S($G(RCTCSTOP):"Report Ended",1:"End of Report")," *" Line Location: PRINT+21
Function Call: READ	Prompt: !! Variable: "Type <Enter> to continue or '^' to exit Timeout: ",X:DTIME Line Location: PRINT+22
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+22
Function Call: WRITE	Prompt: !,"Date Range: " Line Location: DLHDR+2
Function Call: WRITE	Prompt: "All" Line Location: DLHDR+3
Function Call: WRITE	Prompt: $$FMTE^XLFDT($G(RCTCDATE("BEGIN")),"2Z")," - ",$$FMTE^XLFDT($G(RCTCDATE("END")),"2Z") Line Location: DLHDR+4
Function Call: WRITE	Prompt: ?35,"Cross-Servicing Stop Reactivate Report at Debtor Level",?122,"Page: ",PAGE Line Location: DLHDR+5
Function Call: WRITE	Prompt: !?33," Currently Flagged, Reactivated, or Both: " Line Location: DLHDR+6
Function Call: WRITE	Prompt: $S(RCTCFLG="C":"Currently Flagged",RCTCFLG="R":"Reactivated",1:"Both") Line Location: DLHDR+7
Function Call: WRITE	Prompt: !,"Debtor Range: ",DEBRANGE Line Location: DLHDR+8
Function Call: WRITE	Prompt: ?111,$P($$FMTE^XLFDT($$NOW^XLFDT),":",1,2) Line Location: DLHDR+9
Function Call: WRITE	Prompt: !,SEPLINE Line Location: DLHDR+10
Function Call: WRITE	Prompt: !,"Debtor Name",?35,"Pt ID",?42,"SSN",?53,"S/R",?57,"Date",?75,"Reason",?107,"User" Line Location: DLHDR+11
Function Call: WRITE	Prompt: !,SEPLINE Line Location: DLHDR+12
Function Call: WRITE	Prompt: !!,"It is recommended that you Queue this report to a device ",!,"that is 132 characters wide",! Line Location: DEVICE+3
Function Call: WRITE	Prompt: !!,"To capture as an Excel format, it is recommended that you queue this report to" Line Location: DEVICE+5
Function Call: WRITE	Prompt: !,"a spool device with margins of 256 and page length of 99999," Line Location: DEVICE+6
Function Call: WRITE	Prompt: !,"(e.g. spoolname;256;99999).This should help avoid wrapping problems.",! Line Location: DEVICE+7
Function Call: WRITE	Prompt: !,"Another method would be to set up your terminal to capture the detail report" Line Location: DEVICE+8
Function Call: WRITE	Prompt: !,"data. On some terminals, this can be done by clicking on the 'Tools' menu above," Line Location: DEVICE+9
Function Call: WRITE	Prompt: !,"then click on 'Capture Incoming Data' to save to Desktop." Line Location: DEVICE+10
Function Call: WRITE	Prompt: !,"To avoid undesired wrapping of the data saved to the file," Line Location: DEVICE+11
Function Call: WRITE	Prompt: !,"please enter '0;256;99999' at the 'DEVICE:' prompt." Line Location: DEVICE+12
Function Call: WRITE	Prompt: !!,"Report compilation has started with task# ",ZTSK,".",! Line Location: DEVICE+29
Function Call: WRITE	Prompt: RCH Line Location: DLXHD+9
Function Call: WRITE	Prompt: !,RCZ Line Location: DEXLN+9
Routine Call	DIR Line Location: HDR+6 DEVICE+29

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^RCD(340 - [#340]	GET1^DIQ
340.08	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^RCD(340 - [#340]	QENT+4, DSR, DSR+4, DSR+7, DSR+9, PRINT+7
^TMP("RCTC"	DLEVEL+1!, QENT+3!, DSR+10, DSR+11, DSR+12*, PRINT+1, PRINT+2, PRINT+3

Name	Line Occurrences
$$CSV	EXCELHD+3, EXCELHD+4, EXCELHD+6, EXCELHD+9, EXCELHD+12, EXCELHD+16, EXCELHD+17, EXCELHD+19, EXCELHD+23, EXCELHD+24 , EXCELN+2, EXCELN+3, EXCELN+4, EXCELN+6, EXCELN+8, EXCELN+11, EXCELN+12, EXCELN+13, EXCELN+15, EXCELN+18 , DLXHD+2, DLXHD+3, DLXHD+4, DLXHD+5, DLXHD+6, DLXHD+7, DLXHD+8, DEXLN+2, DEXLN+3, DEXLN+4 , DEXLN+5, DEXLN+6, DEXLN+7, DEXLN+8
DEVICE	DLEVEL+7
DEXLN	PRINT+11
DIVHDR	HDR+20
DLHDR	HDR+20
DLXHD	DLHDR+1
DSR	QENT+4
EXCELHD	DIVHDR+1
HDR	QENT+2
HDRX	HDR+6, HDR+46
PRINT	QENT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BILLDATA	EXCELN+3, EXCELN+6, EXCELN+8, EXCELN+11, EXCELN+12, EXCELN+13
>> CRT	HDR+4*, HDR+6, HDR+9, HDR+12
DATA	CSV~, CSV+1
>> DEBRANGE	DLEVEL+3*, DLHDR+8
>> DEBTDATA	EXCELN+2, EXCELN+4
>> DEBTNAME	DSR+1*, DSR+2, DSR+3, DSR+8
>> DEBTOR	QENT+4, DSR, DSR+1, DSR+4, DSR+7, DSR+9, DSR+10, DSR+11, DSR+12, PRINT+1 , PRINT+2, PRINT+3, PRINT+4, PRINT+6, PRINT+7
DIR	HDR+2~, HDR+6!, DEVICE+1~, DEVICE+29!
DIR(0	HDR+6, DEVICE+29
DIROUT	HDR+2~
DIRUT	HDR+2~, DLEVEL+2, DLEVEL+4, PRINT+22
>> DIV1	HDR+32*
DTIME	PRINT+22
DTOUT	HDR+2~
DUOUT	HDR+2~
>> DV	DIVHDR+11*
>> DV1	DIVHDR+11*, DIVHDR+12
>> G	DSR+9, PRINT+7, PRINT+8, PRINT+9, PRINT+10
>> G(	DSR+9*
>> IENS	PRINT+6*
IOF	HDR+9, PRINT+22
IOSL	PRINT+20
IOST	HDR+4, PRINT+22
>> N1	DSR+7, DSR+9, DSR+10, DSR+11, DSR+12, PRINT+3, PRINT+6, PRINT+7
>> NN	DSR+8, DSR+10, DSR+11, DSR+12, PRINT+1, PRINT+2, PRINT+3, PRINT+5, PRINT+12, DEXLN+2
>> PAGE	HDR+6, HDR+9, HDR+12, HDR+14, HDR+22, DIVHDR+5, DLEVEL+5, QENT+1*, DLHDR+5
POP	DEVICE+1~, DEVICE+28
>> PTID	PRINT+5*, PRINT+13, DEXLN+3
>> RCDT	DSR+9, DSR+10, DSR+11, DSR+12, PRINT+2, PRINT+3
RCH	EXCELHD+2~, EXCELHD+3, EXCELHD+4, EXCELHD+6, EXCELHD+9, EXCELHD+12, EXCELHD+16, EXCELHD+17, EXCELHD+19, EXCELHD+23* , EXCELHD+24, EXCELHD+25, DLXHD+1~, DLXHD+2, DLXHD+3, DLXHD+4, DLXHD+5, DLXHD+6, DLXHD+7, DLXHD+8 , DLXHD+9
RCSR	HDR+2~, DSR+9*, DSR+10, DSR+11
>> RCTC("DIVN"	DIVHDR+11
>> RCTC("DIVS"	HDR+32
>> RCTCDATE	HDR+25, DLEVEL+4, DLHDR+3
>> RCTCDATE("BEGIN"	HDR+27, DIVHDR+3, DIVHDR+4, DSR+5, DLHDR+4
>> RCTCDATE("END"	HDR+28, DIVHDR+4, DSR+6, DLHDR+4
>> RCTCDB	HDR+20, HDR+36
>> RCTCDEBT1	DIVHDR+14, DIVHDR+15, DLEVEL+3, DSR+2
>> RCTCDEBT2	DIVHDR+14, DIVHDR+15, DLEVEL+3, DSR+3
>> RCTCDIV	HDR+22, HDR+32, HDR+42, DIVHDR+6, DIVHDR+10
>> RCTCEXCEL	DIVHDR+1, DLEVEL+6, PRINT+11, DLHDR+1, DEVICE+3, DEVICE+4
>> RCTCFLG	HDR+31, DIVHDR+8, DSR+10, DSR+11, DSR+12, DLHDR+7
>> RCTCSP4("DEBTOR"	HDR+36, HDR+38
>> RCTCSTOP	HDR+6, HDR+47, DLEVEL+5, QENT+1, PRINT+1, PRINT+2, PRINT+21, PRINT+22
RCZ	EXCELN+1~, EXCELN+2, EXCELN+3, EXCELN+4, EXCELN+6, EXCELN+8, EXCELN+11, EXCELN+12, EXCELN+13, EXCELN+15* , EXCELN+18, EXCELN+19, DEXLN+1~, DEXLN+2, DEXLN+3, DEXLN+4, DEXLN+5, DEXLN+6, DEXLN+7, DEXLN+8 , DEXLN+9
>> REASON	PRINT+6*, PRINT+17, DEXLN+7
RET	DEVICE+1~, DEVICE+2, DEVICE+28, DEVICE+30
>> RTCN	HDR+38*
>> SEPLINE	HDR+41, HDR+43, DIVHDR+16, DIVHDR+18, DLEVEL+5, QENT+1, DLHDR+10, DLHDR+12
>> SR	PRINT+8*, PRINT+15, DEXLN+5
>> SRDT	DSR+4*, DSR+5, DSR+6, DSR+7
>> SSN	PRINT+4*, PRINT+5, PRINT+14, DEXLN+4
STRING	CSV~, CSV+1*, CSV+2
>> TRANDATA	EXCELN+14, EXCELN+18
>> TT	EXCELN+14*, EXCELN+15
U	EXCELN+2, EXCELN+3, EXCELN+4, EXCELN+6, EXCELN+8, EXCELN+11, EXCELN+12, EXCELN+13, EXCELN+14, EXCELN+18 , CSV+1, DSR+9, PRINT+8, PRINT+9, PRINT+10
>> USER	PRINT+10*, PRINT+19, DEXLN+8
X	HDR+2~, PRINT+22*, DEVICE+1~
>> XDATE	PRINT+9*, PRINT+16, DEXLN+6
Y	HDR+2~, HDR+6, DEVICE+1~
ZTDESC	DEVICE+1~, DEVICE+15*, DEVICE+27
>> ZTQUEUED	HDR+46
ZTRTN	DEVICE+1~, DEVICE+14*, DEVICE+27
ZTSAVE	DEVICE+1~, DEVICE+27
ZTSAVE("DEBRANGE"	DEVICE+25*
ZTSAVE("DLEVEL"	DEVICE+26*
ZTSAVE("RCTC("	DEVICE+16*
ZTSAVE("RCTCDATE"	DEVICE+22*
ZTSAVE("RCTCDATE("	DEVICE+23*
ZTSAVE("RCTCDB"	DEVICE+17*
ZTSAVE("RCTCDEBT1"	DEVICE+20*
ZTSAVE("RCTCDEBT2"	DEVICE+21*
ZTSAVE("RCTCDIV"	DEVICE+18*
ZTSAVE("RCTCEXCEL"	DEVICE+24*
ZTSAVE("RCTCFLG"	DEVICE+19*
ZTSK	DEVICE+1~, DEVICE+29
>> ZTSTOP	HDR+47*

Customize PDF page

Package: Accounts Receivable

Routine: RCTCSP4E

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: