source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFFM3M.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: 649 bytes
Line 
1PRCFFM3M ;WISC/SJG-ROUTINE TO PROCESS AMENDMENT OBLIGATIONS ;5/9/94 3:07 PM
2V ;;5.1;IFCAP;;Oct 20, 2000
3 ;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 QUIT
6 ; Message processing for amendment obligation
7NOA ;
8 W ! S MSG(1)="NO AMENDMENT EXISTS FOR THIS ORDER - PLEASE CHECK WITH SUPPLY."
9 S MSG(2)="OPTION IS BEING ABORTED."
10 D EN^DDIOL(.MSG) K MSG W !
11 Q
12MSG ;
13 W ! D EN^DDIOL("No further processing is being taken on this amendment obligation.")
14 Q
15MSG1 ;
16 W ! K MSG
17 S MSG(1)=" This Purchase Order has been tampered with."
18 S MSG(2)=" Please notify IFCAP APPLICATION COORDINATOR."
19 D EN^DDIOL(.MSG) K MSG W !
20 Q
Note: See TracBrowser for help on using the repository browser.