PRCAGF1.m

PRCAGF1 ;WASH-ISC@ALTOONA,PA/CMS- Print Form Letters Cont. ;7/12/93  8:08 AM

V ;;4.5;Accounts Receivable;;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

PAY ;print payment Remittance bottom of letter

 NEW X,Y

 W:($Y+22)>IOSL @IOF ;the remittance form is 20 lines long

 W !! S Y="",$P(Y,"=",80)="" W !,Y

 W !,"FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"

 S Y="",$P(Y,"_",80)="" W !,?1,$E(Y,1,78),!,"|",?31,"PAYMENT REMITTANCE",?79,"|",!,"|",$E(Y,1,78),"|"

 W !,"|","*File No./SSAN",?16,"| Name of Debtor",?40,"|Amount Enclosed| Your Telephone No.",?79,"|"

 W !,"|",?16,"|",?40,"|",?56,"| (include Area Code)",?79,"|"

 W !,"|",$S($D(RCIRSTOT):SSN,1:$P(^PRCA(430,PRCABN,0),U,1)),?16,"|",$E(NAM,1,23),?40,"| $",?56,"|",?79,"|"

 W !,"|" F X=15,23,15,22 W $E(Y,1,X),"|"

 W !,"|ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT.",?79,"|",!,"|","PLEASE INCLUDE YOUR ZIP CODE.",?79,"|"

 W !,"|",?79,"|",!,"|",?79,"|",!,"|",?79,"|",!,"|",?79,"|",!,"|",$E(Y,1,78),"|"

 W !,"| *Please include this number on your check or money order.",?79,"|",!,"|",$E(Y,1,78),?79,"|"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCAGF1   1165     printed  Dec 13, 2024@01:39:42                                                                                                                                                                                                     Page 2

PRCAGF1   ;WASH-ISC@ALTOONA,PA/CMS- Print Form Letters Cont. ;7/12/93  8:08 AM

V         ;;4.5;Accounts Receivable;;Mar 20, 1995

 +1       ;;Per VHA Directive 10-93-142, this routine should not be modified.

PAY       ;print payment Remittance bottom of letter

 +1        NEW X,Y

 +2       ;the remittance form is 20 lines long

           if ($Y+22)>IOSL

               WRITE @IOF

 +3        WRITE !!

           SET Y=""

           SET $PIECE(Y,"=",80)=""

           WRITE !,Y

 +4        WRITE !,"FOR PROPER CREDIT TO YOUR ACCOUNT, PLEASE DETACH AND RETURN WITH YOUR PAYMENT"

 +5        SET Y=""

           SET $PIECE(Y,"_",80)=""

           WRITE !,?1,$EXTRACT(Y,1,78),!,"|",?31,"PAYMENT REMITTANCE",?79,"|",!,"|",$EXTRACT(Y,1,78),"|"

 +6        WRITE !,"|","*File No./SSAN",?16,"| Name of Debtor",?40,"|Amount Enclosed| Your Telephone No.",?79,"|"

 +7        WRITE !,"|",?16,"|",?40,"|",?56,"| (include Area Code)",?79,"|"

 +8        WRITE !,"|",$SELECT($DATA(RCIRSTOT):SSN,1:$PIECE(^PRCA(430,PRCABN,0),U,1)),?16,"|",$EXTRACT(NAM,1,23),?40,"| $",?56,"|",?79,"|"

 +9        WRITE !,"|"

           FOR X=15,23,15,22

               WRITE $EXTRACT(Y,1,X),"|"

 +10       WRITE !,"|ENTER YOUR CURRENT ADDRESS BELOW ONLY IF THE ONE ABOVE IS INCORRECT.",?79,"|",!,"|","PLEASE INCLUDE YOUR ZIP CODE.",?79,"|"

 +11       WRITE !,"|",?79,"|",!,"|",?79,"|",!,"|",?79,"|",!,"|",?79,"|",!,"|",$EXTRACT(Y,1,78),"|"

 +12       WRITE !,"| *Please include this number on your check or money order.",?79,"|",!,"|",$EXTRACT(Y,1,78),?79,"|"

 +13       QUIT