APPS.PAY_MAGTAPE_GENERIC dependencies on PAY_MAG_TAPE

Line 23: int_prm_names pay_mag_tape.host_array;

19: intermediate_run bool_array;
20: running_intermediate bool_array;
21: level_no number;
22: report_id pay_magnetic_blocks.report_format%TYPE;
23: int_prm_names pay_mag_tape.host_array;
24: int_prm_values pay_mag_tape.host_array;
25: --
26: -- Formula level details
27: formula_next_block pay_magnetic_records.next_block_id%TYPE;

Line 24: int_prm_values pay_mag_tape.host_array;

20: running_intermediate bool_array;
21: level_no number;
22: report_id pay_magnetic_blocks.report_format%TYPE;
23: int_prm_names pay_mag_tape.host_array;
24: int_prm_values pay_mag_tape.host_array;
25: --
26: -- Formula level details
27: formula_next_block pay_magnetic_records.next_block_id%TYPE;
28: formula_id pay_magnetic_records.formula_id%TYPE;

Line 110: pay_mag_tape paramater tables.

106:
107:
108: /* Function - get_parameter_value
109: Action - This returns the value of a named parameter from the
110: pay_mag_tape paramater tables.
111: */
112: function get_parameter_value(prm_name varchar2)
113: return varchar2 is
114: cnt number;

Line 553: while cnt <= pay_mag_tape.internal_prm_values(1) loop

549: if g_debug then
550: hr_utility.trace('Entering pay_magtape_generic.run_overflow');
551: end if;
552: cnt := 2;
553: while cnt <= pay_mag_tape.internal_prm_values(1) loop
554: if ((pay_mag_tape.internal_prm_names(cnt) = 'TRANSFER_RUN_OVERFLOW')
555: and (pay_mag_tape.internal_prm_values(cnt) = 'Y')) then
556: pay_mag_tape.internal_prm_values(cnt) := 'N';
557: return TRUE;

Line 554: if ((pay_mag_tape.internal_prm_names(cnt) = 'TRANSFER_RUN_OVERFLOW')

550: hr_utility.trace('Entering pay_magtape_generic.run_overflow');
551: end if;
552: cnt := 2;
553: while cnt <= pay_mag_tape.internal_prm_values(1) loop
554: if ((pay_mag_tape.internal_prm_names(cnt) = 'TRANSFER_RUN_OVERFLOW')
555: and (pay_mag_tape.internal_prm_values(cnt) = 'Y')) then
556: pay_mag_tape.internal_prm_values(cnt) := 'N';
557: return TRUE;
558: end if;

Line 555: and (pay_mag_tape.internal_prm_values(cnt) = 'Y')) then

551: end if;
552: cnt := 2;
553: while cnt <= pay_mag_tape.internal_prm_values(1) loop
554: if ((pay_mag_tape.internal_prm_names(cnt) = 'TRANSFER_RUN_OVERFLOW')
555: and (pay_mag_tape.internal_prm_values(cnt) = 'Y')) then
556: pay_mag_tape.internal_prm_values(cnt) := 'N';
557: return TRUE;
558: end if;
559: cnt := cnt + 1;

Line 556: pay_mag_tape.internal_prm_values(cnt) := 'N';

552: cnt := 2;
553: while cnt <= pay_mag_tape.internal_prm_values(1) loop
554: if ((pay_mag_tape.internal_prm_names(cnt) = 'TRANSFER_RUN_OVERFLOW')
555: and (pay_mag_tape.internal_prm_values(cnt) = 'Y')) then
556: pay_mag_tape.internal_prm_values(cnt) := 'N';
557: return TRUE;
558: end if;
559: cnt := cnt + 1;
560: end loop;

Line 593: while cnt <= pay_mag_tape.internal_prm_values(1) loop

589: else
590: report_name := 'MAGTAPE_REPORT_ID';
591: end if;
592: --
593: while cnt <= pay_mag_tape.internal_prm_values(1) loop
594: if pay_mag_tape.internal_prm_names(cnt) = report_name then
595: hr_utility.trace('Match');
596: report_id := pay_mag_tape.internal_prm_values(cnt);
597: hr_utility.trace('Set Value');

