193:
194: IF(p_org_id is null) THEN
195: l_error_msg := 'p_org_id' || g_error_msg;
196: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
197: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
198: fnd_message.set_token('FIELD','p_org_id');
199: fnd_msg_pub.add;
200: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
201: END IF;
194: IF(p_org_id is null) THEN
195: l_error_msg := 'p_org_id' || g_error_msg;
196: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
197: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
198: fnd_message.set_token('FIELD','p_org_id');
199: fnd_msg_pub.add;
200: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
201: END IF;
202:
204:
205: IF(p_start_period_name is null) THEN
206: l_error_msg := 'p_start_period_name' || g_error_msg;
207: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
208: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
209: fnd_message.set_token('FIELD','p_start_period_name');
210: fnd_msg_pub.add;
211: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
212: END IF;
205: IF(p_start_period_name is null) THEN
206: l_error_msg := 'p_start_period_name' || g_error_msg;
207: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
208: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
209: fnd_message.set_token('FIELD','p_start_period_name');
210: fnd_msg_pub.add;
211: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
212: END IF;
213:
213:
214: IF(p_end_period_name is null) THEN
215: l_error_msg := 'p_end_period_name' || g_error_msg;
216: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
217: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
218: fnd_message.set_token('FIELD','p_end_period_name');
219: fnd_msg_pub.add;
220: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
221: END IF;
214: IF(p_end_period_name is null) THEN
215: l_error_msg := 'p_end_period_name' || g_error_msg;
216: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
217: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
218: fnd_message.set_token('FIELD','p_end_period_name');
219: fnd_msg_pub.add;
220: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
221: END IF;
222:
234: --Mandatory fields validation starts here
235: IF(l_start_period_id = -1) THEN
236: l_error_msg := 'Start Period Id calculation error: Please enter proper values for p_start_period_name and p_org_d';
237: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
238: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
239: fnd_message.set_token('FIELD','p_start_period_name');
240: fnd_msg_pub.add;
241: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
242: END IF;
235: IF(l_start_period_id = -1) THEN
236: l_error_msg := 'Start Period Id calculation error: Please enter proper values for p_start_period_name and p_org_d';
237: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
238: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
239: fnd_message.set_token('FIELD','p_start_period_name');
240: fnd_msg_pub.add;
241: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
242: END IF;
243:
243:
244: IF(l_end_period_id = -1) THEN
245: l_error_msg := 'End Period Id calculation error: Please enter proper values for p_end_period_name and p_org_d';
246: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
247: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
248: fnd_message.set_token('FIELD','p_end_period_name');
249: fnd_msg_pub.add;
250: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
251: END IF;
244: IF(l_end_period_id = -1) THEN
245: l_error_msg := 'End Period Id calculation error: Please enter proper values for p_end_period_name and p_org_d';
246: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
247: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
248: fnd_message.set_token('FIELD','p_end_period_name');
249: fnd_msg_pub.add;
250: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
251: END IF;
252:
252:
253: IF(p_run_mode <> 'A' and p_run_mode <> 'P') THEN
254: l_error_msg := 'p_run_mode' || g_error_msg;
255: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
256: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
257: fnd_message.set_token('FIELD','p_run_mode');
258: fnd_msg_pub.add;
259: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
260: END IF;
253: IF(p_run_mode <> 'A' and p_run_mode <> 'P') THEN
254: l_error_msg := 'p_run_mode' || g_error_msg;
255: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
256: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
257: fnd_message.set_token('FIELD','p_run_mode');
258: fnd_msg_pub.add;
259: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
260: END IF;
261:
262: IF(p_run_mode = 'P') THEN
263: IF(p_no_of_workers is null or p_no_of_workers < 1) THEN
264: l_error_msg := 'p_no_of_workers' || g_error_msg;
265: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
266: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
267: fnd_message.set_token('FIELD','p_no_of_workers (Expected value between 1 and 10)');
268: fnd_msg_pub.add;
269: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
270: END IF;
263: IF(p_no_of_workers is null or p_no_of_workers < 1) THEN
264: l_error_msg := 'p_no_of_workers' || g_error_msg;
265: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
266: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
267: fnd_message.set_token('FIELD','p_no_of_workers (Expected value between 1 and 10)');
268: fnd_msg_pub.add;
269: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
270: END IF;
271:
271:
272: IF(p_worker_id is null or p_worker_id <= 0) THEN
273: l_error_msg := 'p_worker_id' || g_error_msg;
274: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
275: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
276: fnd_message.set_token('FIELD','p_worker_id (Expected value > 0)');
277: fnd_msg_pub.add;
278: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
279: END IF;
272: IF(p_worker_id is null or p_worker_id <= 0) THEN
273: l_error_msg := 'p_worker_id' || g_error_msg;
274: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
275: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
276: fnd_message.set_token('FIELD','p_worker_id (Expected value > 0)');
277: fnd_msg_pub.add;
278: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
279: END IF;
280:
280:
281: IF(p_batch_size is null or p_batch_size <= 0) THEN
282: l_error_msg := 'p_batch_size' || g_error_msg;
283: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
284: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
285: fnd_message.set_token('FIELD','p_batch_size (Expected value > 0)');
286: fnd_msg_pub.add;
287: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
288: END IF;
281: IF(p_batch_size is null or p_batch_size <= 0) THEN
282: l_error_msg := 'p_batch_size' || g_error_msg;
283: debugmsg('CN_PURGE_TABLES_PUB.archive_purge_cn_tables: l_error_msg: ' || l_error_msg);
284: fnd_message.set_name('CN', 'CN_AP_REQ_FIELD_NOT_SET_ERROR');
285: fnd_message.set_token('FIELD','p_batch_size (Expected value > 0)');
286: fnd_msg_pub.add;
287: RAISE CN_PURGE_REQ_FIELD_NOT_SET_ER;
288: END IF;
289: END IF;
332:
333:
334: IF l_req_id = 0 THEN
335: retcode := 2;
336: errbuf := fnd_message.get;
337: raise child_proc_fail_exception;
338: ELSE
339: -- storing the request ids in an array
340: l_child_program_id_tbl.EXTEND;