17 lines
581 B
Mathematica
17 lines
581 B
Mathematica
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
|