source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFFUA3.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.8 KB
Line 
1PRCFFUA3 ;WISC/SJG-ROUTINE TO PROCESS OBLIGATIONS CONT ;6/13/94 14:34
2V ;;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 ;
8MSG1 K MSG W !! S MSG="...now recalculating FMS accounting lines..." D EN^DDIOL(MSG) K MSG W !
9 Q
10MSG2 K MSG W !! S MSG(1)="...Cost Center is missing - cannot continue..."
11MSG21 S MSG(2)=" ",MSG(3)="No further action is being taken on this obligation."
12 D EN^DDIOL(.MSG) K MSG W !
13 Q
14MSG3 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
17MSG4 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
20MSG5 K MSG W !! S MSG="...now changing the BOCs on all line items..."
21 D EN^DDIOL(MSG) K MSG W !
22 Q
23MSG6 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
30MSG7 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
35MSG8 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
42MSG9 W ! D EN^DDIOL("...returning to the Amendment Obligation processing...") W !
43 Q
44MSG10 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
53MSG11 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
Note: See TracBrowser for help on using the repository browser.