[Home] [Help]
PACKAGE BODY: APPS.IEC_OCS_LOG_PVT
Source
1 PACKAGE BODY IEC_OCS_LOG_PVT AS
2 /* $Header: IECOCLGB.pls 120.1 2006/03/28 07:42:28 minwang noship $ */
3
4 g_pkg_name CONSTANT VARCHAR2(30) := 'IEC_OCS_LOG_PVT';
5
6 PROCEDURE Get_Module
7 ( p_package IN VARCHAR2
8 , p_method IN VARCHAR2
9 , p_sub_method IN VARCHAR2
10 , x_module OUT NOCOPY VARCHAR2)
11 IS
12 l_module VARCHAR2(4000);
13 BEGIN
14
15 x_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
16
17 END Get_Module;
18
19 PROCEDURE Log_Message
20 ( p_module IN VARCHAR2)
21 IS
22 BEGIN
23
24 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
25 THEN
26
27 FND_LOG.MESSAGE( FND_LOG.LEVEL_UNEXPECTED
28 , p_module
29 , FALSE);
30 END IF;
31
32 END Log_Message;
33
34 PROCEDURE Get_EncodedMessage
35 ( x_message OUT NOCOPY VARCHAR2
36 , x_enc_message OUT NOCOPY VARCHAR2)
37 IS
38 BEGIN
39
40 x_enc_message := FND_MESSAGE.GET_ENCODED;
41 FND_MESSAGE.SET_ENCODED(x_enc_message);
42 x_message := FND_MESSAGE.GET;
43 FND_MESSAGE.SET_ENCODED(x_enc_message);
44
45 END Get_EncodedMessage;
46
47 PROCEDURE Init_SqlErrmMsg
48 ( p_sqlerrm IN VARCHAR2
49 , x_message OUT NOCOPY VARCHAR2
50 , x_enc_message OUT NOCOPY VARCHAR2)
51 IS
52 BEGIN
53
54 FND_MESSAGE.SET_NAME( 'IEC'
55 , 'IEC_DESC_INTERNAL_PLSQL_ERROR');
56
57 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_SQL_MESSAGE'
58 , NVL(p_sqlerrm, 'UNKNOWN')
59 , TRUE);
60
61 Get_EncodedMessage(x_message, x_enc_message);
62
63 END Init_SqlErrmMsg;
64
65 PROCEDURE Init_ValidationSqlErrmMsg
66 ( p_sqlerrm IN VARCHAR2
67 , p_module IN VARCHAR2
68 , x_message OUT NOCOPY VARCHAR2
69 , x_enc_message OUT NOCOPY VARCHAR2)
70 IS
71 BEGIN
72
73 FND_MESSAGE.SET_NAME( 'IEC'
74 , 'IEC_VAL_SQLERRM');
75
76 FND_MESSAGE.SET_TOKEN( 'MODULE'
77 , NVL(p_module, 'UNKNOWN')
78 , TRUE);
79
80 FND_MESSAGE.SET_TOKEN( 'SQL_ERRM'
81 , NVL(p_sqlerrm, 'UNKNOWN')
82 , TRUE);
83
84 Get_EncodedMessage(x_message, x_enc_message);
85
86 END Init_ValidationSqlErrmMsg;
87
88 PROCEDURE Init_SourceTypeNotSupportedMsg
89 ( p_source_type IN VARCHAR2
90 , x_message OUT NOCOPY VARCHAR2
91 , x_enc_message OUT NOCOPY VARCHAR2)
92 IS
93 BEGIN
94
95 FND_MESSAGE.SET_NAME( 'IEC'
96 , 'IEC_VAL_SOURCE_TYPE_NOT_SUPP');
97 FND_MESSAGE.SET_TOKEN( 'SOURCE_TYPE_CODE'
98 , NVL(p_source_type, 'UNKNOWN')
99 , TRUE);
100
101 Get_EncodedMessage(x_message, x_enc_message);
102
103 END Init_SourceTypeNotSupportedMsg;
104
105 PROCEDURE Init_SourceTypeDoesNotExistMsg
106 ( p_source_type IN VARCHAR2
107 , x_message OUT NOCOPY VARCHAR2
108 , x_enc_message OUT NOCOPY VARCHAR2)
109 IS
110 BEGIN
111
112 FND_MESSAGE.SET_NAME( 'IEC'
113 , 'IEC_VAL_SOURCE_TYPE_VIEW_DNE');
114 FND_MESSAGE.SET_TOKEN( 'SOURCE_TYPE_CODE'
115 , NVL(p_source_type, 'UNKNOWN')
116 , TRUE);
117
118 Get_EncodedMessage(x_message, x_enc_message);
119
120 END Init_SourceTypeDoesNotExistMsg;
121
122 PROCEDURE Init_SourceTypeMissingColsMsg
123 ( p_source_type IN VARCHAR2
124 , p_missing_columns IN VARCHAR2
125 , x_message OUT NOCOPY VARCHAR2
126 , x_enc_message OUT NOCOPY VARCHAR2)
127 IS
128 BEGIN
129
130 FND_MESSAGE.SET_NAME( 'IEC'
131 , 'IEC_VAL_STV_MISSING_COLUMNS');
132 FND_MESSAGE.SET_TOKEN( 'SOURCE_TYPE_CODE'
133 , NVL(p_source_type, 'UNKNOWN')
134 , TRUE);
135 FND_MESSAGE.SET_TOKEN( 'MISSING_COLUMNS'
136 , NVL(p_missing_columns, 'UNKNOWN')
137 , TRUE);
138
139 Get_EncodedMessage(x_message, x_enc_message);
140
141 END Init_SourceTypeMissingColsMsg;
142
143 PROCEDURE Init_TerritoryNotFoundMsg
144 ( p_territory_code IN VARCHAR2
145 , p_table_name IN VARCHAR2
146 , x_message OUT NOCOPY VARCHAR2
147 , x_enc_message OUT NOCOPY VARCHAR2)
148 IS
149 BEGIN
150
151 FND_MESSAGE.SET_NAME( 'IEC'
152 , 'IEC_VAL_TERRITORY_NOT_FOUND');
153 FND_MESSAGE.SET_TOKEN( 'TERRITORY_CODE'
154 , p_territory_code
155 , TRUE);
156 FND_MESSAGE.SET_TOKEN( 'TABLE_NAME'
157 , p_table_name
158 , TRUE);
159
160 Get_EncodedMessage(x_message, x_enc_message);
161
162 END Init_TerritoryNotFoundMsg;
163
164 PROCEDURE Init_TerritoryNotUniqueMsg
165 ( p_territory_code IN VARCHAR2
166 , p_table_name IN VARCHAR2
167 , x_message OUT NOCOPY VARCHAR2
168 , x_enc_message OUT NOCOPY VARCHAR2)
169 IS
170 BEGIN
171
172 FND_MESSAGE.SET_NAME( 'IEC'
173 , 'IEC_VAL_TERRITORY_NOT_UNIQUE');
174 FND_MESSAGE.SET_TOKEN( 'TERRITORY_CODE'
175 , p_territory_code
176 , TRUE);
177 FND_MESSAGE.SET_TOKEN( 'TABLE_NAME'
178 , p_table_name
179 , TRUE);
180
181 Get_EncodedMessage(x_message, x_enc_message);
182
183 END Init_TerritoryNotUniqueMsg;
184
185 PROCEDURE Init_SubsetViewInvalidMsg
186 ( p_subset_name IN VARCHAR2
187 , p_list_name IN VARCHAR2
188 , x_message OUT NOCOPY VARCHAR2
189 , x_enc_message OUT NOCOPY VARCHAR2)
190 IS
191 BEGIN
192
193 FND_MESSAGE.SET_NAME( 'IEC'
194 , 'IEC_SUBSET_VIEW_NOT_VALID');
195 FND_MESSAGE.SET_TOKEN( 'SUBSET_NAME'
196 , p_subset_name
197 , TRUE);
198 FND_MESSAGE.SET_TOKEN( 'LIST_NAME'
199 , p_list_name
200 , TRUE);
201
202 Get_EncodedMessage(x_message, x_enc_message);
203
204 END Init_SubsetViewInvalidMsg;
205
206 PROCEDURE Init_GetSubsetViewErrorMsg
207 ( p_subset_name IN VARCHAR2
208 , p_list_name IN VARCHAR2
209 , p_procedure_name IN VARCHAR2
210 , x_message OUT NOCOPY VARCHAR2
211 , x_enc_message OUT NOCOPY VARCHAR2)
212 IS
213 BEGIN
214
215 FND_MESSAGE.SET_NAME( 'IEC'
216 , 'IEC_VAL_GET_SUBSET_VIEW_ERROR');
217 FND_MESSAGE.SET_TOKEN( 'SUBSET_NAME'
218 , p_subset_name
219 , TRUE);
220 FND_MESSAGE.SET_TOKEN( 'LIST_NAME'
221 , p_list_name
222 , TRUE);
223 FND_MESSAGE.SET_TOKEN( 'PROCEDURE_NAME'
224 , p_procedure_name
225 , TRUE);
226
227 Get_EncodedMessage(x_message, x_enc_message);
228
229 END Init_GetSubsetViewErrorMsg;
230
231 PROCEDURE Init_SubsetViewDoesNotExistMsg
232 ( p_subset_name IN VARCHAR2
233 , p_list_name IN VARCHAR2
234 , x_message OUT NOCOPY VARCHAR2
235 , x_enc_message OUT NOCOPY VARCHAR2)
236 IS
237 BEGIN
238
239 FND_MESSAGE.SET_NAME( 'IEC'
240 , 'IEC_VAL_SUBSET_VIEW_DNE');
241 FND_MESSAGE.SET_TOKEN( 'SUBSET_NAME'
242 , p_subset_name
243 , TRUE);
244 FND_MESSAGE.SET_TOKEN( 'LIST_NAME'
245 , p_list_name
246 , TRUE);
247
248 Get_EncodedMessage(x_message, x_enc_message);
249
250 END Init_SubsetViewDoesNotExistMsg;
251
252 PROCEDURE Init_SourceTypeMismatchAllMsg
253 ( p_source_type IN VARCHAR2
254 , p_source_type_dist IN VARCHAR2
255 , x_message OUT NOCOPY VARCHAR2
256 , x_enc_message OUT NOCOPY VARCHAR2)
257 IS
258 BEGIN
259
260 FND_MESSAGE.SET_NAME( 'IEC'
261 , 'IEC_VAL_ST_MISMATCH_ALL');
262 FND_MESSAGE.SET_TOKEN( 'LIST_SOURCE_TYPE_CODE'
263 , NVL(p_source_type, 'UNKNOWN')
264 , TRUE);
265 FND_MESSAGE.SET_TOKEN( 'SOURCE_TYPE_CODE_DIST'
266 , NVL(p_source_type_dist, 'UNKNOWN')
267 , TRUE);
268
269 Get_EncodedMessage(x_message, x_enc_message);
270
271 END Init_SourceTypeMismatchAllMsg;
272
273 PROCEDURE Init_SourceTypeMismatchSomeMsg
274 ( p_source_type IN VARCHAR2
275 , p_source_type_dist IN VARCHAR2
276 , x_message OUT NOCOPY VARCHAR2
277 , x_enc_message OUT NOCOPY VARCHAR2)
278 IS
279 BEGIN
280
281 FND_MESSAGE.SET_NAME( 'IEC'
282 , 'IEC_VAL_ST_MISMATCH_SOME');
283 FND_MESSAGE.SET_TOKEN( 'LIST_SOURCE_TYPE_CODE'
284 , NVL(p_source_type, 'UNKNOWN')
285 , TRUE);
286 FND_MESSAGE.SET_TOKEN( 'SOURCE_TYPE_CODE_DIST'
287 , NVL(p_source_type_dist, 'UNKNOWN')
288 , TRUE);
289
290 Get_EncodedMessage(x_message, x_enc_message);
291
292 END Init_SourceTypeMismatchSomeMsg;
293
294 PROCEDURE Init_NoEntriesFoundMsg
295 ( x_message OUT NOCOPY VARCHAR2
296 , x_enc_message OUT NOCOPY VARCHAR2)
297 IS
298 BEGIN
299
300 FND_MESSAGE.SET_NAME( 'IEC'
301 , 'IEC_VAL_NO_ENTRIES_FOUND');
302
303 Get_EncodedMessage(x_message, x_enc_message);
304
305 END Init_NoEntriesFoundMsg;
306
307 PROCEDURE Init_ValidationSuccessMsg
308 ( p_total_count IN VARCHAR2
309 , p_valid_count IN VARCHAR2
310 , x_message OUT NOCOPY VARCHAR2
311 , x_enc_message OUT NOCOPY VARCHAR2)
312 IS
313 BEGIN
314
315 FND_MESSAGE.SET_NAME( 'IEC'
316 , 'IEC_VAL_SUCCESS');
317 FND_MESSAGE.SET_TOKEN( 'TOTAL_COUNT'
318 , NVL(p_total_count, 'UNKNOWN')
319 , TRUE);
320 FND_MESSAGE.SET_TOKEN( 'VALID_COUNT'
321 , NVL(p_valid_count, 'UNKNOWN')
322 , TRUE);
323
324 Get_EncodedMessage(x_message, x_enc_message);
325
326 END Init_ValidationSuccessMsg;
327
328 PROCEDURE Init_StatusUpdateErrorMsg
329 ( p_list_name IN VARCHAR2
330 , p_procedure_name IN VARCHAR2
331 , x_message OUT NOCOPY VARCHAR2
332 , x_enc_message OUT NOCOPY VARCHAR2)
333 IS
334 BEGIN
335
336 FND_MESSAGE.SET_NAME( 'IEC'
337 , 'IEC_VAL_STATUS_UPDATE_ERROR');
338 FND_MESSAGE.SET_TOKEN( 'LIST_NAME'
339 , NVL(p_list_name, 'UNKNOWN')
340 , TRUE);
341 FND_MESSAGE.SET_TOKEN( 'PROCEDURE_NAME'
342 , NVL(p_procedure_name, 'UNKNOWN')
343 , TRUE);
344
345 Get_EncodedMessage(x_message, x_enc_message);
346
347 END Init_StatusUpdateErrorMsg;
348
349 PROCEDURE Init_CopySrcListNotCCRMsg
350 ( p_src_schedule_id IN VARCHAR2
351 , p_dest_schedule_id IN VARCHAR2
352 , x_message OUT NOCOPY VARCHAR2
353 , x_enc_message OUT NOCOPY VARCHAR2)
354 IS
355 BEGIN
356
357 FND_MESSAGE.SET_NAME( 'IEC'
358 , 'IEC_VAL_COPY_SRC_LIST_NOT_CCR');
359 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
360 , NVL(p_src_schedule_id, 'UNKNOWN')
361 , TRUE);
362 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
363 , NVL(p_dest_schedule_id, 'UNKNOWN')
364 , TRUE);
365
366 Get_EncodedMessage(x_message, x_enc_message);
367
368 END Init_CopySrcListNotCCRMsg;
369
370 PROCEDURE Init_CopyDestListNotCCRMsg
371 ( p_src_schedule_id IN VARCHAR2
372 , p_dest_schedule_id IN VARCHAR2
373 , x_message OUT NOCOPY VARCHAR2
374 , x_enc_message OUT NOCOPY VARCHAR2)
375 IS
376 BEGIN
377
378 FND_MESSAGE.SET_NAME( 'IEC'
379 , 'IEC_VAL_COPY_DEST_LIST_NOT_CCR');
380 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
381 , NVL(p_src_schedule_id, 'UNKNOWN')
382 , TRUE);
383 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
384 , NVL(p_dest_schedule_id, 'UNKNOWN')
385 , TRUE);
386
387 Get_EncodedMessage(x_message, x_enc_message);
388
389 END Init_CopyDestListNotCCRMsg;
390
391 PROCEDURE Init_CopySrcListNotValMsg
392 ( p_src_schedule_id IN VARCHAR2
393 , p_dest_schedule_id IN VARCHAR2
394 , x_message OUT NOCOPY VARCHAR2
395 , x_enc_message OUT NOCOPY VARCHAR2)
396 IS
397 BEGIN
398
399 FND_MESSAGE.SET_NAME( 'IEC'
400 , 'IEC_VAL_COPY_SRC_LIST_NOT_VAL');
401 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
402 , NVL(p_src_schedule_id, 'UNKNOWN')
403 , TRUE);
404 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
405 , NVL(p_dest_schedule_id, 'UNKNOWN')
406 , TRUE);
407
408 Get_EncodedMessage(x_message, x_enc_message);
409
410 END Init_CopySrcListNotValMsg;
411
412 PROCEDURE Init_CopyDestListNotValMsg
413 ( p_src_schedule_id IN VARCHAR2
414 , p_dest_schedule_id IN VARCHAR2
415 , x_message OUT NOCOPY VARCHAR2
416 , x_enc_message OUT NOCOPY VARCHAR2)
417 IS
418 BEGIN
419
420 FND_MESSAGE.SET_NAME( 'IEC'
421 , 'IEC_VAL_COPY_DEST_LIST_NOT_VAL');
422 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
423 , NVL(p_src_schedule_id, 'UNKNOWN')
424 , TRUE);
425 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
426 , NVL(p_dest_schedule_id, 'UNKNOWN')
427 , TRUE);
428
429 Get_EncodedMessage(x_message, x_enc_message);
430
431 END Init_CopyDestListNotValMsg;
432
433 PROCEDURE Init_CopySrcListInvalidStatMsg
434 ( p_src_schedule_id IN VARCHAR2
435 , p_dest_schedule_id IN VARCHAR2
436 , x_message OUT NOCOPY VARCHAR2
437 , x_enc_message OUT NOCOPY VARCHAR2)
438 IS
439 BEGIN
440
441 FND_MESSAGE.SET_NAME( 'IEC'
442 , 'IEC_VAL_COPY_SRC_LIST_INV_STAT');
443 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
444 , NVL(p_src_schedule_id, 'UNKNOWN')
445 , TRUE);
446 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
447 , NVL(p_dest_schedule_id, 'UNKNOWN')
448 , TRUE);
449
453
450 Get_EncodedMessage(x_message, x_enc_message);
451
452 END Init_CopySrcListInvalidStatMsg;
454 PROCEDURE Init_CopyDestListInvalidStaMsg
455 ( p_src_schedule_id IN VARCHAR2
456 , p_dest_schedule_id IN VARCHAR2
457 , x_message OUT NOCOPY VARCHAR2
458 , x_enc_message OUT NOCOPY VARCHAR2)
459 IS
460 BEGIN
461
462 FND_MESSAGE.SET_NAME( 'IEC'
463 , 'IEC_VAL_COPY_DEST_LIST_INV_STA');
464 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
465 , NVL(p_src_schedule_id, 'UNKNOWN')
466 , TRUE);
467 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
468 , NVL(p_dest_schedule_id, 'UNKNOWN')
469 , TRUE);
470
471 Get_EncodedMessage(x_message, x_enc_message);
472
473 END Init_CopyDestListInvalidStaMsg;
474
475 PROCEDURE Init_CopySrcListNullMsg
476 ( p_src_schedule_id IN VARCHAR2
477 , p_dest_schedule_id IN VARCHAR2
478 , x_message OUT NOCOPY VARCHAR2
479 , x_enc_message OUT NOCOPY VARCHAR2)
480 IS
481 BEGIN
482
483 FND_MESSAGE.SET_NAME( 'IEC'
484 , 'IEC_VAL_COPY_SRC_LIST_NULL');
485 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
486 , NVL(p_src_schedule_id, 'UNKNOWN')
487 , TRUE);
488 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
489 , NVL(p_dest_schedule_id, 'UNKNOWN')
490 , TRUE);
491
492 Get_EncodedMessage(x_message, x_enc_message);
493
494 END Init_CopySrcListNullMsg;
495
496 PROCEDURE Init_CopyDestListNullMsg
497 ( p_src_schedule_id IN VARCHAR2
498 , p_dest_schedule_id IN VARCHAR2
499 , x_message OUT NOCOPY VARCHAR2
500 , x_enc_message OUT NOCOPY VARCHAR2)
501 IS
502 BEGIN
503
504 FND_MESSAGE.SET_NAME( 'IEC'
505 , 'IEC_VAL_COPY_DEST_LIST_NULL');
506 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
507 , NVL(p_src_schedule_id, 'UNKNOWN')
508 , TRUE);
509 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
510 , NVL(p_dest_schedule_id, 'UNKNOWN')
511 , TRUE);
512
513 Get_EncodedMessage(x_message, x_enc_message);
514
515 END Init_CopyDestListNullMsg;
516
517 PROCEDURE Init_ListRtInfoDNEMsg
518 ( p_schedule_id IN VARCHAR2
519 , x_message OUT NOCOPY VARCHAR2
520 , x_enc_message OUT NOCOPY VARCHAR2)
521 IS
522 BEGIN
523
524 FND_MESSAGE.SET_NAME( 'IEC'
525 , 'IEC_VAL_LIST_RT_INFO_DNE');
526 FND_MESSAGE.SET_TOKEN( 'SCHED'
527 , NVL(p_schedule_id, 'UNKNOWN')
528 , TRUE);
529
530 Get_EncodedMessage(x_message, x_enc_message);
531
532 END Init_ListRtInfoDNEMsg;
533
534 PROCEDURE Init_PurgeListStatusInvMsg
535 ( p_schedule_id IN VARCHAR2
536 , x_message OUT NOCOPY VARCHAR2
537 , x_enc_message OUT NOCOPY VARCHAR2)
538 IS
539 BEGIN
540
541 FND_MESSAGE.SET_NAME( 'IEC'
542 , 'IEC_VAL_PURGE_SCHED_STATUS_INV');
543 FND_MESSAGE.SET_TOKEN( 'SCHED'
544 , NVL(p_schedule_id, 'UNKNOWN')
545 , TRUE);
546
547 Get_EncodedMessage(x_message, x_enc_message);
548
549 END Init_PurgeListStatusInvMsg;
550
551 PROCEDURE Init_CannotStopScheduleMsg
552 ( p_schedule_id IN VARCHAR2
553 , x_message OUT NOCOPY VARCHAR2
554 , x_enc_message OUT NOCOPY VARCHAR2)
555 IS
556 BEGIN
557
558 FND_MESSAGE.SET_NAME( 'IEC'
559 , 'IEC_STATUS_CANNOT_STOP_SCHED');
560 FND_MESSAGE.SET_TOKEN( 'SCHED'
561 , NVL(p_schedule_id, 'UNKNOWN')
562 , TRUE);
563
564 Get_EncodedMessage(x_message, x_enc_message);
565
566 END Init_CannotStopScheduleMsg;
567
568 PROCEDURE LOG_INTERNAL_PLSQL_ERROR
569 ( P_PACKAGE IN VARCHAR2
570 , P_METHOD IN VARCHAR2
571 , P_SUB_METHOD IN VARCHAR2
572 , P_ACTIVITY IN VARCHAR2
573 , P_SQL_CODE IN NUMBER
574 , P_SQL_MESSAGE IN VARCHAR2
575 , X_ERROR_MESSAGE_STR OUT NOCOPY VARCHAR2
576 )
577 IS
578 l_module VARCHAR2(4000);
579 BEGIN
580
581 l_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
582 x_error_message_str := l_module || ':' || p_sql_message;
583
584 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
585 THEN
586 FND_MESSAGE.SET_NAME( 'IEC'
587 , 'IEC_DESC_INTERNAL_PLSQL_ERROR');
588
589 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_SQL_MESSAGE'
590 , NVL(p_sql_message, 'UNKNOWN')
591 , TRUE);
592
593 FND_LOG.MESSAGE( FND_LOG.LEVEL_UNEXPECTED
594 , l_module
595 , FALSE
596 );
597 END IF;
598
599 END LOG_INTERNAL_PLSQL_ERROR;
600
601 PROCEDURE LOG_INTERNAL_PLSQL_ERROR
602 ( P_PACKAGE IN VARCHAR2
603 , P_METHOD IN VARCHAR2
604 , P_SUB_METHOD IN VARCHAR2
605 , P_SQL_MESSAGE IN VARCHAR2
606 , X_ERROR_MESSAGE_STR OUT NOCOPY VARCHAR2
607 )
608 IS
609 l_module VARCHAR2(4000);
610 BEGIN
611
612 l_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
613 x_error_message_str := l_module || ':' || p_sql_message;
614
615 IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
616 THEN
617 FND_MESSAGE.SET_NAME( 'IEC'
618 , 'IEC_DESC_INTERNAL_PLSQL_ERROR');
619
620 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_SQL_MESSAGE'
621 , NVL(p_sql_message, 'UNKNOWN')
622 , TRUE);
623
624 FND_LOG.MESSAGE( FND_LOG.LEVEL_UNEXPECTED
625 , l_module
626 , FALSE
627 );
628 END IF;
629
630 END LOG_INTERNAL_PLSQL_ERROR;
631
632 PROCEDURE LOG_RECYCLE_MV_DUP_REC_STMT
633 ( P_PACKAGE IN VARCHAR2
634 , P_METHOD IN VARCHAR2
635 , P_SUB_METHOD IN VARCHAR2
636 , P_SOURCE_SCHED_ID IN NUMBER
637 , P_SOURCE_LIST_ID IN NUMBER
638 , P_SOURCE_LIST_ENTRY_ID IN NUMBER
639 , P_SOURCE_RETURNS_ID IN NUMBER
640 , P_PARTY_ID IN NUMBER
641 , P_DEST_SCHED_ID IN NUMBER
642 , X_ERROR_MESSAGE_STR OUT NOCOPY VARCHAR2
643 )
644 IS
645 l_module VARCHAR2(4000);
646 BEGIN
647
648 l_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
649
650 FND_MESSAGE.SET_NAME( 'IEC'
651 , 'IEC_DESC_RECYCLE_MV_DUP_REC');
652
653 FND_MESSAGE.SET_TOKEN( 'SOURCE_SCHED'
654 , NVL(TO_CHAR(P_SOURCE_SCHED_ID), 'UNKNOWN')
655 , TRUE);
656
657 FND_MESSAGE.SET_TOKEN( 'DEST_SCHED'
658 , NVL(TO_CHAR(P_DEST_SCHED_ID), 'UNKNOWN')
659 , TRUE);
660
661 FND_MESSAGE.SET_TOKEN( 'LIST_ID'
662 , NVL(TO_CHAR(P_SOURCE_LIST_ID), 'UNKNOWN')
663 , TRUE);
664
665 FND_MESSAGE.SET_TOKEN( 'LIST_ENTRY_ID'
666 , NVL(TO_CHAR(P_SOURCE_LIST_ENTRY_ID), 'UNKNOWN')
667 , TRUE);
668
669 FND_MESSAGE.SET_TOKEN( 'PARTY_ID'
670 , NVL(TO_CHAR(P_PARTY_ID), 'UNKNOWN')
671 , TRUE);
672
673 FND_MESSAGE.SET_TOKEN( 'RETURN_ENTRY_ID'
674 , NVL(TO_CHAR(P_SOURCE_RETURNS_ID), 'UNKNOWN')
675 , TRUE);
676
677 IF (FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
678 THEN
679 FND_LOG.MESSAGE( FND_LOG.LEVEL_EVENT
680 , l_module
681 , FALSE -- ensures that message isn't cleared
682 );
683 END IF;
684
685 x_error_message_str := l_module || ':' || FND_MESSAGE.GET;
686
687 END LOG_RECYCLE_MV_DUP_REC_STMT;
688
689 PROCEDURE LOG_LIST_STATUS_IEC_ERROR
690 ( P_PACKAGE IN VARCHAR2
691 , P_METHOD IN VARCHAR2
692 , P_SUB_METHOD IN VARCHAR2
693 , P_LIST_ID IN NUMBER
694 , P_STATUS_ID IN NUMBER
695 , X_ERROR_MESSAGE_STR OUT NOCOPY VARCHAR2
696 )
697 IS
698 l_module VARCHAR2(4000);
699 BEGIN
700
701 l_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
702
703 FND_MESSAGE.SET_NAME( 'IEC'
704 , 'IEC_DESC_LIST_STATUS_IEC_ERR');
705
706 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_LIST_ID'
707 , NVL(TO_CHAR(P_LIST_ID), 'UNKNOWN')
708 , TRUE);
709
710 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_STATUS_ID'
711 , NVL(TO_CHAR(P_STATUS_ID), 'UNKNOWN')
712 , TRUE);
713
714 IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
715 THEN
716 FND_LOG.MESSAGE( FND_LOG.LEVEL_ERROR
717 , l_module
718 , FALSE -- ensures that message isn't cleared
719 );
720 END IF;
721
722 x_error_message_str := l_module || ':' || FND_MESSAGE.GET;
723
724 END LOG_LIST_STATUS_IEC_ERROR;
725
726 PROCEDURE LOG_LIST_STATUS_AMS_ERROR
727 ( P_PACKAGE IN VARCHAR2
728 , P_METHOD IN VARCHAR2
729 , P_SUB_METHOD IN VARCHAR2
730 , P_LIST_ID IN NUMBER
731 , P_STATUS_ID IN NUMBER
735 l_msg_data VARCHAR2(4000);
732 , X_ERROR_MESSAGE_STR OUT NOCOPY VARCHAR2
733 )
734 IS
736 l_marketing_error VARCHAR2(2000);
737 l_module VARCHAR2(4000);
738 BEGIN
739
740 BEGIN
741 -- Get Marketing API Error Message
742 FOR i IN 1..FND_MSG_PUB.count_msg LOOP
743 l_msg_data := FND_MSG_PUB.GET(i, FND_API.G_FALSE);
744 l_msg_data := LTRIM(RTRIM(l_msg_data));
745 IF (NVL(LENGTH(l_marketing_error), 0) + NVL(LENGTH(l_msg_data), 0) < 1000)
746 THEN
747 l_marketing_error := l_marketing_error || l_msg_data;
748 ELSE
749 IF (NVL(LENGTH(l_marketing_error), 0) = 0)
750 THEN
751 l_marketing_error := SUBSTR(l_msg_data, 1000);
752 END IF;
753 END IF;
754 END LOOP;
755 EXCEPTION
756 WHEN OTHERS THEN
757 l_marketing_error := NULL;
758 END;
759
760 l_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
761
762 FND_MESSAGE.SET_NAME( 'IEC'
763 , 'IEC_DESC_LIST_STATUS_AMS_ERR');
764
765 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_LIST_ID'
766 , NVL(TO_CHAR(P_LIST_ID), 'UNKNOWN')
767 , TRUE);
768
769 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_STATUS_ID'
770 , NVL(TO_CHAR(P_STATUS_ID), 'UNKNOWN')
771 , TRUE);
772
773 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_API_MSG'
774 , NVL(l_marketing_error, 'UNKNOWN')
775 , TRUE);
776
777 IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
778 THEN
779 FND_LOG.MESSAGE( FND_LOG.LEVEL_ERROR
780 , l_module
781 , FALSE -- ensures that message isn't cleared
782 );
783 END IF;
784
785 x_error_message_str := l_module || ':' || FND_MESSAGE.GET;
786
787 END LOG_LIST_STATUS_AMS_ERROR;
788
789 PROCEDURE LOG_LOCATE_LIST_DATA_ERROR
790 ( P_PACKAGE IN VARCHAR2
791 , P_METHOD IN VARCHAR2
792 , P_SUB_METHOD IN VARCHAR2
793 , P_LIST_ID IN NUMBER
794 , X_ERROR_MESSAGE_STR OUT NOCOPY VARCHAR2
795 )
796 IS
797 l_module VARCHAR2(4000);
798 BEGIN
799
800 l_module := 'iec.plsql.' || UPPER(P_PACKAGE) || '.' || UPPER(P_METHOD) || '.' || LOWER(P_SUB_METHOD);
801
802 FND_MESSAGE.SET_NAME( 'IEC'
803 , 'IEC_DESC_LOCATE_LIST_DATA_ERR');
804
805 FND_MESSAGE.SET_TOKEN( 'IEC_PRM_LIST_ID'
806 , NVL(TO_CHAR(P_LIST_ID), 'UNKNOWN')
807 , TRUE);
808
809 IF (FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
810 THEN
811 FND_LOG.MESSAGE( FND_LOG.LEVEL_ERROR
812 , l_module
813 , FALSE -- ensures that message isn't cleared
814 );
815 END IF;
816
817 x_error_message_str := l_module || ':' || FND_MESSAGE.GET;
818
819 END LOG_LOCATE_LIST_DATA_ERROR;
820
821 END IEC_OCS_LOG_PVT;