PRCFFUA3.m

PRCFFUA3 ;WISC/SJG-ROUTINE TO PROCESS OBLIGATIONS CONT ;6/13/94  14:34

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

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

 ; Allows Fiscal to edit BOCs prior to PO amendment obligation

 ; only the BOCs on the amendment can be edited

 ; Message processing routine

 ;

MSG1 K MSG W !! S MSG="...now recalculating FMS accounting lines..." D EN^DDIOL(MSG) K MSG W !

 Q

MSG2 K MSG W !! S MSG(1)="...Cost Center is missing - cannot continue..."

MSG21 S MSG(2)=" ",MSG(3)="No further action is being taken on this obligation."

 D EN^DDIOL(.MSG) K MSG W !

 Q

MSG3 K MSG W !! S MSG(1)="BOC '"_SA_"' is not valid with Cost Center "_$P(PO(0),U,5)_".",MSG(2)="Please ensure that this BOC is properly linked with the Cost Center."

 D EN^DDIOL(.MSG) K MSG W !

 Q

MSG4 W !! S DIR(0)="Y",DIR("A",1)="I will now enter BOC '"_SA_"' on all line items.",DIR("A")="Is this OK",DIR("B")="YES"

 D ^DIR K DIR

 Q

MSG5 K MSG W !! S MSG="...now changing the BOCs on all line items..."

 D EN^DDIOL(MSG) K MSG W !

 Q

MSG6 I (BOCEDIT=1)!(ESHEDIT=1) Q

 K MSG W !

 S:BOCEDIT=0 MSG(1)="BOC has not changed.",MSG(2)=" "

 S MSG(3)="No further editing is being done on this obligation.",MSG(4)=" "

 S MSG(5)="...returning to the Amendment Obligation processing..."

 D EN^DDIOL(.MSG) K MSG W !

 Q

MSG7 K MSG W !! S MSG(1)="BOCs cannot be edited for Supply Fund orders."

 S MSG(2)=" "

 S MSG(3)="...returning to the Amendment Obligation processing..."

 D EN^DDIOL(.MSG) K MSG

 Q

MSG8 K MSG W !!

 S MSG(1)="For Purchase Order amendments, only the BOCs for the amended items"

 S MSG(2)="can be edited at this time.  To edit the Cost Center or BOCs on other"

 S MSG(3)="items requires that the amendment be returned to Supply for these"

 S MSG(4)="changes to be made."

 D EN^DDIOL(.MSG) K MSG

 Q

MSG9 W ! D EN^DDIOL("...returning to the Amendment Obligation processing...") W !

 Q

MSG10 K MSG W !!

 S MSG(1)="A BOC for Estimated Shipping and/or Handling already exists and may have been"

 S MSG(2)="established in FMS under the original Purchase Order obligation or a previous"

 S MSG(3)="Purchase Order amendment.  According to FMS, once established, the BOC for"

 S MSG(4)="Estimated Shipping and/or Handling cannot be changed.",MSG(4.5)=" "

 S MSG(5)="Changing the Estimated Shipping and/or Handling BOC on an amendment"

 S MSG(6)="will cause this document to reject."

 D EN^DDIOL(.MSG) W ! K MSG

 Q

MSG11 K MSG W !!

 S MSG(1)="Estimated Shipping BOC on original Purchase Order:"

 S MSG(2)="    "_OESHBOC

 S MSG(3)="Estimated Shipping BOC for this amendment on Purchase Order:"

 S MSG(4)="    "_AESHBOC,MSG(4.5)="  "

 S MSG(5)="Since the Estimated Shipping BOCs are different, further processing"

 S MSG(6)="of the amendment for this Purchase Order cannot continue!",MSG(6.5)="  "

 S MSG(7)="The amendment must be returned to Supply!"

 D EN^DDIOL(.MSG) K MSG W !

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFFUA3   2934     printed  Feb 18, 2025@23:30:21                                                                                                                                                                                                    Page 2

PRCFFUA3  ;WISC/SJG-ROUTINE TO PROCESS OBLIGATIONS CONT ;6/13/94  14:34

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

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

 +2       ; Allows Fiscal to edit BOCs prior to PO amendment obligation

 +3       ; only the BOCs on the amendment can be edited

 +4       ; Message processing routine

 +5       ;

MSG1       KILL MSG

           WRITE !!

           SET MSG="...now recalculating FMS accounting lines..."

           DO EN^DDIOL(MSG)

           KILL MSG

           WRITE !

 +1        QUIT 

