source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCE0A.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 765 bytes
Line 
1PRCE0A ;WISC/PLT-IFCAP Fiscal Utility ; 04/21/93 3:00 PM
2V ;;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 ;
6EN1(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
13EX1 QUIT E
Note: See TracBrowser for help on using the repository browser.