Last change
on this file since 1005 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
649 bytes
|
Line | |
---|
1 | PRCFFM3M ;WISC/SJG-ROUTINE TO PROCESS AMENDMENT OBLIGATIONS ;5/9/94 3:07 PM
|
---|
2 | V ;;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
|
---|
7 | NOA ;
|
---|
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
|
---|
12 | MSG ;
|
---|
13 | W ! D EN^DDIOL("No further processing is being taken on this amendment obligation.")
|
---|
14 | Q
|
---|
15 | MSG1 ;
|
---|
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.