|
Last change
on this file since 1226 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
1.1 KB
|
| Rev | Line | |
|---|
| [613] | 1 | PRCFFERM ;WISC/SJG-OBLIGATION ERROR PROCESSING MESSAGES ;7/24/00 23:19
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | QUIT
|
|---|
| 5 | ; No top level entry
|
|---|
| 6 | ;
|
|---|
| 7 | MSG1 ; Message Processing
|
|---|
| 8 | W !!,"This document is not a Miscellaneous Order (MO) or a Service Order (SO).",!,"Error processing cannot continue using this routine.",!!
|
|---|
| 9 | Q
|
|---|
| 10 | MSG2 W !!,"This Purchase Order or 1358 source document is not found. Error processing",!,"cannot continue."
|
|---|
| 11 | Q
|
|---|
| 12 | MSG3 W !!,"The Method of Processing is missing. Error processing cannot continue.",!!
|
|---|
| 13 | Q
|
|---|
| 14 | MSG4 W !!,"No further action taken on this rejected document.",!!
|
|---|
| 15 | Q
|
|---|
| 16 | MSG5 K MSG N TYPE
|
|---|
| 17 | S TYPE=$S(MOP=1:"a Purchase Order.",MOP=2:"a Certified Invoice.",MOP=3:"a Payment in Advance.",MOP=4:"a Guaranteed Delivery.",MOP=7:"an Imprest Fund.",MOP=8:"a Requistion.",MOP=26:"a Direct Delivery.",21:"a 1358 Miscellaneous Obligation.")
|
|---|
| 18 | S MSG(1)="This FMS Document is "_TYPE
|
|---|
| 19 | I ("^1^2^3^4^7^8^26^"[("^"_MOP_"^")) S MSG(2)="Use the option to process MOs and SOs."
|
|---|
| 20 | I MOP=21 S MSG(2)="Use the option to process SOs."
|
|---|
| 21 | D EN^DDIOL(.MSG) K MSG
|
|---|
| 22 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
