- 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 ---[H[J[2J[HPRCFFM3M 669 printed Feb 18, 2025@23:29:51 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