DBA Data[Home] [Help]

APPS.GHR_EXEMP_PURGE dependencies on HR_UTILITY

Line 51: hr_utility.set_location('Entering:'|| g_proc, 10);

47:
48: BEGIN
49:
50: g_proc := g_package||'Main';
51: hr_utility.set_location('Entering:'|| g_proc, 10);
52:
53: ghr_mto_int.set_log_program_name('GHR_EXEMP_PURGE');
54: IF NVL(fnd_profile.value('GHR_ALLOW_EXEMP_PURGE'),'N') = 'N' THEN
55: l_log_proc := 'User Restriction';

Line 68: hr_utility.set_location('Loop'||l_ex_emps.national_identifier,1000);

64: l_count := 1;
65: FOR l_ex_emps IN fetch_ex_emps
66: LOOP
67: l_error_msg := NULL;
68: hr_utility.set_location('Loop'||l_ex_emps.national_identifier,1000);
69:
70: BEGIN
71: -- Commented as validation of pa request is not required, will delete
72: -- full name will be updated to pa_requests table

Line 120: hr_utility.set_location(g_proc|| l_audit_log_dir, 10);

116: FOR rec IN c_get_dir
117: LOOP
118: l_audit_log_dir := rec.value;
119: END LOOP;
120: hr_utility.set_location(g_proc|| l_audit_log_dir, 10);
121: -- Check whether more than one util file directory is found
122: IF INSTR(l_audit_log_dir,',') > 0 THEN
123: l_audit_log_dir := substr(l_audit_log_dir,1,instr(l_audit_log_dir,',')-1);
124: END IF;

Line 181: hr_utility.set_message(8301, 'Create Error Log failed');

177: p_procedure => l_log_proc,
178: p_message => l_log_text);
179: EXCEPTION
180: WHEN others THEN
181: hr_utility.set_message(8301, 'Create Error Log failed');
182: hr_utility.raise_error;
183: END;
184: WHEN rep_purge_loop_err THEN
185: hr_utility.set_location('in rep'||substr(sqlerrm,1,1000),1000);

Line 182: hr_utility.raise_error;

178: p_message => l_log_text);
179: EXCEPTION
180: WHEN others THEN
181: hr_utility.set_message(8301, 'Create Error Log failed');
182: hr_utility.raise_error;
183: END;
184: WHEN rep_purge_loop_err THEN
185: hr_utility.set_location('in rep'||substr(sqlerrm,1,1000),1000);
186: l_log_proc := 'Records Failed in Reporting';

Line 185: hr_utility.set_location('in rep'||substr(sqlerrm,1,1000),1000);

181: hr_utility.set_message(8301, 'Create Error Log failed');
182: hr_utility.raise_error;
183: END;
184: WHEN rep_purge_loop_err THEN
185: hr_utility.set_location('in rep'||substr(sqlerrm,1,1000),1000);
186: l_log_proc := 'Records Failed in Reporting';
187: l_log_text := SUBSTR('Error Reporting in the procedure'||g_proc||
188: 'Name : '||l_ex_emps.full_name ||
189: 'SSN : '||l_ex_emps.national_identifier||

Line 199: hr_utility.set_message(8301, 'Create Error Log failed');

195: p_procedure => l_log_proc,
196: p_message => l_log_text);
197: EXCEPTION
198: WHEN others THEN
199: hr_utility.set_message(8301, 'Create Error Log failed');
200: hr_utility.raise_error;
201: END;
202: WHEN rep_purge_del_err THEN
203: ROLLBACK TO exemp_purge_sp;

Line 200: hr_utility.raise_error;

196: p_message => l_log_text);
197: EXCEPTION
198: WHEN others THEN
199: hr_utility.set_message(8301, 'Create Error Log failed');
200: hr_utility.raise_error;
201: END;
202: WHEN rep_purge_del_err THEN
203: ROLLBACK TO exemp_purge_sp;
204: l_log_proc := 'Records Failed in deletion';

Line 217: hr_utility.set_message(8301, 'Create Error Log failed');

