eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PAY_GB_EOY dependencies on HR_UTILITY

Line 285: hr_utility.set_location('eoy_body.eoy',270);

281: l_local_char := SUBSTR(l_middle_name,l_index,1);
282: IF (NOT check_char(l_local_char)) AND l_local_char <> ' ' THEN
283: -- first char is not a character or space
284: l_middle_name := '?';
285: hr_utility.set_location('eoy_body.eoy',270);
286: ELSIF l_local_char = ' ' AND LENGTH(p_middle_name) > 1 THEN
287: -- Proceed to 2nd character
288: l_index := 2;
289: WHILE l_middle_name <> '?' AND l_index <= 7 LOOP

Line 291: hr_utility.set_location('eoy_body.eoy',271);

287: -- Proceed to 2nd character
288: l_index := 2;
289: WHILE l_middle_name <> '?' AND l_index <= 7 LOOP
290: -- Check up to the seventh character
291: hr_utility.set_location('eoy_body.eoy',271);
292: l_local_char := SUBSTR(p_middle_name,l_index,1);
293: IF l_local_char <> ' ' THEN
294: -- Character is not a space so fail
295: hr_utility.trace('The failed char is '||l_local_char);

Line 295: hr_utility.trace('The failed char is '||l_local_char);

291: hr_utility.set_location('eoy_body.eoy',271);
292: l_local_char := SUBSTR(p_middle_name,l_index,1);
293: IF l_local_char <> ' ' THEN
294: -- Character is not a space so fail
295: hr_utility.trace('The failed char is '||l_local_char);
296: l_middle_name := '?';
297: hr_utility.set_location('eoy_body.eoy',272);
298: END IF;
299: l_index := l_index + 1;

Line 297: hr_utility.set_location('eoy_body.eoy',272);

293: IF l_local_char <> ' ' THEN
294: -- Character is not a space so fail
295: hr_utility.trace('The failed char is '||l_local_char);
296: l_middle_name := '?';
297: hr_utility.set_location('eoy_body.eoy',272);
298: END IF;
299: l_index := l_index + 1;
300: END LOOP;
301: ELSIF check_char(l_local_char) AND LENGTH(p_middle_name) > 1 THEN

Line 327: hr_utility.set_location('eoy_body.eoy',160);

323: -- This value will be changed if validation fails
324: l_last_name := p_last_name;
325: l_local_char := SUBSTR(l_last_name,1,1);
326: IF NOT check_char(l_local_char) THEN
327: hr_utility.set_location('eoy_body.eoy',160);
328: l_last_name := '?';
329: ELSE
330: /* Start at the second character */
331: l_index := 2;

Line 332: hr_utility.set_location('eoy_body.eoy',170);

328: l_last_name := '?';
329: ELSE
330: /* Start at the second character */
331: l_index := 2;
332: hr_utility.set_location('eoy_body.eoy',170);
333: -- Check last_name
334: WHILE l_last_name <> '?' AND l_index <= 4 LOOP
335: hr_utility.set_location('eoy_body.eoy',180);
336: l_local_char := SUBSTR(l_last_name,l_index,1);

Line 335: hr_utility.set_location('eoy_body.eoy',180);

