[Home] [Help]
PACKAGE BODY: APPS.PA_STANDARD_UNIT_COSTS_PKG
Source
1 PACKAGE BODY PA_STANDARD_UNIT_COSTS_PKG as
2 /* $Header: PAXSUCSB.pls 120.1 2005/08/09 04:32:00 avajain noship $ */
3
4 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
5 X_Book_Type_Code VARCHAR2,
6 X_Asset_Category_ID NUMBER,
7 X_Standard_Unit_Cost NUMBER,
8 X_Last_Update_Date DATE,
9 X_Last_Updated_By NUMBER,
10 X_Creation_Date DATE,
11 X_Created_By NUMBER,
12 X_Last_Update_Login NUMBER
13 ) IS
14
15 CURSOR C IS
16 SELECT rowid
17 FROM pa_standard_unit_costs
18 WHERE book_type_code = X_Book_Type_Code
19 AND asset_category_id = X_Asset_Category_ID;
20
21
22 BEGIN
23
24 INSERT INTO pa_standard_unit_costs(
25 book_type_code,
26 asset_category_id,
27 standard_unit_cost,
28 last_update_date,
29 last_updated_by,
30 creation_date,
31 created_by,
32 last_update_login
33 ) VALUES (
34 X_Book_Type_Code,
35 X_Asset_Category_ID,
36 X_Standard_Unit_Cost,
37 X_Last_Update_Date,
38 X_Last_Updated_By,
39 X_Creation_Date,
40 X_Created_By,
41 X_Last_Update_Login
42 );
43
44 OPEN C;
45 FETCH C INTO X_Rowid;
46 IF (C%NOTFOUND) THEN
47 CLOSE C;
48 RAISE NO_DATA_FOUND;
49 END IF;
50 CLOSE C;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 ROLLBACK;
55 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STANDARD_UNIT_COSTS_PKG',
56 p_procedure_name => 'INSERT_ROW',
57 p_error_text => SUBSTRB(SQLERRM,1,240));
58 RAISE;
59
60 END Insert_Row;
61
62
63 PROCEDURE Lock_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
64 X_Book_Type_Code VARCHAR2,
65 X_Asset_Category_ID NUMBER,
66 X_Standard_Unit_Cost NUMBER
67 ) IS
68
69 CURSOR C IS
70 SELECT *
71 FROM pa_standard_unit_costs
72 WHERE pa_standard_unit_costs.ROWID = X_Rowid
73 FOR UPDATE of Standard_Unit_Cost NOWAIT;
74
75 Recinfo C%ROWTYPE;
76
77
78 BEGIN
79 OPEN C;
80 FETCH C INTO Recinfo;
81 IF (C%NOTFOUND) THEN
82 CLOSE C;
83 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
84 APP_EXCEPTION.Raise_Exception;
85 END IF;
86 CLOSE C;
87 IF (
88 (Recinfo.book_type_code = X_Book_Type_Code)
89 AND (Recinfo.asset_category_id = X_Asset_Category_ID)
90 AND (Recinfo.standard_unit_cost = X_Standard_Unit_Cost)
91 ) THEN
92 RETURN;
93 ELSE
94 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
95 APP_EXCEPTION.Raise_Exception;
96 END IF;
97 END Lock_Row;
98
99
100
101 PROCEDURE Update_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
102 X_Book_Type_Code VARCHAR2,
103 X_Asset_Category_ID NUMBER,
104 X_Standard_Unit_Cost NUMBER,
105 X_Last_Update_Date DATE,
106 X_Last_Updated_By NUMBER,
107 X_Last_Update_Login NUMBER
108 ) IS
109
110 BEGIN
111 UPDATE pa_standard_unit_costs
112 SET
113 book_type_code = X_Book_Type_Code,
114 asset_category_id = X_Asset_Category_ID,
115 standard_unit_cost = X_Standard_Unit_Cost,
116 last_update_date = X_Last_Update_Date,
117 last_updated_by = X_Last_Updated_By,
118 last_update_login = X_Last_Update_Login
119 WHERE rowid = X_Rowid;
120
121 IF (SQL%NOTFOUND) THEN
122 RAISE NO_DATA_FOUND;
123 END IF;
124
125 EXCEPTION
126 WHEN NO_DATA_FOUND THEN
127 RAISE;
128 WHEN OTHERS THEN
129 ROLLBACK;
130 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STANDARD_UNIT_COSTS_PKG',
131 p_procedure_name => 'UPDATE_ROW',
132 p_error_text => SUBSTRB(SQLERRM,1,240));
133 RAISE;
134 END Update_Row;
135
136
137 PROCEDURE Delete_Row(X_Rowid VARCHAR2,
138 X_Book_Type_Code VARCHAR2,
139 X_Asset_Category_ID NUMBER) IS
140 BEGIN
141
142 DELETE FROM pa_standard_unit_costs
143 WHERE rowid = X_Rowid;
144
145 IF (SQL%NOTFOUND) THEN
146 RAISE NO_DATA_FOUND;
147 END IF;
148 END Delete_Row;
149
150
151 END PA_STANDARD_UNIT_COSTS_PKG;