22: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
23:
24: PROCEDURE Create_List_Query(
25: p_api_version_number IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28:
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
23:
24: PROCEDURE Create_List_Query(
25: p_api_version_number IN NUMBER,
26: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28:
29: x_return_status OUT NOCOPY VARCHAR2,
30: x_msg_count OUT NOCOPY NUMBER,
31: x_msg_data OUT NOCOPY VARCHAR2,
42: -- Standard Start of API savepoint
43: SAVEPOINT CREATE_List_Query_PUB;
44:
45: -- Standard call to check for call compatibility.
46: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
47: p_api_version_number,
48: l_api_name,
49: G_PKG_NAME)
50: THEN
47: p_api_version_number,
48: l_api_name,
49: G_PKG_NAME)
50: THEN
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55: IF FND_API.to_Boolean( p_init_msg_list )
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: END IF;
53:
54: -- Initialize message list if p_init_msg_list is set to TRUE.
55: IF FND_API.to_Boolean( p_init_msg_list )
56: THEN
57: FND_MSG_PUB.initialize;
58: END IF;
59:
64: END IF;
65:
66:
67: -- Initialize API return status to SUCCESS
68: x_return_status := FND_API.G_RET_STS_SUCCESS;
69:
70: --
71: -- API body
72: --
73: -- Calling Private package: Create_List_Query
74: -- Hint: Primary key needs to be returned
75: AMS_List_Query_PVT.Create_List_Query(
76: p_api_version_number => 1.0,
77: p_init_msg_list => FND_API.G_FALSE,
78: p_commit => FND_API.G_FALSE,
79: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
80: x_return_status => x_return_status,
81: x_msg_count => x_msg_count,
74: -- Hint: Primary key needs to be returned
75: AMS_List_Query_PVT.Create_List_Query(
76: p_api_version_number => 1.0,
77: p_init_msg_list => FND_API.G_FALSE,
78: p_commit => FND_API.G_FALSE,
79: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
80: x_return_status => x_return_status,
81: x_msg_count => x_msg_count,
82: x_msg_data => x_msg_data,
75: AMS_List_Query_PVT.Create_List_Query(
76: p_api_version_number => 1.0,
77: p_init_msg_list => FND_API.G_FALSE,
78: p_commit => FND_API.G_FALSE,
79: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
80: x_return_status => x_return_status,
81: x_msg_count => x_msg_count,
82: x_msg_data => x_msg_data,
83: p_list_query_rec => l_pvt_list_query_rec,
84: x_list_query_id => x_list_query_id);
85:
86:
87: -- Check return status from the above procedure call
88: IF x_return_status = FND_API.G_RET_STS_ERROR then
89: RAISE FND_API.G_EXC_ERROR;
90: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
85:
86:
87: -- Check return status from the above procedure call
88: IF x_return_status = FND_API.G_RET_STS_ERROR then
89: RAISE FND_API.G_EXC_ERROR;
90: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93: --
86:
87: -- Check return status from the above procedure call
88: IF x_return_status = FND_API.G_RET_STS_ERROR then
89: RAISE FND_API.G_EXC_ERROR;
90: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93: --
94: -- End of API body.
87: -- Check return status from the above procedure call
88: IF x_return_status = FND_API.G_RET_STS_ERROR then
89: RAISE FND_API.G_EXC_ERROR;
90: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
91: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92: END IF;
93: --
94: -- End of API body.
95: --
94: -- End of API body.
95: --
96:
97: -- Standard check for p_commit
98: IF FND_API.to_Boolean( p_commit )
99: THEN
100: COMMIT WORK;
101: END IF;
102:
114: );
115: EXCEPTION
116:
117: WHEN AMS_Utility_PVT.resource_locked THEN
118: x_return_status := FND_API.g_ret_sts_error;
119: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
120:
121: WHEN FND_API.G_EXC_ERROR THEN
122: ROLLBACK TO CREATE_List_Query_PUB;
117: WHEN AMS_Utility_PVT.resource_locked THEN
118: x_return_status := FND_API.g_ret_sts_error;
119: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
120:
121: WHEN FND_API.G_EXC_ERROR THEN
122: ROLLBACK TO CREATE_List_Query_PUB;
123: x_return_status := FND_API.G_RET_STS_ERROR;
124: -- Standard call to get message count and if count=1, get the message
125: FND_MSG_PUB.Count_And_Get (
119: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
120:
121: WHEN FND_API.G_EXC_ERROR THEN
122: ROLLBACK TO CREATE_List_Query_PUB;
123: x_return_status := FND_API.G_RET_STS_ERROR;
124: -- Standard call to get message count and if count=1, get the message
125: FND_MSG_PUB.Count_And_Get (
126: p_encoded => FND_API.G_FALSE,
127: p_count => x_msg_count,
122: ROLLBACK TO CREATE_List_Query_PUB;
123: x_return_status := FND_API.G_RET_STS_ERROR;
124: -- Standard call to get message count and if count=1, get the message
125: FND_MSG_PUB.Count_And_Get (
126: p_encoded => FND_API.G_FALSE,
127: p_count => x_msg_count,
128: p_data => x_msg_data
129: );
130:
127: p_count => x_msg_count,
128: p_data => x_msg_data
129: );
130:
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: ROLLBACK TO CREATE_List_Query_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: -- Standard call to get message count and if count=1, get the message
135: FND_MSG_PUB.Count_And_Get (
129: );
130:
131: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
132: ROLLBACK TO CREATE_List_Query_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: -- Standard call to get message count and if count=1, get the message
135: FND_MSG_PUB.Count_And_Get (
136: p_encoded => FND_API.G_FALSE,
137: p_count => x_msg_count,
132: ROLLBACK TO CREATE_List_Query_PUB;
133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: -- Standard call to get message count and if count=1, get the message
135: FND_MSG_PUB.Count_And_Get (
136: p_encoded => FND_API.G_FALSE,
137: p_count => x_msg_count,
138: p_data => x_msg_data
139: );
140:
139: );
140:
141: WHEN OTHERS THEN
142: ROLLBACK TO CREATE_List_Query_PUB;
143: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
145: THEN
146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
147: END IF;
146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
147: END IF;
148: -- Standard call to get message count and if count=1, get the message
149: FND_MSG_PUB.Count_And_Get (
150: p_encoded => FND_API.G_FALSE,
151: p_count => x_msg_count,
152: p_data => x_msg_data
153: );
154: End Create_List_Query;
156:
157:
158: PROCEDURE Create_List_Query(
159: p_api_version_number IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
162: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
163: x_return_status OUT NOCOPY VARCHAR2,
164: x_msg_count OUT NOCOPY NUMBER,
157:
158: PROCEDURE Create_List_Query(
159: p_api_version_number IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
162: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
163: x_return_status OUT NOCOPY VARCHAR2,
164: x_msg_count OUT NOCOPY NUMBER,
165: x_msg_data OUT NOCOPY VARCHAR2,
158: PROCEDURE Create_List_Query(
159: p_api_version_number IN NUMBER,
160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
162: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
163: x_return_status OUT NOCOPY VARCHAR2,
164: x_msg_count OUT NOCOPY NUMBER,
165: x_msg_data OUT NOCOPY VARCHAR2,
166: p_list_query_rec_tbl IN AMS_List_Query_PVT.list_query_rec_type_tbl ,
178: -- Standard Start of API savepoint
179: SAVEPOINT CREATE_List_Query_PUB;
180:
181: -- Standard call to check for call compatibility.
182: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
183: p_api_version_number,
184: l_api_name,
185: G_PKG_NAME)
186: THEN
183: p_api_version_number,
184: l_api_name,
185: G_PKG_NAME)
186: THEN
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: END IF;
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE.
191: IF FND_API.to_Boolean( p_init_msg_list )
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: END IF;
189:
190: -- Initialize message list if p_init_msg_list is set to TRUE.
191: IF FND_API.to_Boolean( p_init_msg_list )
192: THEN
193: FND_MSG_PUB.initialize;
194: END IF;
195:
200: END IF;
201:
202:
203: -- Initialize API return status to SUCCESS
204: x_return_status := FND_API.G_RET_STS_SUCCESS;
205:
206: --
207: -- API body
208: --
209: -- Calling Private package: Create_List_Query
210: -- Hint: Primary key needs to be returned
211: AMS_List_Query_PVT.Create_List_Query(
212: p_api_version_number => 1.0,
213: p_init_msg_list => FND_API.G_FALSE,
214: p_commit => FND_API.G_FALSE,
215: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
216: x_return_status => x_return_status,
217: x_msg_count => x_msg_count,
210: -- Hint: Primary key needs to be returned
211: AMS_List_Query_PVT.Create_List_Query(
212: p_api_version_number => 1.0,
213: p_init_msg_list => FND_API.G_FALSE,
214: p_commit => FND_API.G_FALSE,
215: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
216: x_return_status => x_return_status,
217: x_msg_count => x_msg_count,
218: x_msg_data => x_msg_data,
211: AMS_List_Query_PVT.Create_List_Query(
212: p_api_version_number => 1.0,
213: p_init_msg_list => FND_API.G_FALSE,
214: p_commit => FND_API.G_FALSE,
215: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
216: x_return_status => x_return_status,
217: x_msg_count => x_msg_count,
218: x_msg_data => x_msg_data,
219: p_list_query_rec_tbl => l_pvt_list_query_rec_tbl,
221: x_parent_list_query_id => x_parent_list_query_id);
222:
223:
224: -- Check return status from the above procedure call
225: IF x_return_status = FND_API.G_RET_STS_ERROR then
226: RAISE FND_API.G_EXC_ERROR;
227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
222:
223:
224: -- Check return status from the above procedure call
225: IF x_return_status = FND_API.G_RET_STS_ERROR then
226: RAISE FND_API.G_EXC_ERROR;
227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230: --
223:
224: -- Check return status from the above procedure call
225: IF x_return_status = FND_API.G_RET_STS_ERROR then
226: RAISE FND_API.G_EXC_ERROR;
227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230: --
231: -- End of API body.
224: -- Check return status from the above procedure call
225: IF x_return_status = FND_API.G_RET_STS_ERROR then
226: RAISE FND_API.G_EXC_ERROR;
227: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
229: END IF;
230: --
231: -- End of API body.
232: --
231: -- End of API body.
232: --
233:
234: -- Standard check for p_commit
235: IF FND_API.to_Boolean( p_commit )
236: THEN
237: COMMIT WORK;
238: END IF;
239:
251: );
252: EXCEPTION
253:
254: WHEN AMS_Utility_PVT.resource_locked THEN
255: x_return_status := FND_API.g_ret_sts_error;
256: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Query_PUB;
254: WHEN AMS_Utility_PVT.resource_locked THEN
255: x_return_status := FND_API.g_ret_sts_error;
256: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Query_PUB;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
256: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
257:
258: WHEN FND_API.G_EXC_ERROR THEN
259: ROLLBACK TO CREATE_List_Query_PUB;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
263: p_encoded => FND_API.G_FALSE,
264: p_count => x_msg_count,
259: ROLLBACK TO CREATE_List_Query_PUB;
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: -- Standard call to get message count and if count=1, get the message
262: FND_MSG_PUB.Count_And_Get (
263: p_encoded => FND_API.G_FALSE,
264: p_count => x_msg_count,
265: p_data => x_msg_data
266: );
267:
264: p_count => x_msg_count,
265: p_data => x_msg_data
266: );
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO CREATE_List_Query_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
266: );
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269: ROLLBACK TO CREATE_List_Query_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
269: ROLLBACK TO CREATE_List_Query_PUB;
270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: -- Standard call to get message count and if count=1, get the message
272: FND_MSG_PUB.Count_And_Get (
273: p_encoded => FND_API.G_FALSE,
274: p_count => x_msg_count,
275: p_data => x_msg_data
276: );
277:
276: );
277:
278: WHEN OTHERS THEN
279: ROLLBACK TO CREATE_List_Query_PUB;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
283: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
284: END IF;
285: -- Standard call to get message count and if count=1, get the message
286: FND_MSG_PUB.Count_And_Get (
287: p_encoded => FND_API.G_FALSE,
288: p_count => x_msg_count,
289: p_data => x_msg_data
290: );
291: End Create_List_Query;
294:
295:
296: PROCEDURE Update_List_Query(
297: p_api_version_number IN NUMBER,
298: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
299: p_commit IN VARCHAR2 := FND_API.G_FALSE,
300:
301: x_return_status OUT NOCOPY VARCHAR2,
302: x_msg_count OUT NOCOPY NUMBER,
295:
296: PROCEDURE Update_List_Query(
297: p_api_version_number IN NUMBER,
298: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
299: p_commit IN VARCHAR2 := FND_API.G_FALSE,
300:
301: x_return_status OUT NOCOPY VARCHAR2,
302: x_msg_count OUT NOCOPY NUMBER,
303: x_msg_data OUT NOCOPY VARCHAR2,
315: -- Standard Start of API savepoint
316: SAVEPOINT UPDATE_List_Query_PUB;
317:
318: -- Standard call to check for call compatibility.
319: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
320: p_api_version_number,
321: l_api_name,
322: G_PKG_NAME)
323: THEN
320: p_api_version_number,
321: l_api_name,
322: G_PKG_NAME)
323: THEN
324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
325: END IF;
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328: IF FND_API.to_Boolean( p_init_msg_list )
324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
325: END IF;
326:
327: -- Initialize message list if p_init_msg_list is set to TRUE.
328: IF FND_API.to_Boolean( p_init_msg_list )
329: THEN
330: FND_MSG_PUB.initialize;
331: END IF;
332:
337: END IF;
338:
339:
340: -- Initialize API return status to SUCCESS
341: x_return_status := FND_API.G_RET_STS_SUCCESS;
342:
343: --
344: -- API body
345: --
344: -- API body
345: --
346: AMS_List_Query_PVT.Update_List_Query(
347: p_api_version_number => 1.0,
348: p_init_msg_list => FND_API.G_FALSE,
349: p_commit => p_commit,
350: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
351: x_return_status => x_return_status,
352: x_msg_count => x_msg_count,
346: AMS_List_Query_PVT.Update_List_Query(
347: p_api_version_number => 1.0,
348: p_init_msg_list => FND_API.G_FALSE,
349: p_commit => p_commit,
350: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
351: x_return_status => x_return_status,
352: x_msg_count => x_msg_count,
353: x_msg_data => x_msg_data,
354: p_list_query_rec => l_pvt_list_query_rec,
355: x_object_version_number => l_object_version_number );
356:
357:
358: -- Check return status from the above procedure call
359: IF x_return_status = FND_API.G_RET_STS_ERROR then
360: RAISE FND_API.G_EXC_ERROR;
361: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
356:
357:
358: -- Check return status from the above procedure call
359: IF x_return_status = FND_API.G_RET_STS_ERROR then
360: RAISE FND_API.G_EXC_ERROR;
361: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
364: --
357:
358: -- Check return status from the above procedure call
359: IF x_return_status = FND_API.G_RET_STS_ERROR then
360: RAISE FND_API.G_EXC_ERROR;
361: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
364: --
365: -- End of API body
358: -- Check return status from the above procedure call
359: IF x_return_status = FND_API.G_RET_STS_ERROR then
360: RAISE FND_API.G_EXC_ERROR;
361: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
363: END IF;
364: --
365: -- End of API body
366: --
365: -- End of API body
366: --
367:
368: -- Standard check for p_commit
369: IF FND_API.to_Boolean( p_commit )
370: THEN
371: COMMIT WORK;
372: END IF;
373:
385: );
386: EXCEPTION
387:
388: WHEN AMS_Utility_PVT.resource_locked THEN
389: x_return_status := FND_API.g_ret_sts_error;
390: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
391:
392: WHEN FND_API.G_EXC_ERROR THEN
393: ROLLBACK TO UPDATE_List_Query_PUB;
388: WHEN AMS_Utility_PVT.resource_locked THEN
389: x_return_status := FND_API.g_ret_sts_error;
390: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
391:
392: WHEN FND_API.G_EXC_ERROR THEN
393: ROLLBACK TO UPDATE_List_Query_PUB;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: -- Standard call to get message count and if count=1, get the message
396: FND_MSG_PUB.Count_And_Get (
390: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
391:
392: WHEN FND_API.G_EXC_ERROR THEN
393: ROLLBACK TO UPDATE_List_Query_PUB;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: -- Standard call to get message count and if count=1, get the message
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
393: ROLLBACK TO UPDATE_List_Query_PUB;
394: x_return_status := FND_API.G_RET_STS_ERROR;
395: -- Standard call to get message count and if count=1, get the message
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data
400: );
401:
398: p_count => x_msg_count,
399: p_data => x_msg_data
400: );
401:
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO UPDATE_List_Query_PUB;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: -- Standard call to get message count and if count=1, get the message
406: FND_MSG_PUB.Count_And_Get (
400: );
401:
402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
403: ROLLBACK TO UPDATE_List_Query_PUB;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: -- Standard call to get message count and if count=1, get the message
406: FND_MSG_PUB.Count_And_Get (
407: p_encoded => FND_API.G_FALSE,
408: p_count => x_msg_count,
403: ROLLBACK TO UPDATE_List_Query_PUB;
404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
405: -- Standard call to get message count and if count=1, get the message
406: FND_MSG_PUB.Count_And_Get (
407: p_encoded => FND_API.G_FALSE,
408: p_count => x_msg_count,
409: p_data => x_msg_data
410: );
411:
410: );
411:
412: WHEN OTHERS THEN
413: ROLLBACK TO UPDATE_List_Query_PUB;
414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
416: THEN
417: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
418: END IF;
417: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
418: END IF;
419: -- Standard call to get message count and if count=1, get the message
420: FND_MSG_PUB.Count_And_Get (
421: p_encoded => FND_API.G_FALSE,
422: p_count => x_msg_count,
423: p_data => x_msg_data
424: );
425: End Update_List_Query;
426:
427:
428: PROCEDURE Update_List_Query(
429: p_api_version_number IN NUMBER,
430: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
431: p_commit IN VARCHAR2 := FND_API.G_FALSE,
432: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
433:
434: x_return_status OUT NOCOPY VARCHAR2,
427:
428: PROCEDURE Update_List_Query(
429: p_api_version_number IN NUMBER,
430: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
431: p_commit IN VARCHAR2 := FND_API.G_FALSE,
432: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
433:
434: x_return_status OUT NOCOPY VARCHAR2,
435: x_msg_count OUT NOCOPY NUMBER,
428: PROCEDURE Update_List_Query(
429: p_api_version_number IN NUMBER,
430: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
431: p_commit IN VARCHAR2 := FND_API.G_FALSE,
432: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
433:
434: x_return_status OUT NOCOPY VARCHAR2,
435: x_msg_count OUT NOCOPY NUMBER,
436: x_msg_data OUT NOCOPY VARCHAR2,
451: -- Standard Start of API savepoint
452: SAVEPOINT UPDATE_List_Query_PUB;
453:
454: -- Standard call to check for call compatibility.
455: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
456: p_api_version_number,
457: l_api_name,
458: G_PKG_NAME)
459: THEN
456: p_api_version_number,
457: l_api_name,
458: G_PKG_NAME)
459: THEN
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463: -- Initialize message list if p_init_msg_list is set to TRUE.
464: IF FND_API.to_Boolean( p_init_msg_list )
460: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
461: END IF;
462:
463: -- Initialize message list if p_init_msg_list is set to TRUE.
464: IF FND_API.to_Boolean( p_init_msg_list )
465: THEN
466: FND_MSG_PUB.initialize;
467: END IF;
468:
473: END IF;
474:
475:
476: -- Initialize API return status to SUCCESS
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478:
479: --
480: -- API body
481: --
480: -- API body
481: --
482: AMS_List_Query_PVT.Update_List_Query(
483: p_api_version_number => 1.0,
484: p_init_msg_list => FND_API.G_FALSE,
485: p_commit => p_commit,
486: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
487: x_return_status => x_return_status,
488: x_msg_count => x_msg_count,
482: AMS_List_Query_PVT.Update_List_Query(
483: p_api_version_number => 1.0,
484: p_init_msg_list => FND_API.G_FALSE,
485: p_commit => p_commit,
486: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
487: x_return_status => x_return_status,
488: x_msg_count => x_msg_count,
489: x_msg_data => x_msg_data,
490: p_list_query_rec_tbl => l_pvt_list_query_rec_tbl,
493: x_object_version_number => l_object_version_number );
494:
495:
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: RAISE FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
494:
495:
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: RAISE FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502: --
495:
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: RAISE FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502: --
503: -- End of API body
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: RAISE FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502: --
503: -- End of API body
504: --
503: -- End of API body
504: --
505:
506: -- Standard check for p_commit
507: IF FND_API.to_Boolean( p_commit )
508: THEN
509: COMMIT WORK;
510: END IF;
511:
523: );
524: EXCEPTION
525:
526: WHEN AMS_Utility_PVT.resource_locked THEN
527: x_return_status := FND_API.g_ret_sts_error;
528: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO UPDATE_List_Query_PUB;
526: WHEN AMS_Utility_PVT.resource_locked THEN
527: x_return_status := FND_API.g_ret_sts_error;
528: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO UPDATE_List_Query_PUB;
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
528: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
529:
530: WHEN FND_API.G_EXC_ERROR THEN
531: ROLLBACK TO UPDATE_List_Query_PUB;
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
536: p_count => x_msg_count,
531: ROLLBACK TO UPDATE_List_Query_PUB;
532: x_return_status := FND_API.G_RET_STS_ERROR;
533: -- Standard call to get message count and if count=1, get the message
534: FND_MSG_PUB.Count_And_Get (
535: p_encoded => FND_API.G_FALSE,
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539:
536: p_count => x_msg_count,
537: p_data => x_msg_data
538: );
539:
540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
541: ROLLBACK TO UPDATE_List_Query_PUB;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
538: );
539:
540: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
541: ROLLBACK TO UPDATE_List_Query_PUB;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
545: p_encoded => FND_API.G_FALSE,
546: p_count => x_msg_count,
541: ROLLBACK TO UPDATE_List_Query_PUB;
542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
543: -- Standard call to get message count and if count=1, get the message
544: FND_MSG_PUB.Count_And_Get (
545: p_encoded => FND_API.G_FALSE,
546: p_count => x_msg_count,
547: p_data => x_msg_data
548: );
549:
548: );
549:
550: WHEN OTHERS THEN
551: ROLLBACK TO UPDATE_List_Query_PUB;
552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
554: THEN
555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
556: END IF;
555: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
556: END IF;
557: -- Standard call to get message count and if count=1, get the message
558: FND_MSG_PUB.Count_And_Get (
559: p_encoded => FND_API.G_FALSE,
560: p_count => x_msg_count,
561: p_data => x_msg_data
562: );
563: End Update_List_Query;
566:
567:
568: PROCEDURE Delete_List_Query(
569: p_api_version_number IN NUMBER,
570: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
571: p_commit IN VARCHAR2 := FND_API.G_FALSE,
572: x_return_status OUT NOCOPY VARCHAR2,
573: x_msg_count OUT NOCOPY NUMBER,
574: x_msg_data OUT NOCOPY VARCHAR2,
567:
568: PROCEDURE Delete_List_Query(
569: p_api_version_number IN NUMBER,
570: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
571: p_commit IN VARCHAR2 := FND_API.G_FALSE,
572: x_return_status OUT NOCOPY VARCHAR2,
573: x_msg_count OUT NOCOPY NUMBER,
574: x_msg_data OUT NOCOPY VARCHAR2,
575: p_list_query_id IN NUMBER,
586: -- Standard Start of API savepoint
587: SAVEPOINT DELETE_List_Query_PUB;
588:
589: -- Standard call to check for call compatibility.
590: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
591: p_api_version_number,
592: l_api_name,
593: G_PKG_NAME)
594: THEN
591: p_api_version_number,
592: l_api_name,
593: G_PKG_NAME)
594: THEN
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
596: END IF;
597:
598: -- Initialize message list if p_init_msg_list is set to TRUE.
599: IF FND_API.to_Boolean( p_init_msg_list )
595: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
596: END IF;
597:
598: -- Initialize message list if p_init_msg_list is set to TRUE.
599: IF FND_API.to_Boolean( p_init_msg_list )
600: THEN
601: FND_MSG_PUB.initialize;
602: END IF;
603:
608: END IF;
609:
610:
611: -- Initialize API return status to SUCCESS
612: x_return_status := FND_API.G_RET_STS_SUCCESS;
613:
614: --
615: -- API body
616: --
615: -- API body
616: --
617: AMS_List_Query_PVT.Delete_List_Query(
618: p_api_version_number => 1.0,
619: p_init_msg_list => FND_API.G_FALSE,
620: p_commit => p_commit,
621: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
622: x_return_status => x_return_status,
623: x_msg_count => x_msg_count,
617: AMS_List_Query_PVT.Delete_List_Query(
618: p_api_version_number => 1.0,
619: p_init_msg_list => FND_API.G_FALSE,
620: p_commit => p_commit,
621: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
622: x_return_status => x_return_status,
623: x_msg_count => x_msg_count,
624: x_msg_data => x_msg_data,
625: p_list_query_id => l_list_query_id,
626: p_object_version_number => l_object_version_number );
627:
628:
629: -- Check return status from the above procedure call
630: IF x_return_status = FND_API.G_RET_STS_ERROR then
631: RAISE FND_API.G_EXC_ERROR;
632: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
627:
628:
629: -- Check return status from the above procedure call
630: IF x_return_status = FND_API.G_RET_STS_ERROR then
631: RAISE FND_API.G_EXC_ERROR;
632: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635: --
628:
629: -- Check return status from the above procedure call
630: IF x_return_status = FND_API.G_RET_STS_ERROR then
631: RAISE FND_API.G_EXC_ERROR;
632: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635: --
636: -- End of API body
629: -- Check return status from the above procedure call
630: IF x_return_status = FND_API.G_RET_STS_ERROR then
631: RAISE FND_API.G_EXC_ERROR;
632: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635: --
636: -- End of API body
637: --
636: -- End of API body
637: --
638:
639: -- Standard check for p_commit
640: IF FND_API.to_Boolean( p_commit )
641: THEN
642: COMMIT WORK;
643: END IF;
644:
656: );
657: EXCEPTION
658:
659: WHEN AMS_Utility_PVT.resource_locked THEN
660: x_return_status := FND_API.g_ret_sts_error;
661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662:
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_List_Query_PUB;
659: WHEN AMS_Utility_PVT.resource_locked THEN
660: x_return_status := FND_API.g_ret_sts_error;
661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662:
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_List_Query_PUB;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
661: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
662:
663: WHEN FND_API.G_EXC_ERROR THEN
664: ROLLBACK TO DELETE_List_Query_PUB;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
668: p_encoded => FND_API.G_FALSE,
669: p_count => x_msg_count,
664: ROLLBACK TO DELETE_List_Query_PUB;
665: x_return_status := FND_API.G_RET_STS_ERROR;
666: -- Standard call to get message count and if count=1, get the message
667: FND_MSG_PUB.Count_And_Get (
668: p_encoded => FND_API.G_FALSE,
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
669: p_count => x_msg_count,
670: p_data => x_msg_data
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: ROLLBACK TO DELETE_List_Query_PUB;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
671: );
672:
673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
674: ROLLBACK TO DELETE_List_Query_PUB;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
674: ROLLBACK TO DELETE_List_Query_PUB;
675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
676: -- Standard call to get message count and if count=1, get the message
677: FND_MSG_PUB.Count_And_Get (
678: p_encoded => FND_API.G_FALSE,
679: p_count => x_msg_count,
680: p_data => x_msg_data
681: );
682:
681: );
682:
683: WHEN OTHERS THEN
684: ROLLBACK TO DELETE_List_Query_PUB;
685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
686: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
687: THEN
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
688: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
689: END IF;
690: -- Standard call to get message count and if count=1, get the message
691: FND_MSG_PUB.Count_And_Get (
692: p_encoded => FND_API.G_FALSE,
693: p_count => x_msg_count,
694: p_data => x_msg_data
695: );
696: End Delete_List_Query;
697:
698:
699: PROCEDURE Delete_parent_List_Query(
700: p_api_version_number IN NUMBER,
701: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
704: x_return_status OUT NOCOPY VARCHAR2,
705: x_msg_count OUT NOCOPY NUMBER,
698:
699: PROCEDURE Delete_parent_List_Query(
700: p_api_version_number IN NUMBER,
701: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
704: x_return_status OUT NOCOPY VARCHAR2,
705: x_msg_count OUT NOCOPY NUMBER,
706: x_msg_data OUT NOCOPY VARCHAR2,
699: PROCEDURE Delete_parent_List_Query(
700: p_api_version_number IN NUMBER,
701: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
702: p_commit IN VARCHAR2 := FND_API.G_FALSE,
703: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
704: x_return_status OUT NOCOPY VARCHAR2,
705: x_msg_count OUT NOCOPY NUMBER,
706: x_msg_data OUT NOCOPY VARCHAR2,
707: p_parent_list_query_id IN NUMBER,
718: -- Standard Start of API savepoint
719: SAVEPOINT DELETE_List_Query_PUB;
720:
721: -- Standard call to check for call compatibility.
722: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
723: p_api_version_number,
724: l_api_name,
725: G_PKG_NAME)
726: THEN
723: p_api_version_number,
724: l_api_name,
725: G_PKG_NAME)
726: THEN
727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
728: END IF;
729:
730: -- Initialize message list if p_init_msg_list is set to TRUE.
731: IF FND_API.to_Boolean( p_init_msg_list )
727: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
728: END IF;
729:
730: -- Initialize message list if p_init_msg_list is set to TRUE.
731: IF FND_API.to_Boolean( p_init_msg_list )
732: THEN
733: FND_MSG_PUB.initialize;
734: END IF;
735:
740: END IF;
741:
742:
743: -- Initialize API return status to SUCCESS
744: x_return_status := FND_API.G_RET_STS_SUCCESS;
745:
746: --
747: -- API body
748: --
747: -- API body
748: --
749: AMS_List_Query_PVT.Delete_parent_List_Query(
750: p_api_version_number => 1.0,
751: p_init_msg_list => FND_API.G_FALSE,
752: p_commit => p_commit,
753: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
754: x_return_status => x_return_status,
755: x_msg_count => x_msg_count,
749: AMS_List_Query_PVT.Delete_parent_List_Query(
750: p_api_version_number => 1.0,
751: p_init_msg_list => FND_API.G_FALSE,
752: p_commit => p_commit,
753: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
754: x_return_status => x_return_status,
755: x_msg_count => x_msg_count,
756: x_msg_data => x_msg_data,
757: p_parent_list_query_id => l_list_query_id,
758: p_object_version_number => l_object_version_number );
759:
760:
761: -- Check return status from the above procedure call
762: IF x_return_status = FND_API.G_RET_STS_ERROR then
763: RAISE FND_API.G_EXC_ERROR;
764: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
759:
760:
761: -- Check return status from the above procedure call
762: IF x_return_status = FND_API.G_RET_STS_ERROR then
763: RAISE FND_API.G_EXC_ERROR;
764: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767: --
760:
761: -- Check return status from the above procedure call
762: IF x_return_status = FND_API.G_RET_STS_ERROR then
763: RAISE FND_API.G_EXC_ERROR;
764: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767: --
768: -- End of API body
761: -- Check return status from the above procedure call
762: IF x_return_status = FND_API.G_RET_STS_ERROR then
763: RAISE FND_API.G_EXC_ERROR;
764: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
766: END IF;
767: --
768: -- End of API body
769: --
768: -- End of API body
769: --
770:
771: -- Standard check for p_commit
772: IF FND_API.to_Boolean( p_commit )
773: THEN
774: COMMIT WORK;
775: END IF;
776:
788: );
789: EXCEPTION
790:
791: WHEN AMS_Utility_PVT.resource_locked THEN
792: x_return_status := FND_API.g_ret_sts_error;
793: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794:
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO DELETE_List_Query_PUB;
791: WHEN AMS_Utility_PVT.resource_locked THEN
792: x_return_status := FND_API.g_ret_sts_error;
793: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794:
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO DELETE_List_Query_PUB;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
793: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794:
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO DELETE_List_Query_PUB;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
796: ROLLBACK TO DELETE_List_Query_PUB;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804:
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO DELETE_List_Query_PUB;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
803: );
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO DELETE_List_Query_PUB;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
810: p_encoded => FND_API.G_FALSE,
811: p_count => x_msg_count,
806: ROLLBACK TO DELETE_List_Query_PUB;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
810: p_encoded => FND_API.G_FALSE,
811: p_count => x_msg_count,
812: p_data => x_msg_data
813: );
814:
813: );
814:
815: WHEN OTHERS THEN
816: ROLLBACK TO DELETE_List_Query_PUB;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
819: THEN
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
822: -- Standard call to get message count and if count=1, get the message
823: FND_MSG_PUB.Count_And_Get (
824: p_encoded => FND_API.G_FALSE,
825: p_count => x_msg_count,
826: p_data => x_msg_data
827: );
828: End Delete_parent_List_Query;
830:
831:
832: PROCEDURE Lock_List_Query(
833: p_api_version_number IN NUMBER,
834: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
835: x_return_status OUT NOCOPY VARCHAR2,
836: x_msg_count OUT NOCOPY NUMBER,
837: x_msg_data OUT NOCOPY VARCHAR2,
838:
846: l_pvt_list_query_rec AMS_List_Query_PVT.list_query_rec_type;
847: BEGIN
848:
849: -- Standard call to check for call compatibility.
850: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
851: p_api_version_number,
852: l_api_name,
853: G_PKG_NAME)
854: THEN
851: p_api_version_number,
852: l_api_name,
853: G_PKG_NAME)
854: THEN
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
858: -- Initialize message list if p_init_msg_list is set to TRUE.
859: IF FND_API.to_Boolean( p_init_msg_list )
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END IF;
857:
858: -- Initialize message list if p_init_msg_list is set to TRUE.
859: IF FND_API.to_Boolean( p_init_msg_list )
860: THEN
861: FND_MSG_PUB.initialize;
862: END IF;
863:
868: END IF;
869:
870:
871: -- Initialize API return status to SUCCESS
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: --
875: -- API body
876: --
877: -- Calling Private package: Create_List_Query
878: -- Hint: Primary key needs to be returned
879: AMS_List_Query_PVT.Lock_List_Query(
880: p_api_version_number => 1.0,
881: p_init_msg_list => FND_API.G_FALSE,
882: x_return_status => x_return_status,
883: x_msg_count => x_msg_count,
884: x_msg_data => x_msg_data,
885: p_list_query_id => p_list_query_id,
886: p_object_version => p_object_version);
887:
888:
889: -- Check return status from the above procedure call
890: IF x_return_status = FND_API.G_RET_STS_ERROR then
891: RAISE FND_API.G_EXC_ERROR;
892: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894: END IF;
887:
888:
889: -- Check return status from the above procedure call
890: IF x_return_status = FND_API.G_RET_STS_ERROR then
891: RAISE FND_API.G_EXC_ERROR;
892: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894: END IF;
895: --
888:
889: -- Check return status from the above procedure call
890: IF x_return_status = FND_API.G_RET_STS_ERROR then
891: RAISE FND_API.G_EXC_ERROR;
892: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894: END IF;
895: --
896: -- End of API body.
889: -- Check return status from the above procedure call
890: IF x_return_status = FND_API.G_RET_STS_ERROR then
891: RAISE FND_API.G_EXC_ERROR;
892: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
894: END IF;
895: --
896: -- End of API body.
897: --
904:
905: EXCEPTION
906:
907: WHEN AMS_Utility_PVT.resource_locked THEN
908: x_return_status := FND_API.g_ret_sts_error;
909: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
910:
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO LOCK_List_Query_PUB;
907: WHEN AMS_Utility_PVT.resource_locked THEN
908: x_return_status := FND_API.g_ret_sts_error;
909: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
910:
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO LOCK_List_Query_PUB;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
909: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
910:
911: WHEN FND_API.G_EXC_ERROR THEN
912: ROLLBACK TO LOCK_List_Query_PUB;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
916: p_encoded => FND_API.G_FALSE,
917: p_count => x_msg_count,
912: ROLLBACK TO LOCK_List_Query_PUB;
913: x_return_status := FND_API.G_RET_STS_ERROR;
914: -- Standard call to get message count and if count=1, get the message
915: FND_MSG_PUB.Count_And_Get (
916: p_encoded => FND_API.G_FALSE,
917: p_count => x_msg_count,
918: p_data => x_msg_data
919: );
920:
917: p_count => x_msg_count,
918: p_data => x_msg_data
919: );
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO LOCK_List_Query_PUB;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
919: );
920:
921: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: ROLLBACK TO LOCK_List_Query_PUB;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
926: p_encoded => FND_API.G_FALSE,
927: p_count => x_msg_count,
922: ROLLBACK TO LOCK_List_Query_PUB;
923: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
924: -- Standard call to get message count and if count=1, get the message
925: FND_MSG_PUB.Count_And_Get (
926: p_encoded => FND_API.G_FALSE,
927: p_count => x_msg_count,
928: p_data => x_msg_data
929: );
930:
929: );
930:
931: WHEN OTHERS THEN
932: ROLLBACK TO LOCK_List_Query_PUB;
933: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
934: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
935: THEN
936: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
937: END IF;
936: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
937: END IF;
938: -- Standard call to get message count and if count=1, get the message
939: FND_MSG_PUB.Count_And_Get (
940: p_encoded => FND_API.G_FALSE,
941: p_count => x_msg_count,
942: p_data => x_msg_data
943: );
944: End Lock_List_Query;