|
Last change
on this file since 1801 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
581 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
