100: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
102: END IF;
103:
104: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
105: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
106: l_mesg_text := fnd_message.get;
107: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
108: p_src_act_id,
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
102: END IF;
103:
104: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
105: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
106: l_mesg_text := fnd_message.get;
107: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
108: p_src_act_id,
109: l_mesg_text,
102: END IF;
103:
104: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
105: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
106: l_mesg_text := fnd_message.get;
107: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
108: p_src_act_id,
109: l_mesg_text,
110: 'GENERAL'
179: );
180: END LOOP;
181: ---- if error then right a copy log message to the log table
182: ROLLBACK TO ams_act_products;
183: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
184: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
185: l_mesg_text := fnd_message.get;
186: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
187: ams_cpyutility_pvt.get_product_name
180: END LOOP;
181: ---- if error then right a copy log message to the log table
182: ROLLBACK TO ams_act_products;
183: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
184: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
185: l_mesg_text := fnd_message.get;
186: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
187: ams_cpyutility_pvt.get_product_name
188: (prod_rec.category_id),
181: ---- if error then right a copy log message to the log table
182: ROLLBACK TO ams_act_products;
183: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
184: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
185: l_mesg_text := fnd_message.get;
186: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
187: ams_cpyutility_pvt.get_product_name
188: (prod_rec.category_id),
189: 1, 4000);
199: ROLLBACK TO ams_act_products;
200: p_errcode := SQLCODE;
201: p_errnum := 3;
202: l_stmt_num := 4;
203: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
204: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
205: l_mesg_text := fnd_message.get;
206: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
207: '): ' || p_errcode || SQLERRM, 1, 4000);
200: p_errcode := SQLCODE;
201: p_errnum := 3;
202: l_stmt_num := 4;
203: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
204: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
205: l_mesg_text := fnd_message.get;
206: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
207: '): ' || p_errcode || SQLERRM, 1, 4000);
208:
201: p_errnum := 3;
202: l_stmt_num := 4;
203: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
204: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
205: l_mesg_text := fnd_message.get;
206: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
207: '): ' || p_errcode || SQLERRM, 1, 4000);
208:
209: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
205: l_mesg_text := fnd_message.get;
206: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
207: '): ' || p_errcode || SQLERRM, 1, 4000);
208:
209: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
210: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
211: l_mesg_text := fnd_message.get;
212: p_errmsg := l_mesg_text ||
213: ams_cpyutility_pvt.get_product_name
206: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
207: '): ' || p_errcode || SQLERRM, 1, 4000);
208:
209: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
210: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
211: l_mesg_text := fnd_message.get;
212: p_errmsg := l_mesg_text ||
213: ams_cpyutility_pvt.get_product_name
214: (prod_rec.category_id) || p_errmsg;
207: '): ' || p_errcode || SQLERRM, 1, 4000);
208:
209: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
210: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
211: l_mesg_text := fnd_message.get;
212: p_errmsg := l_mesg_text ||
213: ams_cpyutility_pvt.get_product_name
214: (prod_rec.category_id) || p_errmsg;
215: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
219: );
220:
221: END;
222: END LOOP;
223: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
224: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
225: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
226: l_mesg_text := fnd_message.get;
227: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
220:
221: END;
222: END LOOP;
223: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
224: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
225: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
226: l_mesg_text := fnd_message.get;
227: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
228: p_src_act_id,
221: END;
222: END LOOP;
223: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
224: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
225: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
226: l_mesg_text := fnd_message.get;
227: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
228: p_src_act_id,
229: l_mesg_text,
222: END LOOP;
223: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
224: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
225: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
226: l_mesg_text := fnd_message.get;
227: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
228: p_src_act_id,
229: l_mesg_text,
230: 'GENERAL'
234: THEN
235: p_errcode := SQLCODE;
236: p_errnum := 4;
237: l_stmt_num := 5;
238: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
239: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
240: l_mesg_text := fnd_message.get;
241: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) || ',' ||
242: '): ' || p_errcode || SQLERRM, 1, 4000);
235: p_errcode := SQLCODE;
236: p_errnum := 4;
237: l_stmt_num := 5;
238: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
239: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
240: l_mesg_text := fnd_message.get;
241: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) || ',' ||
242: '): ' || p_errcode || SQLERRM, 1, 4000);
243: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
236: p_errnum := 4;
237: l_stmt_num := 5;
238: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
239: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
240: l_mesg_text := fnd_message.get;
241: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) || ',' ||
242: '): ' || p_errcode || SQLERRM, 1, 4000);
243: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
244: p_src_act_id,
282: 'MESG',
283: l_return_status,
284: l_lookup_meaning);
285:
286: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
287: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
288: l_mesg_text := fnd_message.get;
289: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
290: p_src_act_id,
283: l_return_status,
284: l_lookup_meaning);
285:
286: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
287: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
288: l_mesg_text := fnd_message.get;
289: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
290: p_src_act_id,
291: l_mesg_text,
284: l_lookup_meaning);
285:
286: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
287: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
288: l_mesg_text := fnd_message.get;
289: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
290: p_src_act_id,
291: l_mesg_text,
292: 'GENERAL'
347: THEN
348: p_errcode := SQLCODE;
349: p_errnum := 3;
350: l_stmt_num := 4;
351: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
352: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
353: l_mesg_text := fnd_message.get;
354: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
355: TO_CHAR (l_stmt_num) || '): ' || p_errcode ||
348: p_errcode := SQLCODE;
349: p_errnum := 3;
350: l_stmt_num := 4;
351: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
352: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
353: l_mesg_text := fnd_message.get;
354: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
355: TO_CHAR (l_stmt_num) || '): ' || p_errcode ||
356: SQLERRM, 1, 4000);
349: p_errnum := 3;
350: l_stmt_num := 4;
351: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
352: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
353: l_mesg_text := fnd_message.get;
354: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
355: TO_CHAR (l_stmt_num) || '): ' || p_errcode ||
356: SQLERRM, 1, 4000);
357: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
353: l_mesg_text := fnd_message.get;
354: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
355: TO_CHAR (l_stmt_num) || '): ' || p_errcode ||
356: SQLERRM, 1, 4000);
357: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
358: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
359: l_mesg_text := fnd_message.get;
360: p_errmsg := l_mesg_text || ': - ' ||
361: ams_cpyutility_pvt.get_message_name
354: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
355: TO_CHAR (l_stmt_num) || '): ' || p_errcode ||
356: SQLERRM, 1, 4000);
357: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
358: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
359: l_mesg_text := fnd_message.get;
360: p_errmsg := l_mesg_text || ': - ' ||
361: ams_cpyutility_pvt.get_message_name
362: (message_rec.message_id) || p_errmsg;
355: TO_CHAR (l_stmt_num) || '): ' || p_errcode ||
356: SQLERRM, 1, 4000);
357: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
358: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
359: l_mesg_text := fnd_message.get;
360: p_errmsg := l_mesg_text || ': - ' ||
361: ams_cpyutility_pvt.get_message_name
362: (message_rec.message_id) || p_errmsg;
363: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
366: 'ERROR'
367: );
368: END;
369: END LOOP;
370: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
371: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
372: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
373: l_mesg_text := fnd_message.get;
374: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
367: );
368: END;
369: END LOOP;
370: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
371: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
372: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
373: l_mesg_text := fnd_message.get;
374: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
375: p_src_act_id,
368: END;
369: END LOOP;
370: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
371: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
372: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
373: l_mesg_text := fnd_message.get;
374: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
375: p_src_act_id,
376: l_mesg_text,
369: END LOOP;
370: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
371: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
372: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
373: l_mesg_text := fnd_message.get;
374: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
375: p_src_act_id,
376: l_mesg_text,
377: 'GENERAL'
381: THEN
382: p_errcode := SQLCODE;
383: p_errnum := 4;
384: l_stmt_num := 5;
385: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
386: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
387: l_mesg_text := fnd_message.get;
388: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
389: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
382: p_errcode := SQLCODE;
383: p_errnum := 4;
384: l_stmt_num := 5;
385: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
386: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
387: l_mesg_text := fnd_message.get;
388: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
389: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
390: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
383: p_errnum := 4;
384: l_stmt_num := 5;
385: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
386: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
387: l_mesg_text := fnd_message.get;
388: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
389: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
390: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
391: p_src_act_id,
448: l_return_status := NULL;
449: x_msg_count := 0;
450: l_msg_data := NULL;
451: l_obj_association_id := 0;
452: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
453: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ASSOCIATIONS', TRUE);
454: l_mesg_text := fnd_message.get;
455: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
456: p_src_act_id,
449: x_msg_count := 0;
450: l_msg_data := NULL;
451: l_obj_association_id := 0;
452: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
453: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ASSOCIATIONS', TRUE);
454: l_mesg_text := fnd_message.get;
455: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
456: p_src_act_id,
457: l_mesg_text,
450: l_msg_data := NULL;
451: l_obj_association_id := 0;
452: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
453: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ASSOCIATIONS', TRUE);
454: l_mesg_text := fnd_message.get;
455: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
456: p_src_act_id,
457: l_mesg_text,
458: 'GENERAL'
562: 'ERROR'
563: );
564: END LOOP;
565: -- Is failed write a copy failed message in the log table
566: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
567: fnd_message.set_token ( 'ELEMENTS',
568: l_association_rec.using_object_type ||
569: l_association_rec.using_object_id,
570: TRUE
563: );
564: END LOOP;
565: -- Is failed write a copy failed message in the log table
566: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
567: fnd_message.set_token ( 'ELEMENTS',
568: l_association_rec.using_object_type ||
569: l_association_rec.using_object_id,
570: TRUE
571: );
568: l_association_rec.using_object_type ||
569: l_association_rec.using_object_id,
570: TRUE
571: );
572: l_mesg_text := fnd_message.get;
573: p_errmsg := SUBSTR (l_mesg_text ||
574: ams_utility_pvt.get_object_name (
575: l_association_rec.using_object_type,
576: l_association_rec.using_object_id),
589: THEN
590: p_errcode := SQLCODE;
591: p_errnum := 3;
592: l_stmt_num := 4;
593: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
594: fnd_message.set_token ( 'ELEMENTS',
595: l_association_rec.using_object_type ||
596: ' - ' ||
597: l_association_rec.using_object_id,
590: p_errcode := SQLCODE;
591: p_errnum := 3;
592: l_stmt_num := 4;
593: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
594: fnd_message.set_token ( 'ELEMENTS',
595: l_association_rec.using_object_type ||
596: ' - ' ||
597: l_association_rec.using_object_id,
598: TRUE);
595: l_association_rec.using_object_type ||
596: ' - ' ||
597: l_association_rec.using_object_id,
598: TRUE);
599: l_mesg_text := fnd_message.get;
600: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
601: TO_CHAR (l_stmt_num) || ',' || '): ' ||
602: p_errcode || SQLERRM, 1, 4000);
603: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
599: l_mesg_text := fnd_message.get;
600: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
601: TO_CHAR (l_stmt_num) || ',' || '): ' ||
602: p_errcode || SQLERRM, 1, 4000);
603: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
604: fnd_message.set_token ('ELEMENTS','AMS_COPY_ASSOCIATIONS', TRUE);
605: l_mesg_text := fnd_message.get;
606: p_errmsg := l_mesg_text ||
607: ams_utility_pvt.get_object_name (
600: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
601: TO_CHAR (l_stmt_num) || ',' || '): ' ||
602: p_errcode || SQLERRM, 1, 4000);
603: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
604: fnd_message.set_token ('ELEMENTS','AMS_COPY_ASSOCIATIONS', TRUE);
605: l_mesg_text := fnd_message.get;
606: p_errmsg := l_mesg_text ||
607: ams_utility_pvt.get_object_name (
608: l_association_rec.master_object_type,
601: TO_CHAR (l_stmt_num) || ',' || '): ' ||
602: p_errcode || SQLERRM, 1, 4000);
603: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
604: fnd_message.set_token ('ELEMENTS','AMS_COPY_ASSOCIATIONS', TRUE);
605: l_mesg_text := fnd_message.get;
606: p_errmsg := l_mesg_text ||
607: ams_utility_pvt.get_object_name (
608: l_association_rec.master_object_type,
609: l_association_rec.master_object_id)
619: WHEN OTHERS THEN
620: p_errcode := SQLCODE;
621: p_errnum := 4;
622: l_stmt_num := 5;
623: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
624: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ASSOCIATIONS', TRUE);
625: l_mesg_text := fnd_message.get;
626: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
627: ',' || '): ' || p_errcode || SQLERRM, 1,
620: p_errcode := SQLCODE;
621: p_errnum := 4;
622: l_stmt_num := 5;
623: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
624: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ASSOCIATIONS', TRUE);
625: l_mesg_text := fnd_message.get;
626: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
627: ',' || '): ' || p_errcode || SQLERRM, 1,
628: 4000);
621: p_errnum := 4;
622: l_stmt_num := 5;
623: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
624: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ASSOCIATIONS', TRUE);
625: l_mesg_text := fnd_message.get;
626: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
627: ',' || '): ' || p_errcode || SQLERRM, 1,
628: 4000);
629: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
681: 'GEOS',
682: l_return_status,
683: l_lookup_meaning
684: );
685: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
686: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
687: l_mesg_text := fnd_message.get;
688: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
689: p_src_act_id,
682: l_return_status,
683: l_lookup_meaning
684: );
685: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
686: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
687: l_mesg_text := fnd_message.get;
688: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
689: p_src_act_id,
690: l_mesg_text,
683: l_lookup_meaning
684: );
685: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
686: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
687: l_mesg_text := fnd_message.get;
688: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
689: p_src_act_id,
690: l_mesg_text,
691: 'GENERAL'
754: );
755: END LOOP;
756: ---- if error then right a copy log message to the log table
757:
758: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
759: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
760: l_mesg_text := fnd_message.get;
761: p_errmsg := SUBSTR ( l_mesg_text ||
762: ' - ' ||
755: END LOOP;
756: ---- if error then right a copy log message to the log table
757:
758: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
759: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
760: l_mesg_text := fnd_message.get;
761: p_errmsg := SUBSTR ( l_mesg_text ||
762: ' - ' ||
763: ams_cpyutility_pvt.get_geo_area_name (
756: ---- if error then right a copy log message to the log table
757:
758: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
759: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
760: l_mesg_text := fnd_message.get;
761: p_errmsg := SUBSTR ( l_mesg_text ||
762: ' - ' ||
763: ams_cpyutility_pvt.get_geo_area_name (
764: geo_areas_rec.geo_hierarchy_id,
774: open c_geo_source_name ( geo_areas_rec.geo_hierarchy_id,
775: geo_areas_rec.geo_area_type_code);
776: fetch c_geo_source_name into l_location_name ;
777: close c_geo_source_name ;
778: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
779: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
780: fnd_message.set_token('ELEMENT_NAME',l_location_name,TRUE);
781: l_mesg_text := fnd_message.get;
782: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
775: geo_areas_rec.geo_area_type_code);
776: fetch c_geo_source_name into l_location_name ;
777: close c_geo_source_name ;
778: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
779: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
780: fnd_message.set_token('ELEMENT_NAME',l_location_name,TRUE);
781: l_mesg_text := fnd_message.get;
782: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
783: p_src_act_id,
776: fetch c_geo_source_name into l_location_name ;
777: close c_geo_source_name ;
778: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
779: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
780: fnd_message.set_token('ELEMENT_NAME',l_location_name,TRUE);
781: l_mesg_text := fnd_message.get;
782: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
783: p_src_act_id,
784: l_mesg_text,
777: close c_geo_source_name ;
778: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
779: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
780: fnd_message.set_token('ELEMENT_NAME',l_location_name,TRUE);
781: l_mesg_text := fnd_message.get;
782: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
783: p_src_act_id,
784: l_mesg_text,
785: 'GENERAL'
790: WHEN OTHERS THEN
791: p_errcode := SQLCODE;
792: p_errnum := 3;
793: l_stmt_num := 4;
794: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
795: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
796: l_mesg_text := fnd_message.get;
797: p_errmsg := SUBSTR ( l_mesg_text ||
798: TO_CHAR (l_stmt_num) ||
791: p_errcode := SQLCODE;
792: p_errnum := 3;
793: l_stmt_num := 4;
794: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
795: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
796: l_mesg_text := fnd_message.get;
797: p_errmsg := SUBSTR ( l_mesg_text ||
798: TO_CHAR (l_stmt_num) ||
799: '): ' || p_errcode || SQLERRM, 1, 4000);
792: p_errnum := 3;
793: l_stmt_num := 4;
794: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
795: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
796: l_mesg_text := fnd_message.get;
797: p_errmsg := SUBSTR ( l_mesg_text ||
798: TO_CHAR (l_stmt_num) ||
799: '): ' || p_errcode || SQLERRM, 1, 4000);
800: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
796: l_mesg_text := fnd_message.get;
797: p_errmsg := SUBSTR ( l_mesg_text ||
798: TO_CHAR (l_stmt_num) ||
799: '): ' || p_errcode || SQLERRM, 1, 4000);
800: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
801: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
802: l_mesg_text := fnd_message.get;
803: p_errmsg := l_mesg_text ||
804: ams_cpyutility_pvt.get_geo_area_name (
797: p_errmsg := SUBSTR ( l_mesg_text ||
798: TO_CHAR (l_stmt_num) ||
799: '): ' || p_errcode || SQLERRM, 1, 4000);
800: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
801: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
802: l_mesg_text := fnd_message.get;
803: p_errmsg := l_mesg_text ||
804: ams_cpyutility_pvt.get_geo_area_name (
805: geo_areas_rec.geo_hierarchy_id,
798: TO_CHAR (l_stmt_num) ||
799: '): ' || p_errcode || SQLERRM, 1, 4000);
800: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
801: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
802: l_mesg_text := fnd_message.get;
803: p_errmsg := l_mesg_text ||
804: ams_cpyutility_pvt.get_geo_area_name (
805: geo_areas_rec.geo_hierarchy_id,
806: geo_areas_rec.geo_area_type_code
816: WHEN OTHERS THEN
817: p_errcode := SQLCODE;
818: p_errnum := 4;
819: l_stmt_num := 5;
820: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
821: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
822: l_mesg_text := fnd_message.get;
823: p_errmsg := SUBSTR ( l_mesg_text ||
824: TO_CHAR (l_stmt_num) || ',' || '): ' ||
817: p_errcode := SQLCODE;
818: p_errnum := 4;
819: l_stmt_num := 5;
820: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
821: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
822: l_mesg_text := fnd_message.get;
823: p_errmsg := SUBSTR ( l_mesg_text ||
824: TO_CHAR (l_stmt_num) || ',' || '): ' ||
825: p_errcode || SQLERRM, 1, 4000);
818: p_errnum := 4;
819: l_stmt_num := 5;
820: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
821: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
822: l_mesg_text := fnd_message.get;
823: p_errmsg := SUBSTR ( l_mesg_text ||
824: TO_CHAR (l_stmt_num) || ',' || '): ' ||
825: p_errcode || SQLERRM, 1, 4000);
826: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
870: 'RESC',
871: l_return_status,
872: l_lookup_meaning
873: );
874: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
875: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
876: l_mesg_text := fnd_message.get;
877: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
878: p_src_act_id,
871: l_return_status,
872: l_lookup_meaning
873: );
874: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
875: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
876: l_mesg_text := fnd_message.get;
877: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
878: p_src_act_id,
879: l_mesg_text,
872: l_lookup_meaning
873: );
874: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
875: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
876: l_mesg_text := fnd_message.get;
877: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
878: p_src_act_id,
879: l_mesg_text,
880: 'GENERAL'
945: );
946: END LOOP;
947: ---- if error then right a copy log message to the log table
948:
949: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
950: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
951: l_mesg_text := fnd_message.get;
952: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
953: ams_cpyutility_pvt.get_resource_name (
946: END LOOP;
947: ---- if error then right a copy log message to the log table
948:
949: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
950: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
951: l_mesg_text := fnd_message.get;
952: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
953: ams_cpyutility_pvt.get_resource_name (
954: resource_rec.resource_id),
947: ---- if error then right a copy log message to the log table
948:
949: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
950: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
951: l_mesg_text := fnd_message.get;
952: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
953: ams_cpyutility_pvt.get_resource_name (
954: resource_rec.resource_id),
955: 1, 4000);
964: THEN
965: p_errcode := SQLCODE;
966: p_errnum := 3;
967: l_stmt_num := 4;
968: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
969: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
970: l_mesg_text := fnd_message.get;
971: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
972: '): ' || p_errcode || SQLERRM, 1, 4000);
965: p_errcode := SQLCODE;
966: p_errnum := 3;
967: l_stmt_num := 4;
968: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
969: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
970: l_mesg_text := fnd_message.get;
971: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
972: '): ' || p_errcode || SQLERRM, 1, 4000);
973: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
966: p_errnum := 3;
967: l_stmt_num := 4;
968: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
969: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
970: l_mesg_text := fnd_message.get;
971: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
972: '): ' || p_errcode || SQLERRM, 1, 4000);
973: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
974: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
969: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
970: l_mesg_text := fnd_message.get;
971: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
972: '): ' || p_errcode || SQLERRM, 1, 4000);
973: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
974: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
975: l_mesg_text := fnd_message.get;
976: p_errmsg := l_mesg_text ||
977: ams_cpyutility_pvt.get_resource_name (
970: l_mesg_text := fnd_message.get;
971: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
972: '): ' || p_errcode || SQLERRM, 1, 4000);
973: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
974: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
975: l_mesg_text := fnd_message.get;
976: p_errmsg := l_mesg_text ||
977: ams_cpyutility_pvt.get_resource_name (
978: resource_rec.resource_id) || p_errmsg;
971: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
972: '): ' || p_errcode || SQLERRM, 1, 4000);
973: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
974: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
975: l_mesg_text := fnd_message.get;
976: p_errmsg := l_mesg_text ||
977: ams_cpyutility_pvt.get_resource_name (
978: resource_rec.resource_id) || p_errmsg;
979: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
987: WHEN OTHERS THEN
988: p_errcode := SQLCODE;
989: p_errnum := 4;
990: l_stmt_num := 5;
991: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
992: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
993: l_mesg_text := fnd_message.get;
994: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
995: ',' || '): ' || p_errcode ||
988: p_errcode := SQLCODE;
989: p_errnum := 4;
990: l_stmt_num := 5;
991: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
992: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
993: l_mesg_text := fnd_message.get;
994: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
995: ',' || '): ' || p_errcode ||
996: SQLERRM, 1, 4000);
989: p_errnum := 4;
990: l_stmt_num := 5;
991: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
992: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
993: l_mesg_text := fnd_message.get;
994: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
995: ',' || '): ' || p_errcode ||
996: SQLERRM, 1, 4000);
997: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1076: 'ATCH',
1077: l_return_status,
1078: l_lookup_meaning
1079: );
1080: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1081: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1082: l_mesg_text := fnd_message.get;
1083: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1084: p_src_act_id ,
1077: l_return_status,
1078: l_lookup_meaning
1079: );
1080: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1081: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1082: l_mesg_text := fnd_message.get;
1083: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1084: p_src_act_id ,
1085: l_mesg_text,
1078: l_lookup_meaning
1079: );
1080: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1081: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1082: l_mesg_text := fnd_message.get;
1083: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1084: p_src_act_id ,
1085: l_mesg_text,
1086: 'GENERAL'
1158: 'ERROR'
1159: );
1160: END LOOP;
1161: -- If failed write a copy failed message in the log table
1162: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1163: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1164: l_mesg_text := fnd_message.get;
1165: p_errmsg := SUBSTR ( l_mesg_text ||
1166: ' - ' ||
1159: );
1160: END LOOP;
1161: -- If failed write a copy failed message in the log table
1162: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1163: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1164: l_mesg_text := fnd_message.get;
1165: p_errmsg := SUBSTR ( l_mesg_text ||
1166: ' - ' ||
1167: ams_cpyutility_pvt.get_attachment_name (
1160: END LOOP;
1161: -- If failed write a copy failed message in the log table
1162: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1163: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1164: l_mesg_text := fnd_message.get;
1165: p_errmsg := SUBSTR ( l_mesg_text ||
1166: ' - ' ||
1167: ams_cpyutility_pvt.get_attachment_name (
1168: attachments_rec.attachment_id),
1261: 'ERROR'
1262: );
1263: END LOOP;
1264: -- If failed write a copy failed message in the log table
1265: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1266: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1267: l_mesg_text := fnd_message.get;
1268: p_errmsg := SUBSTR ( l_mesg_text ||
1269: ' - ' ||
1262: );
1263: END LOOP;
1264: -- If failed write a copy failed message in the log table
1265: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1266: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1267: l_mesg_text := fnd_message.get;
1268: p_errmsg := SUBSTR ( l_mesg_text ||
1269: ' - ' ||
1270: ams_cpyutility_pvt.get_attachment_name (
1263: END LOOP;
1264: -- If failed write a copy failed message in the log table
1265: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1266: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1267: l_mesg_text := fnd_message.get;
1268: p_errmsg := SUBSTR ( l_mesg_text ||
1269: ' - ' ||
1270: ams_cpyutility_pvt.get_attachment_name (
1271: attachments_rec.attachment_id),
1368: 'ERROR'
1369: );
1370: END LOOP;
1371: -- If failed write a copy failed message in the log table
1372: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1373: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1374: l_mesg_text := fnd_message.get;
1375: p_errmsg := SUBSTR ( l_mesg_text ||
1376: ' - ' ||
1369: );
1370: END LOOP;
1371: -- If failed write a copy failed message in the log table
1372: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1373: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1374: l_mesg_text := fnd_message.get;
1375: p_errmsg := SUBSTR ( l_mesg_text ||
1376: ' - ' ||
1377: ams_cpyutility_pvt.get_attachment_name (
1370: END LOOP;
1371: -- If failed write a copy failed message in the log table
1372: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1373: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1374: l_mesg_text := fnd_message.get;
1375: p_errmsg := SUBSTR ( l_mesg_text ||
1376: ' - ' ||
1377: ams_cpyutility_pvt.get_attachment_name (
1378: attachments_rec.attachment_id),
1400: RAISE FND_API.g_exc_error;
1401: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1404: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1405: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1406: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
1407: l_mesg_text := fnd_message.get;
1408: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1401: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1404: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1405: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1406: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
1407: l_mesg_text := fnd_message.get;
1408: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1409: p_src_act_id,
1402: RAISE FND_API.g_exc_unexpected_error;
1403: END IF;
1404: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1405: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1406: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
1407: l_mesg_text := fnd_message.get;
1408: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1409: p_src_act_id,
1410: l_mesg_text,
1403: END IF;
1404: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1405: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1406: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
1407: l_mesg_text := fnd_message.get;
1408: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1409: p_src_act_id,
1410: l_mesg_text,
1411: 'GENERAL'
1415: THEN
1416: p_errcode := SQLCODE;
1417: p_errnum := 3;
1418: l_stmt_num := 4;
1419: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1420: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1421: l_mesg_text := fnd_message.get;
1422: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1423: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1416: p_errcode := SQLCODE;
1417: p_errnum := 3;
1418: l_stmt_num := 4;
1419: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1420: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1421: l_mesg_text := fnd_message.get;
1422: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1423: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1424: p_errcode || SQLERRM, 1, 4000);
1417: p_errnum := 3;
1418: l_stmt_num := 4;
1419: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1420: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1421: l_mesg_text := fnd_message.get;
1422: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1423: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1424: p_errcode || SQLERRM, 1, 4000);
1425: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1421: l_mesg_text := fnd_message.get;
1422: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1423: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1424: p_errcode || SQLERRM, 1, 4000);
1425: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1426: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1427: l_mesg_text := fnd_message.get;
1428: p_errmsg := SUBSTR ( l_mesg_text ||
1429: ams_cpyutility_pvt.get_attachment_name (
1422: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1423: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1424: p_errcode || SQLERRM, 1, 4000);
1425: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1426: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1427: l_mesg_text := fnd_message.get;
1428: p_errmsg := SUBSTR ( l_mesg_text ||
1429: ams_cpyutility_pvt.get_attachment_name (
1430: attachments_rec.attachment_id) ||
1423: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1424: p_errcode || SQLERRM, 1, 4000);
1425: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1426: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1427: l_mesg_text := fnd_message.get;
1428: p_errmsg := SUBSTR ( l_mesg_text ||
1429: ams_cpyutility_pvt.get_attachment_name (
1430: attachments_rec.attachment_id) ||
1431: p_errmsg, 1, 4000);
1443: THEN
1444: p_errcode := SQLCODE;
1445: p_errnum := 4;
1446: l_stmt_num := 5;
1447: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1448: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1449: l_mesg_text := fnd_message.get;
1450: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
1451: TO_CHAR (l_stmt_num) || ' , ' || '): ' ||
1444: p_errcode := SQLCODE;
1445: p_errnum := 4;
1446: l_stmt_num := 5;
1447: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1448: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1449: l_mesg_text := fnd_message.get;
1450: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
1451: TO_CHAR (l_stmt_num) || ' , ' || '): ' ||
1452: p_errcode || SQLERRM, 1, 4000);
1445: p_errnum := 4;
1446: l_stmt_num := 5;
1447: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1448: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1449: l_mesg_text := fnd_message.get;
1450: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
1451: TO_CHAR (l_stmt_num) || ' , ' || '): ' ||
1452: p_errcode || SQLERRM, 1, 4000);
1453: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1496: BEGIN
1497: p_errcode := NULL;
1498: p_errnum := 0;
1499: p_errmsg := NULL;
1500: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1501: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1502: l_mesg_text := fnd_message.get;
1503: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1504: p_src_act_id,
1497: p_errcode := NULL;
1498: p_errnum := 0;
1499: p_errmsg := NULL;
1500: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1501: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1502: l_mesg_text := fnd_message.get;
1503: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1504: p_src_act_id,
1505: l_mesg_text,
1498: p_errnum := 0;
1499: p_errmsg := NULL;
1500: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1501: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1502: l_mesg_text := fnd_message.get;
1503: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1504: p_src_act_id,
1505: l_mesg_text,
1506: 'GENERAL'
1561: p_errmsg,
1562: 'ERROR'
1563: );
1564: END LOOP;
1565: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1566: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1567: l_mesg_text := fnd_message.get;
1568: p_errmsg := SUBSTR (l_mesg_text || access_rec.user_or_role_id, 1, 4000);
1569: ams_cpyutility_pvt.write_log_mesg (
1562: 'ERROR'
1563: );
1564: END LOOP;
1565: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1566: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1567: l_mesg_text := fnd_message.get;
1568: p_errmsg := SUBSTR (l_mesg_text || access_rec.user_or_role_id, 1, 4000);
1569: ams_cpyutility_pvt.write_log_mesg (
1570: p_src_act_type,
1563: );
1564: END LOOP;
1565: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1566: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1567: l_mesg_text := fnd_message.get;
1568: p_errmsg := SUBSTR (l_mesg_text || access_rec.user_or_role_id, 1, 4000);
1569: ams_cpyutility_pvt.write_log_mesg (
1570: p_src_act_type,
1571: p_src_act_id,
1578: THEN
1579: p_errcode := SQLCODE;
1580: l_stmt_num := 3;
1581: p_errnum := 4;
1582: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1583: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1584: l_mesg_text := fnd_message.get;
1585: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1586: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1579: p_errcode := SQLCODE;
1580: l_stmt_num := 3;
1581: p_errnum := 4;
1582: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1583: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1584: l_mesg_text := fnd_message.get;
1585: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1586: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1587: p_errcode || SQLERRM, 1, 4000);
1580: l_stmt_num := 3;
1581: p_errnum := 4;
1582: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1583: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1584: l_mesg_text := fnd_message.get;
1585: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1586: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1587: p_errcode || SQLERRM, 1, 4000);
1588: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1584: l_mesg_text := fnd_message.get;
1585: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1586: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1587: p_errcode || SQLERRM, 1, 4000);
1588: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1589: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1590: l_mesg_text := fnd_message.get;
1591: p_errmsg := SUBSTR ( l_mesg_text ||
1592: access_rec.user_or_role_id || p_errmsg,
1585: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1586: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1587: p_errcode || SQLERRM, 1, 4000);
1588: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1589: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1590: l_mesg_text := fnd_message.get;
1591: p_errmsg := SUBSTR ( l_mesg_text ||
1592: access_rec.user_or_role_id || p_errmsg,
1593: 1, 4000);
1586: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1587: p_errcode || SQLERRM, 1, 4000);
1588: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1589: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1590: l_mesg_text := fnd_message.get;
1591: p_errmsg := SUBSTR ( l_mesg_text ||
1592: access_rec.user_or_role_id || p_errmsg,
1593: 1, 4000);
1594: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1603: THEN
1604: p_errcode := SQLCODE;
1605: p_errnum := 4;
1606: l_stmt_num := 5;
1607: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1608: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1609: l_mesg_text := fnd_message.get;
1610: p_errmsg := SUBSTR ( l_mesg_text || '): ' ||
1611: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1604: p_errcode := SQLCODE;
1605: p_errnum := 4;
1606: l_stmt_num := 5;
1607: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1608: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1609: l_mesg_text := fnd_message.get;
1610: p_errmsg := SUBSTR ( l_mesg_text || '): ' ||
1611: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1612: p_errcode || SQLERRM, 1, 4000);
1605: p_errnum := 4;
1606: l_stmt_num := 5;
1607: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1608: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_ACCESS', TRUE);
1609: l_mesg_text := fnd_message.get;
1610: p_errmsg := SUBSTR ( l_mesg_text || '): ' ||
1611: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1612: p_errcode || SQLERRM, 1, 4000);
1613: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1660: 'CELL',
1661: l_return_status,
1662: l_lookup_meaning
1663: );
1664: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1665: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1666: l_mesg_text := fnd_message.get;
1667: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1668: p_src_act_id,
1661: l_return_status,
1662: l_lookup_meaning
1663: );
1664: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1665: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1666: l_mesg_text := fnd_message.get;
1667: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1668: p_src_act_id,
1669: l_mesg_text,
1662: l_lookup_meaning
1663: );
1664: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1665: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1666: l_mesg_text := fnd_message.get;
1667: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1668: p_src_act_id,
1669: l_mesg_text,
1670: 'GENERAL'
1730: p_errmsg,
1731: 'ERROR'
1732: );
1733: END LOOP;
1734: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1735: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1736: l_mesg_text := fnd_message.get;
1737: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
1738: ams_cpyutility_pvt.get_segment_name (
1731: 'ERROR'
1732: );
1733: END LOOP;
1734: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1735: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1736: l_mesg_text := fnd_message.get;
1737: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
1738: ams_cpyutility_pvt.get_segment_name (
1739: segments_rec.market_segment_id),
1732: );
1733: END LOOP;
1734: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1735: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1736: l_mesg_text := fnd_message.get;
1737: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
1738: ams_cpyutility_pvt.get_segment_name (
1739: segments_rec.market_segment_id),
1740: 1, 4000);
1746: ELSE
1747: open c_segment_name ( l_segments_rec.market_segment_id );
1748: fetch c_segment_name into l_segment_name ;
1749: close c_segment_name ;
1750: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1751: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1752: fnd_message.set_token('ELEMENT_NAME',l_segment_name,TRUE);
1753: l_mesg_text := fnd_message.get;
1754: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1747: open c_segment_name ( l_segments_rec.market_segment_id );
1748: fetch c_segment_name into l_segment_name ;
1749: close c_segment_name ;
1750: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1751: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1752: fnd_message.set_token('ELEMENT_NAME',l_segment_name,TRUE);
1753: l_mesg_text := fnd_message.get;
1754: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1755: p_src_act_id,
1748: fetch c_segment_name into l_segment_name ;
1749: close c_segment_name ;
1750: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1751: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1752: fnd_message.set_token('ELEMENT_NAME',l_segment_name,TRUE);
1753: l_mesg_text := fnd_message.get;
1754: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1755: p_src_act_id,
1756: l_mesg_text,
1749: close c_segment_name ;
1750: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
1751: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1752: fnd_message.set_token('ELEMENT_NAME',l_segment_name,TRUE);
1753: l_mesg_text := fnd_message.get;
1754: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1755: p_src_act_id,
1756: l_mesg_text,
1757: 'GENERAL'
1763: THEN
1764: p_errcode := SQLCODE;
1765: p_errnum := 3;
1766: l_stmt_num := 4;
1767: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1768: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1769: l_mesg_text := fnd_message.get;
1770: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1771: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1764: p_errcode := SQLCODE;
1765: p_errnum := 3;
1766: l_stmt_num := 4;
1767: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1768: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1769: l_mesg_text := fnd_message.get;
1770: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1771: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1772: p_errcode || SQLERRM, 1, 4000);
1765: p_errnum := 3;
1766: l_stmt_num := 4;
1767: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1768: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1769: l_mesg_text := fnd_message.get;
1770: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1771: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1772: p_errcode || SQLERRM, 1, 4000);
1773: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1769: l_mesg_text := fnd_message.get;
1770: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1771: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1772: p_errcode || SQLERRM, 1, 4000);
1773: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1774: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1775: l_mesg_text := fnd_message.get;
1776: p_errmsg := SUBSTR ( l_mesg_text ||
1777: ams_cpyutility_pvt.get_segment_name (
1770: p_errmsg := SUBSTR ( l_mesg_text || ',' ||
1771: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1772: p_errcode || SQLERRM, 1, 4000);
1773: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1774: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1775: l_mesg_text := fnd_message.get;
1776: p_errmsg := SUBSTR ( l_mesg_text ||
1777: ams_cpyutility_pvt.get_segment_name (
1778: segments_rec.market_segment_id
1771: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1772: p_errcode || SQLERRM, 1, 4000);
1773: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1774: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1775: l_mesg_text := fnd_message.get;
1776: p_errmsg := SUBSTR ( l_mesg_text ||
1777: ams_cpyutility_pvt.get_segment_name (
1778: segments_rec.market_segment_id
1779: ) || p_errmsg, 1, 4000);
1789: THEN
1790: p_errcode := SQLCODE;
1791: p_errnum := 4;
1792: l_stmt_num := 5;
1793: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1794: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1795: l_mesg_text := fnd_message.get;
1796: p_errmsg := SUBSTR ( l_mesg_text ||
1797: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1790: p_errcode := SQLCODE;
1791: p_errnum := 4;
1792: l_stmt_num := 5;
1793: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1794: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1795: l_mesg_text := fnd_message.get;
1796: p_errmsg := SUBSTR ( l_mesg_text ||
1797: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1798: p_errcode || SQLERRM, 1, 4000);
1791: p_errnum := 4;
1792: l_stmt_num := 5;
1793: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1794: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1795: l_mesg_text := fnd_message.get;
1796: p_errmsg := SUBSTR ( l_mesg_text ||
1797: TO_CHAR (l_stmt_num) || ',' || '): ' ||
1798: p_errcode || SQLERRM, 1, 4000);
1799: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1839: 'CATG',
1840: l_return_status,
1841: l_lookup_meaning
1842: );
1843: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1844: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1845: l_mesg_text := fnd_message.get;
1846: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1847: p_src_act_id,
1840: l_return_status,
1841: l_lookup_meaning
1842: );
1843: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1844: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1845: l_mesg_text := fnd_message.get;
1846: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1847: p_src_act_id,
1848: l_mesg_text,
1841: l_lookup_meaning
1842: );
1843: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
1844: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1845: l_mesg_text := fnd_message.get;
1846: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1847: p_src_act_id,
1848: l_mesg_text,
1849: 'GENERAL'
1908: p_errmsg,
1909: 'ERROR'
1910: );
1911: END LOOP;
1912: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1913: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1914: l_mesg_text := fnd_message.get;
1915: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
1916: ams_cpyutility_pvt.get_category_name (
1909: 'ERROR'
1910: );
1911: END LOOP;
1912: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1913: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1914: l_mesg_text := fnd_message.get;
1915: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
1916: ams_cpyutility_pvt.get_category_name (
1917: categories_rec.category_id
1910: );
1911: END LOOP;
1912: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1913: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1914: l_mesg_text := fnd_message.get;
1915: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
1916: ams_cpyutility_pvt.get_category_name (
1917: categories_rec.category_id
1918: ), 1, 4000);
1926: WHEN OTHERS THEN
1927: p_errcode := SQLCODE;
1928: p_errnum := 3;
1929: l_stmt_num := 4;
1930: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1931: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1932: l_mesg_text := fnd_message.get;
1933: p_errmsg := SUBSTR ( l_mesg_text ||
1934: ',' || TO_CHAR (l_stmt_num) ||
1927: p_errcode := SQLCODE;
1928: p_errnum := 3;
1929: l_stmt_num := 4;
1930: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1931: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1932: l_mesg_text := fnd_message.get;
1933: p_errmsg := SUBSTR ( l_mesg_text ||
1934: ',' || TO_CHAR (l_stmt_num) ||
1935: ',' || '): ' || p_errcode ||
1928: p_errnum := 3;
1929: l_stmt_num := 4;
1930: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
1931: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1932: l_mesg_text := fnd_message.get;
1933: p_errmsg := SUBSTR ( l_mesg_text ||
1934: ',' || TO_CHAR (l_stmt_num) ||
1935: ',' || '): ' || p_errcode ||
1936: SQLERRM, 1, 4000);
1933: p_errmsg := SUBSTR ( l_mesg_text ||
1934: ',' || TO_CHAR (l_stmt_num) ||
1935: ',' || '): ' || p_errcode ||
1936: SQLERRM, 1, 4000);
1937: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1938: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1939: l_mesg_text := fnd_message.get;
1940: p_errmsg := SUBSTR ( l_mesg_text ||
1941: ams_cpyutility_pvt.get_category_name (
1934: ',' || TO_CHAR (l_stmt_num) ||
1935: ',' || '): ' || p_errcode ||
1936: SQLERRM, 1, 4000);
1937: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1938: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1939: l_mesg_text := fnd_message.get;
1940: p_errmsg := SUBSTR ( l_mesg_text ||
1941: ams_cpyutility_pvt.get_category_name (
1942: categories_rec.category_id
1935: ',' || '): ' || p_errcode ||
1936: SQLERRM, 1, 4000);
1937: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
1938: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1939: l_mesg_text := fnd_message.get;
1940: p_errmsg := SUBSTR ( l_mesg_text ||
1941: ams_cpyutility_pvt.get_category_name (
1942: categories_rec.category_id
1943: ) || p_errmsg, 1, 4000);
1953: THEN
1954: p_errcode := SQLCODE;
1955: p_errnum := 4;
1956: l_stmt_num := 5;
1957: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1958: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1959: l_mesg_text := fnd_message.get;
1960: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
1961: ',' || '): ' || p_errcode || SQLERRM,
1954: p_errcode := SQLCODE;
1955: p_errnum := 4;
1956: l_stmt_num := 5;
1957: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1958: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1959: l_mesg_text := fnd_message.get;
1960: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
1961: ',' || '): ' || p_errcode || SQLERRM,
1962: 1, 4000);
1955: p_errnum := 4;
1956: l_stmt_num := 5;
1957: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
1958: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
1959: l_mesg_text := fnd_message.get;
1960: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
1961: ',' || '): ' || p_errcode || SQLERRM,
1962: 1, 4000);
1963: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
1999: BEGIN
2000: p_errcode := NULL;
2001: p_errnum := 0;
2002: p_errmsg := NULL;
2003: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2004: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIVMETHODS', TRUE);
2005: l_mesg_text := fnd_message.get;
2006: ams_cpyutility_pvt.write_log_mesg (
2007: p_src_act_type,
2000: p_errcode := NULL;
2001: p_errnum := 0;
2002: p_errmsg := NULL;
2003: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2004: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIVMETHODS', TRUE);
2005: l_mesg_text := fnd_message.get;
2006: ams_cpyutility_pvt.write_log_mesg (
2007: p_src_act_type,
2008: p_src_act_id,
2001: p_errnum := 0;
2002: p_errmsg := NULL;
2003: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2004: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIVMETHODS', TRUE);
2005: l_mesg_text := fnd_message.get;
2006: ams_cpyutility_pvt.write_log_mesg (
2007: p_src_act_type,
2008: p_src_act_id,
2009: l_mesg_text,
2069: p_errmsg,
2070: 'ERROR'
2071: );
2072: END LOOP;
2073: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
2074: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIVMETHODS', TRUE);
2075: l_mesg_text := fnd_message.get;
2076: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
2077: deliv_method_rec.activity_delivery_method_id,
2070: 'ERROR'
2071: );
2072: END LOOP;
2073: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
2074: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIVMETHODS', TRUE);
2075: l_mesg_text := fnd_message.get;
2076: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
2077: deliv_method_rec.activity_delivery_method_id,
2078: 1, 4000);
2071: );
2072: END LOOP;
2073: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
2074: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIVMETHODS', TRUE);
2075: l_mesg_text := fnd_message.get;
2076: p_errmsg := SUBSTR ( l_mesg_text || ' - ' ||
2077: deliv_method_rec.activity_delivery_method_id,
2078: 1, 4000);
2079: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
2085: EXCEPTION
2086: WHEN OTHERS THEN p_errcode := SQLCODE;
2087: p_errnum := 3;
2088: l_stmt_num := 4;
2089: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2090: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIVMETHODS', TRUE);
2091:
2092: l_mesg_text := fnd_message.get;
2093: p_errmsg := SUBSTR ( l_mesg_text || ',' || TO_CHAR (l_stmt_num)
2086: WHEN OTHERS THEN p_errcode := SQLCODE;
2087: p_errnum := 3;
2088: l_stmt_num := 4;
2089: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2090: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIVMETHODS', TRUE);
2091:
2092: l_mesg_text := fnd_message.get;
2093: p_errmsg := SUBSTR ( l_mesg_text || ',' || TO_CHAR (l_stmt_num)
2094: || ',' || '): ' || p_errcode || SQLERRM ||
2088: l_stmt_num := 4;
2089: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2090: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIVMETHODS', TRUE);
2091:
2092: l_mesg_text := fnd_message.get;
2093: p_errmsg := SUBSTR ( l_mesg_text || ',' || TO_CHAR (l_stmt_num)
2094: || ',' || '): ' || p_errcode || SQLERRM ||
2095: deliv_method_rec.activity_delivery_method_id,
2096: 1, 4000);
2106: THEN
2107: p_errcode := SQLCODE;
2108: p_errnum := 4;
2109: l_stmt_num := 5;
2110: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
2111: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIVMETHODS', TRUE);
2112: l_mesg_text := fnd_message.get;
2113: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2114: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
2107: p_errcode := SQLCODE;
2108: p_errnum := 4;
2109: l_stmt_num := 5;
2110: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
2111: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIVMETHODS', TRUE);
2112: l_mesg_text := fnd_message.get;
2113: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2114: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
2115: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
2108: p_errnum := 4;
2109: l_stmt_num := 5;
2110: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
2111: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIVMETHODS', TRUE);
2112: l_mesg_text := fnd_message.get;
2113: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2114: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
2115: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
2116: p_src_act_id,
2149: BEGIN
2150: p_errcode := NULL;
2151: p_errnum := 0;
2152: p_errmsg := NULL;
2153: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2154: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIV_KITS', TRUE);
2155: l_mesg_text := fnd_message.get;
2156: ams_cpyutility_pvt.write_log_mesg ('DELV',
2157: p_src_deli_id,
2150: p_errcode := NULL;
2151: p_errnum := 0;
2152: p_errmsg := NULL;
2153: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2154: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIV_KITS', TRUE);
2155: l_mesg_text := fnd_message.get;
2156: ams_cpyutility_pvt.write_log_mesg ('DELV',
2157: p_src_deli_id,
2158: l_mesg_text,
2151: p_errnum := 0;
2152: p_errmsg := NULL;
2153: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2154: fnd_message.set_token ('ELEMENTS', 'AMS_COPY_DELIV_KITS', TRUE);
2155: l_mesg_text := fnd_message.get;
2156: ams_cpyutility_pvt.write_log_mesg ('DELV',
2157: p_src_deli_id,
2158: l_mesg_text,
2159: 'GENERAL');
2221: );
2222: END LOOP;
2223: ---- if error then right a copy log message to the log table
2224:
2225: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2226: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2227: l_mesg_text := fnd_message.get;
2228: p_errmsg := SUBSTR (l_mesg_text || ' - '
2229: ||deliv_kit_rec.deliverable_kit_id , 1, 4000);
2222: END LOOP;
2223: ---- if error then right a copy log message to the log table
2224:
2225: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2226: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2227: l_mesg_text := fnd_message.get;
2228: p_errmsg := SUBSTR (l_mesg_text || ' - '
2229: ||deliv_kit_rec.deliverable_kit_id , 1, 4000);
2230: ams_cpyutility_pvt.write_log_mesg ( 'DELV',
2223: ---- if error then right a copy log message to the log table
2224:
2225: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2226: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2227: l_mesg_text := fnd_message.get;
2228: p_errmsg := SUBSTR (l_mesg_text || ' - '
2229: ||deliv_kit_rec.deliverable_kit_id , 1, 4000);
2230: ams_cpyutility_pvt.write_log_mesg ( 'DELV',
2231: p_src_deli_id,
2238: THEN
2239: p_errcode := SQLCODE;
2240: p_errnum := 3;
2241: l_stmt_num := 4;
2242: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
2243: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2244: l_mesg_text := fnd_message.get;
2245: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2246: '): ' || p_errcode || SQLERRM, 1, 4000);
2239: p_errcode := SQLCODE;
2240: p_errnum := 3;
2241: l_stmt_num := 4;
2242: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
2243: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2244: l_mesg_text := fnd_message.get;
2245: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2246: '): ' || p_errcode || SQLERRM, 1, 4000);
2247: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2240: p_errnum := 3;
2241: l_stmt_num := 4;
2242: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
2243: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2244: l_mesg_text := fnd_message.get;
2245: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2246: '): ' || p_errcode || SQLERRM, 1, 4000);
2247: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2248: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2243: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2244: l_mesg_text := fnd_message.get;
2245: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2246: '): ' || p_errcode || SQLERRM, 1, 4000);
2247: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2248: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2249: l_mesg_text := fnd_message.get;
2250: p_errmsg := l_mesg_text ||deliv_kit_rec.deliverable_kit_id
2251: ||p_errmsg;
2244: l_mesg_text := fnd_message.get;
2245: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2246: '): ' || p_errcode || SQLERRM, 1, 4000);
2247: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2248: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2249: l_mesg_text := fnd_message.get;
2250: p_errmsg := l_mesg_text ||deliv_kit_rec.deliverable_kit_id
2251: ||p_errmsg;
2252: ams_cpyutility_pvt.write_log_mesg ( 'DELV',
2245: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2246: '): ' || p_errcode || SQLERRM, 1, 4000);
2247: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2248: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2249: l_mesg_text := fnd_message.get;
2250: p_errmsg := l_mesg_text ||deliv_kit_rec.deliverable_kit_id
2251: ||p_errmsg;
2252: ams_cpyutility_pvt.write_log_mesg ( 'DELV',
2253: p_src_deli_id,
2261: THEN
2262: p_errcode := SQLCODE;
2263: p_errnum := 4;
2264: l_stmt_num := 5;
2265: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
2266: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2267: l_mesg_text := fnd_message.get;
2268: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2269: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
2262: p_errcode := SQLCODE;
2263: p_errnum := 4;
2264: l_stmt_num := 5;
2265: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
2266: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2267: l_mesg_text := fnd_message.get;
2268: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2269: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
2270:
2263: p_errnum := 4;
2264: l_stmt_num := 5;
2265: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
2266: fnd_message.set_token ('ELEMENTS','AMS_COPY_DELIV_KITS', TRUE);
2267: l_mesg_text := fnd_message.get;
2268: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
2269: ',' || '): ' || p_errcode || SQLERRM, 1, 4000);
2270:
2271: ams_cpyutility_pvt.write_log_mesg ('DELV',
2345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2346: END IF;
2347:
2348: -- General Message saying copying has started
2349: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2350: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2351: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2352:
2353: -- Writing to the Pl/SQLtable
2346: END IF;
2347:
2348: -- General Message saying copying has started
2349: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2350: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2351: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2352:
2353: -- Writing to the Pl/SQLtable
2354: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2433: p_errmsg,
2434: 'ERROR'
2435: );
2436:
2437: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2438: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2439: l_mesg_text := fnd_message.get;
2440: p_errmsg := l_mesg_text ||
2441: ams_utility_pvt.get_object_name ('CAMP', p_new_camp_id)
2434: 'ERROR'
2435: );
2436:
2437: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2438: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2439: l_mesg_text := fnd_message.get;
2440: p_errmsg := l_mesg_text ||
2441: ams_utility_pvt.get_object_name ('CAMP', p_new_camp_id)
2442: || p_errmsg;
2435: );
2436:
2437: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2438: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2439: l_mesg_text := fnd_message.get;
2440: p_errmsg := l_mesg_text ||
2441: ams_utility_pvt.get_object_name ('CAMP', p_new_camp_id)
2442: || p_errmsg;
2443: ams_cpyutility_pvt.write_log_mesg ( 'CSCH',
2565: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2567: END IF;
2568: -- General Message saying copying has started
2569: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2570: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2571: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2572:
2573: -- Writing to the Pl/SQLtable
2566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2567: END IF;
2568: -- General Message saying copying has started
2569: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2570: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2571: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2572:
2573: -- Writing to the Pl/SQLtable
2574: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2618: p_errmsg,
2619: 'ERROR'
2620: );
2621: END LOOP;
2622: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2623: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2624: l_mesg_text := fnd_message.get;
2625: p_errmsg := l_mesg_text ||
2626: ams_utility_pvt.get_object_name ('CAMP', p_new_camp_id)
2619: 'ERROR'
2620: );
2621: END LOOP;
2622: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2623: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2624: l_mesg_text := fnd_message.get;
2625: p_errmsg := l_mesg_text ||
2626: ams_utility_pvt.get_object_name ('CAMP', p_new_camp_id)
2627: || p_errmsg;
2620: );
2621: END LOOP;
2622: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2623: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2624: l_mesg_text := fnd_message.get;
2625: p_errmsg := l_mesg_text ||
2626: ams_utility_pvt.get_object_name ('CAMP', p_new_camp_id)
2627: || p_errmsg;
2628: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2667: );
2668: -- Is failed write a copy failed message in the log table
2669: END LOOP;
2670: ROLLBACK TO ams_task_assgn;
2671: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2672: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2673: l_mesg_text := fnd_message.get;
2674: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
2675: ('CAMP', p_new_camp_id) || p_errmsg;
2668: -- Is failed write a copy failed message in the log table
2669: END LOOP;
2670: ROLLBACK TO ams_task_assgn;
2671: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2672: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2673: l_mesg_text := fnd_message.get;
2674: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
2675: ('CAMP', p_new_camp_id) || p_errmsg;
2676: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2669: END LOOP;
2670: ROLLBACK TO ams_task_assgn;
2671: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2672: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2673: l_mesg_text := fnd_message.get;
2674: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
2675: ('CAMP', p_new_camp_id) || p_errmsg;
2676: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2677: p_old_camp_id,
2792: l_return_status,
2793: l_lookup_meaning
2794: );
2795: -- General Message saying copying has started
2796: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2797: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2798: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2799:
2800: -- Writing to the Pl/SQLtable
2793: l_lookup_meaning
2794: );
2795: -- General Message saying copying has started
2796: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
2797: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2798: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2799:
2800: -- Writing to the Pl/SQLtable
2801: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2895: );
2896: END IF;
2897: ---- if error then right a copy log message to the log table
2898:
2899: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2900: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2901: l_mesg_text := fnd_message.get;
2902: p_errmsg := l_mesg_text ||
2903: ams_utility_pvt.get_object_name ('CAMP',
2896: END IF;
2897: ---- if error then right a copy log message to the log table
2898:
2899: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2900: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2901: l_mesg_text := fnd_message.get;
2902: p_errmsg := l_mesg_text ||
2903: ams_utility_pvt.get_object_name ('CAMP',
2904: p_new_camp_id) ||
2897: ---- if error then right a copy log message to the log table
2898:
2899: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2900: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2901: l_mesg_text := fnd_message.get;
2902: p_errmsg := l_mesg_text ||
2903: ams_utility_pvt.get_object_name ('CAMP',
2904: p_new_camp_id) ||
2905: p_errmsg;
2928: END LOOP;
2929: END IF;
2930: ---- if error then right a copy log message to the log table
2931:
2932: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2933: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2934: l_mesg_text := fnd_message.get;
2935: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
2936: ('CAMP', p_new_camp_id) || p_errmsg;
2929: END IF;
2930: ---- if error then right a copy log message to the log table
2931:
2932: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2933: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2934: l_mesg_text := fnd_message.get;
2935: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
2936: ('CAMP', p_new_camp_id) || p_errmsg;
2937: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2930: ---- if error then right a copy log message to the log table
2931:
2932: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
2933: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
2934: l_mesg_text := fnd_message.get;
2935: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
2936: ('CAMP', p_new_camp_id) || p_errmsg;
2937: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2938: p_old_camp_id,
3208: l_return_status,
3209: l_lookup_meaning
3210: );
3211: -- General Message saying copying has started
3212: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
3213: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3214: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
3215:
3216: -- Writing to the Pl/SQLtable
3209: l_lookup_meaning
3210: );
3211: -- General Message saying copying has started
3212: fnd_message.set_name ('AMS', 'COPY_ACT_ELEMENTS');
3213: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3214: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
3215:
3216: -- Writing to the Pl/SQLtable
3217: ams_cpyutility_pvt.write_log_mesg ( p_type,
3303: );
3304: END IF;
3305: ---- if error then right a copy log message to the log table
3306:
3307: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
3308: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3309: l_mesg_text := fnd_message.get;
3310: p_errmsg := l_mesg_text ||
3311: ams_utility_pvt.get_object_name (p_type,
3304: END IF;
3305: ---- if error then right a copy log message to the log table
3306:
3307: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
3308: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3309: l_mesg_text := fnd_message.get;
3310: p_errmsg := l_mesg_text ||
3311: ams_utility_pvt.get_object_name (p_type,
3312: p_new_id) ||
3305: ---- if error then right a copy log message to the log table
3306:
3307: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
3308: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3309: l_mesg_text := fnd_message.get;
3310: p_errmsg := l_mesg_text ||
3311: ams_utility_pvt.get_object_name (p_type,
3312: p_new_id) ||
3313: p_errmsg;
3336: END LOOP;
3337: END IF;
3338: ---- if error then right a copy log message to the log table
3339:
3340: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
3341: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3342: l_mesg_text := fnd_message.get;
3343: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
3344: (p_type, p_new_id) || p_errmsg;
3337: END IF;
3338: ---- if error then right a copy log message to the log table
3339:
3340: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
3341: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3342: l_mesg_text := fnd_message.get;
3343: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
3344: (p_type, p_new_id) || p_errmsg;
3345: ams_cpyutility_pvt.write_log_mesg ( p_type,
3338: ---- if error then right a copy log message to the log table
3339:
3340: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
3341: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
3342: l_mesg_text := fnd_message.get;
3343: p_errmsg := l_mesg_text || ams_utility_pvt.get_object_name
3344: (p_type, p_new_id) || p_errmsg;
3345: ams_cpyutility_pvt.write_log_mesg ( p_type,
3346: p_old_id,
4167: 'ATCH',
4168: l_return_status,
4169: l_lookup_meaning
4170: );
4171: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
4172: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4173: l_mesg_text := fnd_message.get;
4174: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4175: p_src_act_id ,
4168: l_return_status,
4169: l_lookup_meaning
4170: );
4171: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
4172: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4173: l_mesg_text := fnd_message.get;
4174: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4175: p_src_act_id ,
4176: l_mesg_text,
4169: l_lookup_meaning
4170: );
4171: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
4172: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4173: l_mesg_text := fnd_message.get;
4174: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4175: p_src_act_id ,
4176: l_mesg_text,
4177: 'GENERAL'
4266: 'ERROR'
4267: );
4268: END LOOP;
4269: -- If failed write a copy failed message in the log table
4270: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4271: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4272: l_mesg_text := fnd_message.get;
4273: p_errmsg := SUBSTR ( l_mesg_text ||
4274: ' - ' ||
4267: );
4268: END LOOP;
4269: -- If failed write a copy failed message in the log table
4270: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4271: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4272: l_mesg_text := fnd_message.get;
4273: p_errmsg := SUBSTR ( l_mesg_text ||
4274: ' - ' ||
4275: ams_cpyutility_pvt.get_attachment_name (
4268: END LOOP;
4269: -- If failed write a copy failed message in the log table
4270: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4271: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4272: l_mesg_text := fnd_message.get;
4273: p_errmsg := SUBSTR ( l_mesg_text ||
4274: ' - ' ||
4275: ams_cpyutility_pvt.get_attachment_name (
4276: attachments_rec.attachment_id),
4294: THEN
4295: p_errcode := SQLCODE;
4296: p_errnum := 4;
4297: l_stmt_num := 3;
4298: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
4299: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4300: l_mesg_text := fnd_message.get;
4301: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
4302: TO_CHAR (l_stmt_num) || ' , ' || '): ' ||
4295: p_errcode := SQLCODE;
4296: p_errnum := 4;
4297: l_stmt_num := 3;
4298: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
4299: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4300: l_mesg_text := fnd_message.get;
4301: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
4302: TO_CHAR (l_stmt_num) || ' , ' || '): ' ||
4303: p_errcode || SQLERRM, 1, 4000);
4296: p_errnum := 4;
4297: l_stmt_num := 3;
4298: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
4299: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4300: l_mesg_text := fnd_message.get;
4301: p_errmsg := SUBSTR ( l_mesg_text || ' , ' ||
4302: TO_CHAR (l_stmt_num) || ' , ' || '): ' ||
4303: p_errcode || SQLERRM, 1, 4000);
4304: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4494: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4496: END IF;
4497:
4498: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
4499: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4500: l_mesg_text := fnd_message.get;
4501: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4502: p_src_act_id,
4495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4496: END IF;
4497:
4498: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
4499: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4500: l_mesg_text := fnd_message.get;
4501: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4502: p_src_act_id,
4503: l_mesg_text,
4496: END IF;
4497:
4498: fnd_message.set_name ('AMS', 'AMS_COPY_ELEMENTS');
4499: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4500: l_mesg_text := fnd_message.get;
4501: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4502: p_src_act_id,
4503: l_mesg_text,
4504: 'GENERAL'
4591: );
4592: END LOOP;
4593: ---- if error then right a copy log message to the log table
4594: ROLLBACK TO ams_act_tasks;
4595: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4596: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4597: l_mesg_text := fnd_message.get;
4598: p_errmsg := SUBSTR ( l_mesg_text || ' - ' || task_rec.task_name,1, 4000);
4599: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4592: END LOOP;
4593: ---- if error then right a copy log message to the log table
4594: ROLLBACK TO ams_act_tasks;
4595: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4596: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4597: l_mesg_text := fnd_message.get;
4598: p_errmsg := SUBSTR ( l_mesg_text || ' - ' || task_rec.task_name,1, 4000);
4599: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4600: p_src_act_id,
4593: ---- if error then right a copy log message to the log table
4594: ROLLBACK TO ams_act_tasks;
4595: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4596: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4597: l_mesg_text := fnd_message.get;
4598: p_errmsg := SUBSTR ( l_mesg_text || ' - ' || task_rec.task_name,1, 4000);
4599: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4600: p_src_act_id,
4601: p_errmsg,
4608: ROLLBACK TO ams_act_tasks;
4609: p_errcode := SQLCODE;
4610: p_errnum := 3;
4611: l_stmt_num := 4;
4612: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
4613: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4614: l_mesg_text := fnd_message.get;
4615: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
4616: '): ' || p_errcode || SQLERRM, 1, 4000);
4609: p_errcode := SQLCODE;
4610: p_errnum := 3;
4611: l_stmt_num := 4;
4612: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
4613: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4614: l_mesg_text := fnd_message.get;
4615: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
4616: '): ' || p_errcode || SQLERRM, 1, 4000);
4617:
4610: p_errnum := 3;
4611: l_stmt_num := 4;
4612: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR');
4613: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4614: l_mesg_text := fnd_message.get;
4615: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
4616: '): ' || p_errcode || SQLERRM, 1, 4000);
4617:
4618: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4614: l_mesg_text := fnd_message.get;
4615: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
4616: '): ' || p_errcode || SQLERRM, 1, 4000);
4617:
4618: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4619: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4620: l_mesg_text := fnd_message.get;
4621: p_errmsg := l_mesg_text || task_rec.task_name || p_errmsg;
4622: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4615: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) ||
4616: '): ' || p_errcode || SQLERRM, 1, 4000);
4617:
4618: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4619: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4620: l_mesg_text := fnd_message.get;
4621: p_errmsg := l_mesg_text || task_rec.task_name || p_errmsg;
4622: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4623: p_src_act_id,
4616: '): ' || p_errcode || SQLERRM, 1, 4000);
4617:
4618: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR2');
4619: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4620: l_mesg_text := fnd_message.get;
4621: p_errmsg := l_mesg_text || task_rec.task_name || p_errmsg;
4622: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4623: p_src_act_id,
4624: p_errmsg,
4626: );
4627:
4628: END;
4629: END LOOP;
4630: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
4631: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4632: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
4633: l_mesg_text := fnd_message.get;
4634: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4627:
4628: END;
4629: END LOOP;
4630: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
4631: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4632: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
4633: l_mesg_text := fnd_message.get;
4634: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4635: p_src_act_id,
4628: END;
4629: END LOOP;
4630: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
4631: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4632: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
4633: l_mesg_text := fnd_message.get;
4634: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4635: p_src_act_id,
4636: l_mesg_text,
4629: END LOOP;
4630: fnd_message.set_name ('AMS', 'AMS_END_COPY_ELEMENTS');
4631: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4632: fnd_message.set_token('ELEMENT_NAME',' ' ,TRUE);
4633: l_mesg_text := fnd_message.get;
4634: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4635: p_src_act_id,
4636: l_mesg_text,
4637: 'GENERAL'
4641: THEN
4642: p_errcode := SQLCODE;
4643: p_errnum := 4;
4644: l_stmt_num := 5;
4645: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
4646: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4647: l_mesg_text := fnd_message.get;
4648: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) || ',' ||
4649: '): ' || p_errcode || SQLERRM, 1, 4000);
4642: p_errcode := SQLCODE;
4643: p_errnum := 4;
4644: l_stmt_num := 5;
4645: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
4646: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4647: l_mesg_text := fnd_message.get;
4648: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) || ',' ||
4649: '): ' || p_errcode || SQLERRM, 1, 4000);
4650: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4643: p_errnum := 4;
4644: l_stmt_num := 5;
4645: fnd_message.set_name ('AMS', 'AMS_COPY_ERROR3');
4646: fnd_message.set_token ('ELEMENTS', l_lookup_meaning, TRUE);
4647: l_mesg_text := fnd_message.get;
4648: p_errmsg := SUBSTR ( l_mesg_text || TO_CHAR (l_stmt_num) || ',' ||
4649: '): ' || p_errcode || SQLERRM, 1, 4000);
4650: ams_cpyutility_pvt.write_log_mesg ( p_src_act_type,
4651: p_src_act_id,