[Home] [Help]
645: hr_utility.set_location('Leaving '|| l_proc, 999);
646: hr_utility.set_location(sqlerrm,9999);
647: hr_utility.raise_error;
648: end dyn_sql;
649: -------------------------------Procedure pay_message_lines ---------------------------
650: -- Procedure to insert error messages to pay_message_lines
651: -- pragma autonomous_transaction is used here to isolate this transaction from
652: -- the parent this is done to retain the error messages in the table even if
653: -- the program errors and the process is rolled back
646: hr_utility.set_location(sqlerrm,9999);
647: hr_utility.raise_error;
648: end dyn_sql;
649: -------------------------------Procedure pay_message_lines ---------------------------
650: -- Procedure to insert error messages to pay_message_lines
651: -- pragma autonomous_transaction is used here to isolate this transaction from
652: -- the parent this is done to retain the error messages in the table even if
653: -- the program errors and the process is rolled back
654: procedure populate_run_msg(assignment_action_id in number
660: l_proc constant varchar2(50):= g_package||'populate_run_msg';
661: begin
662: hr_utility.set_location(' Entering:'||l_proc,111);
663:
664: insert into pay_message_lines(line_sequence,
665: payroll_id,
666: message_level,
667: source_id,
668: source_type,
667: source_id,
668: source_type,
669: line_text)
670: values(
671: pay_message_lines_s.nextval
672: ,null
673: ,p_message_level
674: ,assignment_action_id
675: ,'A'
1458: l_hlta_status := nvl(l_hlta_status,l_swf_def_values_rec.hlta_sts);
1459:
1460: -- Validation starts
1461: -- the numbers in the comment denotes the validation numbers in SWF tech spec
1462: -- If any error occurs, insert into pay_message_lines with the procedure
1463: -- populate_run_msg.
1464:
1465: -- 4100
1466: if l_qt_status = 'Yes' and l_teachers_number is null then
4283: and paf.assignment_id = paa.assignment_id
4284: and peo.person_id = paf.person_id
4285: and max_eff_date.assignment_id = paf.assignment_id
4286: and exists (select 'X'
4287: from pay_message_lines pml
4288: where paa.assignment_action_id = pml.source_id)
4289: and max_eff_date.effective_date between paf.effective_start_date and paf.effective_end_date
4290: and max_eff_date.effective_date between peo.effective_start_date and peo.effective_end_date;
4291:
4291:
4292:
4293: cursor messages (p_asg_act_id in number) is
4294: select pml.line_text error_text
4295: from pay_message_lines pml
4296: where pml.source_id = p_asg_act_id
4297: and pml.MESSAGE_LEVEL = 'F'
4298: and pml.line_sequence < (select line_sequence
4299: from pay_message_lines pml1
4295: from pay_message_lines pml
4296: where pml.source_id = p_asg_act_id
4297: and pml.MESSAGE_LEVEL = 'F'
4298: and pml.line_sequence < (select line_sequence
4299: from pay_message_lines pml1
4300: where pml1.source_id = p_asg_act_id
4301: and pml1.line_text like 'Error ORA-20001: Error(s) found while archiving data.')
4302: UNION ALL
4303: select pml.line_text error_text
4300: where pml1.source_id = p_asg_act_id
4301: and pml1.line_text like 'Error ORA-20001: Error(s) found while archiving data.')
4302: UNION ALL
4303: select pml.line_text error_text
4304: from pay_message_lines pml
4305: where pml.source_id = p_asg_act_id
4306: and pml.message_level = 'W';
4307:
4308:
4330: and paf.assignment_id = paa.assignment_id
4331: and peo.person_id = paf.person_id
4332: and max_eff_date.assignment_id = paf.assignment_id
4333: and not exists (select 'X'
4334: from pay_message_lines pml
4335: where paa.assignment_action_id = pml.source_id
4336: and message_level <> 'W')
4337: and max_eff_date.effective_date between paf.effective_start_date and paf.effective_end_date
4338: and max_eff_date.effective_date between peo.effective_start_date and peo.effective_end_date;