[Home] [Help]
PACKAGE BODY: APPS.OKL_MLA_CREATE_UPDATE_PUB_W
Source
1 package body okl_mla_create_update_pub_w as
2 /* $Header: OKLEMCUB.pls 120.0 2006/11/22 12:15:18 zrehman 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure rosetta_table_copy_in_p7(t out nocopy okl_mla_create_update_pub.deal_tab_type, a0 JTF_NUMBER_TABLE
26 , a1 JTF_VARCHAR2_TABLE_200
27 , a2 JTF_VARCHAR2_TABLE_2000
28 , a3 JTF_VARCHAR2_TABLE_100
29 , a4 JTF_VARCHAR2_TABLE_100
30 , a5 JTF_DATE_TABLE
31 , a6 JTF_DATE_TABLE
32 , a7 JTF_NUMBER_TABLE
33 , a8 JTF_VARCHAR2_TABLE_200
34 , a9 JTF_NUMBER_TABLE
35 , a10 JTF_NUMBER_TABLE
36 , a11 JTF_VARCHAR2_TABLE_100
37 , a12 JTF_VARCHAR2_TABLE_100
38 , a13 JTF_VARCHAR2_TABLE_100
39 , a14 JTF_VARCHAR2_TABLE_100
40 , a15 JTF_VARCHAR2_TABLE_100
41 , a16 JTF_VARCHAR2_TABLE_100
42 , a17 JTF_VARCHAR2_TABLE_100
43 , a18 JTF_DATE_TABLE
44 , a19 JTF_DATE_TABLE
45 , a20 JTF_DATE_TABLE
46 , a21 JTF_DATE_TABLE
47 , a22 JTF_VARCHAR2_TABLE_100
48 , a23 JTF_VARCHAR2_TABLE_100
49 , a24 JTF_VARCHAR2_TABLE_200
50 , a25 JTF_NUMBER_TABLE
51 , a26 JTF_NUMBER_TABLE
52 , a27 JTF_NUMBER_TABLE
53 , a28 JTF_VARCHAR2_TABLE_100
54 , a29 JTF_VARCHAR2_TABLE_200
55 , a30 JTF_VARCHAR2_TABLE_100
56 , a31 JTF_VARCHAR2_TABLE_300
57 , a32 JTF_NUMBER_TABLE
58 , a33 JTF_VARCHAR2_TABLE_100
59 , a34 JTF_VARCHAR2_TABLE_200
60 , a35 JTF_VARCHAR2_TABLE_100
61 , a36 JTF_VARCHAR2_TABLE_300
62 , a37 JTF_VARCHAR2_TABLE_100
63 , a38 JTF_VARCHAR2_TABLE_300
64 , a39 JTF_NUMBER_TABLE
65 , a40 JTF_VARCHAR2_TABLE_200
66 , a41 JTF_VARCHAR2_TABLE_2000
67 , a42 JTF_NUMBER_TABLE
68 , a43 JTF_VARCHAR2_TABLE_200
69 , a44 JTF_VARCHAR2_TABLE_200
70 , a45 JTF_NUMBER_TABLE
71 , a46 JTF_NUMBER_TABLE
72 , a47 JTF_NUMBER_TABLE
73 , a48 JTF_NUMBER_TABLE
74 , a49 JTF_VARCHAR2_TABLE_500
75 , a50 JTF_VARCHAR2_TABLE_300
76 , a51 JTF_NUMBER_TABLE
77 , a52 JTF_NUMBER_TABLE
78 , a53 JTF_VARCHAR2_TABLE_500
79 , a54 JTF_VARCHAR2_TABLE_300
80 , a55 JTF_NUMBER_TABLE
81 , a56 JTF_VARCHAR2_TABLE_300
82 , a57 JTF_VARCHAR2_TABLE_300
83 , a58 JTF_NUMBER_TABLE
84 , a59 JTF_VARCHAR2_TABLE_100
85 , a60 JTF_VARCHAR2_TABLE_200
86 , a61 JTF_VARCHAR2_TABLE_100
87 , a62 JTF_VARCHAR2_TABLE_300
88 , a63 JTF_NUMBER_TABLE
89 , a64 JTF_NUMBER_TABLE
90 , a65 JTF_VARCHAR2_TABLE_500
91 , a66 JTF_VARCHAR2_TABLE_300
92 , a67 JTF_NUMBER_TABLE
93 , a68 JTF_NUMBER_TABLE
94 , a69 JTF_VARCHAR2_TABLE_500
95 , a70 JTF_VARCHAR2_TABLE_300
96 , a71 JTF_NUMBER_TABLE
97 , a72 JTF_NUMBER_TABLE
98 , a73 JTF_VARCHAR2_TABLE_500
99 , a74 JTF_VARCHAR2_TABLE_300
100 , a75 JTF_NUMBER_TABLE
101 , a76 JTF_NUMBER_TABLE
102 , a77 JTF_VARCHAR2_TABLE_500
103 , a78 JTF_VARCHAR2_TABLE_300
104 , a79 JTF_VARCHAR2_TABLE_100
105 , a80 JTF_NUMBER_TABLE
106 , a81 JTF_DATE_TABLE
107 , a82 JTF_VARCHAR2_TABLE_100
108 , a83 JTF_NUMBER_TABLE
109 ) as
110 ddindx binary_integer; indx binary_integer;
111 begin
112 if a0 is not null and a0.count > 0 then
113 if a0.count > 0 then
114 indx := a0.first;
115 ddindx := 1;
116 while true loop
117 t(ddindx).chr_id := rosetta_g_miss_num_map(a0(indx));
118 t(ddindx).chr_contract_number := a1(indx);
119 t(ddindx).chr_description := a2(indx);
120 t(ddindx).vers_version := a3(indx);
121 t(ddindx).chr_sts_code := a4(indx);
122 t(ddindx).chr_start_date := rosetta_g_miss_date_in_map(a5(indx));
123 t(ddindx).chr_end_date := rosetta_g_miss_date_in_map(a6(indx));
124 t(ddindx).khr_term_duration := rosetta_g_miss_num_map(a7(indx));
125 t(ddindx).chr_cust_po_number := a8(indx);
126 t(ddindx).chr_inv_organization_id := rosetta_g_miss_num_map(a9(indx));
127 t(ddindx).chr_authoring_org_id := rosetta_g_miss_num_map(a10(indx));
128 t(ddindx).khr_generate_accrual_yn := a11(indx);
129 t(ddindx).khr_syndicatable_yn := a12(indx);
130 t(ddindx).khr_prefunding_eligible_yn := a13(indx);
131 t(ddindx).khr_revolving_credit_yn := a14(indx);
132 t(ddindx).khr_converted_account_yn := a15(indx);
133 t(ddindx).khr_credit_act_yn := a16(indx);
134 t(ddindx).chr_template_yn := a17(indx);
135 t(ddindx).chr_date_signed := rosetta_g_miss_date_in_map(a18(indx));
136 t(ddindx).khr_date_deal_transferred := rosetta_g_miss_date_in_map(a19(indx));
137 t(ddindx).khr_accepted_date := rosetta_g_miss_date_in_map(a20(indx));
138 t(ddindx).khr_expected_delivery_date := rosetta_g_miss_date_in_map(a21(indx));
139 t(ddindx).khr_amd_code := a22(indx);
140 t(ddindx).khr_deal_type := a23(indx);
141 t(ddindx).mla_contract_number := a24(indx);
142 t(ddindx).mla_gvr_chr_id_referred := rosetta_g_miss_num_map(a25(indx));
143 t(ddindx).mla_gvr_id := rosetta_g_miss_num_map(a26(indx));
144 t(ddindx).cust_id := rosetta_g_miss_num_map(a27(indx));
145 t(ddindx).cust_object1_id1 := a28(indx);
146 t(ddindx).cust_object1_id2 := a29(indx);
147 t(ddindx).cust_jtot_object1_code := a30(indx);
148 t(ddindx).cust_name := a31(indx);
149 t(ddindx).lessor_id := rosetta_g_miss_num_map(a32(indx));
150 t(ddindx).lessor_object1_id1 := a33(indx);
151 t(ddindx).lessor_object1_id2 := a34(indx);
152 t(ddindx).lessor_jtot_object1_code := a35(indx);
153 t(ddindx).lessor_name := a36(indx);
154 t(ddindx).chr_currency_code := a37(indx);
155 t(ddindx).currency_name := a38(indx);
156 t(ddindx).khr_pdt_id := rosetta_g_miss_num_map(a39(indx));
157 t(ddindx).product_name := a40(indx);
158 t(ddindx).product_description := a41(indx);
159 t(ddindx).khr_khr_id := rosetta_g_miss_num_map(a42(indx));
160 t(ddindx).program_contract_number := a43(indx);
161 t(ddindx).cl_contract_number := a44(indx);
162 t(ddindx).cl_gvr_chr_id_referred := rosetta_g_miss_num_map(a45(indx));
163 t(ddindx).cl_gvr_id := rosetta_g_miss_num_map(a46(indx));
164 t(ddindx).rg_larles_id := rosetta_g_miss_num_map(a47(indx));
165 t(ddindx).r_larles_id := rosetta_g_miss_num_map(a48(indx));
166 t(ddindx).r_larles_rule_information1 := a49(indx);
167 t(ddindx).col_larles_form_left_prompt := a50(indx);
168 t(ddindx).rg_larebl_id := rosetta_g_miss_num_map(a51(indx));
169 t(ddindx).r_larebl_id := rosetta_g_miss_num_map(a52(indx));
170 t(ddindx).r_larebl_rule_information1 := a53(indx);
171 t(ddindx).col_larebl_form_left_prompt := a54(indx);
172 t(ddindx).chr_cust_acct_id := rosetta_g_miss_num_map(a55(indx));
173 t(ddindx).customer_account := a56(indx);
174 t(ddindx).cust_site_description := a57(indx);
175 t(ddindx).contact_id := rosetta_g_miss_num_map(a58(indx));
176 t(ddindx).contact_object1_id1 := a59(indx);
177 t(ddindx).contact_object1_id2 := a60(indx);
178 t(ddindx).contact_jtot_object1_code := a61(indx);
179 t(ddindx).contact_name := a62(indx);
180 t(ddindx).rg_latown_id := rosetta_g_miss_num_map(a63(indx));
181 t(ddindx).r_latown_id := rosetta_g_miss_num_map(a64(indx));
182 t(ddindx).r_latown_rule_information1 := a65(indx);
183 t(ddindx).col_latown_form_left_prompt := a66(indx);
184 t(ddindx).rg_lanntf_id := rosetta_g_miss_num_map(a67(indx));
185 t(ddindx).r_lanntf_id := rosetta_g_miss_num_map(a68(indx));
186 t(ddindx).r_lanntf_rule_information1 := a69(indx);
187 t(ddindx).col_lanntf_form_left_prompt := a70(indx);
188 t(ddindx).rg_lacpln_id := rosetta_g_miss_num_map(a71(indx));
189 t(ddindx).r_lacpln_id := rosetta_g_miss_num_map(a72(indx));
190 t(ddindx).r_lacpln_rule_information1 := a73(indx);
191 t(ddindx).col_lacpln_form_left_prompt := a74(indx);
192 t(ddindx).rg_lapact_id := rosetta_g_miss_num_map(a75(indx));
193 t(ddindx).r_lapact_id := rosetta_g_miss_num_map(a76(indx));
194 t(ddindx).r_lapact_rule_information1 := a77(indx);
195 t(ddindx).col_lapact_form_left_prompt := a78(indx);
196 t(ddindx).khr_currency_conv_type := a79(indx);
197 t(ddindx).khr_currency_conv_rate := rosetta_g_miss_num_map(a80(indx));
198 t(ddindx).khr_currency_conv_date := rosetta_g_miss_date_in_map(a81(indx));
199 t(ddindx).khr_assignable_yn := a82(indx);
200 t(ddindx).legal_entity_id := rosetta_g_miss_num_map(a83(indx));
201 ddindx := ddindx+1;
202 if a0.last =indx
203 then exit;
204 end if;
205 indx := a0.next(indx);
206 end loop;
207 end if;
208 end if;
209 end rosetta_table_copy_in_p7;
210 procedure rosetta_table_copy_out_p7(t okl_mla_create_update_pub.deal_tab_type, a0 out nocopy JTF_NUMBER_TABLE
211 , a1 out nocopy JTF_VARCHAR2_TABLE_200
212 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
213 , a3 out nocopy JTF_VARCHAR2_TABLE_100
214 , a4 out nocopy JTF_VARCHAR2_TABLE_100
215 , a5 out nocopy JTF_DATE_TABLE
216 , a6 out nocopy JTF_DATE_TABLE
217 , a7 out nocopy JTF_NUMBER_TABLE
218 , a8 out nocopy JTF_VARCHAR2_TABLE_200
219 , a9 out nocopy JTF_NUMBER_TABLE
220 , a10 out nocopy JTF_NUMBER_TABLE
221 , a11 out nocopy JTF_VARCHAR2_TABLE_100
222 , a12 out nocopy JTF_VARCHAR2_TABLE_100
223 , a13 out nocopy JTF_VARCHAR2_TABLE_100
224 , a14 out nocopy JTF_VARCHAR2_TABLE_100
225 , a15 out nocopy JTF_VARCHAR2_TABLE_100
226 , a16 out nocopy JTF_VARCHAR2_TABLE_100
227 , a17 out nocopy JTF_VARCHAR2_TABLE_100
228 , a18 out nocopy JTF_DATE_TABLE
229 , a19 out nocopy JTF_DATE_TABLE
230 , a20 out nocopy JTF_DATE_TABLE
231 , a21 out nocopy JTF_DATE_TABLE
232 , a22 out nocopy JTF_VARCHAR2_TABLE_100
233 , a23 out nocopy JTF_VARCHAR2_TABLE_100
234 , a24 out nocopy JTF_VARCHAR2_TABLE_200
235 , a25 out nocopy JTF_NUMBER_TABLE
236 , a26 out nocopy JTF_NUMBER_TABLE
237 , a27 out nocopy JTF_NUMBER_TABLE
238 , a28 out nocopy JTF_VARCHAR2_TABLE_100
239 , a29 out nocopy JTF_VARCHAR2_TABLE_200
240 , a30 out nocopy JTF_VARCHAR2_TABLE_100
241 , a31 out nocopy JTF_VARCHAR2_TABLE_300
242 , a32 out nocopy JTF_NUMBER_TABLE
243 , a33 out nocopy JTF_VARCHAR2_TABLE_100
244 , a34 out nocopy JTF_VARCHAR2_TABLE_200
245 , a35 out nocopy JTF_VARCHAR2_TABLE_100
246 , a36 out nocopy JTF_VARCHAR2_TABLE_300
247 , a37 out nocopy JTF_VARCHAR2_TABLE_100
248 , a38 out nocopy JTF_VARCHAR2_TABLE_300
249 , a39 out nocopy JTF_NUMBER_TABLE
250 , a40 out nocopy JTF_VARCHAR2_TABLE_200
251 , a41 out nocopy JTF_VARCHAR2_TABLE_2000
252 , a42 out nocopy JTF_NUMBER_TABLE
253 , a43 out nocopy JTF_VARCHAR2_TABLE_200
254 , a44 out nocopy JTF_VARCHAR2_TABLE_200
255 , a45 out nocopy JTF_NUMBER_TABLE
256 , a46 out nocopy JTF_NUMBER_TABLE
257 , a47 out nocopy JTF_NUMBER_TABLE
258 , a48 out nocopy JTF_NUMBER_TABLE
259 , a49 out nocopy JTF_VARCHAR2_TABLE_500
260 , a50 out nocopy JTF_VARCHAR2_TABLE_300
261 , a51 out nocopy JTF_NUMBER_TABLE
262 , a52 out nocopy JTF_NUMBER_TABLE
263 , a53 out nocopy JTF_VARCHAR2_TABLE_500
264 , a54 out nocopy JTF_VARCHAR2_TABLE_300
265 , a55 out nocopy JTF_NUMBER_TABLE
266 , a56 out nocopy JTF_VARCHAR2_TABLE_300
267 , a57 out nocopy JTF_VARCHAR2_TABLE_300
268 , a58 out nocopy JTF_NUMBER_TABLE
269 , a59 out nocopy JTF_VARCHAR2_TABLE_100
270 , a60 out nocopy JTF_VARCHAR2_TABLE_200
271 , a61 out nocopy JTF_VARCHAR2_TABLE_100
272 , a62 out nocopy JTF_VARCHAR2_TABLE_300
273 , a63 out nocopy JTF_NUMBER_TABLE
274 , a64 out nocopy JTF_NUMBER_TABLE
275 , a65 out nocopy JTF_VARCHAR2_TABLE_500
276 , a66 out nocopy JTF_VARCHAR2_TABLE_300
277 , a67 out nocopy JTF_NUMBER_TABLE
278 , a68 out nocopy JTF_NUMBER_TABLE
279 , a69 out nocopy JTF_VARCHAR2_TABLE_500
280 , a70 out nocopy JTF_VARCHAR2_TABLE_300
281 , a71 out nocopy JTF_NUMBER_TABLE
282 , a72 out nocopy JTF_NUMBER_TABLE
283 , a73 out nocopy JTF_VARCHAR2_TABLE_500
284 , a74 out nocopy JTF_VARCHAR2_TABLE_300
285 , a75 out nocopy JTF_NUMBER_TABLE
286 , a76 out nocopy JTF_NUMBER_TABLE
287 , a77 out nocopy JTF_VARCHAR2_TABLE_500
288 , a78 out nocopy JTF_VARCHAR2_TABLE_300
289 , a79 out nocopy JTF_VARCHAR2_TABLE_100
290 , a80 out nocopy JTF_NUMBER_TABLE
291 , a81 out nocopy JTF_DATE_TABLE
292 , a82 out nocopy JTF_VARCHAR2_TABLE_100
293 , a83 out nocopy JTF_NUMBER_TABLE
294 ) as
295 ddindx binary_integer; indx binary_integer;
296 begin
297 if t is null or t.count = 0 then
298 a0 := JTF_NUMBER_TABLE();
299 a1 := JTF_VARCHAR2_TABLE_200();
300 a2 := JTF_VARCHAR2_TABLE_2000();
301 a3 := JTF_VARCHAR2_TABLE_100();
302 a4 := JTF_VARCHAR2_TABLE_100();
303 a5 := JTF_DATE_TABLE();
304 a6 := JTF_DATE_TABLE();
305 a7 := JTF_NUMBER_TABLE();
306 a8 := JTF_VARCHAR2_TABLE_200();
307 a9 := JTF_NUMBER_TABLE();
308 a10 := JTF_NUMBER_TABLE();
309 a11 := JTF_VARCHAR2_TABLE_100();
310 a12 := JTF_VARCHAR2_TABLE_100();
311 a13 := JTF_VARCHAR2_TABLE_100();
312 a14 := JTF_VARCHAR2_TABLE_100();
313 a15 := JTF_VARCHAR2_TABLE_100();
314 a16 := JTF_VARCHAR2_TABLE_100();
315 a17 := JTF_VARCHAR2_TABLE_100();
316 a18 := JTF_DATE_TABLE();
317 a19 := JTF_DATE_TABLE();
318 a20 := JTF_DATE_TABLE();
319 a21 := JTF_DATE_TABLE();
320 a22 := JTF_VARCHAR2_TABLE_100();
321 a23 := JTF_VARCHAR2_TABLE_100();
322 a24 := JTF_VARCHAR2_TABLE_200();
323 a25 := JTF_NUMBER_TABLE();
324 a26 := JTF_NUMBER_TABLE();
325 a27 := JTF_NUMBER_TABLE();
326 a28 := JTF_VARCHAR2_TABLE_100();
327 a29 := JTF_VARCHAR2_TABLE_200();
328 a30 := JTF_VARCHAR2_TABLE_100();
329 a31 := JTF_VARCHAR2_TABLE_300();
330 a32 := JTF_NUMBER_TABLE();
331 a33 := JTF_VARCHAR2_TABLE_100();
332 a34 := JTF_VARCHAR2_TABLE_200();
333 a35 := JTF_VARCHAR2_TABLE_100();
334 a36 := JTF_VARCHAR2_TABLE_300();
335 a37 := JTF_VARCHAR2_TABLE_100();
336 a38 := JTF_VARCHAR2_TABLE_300();
337 a39 := JTF_NUMBER_TABLE();
338 a40 := JTF_VARCHAR2_TABLE_200();
339 a41 := JTF_VARCHAR2_TABLE_2000();
340 a42 := JTF_NUMBER_TABLE();
341 a43 := JTF_VARCHAR2_TABLE_200();
342 a44 := JTF_VARCHAR2_TABLE_200();
343 a45 := JTF_NUMBER_TABLE();
344 a46 := JTF_NUMBER_TABLE();
345 a47 := JTF_NUMBER_TABLE();
346 a48 := JTF_NUMBER_TABLE();
347 a49 := JTF_VARCHAR2_TABLE_500();
348 a50 := JTF_VARCHAR2_TABLE_300();
349 a51 := JTF_NUMBER_TABLE();
350 a52 := JTF_NUMBER_TABLE();
351 a53 := JTF_VARCHAR2_TABLE_500();
352 a54 := JTF_VARCHAR2_TABLE_300();
353 a55 := JTF_NUMBER_TABLE();
354 a56 := JTF_VARCHAR2_TABLE_300();
355 a57 := JTF_VARCHAR2_TABLE_300();
356 a58 := JTF_NUMBER_TABLE();
357 a59 := JTF_VARCHAR2_TABLE_100();
358 a60 := JTF_VARCHAR2_TABLE_200();
359 a61 := JTF_VARCHAR2_TABLE_100();
360 a62 := JTF_VARCHAR2_TABLE_300();
361 a63 := JTF_NUMBER_TABLE();
362 a64 := JTF_NUMBER_TABLE();
363 a65 := JTF_VARCHAR2_TABLE_500();
364 a66 := JTF_VARCHAR2_TABLE_300();
365 a67 := JTF_NUMBER_TABLE();
366 a68 := JTF_NUMBER_TABLE();
367 a69 := JTF_VARCHAR2_TABLE_500();
368 a70 := JTF_VARCHAR2_TABLE_300();
369 a71 := JTF_NUMBER_TABLE();
370 a72 := JTF_NUMBER_TABLE();
371 a73 := JTF_VARCHAR2_TABLE_500();
372 a74 := JTF_VARCHAR2_TABLE_300();
373 a75 := JTF_NUMBER_TABLE();
374 a76 := JTF_NUMBER_TABLE();
375 a77 := JTF_VARCHAR2_TABLE_500();
376 a78 := JTF_VARCHAR2_TABLE_300();
377 a79 := JTF_VARCHAR2_TABLE_100();
378 a80 := JTF_NUMBER_TABLE();
379 a81 := JTF_DATE_TABLE();
380 a82 := JTF_VARCHAR2_TABLE_100();
381 a83 := JTF_NUMBER_TABLE();
382 else
383 a0 := JTF_NUMBER_TABLE();
384 a1 := JTF_VARCHAR2_TABLE_200();
385 a2 := JTF_VARCHAR2_TABLE_2000();
386 a3 := JTF_VARCHAR2_TABLE_100();
387 a4 := JTF_VARCHAR2_TABLE_100();
388 a5 := JTF_DATE_TABLE();
389 a6 := JTF_DATE_TABLE();
390 a7 := JTF_NUMBER_TABLE();
391 a8 := JTF_VARCHAR2_TABLE_200();
392 a9 := JTF_NUMBER_TABLE();
393 a10 := JTF_NUMBER_TABLE();
394 a11 := JTF_VARCHAR2_TABLE_100();
395 a12 := JTF_VARCHAR2_TABLE_100();
396 a13 := JTF_VARCHAR2_TABLE_100();
397 a14 := JTF_VARCHAR2_TABLE_100();
398 a15 := JTF_VARCHAR2_TABLE_100();
399 a16 := JTF_VARCHAR2_TABLE_100();
400 a17 := JTF_VARCHAR2_TABLE_100();
401 a18 := JTF_DATE_TABLE();
402 a19 := JTF_DATE_TABLE();
403 a20 := JTF_DATE_TABLE();
404 a21 := JTF_DATE_TABLE();
405 a22 := JTF_VARCHAR2_TABLE_100();
406 a23 := JTF_VARCHAR2_TABLE_100();
407 a24 := JTF_VARCHAR2_TABLE_200();
408 a25 := JTF_NUMBER_TABLE();
409 a26 := JTF_NUMBER_TABLE();
410 a27 := JTF_NUMBER_TABLE();
411 a28 := JTF_VARCHAR2_TABLE_100();
412 a29 := JTF_VARCHAR2_TABLE_200();
413 a30 := JTF_VARCHAR2_TABLE_100();
414 a31 := JTF_VARCHAR2_TABLE_300();
415 a32 := JTF_NUMBER_TABLE();
416 a33 := JTF_VARCHAR2_TABLE_100();
417 a34 := JTF_VARCHAR2_TABLE_200();
418 a35 := JTF_VARCHAR2_TABLE_100();
419 a36 := JTF_VARCHAR2_TABLE_300();
420 a37 := JTF_VARCHAR2_TABLE_100();
421 a38 := JTF_VARCHAR2_TABLE_300();
422 a39 := JTF_NUMBER_TABLE();
423 a40 := JTF_VARCHAR2_TABLE_200();
424 a41 := JTF_VARCHAR2_TABLE_2000();
425 a42 := JTF_NUMBER_TABLE();
426 a43 := JTF_VARCHAR2_TABLE_200();
427 a44 := JTF_VARCHAR2_TABLE_200();
428 a45 := JTF_NUMBER_TABLE();
429 a46 := JTF_NUMBER_TABLE();
430 a47 := JTF_NUMBER_TABLE();
431 a48 := JTF_NUMBER_TABLE();
432 a49 := JTF_VARCHAR2_TABLE_500();
433 a50 := JTF_VARCHAR2_TABLE_300();
434 a51 := JTF_NUMBER_TABLE();
435 a52 := JTF_NUMBER_TABLE();
436 a53 := JTF_VARCHAR2_TABLE_500();
437 a54 := JTF_VARCHAR2_TABLE_300();
438 a55 := JTF_NUMBER_TABLE();
439 a56 := JTF_VARCHAR2_TABLE_300();
440 a57 := JTF_VARCHAR2_TABLE_300();
441 a58 := JTF_NUMBER_TABLE();
442 a59 := JTF_VARCHAR2_TABLE_100();
443 a60 := JTF_VARCHAR2_TABLE_200();
444 a61 := JTF_VARCHAR2_TABLE_100();
445 a62 := JTF_VARCHAR2_TABLE_300();
446 a63 := JTF_NUMBER_TABLE();
447 a64 := JTF_NUMBER_TABLE();
448 a65 := JTF_VARCHAR2_TABLE_500();
449 a66 := JTF_VARCHAR2_TABLE_300();
450 a67 := JTF_NUMBER_TABLE();
451 a68 := JTF_NUMBER_TABLE();
452 a69 := JTF_VARCHAR2_TABLE_500();
453 a70 := JTF_VARCHAR2_TABLE_300();
454 a71 := JTF_NUMBER_TABLE();
455 a72 := JTF_NUMBER_TABLE();
456 a73 := JTF_VARCHAR2_TABLE_500();
457 a74 := JTF_VARCHAR2_TABLE_300();
458 a75 := JTF_NUMBER_TABLE();
459 a76 := JTF_NUMBER_TABLE();
460 a77 := JTF_VARCHAR2_TABLE_500();
461 a78 := JTF_VARCHAR2_TABLE_300();
462 a79 := JTF_VARCHAR2_TABLE_100();
463 a80 := JTF_NUMBER_TABLE();
464 a81 := JTF_DATE_TABLE();
465 a82 := JTF_VARCHAR2_TABLE_100();
466 a83 := JTF_NUMBER_TABLE();
467 if t.count > 0 then
468 a0.extend(t.count);
469 a1.extend(t.count);
470 a2.extend(t.count);
471 a3.extend(t.count);
472 a4.extend(t.count);
473 a5.extend(t.count);
474 a6.extend(t.count);
475 a7.extend(t.count);
476 a8.extend(t.count);
477 a9.extend(t.count);
478 a10.extend(t.count);
479 a11.extend(t.count);
480 a12.extend(t.count);
481 a13.extend(t.count);
482 a14.extend(t.count);
483 a15.extend(t.count);
484 a16.extend(t.count);
485 a17.extend(t.count);
486 a18.extend(t.count);
487 a19.extend(t.count);
488 a20.extend(t.count);
489 a21.extend(t.count);
490 a22.extend(t.count);
491 a23.extend(t.count);
492 a24.extend(t.count);
493 a25.extend(t.count);
494 a26.extend(t.count);
495 a27.extend(t.count);
496 a28.extend(t.count);
497 a29.extend(t.count);
498 a30.extend(t.count);
499 a31.extend(t.count);
500 a32.extend(t.count);
501 a33.extend(t.count);
502 a34.extend(t.count);
503 a35.extend(t.count);
504 a36.extend(t.count);
505 a37.extend(t.count);
506 a38.extend(t.count);
507 a39.extend(t.count);
508 a40.extend(t.count);
509 a41.extend(t.count);
510 a42.extend(t.count);
511 a43.extend(t.count);
512 a44.extend(t.count);
513 a45.extend(t.count);
514 a46.extend(t.count);
515 a47.extend(t.count);
516 a48.extend(t.count);
517 a49.extend(t.count);
518 a50.extend(t.count);
519 a51.extend(t.count);
520 a52.extend(t.count);
521 a53.extend(t.count);
522 a54.extend(t.count);
523 a55.extend(t.count);
524 a56.extend(t.count);
525 a57.extend(t.count);
526 a58.extend(t.count);
527 a59.extend(t.count);
528 a60.extend(t.count);
529 a61.extend(t.count);
530 a62.extend(t.count);
531 a63.extend(t.count);
532 a64.extend(t.count);
533 a65.extend(t.count);
534 a66.extend(t.count);
535 a67.extend(t.count);
536 a68.extend(t.count);
537 a69.extend(t.count);
538 a70.extend(t.count);
539 a71.extend(t.count);
540 a72.extend(t.count);
541 a73.extend(t.count);
542 a74.extend(t.count);
543 a75.extend(t.count);
544 a76.extend(t.count);
545 a77.extend(t.count);
546 a78.extend(t.count);
547 a79.extend(t.count);
548 a80.extend(t.count);
549 a81.extend(t.count);
550 a82.extend(t.count);
551 a83.extend(t.count);
552 ddindx := t.first;
553 indx := 1;
554 while true loop
555 a0(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
556 a1(indx) := t(ddindx).chr_contract_number;
557 a2(indx) := t(ddindx).chr_description;
558 a3(indx) := t(ddindx).vers_version;
559 a4(indx) := t(ddindx).chr_sts_code;
560 a5(indx) := t(ddindx).chr_start_date;
561 a6(indx) := t(ddindx).chr_end_date;
562 a7(indx) := rosetta_g_miss_num_map(t(ddindx).khr_term_duration);
563 a8(indx) := t(ddindx).chr_cust_po_number;
564 a9(indx) := rosetta_g_miss_num_map(t(ddindx).chr_inv_organization_id);
565 a10(indx) := rosetta_g_miss_num_map(t(ddindx).chr_authoring_org_id);
566 a11(indx) := t(ddindx).khr_generate_accrual_yn;
567 a12(indx) := t(ddindx).khr_syndicatable_yn;
568 a13(indx) := t(ddindx).khr_prefunding_eligible_yn;
569 a14(indx) := t(ddindx).khr_revolving_credit_yn;
570 a15(indx) := t(ddindx).khr_converted_account_yn;
571 a16(indx) := t(ddindx).khr_credit_act_yn;
572 a17(indx) := t(ddindx).chr_template_yn;
573 a18(indx) := t(ddindx).chr_date_signed;
574 a19(indx) := t(ddindx).khr_date_deal_transferred;
575 a20(indx) := t(ddindx).khr_accepted_date;
576 a21(indx) := t(ddindx).khr_expected_delivery_date;
577 a22(indx) := t(ddindx).khr_amd_code;
578 a23(indx) := t(ddindx).khr_deal_type;
579 a24(indx) := t(ddindx).mla_contract_number;
580 a25(indx) := rosetta_g_miss_num_map(t(ddindx).mla_gvr_chr_id_referred);
581 a26(indx) := rosetta_g_miss_num_map(t(ddindx).mla_gvr_id);
582 a27(indx) := rosetta_g_miss_num_map(t(ddindx).cust_id);
583 a28(indx) := t(ddindx).cust_object1_id1;
584 a29(indx) := t(ddindx).cust_object1_id2;
585 a30(indx) := t(ddindx).cust_jtot_object1_code;
586 a31(indx) := t(ddindx).cust_name;
587 a32(indx) := rosetta_g_miss_num_map(t(ddindx).lessor_id);
588 a33(indx) := t(ddindx).lessor_object1_id1;
589 a34(indx) := t(ddindx).lessor_object1_id2;
590 a35(indx) := t(ddindx).lessor_jtot_object1_code;
591 a36(indx) := t(ddindx).lessor_name;
592 a37(indx) := t(ddindx).chr_currency_code;
593 a38(indx) := t(ddindx).currency_name;
594 a39(indx) := rosetta_g_miss_num_map(t(ddindx).khr_pdt_id);
595 a40(indx) := t(ddindx).product_name;
596 a41(indx) := t(ddindx).product_description;
597 a42(indx) := rosetta_g_miss_num_map(t(ddindx).khr_khr_id);
598 a43(indx) := t(ddindx).program_contract_number;
599 a44(indx) := t(ddindx).cl_contract_number;
600 a45(indx) := rosetta_g_miss_num_map(t(ddindx).cl_gvr_chr_id_referred);
601 a46(indx) := rosetta_g_miss_num_map(t(ddindx).cl_gvr_id);
602 a47(indx) := rosetta_g_miss_num_map(t(ddindx).rg_larles_id);
603 a48(indx) := rosetta_g_miss_num_map(t(ddindx).r_larles_id);
604 a49(indx) := t(ddindx).r_larles_rule_information1;
605 a50(indx) := t(ddindx).col_larles_form_left_prompt;
606 a51(indx) := rosetta_g_miss_num_map(t(ddindx).rg_larebl_id);
607 a52(indx) := rosetta_g_miss_num_map(t(ddindx).r_larebl_id);
608 a53(indx) := t(ddindx).r_larebl_rule_information1;
609 a54(indx) := t(ddindx).col_larebl_form_left_prompt;
610 a55(indx) := rosetta_g_miss_num_map(t(ddindx).chr_cust_acct_id);
611 a56(indx) := t(ddindx).customer_account;
612 a57(indx) := t(ddindx).cust_site_description;
613 a58(indx) := rosetta_g_miss_num_map(t(ddindx).contact_id);
614 a59(indx) := t(ddindx).contact_object1_id1;
615 a60(indx) := t(ddindx).contact_object1_id2;
616 a61(indx) := t(ddindx).contact_jtot_object1_code;
617 a62(indx) := t(ddindx).contact_name;
618 a63(indx) := rosetta_g_miss_num_map(t(ddindx).rg_latown_id);
619 a64(indx) := rosetta_g_miss_num_map(t(ddindx).r_latown_id);
620 a65(indx) := t(ddindx).r_latown_rule_information1;
621 a66(indx) := t(ddindx).col_latown_form_left_prompt;
622 a67(indx) := rosetta_g_miss_num_map(t(ddindx).rg_lanntf_id);
623 a68(indx) := rosetta_g_miss_num_map(t(ddindx).r_lanntf_id);
624 a69(indx) := t(ddindx).r_lanntf_rule_information1;
625 a70(indx) := t(ddindx).col_lanntf_form_left_prompt;
626 a71(indx) := rosetta_g_miss_num_map(t(ddindx).rg_lacpln_id);
627 a72(indx) := rosetta_g_miss_num_map(t(ddindx).r_lacpln_id);
628 a73(indx) := t(ddindx).r_lacpln_rule_information1;
629 a74(indx) := t(ddindx).col_lacpln_form_left_prompt;
630 a75(indx) := rosetta_g_miss_num_map(t(ddindx).rg_lapact_id);
631 a76(indx) := rosetta_g_miss_num_map(t(ddindx).r_lapact_id);
632 a77(indx) := t(ddindx).r_lapact_rule_information1;
633 a78(indx) := t(ddindx).col_lapact_form_left_prompt;
634 a79(indx) := t(ddindx).khr_currency_conv_type;
635 a80(indx) := rosetta_g_miss_num_map(t(ddindx).khr_currency_conv_rate);
636 a81(indx) := t(ddindx).khr_currency_conv_date;
637 a82(indx) := t(ddindx).khr_assignable_yn;
638 a83(indx) := rosetta_g_miss_num_map(t(ddindx).legal_entity_id);
639 indx := indx+1;
640 if t.last =ddindx
641 then exit;
642 end if;
643 ddindx := t.next(ddindx);
644 end loop;
645 end if;
646 end if;
647 end rosetta_table_copy_out_p7;
648
649 procedure rosetta_table_copy_in_p9(t out nocopy okl_mla_create_update_pub.party_tab_type, a0 JTF_NUMBER_TABLE
650 , a1 JTF_VARCHAR2_TABLE_100
651 , a2 JTF_VARCHAR2_TABLE_500
652 , a3 JTF_VARCHAR2_TABLE_500
653 , a4 JTF_VARCHAR2_TABLE_500
654 , a5 JTF_VARCHAR2_TABLE_500
655 , a6 JTF_VARCHAR2_TABLE_500
656 , a7 JTF_VARCHAR2_TABLE_500
657 , a8 JTF_VARCHAR2_TABLE_500
658 , a9 JTF_VARCHAR2_TABLE_500
659 , a10 JTF_VARCHAR2_TABLE_500
660 , a11 JTF_VARCHAR2_TABLE_500
661 , a12 JTF_VARCHAR2_TABLE_500
662 , a13 JTF_VARCHAR2_TABLE_500
663 , a14 JTF_VARCHAR2_TABLE_500
664 , a15 JTF_VARCHAR2_TABLE_500
665 , a16 JTF_VARCHAR2_TABLE_500
666 , a17 JTF_VARCHAR2_TABLE_100
667 , a18 JTF_VARCHAR2_TABLE_200
668 , a19 JTF_VARCHAR2_TABLE_100
669 , a20 JTF_VARCHAR2_TABLE_100
670 , a21 JTF_NUMBER_TABLE
671 , a22 JTF_NUMBER_TABLE
672 , a23 JTF_NUMBER_TABLE
673 ) as
674 ddindx binary_integer; indx binary_integer;
675 begin
676 if a0 is not null and a0.count > 0 then
677 if a0.count > 0 then
678 indx := a0.first;
679 ddindx := 1;
680 while true loop
681 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
682 t(ddindx).attribute_category := a1(indx);
683 t(ddindx).attribute1 := a2(indx);
684 t(ddindx).attribute2 := a3(indx);
685 t(ddindx).attribute3 := a4(indx);
686 t(ddindx).attribute4 := a5(indx);
687 t(ddindx).attribute5 := a6(indx);
688 t(ddindx).attribute6 := a7(indx);
689 t(ddindx).attribute7 := a8(indx);
690 t(ddindx).attribute8 := a9(indx);
691 t(ddindx).attribute9 := a10(indx);
692 t(ddindx).attribute10 := a11(indx);
693 t(ddindx).attribute11 := a12(indx);
694 t(ddindx).attribute12 := a13(indx);
695 t(ddindx).attribute13 := a14(indx);
696 t(ddindx).attribute14 := a15(indx);
697 t(ddindx).attribute15 := a16(indx);
698 t(ddindx).object1_id1 := a17(indx);
699 t(ddindx).object1_id2 := a18(indx);
700 t(ddindx).jtot_object1_code := a19(indx);
701 t(ddindx).rle_code := a20(indx);
702 t(ddindx).chr_id := rosetta_g_miss_num_map(a21(indx));
703 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a22(indx));
704 t(ddindx).cle_id := rosetta_g_miss_num_map(a23(indx));
705 ddindx := ddindx+1;
706 if a0.last =indx
707 then exit;
708 end if;
709 indx := a0.next(indx);
710 end loop;
711 end if;
712 end if;
713 end rosetta_table_copy_in_p9;
714 procedure rosetta_table_copy_out_p9(t okl_mla_create_update_pub.party_tab_type, a0 out nocopy JTF_NUMBER_TABLE
715 , a1 out nocopy JTF_VARCHAR2_TABLE_100
716 , a2 out nocopy JTF_VARCHAR2_TABLE_500
717 , a3 out nocopy JTF_VARCHAR2_TABLE_500
718 , a4 out nocopy JTF_VARCHAR2_TABLE_500
719 , a5 out nocopy JTF_VARCHAR2_TABLE_500
720 , a6 out nocopy JTF_VARCHAR2_TABLE_500
721 , a7 out nocopy JTF_VARCHAR2_TABLE_500
722 , a8 out nocopy JTF_VARCHAR2_TABLE_500
723 , a9 out nocopy JTF_VARCHAR2_TABLE_500
724 , a10 out nocopy JTF_VARCHAR2_TABLE_500
725 , a11 out nocopy JTF_VARCHAR2_TABLE_500
726 , a12 out nocopy JTF_VARCHAR2_TABLE_500
727 , a13 out nocopy JTF_VARCHAR2_TABLE_500
728 , a14 out nocopy JTF_VARCHAR2_TABLE_500
729 , a15 out nocopy JTF_VARCHAR2_TABLE_500
730 , a16 out nocopy JTF_VARCHAR2_TABLE_500
731 , a17 out nocopy JTF_VARCHAR2_TABLE_100
732 , a18 out nocopy JTF_VARCHAR2_TABLE_200
733 , a19 out nocopy JTF_VARCHAR2_TABLE_100
734 , a20 out nocopy JTF_VARCHAR2_TABLE_100
735 , a21 out nocopy JTF_NUMBER_TABLE
736 , a22 out nocopy JTF_NUMBER_TABLE
737 , a23 out nocopy JTF_NUMBER_TABLE
738 ) as
739 ddindx binary_integer; indx binary_integer;
740 begin
741 if t is null or t.count = 0 then
742 a0 := JTF_NUMBER_TABLE();
743 a1 := JTF_VARCHAR2_TABLE_100();
744 a2 := JTF_VARCHAR2_TABLE_500();
745 a3 := JTF_VARCHAR2_TABLE_500();
746 a4 := JTF_VARCHAR2_TABLE_500();
747 a5 := JTF_VARCHAR2_TABLE_500();
748 a6 := JTF_VARCHAR2_TABLE_500();
749 a7 := JTF_VARCHAR2_TABLE_500();
750 a8 := JTF_VARCHAR2_TABLE_500();
751 a9 := JTF_VARCHAR2_TABLE_500();
752 a10 := JTF_VARCHAR2_TABLE_500();
753 a11 := JTF_VARCHAR2_TABLE_500();
754 a12 := JTF_VARCHAR2_TABLE_500();
755 a13 := JTF_VARCHAR2_TABLE_500();
756 a14 := JTF_VARCHAR2_TABLE_500();
757 a15 := JTF_VARCHAR2_TABLE_500();
758 a16 := JTF_VARCHAR2_TABLE_500();
759 a17 := JTF_VARCHAR2_TABLE_100();
760 a18 := JTF_VARCHAR2_TABLE_200();
761 a19 := JTF_VARCHAR2_TABLE_100();
762 a20 := JTF_VARCHAR2_TABLE_100();
763 a21 := JTF_NUMBER_TABLE();
764 a22 := JTF_NUMBER_TABLE();
765 a23 := JTF_NUMBER_TABLE();
766 else
767 a0 := JTF_NUMBER_TABLE();
768 a1 := JTF_VARCHAR2_TABLE_100();
769 a2 := JTF_VARCHAR2_TABLE_500();
770 a3 := JTF_VARCHAR2_TABLE_500();
771 a4 := JTF_VARCHAR2_TABLE_500();
772 a5 := JTF_VARCHAR2_TABLE_500();
773 a6 := JTF_VARCHAR2_TABLE_500();
774 a7 := JTF_VARCHAR2_TABLE_500();
775 a8 := JTF_VARCHAR2_TABLE_500();
776 a9 := JTF_VARCHAR2_TABLE_500();
777 a10 := JTF_VARCHAR2_TABLE_500();
778 a11 := JTF_VARCHAR2_TABLE_500();
779 a12 := JTF_VARCHAR2_TABLE_500();
780 a13 := JTF_VARCHAR2_TABLE_500();
781 a14 := JTF_VARCHAR2_TABLE_500();
782 a15 := JTF_VARCHAR2_TABLE_500();
783 a16 := JTF_VARCHAR2_TABLE_500();
784 a17 := JTF_VARCHAR2_TABLE_100();
785 a18 := JTF_VARCHAR2_TABLE_200();
786 a19 := JTF_VARCHAR2_TABLE_100();
787 a20 := JTF_VARCHAR2_TABLE_100();
788 a21 := JTF_NUMBER_TABLE();
789 a22 := JTF_NUMBER_TABLE();
790 a23 := JTF_NUMBER_TABLE();
791 if t.count > 0 then
792 a0.extend(t.count);
793 a1.extend(t.count);
794 a2.extend(t.count);
795 a3.extend(t.count);
796 a4.extend(t.count);
797 a5.extend(t.count);
798 a6.extend(t.count);
799 a7.extend(t.count);
800 a8.extend(t.count);
801 a9.extend(t.count);
802 a10.extend(t.count);
803 a11.extend(t.count);
804 a12.extend(t.count);
805 a13.extend(t.count);
806 a14.extend(t.count);
807 a15.extend(t.count);
808 a16.extend(t.count);
809 a17.extend(t.count);
810 a18.extend(t.count);
811 a19.extend(t.count);
812 a20.extend(t.count);
813 a21.extend(t.count);
814 a22.extend(t.count);
815 a23.extend(t.count);
816 ddindx := t.first;
817 indx := 1;
818 while true loop
819 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
820 a1(indx) := t(ddindx).attribute_category;
821 a2(indx) := t(ddindx).attribute1;
822 a3(indx) := t(ddindx).attribute2;
823 a4(indx) := t(ddindx).attribute3;
824 a5(indx) := t(ddindx).attribute4;
825 a6(indx) := t(ddindx).attribute5;
826 a7(indx) := t(ddindx).attribute6;
827 a8(indx) := t(ddindx).attribute7;
828 a9(indx) := t(ddindx).attribute8;
829 a10(indx) := t(ddindx).attribute9;
830 a11(indx) := t(ddindx).attribute10;
831 a12(indx) := t(ddindx).attribute11;
832 a13(indx) := t(ddindx).attribute12;
833 a14(indx) := t(ddindx).attribute13;
834 a15(indx) := t(ddindx).attribute14;
835 a16(indx) := t(ddindx).attribute15;
836 a17(indx) := t(ddindx).object1_id1;
837 a18(indx) := t(ddindx).object1_id2;
838 a19(indx) := t(ddindx).jtot_object1_code;
839 a20(indx) := t(ddindx).rle_code;
840 a21(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
841 a22(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
842 a23(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
843 indx := indx+1;
844 if t.last =ddindx
845 then exit;
846 end if;
847 ddindx := t.next(ddindx);
848 end loop;
849 end if;
850 end if;
851 end rosetta_table_copy_out_p9;
852
853 procedure rosetta_table_copy_in_p11(t out nocopy okl_mla_create_update_pub.upd_deal_tab_type, a0 JTF_NUMBER_TABLE
854 , a1 JTF_VARCHAR2_TABLE_200
855 , a2 JTF_VARCHAR2_TABLE_2000
856 , a3 JTF_DATE_TABLE
857 , a4 JTF_DATE_TABLE
858 , a5 JTF_VARCHAR2_TABLE_100
859 , a6 JTF_VARCHAR2_TABLE_100
860 , a7 JTF_DATE_TABLE
861 , a8 JTF_VARCHAR2_TABLE_100
862 , a9 JTF_NUMBER_TABLE
863 ) as
864 ddindx binary_integer; indx binary_integer;
865 begin
866 if a0 is not null and a0.count > 0 then
867 if a0.count > 0 then
868 indx := a0.first;
869 ddindx := 1;
870 while true loop
871 t(ddindx).chr_id := rosetta_g_miss_num_map(a0(indx));
872 t(ddindx).chr_contract_number := a1(indx);
873 t(ddindx).chr_description := a2(indx);
874 t(ddindx).chr_start_date := rosetta_g_miss_date_in_map(a3(indx));
875 t(ddindx).chr_end_date := rosetta_g_miss_date_in_map(a4(indx));
876 t(ddindx).khr_converted_account_yn := a5(indx);
877 t(ddindx).chr_template_yn := a6(indx);
878 t(ddindx).chr_date_signed := rosetta_g_miss_date_in_map(a7(indx));
879 t(ddindx).chr_currency_code := a8(indx);
880 t(ddindx).legal_entity_id := rosetta_g_miss_num_map(a9(indx));
881 ddindx := ddindx+1;
882 if a0.last =indx
883 then exit;
884 end if;
885 indx := a0.next(indx);
886 end loop;
887 end if;
888 end if;
889 end rosetta_table_copy_in_p11;
890 procedure rosetta_table_copy_out_p11(t okl_mla_create_update_pub.upd_deal_tab_type, a0 out nocopy JTF_NUMBER_TABLE
891 , a1 out nocopy JTF_VARCHAR2_TABLE_200
892 , a2 out nocopy JTF_VARCHAR2_TABLE_2000
893 , a3 out nocopy JTF_DATE_TABLE
894 , a4 out nocopy JTF_DATE_TABLE
895 , a5 out nocopy JTF_VARCHAR2_TABLE_100
896 , a6 out nocopy JTF_VARCHAR2_TABLE_100
897 , a7 out nocopy JTF_DATE_TABLE
898 , a8 out nocopy JTF_VARCHAR2_TABLE_100
899 , a9 out nocopy JTF_NUMBER_TABLE
900 ) as
901 ddindx binary_integer; indx binary_integer;
902 begin
903 if t is null or t.count = 0 then
904 a0 := JTF_NUMBER_TABLE();
905 a1 := JTF_VARCHAR2_TABLE_200();
906 a2 := JTF_VARCHAR2_TABLE_2000();
907 a3 := JTF_DATE_TABLE();
908 a4 := JTF_DATE_TABLE();
909 a5 := JTF_VARCHAR2_TABLE_100();
910 a6 := JTF_VARCHAR2_TABLE_100();
911 a7 := JTF_DATE_TABLE();
912 a8 := JTF_VARCHAR2_TABLE_100();
913 a9 := JTF_NUMBER_TABLE();
914 else
915 a0 := JTF_NUMBER_TABLE();
916 a1 := JTF_VARCHAR2_TABLE_200();
917 a2 := JTF_VARCHAR2_TABLE_2000();
918 a3 := JTF_DATE_TABLE();
919 a4 := JTF_DATE_TABLE();
920 a5 := JTF_VARCHAR2_TABLE_100();
921 a6 := JTF_VARCHAR2_TABLE_100();
922 a7 := JTF_DATE_TABLE();
923 a8 := JTF_VARCHAR2_TABLE_100();
924 a9 := JTF_NUMBER_TABLE();
925 if t.count > 0 then
926 a0.extend(t.count);
927 a1.extend(t.count);
928 a2.extend(t.count);
929 a3.extend(t.count);
930 a4.extend(t.count);
931 a5.extend(t.count);
932 a6.extend(t.count);
933 a7.extend(t.count);
934 a8.extend(t.count);
935 a9.extend(t.count);
936 ddindx := t.first;
937 indx := 1;
938 while true loop
939 a0(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
940 a1(indx) := t(ddindx).chr_contract_number;
941 a2(indx) := t(ddindx).chr_description;
942 a3(indx) := t(ddindx).chr_start_date;
943 a4(indx) := t(ddindx).chr_end_date;
944 a5(indx) := t(ddindx).khr_converted_account_yn;
945 a6(indx) := t(ddindx).chr_template_yn;
946 a7(indx) := t(ddindx).chr_date_signed;
947 a8(indx) := t(ddindx).chr_currency_code;
948 a9(indx) := rosetta_g_miss_num_map(t(ddindx).legal_entity_id);
949 indx := indx+1;
950 if t.last =ddindx
951 then exit;
952 end if;
953 ddindx := t.next(ddindx);
954 end loop;
955 end if;
956 end if;
957 end rosetta_table_copy_out_p11;
958
959 procedure update_deal(p_api_version NUMBER
960 , p_init_msg_list VARCHAR2
961 , x_return_status out nocopy VARCHAR2
962 , x_msg_count out nocopy NUMBER
963 , x_msg_data out nocopy VARCHAR2
964 , p6_a0 out nocopy NUMBER
965 , p6_a1 out nocopy VARCHAR2
966 , p6_a2 out nocopy VARCHAR2
967 , p6_a3 out nocopy DATE
968 , p6_a4 out nocopy DATE
969 , p6_a5 out nocopy VARCHAR2
970 , p6_a6 out nocopy VARCHAR2
971 , p6_a7 out nocopy DATE
972 , p6_a8 out nocopy VARCHAR2
973 , p6_a9 out nocopy NUMBER
974 , p5_a0 NUMBER := 0-1962.0724
975 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
976 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
977 , p5_a3 DATE := fnd_api.g_miss_date
978 , p5_a4 DATE := fnd_api.g_miss_date
979 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
980 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a7 DATE := fnd_api.g_miss_date
982 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
983 , p5_a9 NUMBER := 0-1962.0724
984 )
985
986 as
987 ddp_durv_rec okl_mla_create_update_pub.upd_deal_rec_type;
988 ddx_durv_rec okl_mla_create_update_pub.upd_deal_rec_type;
989 ddindx binary_integer; indx binary_integer;
990 begin
991
992 -- copy data to the local IN or IN-OUT args, if any
993
994
995
996
997
998 ddp_durv_rec.chr_id := rosetta_g_miss_num_map(p5_a0);
999 ddp_durv_rec.chr_contract_number := p5_a1;
1000 ddp_durv_rec.chr_description := p5_a2;
1001 ddp_durv_rec.chr_start_date := rosetta_g_miss_date_in_map(p5_a3);
1002 ddp_durv_rec.chr_end_date := rosetta_g_miss_date_in_map(p5_a4);
1003 ddp_durv_rec.khr_converted_account_yn := p5_a5;
1004 ddp_durv_rec.chr_template_yn := p5_a6;
1005 ddp_durv_rec.chr_date_signed := rosetta_g_miss_date_in_map(p5_a7);
1006 ddp_durv_rec.chr_currency_code := p5_a8;
1007 ddp_durv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a9);
1008
1009
1010 -- here's the delegated call to the old PL/SQL routine
1011 okl_mla_create_update_pub.update_deal(p_api_version,
1012 p_init_msg_list,
1013 x_return_status,
1014 x_msg_count,
1015 x_msg_data,
1016 ddp_durv_rec,
1017 ddx_durv_rec);
1018
1019 -- copy data back from the local variables to OUT or IN-OUT args, if any
1020
1021
1022
1023
1024
1025
1026 p6_a0 := rosetta_g_miss_num_map(ddx_durv_rec.chr_id);
1027 p6_a1 := ddx_durv_rec.chr_contract_number;
1028 p6_a2 := ddx_durv_rec.chr_description;
1029 p6_a3 := ddx_durv_rec.chr_start_date;
1030 p6_a4 := ddx_durv_rec.chr_end_date;
1031 p6_a5 := ddx_durv_rec.khr_converted_account_yn;
1032 p6_a6 := ddx_durv_rec.chr_template_yn;
1033 p6_a7 := ddx_durv_rec.chr_date_signed;
1034 p6_a8 := ddx_durv_rec.chr_currency_code;
1035 p6_a9 := rosetta_g_miss_num_map(ddx_durv_rec.legal_entity_id);
1036 end;
1037
1038 procedure create_deal(p_api_version NUMBER
1039 , p_init_msg_list VARCHAR2
1040 , x_return_status out nocopy VARCHAR2
1041 , x_msg_count out nocopy NUMBER
1042 , x_msg_data out nocopy VARCHAR2
1043 , p_source_code VARCHAR2
1044 , p_template_type VARCHAR2
1045 , p_contract_number VARCHAR2
1046 , p_scs_code VARCHAR2
1047 , p_customer_id1 in out nocopy VARCHAR2
1048 , p_customer_id2 in out nocopy VARCHAR2
1049 , p_customer_code VARCHAR2
1050 , p_customer_name VARCHAR2
1051 , p_effective_from date
1052 , p_program_name VARCHAR2
1053 , p_program_id NUMBER
1054 , p_org_id NUMBER
1055 , p_organization_id NUMBER
1056 , p_source_chr_id in out nocopy NUMBER
1057 , p_source_contract_number VARCHAR2
1058 , x_chr_id out nocopy NUMBER
1059 , p_legal_entity_id NUMBER
1060 )
1061
1062 as
1063 ddp_effective_from date;
1064 ddindx binary_integer; indx binary_integer;
1065 begin
1066
1067 -- copy data to the local IN or IN-OUT args, if any
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081 ddp_effective_from := rosetta_g_miss_date_in_map(p_effective_from);
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091 -- here's the delegated call to the old PL/SQL routine
1092 okl_mla_create_update_pub.create_deal(p_api_version,
1093 p_init_msg_list,
1094 x_return_status,
1095 x_msg_count,
1096 x_msg_data,
1097 p_source_code,
1098 p_template_type,
1099 p_contract_number,
1100 p_scs_code,
1101 p_customer_id1,
1102 p_customer_id2,
1103 p_customer_code,
1104 p_customer_name,
1105 ddp_effective_from,
1106 p_program_name,
1107 p_program_id,
1108 p_org_id,
1109 p_organization_id,
1110 p_source_chr_id,
1111 p_source_contract_number,
1112 x_chr_id,
1113 p_legal_entity_id);
1114
1115 -- copy data back from the local variables to OUT or IN-OUT args, if any
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
1134
1135
1136
1137 end;
1138
1139 procedure create_party(p_api_version NUMBER
1140 , p_init_msg_list VARCHAR2
1141 , x_return_status out nocopy VARCHAR2
1142 , x_msg_count out nocopy NUMBER
1143 , x_msg_data out nocopy VARCHAR2
1144 , p6_a0 out nocopy NUMBER
1145 , p6_a1 out nocopy VARCHAR2
1146 , p6_a2 out nocopy VARCHAR2
1147 , p6_a3 out nocopy VARCHAR2
1148 , p6_a4 out nocopy VARCHAR2
1149 , p6_a5 out nocopy VARCHAR2
1150 , p6_a6 out nocopy VARCHAR2
1151 , p6_a7 out nocopy VARCHAR2
1152 , p6_a8 out nocopy VARCHAR2
1153 , p6_a9 out nocopy VARCHAR2
1154 , p6_a10 out nocopy VARCHAR2
1155 , p6_a11 out nocopy VARCHAR2
1156 , p6_a12 out nocopy VARCHAR2
1157 , p6_a13 out nocopy VARCHAR2
1158 , p6_a14 out nocopy VARCHAR2
1159 , p6_a15 out nocopy VARCHAR2
1160 , p6_a16 out nocopy VARCHAR2
1161 , p6_a17 out nocopy VARCHAR2
1162 , p6_a18 out nocopy VARCHAR2
1163 , p6_a19 out nocopy VARCHAR2
1164 , p6_a20 out nocopy VARCHAR2
1165 , p6_a21 out nocopy NUMBER
1166 , p6_a22 out nocopy NUMBER
1167 , p6_a23 out nocopy NUMBER
1168 , p5_a0 NUMBER := 0-1962.0724
1169 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1170 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1171 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1172 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1173 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1174 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1175 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1176 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1177 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1178 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1179 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1180 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1181 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1182 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1183 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1184 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1185 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1186 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1187 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1188 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1189 , p5_a21 NUMBER := 0-1962.0724
1190 , p5_a22 NUMBER := 0-1962.0724
1191 , p5_a23 NUMBER := 0-1962.0724
1192 )
1193
1194 as
1195 ddp_kpl_rec okl_mla_create_update_pub.party_rec_type;
1196 ddx_kpl_rec okl_mla_create_update_pub.party_rec_type;
1197 ddindx binary_integer; indx binary_integer;
1198 begin
1199
1200 -- copy data to the local IN or IN-OUT args, if any
1201
1202
1203
1204
1205
1206 ddp_kpl_rec.id := rosetta_g_miss_num_map(p5_a0);
1207 ddp_kpl_rec.attribute_category := p5_a1;
1208 ddp_kpl_rec.attribute1 := p5_a2;
1209 ddp_kpl_rec.attribute2 := p5_a3;
1210 ddp_kpl_rec.attribute3 := p5_a4;
1211 ddp_kpl_rec.attribute4 := p5_a5;
1212 ddp_kpl_rec.attribute5 := p5_a6;
1213 ddp_kpl_rec.attribute6 := p5_a7;
1214 ddp_kpl_rec.attribute7 := p5_a8;
1215 ddp_kpl_rec.attribute8 := p5_a9;
1216 ddp_kpl_rec.attribute9 := p5_a10;
1217 ddp_kpl_rec.attribute10 := p5_a11;
1218 ddp_kpl_rec.attribute11 := p5_a12;
1219 ddp_kpl_rec.attribute12 := p5_a13;
1220 ddp_kpl_rec.attribute13 := p5_a14;
1221 ddp_kpl_rec.attribute14 := p5_a15;
1222 ddp_kpl_rec.attribute15 := p5_a16;
1223 ddp_kpl_rec.object1_id1 := p5_a17;
1224 ddp_kpl_rec.object1_id2 := p5_a18;
1225 ddp_kpl_rec.jtot_object1_code := p5_a19;
1226 ddp_kpl_rec.rle_code := p5_a20;
1227 ddp_kpl_rec.chr_id := rosetta_g_miss_num_map(p5_a21);
1228 ddp_kpl_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a22);
1229 ddp_kpl_rec.cle_id := rosetta_g_miss_num_map(p5_a23);
1230
1231
1232 -- here's the delegated call to the old PL/SQL routine
1233 okl_mla_create_update_pub.create_party(p_api_version,
1234 p_init_msg_list,
1235 x_return_status,
1236 x_msg_count,
1237 x_msg_data,
1238 ddp_kpl_rec,
1239 ddx_kpl_rec);
1240
1241 -- copy data back from the local variables to OUT or IN-OUT args, if any
1242
1243
1244
1245
1246
1247
1248 p6_a0 := rosetta_g_miss_num_map(ddx_kpl_rec.id);
1249 p6_a1 := ddx_kpl_rec.attribute_category;
1250 p6_a2 := ddx_kpl_rec.attribute1;
1251 p6_a3 := ddx_kpl_rec.attribute2;
1252 p6_a4 := ddx_kpl_rec.attribute3;
1253 p6_a5 := ddx_kpl_rec.attribute4;
1254 p6_a6 := ddx_kpl_rec.attribute5;
1255 p6_a7 := ddx_kpl_rec.attribute6;
1256 p6_a8 := ddx_kpl_rec.attribute7;
1257 p6_a9 := ddx_kpl_rec.attribute8;
1258 p6_a10 := ddx_kpl_rec.attribute9;
1259 p6_a11 := ddx_kpl_rec.attribute10;
1260 p6_a12 := ddx_kpl_rec.attribute11;
1261 p6_a13 := ddx_kpl_rec.attribute12;
1262 p6_a14 := ddx_kpl_rec.attribute13;
1263 p6_a15 := ddx_kpl_rec.attribute14;
1264 p6_a16 := ddx_kpl_rec.attribute15;
1265 p6_a17 := ddx_kpl_rec.object1_id1;
1266 p6_a18 := ddx_kpl_rec.object1_id2;
1267 p6_a19 := ddx_kpl_rec.jtot_object1_code;
1268 p6_a20 := ddx_kpl_rec.rle_code;
1269 p6_a21 := rosetta_g_miss_num_map(ddx_kpl_rec.chr_id);
1270 p6_a22 := rosetta_g_miss_num_map(ddx_kpl_rec.dnz_chr_id);
1271 p6_a23 := rosetta_g_miss_num_map(ddx_kpl_rec.cle_id);
1272 end;
1273
1274 end okl_mla_create_update_pub_w;