331: l_index := 2;
332: hr_utility.set_location('eoy_body.eoy',170);
333: -- Check last_name
334: WHILE l_last_name <> '?' AND l_index <= 4 LOOP
335: hr_utility.set_location('eoy_body.eoy',180);
336: l_local_char := SUBSTR(l_last_name,l_index,1);
337: IF (NOT check_char(l_local_char)) AND
338: (l_local_char NOT IN ('''','-',' ','.')) THEN
339: hr_utility.trace('The failed char is '||l_local_char);

Line 339: hr_utility.trace('The failed char is '||l_local_char);

335: hr_utility.set_location('eoy_body.eoy',180);
336: l_local_char := SUBSTR(l_last_name,l_index,1);
337: IF (NOT check_char(l_local_char)) AND
338: (l_local_char NOT IN ('''','-',' ','.')) THEN
339: hr_utility.trace('The failed char is '||l_local_char);
340: l_last_name := '?';
341: hr_utility.set_location('eoy_body.eoy',190);
342: END IF;
343: hr_utility.set_location('eoy_body.eoy',240);

Line 341: hr_utility.set_location('eoy_body.eoy',190);

337: IF (NOT check_char(l_local_char)) AND
338: (l_local_char NOT IN ('''','-',' ','.')) THEN
339: hr_utility.trace('The failed char is '||l_local_char);
340: l_last_name := '?';
341: hr_utility.set_location('eoy_body.eoy',190);
342: END IF;
343: hr_utility.set_location('eoy_body.eoy',240);
344: l_index := l_index + 1;
345: END LOOP;

Line 343: hr_utility.set_location('eoy_body.eoy',240);

339: hr_utility.trace('The failed char is '||l_local_char);
340: l_last_name := '?';
341: hr_utility.set_location('eoy_body.eoy',190);
342: END IF;
343: hr_utility.set_location('eoy_body.eoy',240);
344: l_index := l_index + 1;
345: END LOOP;
346: END IF;
347: RETURN(l_last_name);

Line 371: -- hr_utility.trace('record index is '||to_char(g_record_index));

367: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD2');
368: /* Reset the record index to start at the third parameter */
369: ELSIF p_no = 3 THEN
370: /* Sub-header */
371: -- hr_utility.trace('record index is '||to_char(g_record_index));
372: pay_mag_tape.internal_prm_values(1) := 6;
373: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
374: ELSIF p_no = 4 THEN
375: /* Permit total */

Line 376: -- hr_utility.trace('record index is '||to_char(g_record_index));

372: pay_mag_tape.internal_prm_values(1) := 6;
373: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD3');
374: ELSIF p_no = 4 THEN
375: /* Permit total */
376: -- hr_utility.trace('record index is '||to_char(g_record_index));
377: pay_mag_tape.internal_prm_values(1) := 15;
378: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
379: ELSIF p_no = 5 THEN
380: /* End of record */

Line 381: -- hr_utility.trace('record index is '||to_char(g_record_index));

377: pay_mag_tape.internal_prm_values(1) := 15;
378: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD4');
379: ELSIF p_no = 5 THEN
380: /* End of record */
381: -- hr_utility.trace('record index is '||to_char(g_record_index));
382: pay_mag_tape.internal_prm_values(1) := 7;
383: pay_mag_tape.internal_prm_values(2) := get_formula_id('MAG_RECORD5');
384: ELSIF p_no = 6 THEN
385: /* Dummy record */

Line 435: hr_utility.set_location('eoy_body.eoy',600);

431: l_local_char VARCHAR2(1);
432: l_result VARCHAR2(1);
433: BEGIN
434: -- Now start validating the record type 1
435: hr_utility.set_location('eoy_body.eoy',600);
436: -- Initialise the record type 1 parameters
437: hr_utility.trace('Writing record type 1');
438: mag_tape_init(1);
439: -- Pass the record fields as paramteres to the mag tape process

Line 437: hr_utility.trace('Writing record type 1');

433: BEGIN
434: -- Now start validating the record type 1
435: hr_utility.set_location('eoy_body.eoy',600);
436: -- Initialise the record type 1 parameters
437: hr_utility.trace('Writing record type 1');
438: mag_tape_init(1);
439: -- Pass the record fields as paramteres to the mag tape process
440: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
441: mag_tape_interface('EOY_MODE',g_eoy_mode);

Line 440: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);

436: -- Initialise the record type 1 parameters
437: hr_utility.trace('Writing record type 1');
438: mag_tape_init(1);
439: -- Pass the record fields as paramteres to the mag tape process
440: hr_utility.trace('Record type1 passed eoy_mode '||g_eoy_mode);
441: mag_tape_interface('EOY_MODE',g_eoy_mode);
442: mag_tape_interface('PERMIT_NO',NVL(g_new_permit_no,'?'));
443: --
444: /* Field must be three numeric characters */

Line 451: hr_utility.set_location('eoy_body.eoy',610);

447: EXCEPTION
448: WHEN VALUE_ERROR THEN
449: -- Any non-numeric characters will raise an exception
450: g_tax_district_ref := '?';
451: hr_utility.set_location('eoy_body.eoy',610);
452: END;
453: mag_tape_interface('TAX_DISTRICT_REF' ,NVL(g_tax_district_ref,'?'));
454: --
455: /* First char must be alphanumeric only */

Line 458: hr_utility.set_location('eoy_body.eoy',620);

454: --
455: /* First char must be alphanumeric only */
456: IF NOT check_number(SUBSTR(g_tax_ref_no,1,1)) THEN
457: IF NOT check_char(SUBSTR(g_tax_ref_no,1,1)) THEN
458: hr_utility.set_location('eoy_body.eoy',620);
459: g_tax_ref_no := '?';
460: END IF;
461: END IF;
462: /* Start at the second character */

Line 470: hr_utility.set_location('eoy_body.eoy',630);

466: l_local_char := SUBSTR(g_tax_ref_no,l_index,1);
467: IF NOT check_number(l_local_char) AND
468: NOT check_char(l_local_char) AND
469: l_local_char NOT IN (' ','/','\','(',')') THEN
470: hr_utility.set_location('eoy_body.eoy',630);
471: g_tax_ref_no := '?';
472: END IF;
473: l_index := l_index + 1;
474: END LOOP;

Line 506: hr_utility.set_location('eoy_body.eoy',640);

502: g_econ:=rpad(g_econ,9);
503: -- prevent SUBSTR in loop from returning null to l_local_char
504: IF SUBSTR(g_econ,1,1) <> 'E' THEN
505: g_econ := '?1';
506: hr_utility.set_location('eoy_body.eoy',640);
507: END IF;
508: l_index := 2;
509: WHILE g_econ <> '?1' AND l_index <= 9 LOOP
510: l_local_char := SUBSTR(g_econ,l_index,1);

Line 513: hr_utility.set_location('eoy_body.eoy',650);

509: WHILE g_econ <> '?1' AND l_index <= 9 LOOP
510: l_local_char := SUBSTR(g_econ,l_index,1);
511: IF NOT check_number(l_local_char) AND l_index <= 8 THEN
512: g_econ := '?1';
513: hr_utility.set_location('eoy_body.eoy',650);
514: END IF;
515: IF NOT check_char(l_local_char) AND (l_index = 9) THEN
516: g_econ := '?1';
517: hr_utility.set_location('eoy_body.eoy',660);

Line 517: hr_utility.set_location('eoy_body.eoy',660);

513: hr_utility.set_location('eoy_body.eoy',650);
514: END IF;
515: IF NOT check_char(l_local_char) AND (l_index = 9) THEN
516: g_econ := '?1';
517: hr_utility.set_location('eoy_body.eoy',660);
518: END IF;
519: l_index := l_index + 1;
520: END LOOP;
521: END IF;

Line 528: hr_utility.set_location('eoy_body.eoy',500);

524: END;
525: --
526: PROCEDURE create_sub_header IS
527: BEGIN
528: hr_utility.set_location('eoy_body.eoy',500);
529: hr_utility.trace('Writting record type 2 subheader');
530: mag_tape_init(3);
531: mag_tape_interface('EOY_MODE',g_eoy_mode);
532: mag_tape_interface('SUB_TOTAL','SUBTOTAL');

Line 529: hr_utility.trace('Writting record type 2 subheader');

525: --
526: PROCEDURE create_sub_header IS
527: BEGIN
528: hr_utility.set_location('eoy_body.eoy',500);
529: hr_utility.trace('Writting record type 2 subheader');
530: mag_tape_init(3);
531: mag_tape_interface('EOY_MODE',g_eoy_mode);
532: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
533: hr_utility.set_location('eoy_body.eoy',510);

Line 533: hr_utility.set_location('eoy_body.eoy',510);

529: hr_utility.trace('Writting record type 2 subheader');
530: mag_tape_init(3);
531: mag_tape_interface('EOY_MODE',g_eoy_mode);
532: mag_tape_interface('SUB_TOTAL','SUBTOTAL');
533: hr_utility.set_location('eoy_body.eoy',510);
534: END;
535: --
536: PROCEDURE create_record_type3 IS
537: --

Line 542: hr_utility.trace('Writing record type 3');

538: l_space_field VARCHAR2(20) :=NULL; -- Used for space filled values
539: l_tot_refund VARCHAR2(1) :=NULL; -- Set to 'R' if tax refund
540: --
541: BEGIN
542: hr_utility.trace('Writing record type 3');
543: mag_tape_init(4);
544: mag_tape_interface('EOY_MODE',g_eoy_mode);
545: mag_tape_interface('PERMIT_NO',g_permit_no); -- For inclusion in Error Messages
546: mag_tape_interface('TOTAL_CONTRIBUTIONS',NVL(g_tot_contribs,0));

Line 548: hr_utility.trace('The tot tax is '||to_char(g_tot_tax));

544: mag_tape_interface('EOY_MODE',g_eoy_mode);
545: mag_tape_interface('PERMIT_NO',g_permit_no); -- For inclusion in Error Messages
546: mag_tape_interface('TOTAL_CONTRIBUTIONS',NVL(g_tot_contribs,0));
547: g_tot_contribs := 0;
548: hr_utility.trace('The tot tax is '||to_char(g_tot_tax));
549: mag_tape_interface('TOTAL_TAX',NVL(ABS(g_tot_tax),0));
550: IF SIGN(g_tot_tax) = -1 THEN
551: -- The tax is a refund so set the refund status
552: l_tot_refund := 'R';

Line 556: hr_utility.trace('The tot refund is '||l_tot_refund||'.');

552: l_tot_refund := 'R';
553: ELSE
554: l_tot_refund := ' ';
555: END IF;
556: hr_utility.trace('The tot refund is '||l_tot_refund||'.');
557: mag_tape_interface('TOTAL_TAX_REFUND',l_tot_refund);
558: g_tot_tax := 0;
559: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
560: -- Now add to the total record 2 count

Line 562: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));

558: g_tot_tax := 0;
559: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
560: -- Now add to the total record 2 count
561: g_tot_rec2 := g_tot_rec2 + NVL(g_tot_rec2_per,0);
562: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));
563: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));
564: g_tot_rec2_per := 0;
565: mag_tape_interface('TOTAL_SSP',NVL(g_tot_ssp_rec,0));
566: -- Copy across new values to the variables

Line 563: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));

559: mag_tape_interface('TOTAL_RECORDS',NVL(g_tot_rec2_per,0));
560: -- Now add to the total record 2 count
561: g_tot_rec2 := g_tot_rec2 + NVL(g_tot_rec2_per,0);
562: hr_utility.trace('The per record is '||to_char(g_tot_rec2_per));
563: hr_utility.trace('The current grand tot is '||to_char(g_tot_rec2));
564: g_tot_rec2_per := 0;
565: mag_tape_interface('TOTAL_SSP',NVL(g_tot_ssp_rec,0));
566: -- Copy across new values to the variables
567: -- g_tot_ssp_rec := g_ssp_recovery;

Line 597: hr_utility.trace('The employee is '||g_employee_number);

593: /* This is for the extra NI details for an employee */
594: mag_tape_init(2);
595: mag_tape_interface('EOY_MODE',g_eoy_mode);
596: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
597: hr_utility.trace('The employee is '||g_employee_number);
598: --
599: g_last_name := f_last_name(g_last_name);
600: hr_utility.set_location('eoy_body.eoy',530);
601: mag_tape_interface('LAST_NAME',NVL(g_last_name,'?'));

Line 600: hr_utility.set_location('eoy_body.eoy',530);

596: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
597: hr_utility.trace('The employee is '||g_employee_number);
598: --
599: g_last_name := f_last_name(g_last_name);
600: hr_utility.set_location('eoy_body.eoy',530);
601: mag_tape_interface('LAST_NAME',NVL(g_last_name,'?'));
602: --
603: -- Check first name
604: IF g_first_name IS NOT NULL AND

Line 607: hr_utility.set_location('eoy_body.eoy',540);

603: -- Check first name
604: IF g_first_name IS NOT NULL AND
605: NOT(check_char(SUBSTR(g_first_name,1,1))) THEN
606: g_first_name := '?';
607: hr_utility.set_location('eoy_body.eoy',540);
608: END IF;
609: mag_tape_interface('FIRST_NAME',NVL(g_first_name,'?'));
610: --
611: -- Check middle_name

Line 615: hr_utility.set_location('eoy_body.eoy',550);

611: -- Check middle_name
612: IF g_middle_name IS NOT NULL THEN
613: g_middle_name := f_middle_name(g_middle_name);
614: END IF;-- middle null check
615: hr_utility.set_location('eoy_body.eoy',550);
616: --
617: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
618: mag_tape_interface('DATE_OF_BIRTH',g_date_of_birth);
619: mag_tape_interface('GENDER',g_sex);

Line 645: hr_utility.set_location('eoy_body.eoy',560);

641: mag_tape_interface('SSP','0');
642: mag_tape_interface('SMP','0');
643: mag_tape_interface('GROSS_PAY','0');
644: mag_tape_interface('TAX_PAID','0');
645: hr_utility.set_location('eoy_body.eoy',560);
646: mag_tape_interface('TAX_REFUND',' ');
647: mag_tape_interface('PREVIOUS_TAXABLE_PAY','0');
648: --
649: mag_tape_interface('PREVIOUS_TAX_PAID','0');

Line 659: hr_utility.set_location('eoy_body.eoy',570);

655: END IF;
656: EXCEPTION
657: WHEN value_error THEN
658: g_termination_date := '?';
659: hr_utility.set_location('eoy_body.eoy',570);
660: END;
661: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
662: mag_tape_interface('SUPERANNUATION','0');
663: --

Line 672: hr_utility.set_location('eoy_body.eoy',580);

668: mag_tape_interface('TAXABLE_PAY','0');
669: --
670: mag_tape_interface('PENSIONER_INDICATOR',' ');
671: mag_tape_interface('DIRECTOR_INDICATOR',' ');
672: hr_utility.set_location('eoy_body.eoy',580);
673: --
674: --
675: hr_utility.trace('Start is '||to_char(l_tab_index+2));
676: hr_utility.trace('End is '||to_char(l_no_nis));

Line 675: hr_utility.trace('Start is '||to_char(l_tab_index+2));

671: mag_tape_interface('DIRECTOR_INDICATOR',' ');
672: hr_utility.set_location('eoy_body.eoy',580);
673: --
674: --
675: hr_utility.trace('Start is '||to_char(l_tab_index+2));
676: hr_utility.trace('End is '||to_char(l_no_nis));
677: -- This will clear any previous values out
678: p_mag_form_clear;
679: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP

Line 676: hr_utility.trace('End is '||to_char(l_no_nis));

672: hr_utility.set_location('eoy_body.eoy',580);
673: --
674: --
675: hr_utility.trace('Start is '||to_char(l_tab_index+2));
676: hr_utility.trace('End is '||to_char(l_no_nis));
677: -- This will clear any previous values out
678: p_mag_form_clear;
679: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
680: hr_utility.trace('Index is now '||to_char(l_index));

Line 680: hr_utility.trace('Index is now '||to_char(l_index));

676: hr_utility.trace('End is '||to_char(l_no_nis));
677: -- This will clear any previous values out
678: p_mag_form_clear;
679: FOR l_index IN l_tab_index+2..l_tab_index+l_no_nis LOOP
680: hr_utility.trace('Index is now '||to_char(l_index));
681: mag_tape_interface('SCON'||TO_CHAR(l_index),scon_tab(l_index));
682: mag_tape_interface('NI_CATEGORY_CODE'||
683: TO_CHAR(l_index),category_tab(l_index));
684: mag_tape_interface('EARNINGS'||TO_CHAR(l_index)

Line 694: hr_utility.set_location('eoy_body.eoy',590);

690: mag_tape_interface('EARNINGS_CONTRACTED_OUT'||
691: TO_CHAR(l_index),earnings_cont_out_tab(l_index));
692: mag_tape_interface('CONTRIBUTIONS_CONTRACTED_OUT'||
693: TO_CHAR(l_index),contribs_cont_out_tab(l_index));
694: hr_utility.set_location('eoy_body.eoy',590);
695: END LOOP;
696: hr_utility.set_location('eoy_body.eoy',595);
697: END;
698: --

Line 696: hr_utility.set_location('eoy_body.eoy',595);

692: mag_tape_interface('CONTRIBUTIONS_CONTRACTED_OUT'||
693: TO_CHAR(l_index),contribs_cont_out_tab(l_index));
694: hr_utility.set_location('eoy_body.eoy',590);
695: END LOOP;
696: hr_utility.set_location('eoy_body.eoy',595);
697: END;
698: --
699: PROCEDURE get_parameters(p_permit_no IN OUT VARCHAR2
700: ,p_eoy_mode IN OUT VARCHAR2

Line 708: hr_utility.set_location('eoy_body.eoy',400);

704: BEGIN
705: -- Get the parameters passed to the module
706: -- Permit number first
707: IF pay_mag_tape.internal_prm_names(3) = 'PERMIT' THEN
708: hr_utility.set_location('eoy_body.eoy',400);
709: -- Trap if the permit number was left null in parameters
710: BEGIN
711: p_permit_no := pay_mag_tape.internal_prm_values(3);
712: EXCEPTION

Line 714: hr_utility.set_location('eoy_body.eoy',410);

710: BEGIN
711: p_permit_no := pay_mag_tape.internal_prm_values(3);
712: EXCEPTION
713: WHEN no_data_found THEN
714: hr_utility.set_location('eoy_body.eoy',410);
715: hr_utility.trace('No permit found');
716: p_permit_no := NULL;
717: END;
718: hr_utility.set_location('eoy_body.eoy',420);

Line 715: hr_utility.trace('No permit found');

711: p_permit_no := pay_mag_tape.internal_prm_values(3);
712: EXCEPTION
713: WHEN no_data_found THEN
714: hr_utility.set_location('eoy_body.eoy',410);
715: hr_utility.trace('No permit found');
716: p_permit_no := NULL;
717: END;
718: hr_utility.set_location('eoy_body.eoy',420);
719: END IF;

Line 718: hr_utility.set_location('eoy_body.eoy',420);

714: hr_utility.set_location('eoy_body.eoy',410);
715: hr_utility.trace('No permit found');
716: p_permit_no := NULL;
717: END;
718: hr_utility.set_location('eoy_body.eoy',420);
719: END IF;
720: -- EOY MODE parameter
721: IF pay_mag_tape.internal_prm_names(4) = 'EOY_MODE' THEN
722: -- Trap if the eoy_mode was left null in parameters

Line 723: hr_utility.set_location('eoy_body.eoy',430);

719: END IF;
720: -- EOY MODE parameter
721: IF pay_mag_tape.internal_prm_names(4) = 'EOY_MODE' THEN
722: -- Trap if the eoy_mode was left null in parameters
723: hr_utility.set_location('eoy_body.eoy',430);
724: BEGIN
725: p_eoy_mode := UPPER(pay_mag_tape.internal_prm_values(4));
726: EXCEPTION
727: WHEN no_data_found THEN

Line 729: hr_utility.set_location('eoy_body.eoy',440);

725: p_eoy_mode := UPPER(pay_mag_tape.internal_prm_values(4));
726: EXCEPTION
727: WHEN no_data_found THEN
728: -- Parameter left null so only P35 required
729: hr_utility.set_location('eoy_body.eoy',440);
730: hr_utility.trace('No eoy mode found');
731: p_eoy_mode := 'P';
732: END;
733: hr_utility.set_location('eoy_body.eoy',450);

Line 730: hr_utility.trace('No eoy mode found');

726: EXCEPTION
727: WHEN no_data_found THEN
728: -- Parameter left null so only P35 required
729: hr_utility.set_location('eoy_body.eoy',440);
730: hr_utility.trace('No eoy mode found');
731: p_eoy_mode := 'P';
732: END;
733: hr_utility.set_location('eoy_body.eoy',450);
734: hr_utility.trace('EOY mode is '||p_eoy_mode);

Line 733: hr_utility.set_location('eoy_body.eoy',450);

729: hr_utility.set_location('eoy_body.eoy',440);
730: hr_utility.trace('No eoy mode found');
731: p_eoy_mode := 'P';
732: END;
733: hr_utility.set_location('eoy_body.eoy',450);
734: hr_utility.trace('EOY mode is '||p_eoy_mode);
735: END IF;
736: -- The tax district reference
737: IF pay_mag_tape.internal_prm_names(5) = 'TAX_DISTRICT_REFERENCE' THEN

Line 734: hr_utility.trace('EOY mode is '||p_eoy_mode);

730: hr_utility.trace('No eoy mode found');
731: p_eoy_mode := 'P';
732: END;
733: hr_utility.set_location('eoy_body.eoy',450);
734: hr_utility.trace('EOY mode is '||p_eoy_mode);
735: END IF;
736: -- The tax district reference
737: IF pay_mag_tape.internal_prm_names(5) = 'TAX_DISTRICT_REFERENCE' THEN
738: -- Trap if the tax_dist_ref was left null in parameters

Line 739: hr_utility.set_location('eoy_body.eoy',460);

735: END IF;
736: -- The tax district reference
737: IF pay_mag_tape.internal_prm_names(5) = 'TAX_DISTRICT_REFERENCE' THEN
738: -- Trap if the tax_dist_ref was left null in parameters
739: hr_utility.set_location('eoy_body.eoy',460);
740: BEGIN
741: p_tax_dist_ref := SUBSTR(pay_mag_tape.internal_prm_values(5),1,3);
742: p_tax_ref_no := LTRIM(
743: SUBSTR(pay_mag_tape.internal_prm_values(5),4)

Line 748: hr_utility.set_location('eoy_body.eoy',470);

744: , '/');
745: EXCEPTION
746: WHEN no_data_found THEN
747: -- Parameter left null
748: hr_utility.set_location('eoy_body.eoy',470);
749: hr_utility.trace('No tax dist ref found');
750: p_tax_dist_ref := NULL;
751: END;
752: END IF;

Line 749: hr_utility.trace('No tax dist ref found');

745: EXCEPTION
746: WHEN no_data_found THEN
747: -- Parameter left null
748: hr_utility.set_location('eoy_body.eoy',470);
749: hr_utility.trace('No tax dist ref found');
750: p_tax_dist_ref := NULL;
751: END;
752: END IF;
753: -- The Business_group_id

Line 756: hr_utility.set_location('eoy_body.eoy',480);

752: END IF;
753: -- The Business_group_id
754: IF pay_mag_tape.internal_prm_names(6) = 'BUSINESS_GROUP_ID' THEN
755: -- Trap if the tax_dist_ref was left null in parameters
756: hr_utility.set_location('eoy_body.eoy',480);
757: BEGIN
758: p_business_group_id := pay_mag_tape.internal_prm_values(6);
759: EXCEPTION
760: WHEN no_data_found THEN

Line 762: hr_utility.set_location('eoy_body.eoy',490);

758: p_business_group_id := pay_mag_tape.internal_prm_values(6);
759: EXCEPTION
760: WHEN no_data_found THEN
761: -- Parameter left null
762: hr_utility.set_location('eoy_body.eoy',490);
763: hr_utility.trace('No business group id found');
764: p_business_group_id := NULL;
765: END;
766: END IF;

Line 763: hr_utility.trace('No business group id found');

759: EXCEPTION
760: WHEN no_data_found THEN
761: -- Parameter left null
762: hr_utility.set_location('eoy_body.eoy',490);
763: hr_utility.trace('No business group id found');
764: p_business_group_id := NULL;
765: END;
766: END IF;
767: hr_utility.set_location('eoy_body.eoy',495);

Line 767: hr_utility.set_location('eoy_body.eoy',495);

763: hr_utility.trace('No business group id found');
764: p_business_group_id := NULL;
765: END;
766: END IF;
767: hr_utility.set_location('eoy_body.eoy',495);
768: EXCEPTION
769: WHEN no_data_found THEN
770: -- If this is raised then either the permit number and/or eoy_mode was
771: -- not entered as a parameter

Line 772: hr_utility.set_location('eoy_body.eoy',499);

768: EXCEPTION
769: WHEN no_data_found THEN
770: -- If this is raised then either the permit number and/or eoy_mode was
771: -- not entered as a parameter
772: hr_utility.set_location('eoy_body.eoy',499);
773: g_permit_no := NVL(p_permit_no,NULL);
774: p_eoy_mode := NVL(p_eoy_mode,'P');
775: p_tax_dist_ref := NVL(p_tax_dist_ref,NULL);
776: p_tax_ref_no := NVL(p_tax_ref_no,NULL);

Line 778: hr_utility.trace('In exception handler get_parameters');

774: p_eoy_mode := NVL(p_eoy_mode,'P');
775: p_tax_dist_ref := NVL(p_tax_dist_ref,NULL);
776: p_tax_ref_no := NVL(p_tax_ref_no,NULL);
777: p_business_group_id := NVL(p_business_group_id,NULL);
778: hr_utility.trace('In exception handler get_parameters');
779: END;
780: --
781: -- START HERE
782: --

Line 815: hr_utility.set_location('eoy_body.eoy',0);

811: l_space_field VARCHAR2(500):=NULL; -- Used for space filled values
812: l_tot_refund VARCHAR2(1):=NULL; -- Set to 'R' if tax refund
813: --
814: BEGIN
815: hr_utility.set_location('eoy_body.eoy',0);
816: --
817: -- Start checking for record type 1
818: --
819: IF fetch_new_header THEN

Line 820: hr_utility.set_location('eoy_body.eoy',10);

816: --
817: -- Start checking for record type 1
818: --
819: IF fetch_new_header THEN
820: hr_utility.set_location('eoy_body.eoy',10);
821: -- A Record type 1 is required
822: IF NOT (header_cur%ISOPEN) THEN
823: hr_utility.set_location('eoy_body.eoy',20);
824: -- Get any parameters that have been sent

Line 823: hr_utility.set_location('eoy_body.eoy',20);

819: IF fetch_new_header THEN
820: hr_utility.set_location('eoy_body.eoy',10);
821: -- A Record type 1 is required
822: IF NOT (header_cur%ISOPEN) THEN
823: hr_utility.set_location('eoy_body.eoy',20);
824: -- Get any parameters that have been sent
825: get_parameters(g_permit_no
826: ,g_eoy_mode
827: ,g_tax_dist_ref

Line 830: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');

826: ,g_eoy_mode
827: ,g_tax_dist_ref
828: ,g_tax_ref_no
829: ,g_business_group_id);
830: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
831: hr_utility.trace('The passed in dist is '||g_tax_dist_ref||'@');
832: hr_utility.trace('The passed in ref is '||g_tax_ref_no||'@');
833: hr_utility.trace('The passed in business is '||g_business_group_id||'@');
834: -- First time in so clear the error type counts

Line 831: hr_utility.trace('The passed in dist is '||g_tax_dist_ref||'@');

827: ,g_tax_dist_ref
828: ,g_tax_ref_no
829: ,g_business_group_id);
830: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
831: hr_utility.trace('The passed in dist is '||g_tax_dist_ref||'@');
832: hr_utility.trace('The passed in ref is '||g_tax_ref_no||'@');
833: hr_utility.trace('The passed in business is '||g_business_group_id||'@');
834: -- First time in so clear the error type counts
835: pay_mag_tape.internal_prm_values(3) := 0;

Line 832: hr_utility.trace('The passed in ref is '||g_tax_ref_no||'@');

828: ,g_tax_ref_no
829: ,g_business_group_id);
830: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
831: hr_utility.trace('The passed in dist is '||g_tax_dist_ref||'@');
832: hr_utility.trace('The passed in ref is '||g_tax_ref_no||'@');
833: hr_utility.trace('The passed in business is '||g_business_group_id||'@');
834: -- First time in so clear the error type counts
835: pay_mag_tape.internal_prm_values(3) := 0;
836: pay_mag_tape.internal_prm_values(4) := 0;

Line 833: hr_utility.trace('The passed in business is '||g_business_group_id||'@');

829: ,g_business_group_id);
830: hr_utility.trace('The passed in Mode is '||g_eoy_mode||'@');
831: hr_utility.trace('The passed in dist is '||g_tax_dist_ref||'@');
832: hr_utility.trace('The passed in ref is '||g_tax_ref_no||'@');
833: hr_utility.trace('The passed in business is '||g_business_group_id||'@');
834: -- First time in so clear the error type counts
835: pay_mag_tape.internal_prm_values(3) := 0;
836: pay_mag_tape.internal_prm_values(4) := 0;
837: OPEN header_cur(g_permit_no

Line 845: hr_utility.trace('1 The global Permit is '||g_permit_no);

841: END IF;
842: IF NOT(permit_change) THEN
843: -- Get record from EOY table as next record
844: -- for record type 1 required
845: hr_utility.trace('1 The global Permit is '||g_permit_no);
846: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
847: FETCH header_cur INTO g_new_permit_no
848: ,g_new_payroll_id
849: ,g_tax_district_ref

Line 846: hr_utility.trace('1 The global Payroll is '||g_payroll_id);

842: IF NOT(permit_change) THEN
843: -- Get record from EOY table as next record
844: -- for record type 1 required
845: hr_utility.trace('1 The global Permit is '||g_permit_no);
846: hr_utility.trace('1 The global Payroll is '||g_payroll_id);
847: FETCH header_cur INTO g_new_permit_no
848: ,g_new_payroll_id
849: ,g_tax_district_ref
850: ,g_tax_ref_no

Line 861: hr_utility.set_location('eoy_body.eoy',30);

857: ,g_smp_recovery
858: ,g_smp_compensation;
859: IF header_cur%NOTFOUND THEN
860: -- No more records found so end of run
861: hr_utility.set_location('eoy_body.eoy',30);
862: IF g_tot_rec2_per > 0 THEN
863: -- If at least one record has been found then create
864: -- a permit total
865: create_record_type3;

Line 880: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);

876: ELSIF g_new_permit_no <> NVL(g_permit_no,g_new_permit_no) THEN
877: --
878: -- The permit has changed so construct the record type 3
879: --
880: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
881: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
882: create_record_type3;
883: -- Save required values in globals
884: g_permit_no := g_new_permit_no;

Line 881: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);

877: --
878: -- The permit has changed so construct the record type 3
879: --
880: hr_utility.trace('2 Fetched Permit is '||g_new_permit_no);
881: hr_utility.trace('2 Fetched Payroll_id is '||g_new_payroll_id);
882: create_record_type3;
883: -- Save required values in globals
884: g_permit_no := g_new_permit_no;
885: g_payroll_id := g_new_payroll_id;

Line 890: hr_utility.set_location('eoy_body.eoy',40);

886: permit_change := TRUE;
887: -- Close the type 2 cursor so it will be re-opened with
888: -- the new parameters
889: CLOSE emps_cur;
890: hr_utility.set_location('eoy_body.eoy',40);
891: ELSE
892: -- No permit change so add new smp and smp values to totals
893: g_tot_ssp_rec := g_tot_ssp_rec + g_ssp_recovery;
894: g_tot_smp_rec := g_tot_smp_rec + g_smp_recovery;

Line 896: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);

892: -- No permit change so add new smp and smp values to totals
893: g_tot_ssp_rec := g_tot_ssp_rec + g_ssp_recovery;
894: g_tot_smp_rec := g_tot_smp_rec + g_smp_recovery;
895: g_tot_smp_comp := g_tot_smp_comp + g_smp_compensation;
896: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
897: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
898: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
899: -- The payroll_id has changed in permit_no
900: g_payroll_id := g_new_payroll_id;

Line 897: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);

893: g_tot_ssp_rec := g_tot_ssp_rec + g_ssp_recovery;
894: g_tot_smp_rec := g_tot_smp_rec + g_smp_recovery;
895: g_tot_smp_comp := g_tot_smp_comp + g_smp_compensation;
896: hr_utility.trace('3 Fetched Permit is '||g_new_permit_no);
897: hr_utility.trace('3 Fetched Payroll_id is '||g_new_payroll_id);
898: IF g_new_payroll_id <> NVL(g_payroll_id,g_new_payroll_id) THEN
899: -- The payroll_id has changed in permit_no
900: g_payroll_id := g_new_payroll_id;
901: -- Write the sub_header and then get the employee details

Line 909: hr_utility.set_location('eoy_body.eoy',45);

905: CLOSE emps_cur;
906: fetch_new_header := FALSE;
907: permit_change := FALSE;
908: process_emps := TRUE;
909: hr_utility.set_location('eoy_body.eoy',45);
910: ELSE
911: hr_utility.trace('No payroll or permit change ');
912: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
913: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);

Line 911: hr_utility.trace('No payroll or permit change ');

907: permit_change := FALSE;
908: process_emps := TRUE;
909: hr_utility.set_location('eoy_body.eoy',45);
910: ELSE
911: hr_utility.trace('No payroll or permit change ');
912: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
913: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
914: -- Save required values in globals
915: g_permit_no := g_new_permit_no;

Line 912: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);

908: process_emps := TRUE;
909: hr_utility.set_location('eoy_body.eoy',45);
910: ELSE
911: hr_utility.trace('No payroll or permit change ');
912: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
913: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
914: -- Save required values in globals
915: g_permit_no := g_new_permit_no;
916: g_payroll_id := g_new_payroll_id;

Line 913: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);

909: hr_utility.set_location('eoy_body.eoy',45);
910: ELSE
911: hr_utility.trace('No payroll or permit change ');
912: hr_utility.trace('4 Fetched Permit is '||g_new_permit_no);
913: hr_utility.trace('4 Fetched Payroll_id is '||g_new_payroll_id);
914: -- Save required values in globals
915: g_permit_no := g_new_permit_no;
916: g_payroll_id := g_new_payroll_id;
917: create_record_type1;

Line 920: hr_utility.set_location('eoy_body.eoy',50);

916: g_payroll_id := g_new_payroll_id;
917: create_record_type1;
918: fetch_new_header := FALSE;
919: sub_header := TRUE;
920: hr_utility.set_location('eoy_body.eoy',50);
921: END IF;
922: END IF;
923: ELSE
924: -- Change of permit so create a type 1 record from old values

Line 933: hr_utility.set_location('eoy_body.eoy',60);

929: -- 1st record with this permit so set totals to new smp and ssp values
930: g_tot_ssp_rec := g_ssp_recovery;
931: g_tot_smp_rec := g_smp_recovery;
932: g_tot_smp_comp := g_smp_compensation;
933: hr_utility.set_location('eoy_body.eoy',60);
934: END IF;
935: --
936: -- Check if sub-header required
937: --

Line 940: hr_utility.set_location('eoy_body.eoy',70);

936: -- Check if sub-header required
937: --
938: ELSIF sub_header THEN
939: create_sub_header;
940: hr_utility.set_location('eoy_body.eoy',70);
941: sub_header := FALSE;
942: process_emps := TRUE;
943: --
944: -- Check for a dummy record 2 needed when more than 4 Ni cats exist for

Line 950: hr_utility.set_location('eoy_body.eoy',700);

946: --
947: ELSIF process_dummy THEN
948: -- A special record type 2
949: -- More than 4 more NI categories exist for the employee
950: hr_utility.set_location('eoy_body.eoy',700);
951: IF g_ni_total - g_last_ni > 4 THEN
952: p_create_dummy(g_last_ni,4);
953: g_last_ni := g_last_ni + 4;
954: ELSE

Line 968: hr_utility.set_location('eoy_body.eoy',100);

964: -- Check for processing record type 2
965: --
966: ELSIF process_emps THEN
967: -- Record type 2 required
968: hr_utility.set_location('eoy_body.eoy',100);
969: hr_utility.trace('The emp permit_no is '||g_permit_no);
970: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
971: IF NOT (emps_cur%ISOPEN) THEN
972: hr_utility.set_location('eoy_body.eoy',110);

Line 969: hr_utility.trace('The emp permit_no is '||g_permit_no);

965: --
966: ELSIF process_emps THEN
967: -- Record type 2 required
968: hr_utility.set_location('eoy_body.eoy',100);
969: hr_utility.trace('The emp permit_no is '||g_permit_no);
970: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
971: IF NOT (emps_cur%ISOPEN) THEN
972: hr_utility.set_location('eoy_body.eoy',110);
973: OPEN emps_cur(g_payroll_id);

Line 970: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));

966: ELSIF process_emps THEN
967: -- Record type 2 required
968: hr_utility.set_location('eoy_body.eoy',100);
969: hr_utility.trace('The emp permit_no is '||g_permit_no);
970: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
971: IF NOT (emps_cur%ISOPEN) THEN
972: hr_utility.set_location('eoy_body.eoy',110);
973: OPEN emps_cur(g_payroll_id);
974: END IF;

Line 972: hr_utility.set_location('eoy_body.eoy',110);

968: hr_utility.set_location('eoy_body.eoy',100);
969: hr_utility.trace('The emp permit_no is '||g_permit_no);
970: hr_utility.trace('The emp payroll_id is '||to_char(g_payroll_id));
971: IF NOT (emps_cur%ISOPEN) THEN
972: hr_utility.set_location('eoy_body.eoy',110);
973: OPEN emps_cur(g_payroll_id);
974: END IF;
975: FETCH emps_cur INTO g_employee_number
976: ,g_last_name

Line 1012: hr_utility.set_location('eoy_body.eoy',130);

1008: --
1009: -- End of record type 2
1010: --
1011: -- Set escape from this section
1012: hr_utility.set_location('eoy_body.eoy',130);
1013: /* Each call of this package must return 1 record even */
1014: /* if its only a dummy formula call to do so */
1015: mag_tape_init(6);
1016: fetch_new_header:= TRUE;

Line 1024: hr_utility.set_location('eoy_body.eoy',140);

1020: -- Fetch all the ni contributions for each employee
1021: -- in one hit.
1022: --
1023: l_index := 1;
1024: hr_utility.set_location('eoy_body.eoy',140);
1025: FOR emp_values_rec IN emp_values(l_assignment_id,l_effective_date)
1026: LOOP
1027: scon_tab(l_index) := emp_values_rec.scon;
1028: category_tab(l_index) := emp_values_rec.cat_code;

Line 1084: hr_utility.set_location('eoy_body.eoy',150);

1080: employees_contrib_tab(l_plsql_index) := 0;
1081: earnings_cont_out_tab(l_plsql_index) := 0;
1082: contribs_cont_out_tab(l_plsql_index) := 0;
1083: END LOOP;
1084: hr_utility.set_location('eoy_body.eoy',150);
1085: END IF;
1086: /* Create a type 2 record */
1087: /* Set up the no of parameters and the formula professor */
1088: hr_utility.trace('Writting record type 2');

Line 1088: hr_utility.trace('Writting record type 2');

1084: hr_utility.set_location('eoy_body.eoy',150);
1085: END IF;
1086: /* Create a type 2 record */
1087: /* Set up the no of parameters and the formula professor */
1088: hr_utility.trace('Writting record type 2');
1089: mag_tape_init(2);
1090: /* Now create a record type 2 */
1091: mag_tape_interface('EOY_MODE',g_eoy_mode);
1092: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));

Line 1095: hr_utility.set_location('eoy_body.eoy',250);

1091: mag_tape_interface('EOY_MODE',g_eoy_mode);
1092: mag_tape_interface('EMPLOYEE_NUMBER',NVL(g_employee_number,' '));
1093: --
1094: g_last_name := f_last_name(g_last_name);
1095: hr_utility.set_location('eoy_body.eoy',250);
1096: mag_tape_interface('LAST_NAME',NVL(g_last_name,'?'));
1097: --
1098: -- Check first name
1099: IF g_first_name IS NOT NULL AND

Line 1102: hr_utility.set_location('eoy_body.eoy',260);

1098: -- Check first name
1099: IF g_first_name IS NOT NULL AND
1100: NOT(check_char(SUBSTR(g_first_name,1,1))) THEN
1101: g_first_name := '?';
1102: hr_utility.set_location('eoy_body.eoy',260);
1103: END IF;
1104: mag_tape_interface('FIRST_NAME',NVL(g_first_name,'?'));
1105: --
1106: -- Check middle_name

Line 1110: hr_utility.set_location('eoy_body.eoy',275);

1106: -- Check middle_name
1107: IF g_middle_name IS NOT NULL THEN
1108: g_middle_name := f_middle_name(g_middle_name);
1109: END IF;-- middle null check
1110: hr_utility.set_location('eoy_body.eoy',275);
1111: --
1112: mag_tape_interface('MIDDLE_NAME',NVL(g_middle_name,' '));
1113: mag_tape_interface('DATE_OF_BIRTH',g_date_of_birth);
1114: mag_tape_interface('GENDER',g_sex);

Line 1151: hr_utility.set_location('eoy_body.eoy',280);

1147: mag_tape_interface('SMP',l_smp);
1148: mag_tape_interface('GROSS_PAY',l_gross_pay);
1149: mag_tape_interface('TAX_PAID',ABS(l_tax_paid));
1150: g_tot_tax := g_tot_tax + l_tax_paid;
1151: hr_utility.set_location('eoy_body.eoy',280);
1152: --
1153: IF l_tax_refund NOT IN ('R',' ') THEN
1154: l_tax_refund := '?';
1155: hr_utility.set_location('eoy_body.eoy',290);

Line 1155: hr_utility.set_location('eoy_body.eoy',290);

1151: hr_utility.set_location('eoy_body.eoy',280);
1152: --
1153: IF l_tax_refund NOT IN ('R',' ') THEN
1154: l_tax_refund := '?';
1155: hr_utility.set_location('eoy_body.eoy',290);
1156: END IF;
1157: mag_tape_interface('TAX_REFUND',l_tax_refund);
1158: mag_tape_interface('PREVIOUS_TAXABLE_PAY',
1159: l_previous_taxable_pay);

Line 1172: hr_utility.set_location('eoy_body.eoy',300);

1168: END IF;
1169: EXCEPTION
1170: WHEN value_error THEN
1171: g_termination_date := '?';
1172: hr_utility.set_location('eoy_body.eoy',300);
1173: END;
1174: mag_tape_interface('TERMINATION_DATE',NVL(g_termination_date,' '));
1175: mag_tape_interface('SUPERANNUATION',l_superannuation_paid);
1176: --

Line 1179: hr_utility.set_location('eoy_body.eoy',310);

1175: mag_tape_interface('SUPERANNUATION',l_superannuation_paid);
1176: --
1177: IF l_superannuation_refund NOT IN ('R',' ') THEN
1178: l_superannuation_refund := '?';
1179: hr_utility.set_location('eoy_body.eoy',310);
1180: END IF;
1181: mag_tape_interface('SUPERANNUATION_REFUND',
1182: l_superannuation_refund);
1183: mag_tape_interface('WIDOWS_ORPHANS',

Line 1188: hr_utility.set_location('eoy_body.eoy',320);

1184: l_widows_and_orphans);
1185: --
1186: IF l_week_53_indicator NOT IN ('3','4','6',' ') THEN
1187: l_week_53_indicator := '?';
1188: hr_utility.set_location('eoy_body.eoy',320);
1189: END IF;
1190: mag_tape_interface('WEEK_53', l_week_53_indicator);
1191: mag_tape_interface('TAXABLE_PAY',l_taxable_pay);
1192: --

Line 1195: hr_utility.set_location('eoy_body.eoy',330);

1191: mag_tape_interface('TAXABLE_PAY',l_taxable_pay);
1192: --
1193: IF l_pension_indicator NOT IN ('P',' ') THEN
1194: l_pension_indicator := '?';
1195: hr_utility.set_location('eoy_body.eoy',330);
1196: END IF;
1197: mag_tape_interface('PENSIONER_INDICATOR', l_pension_indicator);
1198: --
1199: IF l_director_indicator NOT IN ('D',' ') THEN

Line 1201: hr_utility.set_location('eoy_body.eoy',340);

1197: mag_tape_interface('PENSIONER_INDICATOR', l_pension_indicator);
1198: --
1199: IF l_director_indicator NOT IN ('D',' ') THEN
1200: l_director_indicator := '?';
1201: hr_utility.set_location('eoy_body.eoy',340);
1202: END IF;
1203: mag_tape_interface('DIRECTOR_INDICATOR', l_director_indicator);
1204: hr_utility.set_location('eoy_body.eoy',350);
1205: --

Line 1204: hr_utility.set_location('eoy_body.eoy',350);

1200: l_director_indicator := '?';
1201: hr_utility.set_location('eoy_body.eoy',340);
1202: END IF;
1203: mag_tape_interface('DIRECTOR_INDICATOR', l_director_indicator);
1204: hr_utility.set_location('eoy_body.eoy',350);
1205: --
1206: -- Now send up to 3 of the remaining contribution records to mag tape
1207: -- If they do not exist they have been defaulted
1208: --

Line 1223: hr_utility.set_location('eoy_body.eoy',360);

1219: mag_tape_interface('EARNINGS_CONTRACTED_OUT'||
1220: TO_CHAR(l_index), earnings_cont_out_tab(l_index));
1221: mag_tape_interface('CONTRIBUTIONS_CONTRACTED_OUT'||
1222: TO_CHAR(l_index), contribs_cont_out_tab(l_index));
1223: hr_utility.set_location('eoy_body.eoy',360);
1224: END LOOP;
1225: -- Running count of all employee records
1226: g_tot_rec2_per := g_tot_rec2_per + 1;
1227: -- Now check the number of NI categories found for this employee

Line 1229: hr_utility.trace('The employee is '||g_employee_number);

1225: -- Running count of all employee records
1226: g_tot_rec2_per := g_tot_rec2_per + 1;
1227: -- Now check the number of NI categories found for this employee
1228: IF g_ni_total > 4 THEN
1229: hr_utility.trace('The employee is '||g_employee_number);
1230: hr_utility.set_location('eoy_body.eoy',365);
1231: -- More than four so set flags for creation of dummy record
1232: process_emps := FALSE;
1233: process_dummy := TRUE;

Line 1230: hr_utility.set_location('eoy_body.eoy',365);

1226: g_tot_rec2_per := g_tot_rec2_per + 1;
1227: -- Now check the number of NI categories found for this employee
1228: IF g_ni_total > 4 THEN
1229: hr_utility.trace('The employee is '||g_employee_number);
1230: hr_utility.set_location('eoy_body.eoy',365);
1231: -- More than four so set flags for creation of dummy record
1232: process_emps := FALSE;
1233: process_dummy := TRUE;
1234: -- Index in PL/SQL tables set to the last record selected

Line 1237: hr_utility.set_location('eoy_body.eoy',370);

1233: process_dummy := TRUE;
1234: -- Index in PL/SQL tables set to the last record selected
1235: g_last_ni := 4;
1236: END IF;
1237: hr_utility.set_location('eoy_body.eoy',370);
1238: --
1239: END IF; /* End of create type 2 record */
1240: ELSIF fin_run THEN
1241: --

Line 1244: hr_utility.trace('Writting record type 4');

1240: ELSIF fin_run THEN
1241: --
1242: -- Start the end of tape procedure
1243: --
1244: hr_utility.trace('Writting record type 4');
1245: hr_utility.set_location('eoy_body.eoy',600);
1246: mag_tape_init(5);
1247: mag_tape_interface('EOY_MODE',g_eoy_mode);
1248: mag_tape_interface('TOTAL_RECORDS',g_tot_rec2);

Line 1245: hr_utility.set_location('eoy_body.eoy',600);

1241: --
1242: -- Start the end of tape procedure
1243: --
1244: hr_utility.trace('Writting record type 4');
1245: hr_utility.set_location('eoy_body.eoy',600);
1246: mag_tape_init(5);
1247: mag_tape_interface('EOY_MODE',g_eoy_mode);
1248: mag_tape_interface('TOTAL_RECORDS',g_tot_rec2);
1249: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));

Line 1249: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));

1245: hr_utility.set_location('eoy_body.eoy',600);
1246: mag_tape_init(5);
1247: mag_tape_interface('EOY_MODE',g_eoy_mode);
1248: mag_tape_interface('TOTAL_RECORDS',g_tot_rec2);
1249: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
1250: mag_tape_interface('END_OF_DATA','END OF DATA');
1251: hr_utility.set_location('eoy_body.eoy',610);
1252: IF header_cur%ISOPEN THEN
1253: CLOSE header_cur;

Line 1251: hr_utility.set_location('eoy_body.eoy',610);

1247: mag_tape_interface('EOY_MODE',g_eoy_mode);
1248: mag_tape_interface('TOTAL_RECORDS',g_tot_rec2);
1249: hr_utility.trace('The tot record is '||to_char(g_tot_rec2));
1250: mag_tape_interface('END_OF_DATA','END OF DATA');
1251: hr_utility.set_location('eoy_body.eoy',610);
1252: IF header_cur%ISOPEN THEN
1253: CLOSE header_cur;
1254: END IF;
1255: IF emps_cur%ISOPEN THEN

Line 1259: hr_utility.set_location('eoy_body.eoy',999);

1255: IF emps_cur%ISOPEN THEN
1256: CLOSE emps_cur;
1257: END IF;
1258: END IF;
1259: hr_utility.set_location('eoy_body.eoy',999);
1260: END;
1261: --
1262: END;