20: l_proc varchar2(61) := c_package || 'show_formula_queue';
21: --
22: l_index number;
23: begin
24: hr_utility.set_location('Entering : ' || l_proc, 10);
25: --
26: l_index := g_formula_queue.first;
27: while l_index is not null loop
28: hr_utility.trace('formula : ' || to_char(l_index, 99) || ' : ' || to_char(g_formula_queue(l_index)));
24: hr_utility.set_location('Entering : ' || l_proc, 10);
25: --
26: l_index := g_formula_queue.first;
27: while l_index is not null loop
28: hr_utility.trace('formula : ' || to_char(l_index, 99) || ' : ' || to_char(g_formula_queue(l_index)));
29: l_index := g_formula_queue.next(l_index);
30: end loop;
31: --
32: hr_utility.set_location('Leaving : ' || l_proc, 20);
28: hr_utility.trace('formula : ' || to_char(l_index, 99) || ' : ' || to_char(g_formula_queue(l_index)));
29: l_index := g_formula_queue.next(l_index);
30: end loop;
31: --
32: hr_utility.set_location('Leaving : ' || l_proc, 20);
33: end show_formula_queue;
34: -- ----------------------------------------------------------------------------
35: -- |---------------------------< enqueue_formula >----------------------------|
36: -- ----------------------------------------------------------------------------
72: procedure show_contexts
73: is
74: l_proc varchar2(61) := c_package || 'show_contexts';
75: begin
76: hr_utility.set_location('Entering : ' || l_proc, 10);
77: --
78: for i in 1..pay_mag_tape.internal_cxt_names.count loop
79: hr_utility.trace('context : ' || to_char(i, 99) || ' : ' || rpad(pay_mag_tape.internal_cxt_names(i), 30, ' ') || ' : ' || pay_mag_tape.internal_cxt_values(i));
80: end loop;
75: begin
76: hr_utility.set_location('Entering : ' || l_proc, 10);
77: --
78: for i in 1..pay_mag_tape.internal_cxt_names.count loop
79: hr_utility.trace('context : ' || to_char(i, 99) || ' : ' || rpad(pay_mag_tape.internal_cxt_names(i), 30, ' ') || ' : ' || pay_mag_tape.internal_cxt_values(i));
80: end loop;
81: --
82: hr_utility.set_location('Leaving : ' || l_proc, 20);
83: end show_contexts;
78: for i in 1..pay_mag_tape.internal_cxt_names.count loop
79: hr_utility.trace('context : ' || to_char(i, 99) || ' : ' || rpad(pay_mag_tape.internal_cxt_names(i), 30, ' ') || ' : ' || pay_mag_tape.internal_cxt_values(i));
80: end loop;
81: --
82: hr_utility.set_location('Leaving : ' || l_proc, 20);
83: end show_contexts;
84: -- ----------------------------------------------------------------------------
85: -- |----------------------------< clear_contexts >----------------------------|
86: -- ----------------------------------------------------------------------------
163: procedure show_parameters
164: is
165: l_proc varchar2(61) := c_package || 'show_parameters';
166: begin
167: hr_utility.set_location('Entering : ' || l_proc, 10);
168: --
169: for i in 1..pay_mag_tape.internal_prm_names.count loop
170: hr_utility.trace('parameter : ' || to_char(i, 99) || ' : ' || rpad(pay_mag_tape.internal_prm_names(i), 60, ' ') || ' : "' || pay_mag_tape.internal_prm_values(i) || '"');
171: end loop;
166: begin
167: hr_utility.set_location('Entering : ' || l_proc, 10);
168: --
169: for i in 1..pay_mag_tape.internal_prm_names.count loop
170: hr_utility.trace('parameter : ' || to_char(i, 99) || ' : ' || rpad(pay_mag_tape.internal_prm_names(i), 60, ' ') || ' : "' || pay_mag_tape.internal_prm_values(i) || '"');
171: end loop;
172: --
173: hr_utility.set_location('Leaving : ' || l_proc, 20);
174: end show_parameters;
169: for i in 1..pay_mag_tape.internal_prm_names.count loop
170: hr_utility.trace('parameter : ' || to_char(i, 99) || ' : ' || rpad(pay_mag_tape.internal_prm_names(i), 60, ' ') || ' : "' || pay_mag_tape.internal_prm_values(i) || '"');
171: end loop;
172: --
173: hr_utility.set_location('Leaving : ' || l_proc, 20);
174: end show_parameters;
175: -- ----------------------------------------------------------------------------
176: -- |----------------------------< get_parameter >-----------------------------|
177: -- ----------------------------------------------------------------------------