63 lines
2.8 KiB
Mathematica
63 lines
2.8 KiB
Mathematica
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
|