Last change
on this file since 1005 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
765 bytes
|
Line | |
---|
1 | PRCE0A ;WISC/PLT-IFCAP Fiscal Utility ; 04/21/93 3:00 PM
|
---|
2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
---|
3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
---|
4 | QUIT ;illegal entry point
|
---|
5 | ;
|
---|
6 | EN1(PRC410,PRC442,T) ;check adj $amount in 410 and obl/liq/autho amounts in 442
|
---|
7 | N A,B,C,D,E S E=0
|
---|
8 | S A=$P($G(^PRCS(410,PRC410,4)),U,6),B=$G(^PRC(442,PRC442,8))
|
---|
9 | S C=$P(B,U,2),D=$P(B,U,3),B=+B
|
---|
10 | I A+B<0 W:T !,$C(7),"This new adjustment amount will make the 1358 amount be negative.",! S E=1 G EX1
|
---|
11 | I C>0,A+B<C W:T !,$C(7),"This new adjustment amount will make the 1358 amount be less than the total liquiation amount.",! S E=2 G EX1
|
---|
12 | I D>0,A+B<D W:T !,$C(7),"This new adjustment amount will make the 1358 amount be less than the total authorization amount." S E=3 G EX1
|
---|
13 | EX1 QUIT E
|
---|
Note:
See
TracBrowser
for help on using the repository browser.