source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAMRKC.m@ 1608

Last change on this file since 1608 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 581 bytes
Line 
1PRCAMRKC ;WASH-ISC@ALTOONA,PA/LDB-CHECK MARK/UNMARK TRANSACTION FOR ACCOUNT BALANCE ;9/27/93 10:34 AM
2V ;;4.5;Accounts Receivable;;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5EN(DEB) ;Called from PRCAMARK to find balance discrepancy
6 N PBAL,DAT,TBAL,BBAL
7 S (PBAL,BBAL,TBAL)=0 K ^TMP("PRCAGT",$J)
8 D BBAL^PRCAGU(DEB,.BBAL)
9 S DAT=$$LST^RCFN01(DEB,2) I DAT<1 S DAT=0
10 I DAT S DAT=9999999.999999-DAT D PBAL^PRCAGU(DEB,.DAT,.PBAL)
11 D EN^PRCAGT(DEB,DAT)
12 D TBAL^PRCAGT(DEB,.TBAL)
13 K ^TMP("PRCAGT",$J)
14 I (PBAL+TBAL'=BBAL) S Y=1
15 E S Y=0
16 Q Y
Note: See TracBrowser for help on using the repository browser.