Routine: RCRJRTRA

Information

RCRJRTRA ;WISC/RFJ-transaction report ;1 Mar 97

Name	Comments	DBIA/ICR reference
DQ	; report (queue) starts here
SETVALUE(TYPE,PRIN,INT,ADM)	; store value in tmp global for printing ; = trans amt ^ prin amt ^ int amt ^ adm amt ; add spaces to type for sorting in numerical order
DATESEL(DESCR)	; select starting and ending dates in days ; returns datestrt and dateend
START
TRANTYPE(DATESTRT,DATEEND)
SHOWLIST	; show list of available/selected transaction types
SUMMARY()	; ask to print detailed or summary report

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO transaction types selected." Line Location: RCRJRTRA+11
Function Call: WRITE	Prompt: ! Line Location: RCRJRTRA+16
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: RCRJRTRA+20
Function Call: WRITE	Prompt: !,"END DATE MUST BE GREATER THAN OR EQUAL TO THE START DATE.",! Line Location: START+7
Function Call: WRITE	Prompt: !?5,"*** Selected date range from ",Y," to " Line Location: START+9
Function Call: WRITE	Prompt: Y," ***" Line Location: START+9
Function Call: WRITE	Prompt: !,"There are NO transactions within the date range." Line Location: TRANTYPE+13
Function Call: WRITE	Prompt: " un-selected" Line Location: TRANTYPE+25
Function Call: WRITE	Prompt: " selected" Line Location: TRANTYPE+26
Function Call: WRITE	Prompt: !!,"The following is a list of available transactions within the date range.",!,"Asterisks (**) next to the transaction indicates it has been selected",!,"for the report." Line Location: SHOWLIST+1
Function Call: WRITE	Prompt: ! Line Location: SHOWLIST+3
Function Call: WRITE	Prompt: ?40 Line Location: SHOWLIST+4
Function Call: WRITE	Prompt: $S($D(TRANTYPE(%)):"**",1:" ")," " Line Location: SHOWLIST+5
Function Call: WRITE	Prompt: $S($L(%)=1:" ",1:""),%," ",TRANLIST(%) Line Location: SHOWLIST+6
Function Call: WRITE	Prompt: ! Line Location: SUMMARY+3