[Home] [Help]
PACKAGE BODY: APPS.PAY_KR_YEA_REPORTS_PKG
Source
1 package body pay_kr_yea_reports_pkg as
2 /* $Header: pykryearept.pkb 120.2.12000000.1 2007/02/09 05:46:11 viagarwa noship $ */
3 --------------------------------------------------------------------------------
4 function submit_yea_report (
5 p_bus_grp_id number,
6 p_bus_plc_id number,
7 p_year varchar2,
8 p_asg_id number,
9 p_assact_id number,
10 p_report_name varchar2
11 ) return number
12 is
13 --
14 l_request_id number ;
15 --
16 begin
17 --
18 l_request_id := fnd_request.submit_request(
19 application => 'PAY',
20 program => 'PAYKRYEA_XDO',
21 description => 'Submit KR YEA Reports (XDO)',
22 argument1 => p_bus_grp_id,
23 argument2 => p_bus_plc_id,
24 argument3 => p_year,
25 argument4 => p_asg_id,
26 argument5 => p_assact_id,
27 argument6 => p_report_name
28 ) ;
29
30 -- Check the status
31 if l_request_id <> 0 then
32 commit;
33 end if;
34 --
35 return l_request_id;
36 end submit_yea_report ;
37 --------------------------------------------------------------------------------
38 function submit_xml_report (
39 p_bus_grp_id in number,
40 p_bus_plc_id in number,
41 p_year in varchar2,
42 p_asg_id in number,
43 p_assact_id in number,
44 p_report_name in varchar2
45 ) return number
46 is
47 /* Bug # 5563442 Date passed in the wrong format - Changing l_report_date datatype to VARCHAR2 */
48 --
49 l_report_date varchar2(20);
50 --
51 l_request_id number ;
52 l_phase varchar2(100);
53 l_status varchar2(100);
54 l_dev_status varchar2(100);
55 l_dev_phase varchar2(100);
56 l_message varchar2(2000);
57 l_action_completed boolean;
58 --
59 begin
60 --
61 /* Bug # 5563442 Date passed in the wrong format - Passing l_report_date in Canonical form */
62 --
63 l_report_date := fnd_date.date_to_canonical(to_date('3112'||p_year, 'DDMMYYYY')) ;
64 --
65
66 -- Submit the appropriate report by looking at p_report_name
67 if p_report_name = 'PAYKRYRS' then -- Submit YEA Reclaim Sheet
68 l_request_id := fnd_request.submit_request(
69 application => 'PAY',
70 program => 'PAYKRYRS_XML',
71 description => 'KR Year End Adjustment Reclaim Sheet - XML',
72 argument1 => p_bus_grp_id,
73 argument2 => p_bus_plc_id,
74 argument3 => p_year,
75 argument4 => p_asg_id
76 );
77 elsif p_report_name = 'PAYKRYLG' then -- Submit YEA Ledger
78 l_request_id := fnd_request.submit_request(
79 application => 'PAY',
80 program => 'PAYKRYLG_XML',
81 description => 'KR Year End Adjustment Ledger - XML',
82 argument1 => p_bus_plc_id,
83 argument2 => p_asg_id,
84 argument3 => p_assact_id,
85 argument4 => l_report_date
86 );
87 elsif p_report_name = 'PAYKRYTR' then -- Submit YEA Tax Receipt
88 l_request_id := fnd_request.submit_request(
89 application => 'PAY',
90 program => 'PAYKRYTR_XML',
91 description => 'KR Year End Adjustment Tax Receipt - XML',
92 argument1 => p_bus_plc_id,
93 argument2 => p_asg_id,
94 argument3 => p_assact_id,
95 argument4 => l_report_date,
96 argument5 => 'R',
97 argument6 => 'EK'
98 );
99 end if ;
100
101 -- Check the status
102 if l_request_id <> 0 then
103 -- Save the request and wait for completion
104 commit;
105 l_dev_phase := 'dummy';
106 while (l_dev_phase <> 'COMPLETE') loop
107 l_action_completed := fnd_concurrent.wait_for_request(
108 request_id => l_request_id,
109 interval => 1,
110 max_wait => 10,
111 phase => l_phase,
112 status => l_status,
113 dev_phase => l_dev_phase,
114 dev_status => l_dev_status,
115 message => l_message
116 );
117 end loop;
118 end if;
119
120 return l_request_id;
121 end submit_xml_report ;
122 --------------------------------------------------------------------------------
123 end pay_kr_yea_reports_pkg ;