APPS.PA_STANDARD_UNIT_COSTS_PKG dependencies on PA_STANDARD_UNIT_COSTS

Line 1: PACKAGE BODY PA_STANDARD_UNIT_COSTS_PKG as

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,

Line 17: FROM pa_standard_unit_costs

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:

Line 24: INSERT INTO pa_standard_unit_costs(

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,

Line 55: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STANDARD_UNIT_COSTS_PKG',

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:

Line 71: FROM pa_standard_unit_costs

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;

Line 72: WHERE pa_standard_unit_costs.ROWID = X_Rowid

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:

Line 111: UPDATE pa_standard_unit_costs

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,

Line 130: fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_STANDARD_UNIT_COSTS_PKG',

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;

Line 142: DELETE FROM pa_standard_unit_costs

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;

Line 151: END PA_STANDARD_UNIT_COSTS_PKG;

147: END IF;
148: END Delete_Row;
149:
150:
151: END PA_STANDARD_UNIT_COSTS_PKG;