PACKAGE BODY: APPS.PAY_MAG_RESUBMIT

Source

1 package body pay_mag_resubmit as
2 /* $Header: pymagrdo.pkb 115.0 99/07/17 06:16:28 porting ship $ */
3 
4  procedure redo (     errbuf		    out varchar2,
5 		      retcode   	    out number,
6 		      p_payroll_action_id   in varchar2) is
7 
8  l_report_type		varchar2(240);
9  l_errbuf		varchar2(240);
10  l_retcode		number;
11 
12  begin
13 
14      	select ltrim(substr(legislative_parameters, 11,5))
15    	into  l_report_type
16      	from pay_payroll_actions
17      	where payroll_action_id = p_payroll_action_id;
18 
19         if (instr(l_report_type,'MWS',1,1) > 0)   /* MWS */
20 	then
21 		pay_mws_magtape_reporting.redo(l_errbuf,
22 					       l_retcode,
23 					       p_payroll_action_id);
24 
25         elsif (instr(l_report_type,'1099',1,1) > 0) /* 1099R */
26 	then
27 		pay_us_magtape_reporting.redo(l_errbuf,
28 					      l_retcode,
29 					      p_payroll_action_id);
30 
31 	else  /* W2 */
32 		pay_us_magtape_reporting.redo(l_errbuf,
33 					      l_retcode,
34 					      p_payroll_action_id);
35 	end if;
36 
37         errbuf := l_errbuf;
38 	retcode := l_retcode;
39 
40    exception
41 	when no_data_found then
42 	   errbuf := 'No Report for this payroll action id : ' ||
43 						p_payroll_action_id;
44 	   retcode := 2;
45 
46 	when others then
47 	   errbuf := 'ORA :' || to_char(sqlcode) || sqlerrm;
48 	   retcode := sqlcode;
49  end redo;
50 
51 
52 end pay_mag_resubmit;