10: PG_DEBUG NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
11:
12: PROCEDURE Create_strategy_work_items(
13: P_Api_Version_Number IN NUMBER,
14: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
15: P_Commit IN VARCHAR2 := FND_API.G_TRUE,
16: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: P_strategy_work_item_Rec IN strategy_work_item_Rec_Type := G_MISS_strategy_work_item_REC,
18: X_WORK_ITEM_ID OUT NOCOPY NUMBER,
11:
12: PROCEDURE Create_strategy_work_items(
13: P_Api_Version_Number IN NUMBER,
14: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
15: P_Commit IN VARCHAR2 := FND_API.G_TRUE,
16: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: P_strategy_work_item_Rec IN strategy_work_item_Rec_Type := G_MISS_strategy_work_item_REC,
18: X_WORK_ITEM_ID OUT NOCOPY NUMBER,
19: X_Return_Status OUT NOCOPY VARCHAR2,
12: PROCEDURE Create_strategy_work_items(
13: P_Api_Version_Number IN NUMBER,
14: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
15: P_Commit IN VARCHAR2 := FND_API.G_TRUE,
16: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
17: P_strategy_work_item_Rec IN strategy_work_item_Rec_Type := G_MISS_strategy_work_item_REC,
18: X_WORK_ITEM_ID OUT NOCOPY NUMBER,
19: X_Return_Status OUT NOCOPY VARCHAR2,
20: X_Msg_Count OUT NOCOPY NUMBER,
44: -- Standard Start of API savepoint
45: SAVEPOINT CREATE_strategy_work_items_PVT;
46:
47: -- Standard call to check for call compatibility.
48: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
49: p_api_version_number,
50: l_api_name,
51: G_PKG_NAME)
52: THEN
49: p_api_version_number,
50: l_api_name,
51: G_PKG_NAME)
52: THEN
53: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
54: END IF;
55: -- IF PG_DEBUG < 10 THEN
56: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
57: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'After Compatibility Check');
57: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'After Compatibility Check');
58: END IF;
59:
60: -- Initialize message list if p_init_msg_list is set to TRUE.
61: IF FND_API.to_Boolean( p_init_msg_list )
62: THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
64: END IF;
65:
66:
67: -- Initialize API return status to SUCCESS
68: x_return_status := FND_API.G_RET_STS_SUCCESS;
69: --
70: -- API body
71: --
72: -- ******************************************************************
79: FND_MESSAGE.Set_Name('IEX', 'IEX_CANNOT_GET_PROFILE_VALUE');
80: FND_MESSAGE.Set_Token('PROFILE', 'USER_ID', FALSE);
81: FND_MSG_PUB.ADD;
82: END IF;
83: RAISE FND_API.G_EXC_ERROR;
84: END IF;
85: -- IF PG_DEBUG < 10 THEN
86: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
87: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'After Global user Check');
99: END IF;
100:
101: --strategy Id check
102: IF (P_strategy_work_item_rec.strategy_id IS NULL) OR
103: (P_strategy_work_item_rec.strategy_id =FND_API.G_MISS_NUM) THEN
104: fnd_message.set_name('IEX', 'IEX_API_ALL_MISSING_PARAM');
105: fnd_message.set_token('API_NAME', l_api_name);
106: fnd_message.set_token('MISSING_PARAM', 'strategy_id');
107: fnd_msg_pub.add;
104: fnd_message.set_name('IEX', 'IEX_API_ALL_MISSING_PARAM');
105: fnd_message.set_token('API_NAME', l_api_name);
106: fnd_message.set_token('MISSING_PARAM', 'strategy_id');
107: fnd_msg_pub.add;
108: RAISE FND_API.G_EXC_ERROR;
109: END IF;
110: -- IF PG_DEBUG < 10 THEN
111: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
112: IEX_DEBUG_PUB.LogMessage ('Create_strategy_work_items: ' || 'After strategy id check');
113: END IF;
114:
115: --resource Id check
116: IF (P_strategy_work_item_rec.resource_id IS NULL) OR
117: (P_strategy_work_item_rec.resource_id =FND_API.G_MISS_NUM) THEN
118: fnd_message.set_name('IEX', 'IEX_API_ALL_MISSING_PARAM');
119: fnd_message.set_token('API_NAME', l_api_name);
120: fnd_message.set_token('MISSING_PARAM', 'resource_id');
121: fnd_msg_pub.add;
118: fnd_message.set_name('IEX', 'IEX_API_ALL_MISSING_PARAM');
119: fnd_message.set_token('API_NAME', l_api_name);
120: fnd_message.set_token('MISSING_PARAM', 'resource_id');
121: fnd_msg_pub.add;
122: RAISE FND_API.G_EXC_ERROR;
123: END IF;
124: -- IF PG_DEBUG < 10 THEN
125: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
126: IEX_DEBUG_PUB.LogMessage ('Create_strategy_work_items: ' || 'After resource id check');
160: );
161:
162: x_WORK_ITEM_ID := v_WORK_ITEM_ID;
163:
164: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: --
161:
162: x_WORK_ITEM_ID := v_WORK_ITEM_ID;
163:
164: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
165: RAISE FND_API.G_EXC_ERROR;
166: END IF;
167:
168: --
169: -- End of API body
171: -- added by vimpi for metaphor integration
172:
173: /* begin remove the check of profile, the procedure is doing nothing, ctlee 02/28/2005 */
174: /*
175: IF( x_return_status = FND_API.G_RET_STS_SUCCESS) then
176: IF (NVL(FND_PROFILE.VALUE('IEX_STRY_METAPHOR_CREATION'),'N') = 'Y') then
177: BEGIN
178: --dbms_output.put_line('calinggggg create_uwq_itemmmmm');
179: IEX_STRY_UWQ_PVT.Create_uwq_item(
177: BEGIN
178: --dbms_output.put_line('calinggggg create_uwq_itemmmmm');
179: IEX_STRY_UWQ_PVT.Create_uwq_item(
180: p_api_version => 1.0,
181: p_init_msg_list => FND_API.G_TRUE,
182: p_commit => p_commit,
183: p_work_item_id => v_work_item_id,
184: P_strategy_work_item_Rec => p_strategy_work_item_rec,
185: x_return_status => l_return_status,
190: if ( l_return_status = 'E') then
191: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
192: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'No Data Found');
193: END IF;
194: RAISE FND_API.G_EXC_ERROR;
195: elsif ( l_return_status ='U') then
196: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
197: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'Create UwqmProcedure failed');
198: END IF;
195: elsif ( l_return_status ='U') then
196: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
197: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'Create UwqmProcedure failed');
198: END IF;
199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
200: end if ;
201: END;
202: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
203: IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'In if metaphor');
209: /* end remove the check of profile, the procedure is doing nothing, ctlee 02/28/2005 */
210:
211:
212: -- Standard check for p_commit
213: IF FND_API.to_Boolean( p_commit )
214: THEN
215: COMMIT WORK;
216: END IF;
217:
225: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
226: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_strategy_work_items_PVT.Create_strategy_work_items ******** ');
227: END IF;
228: EXCEPTION
229: WHEN FND_API.G_EXC_ERROR THEN
230: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
231: P_API_NAME => L_API_NAME
232: ,P_PKG_NAME => G_PKG_NAME
233: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
235: ,X_MSG_COUNT => X_MSG_COUNT
236: ,X_MSG_DATA => X_MSG_DATA
237: ,X_RETURN_STATUS => X_RETURN_STATUS);
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
241: P_API_NAME => L_API_NAME
242: ,P_PKG_NAME => G_PKG_NAME
243: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
262:
263: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
264: PROCEDURE Update_strategy_work_items(
265: P_Api_Version_Number IN NUMBER,
266: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
267: P_Commit IN VARCHAR2 := FND_API.G_TRUE,
268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
269: P_strategy_work_item_Rec IN strategy_work_item_Rec_Type,
270: X_Return_Status OUT NOCOPY VARCHAR2,
263: -- Hint: Add corresponding update detail table procedures if it's master-detail relationship.
264: PROCEDURE Update_strategy_work_items(
265: P_Api_Version_Number IN NUMBER,
266: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
267: P_Commit IN VARCHAR2 := FND_API.G_TRUE,
268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
269: P_strategy_work_item_Rec IN strategy_work_item_Rec_Type,
270: X_Return_Status OUT NOCOPY VARCHAR2,
271: X_Msg_Count OUT NOCOPY NUMBER,
264: PROCEDURE Update_strategy_work_items(
265: P_Api_Version_Number IN NUMBER,
266: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
267: P_Commit IN VARCHAR2 := FND_API.G_TRUE,
268: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
269: P_strategy_work_item_Rec IN strategy_work_item_Rec_Type,
270: X_Return_Status OUT NOCOPY VARCHAR2,
271: X_Msg_Count OUT NOCOPY NUMBER,
272: X_Msg_Data OUT NOCOPY VARCHAR2,
333: -- Standard Start of API savepoint
334: SAVEPOINT UPDATE_strategy_work_items_PVT;
335:
336: -- Standard call to check for call compatibility.
337: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
338: p_api_version_number,
339: l_api_name,
340: G_PKG_NAME)
341: THEN
338: p_api_version_number,
339: l_api_name,
340: G_PKG_NAME)
341: THEN
342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
343: END IF;
344:
345:
346: -- Initialize message list if p_init_msg_list is set to TRUE.
343: END IF;
344:
345:
346: -- Initialize message list if p_init_msg_list is set to TRUE.
347: IF FND_API.to_Boolean( p_init_msg_list )
348: THEN
349: FND_MSG_PUB.initialize;
350: END IF;
351:
352:
353:
354:
355: -- Initialize API return status to SUCCESS
356: x_return_status := FND_API.G_RET_STS_SUCCESS;
357:
358: --
359: -- Api body
360: --
397: -- added by vimpi for metaphor integration
398:
399: /* begin remove the check of profile, the procedure is doing nothing, ctlee 02/28/2005 */
400: /*
401: IF( x_return_status = FND_API.G_RET_STS_SUCCESS) then
402: IF (NVL(FND_PROFILE.VALUE('IEX_STRY_METAPHOR_CREATION'),'N') = 'Y') then
403: BEGIN
404: l_work_item_temp_id := p_strategy_work_item_rec.WORK_ITEM_TEMPLATE_ID ;
405: l_work_item_id := p_strategy_work_item_rec.WORK_ITEM_ID ;
408: IEX_DEBUG_PUB.LogMessage('Update_strategy_work_items: ' || 'In VIMPIIIIIIII '||l_work_item_id);
409: END IF;
410: IEX_STRY_UWQ_PVT.Update_uwq_item(
411: p_api_version => 1.0,
412: p_init_msg_list => FND_API.G_TRUE,
413: p_commit => p_commit,
414: p_work_item_id => p_strategy_work_item_rec.WORK_ITEM_ID,
415: P_strategy_work_item_Rec => p_strategy_work_item_rec,
416: x_return_status => l_return_status,
419: if ( l_return_status = 'E') then
420: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
421: IEX_DEBUG_PUB.LogMessage('Update_strategy_work_items: ' || 'No Data Found');
422: END IF;
423: RAISE FND_API.G_EXC_ERROR;
424: elsif ( l_return_status ='U') then
425: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
426: IEX_DEBUG_PUB.LogMessage('Update_strategy_work_items: ' || 'Create UwqmProcedure failed');
427: END IF;
424: elsif ( l_return_status ='U') then
425: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
426: IEX_DEBUG_PUB.LogMessage('Update_strategy_work_items: ' || 'Create UwqmProcedure failed');
427: END IF;
428: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
429: end if ;
430: END;
431: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
432: IEX_DEBUG_PUB.LogMessage('Update_strategy_work_items: ' || 'In if metaphor');
439:
440: --
441:
442: -- Standard check for p_commit
443: IF FND_API.to_Boolean( p_commit )
444: THEN
445: COMMIT WORK;
446: END IF;
447:
446: END IF;
447:
448: -- added by vimpi for metaphor integration
449:
450: /* IF( x_return_status = FND_API.G_RET_STS_SUCCESS) then
451: IF (NVL(FND_PROFILE.VALUE('IEX_STRY_METAPHOR_CREATION'),'N') = 'Y') then
452: BEGIN
453: IEX_STRY_UWQ_PVT.Update_uwq_item(
454: p_api_version => 1.0,
451: IF (NVL(FND_PROFILE.VALUE('IEX_STRY_METAPHOR_CREATION'),'N') = 'Y') then
452: BEGIN
453: IEX_STRY_UWQ_PVT.Update_uwq_item(
454: p_api_version => 1.0,
455: p_init_msg_list => FND_API.G_TRUE,
456: p_commit => FND_API.G_TRUE,
457: p_work_item_id => p_strategy_work_item_rec.WORK_ITEM_ID,
458: P_strategy_work_item_Rec => p_strategy_work_item_rec,
459: x_return_status => l_return_status,
452: BEGIN
453: IEX_STRY_UWQ_PVT.Update_uwq_item(
454: p_api_version => 1.0,
455: p_init_msg_list => FND_API.G_TRUE,
456: p_commit => FND_API.G_TRUE,
457: p_work_item_id => p_strategy_work_item_rec.WORK_ITEM_ID,
458: P_strategy_work_item_Rec => p_strategy_work_item_rec,
459: x_return_status => l_return_status,
460: x_msg_count => l_msg_count,
469: p_msg_level => FND_MSG_PUB.G_MSG_LVL_ERROR,
470: p_msg_name => 'IEX_METAPHOR_CREATION_FAILED',
471: p_token1 => 'WORK_ITEM ',
472: p_token1_value => to_char(p_strategy_work_item_rec.work_item_id));
473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
474:
475: END;
476: -- IF PG_DEBUG < 10 THEN
477: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
495: IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
496: IEX_DEBUG_PUB.LogMessage ('********* end of Procedure =>IEX_strategy_work_items_PVT.update_strategy_work_items ******** ');
497: END IF;
498: EXCEPTION
499: WHEN FND_API.G_EXC_ERROR THEN
500: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
501: P_API_NAME => L_API_NAME
502: ,P_PKG_NAME => G_PKG_NAME
503: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
505: ,X_MSG_COUNT => X_MSG_COUNT
506: ,X_MSG_DATA => X_MSG_DATA
507: ,X_RETURN_STATUS => X_RETURN_STATUS);
508:
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
511: P_API_NAME => L_API_NAME
512: ,P_PKG_NAME => G_PKG_NAME
513: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
531:
532:
533: PROCEDURE Delete_strategy_work_items(
534: P_Api_Version_Number IN NUMBER,
535: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
536: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_WORK_ITEM_ID IN NUMBER,
539: X_Return_Status OUT NOCOPY VARCHAR2,
532:
533: PROCEDURE Delete_strategy_work_items(
534: P_Api_Version_Number IN NUMBER,
535: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
536: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_WORK_ITEM_ID IN NUMBER,
539: X_Return_Status OUT NOCOPY VARCHAR2,
540: X_Msg_Count OUT NOCOPY NUMBER,
533: PROCEDURE Delete_strategy_work_items(
534: P_Api_Version_Number IN NUMBER,
535: P_Init_Msg_List IN VARCHAR2 := FND_API.G_FALSE,
536: P_Commit IN VARCHAR2 := FND_API.G_FALSE,
537: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
538: p_WORK_ITEM_ID IN NUMBER,
539: X_Return_Status OUT NOCOPY VARCHAR2,
540: X_Msg_Count OUT NOCOPY NUMBER,
541: X_Msg_Data OUT NOCOPY VARCHAR2 )
548: -- Standard Start of API savepoint
549: SAVEPOINT DELETE_strategy_work_items_PVT;
550:
551: -- Standard call to check for call compatibility.
552: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
553: p_api_version_number,
554: l_api_name,
555: G_PKG_NAME)
556: THEN
553: p_api_version_number,
554: l_api_name,
555: G_PKG_NAME)
556: THEN
557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
558: END IF;
559:
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
558: END IF;
559:
560:
561: -- Initialize message list if p_init_msg_list is set to TRUE.
562: IF FND_API.to_Boolean( p_init_msg_list )
563: THEN
564: FND_MSG_PUB.initialize;
565: END IF;
566:
566:
567:
568:
569: -- Initialize API return status to SUCCESS
570: x_return_status := FND_API.G_RET_STS_SUCCESS;
571:
572: --
573: -- Api body
574: --
580: -- End of API body
581: --
582:
583: -- Standard check for p_commit
584: IF FND_API.to_Boolean( p_commit )
585: THEN
586: COMMIT WORK;
587: END IF;
588:
592: p_data => x_msg_data
593: );
594:
595: EXCEPTION
596: WHEN FND_API.G_EXC_ERROR THEN
597: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
598: P_API_NAME => L_API_NAME
599: ,P_PKG_NAME => G_PKG_NAME
600: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR
602: ,X_MSG_COUNT => X_MSG_COUNT
603: ,X_MSG_DATA => X_MSG_DATA
604: ,X_RETURN_STATUS => X_RETURN_STATUS);
605:
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
608: P_API_NAME => L_API_NAME
609: ,P_PKG_NAME => G_PKG_NAME
610: ,P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR