Routine: RCTOPS

Information

RCTOPS ;WASH IRMFO@ALTOONA,PA/TJK-DMC 90 DAY (SERVER) ;10/24/96 3:21 PM

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;141,229;Mar 20, 1995
READ	;READS MESSAGE INTO TEMPORARY GLOBAL
READ1
PROC
SETLN
MSG	;Send list of rejected documents
MSG1
SEND
CLEANUP	; This cleans up the ^TMP global.
LDOC	;Process debtor not receiving TOP letters
ALPHA	;loads alphabetical listings into "REC"

Name	Line Occurrences (* Changed, ! Killed)
^PRCA(430 - [#430]	SETLN+5!
^RCD(340 - [#340]	PROC+11, PROC+12, SETLN+3!, SETLN+7, SETLN+8, SETLN+9
^TMP("RCTOPS"	READ+1!, READ1+2, PROC+4, SETLN, MSG+2, MSG+3, MSG+4, MSG+5, MSG1, MSG1+1 , MSG1+2, MSG1+3, CLEANUP+1!, LDOC+2, LDOC+8, ALPHA+2, ALPHA+3, ALPHA+4

Name	Field # of Occurrence
ACTION	PROC~, PROC+8*, SETLN, SETLN+2, SETLN+8, SETLN+9
AMOUNT	PROC~, PROC+10*, SETLN+8, SETLN+9
BILL	PROC~, SETLN+4, SETLN+5
CNTR	PROC~, ALPHA+1, ALPHA+4
>> DA	PROC+15, LDOC+4
DEBTOR	PROC~, PROC+8, PROC+11, PROC+12, PROC+13, PROC+15, PROC+20, SETLN+3, SETLN+5, SETLN+7 , SETLN+8, SETLN+9, LDOC+3, LDOC+4, LDOC+5
>> DIC	PROC+15, LDOC+4
>> DIQ	PROC+15, LDOC+4
>> DIQ(0	PROC+15, LDOC+4
>> DR	PROC+15, LDOC+4
ECODE	PROC~, PROC+9, PROC+21, PROC+22, LDOC+3, LDOC+6, LDOC+7
ECODE1	PROC~, PROC+21, PROC+22, SETLN, LDOC+6, LDOC+7, LDOC+8
FILE	PROC+1~, PROC+12*, PROC+13
I	PROC~, PROC+22, LDOC+7, ALPHA+2, ALPHA+3
LDOC	PROC+1~, PROC+3, MSG+1, LDOC+1
LN	PROC~, PROC+3, PROC+4, LDOC+2*, LDOC+8
MTYPE	PROC+1~, PROC+6*, SEND+1
NAME	PROC~, PROC+15!, PROC+18, PROC+20, SETLN, LDOC+4!, LDOC+5, LDOC+8, ALPHA+1, ALPHA+2 , ALPHA+3
NAME(340	PROC+20, LDOC+5
REC	PROC~, PROC+4, PROC+5, PROC+6, PROC+7, PROC+8, PROC+9, PROC+10, LDOC+3, ALPHA+3 , ALPHA+4
REC1	PROC+1~, LDOC+2*, LDOC+3
SEQ	PROC+1~, PROC+6*, SEND+1
TIN	PROC~, PROC+8, PROC+10, PROC+11, PROC+13, SETLN, LDOC+3*, LDOC+8
TSEQ	PROC+1~, PROC+6*, SEND+1
TYPE	PROC~, PROC+8*, PROC+10, SETLN, SETLN+1
U	PROC+6, PROC+11, SETLN+8, SETLN+9
XMA	READ+1, READ1+1, READ1+2, PROC+2!
XMDUZ	PROC+1~, SEND+2*
XMER	READ1, PROC+2!
XMPOS	PROC+2!
XMREC	READ1, PROC+2!
XMRG	READ1+2, PROC+2!
XMSUB	PROC+1~, SEND+1*
XMTEXT	PROC+1~, SEND+2*
XMY	PROC+1~
XMY("G.TOP"	SEND+2*