MSG2       KILL MSG

           WRITE !!

           SET MSG(1)="...Cost Center is missing - cannot continue..."

MSG21      SET MSG(2)=" "

           SET MSG(3)="No further action is being taken on this obligation."

 +1        DO EN^DDIOL(.MSG)

           KILL MSG

           WRITE !

 +2        QUIT 

MSG3       KILL MSG

           WRITE !!

           SET MSG(1)="BOC '"_SA_"' is not valid with Cost Center "_$PIECE(PO(0),U,5)_"."

           SET MSG(2)="Please ensure that this BOC is properly linked with the Cost Center."

 +1        DO EN^DDIOL(.MSG)

           KILL MSG

           WRITE !

 +2        QUIT 

MSG4       WRITE !!

           SET DIR(0)="Y"

           SET DIR("A",1)="I will now enter BOC '"_SA_"' on all line items."

           SET DIR("A")="Is this OK"

           SET DIR("B")="YES"

 +1        DO ^DIR

           KILL DIR

 +2        QUIT 

MSG5       KILL MSG

           WRITE !!

           SET MSG="...now changing the BOCs on all line items..."

 +1        DO EN^DDIOL(MSG)

           KILL MSG

           WRITE !

 +2        QUIT 

MSG6       IF (BOCEDIT=1)!(ESHEDIT=1)

               QUIT 

 +1        KILL MSG

           WRITE !

 +2        if BOCEDIT=0

               SET MSG(1)="BOC has not changed."

               SET MSG(2)=" "

 +3        SET MSG(3)="No further editing is being done on this obligation."

           SET MSG(4)=" "

 +4        SET MSG(5)="...returning to the Amendment Obligation processing..."

 +5        DO EN^DDIOL(.MSG)

           KILL MSG

           WRITE !

 +6        QUIT 

MSG7       KILL MSG

           WRITE !!

           SET MSG(1)="BOCs cannot be edited for Supply Fund orders."

 +1        SET MSG(2)=" "

 +2        SET MSG(3)="...returning to the Amendment Obligation processing..."

 +3        DO EN^DDIOL(.MSG)

           KILL MSG

 +4        QUIT 

MSG8       KILL MSG

           WRITE !!

 +1        SET MSG(1)="For Purchase Order amendments, only the BOCs for the amended items"

 +2        SET MSG(2)="can be edited at this time.  To edit the Cost Center or BOCs on other"

 +3        SET MSG(3)="items requires that the amendment be returned to Supply for these"

 +4        SET MSG(4)="changes to be made."

 +5        DO EN^DDIOL(.MSG)

           KILL MSG

 +6        QUIT 

MSG9       WRITE !

           DO EN^DDIOL("...returning to the Amendment Obligation processing...")

           WRITE !

 +1        QUIT 

MSG10      KILL MSG

           WRITE !!

 +1        SET MSG(1)="A BOC for Estimated Shipping and/or Handling already exists and may have been"

 +2        SET MSG(2)="established in FMS under the original Purchase Order obligation or a previous"

 +3        SET MSG(3)="Purchase Order amendment.  According to FMS, once established, the BOC for"

 +4        SET MSG(4)="Estimated Shipping and/or Handling cannot be changed."

           SET MSG(4.5)=" "

 +5        SET MSG(5)="Changing the Estimated Shipping and/or Handling BOC on an amendment"

 +6        SET MSG(6)="will cause this document to reject."

 +7        DO EN^DDIOL(.MSG)

           WRITE !

           KILL MSG

 +8        QUIT 

MSG11      KILL MSG

           WRITE !!

 +1        SET MSG(1)="Estimated Shipping BOC on original Purchase Order:"

 +2        SET MSG(2)="    "_OESHBOC

 +3        SET MSG(3)="Estimated Shipping BOC for this amendment on Purchase Order:"

 +4        SET MSG(4)="    "_AESHBOC

           SET MSG(4.5)="  "

 +5        SET MSG(5)="Since the Estimated Shipping BOCs are different, further processing"

 +6        SET MSG(6)="of the amendment for this Purchase Order cannot continue!"

           SET MSG(6.5)="  "

 +7        SET MSG(7)="The amendment must be returned to Supply!"

 +8        DO EN^DDIOL(.MSG)

           KILL MSG

           WRITE !

 +9        QUIT