Line 594: if pay_mag_tape.internal_prm_names(cnt) = report_name then

590: report_name := 'MAGTAPE_REPORT_ID';
591: end if;
592: --
593: while cnt <= pay_mag_tape.internal_prm_values(1) loop
594: if pay_mag_tape.internal_prm_names(cnt) = report_name then
595: hr_utility.trace('Match');
596: report_id := pay_mag_tape.internal_prm_values(cnt);
597: hr_utility.trace('Set Value');
598: end if;

Line 596: report_id := pay_mag_tape.internal_prm_values(cnt);

592: --
593: while cnt <= pay_mag_tape.internal_prm_values(1) loop
594: if pay_mag_tape.internal_prm_names(cnt) = report_name then
595: hr_utility.trace('Match');
596: report_id := pay_mag_tape.internal_prm_values(cnt);
597: hr_utility.trace('Set Value');
598: end if;
599: cnt := cnt + 1;
600: end loop;

Line 639: if pay_mag_tape.internal_cxt_names(chk_cxt) =

635: if str = 'C' then -- then search context table
636: found := FALSE; -- for an existing entry for
637: chk_cxt := 1; -- this context.
638: while chk_cxt <= cxt_cnt loop
639: if pay_mag_tape.internal_cxt_names(chk_cxt) =
640: con_str then
641: found := TRUE;
642: end if;
643: chk_cxt := chk_cxt + 1;

Line 647: pay_mag_tape.internal_cxt_names(cxt_cnt) :=

643: chk_cxt := chk_cxt + 1;
644: end loop;
645: if not found then -- If there was no entry for
646: cxt_cnt := cxt_cnt + 1; -- the context then enter one.
647: pay_mag_tape.internal_cxt_names(cxt_cnt) :=
648: substr(ret_vals(cnt),
649: 0, pos - 1);
650: pay_mag_tape.internal_cxt_values(cxt_cnt) := ret_vals(cnt +
651: 1);

