PRCAGST2.m

PRCAGST2 ;WASH/ISC@ALTOONA,PA/CMS - Print Patient Statement Summary ;4/19/95  11:07 AM

V ;;4.5;Accounts Receivable;**2,176,405**;Mar 20, 1995;Build 9

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

SUM ;statement summary called from PRCAGST1

 NEW I,Y,RCNT ;PRCA*4.5*405

 W !,"|",?12,"|",?58,"|",?67,"|",?79,"|"

 W !,"|",?12,"|",?58,"|",?67,"|",?79,"|"

 W !,"|",?12,"|",?14,"Previous Balance",?32,$J(PBAL,15,2),?58,"|",?67,"|",?79,"|"

 W !,"|",?12,"|",?14,"Charges",?32,$J(TBAL("CH"),15,2),?58,"|",?67,"|",?79,"|"

 W !,"|",?12,"|",?14,"Payments/Credits",?32,$J(TBAL("PC"),15,2),?58,"|",?67,"|",?79,"|"

 I TBAL("RF")'=0 W !,"|",?12,"|",?14,"Refunds",?32,$J(TBAL("RF"),15,2),?58,"|",?67,"|",?79,"|"

 W !,"|",?12,"|",?32,"_______________",?58,"|",?67,"|",?79,"|"

 W !,"|",?12,"|",?14,"New Balance",?32,$J((PBAL+TBAL("CH")+TBAL("PC")+TBAL("RF")),15,2),?58,"|",?67,"|",?79,"|"

 S RCNT=$Y ;PRCA*4.5*405 + next line

 F  Q:$Y>(IOSL-4)!($Y>RCNT+4)  W !,"|",?12,"|",?58,"|",?67,"|",?79,"|"

 I $D(THNK) W !,"|",?12,"|","THANK YOU FOR YOUR PAYMENT!",?58,"|",?67,"|",?79,"|"

 W !,"|" F I=12,46,9,12 S Y="",$P(Y,"_",I)="" W Y,"|"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCAGST2   1157     printed  Oct 16, 2024@17:40:38                                                                                                                                                                                                    Page 2

PRCAGST2  ;WASH/ISC@ALTOONA,PA/CMS - Print Patient Statement Summary ;4/19/95  11:07 AM

V         ;;4.5;Accounts Receivable;**2,176,405**;Mar 20, 1995;Build 9

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

SUM       ;statement summary called from PRCAGST1

 +1       ;PRCA*4.5*405

           NEW I,Y,RCNT

 +2        WRITE !,"|",?12,"|",?58,"|",?67,"|",?79,"|"

 +3        WRITE !,"|",?12,"|",?58,"|",?67,"|",?79,"|"

 +4        WRITE !,"|",?12,"|",?14,"Previous Balance",?32,$JUSTIFY(PBAL,15,2),?58,"|",?67,"|",?79,"|"

 +5        WRITE !,"|",?12,"|",?14,"Charges",?32,$JUSTIFY(TBAL("CH"),15,2),?58,"|",?67,"|",?79,"|"

 +6        WRITE !,"|",?12,"|",?14,"Payments/Credits",?32,$JUSTIFY(TBAL("PC"),15,2),?58,"|",?67,"|",?79,"|"

 +7        IF TBAL("RF")'=0

               WRITE !,"|",?12,"|",?14,"Refunds",?32,$JUSTIFY(TBAL("RF"),15,2),?58,"|",?67,"|",?79,"|"

 +8        WRITE !,"|",?12,"|",?32,"_______________",?58,"|",?67,"|",?79,"|"

 +9        WRITE !,"|",?12,"|",?14,"New Balance",?32,$JUSTIFY((PBAL+TBAL("CH")+TBAL("PC")+TBAL("RF")),15,2),?58,"|",?67,"|",?79,"|"

 +10      ;PRCA*4.5*405 + next line

           SET RCNT=$Y

 +11       FOR 

               if $Y>(IOSL-4)!($Y>RCNT+4)

                   QUIT 

               WRITE !,"|",?12,"|",?58,"|",?67,"|",?79,"|"

 +12       IF $DATA(THNK)

               WRITE !,"|",?12,"|","THANK YOU FOR YOUR PAYMENT!",?58,"|",?67,"|",?79,"|"

 +13       WRITE !,"|"

           FOR I=12,46,9,12

               SET Y=""

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

               WRITE Y,"|"

 +14       QUIT