18: G_REQUEST_ID NUMBER := FND_GLOBAL.Conc_Request_Id;
19: G_VERSION_NUM NUMBER := 2.0;
20: */
21:
22: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
23: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
24: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
26:
19: G_VERSION_NUM NUMBER := 2.0;
20: */
21:
22: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
23: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
24: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
26:
27: PROCEDURE Create_Rank (p_api_version IN NUMBER := 2.0,
20: */
21:
22: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
23: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
24: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
26:
27: PROCEDURE Create_Rank (p_api_version IN NUMBER := 2.0,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
21:
22: AS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
23: AS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
24: AS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
25: AS_DEBUG_ERROR_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_ERROR);
26:
27: PROCEDURE Create_Rank (p_api_version IN NUMBER := 2.0,
28: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29: p_commit IN VARCHAR2 := FND_API.G_FALSE,
57: END IF;
58:
59: -- Initialize message list if p_init_msg_list is set to TRUE
60: IF FND_API.To_Boolean(p_init_msg_list) THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: -- Initialize API return status to success
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
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
91: ROLLBACK TO Create_Rank_PVT;
89:
90: WHEN FND_API.G_EXC_ERROR THEN
91: ROLLBACK TO Create_Rank_PVT;
92: x_return_status := FND_API.G_RET_STS_ERROR;
93: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
94:
95: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
96: ROLLBACK TO Create_Rank_PVT;
97: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94:
95: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
96: ROLLBACK TO Create_Rank_PVT;
97: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
98: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
99:
100: WHEN OTHERS THEN
101: ROLLBACK TO Create_Rank_PVT;
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99:
100: WHEN OTHERS THEN
101: ROLLBACK TO Create_Rank_PVT;
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
104: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
105: END IF;
106: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
107:
100: WHEN OTHERS THEN
101: ROLLBACK TO Create_Rank_PVT;
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
104: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
105: END IF;
106: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
107:
108: END Create_Rank;
102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
104: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
105: END IF;
106: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
107:
108: END Create_Rank;
109:
110: PROCEDURE Update_Rank (p_api_version IN NUMBER := 2.0,
138: END IF;
139:
140: -- Initialize message list if p_init_msg_list is set to TRUE
141: IF FND_API.To_Boolean(p_init_msg_list) THEN
142: FND_MSG_PUB.initialize;
143: END IF;
144:
145: l_sales_lead_rank_rec := p_sales_lead_rank_rec;
146:
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;
170: x_return_status := FND_API.G_RET_STS_ERROR;
167: EXCEPTION
168: WHEN FND_API.G_EXC_ERROR THEN
169: ROLLBACK TO Update_Rank_PVT;
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
172:
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: ROLLBACK TO Update_Rank_PVT;
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
172:
173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
174: ROLLBACK TO Update_Rank_PVT;
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
176: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
177:
178: WHEN OTHERS THEN
179: ROLLBACK TO Update_Rank_PVT;
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177:
178: WHEN OTHERS THEN
179: ROLLBACK TO Update_Rank_PVT;
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
182: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
183: END IF;
184: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
185: END Update_Rank;
178: WHEN OTHERS THEN
179: ROLLBACK TO Update_Rank_PVT;
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
182: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
183: END IF;
184: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
185: END Update_Rank;
186:
180: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
181: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
182: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
183: END IF;
184: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
185: END Update_Rank;
186:
187: Procedure Delete_Rank (p_api_version IN NUMBER := 2.0,
188: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
212: END IF;
213:
214: -- Initialize message list if p_init_msg_list is set to TRUE
215: IF FND_API.To_Boolean(p_init_msg_list) THEN
216: FND_MSG_PUB.initialize;
217: END IF;
218:
219: l_sales_lead_rank_id := p_sales_lead_rank_id;
220:
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;
246: x_return_status := FND_API.G_RET_STS_ERROR;
243: EXCEPTION
244: WHEN FND_API.G_EXC_ERROR THEN
245: ROLLBACK TO Delete_Rank_PVT;
246: x_return_status := FND_API.G_RET_STS_ERROR;
247: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: ROLLBACK TO Delete_Rank_PVT;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
248:
249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
250: ROLLBACK TO Delete_Rank_PVT;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
253:
254: WHEN OTHERS THEN
255: ROLLBACK TO Delete_Rank_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
253:
254: WHEN OTHERS THEN
255: ROLLBACK TO Delete_Rank_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
258: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
259: END IF;
260: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
261: END DELETE_RANK;
254: WHEN OTHERS THEN
255: ROLLBACK TO Delete_Rank_PVT;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
258: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
259: END IF;
260: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
261: END DELETE_RANK;
262:
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
257: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
258: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
259: END IF;
260: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
261: END DELETE_RANK;
262:
263: END;