Line 650: pay_mag_tape.internal_cxt_values(cxt_cnt) := ret_vals(cnt +

646: cxt_cnt := cxt_cnt + 1; -- the context then enter one.
647: pay_mag_tape.internal_cxt_names(cxt_cnt) :=
648: substr(ret_vals(cnt),
649: 0, pos - 1);
650: pay_mag_tape.internal_cxt_values(cxt_cnt) := ret_vals(cnt +
651: 1);
652: -- Bug 259276. Fix between the two following lines
653: -- Problem with using the to_char fuction within the dynamically called
654: -- cursors.

Line 658: -- if pay_mag_tape.internal_cxt_names(cxt_cnt) like 'DATE%'

654: -- cursors.
655: -- This code is now redundant as the value of the date context is
656: -- already in canonical form.
657: -- ---------------------------------------------------------------------------
658: -- if pay_mag_tape.internal_cxt_names(cxt_cnt) like 'DATE%'
659: -- then
660: -- pay_mag_tape.internal_cxt_values(cxt_cnt) :=
661: -- to_char(to_date(pay_mag_tape.internal_cxt_values(cxt_cnt), 'YYYY/MM/DD'),
662: -- 'YYYY/MM/DD');

Line 660: -- pay_mag_tape.internal_cxt_values(cxt_cnt) :=

656: -- already in canonical form.
657: -- ---------------------------------------------------------------------------
658: -- if pay_mag_tape.internal_cxt_names(cxt_cnt) like 'DATE%'
659: -- then
660: -- pay_mag_tape.internal_cxt_values(cxt_cnt) :=
661: -- to_char(to_date(pay_mag_tape.internal_cxt_values(cxt_cnt), 'YYYY/MM/DD'),
662: -- 'YYYY/MM/DD');
663: -- end if;
664: -- --------------------------------------------------------------------------

Line 661: -- to_char(to_date(pay_mag_tape.internal_cxt_values(cxt_cnt), 'YYYY/MM/DD'),

657: -- ---------------------------------------------------------------------------
658: -- if pay_mag_tape.internal_cxt_names(cxt_cnt) like 'DATE%'
659: -- then
660: -- pay_mag_tape.internal_cxt_values(cxt_cnt) :=
661: -- to_char(to_date(pay_mag_tape.internal_cxt_values(cxt_cnt), 'YYYY/MM/DD'),
662: -- 'YYYY/MM/DD');
663: -- end if;
664: -- --------------------------------------------------------------------------
665: end if;

Line 681: while prm_cnt <= pay_mag_tape.internal_prm_values(1) loop

677: con_str := substr(ret_vals(cnt),0, pos - 1);
678: if str = 'P' then
679: found := FALSE;
680: prm_cnt := 1;
681: while prm_cnt <= pay_mag_tape.internal_prm_values(1) loop
682: if pay_mag_tape.internal_prm_names(prm_cnt) = con_str then
683: found := TRUE;
684: cnt := cnt + 1;
685: pay_mag_tape.internal_prm_values(prm_cnt) :=

Line 682: if pay_mag_tape.internal_prm_names(prm_cnt) = con_str then

678: if str = 'P' then
679: found := FALSE;
680: prm_cnt := 1;
681: while prm_cnt <= pay_mag_tape.internal_prm_values(1) loop
682: if pay_mag_tape.internal_prm_names(prm_cnt) = con_str then
683: found := TRUE;
684: cnt := cnt + 1;
685: pay_mag_tape.internal_prm_values(prm_cnt) :=
686: ret_vals(cnt);

Line 685: pay_mag_tape.internal_prm_values(prm_cnt) :=

681: while prm_cnt <= pay_mag_tape.internal_prm_values(1) loop
682: if pay_mag_tape.internal_prm_names(prm_cnt) = con_str then
683: found := TRUE;
684: cnt := cnt + 1;
685: pay_mag_tape.internal_prm_values(prm_cnt) :=
686: ret_vals(cnt);
687: end if;
688: prm_cnt := prm_cnt + 1;
689: end loop;

Line 691: pay_mag_tape.internal_prm_names(prm_cnt) := con_str;

687: end if;
688: prm_cnt := prm_cnt + 1;
689: end loop;
690: if not found then -- Add new parameter to table
691: pay_mag_tape.internal_prm_names(prm_cnt) := con_str;
692: cnt := cnt + 1;
693: pay_mag_tape.internal_prm_values(prm_cnt) :=
694: ret_vals(cnt);
695: pay_mag_tape.internal_prm_values(1) := prm_cnt;

Line 693: pay_mag_tape.internal_prm_values(prm_cnt) :=

689: end loop;
690: if not found then -- Add new parameter to table
691: pay_mag_tape.internal_prm_names(prm_cnt) := con_str;
692: cnt := cnt + 1;
693: pay_mag_tape.internal_prm_values(prm_cnt) :=
694: ret_vals(cnt);
695: pay_mag_tape.internal_prm_values(1) := prm_cnt;
696: end if;
697: end if;

Line 695: pay_mag_tape.internal_prm_values(1) := prm_cnt;

691: pay_mag_tape.internal_prm_names(prm_cnt) := con_str;
692: cnt := cnt + 1;
693: pay_mag_tape.internal_prm_values(prm_cnt) :=
694: ret_vals(cnt);
695: pay_mag_tape.internal_prm_values(1) := prm_cnt;
696: end if;
697: end if;
698: end if;
699: cnt := cnt + 1;

Line 702: xml_cnt := pay_mag_tape.internal_xml_values(1);

698: end if;
699: cnt := cnt + 1;
700: end loop;
701: cnt := return_arr_offset + 1; -- Search the returns
702: xml_cnt := pay_mag_tape.internal_xml_values(1);
703: while cnt <= return_num + return_arr_offset loop -- table for the new
704: pos := instr(ret_vals(cnt), '='); -- parameter values
705: if pos <> 0 then
706: str := substr(ret_vals(cnt),

Line 710: xml_cnt := pay_mag_tape.internal_xml_values(1)+1;

706: str := substr(ret_vals(cnt),
707: pos + 1, pos + 2);
708: con_str := substr(ret_vals(cnt),0, pos - 1);
709: if str = 'X' then
710: xml_cnt := pay_mag_tape.internal_xml_values(1)+1;
711: pay_mag_tape.internal_xml_names(xml_cnt) := con_str;
712: cnt := cnt + 1;
713: pay_mag_tape.internal_xml_values(xml_cnt) :=
714: ret_vals(cnt);

Line 711: pay_mag_tape.internal_xml_names(xml_cnt) := con_str;

707: pos + 1, pos + 2);
708: con_str := substr(ret_vals(cnt),0, pos - 1);
709: if str = 'X' then
710: xml_cnt := pay_mag_tape.internal_xml_values(1)+1;
711: pay_mag_tape.internal_xml_names(xml_cnt) := con_str;
712: cnt := cnt + 1;
713: pay_mag_tape.internal_xml_values(xml_cnt) :=
714: ret_vals(cnt);
715: xml_cnt := pay_mag_tape.internal_xml_values(1)+2;

Line 713: pay_mag_tape.internal_xml_values(xml_cnt) :=

709: if str = 'X' then
710: xml_cnt := pay_mag_tape.internal_xml_values(1)+1;
711: pay_mag_tape.internal_xml_names(xml_cnt) := con_str;
712: cnt := cnt + 1;
713: pay_mag_tape.internal_xml_values(xml_cnt) :=
714: ret_vals(cnt);
715: xml_cnt := pay_mag_tape.internal_xml_values(1)+2;
716: pay_mag_tape.internal_xml_names(xml_cnt) := '/'||con_str;
717: pay_mag_tape.internal_xml_values(1) := xml_cnt;

Line 715: xml_cnt := pay_mag_tape.internal_xml_values(1)+2;

711: pay_mag_tape.internal_xml_names(xml_cnt) := con_str;
712: cnt := cnt + 1;
713: pay_mag_tape.internal_xml_values(xml_cnt) :=
714: ret_vals(cnt);
715: xml_cnt := pay_mag_tape.internal_xml_values(1)+2;
716: pay_mag_tape.internal_xml_names(xml_cnt) := '/'||con_str;
717: pay_mag_tape.internal_xml_values(1) := xml_cnt;
718: end if;
719: end if;

Line 716: pay_mag_tape.internal_xml_names(xml_cnt) := '/'||con_str;

712: cnt := cnt + 1;
713: pay_mag_tape.internal_xml_values(xml_cnt) :=
714: ret_vals(cnt);
715: xml_cnt := pay_mag_tape.internal_xml_values(1)+2;
716: pay_mag_tape.internal_xml_names(xml_cnt) := '/'||con_str;
717: pay_mag_tape.internal_xml_values(1) := xml_cnt;
718: end if;
719: end if;
720: cnt := cnt + 1;

Line 717: pay_mag_tape.internal_xml_values(1) := xml_cnt;

713: pay_mag_tape.internal_xml_values(xml_cnt) :=
714: ret_vals(cnt);
715: xml_cnt := pay_mag_tape.internal_xml_values(1)+2;
716: pay_mag_tape.internal_xml_names(xml_cnt) := '/'||con_str;
717: pay_mag_tape.internal_xml_values(1) := xml_cnt;
718: end if;
719: end if;
720: cnt := cnt + 1;
721: end loop;

Line 724: pay_mag_tape.internal_cxt_values(1) := cxt_cnt;

720: cnt := cnt + 1;
721: end loop;
722: --
723: -- Set up the formula id and context count
724: pay_mag_tape.internal_cxt_values(1) := cxt_cnt;
725: pay_mag_tape.internal_xml_values(1) := xml_cnt;
726: pay_mag_tape.internal_prm_values(2) := formula_id;
727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;
728: int_prm_names := pay_mag_tape.internal_prm_names;

Line 725: pay_mag_tape.internal_xml_values(1) := xml_cnt;

721: end loop;
722: --
723: -- Set up the formula id and context count
724: pay_mag_tape.internal_cxt_values(1) := cxt_cnt;
725: pay_mag_tape.internal_xml_values(1) := xml_cnt;
726: pay_mag_tape.internal_prm_values(2) := formula_id;
727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;
728: int_prm_names := pay_mag_tape.internal_prm_names;
729: int_prm_values := pay_mag_tape.internal_prm_values;

Line 726: pay_mag_tape.internal_prm_values(2) := formula_id;

722: --
723: -- Set up the formula id and context count
724: pay_mag_tape.internal_cxt_values(1) := cxt_cnt;
725: pay_mag_tape.internal_xml_values(1) := xml_cnt;
726: pay_mag_tape.internal_prm_values(2) := formula_id;
727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;
728: int_prm_names := pay_mag_tape.internal_prm_names;
729: int_prm_values := pay_mag_tape.internal_prm_values;
730: if (nvl(formula_action_level, 'N') = 'A') then

Line 727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;

723: -- Set up the formula id and context count
724: pay_mag_tape.internal_cxt_values(1) := cxt_cnt;
725: pay_mag_tape.internal_xml_values(1) := xml_cnt;
726: pay_mag_tape.internal_prm_values(2) := formula_id;
727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;
728: int_prm_names := pay_mag_tape.internal_prm_names;
729: int_prm_values := pay_mag_tape.internal_prm_values;
730: if (nvl(formula_action_level, 'N') = 'A') then
731: process_action_rec := 'Y';

Line 728: int_prm_names := pay_mag_tape.internal_prm_names;

724: pay_mag_tape.internal_cxt_values(1) := cxt_cnt;
725: pay_mag_tape.internal_xml_values(1) := xml_cnt;
726: pay_mag_tape.internal_prm_values(2) := formula_id;
727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;
728: int_prm_names := pay_mag_tape.internal_prm_names;
729: int_prm_values := pay_mag_tape.internal_prm_values;
730: if (nvl(formula_action_level, 'N') = 'A') then
731: process_action_rec := 'Y';
732: else

Line 729: int_prm_values := pay_mag_tape.internal_prm_values;

725: pay_mag_tape.internal_xml_values(1) := xml_cnt;
726: pay_mag_tape.internal_prm_values(2) := formula_id;
727: pay_mag_tape.internal_xml_values(2) := xml_proc_name;
728: int_prm_names := pay_mag_tape.internal_prm_names;
729: int_prm_values := pay_mag_tape.internal_prm_values;
730: if (nvl(formula_action_level, 'N') = 'A') then
731: process_action_rec := 'Y';
732: else
733: process_action_rec := 'N';

Line 746: int_prm_names := pay_mag_tape.internal_prm_names;

742: if g_debug then
743: hr_utility.trace('Entering pay_magtape_generic.new_formula');
744: end if;
745: -- First run through setup report details
746: int_prm_names := pay_mag_tape.internal_prm_names;
747: int_prm_values := pay_mag_tape.internal_prm_values;
748: if level_no = 0 then
749: g_debug := hr_utility.debug_enabled;
750: set_report_id;

Line 747: int_prm_values := pay_mag_tape.internal_prm_values;

743: hr_utility.trace('Entering pay_magtape_generic.new_formula');
744: end if;
745: -- First run through setup report details
746: int_prm_names := pay_mag_tape.internal_prm_names;
747: int_prm_values := pay_mag_tape.internal_prm_values;
748: if level_no = 0 then
749: g_debug := hr_utility.debug_enabled;
750: set_report_id;
751: level_no := 1;

Line 761: prm_cnt :=pay_mag_tape.internal_prm_values(1)+1;

757: and report_format = report_id;
758:
759: hr_utility.trace(curs(1)||'..'||to_char(column_num(1))||'..'||to_char(block_id(1)));
760:
761: prm_cnt :=pay_mag_tape.internal_prm_values(1)+1;
762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';
763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';

Line 762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';

758:
759: hr_utility.trace(curs(1)||'..'||to_char(column_num(1))||'..'||to_char(block_id(1)));
760:
761: prm_cnt :=pay_mag_tape.internal_prm_values(1)+1;
762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';
763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;

Line 763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);

759: hr_utility.trace(curs(1)||'..'||to_char(column_num(1))||'..'||to_char(block_id(1)));
760:
761: prm_cnt :=pay_mag_tape.internal_prm_values(1)+1;
762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';
763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;
767: int_prm_names := pay_mag_tape.internal_prm_names;

Line 764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;

760:
761: prm_cnt :=pay_mag_tape.internal_prm_values(1)+1;
762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';
763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;
767: int_prm_names := pay_mag_tape.internal_prm_names;
768: int_prm_values := pay_mag_tape.internal_prm_values;

Line 765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';

761: prm_cnt :=pay_mag_tape.internal_prm_values(1)+1;
762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';
763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;
767: int_prm_names := pay_mag_tape.internal_prm_names;
768: int_prm_values := pay_mag_tape.internal_prm_values;
769:

Line 766: pay_mag_tape.internal_prm_values(1):=prm_cnt;

762: pay_mag_tape.internal_prm_names(prm_cnt) :='magnetic_block_id';
763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;
767: int_prm_names := pay_mag_tape.internal_prm_names;
768: int_prm_values := pay_mag_tape.internal_prm_values;
769:
770: end if;

Line 767: int_prm_names := pay_mag_tape.internal_prm_names;

763: pay_mag_tape.internal_prm_values(prm_cnt):=block_id(1);
764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;
767: int_prm_names := pay_mag_tape.internal_prm_names;
768: int_prm_values := pay_mag_tape.internal_prm_values;
769:
770: end if;
771: if formula_block_label is not null

Line 768: int_prm_values := pay_mag_tape.internal_prm_values;

764: prm_cnt :=pay_mag_tape.internal_prm_values(1)+2;
765: pay_mag_tape.internal_prm_names(prm_cnt) :='rec_sequence';
766: pay_mag_tape.internal_prm_values(1):=prm_cnt;
767: int_prm_names := pay_mag_tape.internal_prm_names;
768: int_prm_values := pay_mag_tape.internal_prm_values;
769:
770: end if;
771: if formula_block_label is not null
772: then

Line 773: pay_mag_tape.internal_xml_names(2) := formula_block_label;

769:
770: end if;
771: if formula_block_label is not null
772: then
773: pay_mag_tape.internal_xml_names(2) := formula_block_label;
774: pay_mag_tape.internal_xml_values(1) := 2;
775: end if;
776: -- The previous formula requests a new
777: -- block to be set up

Line 774: pay_mag_tape.internal_xml_values(1) := 2;

770: end if;
771: if formula_block_label is not null
772: then
773: pay_mag_tape.internal_xml_names(2) := formula_block_label;
774: pay_mag_tape.internal_xml_values(1) := 2;
775: end if;
776: -- The previous formula requests a new
777: -- block to be set up
778: if formula_next_block is not null then

Line 788: while (pay_mag_tape.internal_prm_names(i) <>'magnetic_block_id')

784: where magnetic_block_id = formula_next_block
785: and report_format = report_id;
786: hr_utility.trace(to_char(level_no)||'..'||curs(level_no)||'..'||to_char(column_num(level_no))||'..'||to_char(block_id(level_no)));
787: i:=1;
788: while (pay_mag_tape.internal_prm_names(i) <>'magnetic_block_id')
789: loop
790: i:=i+1;
791: end loop;
792: pay_mag_tape.internal_prm_values(i):=block_id(level_no);

Line 792: pay_mag_tape.internal_prm_values(i):=block_id(level_no);

788: while (pay_mag_tape.internal_prm_names(i) <>'magnetic_block_id')
789: loop
790: i:=i+1;
791: end loop;
792: pay_mag_tape.internal_prm_values(i):=block_id(level_no);
793: int_prm_values := pay_mag_tape.internal_prm_values;
794: end if;
795: found := FALSE;
796: --

Line 793: int_prm_values := pay_mag_tape.internal_prm_values;

789: loop
790: i:=i+1;
791: end loop;
792: pay_mag_tape.internal_prm_values(i):=block_id(level_no);
793: int_prm_values := pay_mag_tape.internal_prm_values;
794: end if;
795: found := FALSE;
796: --
797: -- Is formula an overflow repeat and is the overflow formula requested to run

Line 848: cnt :=pay_mag_tape.internal_xml_values(1)-1;

844: if (level_no >1) then
845: dbms_sql.column_value(formulas(level_no-1), 7,
846: temp_formula_block_label);
847: /* if (no_rows=0 and temp_formula_block_label is not NULL) then
848: cnt :=pay_mag_tape.internal_xml_values(1)-1;
849: pay_mag_tape.internal_xml_values(1) := cnt;
850: els*/if (temp_formula_block_label is not NULL) then
851: cnt :=pay_mag_tape.internal_xml_values(1)+1;
852: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_label;

Line 849: pay_mag_tape.internal_xml_values(1) := cnt;

845: dbms_sql.column_value(formulas(level_no-1), 7,
846: temp_formula_block_label);
847: /* if (no_rows=0 and temp_formula_block_label is not NULL) then
848: cnt :=pay_mag_tape.internal_xml_values(1)-1;
849: pay_mag_tape.internal_xml_values(1) := cnt;
850: els*/if (temp_formula_block_label is not NULL) then
851: cnt :=pay_mag_tape.internal_xml_values(1)+1;
852: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_label;
853: pay_mag_tape.internal_xml_values(1) := cnt;

Line 851: cnt :=pay_mag_tape.internal_xml_values(1)+1;

847: /* if (no_rows=0 and temp_formula_block_label is not NULL) then
848: cnt :=pay_mag_tape.internal_xml_values(1)-1;
849: pay_mag_tape.internal_xml_values(1) := cnt;
850: els*/if (temp_formula_block_label is not NULL) then
851: cnt :=pay_mag_tape.internal_xml_values(1)+1;
852: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_label;
853: pay_mag_tape.internal_xml_values(1) := cnt;
854: end if;
855: end if;

Line 852: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_label;

848: cnt :=pay_mag_tape.internal_xml_values(1)-1;
849: pay_mag_tape.internal_xml_values(1) := cnt;
850: els*/if (temp_formula_block_label is not NULL) then
851: cnt :=pay_mag_tape.internal_xml_values(1)+1;
852: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_label;
853: pay_mag_tape.internal_xml_values(1) := cnt;
854: end if;
855: end if;
856: end if;

Line 853: pay_mag_tape.internal_xml_values(1) := cnt;

849: pay_mag_tape.internal_xml_values(1) := cnt;
850: els*/if (temp_formula_block_label is not NULL) then
851: cnt :=pay_mag_tape.internal_xml_values(1)+1;
852: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_label;
853: pay_mag_tape.internal_xml_values(1) := cnt;
854: end if;
855: end if;
856: end if;
857: curs_close(curs(level_no));

Line 895: while (pay_mag_tape.internal_prm_names(i) <>'rec_sequence')

891: dbms_sql.column_value(formulas(level_no), 10, rec_sequence);
892:
893: -- set up mgnetic record id a s a paramter
894: i:=1;
895: while (pay_mag_tape.internal_prm_names(i) <>'rec_sequence')
896: loop
897: i:=i+1;
898: end loop;
899: pay_mag_tape.internal_prm_values(i):=rec_sequence;

Line 899: pay_mag_tape.internal_prm_values(i):=rec_sequence;

895: while (pay_mag_tape.internal_prm_names(i) <>'rec_sequence')
896: loop
897: i:=i+1;
898: end loop;
899: pay_mag_tape.internal_prm_values(i):=rec_sequence;
900: int_prm_values := pay_mag_tape.internal_prm_values;
901:
902: --
903: -- Is formula an overflow and is the overflow formula requested to run

Line 900: int_prm_values := pay_mag_tape.internal_prm_values;

896: loop
897: i:=i+1;
898: end loop;
899: pay_mag_tape.internal_prm_values(i):=rec_sequence;
900: int_prm_values := pay_mag_tape.internal_prm_values;
901:
902: --
903: -- Is formula an overflow and is the overflow formula requested to run
904: --

Line 958: cnt :=pay_mag_tape.internal_xml_values(1)+1;

954: dbms_sql.column_value(formulas(level_no-1), 8, temp_formula_block_row_label);
955: if (cur_fetch=TRUE and temp_formula_block_row_label is not null)
956: then
957: hr_utility.trace(to_char(cnt)||temp_formula_block_row_label);
958: cnt :=pay_mag_tape.internal_xml_values(1)+1;
959: pay_mag_tape.internal_xml_names(cnt) := temp_formula_block_row_label;
960: pay_mag_tape.internal_xml_values(1) := cnt;
961: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));