213: p_procedure => l_log_proc,
214: p_message => l_log_text);
215: EXCEPTION
216: WHEN others THEN
217: hr_utility.set_message(8301, 'Create Error Log failed');
218: hr_utility.raise_error;
219: END;
220: END;
221: END LOOP;

Line 218: hr_utility.raise_error;

214: p_message => l_log_text);
215: EXCEPTION
216: WHEN others THEN
217: hr_utility.set_message(8301, 'Create Error Log failed');
218: hr_utility.raise_error;
219: END;
220: END;
221: END LOOP;
222:

Line 232: hr_utility.set_location('Leaving:'|| g_proc, 60);

228: fnd_file.put_line(fnd_file.log,'Text file : ' || l_output_ascii_fname);
229: fnd_file.put_line(fnd_file.log,'-------------------------------------------');
230: COMMIT;
231:
232: hr_utility.set_location('Leaving:'|| g_proc, 60);
233:
234: EXCEPTION
235: WHEN rep_purge_error THEN
236: BEGIN

Line 243: hr_utility.set_message(8301, 'Create Error Log failed');

239: p_message => l_log_text);
240: COMMIT;
241: EXCEPTION
242: WHEN others THEN
243: hr_utility.set_message(8301, 'Create Error Log failed');
244: hr_utility.raise_error;
245: END;
246:
247: WHEN OTHERS THEN

Line 244: hr_utility.raise_error;

240: COMMIT;
241: EXCEPTION
242: WHEN others THEN
243: hr_utility.set_message(8301, 'Create Error Log failed');
244: hr_utility.raise_error;
245: END;
246:
247: WHEN OTHERS THEN
248: BEGIN

Line 258: hr_utility.set_message(8301, 'Create Error Log failed');

254: p_message => l_log_text);
255: COMMIT;
256: EXCEPTION
257: WHEN others THEN
258: hr_utility.set_message(8301, 'Create Error Log failed');
259: hr_utility.raise_error;
260: END;
261:
262: hr_utility.trace_off;

Line 259: hr_utility.raise_error;

255: COMMIT;
256: EXCEPTION
257: WHEN others THEN
258: hr_utility.set_message(8301, 'Create Error Log failed');
259: hr_utility.raise_error;
260: END;
261:
262: hr_utility.trace_off;
263: END Main;

Line 262: hr_utility.trace_off;

258: hr_utility.set_message(8301, 'Create Error Log failed');
259: hr_utility.raise_error;
260: END;
261:
262: hr_utility.trace_off;
263: END Main;
264:
265: PROCEDURE DetachAppUser(p_person_id in NUMBER) IS
266:

Line 277: hr_utility.set_location('Entering:'|| g_proc, 10);

273: BEGIN
274:
275: g_proc := g_package||'DetachAppUser';
276:
277: hr_utility.set_location('Entering:'|| g_proc, 10);
278:
279: FOR rec_appl_user in chk_appl_user
280: LOOP
281: BEGIN

Line 291: hr_utility.set_location('Leaving:'|| g_proc, 60);

