PRCFFERM ;WISC/SJG-OBLIGATION ERROR PROCESSING MESSAGES ;6/17/11 17:55
V ;;5.1;IFCAP;**158**;Oct 20, 2000;Build 1
;Per VHA Directive 2004-038, this routine should not be modified.
QUIT
; No top level entry
;
MSG1 ; Message Processing
W !!,"This document is not a Miscellaneous Order (MO) or a Service Order (SO).",!,"Error processing cannot continue using this routine.",!!
Q
MSG2 W !!,"This Purchase Order or 1358 source document is not found. Error processing",!,"cannot continue."
Q
MSG3 W !!,"The Method of Processing is missing. Error processing cannot continue.",!!
Q
MSG4 W !!,"No further action taken on this rejected document.",!!
Q
MSG5 K MSG N TYPE
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 Obligation.")
S MSG(1)="This FMS Document is "_TYPE
I ("^1^2^3^4^7^8^26^"[("^"_MOP_"^")) S MSG(2)="Use the option to process MOs and SOs."
I MOP=21 S MSG(2)="Use the option to process SOs."
D EN^DDIOL(.MSG) K MSG
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCFFERM 1127 printed Oct 16, 2024@18:04:08 Page 2
PRCFFERM ;WISC/SJG-OBLIGATION ERROR PROCESSING MESSAGES ;6/17/11 17:55
V ;;5.1;IFCAP;**158**;Oct 20, 2000;Build 1
+1 ;Per VHA Directive 2004-038, this routine should not be modified.
+2 QUIT
+3 ; No top level entry
+4 ;
MSG1 ; Message Processing
+1 WRITE !!,"This document is not a Miscellaneous Order (MO) or a Service Order (SO).",!,"Error processing cannot continue using this routine.",!!
+2 QUIT
MSG2 WRITE !!,"This Purchase Order or 1358 source document is not found. Error processing",!,"cannot continue."
+1 QUIT
MSG3 WRITE !!,"The Method of Processing is missing. Error processing cannot continue.",!!
+1 QUIT
MSG4 WRITE !!,"No further action taken on this rejected document.",!!
+1 QUIT
MSG5 KILL MSG
NEW TYPE
+1 SET TYPE=$SELECT(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 Obligation.")
+2 SET MSG(1)="This FMS Document is "_TYPE
+3 IF ("^1^2^3^4^7^8^26^"[("^"_MOP_"^"))
SET MSG(2)="Use the option to process MOs and SOs."
+4 IF MOP=21
SET MSG(2)="Use the option to process SOs."
+5 DO EN^DDIOL(.MSG)
KILL MSG
+6 QUIT
