PRCAMRKC.m

PRCAMRKC ;WASH-ISC@ALTOONA,PA/LDB-CHECK MARK/UNMARK TRANSACTION FOR ACCOUNT BALANCE ;9/27/93  10:34 AM

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

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

 ;

EN(DEB) ;Called from PRCAMARK to find balance discrepancy

 N PBAL,DAT,TBAL,BBAL

 S (PBAL,BBAL,TBAL)=0 K ^TMP("PRCAGT",$J)

 D BBAL^PRCAGU(DEB,.BBAL)

 S DAT=$$LST^RCFN01(DEB,2) I DAT<1 S DAT=0

 I DAT S DAT=9999999.999999-DAT D PBAL^PRCAGU(DEB,.DAT,.PBAL)

 D EN^PRCAGT(DEB,DAT)

 D TBAL^PRCAGT(DEB,.TBAL)

 K ^TMP("PRCAGT",$J)

 I (PBAL+TBAL'=BBAL) S Y=1

 E  S Y=0

 Q Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCAMRKC   597     printed  Apr 09, 2024@20:55:03                                                                                                                                                                                                     Page 2

PRCAMRKC  ;WASH-ISC@ALTOONA,PA/LDB-CHECK MARK/UNMARK TRANSACTION FOR ACCOUNT BALANCE ;9/27/93  10:34 AM

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

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

 +2       ;

EN(DEB)   ;Called from PRCAMARK to find balance discrepancy

 +1        NEW PBAL,DAT,TBAL,BBAL

 +2        SET (PBAL,BBAL,TBAL)=0

           KILL ^TMP("PRCAGT",$JOB)

 +3        DO BBAL^PRCAGU(DEB,.BBAL)

 +4        SET DAT=$$LST^RCFN01(DEB,2)

           IF DAT<1

               SET DAT=0

 +5        IF DAT

               SET DAT=9999999.999999-DAT

               DO PBAL^PRCAGU(DEB,.DAT,.PBAL)

 +6        DO EN^PRCAGT(DEB,DAT)

 +7        DO TBAL^PRCAGT(DEB,.TBAL)

 +8        KILL ^TMP("PRCAGT",$JOB)

 +9        IF (PBAL+TBAL'=BBAL)

               SET Y=1

 +10      IF '$TEST

               SET Y=0

 +11       QUIT Y