Line 959: pay_mag_tape.internal_xml_names(cnt) := temp_formula_block_row_label;

955: if (cur_fetch=TRUE and temp_formula_block_row_label is not null)
956: then
957: hr_utility.trace(to_char(cnt)||temp_formula_block_row_label);
958: cnt :=pay_mag_tape.internal_xml_values(1)+1;
959: pay_mag_tape.internal_xml_names(cnt) := temp_formula_block_row_label;
960: pay_mag_tape.internal_xml_values(1) := cnt;
961: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));
963: cnt :=pay_mag_tape.internal_xml_values(1)+1;

Line 960: pay_mag_tape.internal_xml_values(1) := cnt;

956: then
957: hr_utility.trace(to_char(cnt)||temp_formula_block_row_label);
958: cnt :=pay_mag_tape.internal_xml_values(1)+1;
959: pay_mag_tape.internal_xml_names(cnt) := temp_formula_block_row_label;
960: pay_mag_tape.internal_xml_values(1) := cnt;
961: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));
963: cnt :=pay_mag_tape.internal_xml_values(1)+1;
964: hr_utility.trace(to_char(cnt));

Line 962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));

958: cnt :=pay_mag_tape.internal_xml_values(1)+1;
959: pay_mag_tape.internal_xml_names(cnt) := temp_formula_block_row_label;
960: pay_mag_tape.internal_xml_values(1) := cnt;
961: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));
963: cnt :=pay_mag_tape.internal_xml_values(1)+1;
964: hr_utility.trace(to_char(cnt));
965: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_row_label;
966: pay_mag_tape.internal_xml_values(1) := cnt;

