| [613] | 1 | PRCFFUA3 ;WISC/SJG-ROUTINE TO PROCESS OBLIGATIONS CONT ;6/13/94 14:34
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ; Allows Fiscal to edit BOCs prior to PO amendment obligation
|
|---|
| 5 | ; only the BOCs on the amendment can be edited
|
|---|
| 6 | ; Message processing routine
|
|---|
| 7 | ;
|
|---|
| 8 | MSG1 K MSG W !! S MSG="...now recalculating FMS accounting lines..." D EN^DDIOL(MSG) K MSG W !
|
|---|
| 9 | Q
|
|---|
| 10 | MSG2 K MSG W !! S MSG(1)="...Cost Center is missing - cannot continue..."
|
|---|
| 11 | MSG21 S MSG(2)=" ",MSG(3)="No further action is being taken on this obligation."
|
|---|
| 12 | D EN^DDIOL(.MSG) K MSG W !
|
|---|
| 13 | Q
|
|---|
| 14 | 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."
|
|---|
| 15 | D EN^DDIOL(.MSG) K MSG W !
|
|---|
| 16 | Q
|
|---|
| 17 | 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"
|
|---|
| 18 | D ^DIR K DIR
|
|---|
| 19 | Q
|
|---|
| 20 | MSG5 K MSG W !! S MSG="...now changing the BOCs on all line items..."
|
|---|
| 21 | D EN^DDIOL(MSG) K MSG W !
|
|---|
| 22 | Q
|
|---|
| 23 | MSG6 I (BOCEDIT=1)!(ESHEDIT=1) Q
|
|---|
| 24 | K MSG W !
|
|---|
| 25 | S:BOCEDIT=0 MSG(1)="BOC has not changed.",MSG(2)=" "
|
|---|
| 26 | S MSG(3)="No further editing is being done on this obligation.",MSG(4)=" "
|
|---|
| 27 | S MSG(5)="...returning to the Amendment Obligation processing..."
|
|---|
| 28 | D EN^DDIOL(.MSG) K MSG W !
|
|---|
| 29 | Q
|
|---|
| 30 | MSG7 K MSG W !! S MSG(1)="BOCs cannot be edited for Supply Fund orders."
|
|---|
| 31 | S MSG(2)=" "
|
|---|
| 32 | S MSG(3)="...returning to the Amendment Obligation processing..."
|
|---|
| 33 | D EN^DDIOL(.MSG) K MSG
|
|---|
| 34 | Q
|
|---|
| 35 | MSG8 K MSG W !!
|
|---|
| 36 | S MSG(1)="For Purchase Order amendments, only the BOCs for the amended items"
|
|---|
| 37 | S MSG(2)="can be edited at this time. To edit the Cost Center or BOCs on other"
|
|---|
| 38 | S MSG(3)="items requires that the amendment be returned to Supply for these"
|
|---|
| 39 | S MSG(4)="changes to be made."
|
|---|
| 40 | D EN^DDIOL(.MSG) K MSG
|
|---|
| 41 | Q
|
|---|
| 42 | MSG9 W ! D EN^DDIOL("...returning to the Amendment Obligation processing...") W !
|
|---|
| 43 | Q
|
|---|
| 44 | MSG10 K MSG W !!
|
|---|
| 45 | S MSG(1)="A BOC for Estimated Shipping and/or Handling already exists and may have been"
|
|---|
| 46 | S MSG(2)="established in FMS under the original Purchase Order obligation or a previous"
|
|---|
| 47 | S MSG(3)="Purchase Order amendment. According to FMS, once established, the BOC for"
|
|---|
| 48 | S MSG(4)="Estimated Shipping and/or Handling cannot be changed.",MSG(4.5)=" "
|
|---|
| 49 | S MSG(5)="Changing the Estimated Shipping and/or Handling BOC on an amendment"
|
|---|
| 50 | S MSG(6)="will cause this document to reject."
|
|---|
| 51 | D EN^DDIOL(.MSG) W ! K MSG
|
|---|
| 52 | Q
|
|---|
| 53 | MSG11 K MSG W !!
|
|---|
| 54 | S MSG(1)="Estimated Shipping BOC on original Purchase Order:"
|
|---|
| 55 | S MSG(2)=" "_OESHBOC
|
|---|
| 56 | S MSG(3)="Estimated Shipping BOC for this amendment on Purchase Order:"
|
|---|
| 57 | S MSG(4)=" "_AESHBOC,MSG(4.5)=" "
|
|---|
| 58 | S MSG(5)="Since the Estimated Shipping BOCs are different, further processing"
|
|---|
| 59 | S MSG(6)="of the amendment for this Purchase Order cannot continue!",MSG(6.5)=" "
|
|---|
| 60 | S MSG(7)="The amendment must be returned to Supply!"
|
|---|
| 61 | D EN^DDIOL(.MSG) K MSG W !
|
|---|
| 62 | Q
|
|---|
