85:
86:
87: PROCEDURE GET_NEXT_WORK_ITEMS
88: (p_api_version IN NUMBER,
89: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
90: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
91: p_strategy_id IN NUMBER,
92: x_return_status OUT NOCOPY VARCHAR2,
93: x_msg_count OUT NOCOPY NUMBER,
86:
87: PROCEDURE GET_NEXT_WORK_ITEMS
88: (p_api_version IN NUMBER,
89: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
90: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
91: p_strategy_id IN NUMBER,
92: x_return_status OUT NOCOPY VARCHAR2,
93: x_msg_count OUT NOCOPY NUMBER,
94: x_msg_data OUT NOCOPY VARCHAR2,
141:
142: SAVEPOINT GET_NEXT_WORK_ITEMS_PUB;
143:
144: -- Standard call to check for call compatibility.
145: IF NOT FND_API.Compatible_API_Call (l_api_version,
146: p_api_version,
147: l_api_name,
148: G_PKG_NAME) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145: IF NOT FND_API.Compatible_API_Call (l_api_version,
146: p_api_version,
147: l_api_name,
148: G_PKG_NAME) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: -- Check p_init_msg_list
153: IF FND_API.to_Boolean( p_init_msg_list ) THEN
149: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150: END IF;
151:
152: -- Check p_init_msg_list
153: IF FND_API.to_Boolean( p_init_msg_list ) THEN
154: FND_MSG_PUB.initialize;
155: END IF;
156:
157: x_return_status := FND_API.G_RET_STS_SUCCESS;
153: IF FND_API.to_Boolean( p_init_msg_list ) THEN
154: FND_MSG_PUB.initialize;
155: END IF;
156:
157: x_return_status := FND_API.G_RET_STS_SUCCESS;
158:
159: -- Check for required parameter p_strategy_id
160: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
161: -- IF PG_DEBUG < 10 THEN
156:
157: x_return_status := FND_API.G_RET_STS_SUCCESS;
158:
159: -- Check for required parameter p_strategy_id
160: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
161: -- IF PG_DEBUG < 10 THEN
162: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
163: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'Required Parameter p_strategy_id is invalid');
164: END IF;
164: END IF;
165: AddMissingArgMsg(
166: p_api_name => l_api_name_full,
167: p_param_name => 'p_strategy_id' );
168: RAISE FND_API.G_EXC_ERROR;
169: END IF;
170: -- IF PG_DEBUG < 10 THEN
171: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
172: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'after p_strategy_id check');
184: END IF;
185: AddMissingArgMsg(
186: p_api_name => l_api_name_full,
187: p_param_name => 'l_template_id' );
188: RAISE FND_API.G_EXC_ERROR;
189: END IF;
190: -- IF PG_DEBUG < 10 THEN
191: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
192: IEX_DEBUG_PUB.LogMessage('GET_NEXT_WORK_ITEMS: ' || 'after l_template_id check'||l_template_id);
205:
206:
207:
208: -- Standard check of p_commit
209: IF FND_API.To_Boolean(p_commit) THEN
210: COMMIT WORK;
211: END IF;
212:
213: -- Standard call to get message count and if count is 1, get message info
214: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
215:
216:
217: EXCEPTION
218: WHEN FND_API.G_EXC_ERROR THEN
219: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
222:
216:
217: EXCEPTION
218: WHEN FND_API.G_EXC_ERROR THEN
219: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
222:
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
219: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
222:
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
227:
221: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
222:
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
225: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
227:
228: WHEN OTHERS THEN
229: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
226: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
227:
228: WHEN OTHERS THEN
229: ROLLBACK TO GET_NEXT_WORK_ITEMS_PUB;
230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
231: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
232: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
233: END IF;
234: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
241: **/
242:
243: PROCEDURE CLOSE_STRY_AND_WITEMS
244: (p_api_version IN NUMBER,
245: p_commit IN VARCHAR2 DEFAULT FND_API.G_TRUE,
246: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
247: p_strategy_id IN NUMBER,
248: p_status IN VARCHAR2,
249: x_return_status OUT NOCOPY VARCHAR2,
242:
243: PROCEDURE CLOSE_STRY_AND_WITEMS
244: (p_api_version IN NUMBER,
245: p_commit IN VARCHAR2 DEFAULT FND_API.G_TRUE,
246: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
247: p_strategy_id IN NUMBER,
248: p_status IN VARCHAR2,
249: x_return_status OUT NOCOPY VARCHAR2,
250: x_msg_count OUT NOCOPY NUMBER,
275:
276: SAVEPOINT CLOSE_STRY_AND_WITEMS_PUB;
277:
278: -- Standard call to check for call compatibility.
279: IF NOT FND_API.Compatible_API_Call (l_api_version,
280: p_api_version,
281: l_api_name,
282: G_PKG_NAME) THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: IF NOT FND_API.Compatible_API_Call (l_api_version,
280: p_api_version,
281: l_api_name,
282: G_PKG_NAME) THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
284: END IF;
285:
286: -- Check p_init_msg_list
287: IF FND_API.to_Boolean( p_init_msg_list ) THEN
283: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
284: END IF;
285:
286: -- Check p_init_msg_list
287: IF FND_API.to_Boolean( p_init_msg_list ) THEN
288: FND_MSG_PUB.initialize;
289: END IF;
290: -- IF PG_DEBUG < 10 THEN
291: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
291: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
292: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after init');
293: END IF;
294:
295: x_return_status := FND_API.G_RET_STS_SUCCESS;
296:
297: -- Check for required parameter p_strategy_id
298: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
299: -- IF PG_DEBUG < 10 THEN
294:
295: x_return_status := FND_API.G_RET_STS_SUCCESS;
296:
297: -- Check for required parameter p_strategy_id
298: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
299: -- IF PG_DEBUG < 10 THEN
300: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
301: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'Required Parameter p_strategy_id is invalid');
302: END IF;
302: END IF;
303: AddMissingArgMsg(
304: p_api_name => l_api_name_full,
305: p_param_name => 'p_strategy_id' );
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: -- IF PG_DEBUG < 10 THEN
309: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
310: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after p_strategy_id check');
310: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after p_strategy_id check');
311: END IF;
312:
313: -- Check for required parameter p_status_id
314: IF (p_status IS NULL) OR (p_status = FND_API.G_MISS_CHAR) THEN
315: -- IF PG_DEBUG < 10 THEN
316: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
317: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'Required Parameter p_status is invalid');
318: END IF;
318: END IF;
319: AddMissingArgMsg(
320: p_api_name => l_api_name_full,
321: p_param_name => 'p_status' );
322: RAISE FND_API.G_EXC_ERROR;
323: END IF;
324: -- IF PG_DEBUG < 10 THEN
325: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
326: IEX_DEBUG_PUB.LogMessage('CLOSE_STRY_AND_WITEMS: ' || 'after p_status check');
344:
345: IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items(
346: P_Api_Version_Number =>l_api_version_number,
347: P_strategy_work_item_Rec =>l_strategy_work_item_Rec,
348: P_Init_Msg_List =>FND_API.G_TRUE,
349: p_commit =>FND_API.G_TRUE,
350: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
351: x_msg_count => l_msg_count,
352: x_msg_data => l_msg_data,
345: IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items(
346: P_Api_Version_Number =>l_api_version_number,
347: P_strategy_work_item_Rec =>l_strategy_work_item_Rec,
348: P_Init_Msg_List =>FND_API.G_TRUE,
349: p_commit =>FND_API.G_TRUE,
350: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
351: x_msg_count => l_msg_count,
352: x_msg_data => l_msg_data,
353: x_return_status => l_return_status,
346: P_Api_Version_Number =>l_api_version_number,
347: P_strategy_work_item_Rec =>l_strategy_work_item_Rec,
348: P_Init_Msg_List =>FND_API.G_TRUE,
349: p_commit =>FND_API.G_TRUE,
350: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
351: x_msg_count => l_msg_count,
352: x_msg_data => l_msg_data,
353: x_return_status => l_return_status,
354: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
356: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
357: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'After Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items '||
358: 'and Status =>'||l_return_status);
359: END IF;
360: IF l_return_status = FND_API.G_RET_STS_ERROR then
361: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
362: p_operation => 'UPDATE' );
363: raise FND_API.G_EXC_ERROR;
364: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
359: END IF;
360: IF l_return_status = FND_API.G_RET_STS_ERROR then
361: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
362: p_operation => 'UPDATE' );
363: raise FND_API.G_EXC_ERROR;
364: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
365: raise FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367:
360: IF l_return_status = FND_API.G_RET_STS_ERROR then
361: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
362: p_operation => 'UPDATE' );
363: raise FND_API.G_EXC_ERROR;
364: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
365: raise FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367:
368: END LOOP;
361: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
362: p_operation => 'UPDATE' );
363: raise FND_API.G_EXC_ERROR;
364: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
365: raise FND_API.G_EXC_UNEXPECTED_ERROR;
366: END IF;
367:
368: END LOOP;
369: -- IF PG_DEBUG < 10 THEN
387: AddInvalidArgMsg(
388: p_api_name => l_api_name_full,
389: p_param_value => p_strategy_id,
390: p_param_name => 'p_stragey_id' );
391: RAISE FND_API.G_EXC_ERROR;
392: WHEN OTHERS THEN
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: END;
395:
389: p_param_value => p_strategy_id,
390: p_param_name => 'p_stragey_id' );
391: RAISE FND_API.G_EXC_ERROR;
392: WHEN OTHERS THEN
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: END;
395:
396: l_strategy_Rec.object_version_number := l_object_version_number;
397:
406:
407: IEX_STRATEGY_PVT.Update_strategy(
408: P_Api_Version_Number =>l_api_version_number,
409: P_strategy_Rec =>l_strategy_Rec,
410: P_Init_Msg_List =>FND_API.G_TRUE,
411: p_commit =>FND_API.G_TRUE,
412: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
413: x_msg_count => l_msg_count,
414: x_msg_data => l_msg_data,
407: IEX_STRATEGY_PVT.Update_strategy(
408: P_Api_Version_Number =>l_api_version_number,
409: P_strategy_Rec =>l_strategy_Rec,
410: P_Init_Msg_List =>FND_API.G_TRUE,
411: p_commit =>FND_API.G_TRUE,
412: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
413: x_msg_count => l_msg_count,
414: x_msg_data => l_msg_data,
415: x_return_status => l_return_status,
408: P_Api_Version_Number =>l_api_version_number,
409: P_strategy_Rec =>l_strategy_Rec,
410: P_Init_Msg_List =>FND_API.G_TRUE,
411: p_commit =>FND_API.G_TRUE,
412: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
413: x_msg_count => l_msg_count,
414: x_msg_data => l_msg_data,
415: x_return_status => l_return_status,
416: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
419: iex_debug_pub.logMessage('CLOSE_STRY_AND_WITEMS: ' || 'After Calling IEX_STRATEGY_PVT.Update_strategy '||
420: 'and Status =>'||l_return_status);
421: END IF;
422:
423: IF l_return_status = FND_API.G_RET_STS_ERROR then
424: AddFailMsg( p_object => 'STRATEGY',
425: p_operation => 'UPDATE' );
426: raise FND_API.G_EXC_ERROR;
427: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
422:
423: IF l_return_status = FND_API.G_RET_STS_ERROR then
424: AddFailMsg( p_object => 'STRATEGY',
425: p_operation => 'UPDATE' );
426: raise FND_API.G_EXC_ERROR;
427: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
423: IF l_return_status = FND_API.G_RET_STS_ERROR then
424: AddFailMsg( p_object => 'STRATEGY',
425: p_operation => 'UPDATE' );
426: raise FND_API.G_EXC_ERROR;
427: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
431:
424: AddFailMsg( p_object => 'STRATEGY',
425: p_operation => 'UPDATE' );
426: raise FND_API.G_EXC_ERROR;
427: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
428: raise FND_API.G_EXC_UNEXPECTED_ERROR;
429: END IF;
430:
431:
432: -- Standard check of p_commit
429: END IF;
430:
431:
432: -- Standard check of p_commit
433: IF FND_API.To_Boolean(p_commit) THEN
434: COMMIT WORK;
435: END IF;
436: --Begin bug#5874874 gnramasa 25-Apr-2007
437: --Update the UWQ summary table after closing the strategy.
444: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
445:
446:
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
452:
446:
447: EXCEPTION
448: WHEN FND_API.G_EXC_ERROR THEN
449: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
452:
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
449: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
450: x_return_status := FND_API.G_RET_STS_ERROR;
451: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
452:
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
457:
451: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
452:
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
455: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
456: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
457:
458: WHEN OTHERS THEN
459: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
456: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
457:
458: WHEN OTHERS THEN
459: ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
460: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
461: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
462: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
463: END IF;
464: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
471: **/
472:
473: PROCEDURE CLOSE_STRATEGY
474: (p_api_version IN NUMBER,
475: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
476: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
477: p_strategy_id IN NUMBER,
478: p_status IN VARCHAR2,
479: x_return_status OUT NOCOPY VARCHAR2,
472:
473: PROCEDURE CLOSE_STRATEGY
474: (p_api_version IN NUMBER,
475: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
476: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
477: p_strategy_id IN NUMBER,
478: p_status IN VARCHAR2,
479: x_return_status OUT NOCOPY VARCHAR2,
480: x_msg_count OUT NOCOPY NUMBER,
502:
503: SAVEPOINT CLOSE_STRATEGY_PUB;
504:
505: -- Standard call to check for call compatibility.
506: IF NOT FND_API.Compatible_API_Call (l_api_version,
507: p_api_version,
508: l_api_name,
509: G_PKG_NAME) THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
506: IF NOT FND_API.Compatible_API_Call (l_api_version,
507: p_api_version,
508: l_api_name,
509: G_PKG_NAME) THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
511: END IF;
512:
513: -- Check p_init_msg_list
514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
511: END IF;
512:
513: -- Check p_init_msg_list
514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
515: FND_MSG_PUB.initialize;
516: END IF;
517:
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
514: IF FND_API.to_Boolean( p_init_msg_list ) THEN
515: FND_MSG_PUB.initialize;
516: END IF;
517:
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
519:
520: -- Check for required parameter p_strategy_id
521: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
522: -- IF PG_DEBUG < 10 THEN
517:
518: x_return_status := FND_API.G_RET_STS_SUCCESS;
519:
520: -- Check for required parameter p_strategy_id
521: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
522: -- IF PG_DEBUG < 10 THEN
523: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
524: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'Required Parameter p_strategy_id is invalid');
525: END IF;
525: END IF;
526: AddMissingArgMsg(
527: p_api_name => l_api_name_full,
528: p_param_name => 'p_strategy_id' );
529: RAISE FND_API.G_EXC_ERROR;
530: END IF;
531: -- IF PG_DEBUG < 10 THEN
532: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
533: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'after p_strategy_id check');
533: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'after p_strategy_id check');
534: END IF;
535:
536: -- Check for required parameter p_status_id
537: IF (p_status IS NULL) OR (p_status = FND_API.G_MISS_CHAR) THEN
538: -- IF PG_DEBUG < 10 THEN
539: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
540: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'Required Parameter p_status is invalid');
541: END IF;
541: END IF;
542: AddMissingArgMsg(
543: p_api_name => l_api_name_full,
544: p_param_name => 'p_status' );
545: RAISE FND_API.G_EXC_ERROR;
546: END IF;
547: -- IF PG_DEBUG < 10 THEN
548: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
549: IEX_DEBUG_PUB.LogMessage('CLOSE_STRATEGY: ' || 'after p_status check');
565: AddInvalidArgMsg(
566: p_api_name => l_api_name_full,
567: p_param_value => p_strategy_id,
568: p_param_name => 'p_stragey_id' );
569: RAISE FND_API.G_EXC_ERROR;
570: WHEN OTHERS THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END;
573:
567: p_param_value => p_strategy_id,
568: p_param_name => 'p_stragey_id' );
569: RAISE FND_API.G_EXC_ERROR;
570: WHEN OTHERS THEN
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END;
573:
574: l_strategy_Rec.object_version_number := l_object_version_number;
575:
583: END IF;
584:
585: IEX_STRATEGY_PVT.Update_strategy(
586: P_Api_Version_Number =>2.0,
587: P_Init_Msg_List =>FND_API.G_TRUE,
588: p_commit =>FND_API.G_TRUE,
589: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
590: P_strategy_Rec =>l_strategy_Rec,
591: x_msg_count => l_msg_count,
584:
585: IEX_STRATEGY_PVT.Update_strategy(
586: P_Api_Version_Number =>2.0,
587: P_Init_Msg_List =>FND_API.G_TRUE,
588: p_commit =>FND_API.G_TRUE,
589: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
590: P_strategy_Rec =>l_strategy_Rec,
591: x_msg_count => l_msg_count,
592: x_msg_data => l_msg_data,
585: IEX_STRATEGY_PVT.Update_strategy(
586: P_Api_Version_Number =>2.0,
587: P_Init_Msg_List =>FND_API.G_TRUE,
588: p_commit =>FND_API.G_TRUE,
589: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
590: P_strategy_Rec =>l_strategy_Rec,
591: x_msg_count => l_msg_count,
592: x_msg_data => l_msg_data,
593: x_return_status => l_return_status,
597: iex_debug_pub.logMessage('CLOSE_STRATEGY: ' || 'After Calling IEX_STRATEGY_PVT.Update_strategy '||
598: 'and Status =>'||l_return_status);
599: END IF;
600:
601: IF l_return_status = FND_API.G_RET_STS_ERROR then
602: AddFailMsg( p_object => 'STRATEGY',
603: p_operation => 'UPDATE' );
604: raise FND_API.G_EXC_ERROR;
605: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
600:
601: IF l_return_status = FND_API.G_RET_STS_ERROR then
602: AddFailMsg( p_object => 'STRATEGY',
603: p_operation => 'UPDATE' );
604: raise FND_API.G_EXC_ERROR;
605: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
606: raise FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608:
601: IF l_return_status = FND_API.G_RET_STS_ERROR then
602: AddFailMsg( p_object => 'STRATEGY',
603: p_operation => 'UPDATE' );
604: raise FND_API.G_EXC_ERROR;
605: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
606: raise FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608:
609:
602: AddFailMsg( p_object => 'STRATEGY',
603: p_operation => 'UPDATE' );
604: raise FND_API.G_EXC_ERROR;
605: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
606: raise FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608:
609:
610: -- Standard check of p_commit
607: END IF;
608:
609:
610: -- Standard check of p_commit
611: IF FND_API.To_Boolean(p_commit) THEN
612: COMMIT WORK;
613: END IF;
614:
615: -- Standard call to get message count and if count is 1, get message info
616: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
617:
618:
619: EXCEPTION
620: WHEN FND_API.G_EXC_ERROR THEN
621: ROLLBACK TO CLOSE_STRATEGY_PUB;
622: x_return_status := FND_API.G_RET_STS_ERROR;
623: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
624:
618:
619: EXCEPTION
620: WHEN FND_API.G_EXC_ERROR THEN
621: ROLLBACK TO CLOSE_STRATEGY_PUB;
622: x_return_status := FND_API.G_RET_STS_ERROR;
623: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
624:
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: ROLLBACK TO CLOSE_STRATEGY_PUB;
621: ROLLBACK TO CLOSE_STRATEGY_PUB;
622: x_return_status := FND_API.G_RET_STS_ERROR;
623: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
624:
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: ROLLBACK TO CLOSE_STRATEGY_PUB;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
629:
623: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
624:
625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
626: ROLLBACK TO CLOSE_STRATEGY_PUB;
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
629:
630: WHEN OTHERS THEN
631: ROLLBACK TO CLOSE_STRATEGY_PUB;
628: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
629:
630: WHEN OTHERS THEN
631: ROLLBACK TO CLOSE_STRATEGY_PUB;
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
634: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
635: END IF;
636: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
644: **/
645:
646: PROCEDURE UPDATE_WORK_ITEM
647: (p_api_version IN NUMBER,
648: p_commit IN VARCHAR2 DEFAULT FND_API.G_TRUE,
649: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
650: p_work_item_id IN NUMBER,
651: p_status IN VARCHAR2,
652: x_return_status OUT NOCOPY VARCHAR2,
645:
646: PROCEDURE UPDATE_WORK_ITEM
647: (p_api_version IN NUMBER,
648: p_commit IN VARCHAR2 DEFAULT FND_API.G_TRUE,
649: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
650: p_work_item_id IN NUMBER,
651: p_status IN VARCHAR2,
652: x_return_status OUT NOCOPY VARCHAR2,
653: x_msg_count OUT NOCOPY NUMBER,
676:
677: SAVEPOINT UPDATE_WORK_ITEM_PUB;
678:
679: -- Standard call to check for call compatibility.
680: IF NOT FND_API.Compatible_API_Call (l_api_version,
681: p_api_version,
682: l_api_name,
683: G_PKG_NAME) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: IF NOT FND_API.Compatible_API_Call (l_api_version,
681: p_api_version,
682: l_api_name,
683: G_PKG_NAME) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
687: -- Check p_init_msg_list
688: IF FND_API.to_Boolean( p_init_msg_list ) THEN
684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686:
687: -- Check p_init_msg_list
688: IF FND_API.to_Boolean( p_init_msg_list ) THEN
689: FND_MSG_PUB.initialize;
690: END IF;
691: -- IF PG_DEBUG < 10 THEN
692: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
692: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
693: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after init');
694: END IF;
695:
696: x_return_status := FND_API.G_RET_STS_SUCCESS;
697:
698: -- Check for required parameter p_strategy_id
699: IF (p_work_item_id IS NULL) OR (p_work_item_id = FND_API.G_MISS_NUM) THEN
700: -- IF PG_DEBUG < 10 THEN
695:
696: x_return_status := FND_API.G_RET_STS_SUCCESS;
697:
698: -- Check for required parameter p_strategy_id
699: IF (p_work_item_id IS NULL) OR (p_work_item_id = FND_API.G_MISS_NUM) THEN
700: -- IF PG_DEBUG < 10 THEN
701: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
702: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'Required Parameter p_work_item_id is invalid');
703: END IF;
703: END IF;
704: AddMissingArgMsg(
705: p_api_name => l_api_name_full,
706: p_param_name => 'p_work_item_id' );
707: RAISE FND_API.G_EXC_ERROR;
708: END IF;
709: -- IF PG_DEBUG < 10 THEN
710: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
711: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after p_work_item_id check');
711: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after p_work_item_id check');
712: END IF;
713:
714: -- Check for required parameter p_status_id
715: IF (p_status IS NULL) OR (p_status = FND_API.G_MISS_CHAR) THEN
716: -- IF PG_DEBUG < 10 THEN
717: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
718: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'Required Parameter p_status is invalid');
719: END IF;
719: END IF;
720: AddMissingArgMsg(
721: p_api_name => l_api_name_full,
722: p_param_name => 'p_status' );
723: RAISE FND_API.G_EXC_ERROR;
724: END IF;
725: -- IF PG_DEBUG < 10 THEN
726: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
727: IEX_DEBUG_PUB.LogMessage('UPDATE_WORK_ITEM: ' || 'after p_status check');
745:
746: IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items(
747: P_Api_Version_Number =>l_api_version_number,
748: P_strategy_work_item_Rec =>l_strategy_work_item_Rec,
749: P_Init_Msg_List =>FND_API.G_TRUE,
750: p_commit =>FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: x_msg_count => l_msg_count,
753: x_msg_data => l_msg_data,
746: IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items(
747: P_Api_Version_Number =>l_api_version_number,
748: P_strategy_work_item_Rec =>l_strategy_work_item_Rec,
749: P_Init_Msg_List =>FND_API.G_TRUE,
750: p_commit =>FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: x_msg_count => l_msg_count,
753: x_msg_data => l_msg_data,
754: x_return_status => l_return_status,
747: P_Api_Version_Number =>l_api_version_number,
748: P_strategy_work_item_Rec =>l_strategy_work_item_Rec,
749: P_Init_Msg_List =>FND_API.G_TRUE,
750: p_commit =>FND_API.G_TRUE,
751: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
752: x_msg_count => l_msg_count,
753: x_msg_data => l_msg_data,
754: x_return_status => l_return_status,
755: XO_OBJECT_VERSION_NUMBER =>l_object_version_number );
757: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
758: iex_debug_pub.logMessage('UPDATE_WORK_ITEM: ' || 'After Calling IEX_STRATEGY_WORK_ITEMS_PVT.Update_strategy_work_items '||
759: 'and Status =>'||l_return_status);
760: END IF;
761: IF l_return_status = FND_API.G_RET_STS_ERROR then
762: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
763: p_operation => 'UPDATE' );
764: raise FND_API.G_EXC_ERROR;
765: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
760: END IF;
761: IF l_return_status = FND_API.G_RET_STS_ERROR then
762: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
763: p_operation => 'UPDATE' );
764: raise FND_API.G_EXC_ERROR;
765: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
766: raise FND_API.G_EXC_UNEXPECTED_ERROR;
767: END IF;
768:
761: IF l_return_status = FND_API.G_RET_STS_ERROR then
762: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
763: p_operation => 'UPDATE' );
764: raise FND_API.G_EXC_ERROR;
765: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
766: raise FND_API.G_EXC_UNEXPECTED_ERROR;
767: END IF;
768:
769: END LOOP;
762: AddFailMsg( p_object => 'STRATEGY_WORK_ITEMS',
763: p_operation => 'UPDATE' );
764: raise FND_API.G_EXC_ERROR;
765: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
766: raise FND_API.G_EXC_UNEXPECTED_ERROR;
767: END IF;
768:
769: END LOOP;
770: -- IF PG_DEBUG < 10 THEN
774:
775:
776:
777: -- Standard check of p_commit
778: IF FND_API.To_Boolean(p_commit) THEN
779: COMMIT WORK;
780: END IF;
781:
782: -- Standard call to get message count and if count is 1, get message info
783: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
784:
785:
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
789: ROLLBACK TO UPDATE_WORK_ITEM_PUB;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
786: EXCEPTION
787: WHEN FND_API.G_EXC_ERROR THEN
788: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
789: ROLLBACK TO UPDATE_WORK_ITEM_PUB;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
792:
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
789: ROLLBACK TO UPDATE_WORK_ITEM_PUB;
790: x_return_status := FND_API.G_RET_STS_ERROR;
791: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
792:
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
795: ROLLBACK TO UPDATE_WORK_ITEM_PUB;
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
797: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
792:
793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
794: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
795: ROLLBACK TO UPDATE_WORK_ITEM_PUB;
796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
797: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
798:
799: WHEN OTHERS THEN
800: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
798:
799: WHEN OTHERS THEN
800: --ROLLBACK TO CLOSE_STRY_AND_WITEMS_PUB;
801: ROLLBACK TO UPDATE_WORK_ITEM_PUB;
802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
803: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
804: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
805: END IF;
806: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
811: * when a work item is created
812: **/
813: PROCEDURE UPDATE_NEXT_WORK_ITEM
814: (p_api_version IN NUMBER,
815: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
816: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
817: p_work_item_id IN NUMBER,
818: p_strategy_id IN NUMBER,
819: x_return_status OUT NOCOPY VARCHAR2,
812: **/
813: PROCEDURE UPDATE_NEXT_WORK_ITEM
814: (p_api_version IN NUMBER,
815: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
816: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
817: p_work_item_id IN NUMBER,
818: p_strategy_id IN NUMBER,
819: x_return_status OUT NOCOPY VARCHAR2,
820: x_msg_count OUT NOCOPY NUMBER,
837:
838: SAVEPOINT UPDATE_NEXT_WORK_ITEM_PUB;
839:
840: -- Standard call to check for call compatibility.
841: IF NOT FND_API.Compatible_API_Call (l_api_version,
842: p_api_version,
843: l_api_name,
844: G_PKG_NAME) THEN
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
841: IF NOT FND_API.Compatible_API_Call (l_api_version,
842: p_api_version,
843: l_api_name,
844: G_PKG_NAME) THEN
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: END IF;
847:
848: -- Check p_init_msg_list
849: IF FND_API.to_Boolean( p_init_msg_list ) THEN
845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
846: END IF;
847:
848: -- Check p_init_msg_list
849: IF FND_API.to_Boolean( p_init_msg_list ) THEN
850: FND_MSG_PUB.initialize;
851: END IF;
852:
853: x_return_status := FND_API.G_RET_STS_SUCCESS;
849: IF FND_API.to_Boolean( p_init_msg_list ) THEN
850: FND_MSG_PUB.initialize;
851: END IF;
852:
853: x_return_status := FND_API.G_RET_STS_SUCCESS;
854:
855: -- Check for required parameter p_strategy_id
856: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
857: -- IF PG_DEBUG < 10 THEN
852:
853: x_return_status := FND_API.G_RET_STS_SUCCESS;
854:
855: -- Check for required parameter p_strategy_id
856: IF (p_strategy_id IS NULL) OR (p_strategy_id = FND_API.G_MISS_NUM) THEN
857: -- IF PG_DEBUG < 10 THEN
858: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
859: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Required Parameter p_strategy_id is invalid');
860: END IF;
860: END IF;
861: AddMissingArgMsg(
862: p_api_name => l_api_name_full,
863: p_param_name => 'p_strategy_id' );
864: RAISE FND_API.G_EXC_ERROR;
865: END IF;
866: -- IF PG_DEBUG < 10 THEN
867: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
868: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'after p_strategy_id check');
868: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'after p_strategy_id check');
869: END IF;
870:
871: -- Check for required parameter p_work_item_id
872: IF (p_work_item_id IS NULL) OR (p_work_item_id = FND_API.G_MISS_NUM) THEN
873: -- IF PG_DEBUG < 10 THEN
874: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
875: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'Required Parameter p_work_item_id is invalid');
876: END IF;
876: END IF;
877: AddMissingArgMsg(
878: p_api_name => l_api_name_full,
879: p_param_name => 'p_work_item_id' );
880: RAISE FND_API.G_EXC_ERROR;
881: END IF;
882: -- IF PG_DEBUG < 10 THEN
883: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
884: IEX_DEBUG_PUB.LogMessage('UPDATE_NEXT_WORK_ITEM: ' || 'after p_work_item_id check');
899: AddInvalidArgMsg(
900: p_api_name => l_api_name_full,
901: p_param_value => p_strategy_id,
902: p_param_name => 'p_stragey_id' );
903: RAISE FND_API.G_EXC_ERROR;
904: WHEN OTHERS THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END;
907:
901: p_param_value => p_strategy_id,
902: p_param_name => 'p_stragey_id' );
903: RAISE FND_API.G_EXC_ERROR;
904: WHEN OTHERS THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: END;
907:
908: l_strategy_Rec.object_version_number := l_object_version_number;
909:
917: END IF;
918:
919: IEX_STRATEGY_PVT.Update_strategy(
920: P_Api_Version_Number =>2.0,
921: P_Init_Msg_List =>FND_API.G_TRUE,
922: p_commit =>FND_API.G_TRUE,
923: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
924: P_strategy_Rec =>l_strategy_Rec,
925: x_msg_count => l_msg_count,
918:
919: IEX_STRATEGY_PVT.Update_strategy(
920: P_Api_Version_Number =>2.0,
921: P_Init_Msg_List =>FND_API.G_TRUE,
922: p_commit =>FND_API.G_TRUE,
923: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
924: P_strategy_Rec =>l_strategy_Rec,
925: x_msg_count => l_msg_count,
926: x_msg_data => l_msg_data,
919: IEX_STRATEGY_PVT.Update_strategy(
920: P_Api_Version_Number =>2.0,
921: P_Init_Msg_List =>FND_API.G_TRUE,
922: p_commit =>FND_API.G_TRUE,
923: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
924: P_strategy_Rec =>l_strategy_Rec,
925: x_msg_count => l_msg_count,
926: x_msg_data => l_msg_data,
927: x_return_status => l_return_status,
931: iex_debug_pub.logMessage('UPDATE_NEXT_WORK_ITEM: ' || 'After Calling IEX_STRATEGY_PVT.Update_strategy '||
932: 'and Status =>'||l_return_status);
933: END IF;
934:
935: IF l_return_status = FND_API.G_RET_STS_ERROR then
936: AddFailMsg( p_object => 'STRATEGY',
937: p_operation => 'UPDATE' );
938: raise FND_API.G_EXC_ERROR;
939: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
934:
935: IF l_return_status = FND_API.G_RET_STS_ERROR then
936: AddFailMsg( p_object => 'STRATEGY',
937: p_operation => 'UPDATE' );
938: raise FND_API.G_EXC_ERROR;
939: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
940: raise FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
935: IF l_return_status = FND_API.G_RET_STS_ERROR then
936: AddFailMsg( p_object => 'STRATEGY',
937: p_operation => 'UPDATE' );
938: raise FND_API.G_EXC_ERROR;
939: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
940: raise FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943:
936: AddFailMsg( p_object => 'STRATEGY',
937: p_operation => 'UPDATE' );
938: raise FND_API.G_EXC_ERROR;
939: elsif l_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
940: raise FND_API.G_EXC_UNEXPECTED_ERROR;
941: END IF;
942:
943:
944: -- Standard check of p_commit
941: END IF;
942:
943:
944: -- Standard check of p_commit
945: IF FND_API.To_Boolean(p_commit) THEN
946: COMMIT WORK;
947: END IF;
948:
949: -- Standard call to get message count and if count is 1, get message info
950: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
951:
952:
953: EXCEPTION
954: WHEN FND_API.G_EXC_ERROR THEN
955: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
958:
952:
953: EXCEPTION
954: WHEN FND_API.G_EXC_ERROR THEN
955: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
958:
959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
960: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
955: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
956: x_return_status := FND_API.G_RET_STS_ERROR;
957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
958:
959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
960: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
963:
957: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
958:
959: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
960: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
961: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
962: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
963:
964: WHEN OTHERS THEN
965: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
962: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
963:
964: WHEN OTHERS THEN
965: ROLLBACK TO UPDATE_NEXT_WORK_ITEM_PUB;
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
968: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
969: END IF;
970: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
1422: **/
1423: /*
1424: PROCEDURE REASSIGN_STRATEGY( p_strategy_id IN NUMBER,
1425: p_status IN VARCHAR2,
1426: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1427: x_return_status OUT NOCOPY VARCHAR2,
1428: x_msg_count OUT NOCOPY NUMBER,
1429: x_msg_data OUT NOCOPY VARCHAR2) IS
1430:
1449: BEGIN
1450:
1451: SAVEPOINT REASSIGN_STRATEGY_PUB;
1452:
1453: x_return_status := FND_API.G_RET_STS_ERROR;
1454:
1455:
1456: IEX_STRATEGY_WF.SEND_SIGNAL(process => 'IEXSTRY',
1457: strategy_id => p_strategy_id,
1490: END IF;
1491:
1492: IEX_STRATEGY_PUB.CREATE_STRATEGY
1493: (p_api_version_number => 2.0,
1494: p_init_msg_list => FND_API.G_TRUE,
1495: p_commit => p_commit,
1496: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1497: p_delinquencyId => l_delinquency_id ,
1498: p_objecttype => l_object_type,
1492: IEX_STRATEGY_PUB.CREATE_STRATEGY
1493: (p_api_version_number => 2.0,
1494: p_init_msg_list => FND_API.G_TRUE,
1495: p_commit => p_commit,
1496: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1497: p_delinquencyId => l_delinquency_id ,
1498: p_objecttype => l_object_type,
1499: p_objectid => l_object_id ,
1500: x_return_status => l_return_status,
1516: RETURN;
1517: END if; --l_status =cancelled
1518:
1519: -- Standard check of p_commit
1520: IF FND_API.To_Boolean(p_commit) THEN
1521: COMMIT WORK;
1522: END IF;
1523:
1524: EXCEPTION
1536:
1537: /*
1538: PROCEDURE UPDATE_AND_SENDSIGNAL( P_strategy_work_item_Rec IN
1539: iex_strategy_work_items_pvt.strategy_work_item_Rec_Type,
1540: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1541: x_return_status OUT NOCOPY VARCHAR2,
1542: x_msg_count OUT NOCOPY NUMBER,
1543: x_msg_data OUT NOCOPY VARCHAR2)IS
1544:
1551: BEGIN
1552:
1553: SAVEPOINT UPDATE_AND_SENDSIGNAL;
1554:
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556:
1557: iex_strategy_work_items_pvt.update_strategy_work_items(
1558: p_api_version_number => 2.0,
1559: p_init_msg_list => FND_API.G_TRUE,
1555: x_return_status := FND_API.G_RET_STS_SUCCESS;
1556:
1557: iex_strategy_work_items_pvt.update_strategy_work_items(
1558: p_api_version_number => 2.0,
1559: p_init_msg_list => FND_API.G_TRUE,
1560: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1561: p_commit => p_commit,
1562: x_return_status => l_return_status,
1563: x_msg_count => l_msg_count,
1556:
1557: iex_strategy_work_items_pvt.update_strategy_work_items(
1558: p_api_version_number => 2.0,
1559: p_init_msg_list => FND_API.G_TRUE,
1560: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1561: p_commit => p_commit,
1562: x_return_status => l_return_status,
1563: x_msg_count => l_msg_count,
1564: x_msg_data => l_msg_data,
1564: x_msg_data => l_msg_data,
1565: p_strategy_work_item_rec => p_strategy_work_item_rec,
1566: xo_object_version_number => l_object_version_number);
1567:
1568: If l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1569: x_msg_count :=l_msg_count;
1570: x_msg_data :=l_msg_data;
1571: x_return_status :=l_return_status;
1572: ROLLBACK TO UPDATE_AND_SENDSIGNAL;
1597: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1598: IEX_DEBUG_PUB.logmessage('UPDATE_AND_SENDSIGNAL: ' || 'send signal has failed ');
1599: END IF;
1600: rollback to UPDATE_AND_SENDSIGNAL;
1601: x_return_status := FND_API.G_RET_STS_ERROR;
1602: return;
1603: else
1604: -- IF PG_DEBUG < 10 THEN
1605: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
1608: end if;
1609: END IF; --if status is successful
1610:
1611: -- Standard check of p_commit
1612: IF FND_API.To_Boolean(p_commit) THEN
1613: COMMIT WORK;
1614: END IF;
1615:
1616: EXCEPTION