1: PACKAGE BODY PA_EXPENDITURE_CATEGORIES_PKG as
2: /* $Header: PAXTECSB.pls 120.1 2005/08/09 04:32:19 avajain noship $ */
3:
4: PROCEDURE Insert_Row ( X_Expenditure_category VARCHAR2,
5: X_Last_update_date DATE,
31: X_Msg_Data OUT NOCOPY VARCHAR2
32: )
33: IS
34: BEGIN
35: INSERT INTO Pa_Expenditure_Categories
36: ( Expenditure_category,
37: Last_update_date,
38: Last_updated_by,
39: Creation_date,
134: IS
135:
136: CURSOR C IS
137: SELECT *
138: FROM Pa_Expenditure_Categories
139: WHERE Expenditure_Category = X_Expenditure_Category
140: FOR UPDATE of Expenditure_Category NOWAIT;
141:
142: Recinfo C%ROWTYPE;
227: WHEN FND_API.G_EXC_ERROR THEN
228: X_return_status := FND_API.G_RET_STS_ERROR;
229: X_msg_count := FND_MSG_PUB.count_msg;
230: FND_MSG_PUB.add_exc_msg
231: ( p_pkg_name => 'PA_EXPENDITURE_CATEGORIES_PKG' ,
232: p_procedure_name => 'Lock_Row');
233:
234: WHEN OTHERS THEN
235: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
236: X_msg_count := 1;
237: X_msg_data := SQLERRM;
238:
239: FND_MSG_PUB.add_exc_msg
240: ( p_pkg_name => 'PA_EXPENDITURE_CATEGORIES_PKG' ,
241: p_procedure_name => 'Lock_Row');
242: END;
243:
244:
272: X_Msg_Data OUT NOCOPY VARCHAR2
273: )
274: IS
275: CURSOR C IS
276: SELECT EXPENDITURE_CATEGORY FROM PA_EXPENDITURE_CATEGORIES
277: WHERE
278: Expenditure_Category = X_Expenditure_Category;
279: BEGIN
280: OPEN C;
280: OPEN C;
281: IF (C%NOTFOUND) then
282: RAISE No_Data_Found;
283: ELSE
284: UPDATE Pa_Expenditure_Categories SET
285: Expenditure_category = X_Expenditure_category ,
286: Last_update_date = X_Last_update_date ,
287: Last_updated_by = X_Last_updated_by ,
288: Creation_date = X_Creation_date ,
321: X_msg_count := 1;
322: X_msg_data := SQLERRM;
323:
324: FND_MSG_PUB.add_exc_msg
325: ( p_pkg_name => 'PA_EXPENDITURE_CATEGORIES_PKG' ,
326: p_procedure_name => 'Update_Row');
327:
328: END;
329:
326: p_procedure_name => 'Update_Row');
327:
328: END;
329:
330: END PA_EXPENDITURE_CATEGORIES_PKG;