Last change
on this file since 1556 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
581 bytes
|
Line | |
---|
1 | PRCAMRKC ;WASH-ISC@ALTOONA,PA/LDB-CHECK MARK/UNMARK TRANSACTION FOR ACCOUNT BALANCE ;9/27/93 10:34 AM
|
---|
2 | V ;;4.5;Accounts Receivable;;Mar 20, 1995
|
---|
3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | ;
|
---|
5 | EN(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.