Routine: RCDPLPS1

Information

RCDPLPS1 ;ALB/SAB - Link Payments Suspense Report ;2/22/16

Name	Comments	DBIA/ICR reference
REPORT	; report to show payments cleared from suspense in FMS
DQ	; report (queue) starts here
H	; header
MAILMSG(RCRECTDA,RCTRANDA)	; generate message to users showing what needs to be moved out ; of suspense to 5287
USERINIT(USER)	; get the initials of a user

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option will print a report showing all unlinked payments" Line Location: REPORT+6
Function Call: WRITE	Prompt: !,"received between selected dates that were processed to the station's" Line Location: REPORT+7
Function Call: WRITE	Prompt: !,"suspense account and later cleared by on-line FMS input.",! Line Location: REPORT+8
Function Call: WRITE	Prompt: ! Line Location: REPORT+15
Function Call: WRITE	Prompt: !!,"<> please wait <>" Line Location: REPORT+19
Function Call: WRITE	Prompt: !,$P(DATA,"^",10),?11,$J(RCTRANDA,5),?20,$P(DATA,"^",3),?29,$P(DATA,"^",4),?35,$P(DATA,"^",5),?51,$P(DATA,"^"),?67,$J($P(DATA,"^",9),10,2) Line Location: DQ+50
Function Call: WRITE	Prompt: !,?10,$P(DATA,"^",6),?20,$P(DATA,"^",7),?27,$P(DATA,"^",8) Line Location: DQ+51
Function Call: WRITE	Prompt: @IOF Line Location: H+2
Function Call: WRITE	Prompt: $C(13),"AR CLEARED SUSPENSE REPORT",?(80-$L(%)),% Line Location: H+3
Function Call: WRITE	Prompt: !," FOR THE DATE RANGE: ",DATEDIS1," TO ",DATEDIS2 Line Location: H+4
Function Call: WRITE	Prompt: !,"DEPOSIT#0",?10,"PROFILE#",?20,"IN SUSP",?29,"IN BY",?35,"CLAIM#",?51,"UNAPP DEP#",?67,$J("AMOUNT",10) Line Location: H+5
Function Call: WRITE	Prompt: !,?10,"OUT SUSP",?20,"OUT BY",?27,"CLEAR DOC ID#" Line Location: H+6
Function Call: WRITE	Prompt: !,RCRJLINE Line Location: H+7