PACKAGE BODY: APPS.MTL_CST_TXN_COST_DETAILS_PKG

Source

1 PACKAGE BODY MTL_CST_TXN_COST_DETAILS_PKG as
2 /* $Header: CSTEACUB.pls 115.3 2003/08/25 04:29:46 anjgupta ship $ */
3 
4   PROCEDURE Insert_Row(
5 		       X_Rowid 			IN OUT NOCOPY  VARCHAR2,
6                        X_Transaction_Id                 NUMBER,
7                        X_Organization_Id                NUMBER,
8                        X_Cost_Element_Id                NUMBER,
9                        X_Level_Type                     NUMBER,
10                        X_Last_Update_Date               DATE,
11                        X_Last_Updated_By                NUMBER,
12                        X_Creation_Date                  DATE,
13                        X_Created_By                     NUMBER,
14                        X_Inventory_Item_Id              NUMBER,
15                        X_New_Average_Cost               NUMBER DEFAULT NULL,
16                        X_Percentage_Change              NUMBER DEFAULT NULL,
17                        X_Value_Change                   NUMBER DEFAULT NULL,
18 		       X_Transaction_Cost		NUMBER
19   ) IS
20 
21    BEGIN
22 
23        X_Rowid := 0;
24 
25        INSERT INTO mtl_cst_txn_cost_details(
26               transaction_id,
27               organization_id,
28               cost_element_id,
29               level_type,
30               last_update_date,
31               last_updated_by,
32               creation_date,
33               created_by,
34               inventory_item_id,
35               new_average_cost,
36               percentage_change,
37               value_change,
38 	      transaction_cost
39              ) VALUES (
40               X_Transaction_Id,
41               X_Organization_Id,
42               X_Cost_Element_Id,
43               X_Level_Type,
44               X_Last_Update_Date,
45               X_Last_Updated_By,
46               X_Creation_Date,
47               X_Created_By,
48               X_Inventory_Item_Id,
49               X_New_Average_Cost,
50               X_Percentage_Change,
51               X_Value_Change,
52 	      X_Transaction_Cost
53              );
54 
55  EXCEPTION
56  WHEN others then
57    X_Rowid := -1;
58 
59   END Insert_Row;
60 
61 
62   PROCEDURE Update_Row(X_Rowid                          VARCHAR2,
63                        X_Cost_Element_Id                NUMBER,
64                        X_Level_Type                     NUMBER,
65                        X_Last_Update_Date               DATE,
66                        X_Last_Updated_By                NUMBER,
67                        X_New_Average_Cost               NUMBER DEFAULT NULL,
68                        X_Percentage_Change              NUMBER DEFAULT NULL,
69                        X_Value_Change                   NUMBER DEFAULT NULL
70 
71   ) IS
72   BEGIN
73     UPDATE mtl_cst_txn_cost_details
74     SET
75        cost_element_id                 =     X_Cost_Element_Id,
76        level_type                      =     X_Level_Type,
77        last_update_date                =     X_Last_Update_Date,
78        last_updated_by                 =     X_Last_Updated_By,
79        new_average_cost                =     X_New_Average_Cost,
80        percentage_change               =     X_Percentage_Change,
81        value_change                    =     X_Value_Change
82     WHERE rowid = X_Rowid;
83 
84     if (SQL%NOTFOUND) then
85       Raise NO_DATA_FOUND;
86     end if;
87   END Update_Row;
88 
89   PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
90   BEGIN
91     DELETE FROM mtl_cst_txn_cost_details
92     WHERE rowid = X_Rowid;
93 
94     if (SQL%NOTFOUND) then
95       Raise NO_DATA_FOUND;
96     end if;
97   END Delete_Row;
98 
99   PROCEDURE Delete_Rows(X_Transaction_Id NUMBER)
100   IS BEGIN
101     DELETE FROM mtl_cst_txn_cost_details
102     WHERE transaction_id = X_Transaction_Id;
103     if (SQL%NOTFOUND) then
104       Raise NO_DATA_FOUND;
105     end if;
106   END Delete_Rows;
107 
108 END MTL_CST_TXN_COST_DETAILS_PKG;