94: 'PROD',
95: l_return_status,
96: l_lookup_meaning
97: );
98: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR ;
100: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
102: END IF;
95: l_return_status,
96: l_lookup_meaning
97: );
98: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR ;
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:
96: l_lookup_meaning
97: );
98: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR ;
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');
97: );
98: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
99: RAISE FND_API.G_EXC_ERROR ;
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);
153: l_act_prod_rec.line_lumpsum_qty := prod_rec.line_lumpsum_qty;
154:
155: ams_actproduct_pvt.create_act_product (
156: p_api_version => l_api_version,
157: p_init_msg_list => fnd_api.g_true,
158: x_return_status => l_return_status,
159: x_msg_count => x_msg_count,
160: x_msg_data => l_msg_data,
161: p_act_product_rec => l_act_prod_rec,
161: p_act_product_rec => l_act_prod_rec,
162: x_act_product_id => l_act_product_id
163: );
164:
165: IF l_return_status = fnd_api.g_ret_sts_error
166: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
167: FOR l_counter IN 1 .. x_msg_count
168: LOOP
169: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
162: x_act_product_id => l_act_product_id
163: );
164:
165: IF l_return_status = fnd_api.g_ret_sts_error
166: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
167: FOR l_counter IN 1 .. x_msg_count
168: LOOP
169: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
170: l_stmt_num := 2;
165: IF l_return_status = fnd_api.g_ret_sts_error
166: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
167: FOR l_counter IN 1 .. x_msg_count
168: LOOP
169: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
170: l_stmt_num := 2;
171: p_errnum := 1;
172: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
173: ' , ' || '): ' || l_counter ||
306: l_act_message_id := 0;
307: ams_act_messages_pvt.create_act_messages
308: (
309: p_api_version => l_api_version,
310: p_init_msg_list => fnd_api.g_true,
311: x_return_status => l_return_status,
312: x_msg_count => x_msg_count,
313: x_msg_data => l_msg_data,
314: p_message_id => message_rec.message_id,
315: p_message_used_by => NVL(p_new_act_type,p_src_act_type),
316: p_msg_used_by_id => p_new_act_id,
317: x_act_msg_id => l_act_message_id
318: );
319: IF l_return_status = fnd_api.g_ret_sts_error
320: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
321: FOR l_counter IN 1 .. x_msg_count
322: LOOP
323: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
316: p_msg_used_by_id => p_new_act_id,
317: x_act_msg_id => l_act_message_id
318: );
319: IF l_return_status = fnd_api.g_ret_sts_error
320: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
321: FOR l_counter IN 1 .. x_msg_count
322: LOOP
323: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
324: l_stmt_num := 2;
319: IF l_return_status = fnd_api.g_ret_sts_error
320: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
321: FOR l_counter IN 1 .. x_msg_count
322: LOOP
323: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
324: l_stmt_num := 2;
325: p_errnum := 1;
326: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
327: ' , ' || '): ' || l_counter ||
479: 'USED_BY',
480: l_return_status,
481: l_usage_type
482: );
483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
484: RAISE FND_API.G_EXC_ERROR ;
485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
487: END IF;
480: l_return_status,
481: l_usage_type
482: );
483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
484: RAISE FND_API.G_EXC_ERROR ;
485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
487: END IF;
488:
481: l_usage_type
482: );
483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
484: RAISE FND_API.G_EXC_ERROR ;
485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
487: END IF;
488:
489: l_association_rec.usage_type := 'USED_BY';
482: );
483: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
484: RAISE FND_API.G_EXC_ERROR ;
485: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
487: END IF;
488:
489: l_association_rec.usage_type := 'USED_BY';
490: /* l_association_rec.quantity_needed := association_rec.quantity_needed; */
537: ams_associations_pvt.create_association
538: (
539: p_api_version => l_api_version,
540: x_return_status => l_return_status,
541: p_init_msg_list => fnd_api.g_true,
542: x_msg_count => x_msg_count,
543: x_msg_data => l_msg_data,
544: p_association_rec => l_association_rec,
545: x_object_association_id => l_obj_association_id
545: x_object_association_id => l_obj_association_id
546: );
547: -- If failed creating then get all the messages for that Api from
548: -- the message list and put it into the log table
549: IF l_return_status = fnd_api.g_ret_sts_error
550: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
551: FOR l_counter IN 1 .. x_msg_count
552: LOOP
553: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
546: );
547: -- If failed creating then get all the messages for that Api from
548: -- the message list and put it into the log table
549: IF l_return_status = fnd_api.g_ret_sts_error
550: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
551: FOR l_counter IN 1 .. x_msg_count
552: LOOP
553: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
554: l_stmt_num := 2;
549: IF l_return_status = fnd_api.g_ret_sts_error
550: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
551: FOR l_counter IN 1 .. x_msg_count
552: LOOP
553: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
554: l_stmt_num := 2;
555: p_errnum := 1;
556: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
557: ' , ' || '): ' || l_counter ||
728: l_geo_area_rec.geo_hierarchy_id := geo_areas_rec.geo_hierarchy_id;
729: ams_geo_areas_pvt.create_geo_area
730: ( p_api_version => l_api_version,
731: x_return_status => l_return_status,
732: p_init_msg_list => fnd_api.g_true,
733: x_msg_count => x_msg_count,
734: x_msg_data => l_msg_data,
735: p_geo_area_rec => l_geo_area_rec,
736: x_geo_area_id => l_act_geo_area_id
735: p_geo_area_rec => l_geo_area_rec,
736: x_geo_area_id => l_act_geo_area_id
737: );
738:
739: IF l_return_status = fnd_api.g_ret_sts_error
740: OR l_return_status = fnd_api.g_ret_sts_unexp_error
741: THEN
742: FOR l_counter IN 1 .. x_msg_count
743: LOOP
736: x_geo_area_id => l_act_geo_area_id
737: );
738:
739: IF l_return_status = fnd_api.g_ret_sts_error
740: OR l_return_status = fnd_api.g_ret_sts_unexp_error
741: THEN
742: FOR l_counter IN 1 .. x_msg_count
743: LOOP
744: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
740: OR l_return_status = fnd_api.g_ret_sts_unexp_error
741: THEN
742: FOR l_counter IN 1 .. x_msg_count
743: LOOP
744: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
745: l_stmt_num := 2;
746: p_errnum := 1;
747: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
748: ' , ' || '): ' || l_counter ||
919: l_act_resource_rec.attribute14 := resource_rec.attribute14;
920: l_act_resource_rec.attribute15 := resource_rec.attribute15;
921: ams_actresource_pvt.create_act_resource
922: ( p_api_version => l_api_version,
923: p_init_msg_list => fnd_api.g_true,
924: x_return_status => l_return_status,
925: x_msg_count => x_msg_count,
926: x_msg_data => l_msg_data,
927: p_act_resource_rec => l_act_resource_rec,
927: p_act_resource_rec => l_act_resource_rec,
928: x_act_resource_id => l_act_resource_id
929: );
930:
931: IF l_return_status = fnd_api.g_ret_sts_error
932: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
933: FOR l_counter IN 1 .. x_msg_count
934: LOOP
935: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
928: x_act_resource_id => l_act_resource_id
929: );
930:
931: IF l_return_status = fnd_api.g_ret_sts_error
932: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
933: FOR l_counter IN 1 .. x_msg_count
934: LOOP
935: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
936: l_stmt_num := 2;
931: IF l_return_status = fnd_api.g_ret_sts_error
932: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
933: FOR l_counter IN 1 .. x_msg_count
934: LOOP
935: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
936: l_stmt_num := 2;
937: p_errnum := 1;
938: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
939: ' , ' || '): ' || l_counter ||
1128: l_doc_attach_rec.language := l_doc_rec.language ;
1129:
1130: AMS_Attachment_PVT.Create_Fnd_Attachment(
1131: p_api_version_number => l_api_version,
1132: p_init_msg_list => FND_API.g_false,
1133: p_commit => FND_API.g_false,
1134: p_validation_level => FND_API.g_valid_level_full,
1135: x_return_status => l_return_status,
1136: x_msg_count => x_msg_count,
1129:
1130: AMS_Attachment_PVT.Create_Fnd_Attachment(
1131: p_api_version_number => l_api_version,
1132: p_init_msg_list => FND_API.g_false,
1133: p_commit => FND_API.g_false,
1134: p_validation_level => FND_API.g_valid_level_full,
1135: x_return_status => l_return_status,
1136: x_msg_count => x_msg_count,
1137: x_msg_data => l_msg_data,
1130: AMS_Attachment_PVT.Create_Fnd_Attachment(
1131: p_api_version_number => l_api_version,
1132: p_init_msg_list => FND_API.g_false,
1133: p_commit => FND_API.g_false,
1134: p_validation_level => FND_API.g_valid_level_full,
1135: x_return_status => l_return_status,
1136: x_msg_count => x_msg_count,
1137: x_msg_data => l_msg_data,
1138: p_fnd_attachment_rec => l_doc_attach_rec,
1140: x_attached_document_id => l_dummy_id
1141: );
1142:
1143:
1144: IF l_return_status = fnd_api.g_ret_sts_error
1145: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1146: FOR l_counter IN 1 .. x_msg_count
1147: LOOP
1148: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1141: );
1142:
1143:
1144: IF l_return_status = fnd_api.g_ret_sts_error
1145: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1146: FOR l_counter IN 1 .. x_msg_count
1147: LOOP
1148: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1149: l_stmt_num := 2;
1144: IF l_return_status = fnd_api.g_ret_sts_error
1145: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1146: FOR l_counter IN 1 .. x_msg_count
1147: LOOP
1148: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1149: l_stmt_num := 2;
1150: p_errnum := 1;
1151: p_errmsg := substr(l_mesg_text||' , '||
1152: TO_CHAR (l_stmt_num) ||
1243: p_act_attachment_rec => attach_rec,
1244: x_act_attachment_id => l_act_attachment_id
1245: );
1246:
1247: IF l_return_status = fnd_api.g_ret_sts_error
1248: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1249: FOR l_counter IN 1 .. x_msg_count
1250: LOOP
1251: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1244: x_act_attachment_id => l_act_attachment_id
1245: );
1246:
1247: IF l_return_status = fnd_api.g_ret_sts_error
1248: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1249: FOR l_counter IN 1 .. x_msg_count
1250: LOOP
1251: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1252: l_stmt_num := 2;
1247: IF l_return_status = fnd_api.g_ret_sts_error
1248: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1249: FOR l_counter IN 1 .. x_msg_count
1250: LOOP
1251: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1252: l_stmt_num := 2;
1253: p_errnum := 1;
1254: p_errmsg := substr(l_mesg_text||' , '||
1255: TO_CHAR (l_stmt_num) ||
1350: p_act_attachment_rec => attach_rec,
1351: x_act_attachment_id => l_act_attachment_id
1352: );
1353:
1354: IF l_return_status = fnd_api.g_ret_sts_error
1355: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1356: FOR l_counter IN 1 .. x_msg_count
1357: LOOP
1358: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1351: x_act_attachment_id => l_act_attachment_id
1352: );
1353:
1354: IF l_return_status = fnd_api.g_ret_sts_error
1355: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1356: FOR l_counter IN 1 .. x_msg_count
1357: LOOP
1358: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1359: l_stmt_num := 2;
1354: IF l_return_status = fnd_api.g_ret_sts_error
1355: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1356: FOR l_counter IN 1 .. x_msg_count
1357: LOOP
1358: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1359: l_stmt_num := 2;
1360: p_errnum := 1;
1361: p_errmsg := substr(l_mesg_text||' , '||
1362: TO_CHAR (l_stmt_num) ||
1384: END IF;
1385:
1386: AMS_ObjectAttribute_PVT.modify_object_attribute(
1387: p_api_version => l_api_version,
1388: p_init_msg_list => FND_API.g_false,
1389: p_commit => FND_API.g_false,
1390: p_validation_level => FND_API.g_valid_level_full,
1391: x_return_status => l_return_status,
1392: x_msg_count => x_msg_count,
1385:
1386: AMS_ObjectAttribute_PVT.modify_object_attribute(
1387: p_api_version => l_api_version,
1388: p_init_msg_list => FND_API.g_false,
1389: p_commit => FND_API.g_false,
1390: p_validation_level => FND_API.g_valid_level_full,
1391: x_return_status => l_return_status,
1392: x_msg_count => x_msg_count,
1393: x_msg_data => l_msg_data,
1386: AMS_ObjectAttribute_PVT.modify_object_attribute(
1387: p_api_version => l_api_version,
1388: p_init_msg_list => FND_API.g_false,
1389: p_commit => FND_API.g_false,
1390: p_validation_level => FND_API.g_valid_level_full,
1391: x_return_status => l_return_status,
1392: x_msg_count => x_msg_count,
1393: x_msg_data => l_msg_data,
1394: p_object_type => p_src_act_type,
1395: p_object_id => p_new_act_id ,
1396: p_attr => 'ATCH',
1397: p_attr_defined_flag => 'Y'
1398: );
1399: IF l_return_status = FND_API.g_ret_sts_error THEN
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;
1396: p_attr => 'ATCH',
1397: p_attr_defined_flag => 'Y'
1398: );
1399: IF l_return_status = FND_API.g_ret_sts_error THEN
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');
1397: p_attr_defined_flag => 'Y'
1398: );
1399: IF l_return_status = FND_API.g_ret_sts_error THEN
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);
1398: );
1399: IF l_return_status = FND_API.g_ret_sts_error THEN
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);
1536:
1537:
1538:
1539: ams_access_pvt.create_access ( p_api_version => l_api_version,
1540: p_init_msg_list => fnd_api.g_true,
1541: x_return_status => l_return_status,
1542: x_msg_count => x_msg_count,
1543: x_msg_data => l_msg_data,
1544: p_access_rec => l_access_rec,
1545: x_access_id => l_act_access_id
1546: );
1547:
1548:
1549: IF l_return_status = fnd_api.g_ret_sts_error
1550: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1551: FOR l_counter IN 1 .. x_msg_count
1552: LOOP
1553: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1546: );
1547:
1548:
1549: IF l_return_status = fnd_api.g_ret_sts_error
1550: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1551: FOR l_counter IN 1 .. x_msg_count
1552: LOOP
1553: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1554: l_stmt_num := 2;
1549: IF l_return_status = fnd_api.g_ret_sts_error
1550: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1551: FOR l_counter IN 1 .. x_msg_count
1552: LOOP
1553: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1554: l_stmt_num := 2;
1555: p_errnum := 1;
1556: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
1557: ' , ' || '): ' || l_counter ||
1705: l_api_version := 1.0;
1706: l_act_segment_id := 0;
1707: ams_act_market_segments_pvt.create_market_segments (
1708: p_api_version => l_api_version,
1709: p_init_msg_list => fnd_api.g_true,
1710: x_return_status => l_return_status,
1711: x_msg_count => x_msg_count,
1712: x_msg_data => l_msg_data,
1713: p_mks_rec => l_segments_rec,
1714: x_act_mks_id => l_act_segment_id
1715: );
1716:
1717:
1718: IF l_return_status = fnd_api.g_ret_sts_error
1719: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1720: FOR l_counter IN 1 .. x_msg_count
1721: LOOP
1722: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1715: );
1716:
1717:
1718: IF l_return_status = fnd_api.g_ret_sts_error
1719: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1720: FOR l_counter IN 1 .. x_msg_count
1721: LOOP
1722: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1723: l_stmt_num := 2;
1718: IF l_return_status = fnd_api.g_ret_sts_error
1719: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1720: FOR l_counter IN 1 .. x_msg_count
1721: LOOP
1722: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1723: l_stmt_num := 2;
1724: p_errnum := 1;
1725: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
1726: ' , ' || '): ' || l_counter ||
1883: l_msg_data := NULL;
1884: l_act_category_id := 0;
1885: ams_actcategory_pvt.create_act_category (
1886: p_api_version => l_api_version,
1887: p_init_msg_list => fnd_api.g_true,
1888: x_return_status => l_return_status,
1889: x_msg_count => x_msg_count,
1890: x_msg_data => l_msg_data,
1891: p_act_category_rec => l_categories_rec,
1892: x_act_category_id => l_act_category_id
1893: );
1894:
1895:
1896: IF l_return_status = fnd_api.g_ret_sts_error
1897: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1898: FOR l_counter IN 1 .. x_msg_count
1899: LOOP
1900: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1893: );
1894:
1895:
1896: IF l_return_status = fnd_api.g_ret_sts_error
1897: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1898: FOR l_counter IN 1 .. x_msg_count
1899: LOOP
1900: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1901: l_stmt_num := 2;
1896: IF l_return_status = fnd_api.g_ret_sts_error
1897: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1898: FOR l_counter IN 1 .. x_msg_count
1899: LOOP
1900: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
1901: l_stmt_num := 2;
1902: p_errnum := 1;
1903: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
1904: ' , ' || '): ' || l_counter ||
2044: l_msg_data := NULL;
2045: l_act_deliv_method_id := 0;
2046: ams_actdelvmethod_pvt.create_act_delvmethod (
2047: p_api_version => l_api_version,
2048: p_init_msg_list => fnd_api.g_true,
2049: x_return_status => l_return_status,
2050: x_msg_count => x_msg_count,
2051: x_msg_data => l_msg_data,
2052: p_act_delvmethod_rec => l_deliv_methods_rec,
2053: x_act_delvmethod_id => l_act_deliv_method_id
2054: );
2055:
2056:
2057: IF l_return_status = fnd_api.g_ret_sts_error
2058: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2059: FOR l_counter IN 1 .. x_msg_count
2060: LOOP
2061: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2054: );
2055:
2056:
2057: IF l_return_status = fnd_api.g_ret_sts_error
2058: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2059: FOR l_counter IN 1 .. x_msg_count
2060: LOOP
2061: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2062: l_stmt_num := 2;
2057: IF l_return_status = fnd_api.g_ret_sts_error
2058: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2059: FOR l_counter IN 1 .. x_msg_count
2060: LOOP
2061: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2062: l_stmt_num := 2;
2063: p_errnum := 1;
2064: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
2065: ' , ' || '): ' || l_counter ||
2202: x_deliv_kit_item_id => l_deliv_kit_id,
2203: p_deliv_kit_item_rec => l_delivkit_item_rec
2204: );
2205: -- If failed creating then get all the messages for that Api frpom the message list and put it into the log table
2206: IF l_return_status = fnd_api.g_ret_sts_error
2207: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2208: FOR l_counter IN 1 .. x_msg_count
2209: LOOP
2210: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2203: p_deliv_kit_item_rec => l_delivkit_item_rec
2204: );
2205: -- If failed creating then get all the messages for that Api frpom the message list and put it into the log table
2206: IF l_return_status = fnd_api.g_ret_sts_error
2207: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2208: FOR l_counter IN 1 .. x_msg_count
2209: LOOP
2210: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2211: l_stmt_num := 2;
2206: IF l_return_status = fnd_api.g_ret_sts_error
2207: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2208: FOR l_counter IN 1 .. x_msg_count
2209: LOOP
2210: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2211: l_stmt_num := 2;
2212: p_errnum := 1;
2213: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
2214: ' , ' || '): ' || l_counter ||
2280:
2281: /*
2282: PROCEDURE copy_campaign_schedules (
2283: p_api_version IN NUMBER,
2284: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2285: x_return_status OUT NOCOPY VARCHAR2,
2286: x_msg_count OUT NOCOPY NUMBER,
2287: x_msg_data OUT NOCOPY VARCHAR2,
2288: x_campaign_schedule_id OUT NOCOPY NUMBER,
2312:
2313: ams_utility_pvt.debug_message (l_full_name || ': start');
2314: END IF;
2315:
2316: IF fnd_api.to_boolean (p_init_msg_list) THEN
2317: fnd_msg_pub.initialize;
2318: END IF;
2319:
2320: IF NOT fnd_api.compatible_api_call (
2316: IF fnd_api.to_boolean (p_init_msg_list) THEN
2317: fnd_msg_pub.initialize;
2318: END IF;
2319:
2320: IF NOT fnd_api.compatible_api_call (
2321: l_api_version,
2322: p_api_version,
2323: l_api_name,
2324: g_pkg_name
2323: l_api_name,
2324: g_pkg_name
2325: )
2326: THEN
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329:
2330: x_return_status := fnd_api.g_ret_sts_success;
2331: ----------------------- insert -----------------------
2326: THEN
2327: RAISE fnd_api.g_exc_unexpected_error;
2328: END IF;
2329:
2330: x_return_status := fnd_api.g_ret_sts_success;
2331: ----------------------- insert -----------------------
2332: IF (AMS_DEBUG_HIGH_ON) THEN
2333:
2334: ams_utility_pvt.debug_message (l_full_name || ': start');
2338: 'CSCH',
2339: l_return_status,
2340: l_lookup_meaning
2341: );
2342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2343: RAISE FND_API.G_EXC_ERROR ;
2344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2346: END IF;
2339: l_return_status,
2340: l_lookup_meaning
2341: );
2342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2343: RAISE FND_API.G_EXC_ERROR ;
2344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2346: END IF;
2347:
2340: l_lookup_meaning
2341: );
2342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2343: RAISE FND_API.G_EXC_ERROR ;
2344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2346: END IF;
2347:
2348: -- General Message saying copying has started
2341: );
2342: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2343: RAISE FND_API.G_EXC_ERROR ;
2344: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
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');
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',
2355: p_src_camp_schedule_id,
2414: x_csch_id => x_campaign_schedule_id,
2415: p_csch_rec => p_camp_csch_rec
2416: );
2417:
2418: IF l_return_status = fnd_api.g_ret_sts_unexp_error OR
2419: l_return_status = fnd_api.g_ret_sts_error THEN
2420: FOR l_counter IN 1 .. x_msg_count
2421: LOOP
2422: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2415: p_csch_rec => p_camp_csch_rec
2416: );
2417:
2418: IF l_return_status = fnd_api.g_ret_sts_unexp_error OR
2419: l_return_status = fnd_api.g_ret_sts_error THEN
2420: FOR l_counter IN 1 .. x_msg_count
2421: LOOP
2422: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2423: p_errmsg := substr(l_mesg_text || '): ' || l_counter ||
2418: IF l_return_status = fnd_api.g_ret_sts_unexp_error OR
2419: l_return_status = fnd_api.g_ret_sts_error THEN
2420: FOR l_counter IN 1 .. x_msg_count
2421: LOOP
2422: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2423: p_errmsg := substr(l_mesg_text || '): ' || l_counter ||
2424: ' OF ' || x_msg_count, 1, 3000);
2425: ams_cpyutility_pvt.write_log_mesg ( 'CSCH',
2426: p_src_camp_schedule_id,
2444: p_src_camp_schedule_id,
2445: p_errmsg,
2446: 'ERROR'
2447: );
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR ;
2450: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2452: END IF;
2445: p_errmsg,
2446: 'ERROR'
2447: );
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR ;
2450: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2452: END IF;
2453: END IF;
2446: 'ERROR'
2447: );
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR ;
2450: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2452: END IF;
2453: END IF;
2454: EXCEPTION
2447: );
2448: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR ;
2450: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2452: END IF;
2453: END IF;
2454: EXCEPTION
2455: WHEN fnd_api.g_exc_error
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2452: END IF;
2453: END IF;
2454: EXCEPTION
2455: WHEN fnd_api.g_exc_error
2456: THEN
2457: ROLLBACK TO copy_campaign_schedules;
2458: x_return_status := fnd_api.g_ret_sts_error;
2459: fnd_msg_pub.count_and_get (
2454: EXCEPTION
2455: WHEN fnd_api.g_exc_error
2456: THEN
2457: ROLLBACK TO copy_campaign_schedules;
2458: x_return_status := fnd_api.g_ret_sts_error;
2459: fnd_msg_pub.count_and_get (
2460: p_encoded => fnd_api.g_false,
2461: p_count => x_msg_count,
2462: p_data => x_msg_data
2456: THEN
2457: ROLLBACK TO copy_campaign_schedules;
2458: x_return_status := fnd_api.g_ret_sts_error;
2459: fnd_msg_pub.count_and_get (
2460: p_encoded => fnd_api.g_false,
2461: p_count => x_msg_count,
2462: p_data => x_msg_data
2463: );
2464: WHEN fnd_api.g_exc_unexpected_error
2460: p_encoded => fnd_api.g_false,
2461: p_count => x_msg_count,
2462: p_data => x_msg_data
2463: );
2464: WHEN fnd_api.g_exc_unexpected_error
2465: THEN
2466: ROLLBACK TO copy_campaign_schedules;
2467: x_return_status := fnd_api.g_ret_sts_unexp_error;
2468: fnd_msg_pub.count_and_get (
2463: );
2464: WHEN fnd_api.g_exc_unexpected_error
2465: THEN
2466: ROLLBACK TO copy_campaign_schedules;
2467: x_return_status := fnd_api.g_ret_sts_unexp_error;
2468: fnd_msg_pub.count_and_get (
2469: p_encoded => fnd_api.g_false,
2470: p_count => x_msg_count,
2471: p_data => x_msg_data
2465: THEN
2466: ROLLBACK TO copy_campaign_schedules;
2467: x_return_status := fnd_api.g_ret_sts_unexp_error;
2468: fnd_msg_pub.count_and_get (
2469: p_encoded => fnd_api.g_false,
2470: p_count => x_msg_count,
2471: p_data => x_msg_data
2472: );
2473: WHEN OTHERS
2472: );
2473: WHEN OTHERS
2474: THEN
2475: ROLLBACK TO copy_campaign_schedules;
2476: x_return_status := fnd_api.g_ret_sts_unexp_error;
2477:
2478: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2479: THEN
2480: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2480: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2481: END IF;
2482:
2483: fnd_msg_pub.count_and_get (
2484: p_encoded => fnd_api.g_false,
2485: p_count => x_msg_count,
2486: p_data => x_msg_data
2487: );
2488: END copy_campaign_schedules;
2489: */
2490:
2491: PROCEDURE copy_tasks (
2492: p_api_version IN NUMBER,
2493: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2494: x_return_status OUT NOCOPY VARCHAR2,
2495: x_msg_count OUT NOCOPY NUMBER,
2496: x_msg_data OUT NOCOPY VARCHAR2,
2497: p_old_camp_id IN NUMBER,
2533:
2534: ams_utility_pvt.debug_message (l_full_name || ': start');
2535:
2536: END IF;
2537: IF fnd_api.to_boolean (p_init_msg_list)
2538: THEN
2539: fnd_msg_pub.initialize;
2540: END IF;
2541:
2538: THEN
2539: fnd_msg_pub.initialize;
2540: END IF;
2541:
2542: IF NOT fnd_api.compatible_api_call ( l_api_version,
2543: p_api_version,
2544: l_api_name,
2545: g_pkg_name
2546: )
2544: l_api_name,
2545: g_pkg_name
2546: )
2547: THEN
2548: RAISE fnd_api.g_exc_unexpected_error;
2549: END IF;
2550:
2551: x_return_status := fnd_api.g_ret_sts_success;
2552: ----------------------- insert -----------------------
2547: THEN
2548: RAISE fnd_api.g_exc_unexpected_error;
2549: END IF;
2550:
2551: x_return_status := fnd_api.g_ret_sts_success;
2552: ----------------------- insert -----------------------
2553: IF (AMS_DEBUG_HIGH_ON) THEN
2554:
2555: ams_utility_pvt.debug_message (l_full_name || ': start');
2559: 'TASK',
2560: l_return_status,
2561: l_lookup_meaning
2562: );
2563: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2564: RAISE FND_API.G_EXC_ERROR ;
2565: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2567: END IF;
2560: l_return_status,
2561: l_lookup_meaning
2562: );
2563: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2564: RAISE FND_API.G_EXC_ERROR ;
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
2561: l_lookup_meaning
2562: );
2563: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2564: RAISE FND_API.G_EXC_ERROR ;
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');
2562: );
2563: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2564: RAISE FND_API.G_EXC_ERROR ;
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);
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',
2575: p_old_camp_id,
2582: ('JTF_TASK_DEFAULT_TASK_STATUS'));
2583: FOR tasks_rec in cur_get_tasks LOOP
2584: ams_task_pvt.create_task
2585: (p_api_version => 1.0,
2586: p_init_msg_list => fnd_api.g_false,
2587: p_commit => fnd_api.g_false,
2588: p_task_id => NULL,
2589: p_task_name => tasks_rec.task_name,
2590: p_task_type_id => tasks_rec.task_type_id,
2583: FOR tasks_rec in cur_get_tasks LOOP
2584: ams_task_pvt.create_task
2585: (p_api_version => 1.0,
2586: p_init_msg_list => fnd_api.g_false,
2587: p_commit => fnd_api.g_false,
2588: p_task_id => NULL,
2589: p_task_name => tasks_rec.task_name,
2590: p_task_type_id => tasks_rec.task_type_id,
2591: p_task_status_id => l_task_status,
2605: x_msg_data => x_msg_data,
2606: x_task_id => l_task_id
2607: );
2608:
2609: IF l_return_status = fnd_api.g_ret_sts_unexp_error OR
2610: l_return_status = fnd_api.g_ret_sts_error THEN
2611: FOR l_counter IN 1 .. x_msg_count
2612: LOOP
2613: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2606: x_task_id => l_task_id
2607: );
2608:
2609: IF l_return_status = fnd_api.g_ret_sts_unexp_error OR
2610: l_return_status = fnd_api.g_ret_sts_error THEN
2611: FOR l_counter IN 1 .. x_msg_count
2612: LOOP
2613: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2614: p_errmsg := substr(l_mesg_text || '): ' || l_counter ||
2609: IF l_return_status = fnd_api.g_ret_sts_unexp_error OR
2610: l_return_status = fnd_api.g_ret_sts_error THEN
2611: FOR l_counter IN 1 .. x_msg_count
2612: LOOP
2613: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2614: p_errmsg := substr(l_mesg_text || '): ' || l_counter ||
2615: ' OF ' || x_msg_count, 1, 3000);
2616: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2617: p_old_camp_id,
2629: p_old_camp_id,
2630: p_errmsg,
2631: 'ERROR'
2632: );
2633: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2634: RAISE FND_API.G_EXC_ERROR ;
2635: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2637: END IF;
2630: p_errmsg,
2631: 'ERROR'
2632: );
2633: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2634: RAISE FND_API.G_EXC_ERROR ;
2635: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2637: END IF;
2638: END IF;
2631: 'ERROR'
2632: );
2633: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2634: RAISE FND_API.G_EXC_ERROR ;
2635: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2637: END IF;
2638: END IF;
2639:
2632: );
2633: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2634: RAISE FND_API.G_EXC_ERROR ;
2635: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2637: END IF;
2638: END IF;
2639:
2640:
2641: FOR task_assg_rec in cur_get_task_assgmts LOOP
2642: SAVEPOINT ams_task_assgn;
2643: AMS_TASK_PVT.create_Task_Assignment (
2644: p_api_version => l_api_version,
2645: p_init_msg_list => fnd_api.g_false ,
2646: p_commit => fnd_api.g_false ,
2647: p_task_id => l_task_id,
2648: p_resource_type_code => task_assg_rec.resource_type_code,
2649: p_resource_id => p_owner_id,
2642: SAVEPOINT ams_task_assgn;
2643: AMS_TASK_PVT.create_Task_Assignment (
2644: p_api_version => l_api_version,
2645: p_init_msg_list => fnd_api.g_false ,
2646: p_commit => fnd_api.g_false ,
2647: p_task_id => l_task_id,
2648: p_resource_type_code => task_assg_rec.resource_type_code,
2649: p_resource_id => p_owner_id,
2650: p_assignment_status_id => l_task_status,
2652: x_msg_count => x_msg_count,
2653: x_msg_data => x_msg_data,
2654: x_task_assignment_id => l_task_assignment_id ) ;
2655:
2656: IF l_return_status = fnd_api.g_ret_sts_error OR
2657: l_return_status = fnd_api.g_ret_sts_unexp_error then
2658: FOR l_counter IN 1 .. x_msg_count
2659: LOOP
2660: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2653: x_msg_data => x_msg_data,
2654: x_task_assignment_id => l_task_assignment_id ) ;
2655:
2656: IF l_return_status = fnd_api.g_ret_sts_error OR
2657: l_return_status = fnd_api.g_ret_sts_unexp_error then
2658: FOR l_counter IN 1 .. x_msg_count
2659: LOOP
2660: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2661: p_errmsg := SUBSTR ( l_mesg_text || '): ' || l_counter ||
2656: IF l_return_status = fnd_api.g_ret_sts_error OR
2657: l_return_status = fnd_api.g_ret_sts_unexp_error then
2658: FOR l_counter IN 1 .. x_msg_count
2659: LOOP
2660: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2661: p_errmsg := SUBSTR ( l_mesg_text || '): ' || l_counter ||
2662: ' OF ' || x_msg_count, 1, 3000);
2663: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2664: p_old_camp_id,
2676: ams_cpyutility_pvt.write_log_mesg ( 'CAMP',
2677: p_old_camp_id,
2678: p_errmsg,
2679: 'ERROR');
2680: if l_return_status = fnd_api.g_ret_sts_unexp_error then
2681: RAISE fnd_api.g_exc_unexpected_error;
2682: else
2683: RAISE fnd_api.g_exc_error;
2684: END IF;
2677: p_old_camp_id,
2678: p_errmsg,
2679: 'ERROR');
2680: if l_return_status = fnd_api.g_ret_sts_unexp_error then
2681: RAISE fnd_api.g_exc_unexpected_error;
2682: else
2683: RAISE fnd_api.g_exc_error;
2684: END IF;
2685: END IF;
2679: 'ERROR');
2680: if l_return_status = fnd_api.g_ret_sts_unexp_error then
2681: RAISE fnd_api.g_exc_unexpected_error;
2682: else
2683: RAISE fnd_api.g_exc_error;
2684: END IF;
2685: END IF;
2686:
2687: END LOOP;
2688:
2689: END LOOP;
2690:
2691: EXCEPTION
2692: WHEN fnd_api.g_exc_error
2693: THEN
2694: ROLLBACK TO copy_tasks;
2695: x_return_status := fnd_api.g_ret_sts_error;
2696: fnd_msg_pub.count_and_get (
2691: EXCEPTION
2692: WHEN fnd_api.g_exc_error
2693: THEN
2694: ROLLBACK TO copy_tasks;
2695: x_return_status := fnd_api.g_ret_sts_error;
2696: fnd_msg_pub.count_and_get (
2697: p_encoded => fnd_api.g_false,
2698: p_count => x_msg_count,
2699: p_data => x_msg_data
2693: THEN
2694: ROLLBACK TO copy_tasks;
2695: x_return_status := fnd_api.g_ret_sts_error;
2696: fnd_msg_pub.count_and_get (
2697: p_encoded => fnd_api.g_false,
2698: p_count => x_msg_count,
2699: p_data => x_msg_data
2700: );
2701: WHEN fnd_api.g_exc_unexpected_error
2697: p_encoded => fnd_api.g_false,
2698: p_count => x_msg_count,
2699: p_data => x_msg_data
2700: );
2701: WHEN fnd_api.g_exc_unexpected_error
2702: THEN
2703: ROLLBACK TO copy_tasks;
2704: x_return_status := fnd_api.g_ret_sts_unexp_error;
2705: fnd_msg_pub.count_and_get (
2700: );
2701: WHEN fnd_api.g_exc_unexpected_error
2702: THEN
2703: ROLLBACK TO copy_tasks;
2704: x_return_status := fnd_api.g_ret_sts_unexp_error;
2705: fnd_msg_pub.count_and_get (
2706: p_encoded => fnd_api.g_false,
2707: p_count => x_msg_count,
2708: p_data => x_msg_data
2702: THEN
2703: ROLLBACK TO copy_tasks;
2704: x_return_status := fnd_api.g_ret_sts_unexp_error;
2705: fnd_msg_pub.count_and_get (
2706: p_encoded => fnd_api.g_false,
2707: p_count => x_msg_count,
2708: p_data => x_msg_data
2709: );
2710: WHEN OTHERS
2709: );
2710: WHEN OTHERS
2711: THEN
2712: ROLLBACK TO copy_tasks;
2713: x_return_status := fnd_api.g_ret_sts_unexp_error;
2714:
2715: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2716: THEN
2717: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2717: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2718: END IF;
2719:
2720: fnd_msg_pub.count_and_get (
2721: p_encoded => fnd_api.g_false,
2722: p_count => x_msg_count,
2723: p_data => x_msg_data
2724: );
2725: END copy_tasks;
2726:
2727:
2728: PROCEDURE copy_partners (
2729: p_api_version IN NUMBER,
2730: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
2731: x_return_status OUT NOCOPY VARCHAR2,
2732: x_msg_count OUT NOCOPY NUMBER,
2733: x_msg_data OUT NOCOPY VARCHAR2,
2734: p_old_camp_id IN NUMBER,
2764: ams_utility_pvt.debug_message (l_full_name || ': start');
2765:
2766: END IF;
2767:
2768: IF fnd_api.to_boolean (p_init_msg_list)
2769: THEN
2770: fnd_msg_pub.initialize;
2771: END IF;
2772:
2769: THEN
2770: fnd_msg_pub.initialize;
2771: END IF;
2772:
2773: IF NOT fnd_api.compatible_api_call (
2774: l_api_version,
2775: p_api_version,
2776: l_api_name,
2777: g_pkg_name
2776: l_api_name,
2777: g_pkg_name
2778: )
2779: THEN
2780: RAISE fnd_api.g_exc_unexpected_error;
2781: END IF;
2782:
2783: x_return_status := fnd_api.g_ret_sts_success;
2784: ----------------------- insert -----------------------
2779: THEN
2780: RAISE fnd_api.g_exc_unexpected_error;
2781: END IF;
2782:
2783: x_return_status := fnd_api.g_ret_sts_success;
2784: ----------------------- insert -----------------------
2785: IF (AMS_DEBUG_HIGH_ON) THEN
2786:
2787: ams_utility_pvt.debug_message (l_full_name || ': start');
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',
2802: p_old_camp_id,
2839: -- End fix:2072789
2840:
2841: AMS_actpartner_pvt.create_act_partner
2842: ( p_api_version => l_api_version,
2843: p_init_msg_list => fnd_api.g_false,
2844: p_commit => fnd_api.g_false,
2845: x_return_status => l_return_status,
2846: x_msg_count => x_msg_count,
2847: x_msg_data => x_msg_data,
2840:
2841: AMS_actpartner_pvt.create_act_partner
2842: ( p_api_version => l_api_version,
2843: p_init_msg_list => fnd_api.g_false,
2844: p_commit => fnd_api.g_false,
2845: x_return_status => l_return_status,
2846: x_msg_count => x_msg_count,
2847: x_msg_data => x_msg_data,
2848: p_act_partner_rec => l_act_partner,
2849: x_act_partner_id => l_act_partner_id
2850: );
2851:
2852:
2853: IF l_return_status = fnd_api.g_ret_sts_error
2854: THEN
2855: IF x_msg_count >= 1
2856: THEN
2857: FOR l_counter IN 1 .. x_msg_count
2855: IF x_msg_count >= 1
2856: THEN
2857: FOR l_counter IN 1 .. x_msg_count
2858: LOOP
2859: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2860: p_errmsg := SUBSTR (
2861: l_mesg_text ||
2862: '): ' ||
2863: l_counter ||
2907: p_old_camp_id,
2908: p_errmsg,
2909: 'ERROR'
2910: );
2911: RAISE fnd_api.g_exc_error;
2912: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
2913: THEN
2914: IF l_return_status = fnd_api.g_ret_sts_error
2915: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2908: p_errmsg,
2909: 'ERROR'
2910: );
2911: RAISE fnd_api.g_exc_error;
2912: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
2913: THEN
2914: IF l_return_status = fnd_api.g_ret_sts_error
2915: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2916: FOR l_counter IN 1 .. x_msg_count
2910: );
2911: RAISE fnd_api.g_exc_error;
2912: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
2913: THEN
2914: IF l_return_status = fnd_api.g_ret_sts_error
2915: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2916: FOR l_counter IN 1 .. x_msg_count
2917: LOOP
2918: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2911: RAISE fnd_api.g_exc_error;
2912: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
2913: THEN
2914: IF l_return_status = fnd_api.g_ret_sts_error
2915: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2916: FOR l_counter IN 1 .. x_msg_count
2917: LOOP
2918: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2919: p_errmsg := SUBSTR ( l_mesg_text || ' , ' || '): ' ||
2914: IF l_return_status = fnd_api.g_ret_sts_error
2915: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2916: FOR l_counter IN 1 .. x_msg_count
2917: LOOP
2918: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
2919: p_errmsg := SUBSTR ( l_mesg_text || ' , ' || '): ' ||
2920: x_msg_count || ' OF ' || x_msg_count,
2921: 1, 4000);
2922: ams_cpyutility_pvt.write_log_mesg (
2938: p_old_camp_id,
2939: p_errmsg,
2940: 'ERROR'
2941: );
2942: RAISE fnd_api.g_exc_unexpected_error;
2943: END IF;
2944: EXCEPTION
2945: WHEN fnd_api.g_exc_error
2946: THEN
2941: );
2942: RAISE fnd_api.g_exc_unexpected_error;
2943: END IF;
2944: EXCEPTION
2945: WHEN fnd_api.g_exc_error
2946: THEN
2947: ROLLBACK TO copy_partners;
2948: x_return_status := fnd_api.g_ret_sts_error;
2949: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2944: EXCEPTION
2945: WHEN fnd_api.g_exc_error
2946: THEN
2947: ROLLBACK TO copy_partners;
2948: x_return_status := fnd_api.g_ret_sts_error;
2949: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2950: p_count => x_msg_count,
2951: p_data => x_msg_data
2952: );
2945: WHEN fnd_api.g_exc_error
2946: THEN
2947: ROLLBACK TO copy_partners;
2948: x_return_status := fnd_api.g_ret_sts_error;
2949: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2950: p_count => x_msg_count,
2951: p_data => x_msg_data
2952: );
2953: WHEN fnd_api.g_exc_unexpected_error
2949: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2950: p_count => x_msg_count,
2951: p_data => x_msg_data
2952: );
2953: WHEN fnd_api.g_exc_unexpected_error
2954: THEN
2955: ROLLBACK TO copy_partners;
2956: x_return_status := fnd_api.g_ret_sts_unexp_error;
2957: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2952: );
2953: WHEN fnd_api.g_exc_unexpected_error
2954: THEN
2955: ROLLBACK TO copy_partners;
2956: x_return_status := fnd_api.g_ret_sts_unexp_error;
2957: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2958: p_count => x_msg_count,
2959: p_data => x_msg_data
2960: );
2953: WHEN fnd_api.g_exc_unexpected_error
2954: THEN
2955: ROLLBACK TO copy_partners;
2956: x_return_status := fnd_api.g_ret_sts_unexp_error;
2957: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
2958: p_count => x_msg_count,
2959: p_data => x_msg_data
2960: );
2961: WHEN OTHERS
2960: );
2961: WHEN OTHERS
2962: THEN
2963: ROLLBACK TO copy_partners;
2964: x_return_status := fnd_api.g_ret_sts_unexp_error;
2965:
2966: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2967: THEN
2968: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2968: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2969: END IF;
2970:
2971: fnd_msg_pub.count_and_get (
2972: p_encoded => fnd_api.g_false,
2973: p_count => x_msg_count,
2974: p_data => x_msg_data
2975: );
2976: END;
2977: END LOOP;
2978: EXCEPTION
2979: WHEN others THEN
2980: ROLLBACK TO copy_partners;
2981: x_return_status := fnd_api.g_ret_sts_unexp_error;
2982: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
2983: THEN
2984: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2985: END IF;
2983: THEN
2984: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
2985: END IF;
2986: fnd_msg_pub.count_and_get (
2987: p_encoded => fnd_api.g_false,
2988: p_count => x_msg_count,
2989: p_data => x_msg_data
2990: );
2991: END copy_partners;
2997: -- 06-Apr-2001 choang Added check of return_status in call to create_listaction api.
2998: -- 09-Apr-2001 choang Added order by order_number to main cursor
2999: PROCEDURE copy_list_select_actions (
3000: p_api_version IN NUMBER,
3001: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3002: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3003: x_return_status OUT NOCOPY VARCHAR2,
3004: x_msg_count OUT NOCOPY NUMBER,
3005: x_msg_data OUT NOCOPY VARCHAR2,
2998: -- 09-Apr-2001 choang Added order by order_number to main cursor
2999: PROCEDURE copy_list_select_actions (
3000: p_api_version IN NUMBER,
3001: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3002: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3003: x_return_status OUT NOCOPY VARCHAR2,
3004: x_msg_count OUT NOCOPY NUMBER,
3005: x_msg_data OUT NOCOPY VARCHAR2,
3006: p_object_type IN VARCHAR2,
3028: -- Standard Start of API savepoint
3029: SAVEPOINT copy_list_select_actions_pvt;
3030:
3031: -- Standard call to check for call compatibility.
3032: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3033: p_api_version,
3034: l_api_name,
3035: G_PKG_NAME)
3036: THEN
3033: p_api_version,
3034: l_api_name,
3035: G_PKG_NAME)
3036: THEN
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039:
3040: -- Initialize message list if p_init_msg_list is set to TRUE.
3041: IF FND_API.to_Boolean( p_init_msg_list )THEN
3037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3038: END IF;
3039:
3040: -- Initialize message list if p_init_msg_list is set to TRUE.
3041: IF FND_API.to_Boolean( p_init_msg_list )THEN
3042: FND_MSG_PUB.initialize;
3043: END IF;
3044:
3045: IF (AMS_DEBUG_HIGH_ON) THEN
3050:
3051: END IF;
3052:
3053: -- Initialize API return status to SUCCESS
3054: x_return_status := FND_API.G_RET_STS_SUCCESS;
3055:
3056: --
3057: -- Start of API body.
3058: --
3069: l_select_action_rec.rank := l_source_rec.rank;
3070:
3071: AMS_ListAction_PVT.Create_ListAction (
3072: p_api_version => 1.0,
3073: p_init_msg_list => FND_API.G_FALSE,
3074: p_commit => FND_API.G_FALSE,
3075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3076: x_return_status => x_return_status,
3077: x_msg_count => x_msg_count,
3070:
3071: AMS_ListAction_PVT.Create_ListAction (
3072: p_api_version => 1.0,
3073: p_init_msg_list => FND_API.G_FALSE,
3074: p_commit => FND_API.G_FALSE,
3075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3076: x_return_status => x_return_status,
3077: x_msg_count => x_msg_count,
3078: x_msg_data => x_msg_data,
3071: AMS_ListAction_PVT.Create_ListAction (
3072: p_api_version => 1.0,
3073: p_init_msg_list => FND_API.G_FALSE,
3074: p_commit => FND_API.G_FALSE,
3075: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3076: x_return_status => x_return_status,
3077: x_msg_count => x_msg_count,
3078: x_msg_data => x_msg_data,
3079: p_action_rec => l_select_action_rec,
3078: x_msg_data => x_msg_data,
3079: p_action_rec => l_select_action_rec,
3080: x_action_id => l_select_action_id
3081: );
3082: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3083: RAISE FND_API.G_EXC_ERROR;
3084: END IF;
3085: END LOOP;
3086:
3079: p_action_rec => l_select_action_rec,
3080: x_action_id => l_select_action_id
3081: );
3082: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3083: RAISE FND_API.G_EXC_ERROR;
3084: END IF;
3085: END LOOP;
3086:
3087: --
3088: -- End of API body.
3089: --
3090:
3091: -- Standard check for p_commit
3092: IF FND_API.to_Boolean( p_commit ) THEN
3093: COMMIT WORK;
3094: END IF;
3095:
3096:
3105: p_count => x_msg_count,
3106: p_data => x_msg_data
3107: );
3108: EXCEPTION
3109: WHEN FND_API.G_EXC_ERROR THEN
3110: ROLLBACK TO copy_list_select_actions_pvt;
3111: x_return_status := FND_API.G_RET_STS_ERROR;
3112: -- Standard call to get message count and if count=1, get the message
3113: FND_MSG_PUB.Count_And_Get (
3107: );
3108: EXCEPTION
3109: WHEN FND_API.G_EXC_ERROR THEN
3110: ROLLBACK TO copy_list_select_actions_pvt;
3111: x_return_status := FND_API.G_RET_STS_ERROR;
3112: -- Standard call to get message count and if count=1, get the message
3113: FND_MSG_PUB.Count_And_Get (
3114: p_encoded => FND_API.G_FALSE,
3115: p_count => x_msg_count,
3110: ROLLBACK TO copy_list_select_actions_pvt;
3111: x_return_status := FND_API.G_RET_STS_ERROR;
3112: -- Standard call to get message count and if count=1, get the message
3113: FND_MSG_PUB.Count_And_Get (
3114: p_encoded => FND_API.G_FALSE,
3115: p_count => x_msg_count,
3116: p_data => x_msg_data
3117: );
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3114: p_encoded => FND_API.G_FALSE,
3115: p_count => x_msg_count,
3116: p_data => x_msg_data
3117: );
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: ROLLBACK TO copy_list_select_actions_pvt;
3120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3121: -- Standard call to get message count and if count=1, get the message
3122: FND_MSG_PUB.Count_And_Get (
3116: p_data => x_msg_data
3117: );
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: ROLLBACK TO copy_list_select_actions_pvt;
3120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3121: -- Standard call to get message count and if count=1, get the message
3122: FND_MSG_PUB.Count_And_Get (
3123: p_encoded => FND_API.G_FALSE,
3124: p_count => x_msg_count,
3119: ROLLBACK TO copy_list_select_actions_pvt;
3120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3121: -- Standard call to get message count and if count=1, get the message
3122: FND_MSG_PUB.Count_And_Get (
3123: p_encoded => FND_API.G_FALSE,
3124: p_count => x_msg_count,
3125: p_data => x_msg_data
3126: );
3127: WHEN OTHERS THEN
3125: p_data => x_msg_data
3126: );
3127: WHEN OTHERS THEN
3128: ROLLBACK TO copy_list_select_actions_pvt;
3129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3130: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3131: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3132: END IF;
3133: -- Standard call to get message count and if count=1, get the message
3131: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3132: END IF;
3133: -- Standard call to get message count and if count=1, get the message
3134: FND_MSG_PUB.Count_And_Get (
3135: p_encoded => FND_API.G_FALSE,
3136: p_count => x_msg_count,
3137: p_data => x_msg_data
3138: );
3139: END copy_list_select_actions;
3140:
3141:
3142: PROCEDURE copy_partners_generic (
3143: p_api_version IN NUMBER,
3144: p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
3145: x_return_status OUT NOCOPY VARCHAR2,
3146: x_msg_count OUT NOCOPY NUMBER,
3147: x_msg_data OUT NOCOPY VARCHAR2,
3148: p_old_id IN NUMBER,
3180: ams_utility_pvt.debug_message (l_full_name || ': start');
3181:
3182: END IF;
3183:
3184: IF fnd_api.to_boolean (p_init_msg_list)
3185: THEN
3186: fnd_msg_pub.initialize;
3187: END IF;
3188:
3185: THEN
3186: fnd_msg_pub.initialize;
3187: END IF;
3188:
3189: IF NOT fnd_api.compatible_api_call (
3190: l_api_version,
3191: p_api_version,
3192: l_api_name,
3193: g_pkg_name
3192: l_api_name,
3193: g_pkg_name
3194: )
3195: THEN
3196: RAISE fnd_api.g_exc_unexpected_error;
3197: END IF;
3198:
3199: x_return_status := fnd_api.g_ret_sts_success;
3200: ----------------------- insert -----------------------
3195: THEN
3196: RAISE fnd_api.g_exc_unexpected_error;
3197: END IF;
3198:
3199: x_return_status := fnd_api.g_ret_sts_success;
3200: ----------------------- insert -----------------------
3201: IF (AMS_DEBUG_HIGH_ON) THEN
3202:
3203: ams_utility_pvt.debug_message (l_full_name || ': start');
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,
3218: p_old_id,
3247: l_act_partner.attribute15 := partner_rec.attribute15;
3248:
3249: AMS_actpartner_pvt.create_act_partner
3250: ( p_api_version => l_api_version,
3251: p_init_msg_list => fnd_api.g_false,
3252: p_commit => fnd_api.g_false,
3253: x_return_status => l_return_status,
3254: x_msg_count => x_msg_count,
3255: x_msg_data => x_msg_data,
3248:
3249: AMS_actpartner_pvt.create_act_partner
3250: ( p_api_version => l_api_version,
3251: p_init_msg_list => fnd_api.g_false,
3252: p_commit => fnd_api.g_false,
3253: x_return_status => l_return_status,
3254: x_msg_count => x_msg_count,
3255: x_msg_data => x_msg_data,
3256: p_act_partner_rec => l_act_partner,
3257: x_act_partner_id => l_act_partner_id
3258: );
3259:
3260:
3261: IF l_return_status = fnd_api.g_ret_sts_error
3262: THEN
3263: IF x_msg_count >= 1
3264: THEN
3265: FOR l_counter IN 1 .. x_msg_count
3263: IF x_msg_count >= 1
3264: THEN
3265: FOR l_counter IN 1 .. x_msg_count
3266: LOOP
3267: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
3268: p_errmsg := SUBSTR (
3269: l_mesg_text ||
3270: '): ' ||
3271: l_counter ||
3315: p_old_id,
3316: p_errmsg,
3317: 'ERROR'
3318: );
3319: RAISE fnd_api.g_exc_error;
3320: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
3321: THEN
3322: IF l_return_status = fnd_api.g_ret_sts_error
3323: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3316: p_errmsg,
3317: 'ERROR'
3318: );
3319: RAISE fnd_api.g_exc_error;
3320: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
3321: THEN
3322: IF l_return_status = fnd_api.g_ret_sts_error
3323: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3324: FOR l_counter IN 1 .. x_msg_count
3318: );
3319: RAISE fnd_api.g_exc_error;
3320: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
3321: THEN
3322: IF l_return_status = fnd_api.g_ret_sts_error
3323: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3324: FOR l_counter IN 1 .. x_msg_count
3325: LOOP
3326: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
3319: RAISE fnd_api.g_exc_error;
3320: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
3321: THEN
3322: IF l_return_status = fnd_api.g_ret_sts_error
3323: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3324: FOR l_counter IN 1 .. x_msg_count
3325: LOOP
3326: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
3327: p_errmsg := SUBSTR ( l_mesg_text || ' , ' || '): ' ||
3322: IF l_return_status = fnd_api.g_ret_sts_error
3323: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3324: FOR l_counter IN 1 .. x_msg_count
3325: LOOP
3326: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
3327: p_errmsg := SUBSTR ( l_mesg_text || ' , ' || '): ' ||
3328: x_msg_count || ' OF ' || x_msg_count,
3329: 1, 4000);
3330: ams_cpyutility_pvt.write_log_mesg (
3346: p_old_id,
3347: p_errmsg,
3348: 'ERROR'
3349: );
3350: RAISE fnd_api.g_exc_unexpected_error;
3351: END IF;
3352: EXCEPTION
3353: WHEN fnd_api.g_exc_error
3354: THEN
3349: );
3350: RAISE fnd_api.g_exc_unexpected_error;
3351: END IF;
3352: EXCEPTION
3353: WHEN fnd_api.g_exc_error
3354: THEN
3355: ROLLBACK TO copy_partners;
3356: x_return_status := fnd_api.g_ret_sts_error;
3357: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3352: EXCEPTION
3353: WHEN fnd_api.g_exc_error
3354: THEN
3355: ROLLBACK TO copy_partners;
3356: x_return_status := fnd_api.g_ret_sts_error;
3357: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3358: p_count => x_msg_count,
3359: p_data => x_msg_data
3360: );
3353: WHEN fnd_api.g_exc_error
3354: THEN
3355: ROLLBACK TO copy_partners;
3356: x_return_status := fnd_api.g_ret_sts_error;
3357: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3358: p_count => x_msg_count,
3359: p_data => x_msg_data
3360: );
3361: WHEN fnd_api.g_exc_unexpected_error
3357: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3358: p_count => x_msg_count,
3359: p_data => x_msg_data
3360: );
3361: WHEN fnd_api.g_exc_unexpected_error
3362: THEN
3363: ROLLBACK TO copy_partners;
3364: x_return_status := fnd_api.g_ret_sts_unexp_error;
3365: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3360: );
3361: WHEN fnd_api.g_exc_unexpected_error
3362: THEN
3363: ROLLBACK TO copy_partners;
3364: x_return_status := fnd_api.g_ret_sts_unexp_error;
3365: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3366: p_count => x_msg_count,
3367: p_data => x_msg_data
3368: );
3361: WHEN fnd_api.g_exc_unexpected_error
3362: THEN
3363: ROLLBACK TO copy_partners;
3364: x_return_status := fnd_api.g_ret_sts_unexp_error;
3365: fnd_msg_pub.count_and_get ( p_encoded => fnd_api.g_false,
3366: p_count => x_msg_count,
3367: p_data => x_msg_data
3368: );
3369: WHEN OTHERS
3368: );
3369: WHEN OTHERS
3370: THEN
3371: ROLLBACK TO copy_partners;
3372: x_return_status := fnd_api.g_ret_sts_unexp_error;
3373:
3374: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3375: THEN
3376: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3376: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3377: END IF;
3378:
3379: fnd_msg_pub.count_and_get (
3380: p_encoded => fnd_api.g_false,
3381: p_count => x_msg_count,
3382: p_data => x_msg_data
3383: );
3384: END;
3385: END LOOP;
3386: EXCEPTION
3387: WHEN others THEN
3388: ROLLBACK TO copy_partners;
3389: x_return_status := fnd_api.g_ret_sts_unexp_error;
3390: IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
3391: THEN
3392: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3393: END IF;
3391: THEN
3392: fnd_msg_pub.add_exc_msg (g_pkg_name, l_api_name);
3393: END IF;
3394: fnd_msg_pub.count_and_get (
3395: p_encoded => fnd_api.g_false,
3396: p_count => x_msg_count,
3397: p_data => x_msg_data
3398: );
3399: END copy_partners_generic;
3437:
3438: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3439: END IF;
3440: -- Initialize API return status to SUCCESS
3441: x_return_status := FND_API.G_RET_STS_SUCCESS;
3442:
3443: OPEN c_schedule_det ;
3444: LOOP
3445: FETCH c_schedule_det INTO l_reference_rec ;
3557: p_schedule_rec => l_schedule_rec,
3558: x_schedule_id => l_schedule_rec.schedule_id
3559: );
3560:
3561: IF x_return_status = FND_API.g_ret_sts_error THEN
3562: RAISE FND_API.g_exc_error;
3563: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3564: RAISE FND_API.g_exc_unexpected_error;
3565: END IF;
3558: x_schedule_id => l_schedule_rec.schedule_id
3559: );
3560:
3561: IF x_return_status = FND_API.g_ret_sts_error THEN
3562: RAISE FND_API.g_exc_error;
3563: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3564: RAISE FND_API.g_exc_unexpected_error;
3565: END IF;
3566:
3559: );
3560:
3561: IF x_return_status = FND_API.g_ret_sts_error THEN
3562: RAISE FND_API.g_exc_error;
3563: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3564: RAISE FND_API.g_exc_unexpected_error;
3565: END IF;
3566:
3567: END LOOP;
3560:
3561: IF x_return_status = FND_API.g_ret_sts_error THEN
3562: RAISE FND_API.g_exc_error;
3563: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3564: RAISE FND_API.g_exc_unexpected_error;
3565: END IF;
3566:
3567: END LOOP;
3568: CLOSE c_schedule_det ;
3583: WHEN AMS_Utility_PVT.resource_locked THEN
3584: IF c_schedule_det%ISOPEN THEN
3585: CLOSE c_schedule_det ;
3586: END IF ;
3587: x_return_status := FND_API.g_ret_sts_error;
3588: AMS_Utility_Pvt.Error_Message('AMS_API_RESOURCE_LOCKED');
3589:
3590: WHEN FND_API.G_EXC_ERROR THEN
3591: ROLLBACK TO Copy_Act_Schedule;
3586: END IF ;
3587: x_return_status := FND_API.g_ret_sts_error;
3588: AMS_Utility_Pvt.Error_Message('AMS_API_RESOURCE_LOCKED');
3589:
3590: WHEN FND_API.G_EXC_ERROR THEN
3591: ROLLBACK TO Copy_Act_Schedule;
3592: IF c_schedule_det%ISOPEN THEN
3593: CLOSE c_schedule_det ;
3594: END IF ;
3591: ROLLBACK TO Copy_Act_Schedule;
3592: IF c_schedule_det%ISOPEN THEN
3593: CLOSE c_schedule_det ;
3594: END IF ;
3595: x_return_status := FND_API.G_RET_STS_ERROR;
3596: -- Standard call to get message count and if count=1, get the message
3597: FND_MSG_PUB.Count_And_Get (
3598: p_encoded => FND_API.G_FALSE,
3599: p_count => x_msg_count,
3594: END IF ;
3595: x_return_status := FND_API.G_RET_STS_ERROR;
3596: -- Standard call to get message count and if count=1, get the message
3597: FND_MSG_PUB.Count_And_Get (
3598: p_encoded => FND_API.G_FALSE,
3599: p_count => x_msg_count,
3600: p_data => x_msg_data
3601: );
3602:
3599: p_count => x_msg_count,
3600: p_data => x_msg_data
3601: );
3602:
3603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3604: ROLLBACK TO Copy_Act_Schedule;
3605: IF c_schedule_det%ISOPEN THEN
3606: CLOSE c_schedule_det ;
3607: END IF ;
3604: ROLLBACK TO Copy_Act_Schedule;
3605: IF c_schedule_det%ISOPEN THEN
3606: CLOSE c_schedule_det ;
3607: END IF ;
3608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3609: -- Standard call to get message count and if count=1, get the message
3610: FND_MSG_PUB.Count_And_Get (
3611: p_encoded => FND_API.G_FALSE,
3612: p_count => x_msg_count,
3607: END IF ;
3608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3609: -- Standard call to get message count and if count=1, get the message
3610: FND_MSG_PUB.Count_And_Get (
3611: p_encoded => FND_API.G_FALSE,
3612: p_count => x_msg_count,
3613: p_data => x_msg_data
3614: );
3615:
3617: ROLLBACK TO Copy_Act_Schedule;
3618: IF c_schedule_det%ISOPEN THEN
3619: CLOSE c_schedule_det ;
3620: END IF ;
3621: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3622: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3623: THEN
3624: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3625: END IF;
3624: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3625: END IF;
3626: -- Standard call to get message count and if count=1, get the message
3627: FND_MSG_PUB.Count_And_Get (
3628: p_encoded => FND_API.G_FALSE,
3629: p_count => x_msg_count,
3630: p_data => x_msg_data
3631: );
3632:
3711:
3712: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
3713: END IF;
3714: -- Initialize API return status to SUCCESS
3715: x_return_status := FND_API.G_RET_STS_SUCCESS;
3716:
3717: -- fetching from c_camp_details added by soagrawa on 18-oct-2001
3718: -- bug# 2063240
3719: OPEN c_camp_details;
3943:
3944: -- created the event EONE
3945: AMS_EventOffer_PVT.create_event_offer (
3946: p_api_version => 1.0,
3947: p_init_msg_list => FND_API.G_FALSE,
3948: p_commit => FND_API.G_FALSE,
3949: p_validation_level => FND_API.g_valid_level_full,
3950: p_evo_rec => l_event_offer_rec,
3951: x_return_status => x_return_status,
3944: -- created the event EONE
3945: AMS_EventOffer_PVT.create_event_offer (
3946: p_api_version => 1.0,
3947: p_init_msg_list => FND_API.G_FALSE,
3948: p_commit => FND_API.G_FALSE,
3949: p_validation_level => FND_API.g_valid_level_full,
3950: p_evo_rec => l_event_offer_rec,
3951: x_return_status => x_return_status,
3952: x_msg_count => x_msg_count,
3945: AMS_EventOffer_PVT.create_event_offer (
3946: p_api_version => 1.0,
3947: p_init_msg_list => FND_API.G_FALSE,
3948: p_commit => FND_API.G_FALSE,
3949: p_validation_level => FND_API.g_valid_level_full,
3950: p_evo_rec => l_event_offer_rec,
3951: x_return_status => x_return_status,
3952: x_msg_count => x_msg_count,
3953: x_msg_data => x_msg_data,
3954: x_evo_id => l_new_event_offer_id
3955: );
3956:
3957:
3958: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959: RAISE FND_API.G_EXC_ERROR;
3960: END IF;
3961:
3962:
3955: );
3956:
3957:
3958: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3959: RAISE FND_API.G_EXC_ERROR;
3960: END IF;
3961:
3962:
3963:
3972: p_errmsg => l_errmsg
3973: );
3974:
3975: IF l_errnum > 0 THEN
3976: RAISE FND_API.G_EXC_ERROR;
3977: END IF;
3978: */
3979:
3980:
4008:
4009: END IF;
4010: AMS_Camp_Schedule_PVT.Create_Camp_Schedule(
4011: p_api_version_number => 1,
4012: p_init_msg_list => FND_API.G_FALSE,
4013: x_return_status => x_return_status,
4014: x_msg_count => x_msg_count,
4015: x_msg_data => x_msg_data,
4016:
4017: p_schedule_rec => l_schedule_rec,
4018: x_schedule_id => l_schedule_rec.schedule_id
4019: );
4020:
4021: IF x_return_status = FND_API.g_ret_sts_error THEN
4022: RAISE FND_API.g_exc_error;
4023: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4024: RAISE FND_API.g_exc_unexpected_error;
4025: END IF;
4018: x_schedule_id => l_schedule_rec.schedule_id
4019: );
4020:
4021: IF x_return_status = FND_API.g_ret_sts_error THEN
4022: RAISE FND_API.g_exc_error;
4023: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4024: RAISE FND_API.g_exc_unexpected_error;
4025: END IF;
4026:
4019: );
4020:
4021: IF x_return_status = FND_API.g_ret_sts_error THEN
4022: RAISE FND_API.g_exc_error;
4023: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4024: RAISE FND_API.g_exc_unexpected_error;
4025: END IF;
4026:
4027: -- Following code is added by rrajesh on 11/02/01. bug fix:
4020:
4021: IF x_return_status = FND_API.g_ret_sts_error THEN
4022: RAISE FND_API.g_exc_error;
4023: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4024: RAISE FND_API.g_exc_unexpected_error;
4025: END IF;
4026:
4027: -- Following code is added by rrajesh on 11/02/01. bug fix:
4028: l_attr_list.p_AGEN := 'Y';
4036: l_attr_list.p_REGS := 'Y';
4037:
4038: Ams_CopyActivities_PVT.copy_schedule_attributes (
4039: p_api_version => 1.0,
4040: p_init_msg_list => FND_API.G_FALSE,
4041: p_commit => FND_API.G_FALSE,
4042: x_return_status => x_return_status,
4043: x_msg_count => x_msg_count,
4044: x_msg_data => x_msg_data,
4037:
4038: Ams_CopyActivities_PVT.copy_schedule_attributes (
4039: p_api_version => 1.0,
4040: p_init_msg_list => FND_API.G_FALSE,
4041: p_commit => FND_API.G_FALSE,
4042: x_return_status => x_return_status,
4043: x_msg_count => x_msg_count,
4044: x_msg_data => x_msg_data,
4045: p_object_type => 'CSCH',
4046: p_src_object_id => p_old_schedule_id,
4047: p_tar_object_id => l_schedule_rec.schedule_id,
4048: p_attr_list => l_attr_list
4049: );
4050: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053: -- End change 11/02/01
4054:
4047: p_tar_object_id => l_schedule_rec.schedule_id,
4048: p_attr_list => l_attr_list
4049: );
4050: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4051: RAISE FND_API.G_EXC_ERROR;
4052: END IF;
4053: -- End change 11/02/01
4054:
4055: --END LOOP;
4071: WHEN AMS_Utility_PVT.resource_locked THEN
4072: IF c_schedule_details%ISOPEN THEN
4073: CLOSE c_schedule_details ;
4074: END IF ;
4075: x_return_status := FND_API.g_ret_sts_error;
4076: AMS_Utility_Pvt.Error_Message('AMS_API_RESOURCE_LOCKED');
4077:
4078: WHEN FND_API.G_EXC_ERROR THEN
4079: ROLLBACK TO Copy_Act_Schedule;
4074: END IF ;
4075: x_return_status := FND_API.g_ret_sts_error;
4076: AMS_Utility_Pvt.Error_Message('AMS_API_RESOURCE_LOCKED');
4077:
4078: WHEN FND_API.G_EXC_ERROR THEN
4079: ROLLBACK TO Copy_Act_Schedule;
4080: IF c_schedule_details%ISOPEN THEN
4081: CLOSE c_schedule_details ;
4082: END IF ;
4079: ROLLBACK TO Copy_Act_Schedule;
4080: IF c_schedule_details%ISOPEN THEN
4081: CLOSE c_schedule_details ;
4082: END IF ;
4083: x_return_status := FND_API.G_RET_STS_ERROR;
4084: -- Standard call to get message count and if count=1, get the message
4085: FND_MSG_PUB.Count_And_Get (
4086: p_encoded => FND_API.G_FALSE,
4087: p_count => x_msg_count,
4082: END IF ;
4083: x_return_status := FND_API.G_RET_STS_ERROR;
4084: -- Standard call to get message count and if count=1, get the message
4085: FND_MSG_PUB.Count_And_Get (
4086: p_encoded => FND_API.G_FALSE,
4087: p_count => x_msg_count,
4088: p_data => x_msg_data
4089: );
4090:
4087: p_count => x_msg_count,
4088: p_data => x_msg_data
4089: );
4090:
4091: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4092: ROLLBACK TO Copy_Act_Schedule;
4093: IF c_schedule_details%ISOPEN THEN
4094: CLOSE c_schedule_details ;
4095: END IF ;
4092: ROLLBACK TO Copy_Act_Schedule;
4093: IF c_schedule_details%ISOPEN THEN
4094: CLOSE c_schedule_details ;
4095: END IF ;
4096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4097: -- Standard call to get message count and if count=1, get the message
4098: FND_MSG_PUB.Count_And_Get (
4099: p_encoded => FND_API.G_FALSE,
4100: p_count => x_msg_count,
4095: END IF ;
4096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4097: -- Standard call to get message count and if count=1, get the message
4098: FND_MSG_PUB.Count_And_Get (
4099: p_encoded => FND_API.G_FALSE,
4100: p_count => x_msg_count,
4101: p_data => x_msg_data
4102: );
4103:
4105: ROLLBACK TO Copy_Act_Schedule;
4106: IF c_schedule_details%ISOPEN THEN
4107: CLOSE c_schedule_details ;
4108: END IF ;
4109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4110: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4111: THEN
4112: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4113: END IF;
4112: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4113: END IF;
4114: -- Standard call to get message count and if count=1, get the message
4115: FND_MSG_PUB.Count_And_Get (
4116: p_encoded => FND_API.G_FALSE,
4117: p_count => x_msg_count,
4118: p_data => x_msg_data
4119: );
4120: END copy_selected_schedule ;
4248: p_act_attachment_rec => attach_rec,
4249: x_act_attachment_id => l_act_attachment_id
4250: );
4251:
4252: IF l_return_status = fnd_api.g_ret_sts_error
4253: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4254: FOR l_counter IN 1 .. x_msg_count
4255: LOOP
4256: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4249: x_act_attachment_id => l_act_attachment_id
4250: );
4251:
4252: IF l_return_status = fnd_api.g_ret_sts_error
4253: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4254: FOR l_counter IN 1 .. x_msg_count
4255: LOOP
4256: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4257: l_stmt_num := 2;
4252: IF l_return_status = fnd_api.g_ret_sts_error
4253: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4254: FOR l_counter IN 1 .. x_msg_count
4255: LOOP
4256: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4257: l_stmt_num := 2;
4258: p_errnum := 1;
4259: p_errmsg := substr(l_mesg_text||' , '||
4260: TO_CHAR (l_stmt_num) ||
4363: x_msg_count => l_msg_count,
4364: x_msg_data => l_msg_data
4365: );
4366:
4367: IF l_return_status = fnd_api.g_ret_sts_error
4368: OR l_return_status = fnd_api.g_ret_sts_unexp_error
4369: THEN
4370: FOR l_counter IN 1 .. l_msg_count
4371: LOOP
4364: x_msg_data => l_msg_data
4365: );
4366:
4367: IF l_return_status = fnd_api.g_ret_sts_error
4368: OR l_return_status = fnd_api.g_ret_sts_unexp_error
4369: THEN
4370: FOR l_counter IN 1 .. l_msg_count
4371: LOOP
4372: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4368: OR l_return_status = fnd_api.g_ret_sts_unexp_error
4369: THEN
4370: FOR l_counter IN 1 .. l_msg_count
4371: LOOP
4372: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4373: l_stmt_num := 1;
4374: p_errnum := 1;
4375: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
4376: ' , ' || '): ' || l_counter ||
4428: x_msg_data => l_msg_data,
4429: x_return_status => l_return_status
4430: ) ;
4431:
4432: IF l_return_status = fnd_api.g_ret_sts_error
4433: OR l_return_status = fnd_api.g_ret_sts_unexp_error
4434: THEN
4435: FOR l_counter IN 1 .. l_msg_count
4436: LOOP
4429: x_return_status => l_return_status
4430: ) ;
4431:
4432: IF l_return_status = fnd_api.g_ret_sts_error
4433: OR l_return_status = fnd_api.g_ret_sts_unexp_error
4434: THEN
4435: FOR l_counter IN 1 .. l_msg_count
4436: LOOP
4437: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4433: OR l_return_status = fnd_api.g_ret_sts_unexp_error
4434: THEN
4435: FOR l_counter IN 1 .. l_msg_count
4436: LOOP
4437: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4438: l_stmt_num := 1;
4439: p_errnum := 1;
4440: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
4441: ' , ' || '): ' || l_counter ||
4488: 'TASK',
4489: l_return_status,
4490: l_lookup_meaning
4491: );
4492: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493: RAISE FND_API.G_EXC_ERROR ;
4494: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
4496: END IF;
4489: l_return_status,
4490: l_lookup_meaning
4491: );
4492: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493: RAISE FND_API.G_EXC_ERROR ;
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:
4490: l_lookup_meaning
4491: );
4492: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493: RAISE FND_API.G_EXC_ERROR ;
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');
4491: );
4492: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
4493: RAISE FND_API.G_EXC_ERROR ;
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);
4513: select jtf_tasks_s.nextval into l_task_id from dual;
4514:
4515: JTF_TASKS_PUB.create_task(
4516: p_api_version => 1.0,
4517: p_init_msg_list => FND_API.G_TRUE,
4518: p_commit => FND_API.G_FALSE,
4519: p_task_id => l_task_id,
4520: p_task_name => task_rec.task_name,
4521: p_task_type_id => task_rec.task_type_id,
4514:
4515: JTF_TASKS_PUB.create_task(
4516: p_api_version => 1.0,
4517: p_init_msg_list => FND_API.G_TRUE,
4518: p_commit => FND_API.G_FALSE,
4519: p_task_id => l_task_id,
4520: p_task_name => task_rec.task_name,
4521: p_task_type_id => task_rec.task_type_id,
4522: p_description => task_rec.description,
4573: p_abort_workflow => null,
4574: p_task_split_flag => null);
4575:
4576:
4577: IF l_return_status = fnd_api.g_ret_sts_error
4578: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4579: FOR l_counter IN 1 .. x_msg_count
4580: LOOP
4581: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4574: p_task_split_flag => null);
4575:
4576:
4577: IF l_return_status = fnd_api.g_ret_sts_error
4578: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4579: FOR l_counter IN 1 .. x_msg_count
4580: LOOP
4581: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4582: l_stmt_num := 2;
4577: IF l_return_status = fnd_api.g_ret_sts_error
4578: OR l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4579: FOR l_counter IN 1 .. x_msg_count
4580: LOOP
4581: l_mesg_text := fnd_msg_pub.get (p_encoded => fnd_api.g_false);
4582: l_stmt_num := 2;
4583: p_errnum := 1;
4584: p_errmsg := substr(l_mesg_text||' , '|| TO_CHAR (l_stmt_num) ||
4585: ' , ' || '): ' || l_counter ||