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