DBA Data[Home] [Help]

APPS.PAY_ZA_IRP5_ARCHIVE_PKG dependencies on HR_UTILITY

Line 182: -- hr_utility.trace_on(null, 'TYE2005');

178: l_ppa_payroll_id pay_payroll_actions.payroll_id%TYPE;
179:
180: BEGIN
181:
182: -- hr_utility.trace_on(null, 'TYE2005');
183:
184: -- Get the legislative parameters from the archiver payroll action
185: select legislative_parameters,payroll_id
186: into leg_param,l_ppa_payroll_id

Line 217: hr_utility.set_location('ASS: ' || to_char(asgrec.assignment_id), 5);

213: end;
214: end if;
215: for asgrec in get_asg(l_payroll_id) loop
216:
217: hr_utility.set_location('ASS: ' || to_char(asgrec.assignment_id), 5);
218: asg_include := TRUE;
219:
220: -- Remove duplicate assignments
221: if prev_asg_id <> asgrec.assignment_id then

Line 262: hr_utility.set_location('LUMP SUM:' || to_char(asgrec.assignment_id),10);

258: -- Process Lump Sums
259: if asg_include = TRUE then
260: for lumprec in lumpsum(pactid, asgrec.assignment_id) loop
261:
262: hr_utility.set_location('LUMP SUM:' || to_char(asgrec.assignment_id),10);
263:
264: select pay_assignment_actions_s.nextval
265: into lockingactid
266: from dual;

Line 267: hr_utility.set_location('lockingactidM:' || lockingactid,10);

