196:
197: SAVEPOINT seed_records_pvt;
198:
199: IF (FND_API.to_boolean(p_init_msg_list)) THEN
200: FND_MSG_PUB.initialize;
201: END IF;
202:
203: l_msg_idx := FND_MSG_PUB.count_msg + 1;
204:
199: IF (FND_API.to_boolean(p_init_msg_list)) THEN
200: FND_MSG_PUB.initialize;
201: END IF;
202:
203: l_msg_idx := FND_MSG_PUB.count_msg + 1;
204:
205: IF (NOT FND_API.Compatible_API_Call
206: ( p_current_version_number => l_api_version,
207: p_caller_version_number => p_api_version,
242: ELSE
243: -- wrong purge_category
244: l_progress := '040';
245:
246: FND_MSG_PUB.add_exc_msg
247: ( p_pkg_name => g_pkg_name,
248: p_procedure_name => l_api_name || '.' || l_progress,
249: p_error_text => l_progress || ': Param Mismatch' );
250:
279: EXCEPTION
280: WHEN OTHERS THEN
281: ROLLBACK TO seed_records_pvt;
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: FND_MSG_PUB.add_exc_msg
284: ( p_pkg_name => g_pkg_name,
285: p_procedure_name => l_api_name || '.' || l_progress
286:
287: );
284: ( p_pkg_name => g_pkg_name,
285: p_procedure_name => l_api_name || '.' || l_progress
286:
287: );
288: x_msg_data := FND_MSG_PUB.get(p_msg_index => l_msg_idx,
289: p_encoded => 'F');
290: dump_msg_to_log( p_module => l_module || l_progress );
291: END seed_records;
292:
381:
382: SAVEPOINT filter_records_pvt;
383:
384: IF (FND_API.to_boolean(p_init_msg_list)) THEN
385: FND_MSG_PUB.initialize;
386: END IF;
387:
388: l_msg_idx := FND_MSG_PUB.count_msg + 1;
389:
384: IF (FND_API.to_boolean(p_init_msg_list)) THEN
385: FND_MSG_PUB.initialize;
386: END IF;
387:
388: l_msg_idx := FND_MSG_PUB.count_msg + 1;
389:
390: IF (NOT FND_API.Compatible_API_Call
391: ( p_current_version_number => l_api_version,
392: p_caller_version_number => p_api_version,
470: x_po_records_filtered => x_po_records_filtered );
471: ELSE
472: l_progress := '100';
473:
474: FND_MSG_PUB.add_exc_msg
475: ( p_pkg_name => g_pkg_name,
476: p_procedure_name => l_api_name || '.' || l_progress,
477: p_error_text => l_progress || ': Param Mismatch' );
478:
481:
482: ELSE
483: l_progress := '110';
484:
485: FND_MSG_PUB.add_exc_msg
486: ( p_pkg_name => g_pkg_name,
487: p_procedure_name => l_api_name || '.' || l_progress,
488: p_error_text => l_progress || ': Param Mismatch' );
489:
527: EXCEPTION
528: WHEN OTHERS THEN
529: ROLLBACK TO filter_records_pvt;
530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
531: FND_MSG_PUB.add_exc_msg
532: ( p_pkg_name => g_pkg_name,
533: p_procedure_name => l_api_name || '.' || l_progress
534:
535: );
532: ( p_pkg_name => g_pkg_name,
533: p_procedure_name => l_api_name || '.' || l_progress
534:
535: );
536: x_msg_data := FND_MSG_PUB.get(p_msg_index => l_msg_idx,
537: p_encoded => 'F');
538: dump_msg_to_log( p_module => l_module || l_progress );
539: END filter_records;
540:
612:
613: SAVEPOINT confirm_records_pvt;
614:
615: IF (FND_API.to_boolean(p_init_msg_list)) THEN
616: FND_MSG_PUB.initialize;
617: END IF;
618:
619: l_msg_idx := FND_MSG_PUB.count_msg + 1;
620:
615: IF (FND_API.to_boolean(p_init_msg_list)) THEN
616: FND_MSG_PUB.initialize;
617: END IF;
618:
619: l_msg_idx := FND_MSG_PUB.count_msg + 1;
620:
621: IF (NOT FND_API.Compatible_API_Call
622: ( p_current_version_number => l_api_version,
623: p_caller_version_number => p_api_version,
651: ELSE
652: -- wrong purge_category
653: l_progress := '040';
654:
655: FND_MSG_PUB.add_exc_msg
656: ( p_pkg_name => g_pkg_name,
657: p_procedure_name => l_api_name || '.' || l_progress,
658: p_error_text => l_progress || ': Param Mismatch' );
659:
681: EXCEPTION
682: WHEN OTHERS THEN
683: ROLLBACK TO confirm_records_pvt;
684: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
685: FND_MSG_PUB.add_exc_msg
686: ( p_pkg_name => g_pkg_name,
687: p_procedure_name => l_api_name || '.' || l_progress
688: );
689: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
685: FND_MSG_PUB.add_exc_msg
686: ( p_pkg_name => g_pkg_name,
687: p_procedure_name => l_api_name || '.' || l_progress
688: );
689: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
690: p_encoded => 'F');
691: dump_msg_to_log( p_module => l_module || l_progress );
692: END confirm_records;
693:
771: END IF;
772: END IF;
773:
774: IF (FND_API.to_boolean(p_init_msg_list)) THEN
775: FND_MSG_PUB.initialize;
776: END IF;
777:
778: l_msg_idx := FND_MSG_PUB.count_msg + 1;
779:
774: IF (FND_API.to_boolean(p_init_msg_list)) THEN
775: FND_MSG_PUB.initialize;
776: END IF;
777:
778: l_msg_idx := FND_MSG_PUB.count_msg + 1;
779:
780: IF (NOT FND_API.Compatible_API_Call
781: ( p_current_version_number => l_api_version,
782: p_caller_version_number => p_api_version,
796: -- parameter has to be FND_API.G_TRUE
797:
798: IF (p_commit <> FND_API.G_TRUE) THEN
799:
800: FND_MSG_PUB.add_exc_msg
801: ( p_pkg_name => g_pkg_name,
802: p_procedure_name => l_api_name || '.' || l_progress,
803: p_error_text => 'Internal Error. summarize_records must commit'
804: );
931: );
932: END IF;
933: END IF;
934:
935: FND_MSG_PUB.add_exc_msg
936: ( p_pkg_name => g_pkg_name,
937: p_procedure_name => l_api_name || '.' || l_progress
938: );
939: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
935: FND_MSG_PUB.add_exc_msg
936: ( p_pkg_name => g_pkg_name,
937: p_procedure_name => l_api_name || '.' || l_progress
938: );
939: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
940: p_encoded => 'F');
941: dump_msg_to_log( p_module => l_module || l_progress );
942: END summarize_records;
943:
1020: END IF;
1021: END IF;
1022:
1023: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1024: FND_MSG_PUB.initialize;
1025: END IF;
1026:
1027: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1028:
1023: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1024: FND_MSG_PUB.initialize;
1025: END IF;
1026:
1027: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1028:
1029: IF (NOT FND_API.Compatible_API_Call
1030: ( p_current_version_number => l_api_version,
1031: p_caller_version_number => p_api_version,
1044: -- This API will commit for each batch it processes. The p_commit
1045: -- parameter has to be FND_API.G_TRUE
1046: IF (p_commit <> FND_API.G_TRUE) THEN
1047:
1048: FND_MSG_PUB.add_exc_msg
1049: ( p_pkg_name => g_pkg_name,
1050: p_procedure_name => l_api_name || '.' || l_progress,
1051: p_error_text => 'Internal Error. delete_records must commit'
1052: );
1134:
1135: EXCEPTION
1136: WHEN OTHERS THEN
1137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1138: FND_MSG_PUB.add_exc_msg
1139: ( p_pkg_name => g_pkg_name,
1140: p_procedure_name => l_api_name || '.' || l_progress
1141: );
1142: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1138: FND_MSG_PUB.add_exc_msg
1139: ( p_pkg_name => g_pkg_name,
1140: p_procedure_name => l_api_name || '.' || l_progress
1141: );
1142: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1143: p_encoded => 'F');
1144: dump_msg_to_log( p_module => l_module || l_progress );
1145: END delete_records;
1146:
1212:
1213: SAVEPOINT delete_purge_lists_pvt;
1214:
1215: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1216: FND_MSG_PUB.initialize;
1217: END IF;
1218:
1219: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1220:
1215: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1216: FND_MSG_PUB.initialize;
1217: END IF;
1218:
1219: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1220:
1221: IF (NOT FND_API.Compatible_API_Call
1222: ( p_current_version_number => l_api_version,
1223: p_caller_version_number => p_api_version,
1258: EXCEPTION
1259: WHEN OTHERS THEN
1260: ROLLBACK TO delete_purge_lists_pvt;
1261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1262: FND_MSG_PUB.add_exc_msg
1263: ( p_pkg_name => g_pkg_name,
1264: p_procedure_name => l_api_name || '.' || l_progress
1265: );
1266: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1262: FND_MSG_PUB.add_exc_msg
1263: ( p_pkg_name => g_pkg_name,
1264: p_procedure_name => l_api_name || '.' || l_progress
1265: );
1266: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1267: p_encoded => 'F');
1268: dump_msg_to_log( p_module => l_module || l_progress );
1269: END delete_purge_lists;
1270:
1340:
1341: l_progress := '010';
1342:
1343: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1344: FND_MSG_PUB.initialize;
1345: END IF;
1346:
1347: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1348:
1343: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1344: FND_MSG_PUB.initialize;
1345: END IF;
1346:
1347: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1348:
1349: IF (NOT FND_API.Compatible_API_Call
1350: ( p_current_version_number => l_api_version,
1351: p_caller_version_number => p_api_version,
1394: EXCEPTION
1395: WHEN OTHERS THEN
1396: ROLLBACK TO delete_history_tables_pvt;
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1398: FND_MSG_PUB.add_exc_msg
1399: ( p_pkg_name => g_pkg_name,
1400: p_procedure_name => l_api_name || '.' || l_progress
1401: );
1402: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1398: FND_MSG_PUB.add_exc_msg
1399: ( p_pkg_name => g_pkg_name,
1400: p_procedure_name => l_api_name || '.' || l_progress
1401: );
1402: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1403: p_encoded => 'F');
1404: dump_msg_to_log( p_module => l_module || l_progress );
1405: END delete_history_tables;
1406:
1481: END IF;
1482: END IF;
1483:
1484: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1485: FND_MSG_PUB.initialize;
1486: END IF;
1487:
1488: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1489:
1484: IF (FND_API.to_boolean(p_init_msg_list)) THEN
1485: FND_MSG_PUB.initialize;
1486: END IF;
1487:
1488: l_msg_idx := FND_MSG_PUB.count_msg + 1;
1489:
1490: IF (NOT FND_API.Compatible_API_Call
1491: ( p_current_version_number => l_api_version,
1492: p_caller_version_number => p_api_version,
1552:
1553: EXCEPTION
1554: WHEN OTHERS THEN
1555: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1556: FND_MSG_PUB.add_exc_msg
1557: ( p_pkg_name => g_pkg_name,
1558: p_procedure_name => l_api_name || '.' || l_progress
1559: );
1560:
1557: ( p_pkg_name => g_pkg_name,
1558: p_procedure_name => l_api_name || '.' || l_progress
1559: );
1560:
1561: x_msg_data := FND_MSG_PUB.get (p_msg_index => l_msg_idx,
1562: p_encoded => 'F');
1563: dump_msg_to_log( p_module => l_module || l_progress );
1564: END count_po_rows;
1565:
1693:
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1697: FND_MSG_PUB.add_exc_msg
1698: ( p_pkg_name => g_pkg_name,
1699: p_procedure_name => l_api_name || '.' || l_progress
1700: );
1701:
2014:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2018: FND_MSG_PUB.add_exc_msg
2019: ( p_pkg_name => g_pkg_name,
2020: p_procedure_name => l_api_name || '.' || l_progress
2021: );
2022: END seed_po;
2173:
2174: EXCEPTION
2175: WHEN OTHERS THEN
2176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2177: FND_MSG_PUB.add_exc_msg
2178: ( p_pkg_name => g_pkg_name,
2179: p_procedure_name => l_api_name || '.' || l_progress
2180: );
2181:
2272:
2273: EXCEPTION
2274: WHEN OTHERS THEN
2275: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2276: FND_MSG_PUB.add_exc_msg
2277: ( p_pkg_name => g_pkg_name,
2278: p_procedure_name => l_api_name || '.' || l_progress
2279: );
2280:
2456:
2457: EXCEPTION
2458: WHEN OTHERS THEN
2459: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2460: FND_MSG_PUB.add_exc_msg
2461: ( p_pkg_name => g_pkg_name,
2462: p_procedure_name => l_api_name || '.' || l_progress
2463: );
2464:
2714:
2715: EXCEPTION
2716: WHEN OTHERS THEN
2717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2718: FND_MSG_PUB.add_exc_msg
2719: ( p_pkg_name => g_pkg_name,
2720: p_procedure_name => l_api_name || '.' || l_progress
2721: );
2722:
2932:
2933: EXCEPTION
2934: WHEN OTHERS THEN
2935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2936: FND_MSG_PUB.add_exc_msg
2937: ( p_pkg_name => g_pkg_name,
2938: p_procedure_name => l_api_name || '.' || l_progress
2939: );
2940:
3045:
3046: EXCEPTION
3047: WHEN OTHERS THEN
3048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3049: FND_MSG_PUB.add_exc_msg
3050: ( p_pkg_name => g_pkg_name,
3051: p_procedure_name => l_api_name || '.' || l_progress
3052: );
3053:
3150:
3151: EXCEPTION
3152: WHEN OTHERS THEN
3153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3154: FND_MSG_PUB.add_exc_msg
3155: ( p_pkg_name => g_pkg_name,
3156: p_procedure_name => l_api_name || '.' || l_progress
3157: );
3158:
3286:
3287: EXCEPTION
3288: WHEN OTHERS THEN
3289: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3290: FND_MSG_PUB.add_exc_msg
3291: ( p_pkg_name => g_pkg_name,
3292: p_procedure_name => l_api_name || '.' || l_progress
3293: );
3294:
3576:
3577: EXCEPTION
3578: WHEN OTHERS THEN
3579: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3580: FND_MSG_PUB.add_exc_msg
3581: ( p_pkg_name => g_pkg_name,
3582: p_procedure_name => l_api_name || '.' || l_progress
3583: );
3584:
3693:
3694: EXCEPTION
3695: WHEN OTHERS THEN
3696: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3697: FND_MSG_PUB.add_exc_msg
3698: ( p_pkg_name => g_pkg_name,
3699: p_procedure_name => l_api_name || '.' || l_progress
3700: );
3701:
3896:
3897: EXCEPTION
3898: WHEN OTHERS THEN
3899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3900: FND_MSG_PUB.add_exc_msg
3901: ( p_pkg_name => g_pkg_name,
3902: p_procedure_name => l_api_name || '.' || l_progress
3903: );
3904:
4356:
4357: EXCEPTION
4358: WHEN OTHERS THEN
4359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4360: FND_MSG_PUB.add_exc_msg
4361: ( p_pkg_name => g_pkg_name,
4362: p_procedure_name => l_api_name || '.' || l_progress
4363: );
4364:
4606:
4607: EXCEPTION
4608: WHEN OTHERS THEN
4609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4610: FND_MSG_PUB.add_exc_msg
4611: ( p_pkg_name => g_pkg_name,
4612: p_procedure_name => l_api_name || '.' || l_progress
4613: );
4614:
5329:
5330: EXCEPTION
5331: WHEN OTHERS THEN
5332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5333: FND_MSG_PUB.add_exc_msg
5334: ( p_pkg_name => g_pkg_name,
5335: p_procedure_name => l_api_name || '.' || l_progress
5336: );
5337:
5366: ) IS
5367: BEGIN
5368:
5369: IF (g_fnd_debug = 'Y') THEN
5370: FND_MSG_PUB.reset;
5371:
5372: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
5373: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5374: FND_LOG.string
5368:
5369: IF (g_fnd_debug = 'Y') THEN
5370: FND_MSG_PUB.reset;
5371:
5372: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
5373: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
5374: FND_LOG.string
5375: ( log_level => FND_LOG.LEVEL_STATEMENT,
5376: module => p_module,
5374: FND_LOG.string
5375: ( log_level => FND_LOG.LEVEL_STATEMENT,
5376: module => p_module,
5377: message => 'DUMPMSG: ' ||
5378: FND_MSG_PUB.get
5379: ( p_msg_index => i,
5380: p_encoded => 'F')
5381: );
5382: END IF;