[Home] [Help]
PACKAGE BODY: APPS.IEX_STRATEGY_WORK_ITEMS_PVT
Source
1 PACKAGE BODY IEX_strategy_work_items_PVT as
2 /* $Header: iexvswib.pls 120.2.12010000.3 2008/10/20 09:38:32 pnaveenk ship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(300):= 'IEX_strategy_work_items_PVT';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvswib.pls';
6
7
8 -- Hint: Primary key needs to be returned.
9 --PG_DEBUG NUMBER(2) := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
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,
19 X_Return_Status OUT NOCOPY VARCHAR2,
20 X_Msg_Count OUT NOCOPY NUMBER,
21 X_Msg_Data OUT NOCOPY VARCHAR2
22 )
23
24 IS
25 l_api_name CONSTANT VARCHAR2(200) := 'Create_strategy_work_items';
26 l_api_version_number CONSTANT NUMBER := 2.0;
27 l_return_status_full VARCHAR2(1);
28 v_WORK_ITEM_ID iex_strategy_work_items.strategy_id%TYPE;
29 v_object_version_number iex_strategy_work_items.object_version_number%TYPE;
30 v_rowid VARCHAR2(24);
31 --added by vimpi
32 l_msg_Count number ;
33 l_msg_data varchar2(200) ;
34 l_return_status varchar2(200) ;
35
36
37 Cursor c2 is SELECT iex_strategy_work_items_S.nextval from dual;
38
39 BEGIN
40 -- IF PG_DEBUG < 10 THEN
41 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
42 IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_strategy_work_items_PVT.Create_strategy_work_items ******** ');
43 END IF;
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
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');
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
66
67 -- Initialize API return status to SUCCESS
68 x_return_status := FND_API.G_RET_STS_SUCCESS;
69 --
70 -- API body
71 --
72 -- ******************************************************************
73 -- Validate Environment
74 -- ******************************************************************
75 IF FND_GLOBAL.User_Id IS NULL
76 THEN
77 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
78 THEN
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');
88 END IF;
89
90 --object version Number
91 v_object_version_number :=1;
92 -- get work_item_id
93 OPEN C2;
94 FETCH C2 INTO v_work_item_id;
95 CLOSE C2;
96 -- IF PG_DEBUG < 10 THEN
97 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
98 IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'After work_item_id Check and work_item_id is => '||v_work_item_id);
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;
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;
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');
127 END IF;
128
129
130 -- IF PG_DEBUG < 10 THEN
131 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
132 IEX_DEBUG_PUB.LogMessage('Create_strategy_work_items: ' || 'Before Calling iex_strategies_pkg.insert_row');
133 END IF;
134
135 -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Insert_Row)
136 IEX_STRATEGY_WORK_ITEMS_PKG.Insert_Row(
137 x_rowid =>v_rowid
138 ,x_WORK_ITEM_ID => v_WORK_ITEM_ID
139 ,x_STRATEGY_ID => p_strategy_work_item_rec.STRATEGY_ID
140 ,x_RESOURCE_ID => p_strategy_work_item_rec.RESOURCE_ID
141 ,x_STATUS_CODE => p_strategy_work_item_rec.STATUS_CODE
142 ,x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
143 ,x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
144 ,x_CREATION_DATE => SYSDATE
145 ,x_CREATED_BY => FND_GLOBAL.USER_ID
146 ,x_PROGRAM_ID => p_strategy_work_item_rec.PROGRAM_ID
147 ,x_OBJECT_VERSION_NUMBER => v_OBJECT_VERSION_NUMBER
148 ,x_REQUEST_ID => p_strategy_work_item_rec.REQUEST_ID
149 ,x_LAST_UPDATE_DATE => SYSDATE
150 ,x_WORK_ITEM_TEMPLATE_ID => p_strategy_work_item_rec.WORK_ITEM_TEMPLATE_ID
151 ,x_PROGRAM_APPLICATION_ID => p_strategy_work_item_rec.PROGRAM_APPLICATION_ID
152 ,x_PROGRAM_UPDATE_DATE => p_strategy_work_item_rec.PROGRAM_UPDATE_DATE
153 ,x_EXECUTE_START => p_strategy_work_item_rec.EXECUTE_START
154 ,x_EXECUTE_END => p_strategy_work_item_rec.EXECUTE_END
155 ,x_SCHEDULE_START => p_strategy_work_item_rec.SCHEDULE_START
156 ,x_SCHEDULE_END => p_strategy_work_item_rec.SCHEDULE_END
157 ,x_STRATEGY_TEMP_ID => p_strategy_work_item_rec.STRATEGY_TEMP_ID
158 ,x_WORK_ITEM_ORDER => p_strategy_work_item_rec.WORK_ITEM_ORDER
159 ,x_ESCALATED_YN => p_strategy_work_item_rec.ESCALATED_YN
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 --
169 -- End of API body
170 --
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(
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,
186 x_msg_count => l_msg_count,
187 x_msg_data => l_msg_data) ;
188
189 --dbms_output.put_line('ERRRRRRRROS is '||l_msg_data) ;
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;
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');
204 END IF;
205 end if ;
206 --end of profile enabled checking
207 end if ;
208 */
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
218 -- Standard call to get message count and if count is 1, get message info.
219 FND_MSG_PUB.Count_And_Get
220 ( p_count => x_msg_count,
221 p_data => x_msg_data
222 );
223
224 -- IF PG_DEBUG < 10 THEN
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
234 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
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
244 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
245 ,X_MSG_COUNT => X_MSG_COUNT
246 ,X_MSG_DATA => X_MSG_DATA
247 ,X_RETURN_STATUS => X_RETURN_STATUS);
248
249 WHEN OTHERS THEN
250 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
251 P_API_NAME => L_API_NAME
252 ,P_PKG_NAME => G_PKG_NAME
253 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
254 ,P_SQLCODE => SQLCODE
255 ,P_SQLERRM => SQLERRM
256 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
257 ,X_MSG_COUNT => X_MSG_COUNT
258 ,X_MSG_DATA => X_MSG_DATA
259 ,X_RETURN_STATUS => X_RETURN_STATUS);
260 End Create_strategy_work_items;
261
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,
271 X_Msg_Count OUT NOCOPY NUMBER,
272 X_Msg_Data OUT NOCOPY VARCHAR2,
273 XO_OBJECT_VERSION_NUMBER OUT NOCOPY NUMBER
274 )
275
276 IS
277 /*
278 Cursor C_Get_strategy_work_items(WORK_ITEM_ID Number) IS
279 Select rowid,
280 WORK_ITEM_ID,
281 STRATEGY_ID,
282 COMPETENCE_ID,
283 CATEGORY_TYPE,
284 RESOURCE_ID,
285 REQUIRED_YN,
286 STATUS_CODE,
287 PRIORITY_ID,
288 PRE_EXECUTION_WAIT,
289 POST_EXECUTION_WAIT,
290 CLOSURE_DATE_LIMIT,
291 EXECUTE_DATE_LIMIT,
292 SEEDED_WORKFLOW_YN,
293 WORKFLOW_ITEM_TYPE,
294 WORKFLOW_PROCESS_NAME,
295 LAST_UPDATED_BY,
296 LAST_UPDATE_LOGIN,
297 CREATION_DATE,
298 CREATED_BY,
299 PROGRAM_ID,
300 OBJECT_VERSION_NUMBER,
301 REQUEST_ID,
302 WORK_TYPE,
303 LAST_UPDATE_DATE,
304 WORK_ITEM_TEMPLATE_ID
305 From IEX_STRATEGY_WORK_ITEMS
306 -- Hint: Developer need to provide Where clause
307 For Update NOWAIT;
308 */
309 l_api_name CONSTANT VARCHAR2(200) := 'Update_strategy_work_items';
310 l_api_version_number CONSTANT NUMBER := 2.0;
311
312 -- Local Variables
313 l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
314 l_ref_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type;
315 l_tar_strategy_work_item_rec IEX_strategy_work_items_PVT.strategy_work_item_Rec_Type := P_strategy_work_item_Rec;
316
317 l_object_version_number IEX_strategy_work_items.object_version_number%TYPE:=P_strategy_work_item_Rec.object_version_number;
318 l_rowid ROWID;
319 --added by vimpi
320 l_msg_Count number ;
321 l_msg_data varchar2(200) ;
322 l_return_status varchar2(200) ;
323 l_work_item_temp_id number ;
324 l_work_item_id number ;
325 l_strategy_id number ;
326
327 BEGIN
328
329 -- IF PG_DEBUG < 10 THEN
330 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
331 IEX_DEBUG_PUB.LogMessage ('********* Start of Procedure =>IEX_strategy_work_items_PVT.update_strategy_work_items ******** ');
332 END IF;
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
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.
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 --
361
362 -- call locking table handler
363 IEX_STRATEGY_WORK_ITEMS_PKG.lock_row (
364 p_strategy_work_item_rec.WORK_ITEM_ID,
365 l_object_version_number
366 );
367
368 -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Update_Row)
369 IEX_STRATEGY_WORK_ITEMS_PKG.Update_Row(
370 x_WORK_ITEM_ID => p_strategy_work_item_rec.WORK_ITEM_ID
371 ,x_STRATEGY_ID => p_strategy_work_item_rec.STRATEGY_ID
372 ,x_RESOURCE_ID => p_strategy_work_item_rec.RESOURCE_ID
373 ,x_STATUS_CODE => p_strategy_work_item_rec.STATUS_CODE
374 ,x_LAST_UPDATED_BY => FND_GLOBAL.USER_ID
375 ,x_LAST_UPDATE_LOGIN => FND_GLOBAL.CONC_LOGIN_ID
376 ,x_PROGRAM_ID => p_strategy_work_item_rec.PROGRAM_ID
377 ,x_OBJECT_VERSION_NUMBER => l_OBJECT_VERSION_NUMBER +1
378 ,x_REQUEST_ID => p_strategy_work_item_rec.REQUEST_ID
379 ,x_LAST_UPDATE_DATE => SYSDATE
380 ,x_WORK_ITEM_TEMPLATE_ID => p_strategy_work_item_rec.WORK_ITEM_TEMPLATE_ID
381 ,x_PROGRAM_APPLICATION_ID => p_strategy_work_item_rec.PROGRAM_APPLICATION_ID
382 ,x_PROGRAM_UPDATE_DATE => p_strategy_work_item_rec.PROGRAM_UPDATE_DATE
383 ,x_EXECUTE_START => p_strategy_work_item_rec.EXECUTE_START
384 ,x_EXECUTE_END => p_strategy_work_item_rec.EXECUTE_END
385 ,x_SCHEDULE_START => p_strategy_work_item_rec.SCHEDULE_START
386 ,x_SCHEDULE_END => p_strategy_work_item_rec.SCHEDULE_END
387 ,x_STRATEGY_TEMP_ID => p_strategy_work_item_rec.STRATEGY_TEMP_ID
388 ,x_WORK_ITEM_ORDER => p_strategy_work_item_rec.WORK_ITEM_ORDER
389 ,x_ESCALATED_YN => p_strategy_work_item_rec.ESCALATED_YN
390 );
391 --
392 -- End of API body.
393 --
394 --Return Version number
395 xo_object_version_number := l_object_version_number + 1;
396
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 ;
406 l_strategy_id := p_strategy_work_item_rec.STRATEGY_ID ;
407 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
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,
417 x_msg_count => l_msg_count,
418 x_msg_data => l_msg_data) ;
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;
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');
433 END IF;
434 end if ;
435 --end of profile enabled checking
436 end if ;
437 */
438 /* end remove the check of profile, the procedure is doing nothing, ctlee 02/28/2005 */
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
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,
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,
461 x_msg_data => l_msg_data) ;
462
463 EXCEPTION
464 WHEN OTHERS THEN
465 IF (FND_LOG.LEVEL_EVENT >= PG_DEBUG) THEN
466 IEX_DEBUG_PUB.LogMessage( debug_msg => 'IEU_UWQM_ITEMS' || to_char(p_strategy_work_item_rec.work_item_id), print_date => 'Y');
467 END IF;
468 AS_UTILITY_PVT.Set_Message(
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
478 IEX_DEBUG_PUB.LogMessage('Update_strategy_work_items: ' || 'In if metaphor');
479 END IF;
480 end if ;
481 --end of profile enabled checking
482 end if ;
483 */
484
485
486
487
488
489 -- Standard call to get message count and if count is 1, get message info.
490 FND_MSG_PUB.Count_And_Get
491 ( p_count => x_msg_count,
492 p_data => x_msg_data
493 );
494 -- IF PG_DEBUG < 10 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
504 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
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
514 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
515 ,X_MSG_COUNT => X_MSG_COUNT
516 ,X_MSG_DATA => X_MSG_DATA
517 ,X_RETURN_STATUS => X_RETURN_STATUS);
518
519 WHEN OTHERS THEN
520 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
521 P_API_NAME => L_API_NAME
522 ,P_PKG_NAME => G_PKG_NAME
523 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
524 ,P_SQLCODE => SQLCODE
525 ,P_SQLERRM => SQLERRM
526 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
527 ,X_MSG_COUNT => X_MSG_COUNT
528 ,X_MSG_DATA => X_MSG_DATA
529 ,X_RETURN_STATUS => X_RETURN_STATUS);
530 End Update_strategy_work_items;
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,
540 X_Msg_Count OUT NOCOPY NUMBER,
541 X_Msg_Data OUT NOCOPY VARCHAR2 )
542
543 IS
544 l_api_name CONSTANT VARCHAR2(30) := 'Delete_strategy_work_items';
545 l_api_version_number CONSTANT NUMBER := 2.0;
546 l_identity_sales_member_rec AS_SALES_MEMBER_PUB.Sales_member_rec_Type;
547 BEGIN
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
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.
562 IF FND_API.to_Boolean( p_init_msg_list )
563 THEN
564 FND_MSG_PUB.initialize;
565 END IF;
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 --
575
576 -- Invoke table handler(IEX_STRATEGY_WORK_ITEMS_PKG.Delete_Row)
577 IEX_STRATEGY_WORK_ITEMS_PKG.Delete_Row(p_WORK_ITEM_ID);
578
579 --
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
589 -- Standard call to get message count and if count is 1, get message info.
590 FND_MSG_PUB.Count_And_Get
591 ( p_count => x_msg_count,
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
601 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
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
611 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
612 ,X_MSG_COUNT => X_MSG_COUNT
613 ,X_MSG_DATA => X_MSG_DATA
614 ,X_RETURN_STATUS => X_RETURN_STATUS);
615
616 WHEN OTHERS THEN
617 AS_UTILITY_PVT.HANDLE_EXCEPTIONS(
618 P_API_NAME => L_API_NAME
619 ,P_PKG_NAME => G_PKG_NAME
620 ,P_EXCEPTION_LEVEL => AS_UTILITY_PVT.G_EXC_OTHERS
621 ,P_SQLCODE => SQLCODE
622 ,P_SQLERRM => SQLERRM
623 ,P_PACKAGE_TYPE => AS_UTILITY_PVT.G_PVT
624 ,X_MSG_COUNT => X_MSG_COUNT
625 ,X_MSG_DATA => X_MSG_DATA
626 ,X_RETURN_STATUS => X_RETURN_STATUS);
627 End Delete_strategy_work_items;
628
629
630 End IEX_strategy_work_items_PVT;