263:
264: select pay_assignment_actions_s.nextval
265: into lockingactid
266: from dual;
267: hr_utility.set_location('lockingactidM:' || lockingactid,10);
268: -- Insert Lump Sums into pay_assignment_actions
269: hr_nonrun_asact.insact
270: (
271: lockingactid => lockingactid,

Line 301: -- hr_utility.trace_off;

297:
298: end if;
299:
300: end loop;
301: -- hr_utility.trace_off;
302:
303: end action_creation;
304:
305: /*--------------------------------------------------------------------------

Line 399: --hr_utility.trace_on(null,'TYE2005');

395: where ppa_arch.payroll_action_id = p_pact_id);
396:
397: begin
398: l_main_crt_flag :=0;
399: --hr_utility.trace_on(null,'TYE2005');
400: hr_utility.set_location('archive_data ',1);
401: hr_utility.set_location('p_assactid ' ||p_assactid,1);
402: hr_utility.set_location('p_effective_date ' ||to_char(p_effective_date,'DD-MON-YYYY'),1);
403: -- Get some contexts

Line 400: hr_utility.set_location('archive_data ',1);

396:
397: begin
398: l_main_crt_flag :=0;
399: --hr_utility.trace_on(null,'TYE2005');
400: hr_utility.set_location('archive_data ',1);
401: hr_utility.set_location('p_assactid ' ||p_assactid,1);
402: hr_utility.set_location('p_effective_date ' ||to_char(p_effective_date,'DD-MON-YYYY'),1);
403: -- Get some contexts
404: -- Note: The last entry in this tax year is chosen. It might happen that a person

Line 401: hr_utility.set_location('p_assactid ' ||p_assactid,1);

397: begin
398: l_main_crt_flag :=0;
399: --hr_utility.trace_on(null,'TYE2005');
400: hr_utility.set_location('archive_data ',1);
401: hr_utility.set_location('p_assactid ' ||p_assactid,1);
402: hr_utility.set_location('p_effective_date ' ||to_char(p_effective_date,'DD-MON-YYYY'),1);
403: -- Get some contexts
404: -- Note: The last entry in this tax year is chosen. It might happen that a person
405: -- transfers between payrolls, but this is not catered for; since he is

Line 402: hr_utility.set_location('p_effective_date ' ||to_char(p_effective_date,'DD-MON-YYYY'),1);

398: l_main_crt_flag :=0;
399: --hr_utility.trace_on(null,'TYE2005');
400: hr_utility.set_location('archive_data ',1);
401: hr_utility.set_location('p_assactid ' ||p_assactid,1);
402: hr_utility.set_location('p_effective_date ' ||to_char(p_effective_date,'DD-MON-YYYY'),1);
403: -- Get some contexts
404: -- Note: The last entry in this tax year is chosen. It might happen that a person
405: -- transfers between payrolls, but this is not catered for; since he is
406: -- supposed to start on a new assignment number.

Line 426: hr_utility.set_location('l_pact_id is ' || l_pact_id, 999);

422: where paf2.effective_start_date <= ppa.effective_date
423: and paf2.assignment_id = aa.assignment_id
424: );
425:
426: hr_utility.set_location('l_pact_id is ' || l_pact_id, 999);
427:
428: -- Clear the PL/SQL table that contains the contexts
429: l_context_no := pay_archive.g_context_values.sz;
430: hr_utility.set_location('l_context_no ' ||l_context_no,1);

Line 430: hr_utility.set_location('l_context_no ' ||l_context_no,1);

426: hr_utility.set_location('l_pact_id is ' || l_pact_id, 999);
427:
428: -- Clear the PL/SQL table that contains the contexts
429: l_context_no := pay_archive.g_context_values.sz;
430: hr_utility.set_location('l_context_no ' ||l_context_no,1);
431: for i in 1..l_context_no loop
432:
433:
434:

Line 447: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

443: /* Set up the assignment id, date earned and payroll id contexts */
444: l_count := l_count + 1;
445: pay_archive.g_context_values.name(l_count) := 'ASSIGNMENT_ID';
446: pay_archive.g_context_values.value(l_count) := asgid;
447: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
448: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
449:
450:
451: l_count := l_count + 1;

Line 448: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

444: l_count := l_count + 1;
445: pay_archive.g_context_values.name(l_count) := 'ASSIGNMENT_ID';
446: pay_archive.g_context_values.value(l_count) := asgid;
447: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
448: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
449:
450:
451: l_count := l_count + 1;
452: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ID';

Line 455: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

451: l_count := l_count + 1;
452: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ID';
453: pay_archive.g_context_values.value(l_count) := l_payroll_id;
454:
455: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
456: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
457:
458: l_count := l_count + 1;
459: pay_archive.g_context_values.name(l_count) := 'DATE_EARNED';

Line 456: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

452: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ID';
453: pay_archive.g_context_values.value(l_count) := l_payroll_id;
454:
455: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
456: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
457:
458: l_count := l_count + 1;
459: pay_archive.g_context_values.name(l_count) := 'DATE_EARNED';
460: pay_archive.g_context_values.value(l_count) := l_eff_date;

Line 461: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

457:
458: l_count := l_count + 1;
459: pay_archive.g_context_values.name(l_count) := 'DATE_EARNED';
460: pay_archive.g_context_values.value(l_count) := l_eff_date;
461: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
462: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
463: -- Select the maximum action_sequence of an assignment action, for which
464: -- a ZA_Tax_On_Lump_Sums element was processed in the same period, and
465: -- for which a previous archive assignment action did not archive of the

Line 462: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

458: l_count := l_count + 1;
459: pay_archive.g_context_values.name(l_count) := 'DATE_EARNED';
460: pay_archive.g_context_values.value(l_count) := l_eff_date;
461: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
462: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
463: -- Select the maximum action_sequence of an assignment action, for which
464: -- a ZA_Tax_On_Lump_Sums element was processed in the same period, and
465: -- for which a previous archive assignment action did not archive of the
466: -- same period into A_PAY_PROC_PERIOD_ID

Line 513: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

509: l_count := l_count + 1;
510: pay_archive.g_context_values.name(l_count) := 'ASSIGNMENT_ACTION_ID';
511: pay_archive.g_context_values.value(l_count) := aaid;
512: pay_archive.balance_aa := aaid;
513: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
514: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
515:
516: l_count := l_count + 1;
517: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ACTION_ID';

Line 514: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

510: pay_archive.g_context_values.name(l_count) := 'ASSIGNMENT_ACTION_ID';
511: pay_archive.g_context_values.value(l_count) := aaid;
512: pay_archive.balance_aa := aaid;
513: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
514: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
515:
516: l_count := l_count + 1;
517: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ACTION_ID';
518: pay_archive.g_context_values.value(l_count) := paid;

Line 519: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

515:
516: l_count := l_count + 1;
517: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ACTION_ID';
518: pay_archive.g_context_values.value(l_count) := paid;
519: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
520: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
521:
522: -- Save the current count
523: l_flag := l_count;

Line 520: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

516: l_count := l_count + 1;
517: pay_archive.g_context_values.name(l_count) := 'PAYROLL_ACTION_ID';
518: pay_archive.g_context_values.value(l_count) := paid;
519: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
520: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
521:
522: -- Save the current count
523: l_flag := l_count;
524:

Line 532: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

528: for clrrev in curclr(aaid) loop
529: l_count := l_count + 1;
530: pay_archive.g_context_values.name(l_count) := 'SOURCE_NUMBER';
531: pay_archive.g_context_values.value(l_count) := clrrev.clearance_number;
532: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
533: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
534: end loop;
535: END if;
536: -- Make sure that at least one Clearance Number exist,

Line 533: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

529: l_count := l_count + 1;
530: pay_archive.g_context_values.name(l_count) := 'SOURCE_NUMBER';
531: pay_archive.g_context_values.value(l_count) := clrrev.clearance_number;
532: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
533: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
534: end loop;
535: END if;
536: -- Make sure that at least one Clearance Number exist,
537: -- otherwise create a dummy one

Line 543: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),2);

539:
540: l_count := l_count + 1;
541: pay_archive.g_context_values.name(l_count) := 'SOURCE_NUMBER';
542: pay_archive.g_context_values.value(l_count) := '99999999999';
543: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),2);
544: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),2);
545: end if;
546: l_flag := l_count;
547: l_dir_no :=1;

