PRCFFM3M.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFFM3M   669     printed  Apr 09, 2024@21:15:47                                                                                                                                                                                                     Page 2

PRCFFM3M  ;WISC/SJG-ROUTINE TO PROCESS AMENDMENT OBLIGATIONS ;5/9/94  3:07 PM

V         ;;5.1;IFCAP;;Oct 20, 2000

 +1       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +2       ;

 +3        QUIT 

 +4       ; Message processing for amendment obligation

NOA       ;

 +1        WRITE !

           SET MSG(1)="NO AMENDMENT EXISTS FOR THIS ORDER - PLEASE CHECK WITH SUPPLY."

 +2        SET MSG(2)="OPTION IS BEING ABORTED."

 +3        DO EN^DDIOL(.MSG)

           KILL MSG

           WRITE !

 +4        QUIT 

MSG       ;

 +1        WRITE !

           DO EN^DDIOL("No further processing is being taken on this amendment obligation.")

 +2        QUIT 

MSG1      ;

 +1        WRITE !

           KILL MSG

 +2        SET MSG(1)="     This Purchase Order has been tampered with."

 +3        SET MSG(2)="     Please notify IFCAP APPLICATION COORDINATOR."

 +4        DO EN^DDIOL(.MSG)

           KILL MSG

           WRITE !

 +5        QUIT