287: raise;
288: END;
289: END LOOP;
290:
291: hr_utility.set_location('Leaving:'|| g_proc, 60);
292: END DetachAppUser;
293:
294:
295: PROCEDURE ChkValPAReq(p_person_id in NUMBER,

Line 316: hr_utility.set_location('Entering:'|| g_proc, 10);

312: BEGIN
313:
314: g_proc := g_package||'ChkValPAReq';
315:
316: hr_utility.set_location('Entering:'|| g_proc, 10);
317:
318: OPEN val_pareq_app;
319: FETCH val_pareq_app INTO l_raise_err;
320: CLOSE val_pareq_app;

Line 326: hr_utility.set_location('Leaving:'|| g_proc, 60);

322: IF l_raise_err = '1' THEN
323: raise pareq_appr_exist;
324: END IF;
325:
326: hr_utility.set_location('Leaving:'|| g_proc, 60);
327:
328: END ChkValPAReq;
329:
330: PROCEDURE ValCoreTables(p_person_id IN number

Line 339: hr_utility.set_location('Entering:'|| g_proc, 10);

335: BEGIN
336:
337: g_proc := g_package||'strong_predel_validation';
338:
339: hr_utility.set_location('Entering:'|| g_proc, 10);
340:
341: HR_PERSON_INTERNAL.weak_predel_validation
342: (p_person_id => p_person_id
343: ,p_effective_date => p_effective_date);

Line 344: hr_utility.set_location(g_proc, 20);

340:
341: HR_PERSON_INTERNAL.weak_predel_validation
342: (p_person_id => p_person_id
343: ,p_effective_date => p_effective_date);
344: hr_utility.set_location(g_proc, 20);
345: -- check if person type changes exist.
346: SELECT count(*)
347: INTO l_person_types
348: FROM PER_PERSON_TYPE_USAGES_F ptu

Line 353: hr_utility.set_message (801,'HR_6324_ALL_PER_ADD_NO_DEL');

349: WHERE ptu.person_id = p_person_id
350: AND ptu.effective_start_date >= p_effective_date;
351:
352: IF l_person_types > 0 then
353: hr_utility.set_message (801,'HR_6324_ALL_PER_ADD_NO_DEL');
354: hr_utility.raise_error;
355: END IF;
356:
357: hr_utility.set_location(g_proc, 30);

Line 354: hr_utility.raise_error;

350: AND ptu.effective_start_date >= p_effective_date;
351:
352: IF l_person_types > 0 then
353: hr_utility.set_message (801,'HR_6324_ALL_PER_ADD_NO_DEL');
354: hr_utility.raise_error;
355: END IF;
356:
357: hr_utility.set_location(g_proc, 30);
358:

Line 357: hr_utility.set_location(g_proc, 30);

353: hr_utility.set_message (801,'HR_6324_ALL_PER_ADD_NO_DEL');
354: hr_utility.raise_error;
355: END IF;
356:
357: hr_utility.set_location(g_proc, 30);
358:
359: BEGIN
360:
361: SELECT 'Y'

Line 371: hr_utility.set_message (801,'HR_6326_ALL_PER_CR_NO_DEL');

367: WHERE r.person_id = p_person_id
368: OR r.contact_person_id = p_person_id);
369: EXCEPTION
370: when NO_DATA_FOUND then
371: hr_utility.set_message (801,'HR_6326_ALL_PER_CR_NO_DEL');
372: hr_utility.raise_error;
373: END;
374:
375: hr_utility.set_location(g_proc, 40);

Line 372: hr_utility.raise_error;

368: OR r.contact_person_id = p_person_id);
369: EXCEPTION
370: when NO_DATA_FOUND then
371: hr_utility.set_message (801,'HR_6326_ALL_PER_CR_NO_DEL');
372: hr_utility.raise_error;
373: END;
374:
375: hr_utility.set_location(g_proc, 40);
376:

Line 375: hr_utility.set_location(g_proc, 40);

371: hr_utility.set_message (801,'HR_6326_ALL_PER_CR_NO_DEL');
372: hr_utility.raise_error;
373: END;
374:
375: hr_utility.set_location(g_proc, 40);
376:
377: BEGIN
378:
379: SELECT 'Y'

Line 390: hr_utility.set_message (801,'HR_6330_ALL_PER_ASSGT_NO_DEL');

386: AND a.effective_start_date >= p_effective_date);
387:
388: EXCEPTION
389: when NO_DATA_FOUND then
390: hr_utility.set_message (801,'HR_6330_ALL_PER_ASSGT_NO_DEL');
391: hr_utility.raise_error;
392: END;
393:
394: hr_utility.set_location(g_proc, 50);

Line 391: hr_utility.raise_error;

387:
388: EXCEPTION
389: when NO_DATA_FOUND then
390: hr_utility.set_message (801,'HR_6330_ALL_PER_ASSGT_NO_DEL');
391: hr_utility.raise_error;
392: END;
393:
394: hr_utility.set_location(g_proc, 50);
395:

Line 394: hr_utility.set_location(g_proc, 50);

390: hr_utility.set_message (801,'HR_6330_ALL_PER_ASSGT_NO_DEL');
391: hr_utility.raise_error;
392: END;
393:
394: hr_utility.set_location(g_proc, 50);
395:
396: BEGIN
397:
398: SELECT 'Y'

