[Home] [Help]
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;