1116: set request_id = l_conc_request_id
1117: where status_code = 'DELETED';
1118: end if;
1119: fnd_file.put_line(fnd_file.log,'Submitting sub requests');
1120: ad_conc_utils_pkg.submit_subrequests( x_errbuf => l_errbuf
1121: , x_retcode => l_retcode
1122: , x_workerconc_app_shortname => 'AMS'
1123: , x_workerconc_progname => 'AMSDEWKR'
1124: , x_batch_size => p_batch_size
1145: fnd_file.put_line(fnd_file.log,'children not done');
1146: end if;
1147:
1148:
1149: IF ((l_retcode <> ad_conc_utils_pkg.conc_fail) AND
1150: (l_children_done)) then
1151: fnd_file.put_line(fnd_file.log,'Entries deleted successfully. Need to delete from other tables.');
1152: OPEN c_get_list_headers(l_conc_request_id);
1153: LOOP
1172:
1173: END IF;
1174: commit;
1175: fnd_file.put_line(fnd_file.log,'Delete Entries concurrent program executed successfully.');
1176: x_retcode := ad_conc_utils_pkg.conc_success;
1177: EXCEPTION
1178: WHEN OTHERS THEN
1179: fnd_file.put_line(fnd_file.log,'Error while executing Delete Entries concurrent program '||sqlerrm);
1180: x_retcode := ad_conc_utils_pkg.conc_fail;
1176: x_retcode := ad_conc_utils_pkg.conc_success;
1177: EXCEPTION
1178: WHEN OTHERS THEN
1179: fnd_file.put_line(fnd_file.log,'Error while executing Delete Entries concurrent program '||sqlerrm);
1180: x_retcode := ad_conc_utils_pkg.conc_fail;
1181: x_errbuf := SQLERRM;
1182: RAISE;
1183: END delete_list_manager;
1184:
1264: , x_batch_size
1265: , FALSE
1266: );
1267: END LOOP;
1268: x_retcode := ad_conc_utils_pkg.conc_success;
1269: EXCEPTION
1270: WHEN OTHERS THEN
1271: x_retcode := ad_conc_utils_pkg.conc_fail;
1272: x_errbuf := SQLERRM;
1267: END LOOP;
1268: x_retcode := ad_conc_utils_pkg.conc_success;
1269: EXCEPTION
1270: WHEN OTHERS THEN
1271: x_retcode := ad_conc_utils_pkg.conc_fail;
1272: x_errbuf := SQLERRM;
1273: RAISE;
1274: END;
1275: EXCEPTION
1273: RAISE;
1274: END;
1275: EXCEPTION
1276: WHEN OTHERS THEN
1277: x_retcode := ad_conc_utils_pkg.conc_fail;
1278: x_errbuf := SQLERRM;
1279: RAISE;
1280: END delete_list_worker;
1281:
1431: -- AND nvl(remote_gen_flag,'N') = 'N';
1432: end if;
1433:
1434: fnd_file.put_line(fnd_file.log,'Submitting sub requests');
1435: ad_conc_utils_pkg.submit_subrequests( x_errbuf => l_errbuf
1436: , x_retcode => l_retcode
1437: , x_workerconc_app_shortname => 'AMS'
1438: , x_workerconc_progname => 'AMSPEWKR'
1439: , x_batch_size => p_batch_size
1462: fnd_file.put_line(fnd_file.log,'children not done');
1463: end if;
1464:
1465:
1466: IF ((l_retcode <> ad_conc_utils_pkg.conc_fail) AND
1467: (l_children_done)) then
1468:
1469: fnd_file.put_line(fnd_file.log,'Entries purged successfully. Need to purge from ams_act_logs.');
1470:
1515: commit;
1516:
1517: fnd_file.put_line(fnd_file.log,'Purge List and Target group entries concurrent program executed successfully.');
1518:
1519: x_retcode := ad_conc_utils_pkg.conc_success;
1520: EXCEPTION
1521: WHEN OTHERS THEN
1522: fnd_file.put_line(fnd_file.log,'Error while executing purge entries concurrent program '||sqlerrm);
1523: x_retcode := ad_conc_utils_pkg.conc_fail;
1519: x_retcode := ad_conc_utils_pkg.conc_success;
1520: EXCEPTION
1521: WHEN OTHERS THEN
1522: fnd_file.put_line(fnd_file.log,'Error while executing purge entries concurrent program '||sqlerrm);
1523: x_retcode := ad_conc_utils_pkg.conc_fail;
1524: x_errbuf := SQLERRM;
1525: RAISE;
1526: END purge_entries_manager;
1527:
1608: , x_batch_size
1609: , FALSE
1610: );
1611: END LOOP;
1612: x_retcode := ad_conc_utils_pkg.conc_success;
1613: EXCEPTION
1614: WHEN OTHERS THEN
1615: x_retcode := ad_conc_utils_pkg.conc_fail;
1616: x_errbuf := SQLERRM;
1611: END LOOP;
1612: x_retcode := ad_conc_utils_pkg.conc_success;
1613: EXCEPTION
1614: WHEN OTHERS THEN
1615: x_retcode := ad_conc_utils_pkg.conc_fail;
1616: x_errbuf := SQLERRM;
1617: RAISE;
1618: END;
1619: EXCEPTION
1617: RAISE;
1618: END;
1619: EXCEPTION
1620: WHEN OTHERS THEN
1621: x_retcode := ad_conc_utils_pkg.conc_fail;
1622: x_errbuf := SQLERRM;
1623: RAISE;
1624: END purge_entries_worker;
1625: