PACKAGE BODY: APPS.PAY_KR_YEA_DON_EFILE_CONC_PKG

Source

1 package body pay_kr_yea_don_efile_conc_pkg as
2 /*$Header: pykrydcon.pkb 120.1 2006/10/20 08:29:44 vaisriva noship $ */
3 
4 /*************************************************************************
5  * Procedure to submit e-file request indirectly
6  *************************************************************************/
7 
8 procedure submit_efile(
9 	errbuf			out nocopy  varchar2,
10 	retcode			out nocopy  varchar2,
11 	p_business_place	in varchar2,
12 	p_REPORT_FOR		in varchar2,		--5069923
13 	p_magnetic_file_name	in varchar2,
14 	p_report_file_name	in varchar2,
15 	p_payroll_action	in varchar2,
16 	p_assignment_set	in varchar2,
17 	p_report_type		in varchar2,
18 	p_reported_date		in varchar2,
19 	p_target_year		in varchar2,
20 	p_characterset		in varchar2,
21 	p_home_tax_id   	in varchar2,
22 	p_ORG_STRUC_VERSION_ID	in varchar2		--5069923
23 )
24 
25 is
26 
27 	l_req_id		number;
28 	l_message		varchar2(2000);
29 	l_phase			varchar2(100);
30 	l_status		varchar2(100);
31 	l_action_completed	boolean;
32 	l_bg_id			number;
33 
34 begin
35 	get_bg_id(p_business_place, l_bg_id) ;
36 	l_req_id := fnd_request.submit_request (
37 		APPLICATION           =>   'PAY',
38                 PROGRAM              =>   'PYKRYEAM_DON_I',
39 		DESCRIPTION          =>   'KR Year End Adjustment Donation eFile (Internal)',
40 		ARGUMENT1            =>   'pay_magtape_generic.new_formula',
41 		ARGUMENT2            =>    p_magnetic_file_name,
42 		ARGUMENT3            =>    p_report_file_name,
43 		ARGUMENT4            =>    null,
44 		ARGUMENT5            =>   'MAGTAPE_REPORT_ID=KR_YEA_DON_EFILE',
45 		ARGUMENT6            =>   'PRIMARY_BP_ID='     || p_business_place,
46 		ARGUMENT7            =>   'REPORTED_DATE='     || p_reported_date,
47 		ARGUMENT8            =>   'PAYROLL_ACTION_ID=' || p_payroll_action,
48 		ARGUMENT9            =>   'ASSIGNMENT_SET_ID=' || p_assignment_set,
49 		ARGUMENT10           =>   'REPORT_TYPE='       || p_report_type,
50 		ARGUMENT11           =>   'REPORT_DATE='       || p_reported_date,
51 		ARGUMENT12           =>   'TARGET_YEAR='       || p_target_year,
52 		ARGUMENT13           =>   'CHARACTER_SET='     || p_characterset,
53 		ARGUMENT14           =>   'HOME_TAX_ID='       || p_home_tax_id,
54 		ARGUMENT15           =>   'BG_ID='             || (l_bg_id),
55 		ARGUMENT16           =>   'REPORT_FOR='	       || p_REPORT_FOR,
56 		ARGUMENT17	     =>   'ORG_STRUC_VERSION_ID='	|| p_ORG_STRUC_VERSION_ID
57 	) ;
58 
59 	if (l_req_id = 0) then
60 		retcode := 2;
61 		fnd_message.retrieve(errbuf);
62 	else
63 		commit;
64 	end if;
65 
66 end submit_efile;
67 --------------------------------------------------------------------------------------------------
68 procedure get_bg_id(
69 	p_business_place 	in  varchar2,
70 	p_business_group_id	out nocopy number
71 )
72 is
73 
74 	cursor csr_business_group_id is
75 		select  hou.business_group_id
76 		from    hr_organization_units hou
77 		where  	hou.organization_id = p_business_place ;
78 begin
79 	open csr_business_group_id ;
80 	fetch csr_business_group_id into p_business_group_id ;
81 	close csr_business_group_id ;
82 end get_bg_id;
83 --------------------------------------------------------------------------------------------------
84 end pay_kr_yea_don_efile_conc_pkg ;