PACKAGE BODY: APPS.BOM_TA_EXCLUSIONS_PVT

Source

1 PACKAGE BODY BOM_TA_EXCLUSIONS_PVT AS
2 /* $Header: BOMVTAXB.pls 120.0.12010000.1 2009/03/17 22:46:21 kkonada noship $ */
3 
4 PROCEDURE Delete_Item_TA_Exclusions (p_del_comp_seq NUMBER,
5                                      x_return_status OUT NOCOPY VARCHAR2) IS
6 l_bill_seq_id   NUMBER;
7 l_comp_item_id Number;
8 
9 CURSOR C_bic(p_comp_seq_id Number) IS
10   SELECT bill_sequence_id,component_item_id
11     FROM bom_inventory_components
12    WHERE component_sequence_id = p_del_comp_seq;
13 
14 BEGIN
15 
16   x_Return_Status := FND_API.G_RET_STS_SUCCESS;
17 
18   FOR c_comp_level IN C_bic(p_del_comp_seq) LOOP
19     l_bill_seq_id := c_comp_level.bill_sequence_id;
20     l_comp_item_id := c_comp_level.component_item_id;
21   END LOOP;
22 
23  DELETE FROM BOM_TA_VAL_EXCLUSION_DEF_B
24       WHERE EXCLUSION_RULE_ID IN
25       (SELECT EXCLUSION_RULE_ID FROM BOM_TA_VAL_EXCLUSION_RULES_B
26        WHERE COMPONENT_ITEM_ID = l_comp_item_id
27        AND PARENT_BILL_SEQ_ID = l_bill_seq_id
28        AND 1 = (SELECT COUNT(*)
29                FROM BOM_INVENTORY_COMPONENTS
30 	       WHERE  COMPONENT_ITEM_ID = l_comp_item_id
31 	       AND BILL_SEQUENCE_ID = l_bill_seq_id)
32       );
33 
34 
35 DELETE FROM BOM_TA_VAL_EXCLUSION_RULES_B
36       WHERE EXCLUSION_RULE_ID IN
37       (SELECT EXCLUSION_RULE_ID FROM BOM_TA_VAL_EXCLUSION_RULES_B
38        WHERE COMPONENT_ITEM_ID = l_comp_item_id
39        AND PARENT_BILL_SEQ_ID = l_bill_seq_id
40        AND 1 = (SELECT COUNT(*)
41                FROM BOM_INVENTORY_COMPONENTS
42 	       WHERE  COMPONENT_ITEM_ID = l_comp_item_id
43 	       AND BILL_SEQUENCE_ID = l_bill_seq_id)
44       );
45 
46 
47 
48 EXCEPTION WHEN OTHERS THEN
49     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
50 
51 END Delete_Item_TA_Exclusions;
52 
53 
54 
55 END BOM_TA_EXCLUSIONS_PVT;
56