source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAGF1.m@ 767

Last change on this file since 767 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PRCAGF1 ;WASH-ISC@ALTOONA,PA/CMS- Print Form Letters Cont. ;7/12/93 8:08 AM
2V ;;4.5;Accounts Receivable;;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4PAY ;print payment Remittance bottom of letter
5 NEW X,Y
6 W:($Y+22)>IOSL @IOF ;the remittance form is 20 lines long
7 W !! S Y="",$P(Y,"=",80)="" W !,Y
8 W !,"FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"
9 S Y="",$P(Y,"_",80)="" W !,?1,$E(Y,1,78),!,"|",?31,"PAYMENT REMITTANCE",?79,"|",!,"|",$E(Y,1,78),"|"
10 W !,"|","*File No./SSAN",?16,"| Name of Debtor",?40,"|Amount Enclosed| Your Telephone No.",?79,"|"
11 W !,"|",?16,"|",?40,"|",?56,"| (include Area Code)",?79,"|"
12 W !,"|",$S($D(RCIRSTOT):SSN,1:$P(^PRCA(430,PRCABN,0),U,1)),?16,"|",$E(NAM,1,23),?40,"| $",?56,"|",?79,"|"
13 W !,"|" F X=15,23,15,22 W $E(Y,1,X),"|"
14 W !,"|ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT.",?79,"|",!,"|","PLEASE INCLUDE YOUR ZIP CODE.",?79,"|"
15 W !,"|",?79,"|",!,"|",?79,"|",!,"|",?79,"|",!,"|",?79,"|",!,"|",$E(Y,1,78),"|"
16 W !,"| *Please include this number on your check or money order.",?79,"|",!,"|",$E(Y,1,78),?79,"|"
17 Q
Note: See TracBrowser for help on using the repository browser.