|
Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
649 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
