21 lines
649 B
Mathematica
21 lines
649 B
Mathematica
|
PRCFFM3M ;WISC/SJG-ROUTINE TO PROCESS AMENDMENT OBLIGATIONS ;5/9/94 3:07 PM
|
||
|
|
V ;;5.1;IFCAP;;Oct 20, 2000
|
||
|
|
;Per VHA Directive 10-93-142, this routine should not be modified.
|
||
|
|
;
|
||
|
|
QUIT
|
||
|
|
; Message processing for amendment obligation
|
||
|
|
NOA ;
|
||
|
|
W ! S MSG(1)="NO AMENDMENT EXISTS FOR THIS ORDER - PLEASE CHECK WITH SUPPLY."
|
||
|
|
S MSG(2)="OPTION IS BEING ABORTED."
|
||
|
|
D EN^DDIOL(.MSG) K MSG W !
|
||
|
|
Q
|
||
|
|
MSG ;
|
||
|
|
W ! D EN^DDIOL("No further processing is being taken on this amendment obligation.")
|
||
|
|
Q
|
||
|
|
MSG1 ;
|
||
|
|
W ! K MSG
|
||
|
|
S MSG(1)=" This Purchase Order has been tampered with."
|
||
|
|
S MSG(2)=" Please notify IFCAP APPLICATION COORDINATOR."
|
||
|
|
D EN^DDIOL(.MSG) K MSG W !
|
||
|
|
Q
|