47: CURSOR c1 IS SELECT 'X' FROM AS_SALES_LEAD_RANKS_B
48: WHERE rank_id = p_sales_lead_rank_rec.RANK_ID;
49:
50: BEGIN
51: -- Standard start of API savepoint
52: SAVEPOINT Create_Rank_PVT;
53:
54: -- Standard call to check for call compatibility
55: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
50: BEGIN
51: -- Standard start of API savepoint
52: SAVEPOINT Create_Rank_PVT;
53:
54: -- Standard call to check for call compatibility
55: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58:
77: x_return_status := l_return_status;
78: --dbms_output.put_line('public API returns ' || l_return_status);
79: -- End of API body
80:
81: -- Standard check of p_commit
82: IF FND_API.To_Boolean(p_commit) THEN
83: COMMIT WORK;
84: END IF;
85:
82: IF FND_API.To_Boolean(p_commit) THEN
83: COMMIT WORK;
84: END IF;
85:
86: -- Standard call to get message count and if count is 1, get message info
87: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
88: EXCEPTION
89:
90: WHEN FND_API.G_EXC_ERROR THEN
128: CURSOR c1 IS SELECT 'X' FROM AS_SALES_LEAD_RANKS_B
129: WHERE rank_id = p_sales_lead_rank_rec.RANK_ID;
130:
131: BEGIN
132: -- Standard start of API savepoint
133: SAVEPOINT Update_Rank_PVT;
134:
135: -- Standard call to check for call compatibility
136: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
131: BEGIN
132: -- Standard start of API savepoint
133: SAVEPOINT Update_Rank_PVT;
134:
135: -- Standard call to check for call compatibility
136: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
138: END IF;
139:
156: p_sales_lead_rank_rec => l_sales_lead_rank_rec);
157: x_return_status := l_return_status;
158: -- End of API body
159:
160: -- Standard check of p_commit
161: IF FND_API.To_Boolean(p_commit) THEN
162: COMMIT WORK;
163: END IF;
164:
161: IF FND_API.To_Boolean(p_commit) THEN
162: COMMIT WORK;
163: END IF;
164:
165: -- Standard call to get message count and if count is 1, get message info
166: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
167: EXCEPTION
168: WHEN FND_API.G_EXC_ERROR THEN
169: ROLLBACK TO Update_Rank_PVT;
202: l_sales_lead_rank_id NUMBER;
203: l_dummy CHAR(1);
204:
205: BEGIN
206: -- Standard start of API savepoint
207: SAVEPOINT Delete_Rank_PVT;
208:
209: -- Standard call to check for call compatibility
210: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
205: BEGIN
206: -- Standard start of API savepoint
207: SAVEPOINT Delete_Rank_PVT;
208:
209: -- Standard call to check for call compatibility
210: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
211: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
212: END IF;
213:
231: p_sales_lead_rank_id => l_sales_lead_rank_id);
232: x_return_status := l_return_status;
233: -- End of API body
234:
235: -- Standard check of p_commit
236: IF FND_API.To_Boolean(p_commit) THEN
237: COMMIT WORK;
238: --dbms_output.put_line('after delete pvt - commit');
239: END IF;
237: COMMIT WORK;
238: --dbms_output.put_line('after delete pvt - commit');
239: END IF;
240:
241: -- Standard call to get message count and if count is 1, get message info
242: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
243: EXCEPTION
244: WHEN FND_API.G_EXC_ERROR THEN
245: ROLLBACK TO Delete_Rank_PVT;