Line 963: cnt :=pay_mag_tape.internal_xml_values(1)+1;

959: pay_mag_tape.internal_xml_names(cnt) := temp_formula_block_row_label;
960: pay_mag_tape.internal_xml_values(1) := cnt;
961: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));
963: cnt :=pay_mag_tape.internal_xml_values(1)+1;
964: hr_utility.trace(to_char(cnt));
965: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_row_label;
966: pay_mag_tape.internal_xml_values(1) := cnt;
967: elsif (cur_fetch=TRUE) then

Line 965: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_row_label;

961: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));
963: cnt :=pay_mag_tape.internal_xml_values(1)+1;
964: hr_utility.trace(to_char(cnt));
965: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_row_label;
966: pay_mag_tape.internal_xml_values(1) := cnt;
967: elsif (cur_fetch=TRUE) then
968: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
969: end if;

Line 966: pay_mag_tape.internal_xml_values(1) := cnt;

962: hr_utility.trace(to_char(cnt)||'..'||pay_mag_tape.internal_xml_values(1));
963: cnt :=pay_mag_tape.internal_xml_values(1)+1;
964: hr_utility.trace(to_char(cnt));
965: pay_mag_tape.internal_xml_names(cnt) := '/'||temp_formula_block_row_label;
966: pay_mag_tape.internal_xml_values(1) := cnt;
967: elsif (cur_fetch=TRUE) then
968: setup_return_values(formula_id,xml_proc_name, column_num(level_no));
969: end if;
970: elsif (cur_fetch=TRUE) then