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 ---[H[J[2J[HPRCFFUA3 2934 printed Oct 16, 2024@18:04:43 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
