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,
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:
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;