Line 409: hr_utility.set_message (801,'HR_6331_ALL_PER_RT_SUP_NO_DEL');

405: OR a.supervisor_id = p_person_id);
406:
407: EXCEPTION
408: when NO_DATA_FOUND then
409: hr_utility.set_message (801,'HR_6331_ALL_PER_RT_SUP_NO_DEL');
410: hr_utility.raise_error;
411: END;
412:
413: hr_utility.set_location(g_proc, 60);

Line 410: hr_utility.raise_error;

406:
407: EXCEPTION
408: when NO_DATA_FOUND then
409: hr_utility.set_message (801,'HR_6331_ALL_PER_RT_SUP_NO_DEL');
410: hr_utility.raise_error;
411: END;
412:
413: hr_utility.set_location(g_proc, 60);
414:

Line 413: hr_utility.set_location(g_proc, 60);

409: hr_utility.set_message (801,'HR_6331_ALL_PER_RT_SUP_NO_DEL');
410: hr_utility.raise_error;
411: END;
412:
413: hr_utility.set_location(g_proc, 60);
414:
415: begin
416: --
417: select 'Y'

Line 431: hr_utility.set_message (801,'HR_6340_ALL_PER_DISC_NO_DEL');

427: and a.assignment_id = s.assignment_id));
428: --
429: exception
430: when NO_DATA_FOUND then
431: hr_utility.set_message (801,'HR_6340_ALL_PER_DISC_NO_DEL');
432: hr_utility.raise_error;
433: end;
434:
435: hr_utility.set_location('Leaving:'|| g_proc, 70);

Line 432: hr_utility.raise_error;

428: --
429: exception
430: when NO_DATA_FOUND then
431: hr_utility.set_message (801,'HR_6340_ALL_PER_DISC_NO_DEL');
432: hr_utility.raise_error;
433: end;
434:
435: hr_utility.set_location('Leaving:'|| g_proc, 70);
436:

Line 435: hr_utility.set_location('Leaving:'|| g_proc, 70);

431: hr_utility.set_message (801,'HR_6340_ALL_PER_DISC_NO_DEL');
432: hr_utility.raise_error;
433: end;
434:
435: hr_utility.set_location('Leaving:'|| g_proc, 70);
436:
437: END ValCoreTables;
438:
439:

Line 447: hr_utility.set_location('Entering:'|| g_proc, 10);

443: BEGIN
444:
445: g_proc := g_package||'DelCoreTables';
446:
447: hr_utility.set_location('Entering:'|| g_proc, 10);
448:
449: HR_PERSON_API.DELETE_PERSON
450: (
451: p_validate => FALSE

Line 457: hr_utility.set_location('Leaving:'|| g_proc, 10);

453: ,p_person_id => p_person_id
454: ,p_perform_predel_validation => FALSE
455: ,p_person_org_manager_warning => l_org_mgr);
456:
457: hr_utility.set_location('Leaving:'|| g_proc, 10);
458: END ;
459:
460:
461: PROCEDURE DelBenTables(p_person_id in NUMBER) IS

Line 467: hr_utility.set_location('Entering:'|| g_proc, 10);

463: BEGIN
464:
465: g_proc := g_package||'DelBenTables';
466:
467: hr_utility.set_location('Entering:'|| g_proc, 10);
468:
469: DELETE FROM PAY_ELEMENT_ENTRIES_F
470: WHERE ELEMENT_ENTRY_ID IN
471: (SELECT ELEMENT_ENTRY_ID FROM PAY_ELEMENT_ENTRY_VALUES_F WHERE

Line 484: hr_utility.set_location('Leaving:'|| g_proc, 60);

480: P_PERSON_ID));
481:
482: BEN_PERSON_DELETE.DELETE_BEN_ROWS (p_person_id => p_person_id);
483:
484: hr_utility.set_location('Leaving:'|| g_proc, 60);
485:
486:
487: END;
488:

Line 508: hr_utility.set_location('Entering:'|| g_proc, 10);