Line 544: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),2);

540: l_count := l_count + 1;
541: pay_archive.g_context_values.name(l_count) := 'SOURCE_NUMBER';
542: pay_archive.g_context_values.value(l_count) := '99999999999';
543: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),2);
544: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),2);
545: end if;
546: l_flag := l_count;
547: l_dir_no :=1;
548:

Line 555: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);

551: IF l_main_crt_flag = l_dir_no then
552: l_count := l_count + 1;
553: pay_archive.g_context_values.name(l_count) := 'SOURCE_TEXT';
554: pay_archive.g_context_values.value(l_count) := dirnumrev.directive_number;
555: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
556: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
557: END if;
558: l_dir_no := l_dir_no +1;
559: end loop;

Line 556: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);

552: l_count := l_count + 1;
553: pay_archive.g_context_values.name(l_count) := 'SOURCE_TEXT';
554: pay_archive.g_context_values.value(l_count) := dirnumrev.directive_number;
555: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),1);
556: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),1);
557: END if;
558: l_dir_no := l_dir_no +1;
559: end loop;
560: -- Setting default Tax directive Number

Line 565: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),2);

561: if l_flag = l_count then
562: l_count := l_count + 1;
563: pay_archive.g_context_values.name(l_count) := 'SOURCE_TEXT';
564: pay_archive.g_context_values.value(l_count) := 'To Be Advised';
565: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),2);
566: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),2);
567: end if;
568: else
569: -- setting Context for Main Certificate

Line 566: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),2);

562: l_count := l_count + 1;
563: pay_archive.g_context_values.name(l_count) := 'SOURCE_TEXT';
564: pay_archive.g_context_values.value(l_count) := 'To Be Advised';
565: hr_utility.set_location('pay_archive.g_context_values.name(l_count) ' ||pay_archive.g_context_values.name(l_count),2);
566: hr_utility.set_location('pay_archive.g_context_values.value(l_count) ' ||pay_archive.g_context_values.value(l_count),2);
567: end if;
568: else
569: -- setting Context for Main Certificate
570: l_count := l_count + 1;

Line 571: hr_utility.set_location('setting Context for Main Certificate ' ,3);

567: end if;
568: else
569: -- setting Context for Main Certificate
570: l_count := l_count + 1;
571: hr_utility.set_location('setting Context for Main Certificate ' ,3);
572: pay_archive.g_context_values.name(l_count) := 'SOURCE_TEXT';
573: pay_archive.g_context_values.value(l_count) := 'To Be Advised';
574:
575: END if;

Line 588: --hr_utility.trace_off;

584: pay_archive.g_context_values.value(l_count) := sarrec.code;
585: end loop;
586:
587: pay_archive.g_context_values.sz := l_count;
588: --hr_utility.trace_off;
589:
590: end archive_data;
591:
592: /*--------------------------------------------------------------------------

Line 1308: hr_utility.trace('COUNT(9999,' || to_char(g_employer_code) || ',' || l_value || ')');

1304: if g_previous_code not in ('1010', '1020', '1030', '1040', '1050', '1060', '1070',
1305: '1080', '1090', '1100', '1110', '1120', '1130', '6010', '6020', '6030', '7010') then
1306:
1307: g_employer_code := g_employer_code + 9999;
1308: hr_utility.trace('COUNT(9999,' || to_char(g_employer_code) || ',' || l_value || ')');
1309:
1310: end if;
1311:
1312: else

Line 1317: hr_utility.trace('COUNT(l_sars_code = ' || l_sars_code || ',' || to_char(g_employer_code) || ',' || l_value || ')');

1313:
1314: if (l_sars_code is not null and to_number(l_sars_code) > to_number(l_code)) then
1315:
1316: g_employer_code := g_employer_code + to_number(l_sars_code);
1317: hr_utility.trace('COUNT(l_sars_code = ' || l_sars_code || ',' || to_char(g_employer_code) || ',' || l_value || ')');
1318:
1319: else
1320:
1321: g_employer_code := g_employer_code + to_number(l_code);

Line 1322: hr_utility.trace('COUNT(l_code = ' || l_code || ',' || to_char(g_employer_code) || ',' || l_value || ')');

1318:
1319: else
1320:
1321: g_employer_code := g_employer_code + to_number(l_code);
1322: hr_utility.trace('COUNT(l_code = ' || l_code || ',' || to_char(g_employer_code) || ',' || l_value || ')');
1323:
1324: end if;
1325:
1326: end if;

Line 1359: hr_utility.trace('DO(' || l_code || ',' || l_value || ',' || l_text || ')');

1355:
1356: -- Store the code that was written out
1357: g_previous_code := l_code;
1358:
1359: hr_utility.trace('DO(' || l_code || ',' || l_value || ',' || l_text || ')');
1360:
1361: return l_text;
1362:
1363: end;