PRCFFERM.m

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 ---PRCFFERM   1127     printed  Mar 13, 2025@21:08:11                                                                                                                                                                                                    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