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 ---[H[J[2J[HPRCAMRKC 597 printed Nov 22, 2024@16:50:42 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
