Routine: RCDMC90S

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;45,121;Mar 20, 1995
READ	;READS MESSAGE INTO TEMPORARY GLOBAL
READ1
PROC
MSG	;SEND LIST OF PATIENTS AUTOMATICALLY DELETED
CLEANUP	; This cleans up the ^TMP global.
DEBT(DEBTOR,SSN)	;CHECK FOR VALID DEBTOR
DEBTQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROC+17, DEBT+3
^DPT("SSN"	DEBT+8
^RCD(340 - [#340]	PROC+17, DEBT+2, DEBT+9
^TMP("RCDMC90S"	READ+1!, READ1+2, PROC+4, PROC+12, PROC+18, MSG+1, MSG+2, MSG+8, MSG+9, MSG+10* , MSG+11*, CLEANUP+1!

Name	Field # of Occurrence
^(	PROC+4

Name	Field # of Occurrence
CHK	DEBT+1~, DEBT+3, DEBT+6, DEBT+10*, DEBTQ
CNT	PROC~, PROC+3, PROC+18
CNTR	PROC~, PROC+3, PROC+11, PROC+12
DDATE	PROC~, PROC+8*, PROC+19, PROC+23
DEBTOR	PROC~, PROC+8, PROC+9, PROC+13, PROC+16, PROC+17, DEBT~, DEBT+2, DEBT+3, DEBT+10
DEBTOR1	DEBT+7~, DEBT+9*, DEBT+10
DFN	PROC+17, DEBT+1~, DEBT+2, DEBT+3, DEBT+8*, DEBT+9
I	PROC~, PROC+3, PROC+4
J	PROC~
LKUP	PROC~, PROC+9*, PROC+10, PROC+13
LN	PROC~, PROC+17*, PROC+18, PROC+23
MSG	PROC~
MSG(1	PROC+22*
MSG(2	PROC+23*
MSG(3	PROC+24*
MSG(4	PROC+25*
NAME	PROC~, PROC+17*
ND	PROC~, PROC+4*, PROC+5, PROC+6, PROC+7
REC	PROC~, PROC+7*, PROC+8, PROC+12
SEQ	PROC~, PROC+3, PROC+5, MSG+3
SITE	PROC~
SSN	PROC~, PROC+8*, PROC+9, PROC+17, DEBT~, DEBT+3, DEBT+8
TYPE	PROC~, PROC+8*, PROC+18
U	PROC+5, PROC+8, PROC+12, PROC+13, PROC+17, DEBT+3, DEBT+10
XMA	READ+1, READ1+1, READ1+2, PROC+2!
XMDUZ	PROC+1~, PROC+21, MSG+4, MSG+14*
XMER	READ1, PROC+2!
XMPOS	PROC+2!
XMREC	READ1, PROC+2!
XMRG	READ1+2, PROC+2!
XMSUB	PROC+1~, PROC+20, MSG+3, MSG+12*
XMTEXT	PROC+1~, PROC+21, MSG+4, MSG+15*
XMY	PROC+1~
XMY("G.DMR"	PROC+21, MSG+4, MSG+13*