Routine: RCDMC90U

Information

RCDMC90U ;WASH IRMFO@ALTOONA,PA/TJK - DMC 90 DAY ;7/17/97 8:14 AM ; 10/24/96 3:21 PM [ 02/24/97 12:17 PM ]

Name	Comments	DBIA/ICR reference
V	;;4.5;Accounts Receivable;45,108,121,163,400;Mar 20, 1995;Build 13
COMPILE(MAX,CNTR,LINES,TLINE)	;COMPILES CODESHEETS INTO MAILMAN MESSAGES
COMPQ
PSEUDO(DFN,PSSN)	;Screens out patients with Pseudo-SSN's and sends mail message
NOW()
REPORT	;PRINT REPORT
PRINT
REPORTQ
PRNTOT
STARTUP	;Displays reminder message for mailgroups
LESSW	;ENTRY POINT FOR MENU OPTION TO ALLOW LESSER WITHHOLDING
LESSWA
LESSWQ
CANC	;ENTRY POINT FOR MENU OPTION TO ALLOW VAMC TO CANCEL DMC WITHOLDING
CANC1
CANC2
CANC3(DEBTOR,DELETE)	;ENTRY POINT FOR AUTODELETION BY SERVER
CANCQ
CANCDMC(DEBTOR)	; cancel DMC withholding (no user interaction) PRCA4.5400
ERROR(RCDOC,LKUP,DFN)
ERRORQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DMC 90 DAY REFERRAL REPORT",!! Line Location: REPORT+2
Function Call: WRITE	Prompt: !,"Select type of report" Line Location: REPORT+3
Function Call: WRITE	Prompt: !!,DASH Line Location: PRNTOT+2
Function Call: WRITE	Prompt: !,?6,"TOTALS:",?26,"PRINCIPLE",?36,"$"_$J(PRINTOT,15,2) Line Location: PRNTOT+3
Function Call: WRITE	Prompt: !,?26,"INTEREST",?36,"$"_$J(INTTOT,15,2),!,?26,"ADMIN",?36,"$"_$J(ADMTOT,15,2) Line Location: PRNTOT+4
Function Call: WRITE	Prompt: !,?26,"TOTAL",?36,"$"_$J(PRINTOT+INTTOT+ADMTOT,15,2) Line Location: PRNTOT+5
Function Call: WRITE	Prompt: !,"DMC Lesser Withholding..." Line Location: LESSW+2
Function Call: WRITE	Prompt: !!,*7,"Amount entered exceeds the amount currently at DMC which is ",$P(^(3),U,5),!,"Re-enter lesser amount" Line Location: LESSWA+1
Function Call: WRITE	Prompt: !,"Deletion of Debtor From DMC" Line Location: CANC+1