Routine: RCRJRBDR

Information

RCRJRBDR ;WISC/RFJ,TJK-bad debt report generator ;1 Feb 98

Name	Comments	DBIA/ICR reference
PRINT	; print report on printer, called from menu option
DQ	; generate the report ; rcrjfmm = flag to put in mail message (if $g(rcrjfmm)) (optional) ; rcrjdate = date month and year for report (optional) ; rcrjfxsv = fms document id number if sent to fms (optional) ; (newed and set by rcxfmssv, label Q)
MAIL	; put report in mailman
Q
SETLINE(DATA)	; build the line for the report

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print the Bad Debt Report. The Bad Debt allowance" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"estimates are computed by the AR Data Collector at the end of the" Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"accounting month, and sent to FMS at that time. The allowance" Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"estimate is no longer editable prior to transmission to FMS.",! Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"please wait" Line Location: PRINT+11
Function Call: WRITE	Prompt: @IOF Line Location: MAIL+8
Function Call: WRITE	Prompt: @IOF Line Location: MAIL+10
Function Call: WRITE	Prompt: !,^TMP($J,"RCRJRCORMM",%) Line Location: MAIL+10
Function Call: WRITE	Prompt: !,^TMP($J,"RCRJRCORMM",LINE) Line Location: MAIL+11