[Home] [Help]
PACKAGE BODY: APPS.JGRX_C_WT
Source
1 PACKAGE BODY JGRX_C_WT AS
2 /* $Header: jgrxcwtb.pls 120.6 2006/02/02 04:24:50 apai ship $ */
3 /**************************************************************************
4 * Public Procedures *
5 **************************************************************************/
6
7 /**************************************************************************
8 * *
9 * Name : get_awt_tax *
10 * Purpose : This is the main wrapper procedure for withholding tax *
11 * extract, which is invoked by the concurrent manager *
12 * It initializes the necessary parameters and passes the *
13 * control to the core procedure jarx_wt.ja_wht_extract *
14 * *
15 **************************************************************************/
16
17 PROCEDURE get_awt_tax(
18 errbuf out NOCOPY VARCHAR2,
19 retcode out NOCOPY VARCHAR2,
20 argument1 in VARCHAR2 default null, -- SOB ID
21 argument2 in VARCHAR2 default null, -- COA ID
22 argument3 in VARCHAR2 default null, -- GL Date From
23 argument4 in VARCHAR2 default null, -- GL Date To
24 argument5 in VARCHAR2 default null, -- Supplier From
25 argument6 in VARCHAR2 default null, -- Supplier To
26 argument7 in VARCHAR2 default null, -- Supp Tax Registration No.
27 argument8 in VARCHAR2 default null, -- Invoice Number
28 argument9 in VARCHAR2 default null, -- Reporting Level
29 argument10 in VARCHAR2 default null, -- Reporting Context
30 argument11 in VARCHAR2 default null, -- Legal Entity ID
31 argument12 in VARCHAR2 default null, -- Accounting Flexfield From
32 argument13 in VARCHAR2 default null, -- Accounting Flexfield To
33 argument14 in VARCHAR2 default null, -- Organization Type
34 argument15 in VARCHAR2 default null, -- Location
35 argument16 in VARCHAR2 default null, -- Domestic Income Category
36 argument17 in VARCHAR2 default null, -- Foreign Income Category
37 argument18 in VARCHAR2 default null, -- Debug Flag
38 argument19 in VARCHAR2 default null, -- SQL Trace
39 argument20 in VARCHAR2 default null,
40 argument21 in VARCHAR2 default null,
41 argument22 in VARCHAR2 default null,
42 argument23 in VARCHAR2 default null,
43 argument24 in VARCHAR2 default null,
44 argument25 in VARCHAR2 default null,
45 argument26 in VARCHAR2 default null,
46 argument27 in VARCHAR2 default null,
47 argument28 in VARCHAR2 default null,
48 argument29 in VARCHAR2 default null,
49 argument30 in VARCHAR2 default null,
50 argument31 in VARCHAR2 default null,
51 argument32 in VARCHAR2 default null,
52 argument33 in VARCHAR2 default null,
53 argument34 in VARCHAR2 default null,
54 argument35 in VARCHAR2 default null,
55 argument36 in VARCHAR2 default null,
56 argument37 in VARCHAR2 default null,
57 argument38 in VARCHAR2 default null,
58 argument39 in VARCHAR2 default null,
59 argument40 in VARCHAR2 default null,
60 argument41 in VARCHAR2 default null,
61 argument42 in VARCHAR2 default null,
62 argument43 in VARCHAR2 default null,
63 argument44 in VARCHAR2 default null,
64 argument45 in VARCHAR2 default null,
65 argument46 in VARCHAR2 default null,
66 argument47 in VARCHAR2 default null,
67 argument48 in VARCHAR2 default null,
68 argument49 in VARCHAR2 default null,
69 argument50 in VARCHAR2 default null,
70 argument51 in VARCHAR2 default null,
71 argument52 in VARCHAR2 default null,
72 argument53 in VARCHAR2 default null,
73 argument54 in VARCHAR2 default null,
74 argument55 in VARCHAR2 default null,
75 argument56 in VARCHAR2 default null,
76 argument57 in VARCHAR2 default null,
77 argument58 in VARCHAR2 default null,
78 argument59 in VARCHAR2 default null,
79 argument60 in VARCHAR2 default null,
80 argument61 in VARCHAR2 default null,
81 argument62 in VARCHAR2 default null,
82 argument63 in VARCHAR2 default null,
83 argument64 in VARCHAR2 default null,
84 argument65 in VARCHAR2 default null,
85 argument66 in VARCHAR2 default null,
86 argument67 in VARCHAR2 default null,
87 argument68 in VARCHAR2 default null,
88 argument69 in VARCHAR2 default null,
89 argument70 in VARCHAR2 default null,
90 argument71 in VARCHAR2 default null,
91 argument72 in VARCHAR2 default null,
92 argument73 in VARCHAR2 default null,
93 argument74 in VARCHAR2 default null,
94 argument75 in VARCHAR2 default null,
95 argument76 in VARCHAR2 default null,
96 argument77 in VARCHAR2 default null,
97 argument78 in VARCHAR2 default null,
98 argument79 in VARCHAR2 default null,
99 argument80 in VARCHAR2 default null,
100 argument81 in VARCHAR2 default null,
101 argument82 in VARCHAR2 default null,
102 argument83 in VARCHAR2 default null,
103 argument84 in VARCHAR2 default null,
104 argument85 in VARCHAR2 default null,
105 argument86 in VARCHAR2 default null,
106 argument87 in VARCHAR2 default null,
107 argument88 in VARCHAR2 default null,
108 argument89 in VARCHAR2 default null,
109 argument90 in VARCHAR2 default null,
110 argument91 in VARCHAR2 default null,
111 argument92 in VARCHAR2 default null,
112 argument93 in VARCHAR2 default null,
113 argument94 in VARCHAR2 default null,
114 argument95 in VARCHAR2 default null,
115 argument96 in VARCHAR2 default null,
116 argument97 in VARCHAR2 default null,
117 argument98 in VARCHAR2 default null,
118 argument99 in VARCHAR2 default null,
119 argument100 in VARCHAR2 default null)
120 IS
121 l_request_id number;
122 debug_flag varchar2(1);
123 sql_trace varchar2(1);
124 l_gl_date_from date;
125 l_gl_date_to date;
126 l_location number;
127 l_entity_id number;
128 l_rep_level number;
129 l_rep_context number;
130
131 BEGIN
132 --
133 -- Assign parameters doing any necessary mappings like
134 -- date/number conversion
135 --
136 l_request_id := fnd_global.conc_request_id;
137 debug_flag := upper(substrb(argument18,1,1));
138 sql_trace := upper(substrb(argument19,1,1));
139 l_gl_date_from := fnd_date.canonical_to_date(argument3);
140 l_gl_date_to := fnd_date.canonical_to_date(argument4);
141 l_location := fnd_number.canonical_to_number(argument15);
142 /* apai
143 l_entity_id :=fnd_number.canonical_to_number(argument11);
144 */
145 l_rep_level := fnd_number.canonical_to_number(argument9);
146 l_rep_context := fnd_number.canonical_to_number(argument10);
147
148 IF l_rep_level = 1000 THEN
149 l_entity_id := fnd_number.canonical_to_number(argument11);
150 ELSIF l_rep_level = 2000 THEN
151 l_entity_id := l_rep_context;
152 ELSIF l_rep_level = 3000 THEN
153 l_entity_id := XLE_UTILITIES_GRP.GET_DefaultLegalContext_OU(l_rep_context);
154 END IF;
155
156 --
157 -- SQL Trace and debug flag are optional but highly recommended.
158 --
159
160 -- SQL trace commented as per ATG mandate
161 -- if sql_trace = 'Y' then
162 -- fa_rx_util_pkg.enable_trace;
163 -- end if;
164
165 if debug_flag = 'Y' then
166 fa_rx_util_pkg.enable_debug;
167 end if;
168
169 -- Call the inner procedure
170 jgrx_wt.jg_wht_extract( l_gl_date_from,
171 l_gl_date_to,
172 argument5,
173 argument6,
174 argument7,
175 argument8,
176 argument9,
177 argument10,
178 l_entity_id,
179 argument12,
180 argument13,
181 argument14,
182 l_location,
183 argument16,
184 argument17,
185 l_request_id,
186 retcode,
187 errbuf);
188 END get_awt_tax;
189 END JGRX_C_WT;