APPS.PA_STANDARD_UNIT_COSTS_PKG dependencies on STANDARD

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 7: X_Standard_Unit_Cost NUMBER,

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,

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 27: standard_unit_cost,

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,

Line 36: X_Standard_Unit_Cost,

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,

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 66: X_Standard_Unit_Cost NUMBER

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 *

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 73: FOR UPDATE of Standard_Unit_Cost NOWAIT;

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:

Line 90: AND (Recinfo.standard_unit_cost = X_Standard_Unit_Cost)

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');

Line 104: X_Standard_Unit_Cost NUMBER,

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

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 115: standard_unit_cost = X_Standard_Unit_Cost,

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;

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;