PACKAGE BODY: APPS.B_RTG_REVS_PKG

Source

1 PACKAGE BODY B_RTG_REVS_PKG as
2 /* $Header: bompirrb.pls 115.3 2003/04/01 10:21:52 djebar ship $ */
3 
4   PROCEDURE Check_Order (X_Effectivity_Date 	   	DATE,
5 			 X_Inventory_Item_Id		NUMBER,
6 			 X_Organization_Id		NUMBER,
7 			 X_Process_Revision		VARCHAR2) IS
8   dummy NUMBER;
9   BEGIN
10     SELECT 1
11       INTO dummy
12       FROM dual
13      WHERE X_Effectivity_Date >
14                 (SELECT nvl(max(effectivity_date), X_Effectivity_Date-1)
15                    FROM mtl_rtg_item_revisions
16                   WHERE inventory_item_id = X_Inventory_Item_Id
17 	            AND organization_id   = X_Organization_Id
18                     AND process_revision  < X_Process_Revision)
19        AND X_Effectivity_Date <
20                 (SELECT nvl(min(effectivity_date), X_Effectivity_Date+1)
21                    FROM mtl_rtg_item_revisions
22                   WHERE inventory_item_id = X_Inventory_Item_Id
23                     and organization_id   = X_Organization_Id
24                     and process_revision  > X_Process_Revision);
25   EXCEPTION
26     WHEN NO_DATA_FOUND then
27       FND_MESSAGE.SET_NAME('BOM','BOM_REVISION_ORDER');
28       APP_EXCEPTION.RAISE_EXCEPTION;
29   END Check_Order;
30 
31   PROCEDURE Check_Unique(X_Organization_Id              NUMBER,
32 			 X_Inventory_Item_Id		NUMBER,
33 			 X_Process_Revision		VARCHAR2) IS
34   dummy NUMBER;
35   BEGIN
36     SELECT 1
37       INTO dummy
38       FROM dual
39      WHERE not exists (SELECT 1 from mtl_rtg_item_revisions
40                         WHERE organization_id   = X_Organization_Id
41                           AND inventory_item_id = X_Inventory_Item_Id
42 			  AND process_revision  = X_Process_Revision
43                        );
44   EXCEPTION
45     WHEN NO_DATA_FOUND then
46       FND_MESSAGE.SET_NAME('MRP','GEN-DUPLICATE NAME');
47       FND_MESSAGE.SET_TOKEN('ENTITY','revision',TRUE);
48       APP_EXCEPTION.RAISE_EXCEPTION;
49   END Check_Unique;
50 
51 END B_RTG_REVS_PKG;