504: BEGIN
505:
506: g_proc := g_package||'delGhrTables';
507:
508: hr_utility.set_location('Entering:'|| g_proc, 10);
509:
510: FOR rpa_action in FETCH_RPA_ACTIONS
511: LOOP
512:

Line 559: hr_utility.set_location('Leaving:'|| g_proc, 60);

555: WHERE PERSON_ID = p_person_id;
556:
557:
558:
559: hr_utility.set_location('Leaving:'|| g_proc, 60);
560:
561: END;
562:
563: PROCEDURE UpdGhrTables(p_person_id in NUMBER, p_full_name in VARCHAR2) IS

Line 585: hr_utility.set_location('Entering:'|| g_proc, 10);

581: p_ascii_fp UTL_FILE.FILE_TYPE;
582: v_tags t_tags;
583: BEGIN
584: g_proc := g_package||'ReportExemp';
585: hr_utility.set_location('Entering:'|| g_proc, 10);
586: p_ascii_fp := utl_file.fopen(p_dir,p_fname,'w',32767);
587: WriteTagValues(p_exemp_rec,v_tags);
588: IF p_count = 1 THEN
589: WriteHeaderRow(p_ascii_fp,v_tags);

Line 592: hr_utility.set_location('Leaving:'|| g_proc, 60);

588: IF p_count = 1 THEN
589: WriteHeaderRow(p_ascii_fp,v_tags);
590: END IF;
591: WriteAsciivalues(p_ascii_fp,v_tags);
592: hr_utility.set_location('Leaving:'|| g_proc, 60);
593: END;
594:
595:
596: PROCEDURE WriteTagValues(p_exemp_rec EXEMP_PER_DET,

Line 603: hr_utility.set_location('Entering:'|| g_proc, 10);

599: t_count NUMBER;
600: BEGIN
601: g_proc := g_package||'WriteTagValues';
602:
603: hr_utility.set_location('Entering:'|| g_proc, 10);
604: t_count := 1;
605: -- Writing to Tags
606: p_tags(t_count).tagname := 'SLNO';
607: p_tags(t_count).tagvalue := p_exemp_rec.slno;

Line 631: hr_utility.set_location('Leaving:'|| g_proc, 60);

627: p_tags(t_count).tagname := 'RETENTION_PERIOD';
628: p_tags(t_count).tagvalue := p_exemp_rec.ret_period;
629: t_count := t_count+1;
630:
631: hr_utility.set_location('Leaving:'|| g_proc, 60);
632:
633: END WriteTagValues;
634:
635:

Line 643: hr_utility.set_location('Entering:'|| g_proc, 10);

639: l_temp VARCHAR2(4000);
640: l_tot NUMBER;
641: BEGIN
642: g_proc := g_package||'WriteAsciivalues';
643: hr_utility.set_location('Entering:'|| g_proc, 10);
644: l_tot := p_tags.COUNT;
645: IF l_tot > 0 THEN
646: FOR l_tags IN p_tags.FIRST .. p_tags.LAST LOOP
647: IF l_tags = l_tot THEN

Line 659: hr_utility.set_location('Leaving:'|| g_proc, 60);

655: END IF;
656: END LOOP;
657: END IF;
658:
659: hr_utility.set_location('Leaving:'|| g_proc, 60);
660:
661: END WriteAsciivalues;
662:
663: ----------------------------------------------------------------------------

Line 675: hr_utility.set_location('Entering:'|| g_proc, 10);

671: BEGIN
672:
673: g_proc := g_package||'WriteHeaderRow';
674:
675: hr_utility.set_location('Entering:'|| g_proc, 10);
676:
677: l_tot := p_tags.COUNT;
678: FOR l_tags IN p_tags.FIRST .. p_tags.LAST
679: LOOP

Line 690: hr_utility.set_location('Leaving:'|| g_proc, 60);

686: END LOOP;
687: utl_file.new_line(p_l_fp);
688: fnd_file.new_line(fnd_file.output);
689:
690: hr_utility.set_location('Leaving:'|| g_proc, 60);
691:
692: END WriteHeaderRow;
693:
694: END GHR_EXEMP_PURGE;