[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCOUNT_DIST_MISC_PUB_W
Source
1 package body okl_account_dist_misc_pub_w as
2 /* $Header: OKLUTDSB.pls 120.1 2005/07/07 13:34:32 dkagrawa noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure insert_updt_dstrs(p_api_version NUMBER
23 , p_init_msg_list VARCHAR2
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_NUMBER_TABLE
30 , p5_a3 JTF_VARCHAR2_TABLE_100
31 , p5_a4 JTF_VARCHAR2_TABLE_100
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_NUMBER_TABLE
35 , p5_a8 JTF_VARCHAR2_TABLE_100
36 , p5_a9 JTF_VARCHAR2_TABLE_100
37 , p5_a10 JTF_NUMBER_TABLE
38 , p5_a11 JTF_VARCHAR2_TABLE_100
39 , p5_a12 JTF_NUMBER_TABLE
40 , p5_a13 JTF_NUMBER_TABLE
41 , p5_a14 JTF_DATE_TABLE
42 , p5_a15 JTF_NUMBER_TABLE
43 , p5_a16 JTF_VARCHAR2_TABLE_2000
44 , p5_a17 JTF_NUMBER_TABLE
45 , p5_a18 JTF_DATE_TABLE
46 , p5_a19 JTF_NUMBER_TABLE
47 , p5_a20 JTF_VARCHAR2_TABLE_100
48 , p5_a21 JTF_VARCHAR2_TABLE_500
49 , p5_a22 JTF_VARCHAR2_TABLE_500
50 , p5_a23 JTF_VARCHAR2_TABLE_500
51 , p5_a24 JTF_VARCHAR2_TABLE_500
52 , p5_a25 JTF_VARCHAR2_TABLE_500
53 , p5_a26 JTF_VARCHAR2_TABLE_500
54 , p5_a27 JTF_VARCHAR2_TABLE_500
55 , p5_a28 JTF_VARCHAR2_TABLE_500
56 , p5_a29 JTF_VARCHAR2_TABLE_500
57 , p5_a30 JTF_VARCHAR2_TABLE_500
58 , p5_a31 JTF_VARCHAR2_TABLE_500
59 , p5_a32 JTF_VARCHAR2_TABLE_500
60 , p5_a33 JTF_VARCHAR2_TABLE_500
61 , p5_a34 JTF_VARCHAR2_TABLE_500
62 , p5_a35 JTF_VARCHAR2_TABLE_500
63 , p5_a36 JTF_NUMBER_TABLE
64 , p5_a37 JTF_NUMBER_TABLE
65 , p5_a38 JTF_NUMBER_TABLE
66 , p5_a39 JTF_DATE_TABLE
67 , p5_a40 JTF_NUMBER_TABLE
68 , p5_a41 JTF_DATE_TABLE
69 , p5_a42 JTF_NUMBER_TABLE
70 , p5_a43 JTF_DATE_TABLE
71 , p5_a44 JTF_NUMBER_TABLE
72 , p5_a45 JTF_NUMBER_TABLE
73 , p5_a46 JTF_VARCHAR2_TABLE_100
74 , p5_a47 JTF_VARCHAR2_TABLE_300
75 , p5_a48 JTF_VARCHAR2_TABLE_100
76 , p5_a49 JTF_VARCHAR2_TABLE_100
77 , p5_a50 JTF_VARCHAR2_TABLE_100
78 , p5_a51 JTF_NUMBER_TABLE
79 , p5_a52 JTF_NUMBER_TABLE
80 , p5_a53 JTF_NUMBER_TABLE
81 , p5_a54 JTF_VARCHAR2_TABLE_100
82 , p6_a0 out nocopy JTF_NUMBER_TABLE
83 , p6_a1 out nocopy JTF_NUMBER_TABLE
84 , p6_a2 out nocopy JTF_NUMBER_TABLE
85 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
86 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
87 , p6_a5 out nocopy JTF_NUMBER_TABLE
88 , p6_a6 out nocopy JTF_NUMBER_TABLE
89 , p6_a7 out nocopy JTF_NUMBER_TABLE
90 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
91 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
92 , p6_a10 out nocopy JTF_NUMBER_TABLE
93 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_100
94 , p6_a12 out nocopy JTF_NUMBER_TABLE
95 , p6_a13 out nocopy JTF_NUMBER_TABLE
96 , p6_a14 out nocopy JTF_DATE_TABLE
97 , p6_a15 out nocopy JTF_NUMBER_TABLE
98 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_2000
99 , p6_a17 out nocopy JTF_NUMBER_TABLE
100 , p6_a18 out nocopy JTF_DATE_TABLE
101 , p6_a19 out nocopy JTF_NUMBER_TABLE
102 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_100
103 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
104 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
105 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
106 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
107 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
108 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
109 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
110 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
111 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
112 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
113 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
114 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
115 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
116 , p6_a34 out nocopy JTF_VARCHAR2_TABLE_500
117 , p6_a35 out nocopy JTF_VARCHAR2_TABLE_500
118 , p6_a36 out nocopy JTF_NUMBER_TABLE
119 , p6_a37 out nocopy JTF_NUMBER_TABLE
120 , p6_a38 out nocopy JTF_NUMBER_TABLE
121 , p6_a39 out nocopy JTF_DATE_TABLE
122 , p6_a40 out nocopy JTF_NUMBER_TABLE
123 , p6_a41 out nocopy JTF_DATE_TABLE
124 , p6_a42 out nocopy JTF_NUMBER_TABLE
125 , p6_a43 out nocopy JTF_DATE_TABLE
126 , p6_a44 out nocopy JTF_NUMBER_TABLE
127 , p6_a45 out nocopy JTF_NUMBER_TABLE
128 , p6_a46 out nocopy JTF_VARCHAR2_TABLE_100
129 , p6_a47 out nocopy JTF_VARCHAR2_TABLE_300
130 , p6_a48 out nocopy JTF_VARCHAR2_TABLE_100
131 , p6_a49 out nocopy JTF_VARCHAR2_TABLE_100
132 , p6_a50 out nocopy JTF_VARCHAR2_TABLE_100
133 , p6_a51 out nocopy JTF_NUMBER_TABLE
134 , p6_a52 out nocopy JTF_NUMBER_TABLE
135 , p6_a53 out nocopy JTF_NUMBER_TABLE
136 , p6_a54 out nocopy JTF_VARCHAR2_TABLE_100
137 )
138
139 as
140 ddp_tabv_tbl okl_account_dist_misc_pub.tabv_tbl_type;
141 ddx_tabv_tbl okl_account_dist_misc_pub.tabv_tbl_type;
142 ddindx binary_integer; indx binary_integer;
143 begin
144
145 -- copy data to the local IN or IN-OUT args, if any
146
147
148
149
150
151 okl_tab_pvt_w.rosetta_table_copy_in_p5(ddp_tabv_tbl, p5_a0
152 , p5_a1
153 , p5_a2
154 , p5_a3
155 , p5_a4
156 , p5_a5
157 , p5_a6
158 , p5_a7
159 , p5_a8
160 , p5_a9
161 , p5_a10
162 , p5_a11
163 , p5_a12
164 , p5_a13
165 , p5_a14
166 , p5_a15
167 , p5_a16
168 , p5_a17
169 , p5_a18
170 , p5_a19
171 , p5_a20
172 , p5_a21
173 , p5_a22
174 , p5_a23
175 , p5_a24
176 , p5_a25
177 , p5_a26
178 , p5_a27
179 , p5_a28
180 , p5_a29
181 , p5_a30
182 , p5_a31
183 , p5_a32
184 , p5_a33
185 , p5_a34
186 , p5_a35
187 , p5_a36
188 , p5_a37
189 , p5_a38
190 , p5_a39
191 , p5_a40
192 , p5_a41
193 , p5_a42
194 , p5_a43
195 , p5_a44
196 , p5_a45
197 , p5_a46
198 , p5_a47
199 , p5_a48
200 , p5_a49
201 , p5_a50
202 , p5_a51
203 , p5_a52
204 , p5_a53
205 , p5_a54
206 );
207
208
209 -- here's the delegated call to the old PL/SQL routine
210 okl_account_dist_misc_pub.insert_updt_dstrs(p_api_version,
211 p_init_msg_list,
212 x_return_status,
213 x_msg_count,
214 x_msg_data,
215 ddp_tabv_tbl,
216 ddx_tabv_tbl);
217
218 -- copy data back from the local variables to OUT or IN-OUT args, if any
219
220
221
222
223
224
225 okl_tab_pvt_w.rosetta_table_copy_out_p5(ddx_tabv_tbl, p6_a0
226 , p6_a1
227 , p6_a2
228 , p6_a3
229 , p6_a4
230 , p6_a5
231 , p6_a6
232 , p6_a7
233 , p6_a8
234 , p6_a9
235 , p6_a10
236 , p6_a11
237 , p6_a12
238 , p6_a13
239 , p6_a14
240 , p6_a15
241 , p6_a16
242 , p6_a17
243 , p6_a18
244 , p6_a19
245 , p6_a20
246 , p6_a21
247 , p6_a22
248 , p6_a23
249 , p6_a24
250 , p6_a25
251 , p6_a26
252 , p6_a27
253 , p6_a28
254 , p6_a29
255 , p6_a30
256 , p6_a31
257 , p6_a32
258 , p6_a33
259 , p6_a34
260 , p6_a35
261 , p6_a36
262 , p6_a37
263 , p6_a38
264 , p6_a39
265 , p6_a40
266 , p6_a41
267 , p6_a42
268 , p6_a43
269 , p6_a44
270 , p6_a45
271 , p6_a46
272 , p6_a47
273 , p6_a48
274 , p6_a49
275 , p6_a50
276 , p6_a51
277 , p6_a52
278 , p6_a53
279 , p6_a54
280 );
281 end;
282
283 end okl_account_dist_misc_pub_w;