[Home] [Help]
PACKAGE BODY: APPS.OKL_DEAL_CREATE_PUB_W
Source
1 package body okl_deal_create_pub_w as
2 /* $Header: OKLUDCRB.pls 120.2 2007/08/21 22:21:10 smereddy 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_deal_create_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_deal_create_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_deal_create_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_deal_create_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 update_deal(p_api_version NUMBER
854 , p_init_msg_list VARCHAR2
855 , x_return_status out nocopy VARCHAR2
856 , x_msg_count out nocopy NUMBER
857 , x_msg_data out nocopy VARCHAR2
858 , p6_a0 out nocopy NUMBER
859 , p6_a1 out nocopy VARCHAR2
860 , p6_a2 out nocopy VARCHAR2
861 , p6_a3 out nocopy VARCHAR2
862 , p6_a4 out nocopy VARCHAR2
863 , p6_a5 out nocopy DATE
864 , p6_a6 out nocopy DATE
865 , p6_a7 out nocopy NUMBER
866 , p6_a8 out nocopy VARCHAR2
867 , p6_a9 out nocopy NUMBER
868 , p6_a10 out nocopy NUMBER
869 , p6_a11 out nocopy VARCHAR2
870 , p6_a12 out nocopy VARCHAR2
871 , p6_a13 out nocopy VARCHAR2
872 , p6_a14 out nocopy VARCHAR2
873 , p6_a15 out nocopy VARCHAR2
874 , p6_a16 out nocopy VARCHAR2
875 , p6_a17 out nocopy VARCHAR2
876 , p6_a18 out nocopy DATE
877 , p6_a19 out nocopy DATE
878 , p6_a20 out nocopy DATE
879 , p6_a21 out nocopy DATE
880 , p6_a22 out nocopy VARCHAR2
881 , p6_a23 out nocopy VARCHAR2
882 , p6_a24 out nocopy VARCHAR2
883 , p6_a25 out nocopy NUMBER
884 , p6_a26 out nocopy NUMBER
885 , p6_a27 out nocopy NUMBER
886 , p6_a28 out nocopy VARCHAR2
887 , p6_a29 out nocopy VARCHAR2
888 , p6_a30 out nocopy VARCHAR2
889 , p6_a31 out nocopy VARCHAR2
890 , p6_a32 out nocopy NUMBER
891 , p6_a33 out nocopy VARCHAR2
892 , p6_a34 out nocopy VARCHAR2
893 , p6_a35 out nocopy VARCHAR2
894 , p6_a36 out nocopy VARCHAR2
895 , p6_a37 out nocopy VARCHAR2
896 , p6_a38 out nocopy VARCHAR2
897 , p6_a39 out nocopy NUMBER
898 , p6_a40 out nocopy VARCHAR2
899 , p6_a41 out nocopy VARCHAR2
900 , p6_a42 out nocopy NUMBER
901 , p6_a43 out nocopy VARCHAR2
902 , p6_a44 out nocopy VARCHAR2
903 , p6_a45 out nocopy NUMBER
904 , p6_a46 out nocopy NUMBER
905 , p6_a47 out nocopy NUMBER
906 , p6_a48 out nocopy NUMBER
907 , p6_a49 out nocopy VARCHAR2
908 , p6_a50 out nocopy VARCHAR2
909 , p6_a51 out nocopy NUMBER
910 , p6_a52 out nocopy NUMBER
911 , p6_a53 out nocopy VARCHAR2
912 , p6_a54 out nocopy VARCHAR2
913 , p6_a55 out nocopy NUMBER
914 , p6_a56 out nocopy VARCHAR2
915 , p6_a57 out nocopy VARCHAR2
916 , p6_a58 out nocopy NUMBER
917 , p6_a59 out nocopy VARCHAR2
918 , p6_a60 out nocopy VARCHAR2
919 , p6_a61 out nocopy VARCHAR2
920 , p6_a62 out nocopy VARCHAR2
921 , p6_a63 out nocopy NUMBER
922 , p6_a64 out nocopy NUMBER
923 , p6_a65 out nocopy VARCHAR2
924 , p6_a66 out nocopy VARCHAR2
925 , p6_a67 out nocopy NUMBER
926 , p6_a68 out nocopy NUMBER
927 , p6_a69 out nocopy VARCHAR2
928 , p6_a70 out nocopy VARCHAR2
929 , p6_a71 out nocopy NUMBER
930 , p6_a72 out nocopy NUMBER
931 , p6_a73 out nocopy VARCHAR2
932 , p6_a74 out nocopy VARCHAR2
933 , p6_a75 out nocopy NUMBER
934 , p6_a76 out nocopy NUMBER
935 , p6_a77 out nocopy VARCHAR2
936 , p6_a78 out nocopy VARCHAR2
937 , p6_a79 out nocopy VARCHAR2
938 , p6_a80 out nocopy NUMBER
939 , p6_a81 out nocopy DATE
940 , p6_a82 out nocopy VARCHAR2
941 , p6_a83 out nocopy NUMBER
942 , p5_a0 NUMBER := 0-1962.0724
943 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
944 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
945 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
946 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
947 , p5_a5 DATE := fnd_api.g_miss_date
948 , p5_a6 DATE := fnd_api.g_miss_date
949 , p5_a7 NUMBER := 0-1962.0724
950 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
951 , p5_a9 NUMBER := 0-1962.0724
952 , p5_a10 NUMBER := 0-1962.0724
953 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
954 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
955 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
956 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
957 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
958 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
959 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
960 , p5_a18 DATE := fnd_api.g_miss_date
961 , p5_a19 DATE := fnd_api.g_miss_date
962 , p5_a20 DATE := fnd_api.g_miss_date
963 , p5_a21 DATE := fnd_api.g_miss_date
964 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
965 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
966 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
967 , p5_a25 NUMBER := 0-1962.0724
968 , p5_a26 NUMBER := 0-1962.0724
969 , p5_a27 NUMBER := 0-1962.0724
970 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
971 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
972 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
973 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
974 , p5_a32 NUMBER := 0-1962.0724
975 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
976 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
977 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
978 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
979 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
980 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
981 , p5_a39 NUMBER := 0-1962.0724
982 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
983 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
984 , p5_a42 NUMBER := 0-1962.0724
985 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
986 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
987 , p5_a45 NUMBER := 0-1962.0724
988 , p5_a46 NUMBER := 0-1962.0724
989 , p5_a47 NUMBER := 0-1962.0724
990 , p5_a48 NUMBER := 0-1962.0724
991 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
992 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
993 , p5_a51 NUMBER := 0-1962.0724
994 , p5_a52 NUMBER := 0-1962.0724
995 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
996 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
997 , p5_a55 NUMBER := 0-1962.0724
998 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
999 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
1000 , p5_a58 NUMBER := 0-1962.0724
1001 , p5_a59 VARCHAR2 := fnd_api.g_miss_char
1002 , p5_a60 VARCHAR2 := fnd_api.g_miss_char
1003 , p5_a61 VARCHAR2 := fnd_api.g_miss_char
1004 , p5_a62 VARCHAR2 := fnd_api.g_miss_char
1005 , p5_a63 NUMBER := 0-1962.0724
1006 , p5_a64 NUMBER := 0-1962.0724
1007 , p5_a65 VARCHAR2 := fnd_api.g_miss_char
1008 , p5_a66 VARCHAR2 := fnd_api.g_miss_char
1009 , p5_a67 NUMBER := 0-1962.0724
1010 , p5_a68 NUMBER := 0-1962.0724
1011 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
1012 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
1013 , p5_a71 NUMBER := 0-1962.0724
1014 , p5_a72 NUMBER := 0-1962.0724
1015 , p5_a73 VARCHAR2 := fnd_api.g_miss_char
1016 , p5_a74 VARCHAR2 := fnd_api.g_miss_char
1017 , p5_a75 NUMBER := 0-1962.0724
1018 , p5_a76 NUMBER := 0-1962.0724
1019 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
1020 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
1021 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
1022 , p5_a80 NUMBER := 0-1962.0724
1023 , p5_a81 DATE := fnd_api.g_miss_date
1024 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
1025 , p5_a83 NUMBER := 0-1962.0724
1026 )
1027
1028 as
1029 ddp_durv_rec okl_deal_create_pub.deal_rec_type;
1030 ddx_durv_rec okl_deal_create_pub.deal_rec_type;
1031 ddindx binary_integer; indx binary_integer;
1032 begin
1033
1034 -- copy data to the local IN or IN-OUT args, if any
1035
1036
1037
1038
1039
1040 ddp_durv_rec.chr_id := rosetta_g_miss_num_map(p5_a0);
1041 ddp_durv_rec.chr_contract_number := p5_a1;
1042 ddp_durv_rec.chr_description := p5_a2;
1043 ddp_durv_rec.vers_version := p5_a3;
1044 ddp_durv_rec.chr_sts_code := p5_a4;
1045 ddp_durv_rec.chr_start_date := rosetta_g_miss_date_in_map(p5_a5);
1046 ddp_durv_rec.chr_end_date := rosetta_g_miss_date_in_map(p5_a6);
1047 ddp_durv_rec.khr_term_duration := rosetta_g_miss_num_map(p5_a7);
1048 ddp_durv_rec.chr_cust_po_number := p5_a8;
1049 ddp_durv_rec.chr_inv_organization_id := rosetta_g_miss_num_map(p5_a9);
1050 ddp_durv_rec.chr_authoring_org_id := rosetta_g_miss_num_map(p5_a10);
1051 ddp_durv_rec.khr_generate_accrual_yn := p5_a11;
1052 ddp_durv_rec.khr_syndicatable_yn := p5_a12;
1053 ddp_durv_rec.khr_prefunding_eligible_yn := p5_a13;
1054 ddp_durv_rec.khr_revolving_credit_yn := p5_a14;
1055 ddp_durv_rec.khr_converted_account_yn := p5_a15;
1056 ddp_durv_rec.khr_credit_act_yn := p5_a16;
1057 ddp_durv_rec.chr_template_yn := p5_a17;
1058 ddp_durv_rec.chr_date_signed := rosetta_g_miss_date_in_map(p5_a18);
1059 ddp_durv_rec.khr_date_deal_transferred := rosetta_g_miss_date_in_map(p5_a19);
1060 ddp_durv_rec.khr_accepted_date := rosetta_g_miss_date_in_map(p5_a20);
1061 ddp_durv_rec.khr_expected_delivery_date := rosetta_g_miss_date_in_map(p5_a21);
1062 ddp_durv_rec.khr_amd_code := p5_a22;
1063 ddp_durv_rec.khr_deal_type := p5_a23;
1064 ddp_durv_rec.mla_contract_number := p5_a24;
1065 ddp_durv_rec.mla_gvr_chr_id_referred := rosetta_g_miss_num_map(p5_a25);
1066 ddp_durv_rec.mla_gvr_id := rosetta_g_miss_num_map(p5_a26);
1067 ddp_durv_rec.cust_id := rosetta_g_miss_num_map(p5_a27);
1068 ddp_durv_rec.cust_object1_id1 := p5_a28;
1069 ddp_durv_rec.cust_object1_id2 := p5_a29;
1070 ddp_durv_rec.cust_jtot_object1_code := p5_a30;
1071 ddp_durv_rec.cust_name := p5_a31;
1072 ddp_durv_rec.lessor_id := rosetta_g_miss_num_map(p5_a32);
1073 ddp_durv_rec.lessor_object1_id1 := p5_a33;
1074 ddp_durv_rec.lessor_object1_id2 := p5_a34;
1075 ddp_durv_rec.lessor_jtot_object1_code := p5_a35;
1076 ddp_durv_rec.lessor_name := p5_a36;
1077 ddp_durv_rec.chr_currency_code := p5_a37;
1078 ddp_durv_rec.currency_name := p5_a38;
1079 ddp_durv_rec.khr_pdt_id := rosetta_g_miss_num_map(p5_a39);
1080 ddp_durv_rec.product_name := p5_a40;
1081 ddp_durv_rec.product_description := p5_a41;
1082 ddp_durv_rec.khr_khr_id := rosetta_g_miss_num_map(p5_a42);
1083 ddp_durv_rec.program_contract_number := p5_a43;
1084 ddp_durv_rec.cl_contract_number := p5_a44;
1085 ddp_durv_rec.cl_gvr_chr_id_referred := rosetta_g_miss_num_map(p5_a45);
1086 ddp_durv_rec.cl_gvr_id := rosetta_g_miss_num_map(p5_a46);
1087 ddp_durv_rec.rg_larles_id := rosetta_g_miss_num_map(p5_a47);
1088 ddp_durv_rec.r_larles_id := rosetta_g_miss_num_map(p5_a48);
1089 ddp_durv_rec.r_larles_rule_information1 := p5_a49;
1090 ddp_durv_rec.col_larles_form_left_prompt := p5_a50;
1091 ddp_durv_rec.rg_larebl_id := rosetta_g_miss_num_map(p5_a51);
1092 ddp_durv_rec.r_larebl_id := rosetta_g_miss_num_map(p5_a52);
1093 ddp_durv_rec.r_larebl_rule_information1 := p5_a53;
1094 ddp_durv_rec.col_larebl_form_left_prompt := p5_a54;
1095 ddp_durv_rec.chr_cust_acct_id := rosetta_g_miss_num_map(p5_a55);
1096 ddp_durv_rec.customer_account := p5_a56;
1097 ddp_durv_rec.cust_site_description := p5_a57;
1098 ddp_durv_rec.contact_id := rosetta_g_miss_num_map(p5_a58);
1099 ddp_durv_rec.contact_object1_id1 := p5_a59;
1100 ddp_durv_rec.contact_object1_id2 := p5_a60;
1101 ddp_durv_rec.contact_jtot_object1_code := p5_a61;
1102 ddp_durv_rec.contact_name := p5_a62;
1103 ddp_durv_rec.rg_latown_id := rosetta_g_miss_num_map(p5_a63);
1104 ddp_durv_rec.r_latown_id := rosetta_g_miss_num_map(p5_a64);
1105 ddp_durv_rec.r_latown_rule_information1 := p5_a65;
1106 ddp_durv_rec.col_latown_form_left_prompt := p5_a66;
1107 ddp_durv_rec.rg_lanntf_id := rosetta_g_miss_num_map(p5_a67);
1108 ddp_durv_rec.r_lanntf_id := rosetta_g_miss_num_map(p5_a68);
1109 ddp_durv_rec.r_lanntf_rule_information1 := p5_a69;
1110 ddp_durv_rec.col_lanntf_form_left_prompt := p5_a70;
1111 ddp_durv_rec.rg_lacpln_id := rosetta_g_miss_num_map(p5_a71);
1112 ddp_durv_rec.r_lacpln_id := rosetta_g_miss_num_map(p5_a72);
1113 ddp_durv_rec.r_lacpln_rule_information1 := p5_a73;
1114 ddp_durv_rec.col_lacpln_form_left_prompt := p5_a74;
1115 ddp_durv_rec.rg_lapact_id := rosetta_g_miss_num_map(p5_a75);
1116 ddp_durv_rec.r_lapact_id := rosetta_g_miss_num_map(p5_a76);
1117 ddp_durv_rec.r_lapact_rule_information1 := p5_a77;
1118 ddp_durv_rec.col_lapact_form_left_prompt := p5_a78;
1119 ddp_durv_rec.khr_currency_conv_type := p5_a79;
1120 ddp_durv_rec.khr_currency_conv_rate := rosetta_g_miss_num_map(p5_a80);
1121 ddp_durv_rec.khr_currency_conv_date := rosetta_g_miss_date_in_map(p5_a81);
1122 ddp_durv_rec.khr_assignable_yn := p5_a82;
1123 ddp_durv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
1124
1125
1126 -- here's the delegated call to the old PL/SQL routine
1127 okl_deal_create_pub.update_deal(p_api_version,
1128 p_init_msg_list,
1129 x_return_status,
1130 x_msg_count,
1131 x_msg_data,
1132 ddp_durv_rec,
1133 ddx_durv_rec);
1134
1135 -- copy data back from the local variables to OUT or IN-OUT args, if any
1136
1137
1138
1139
1140
1141
1142 p6_a0 := rosetta_g_miss_num_map(ddx_durv_rec.chr_id);
1143 p6_a1 := ddx_durv_rec.chr_contract_number;
1144 p6_a2 := ddx_durv_rec.chr_description;
1145 p6_a3 := ddx_durv_rec.vers_version;
1146 p6_a4 := ddx_durv_rec.chr_sts_code;
1147 p6_a5 := ddx_durv_rec.chr_start_date;
1148 p6_a6 := ddx_durv_rec.chr_end_date;
1149 p6_a7 := rosetta_g_miss_num_map(ddx_durv_rec.khr_term_duration);
1150 p6_a8 := ddx_durv_rec.chr_cust_po_number;
1151 p6_a9 := rosetta_g_miss_num_map(ddx_durv_rec.chr_inv_organization_id);
1152 p6_a10 := rosetta_g_miss_num_map(ddx_durv_rec.chr_authoring_org_id);
1153 p6_a11 := ddx_durv_rec.khr_generate_accrual_yn;
1154 p6_a12 := ddx_durv_rec.khr_syndicatable_yn;
1155 p6_a13 := ddx_durv_rec.khr_prefunding_eligible_yn;
1156 p6_a14 := ddx_durv_rec.khr_revolving_credit_yn;
1157 p6_a15 := ddx_durv_rec.khr_converted_account_yn;
1158 p6_a16 := ddx_durv_rec.khr_credit_act_yn;
1159 p6_a17 := ddx_durv_rec.chr_template_yn;
1160 p6_a18 := ddx_durv_rec.chr_date_signed;
1161 p6_a19 := ddx_durv_rec.khr_date_deal_transferred;
1162 p6_a20 := ddx_durv_rec.khr_accepted_date;
1163 p6_a21 := ddx_durv_rec.khr_expected_delivery_date;
1164 p6_a22 := ddx_durv_rec.khr_amd_code;
1165 p6_a23 := ddx_durv_rec.khr_deal_type;
1166 p6_a24 := ddx_durv_rec.mla_contract_number;
1167 p6_a25 := rosetta_g_miss_num_map(ddx_durv_rec.mla_gvr_chr_id_referred);
1168 p6_a26 := rosetta_g_miss_num_map(ddx_durv_rec.mla_gvr_id);
1169 p6_a27 := rosetta_g_miss_num_map(ddx_durv_rec.cust_id);
1170 p6_a28 := ddx_durv_rec.cust_object1_id1;
1171 p6_a29 := ddx_durv_rec.cust_object1_id2;
1172 p6_a30 := ddx_durv_rec.cust_jtot_object1_code;
1173 p6_a31 := ddx_durv_rec.cust_name;
1174 p6_a32 := rosetta_g_miss_num_map(ddx_durv_rec.lessor_id);
1175 p6_a33 := ddx_durv_rec.lessor_object1_id1;
1176 p6_a34 := ddx_durv_rec.lessor_object1_id2;
1177 p6_a35 := ddx_durv_rec.lessor_jtot_object1_code;
1178 p6_a36 := ddx_durv_rec.lessor_name;
1179 p6_a37 := ddx_durv_rec.chr_currency_code;
1180 p6_a38 := ddx_durv_rec.currency_name;
1181 p6_a39 := rosetta_g_miss_num_map(ddx_durv_rec.khr_pdt_id);
1182 p6_a40 := ddx_durv_rec.product_name;
1183 p6_a41 := ddx_durv_rec.product_description;
1184 p6_a42 := rosetta_g_miss_num_map(ddx_durv_rec.khr_khr_id);
1185 p6_a43 := ddx_durv_rec.program_contract_number;
1186 p6_a44 := ddx_durv_rec.cl_contract_number;
1187 p6_a45 := rosetta_g_miss_num_map(ddx_durv_rec.cl_gvr_chr_id_referred);
1188 p6_a46 := rosetta_g_miss_num_map(ddx_durv_rec.cl_gvr_id);
1189 p6_a47 := rosetta_g_miss_num_map(ddx_durv_rec.rg_larles_id);
1190 p6_a48 := rosetta_g_miss_num_map(ddx_durv_rec.r_larles_id);
1191 p6_a49 := ddx_durv_rec.r_larles_rule_information1;
1192 p6_a50 := ddx_durv_rec.col_larles_form_left_prompt;
1193 p6_a51 := rosetta_g_miss_num_map(ddx_durv_rec.rg_larebl_id);
1194 p6_a52 := rosetta_g_miss_num_map(ddx_durv_rec.r_larebl_id);
1195 p6_a53 := ddx_durv_rec.r_larebl_rule_information1;
1196 p6_a54 := ddx_durv_rec.col_larebl_form_left_prompt;
1197 p6_a55 := rosetta_g_miss_num_map(ddx_durv_rec.chr_cust_acct_id);
1198 p6_a56 := ddx_durv_rec.customer_account;
1199 p6_a57 := ddx_durv_rec.cust_site_description;
1200 p6_a58 := rosetta_g_miss_num_map(ddx_durv_rec.contact_id);
1201 p6_a59 := ddx_durv_rec.contact_object1_id1;
1202 p6_a60 := ddx_durv_rec.contact_object1_id2;
1203 p6_a61 := ddx_durv_rec.contact_jtot_object1_code;
1204 p6_a62 := ddx_durv_rec.contact_name;
1205 p6_a63 := rosetta_g_miss_num_map(ddx_durv_rec.rg_latown_id);
1206 p6_a64 := rosetta_g_miss_num_map(ddx_durv_rec.r_latown_id);
1207 p6_a65 := ddx_durv_rec.r_latown_rule_information1;
1208 p6_a66 := ddx_durv_rec.col_latown_form_left_prompt;
1209 p6_a67 := rosetta_g_miss_num_map(ddx_durv_rec.rg_lanntf_id);
1210 p6_a68 := rosetta_g_miss_num_map(ddx_durv_rec.r_lanntf_id);
1211 p6_a69 := ddx_durv_rec.r_lanntf_rule_information1;
1212 p6_a70 := ddx_durv_rec.col_lanntf_form_left_prompt;
1213 p6_a71 := rosetta_g_miss_num_map(ddx_durv_rec.rg_lacpln_id);
1214 p6_a72 := rosetta_g_miss_num_map(ddx_durv_rec.r_lacpln_id);
1215 p6_a73 := ddx_durv_rec.r_lacpln_rule_information1;
1216 p6_a74 := ddx_durv_rec.col_lacpln_form_left_prompt;
1217 p6_a75 := rosetta_g_miss_num_map(ddx_durv_rec.rg_lapact_id);
1218 p6_a76 := rosetta_g_miss_num_map(ddx_durv_rec.r_lapact_id);
1219 p6_a77 := ddx_durv_rec.r_lapact_rule_information1;
1220 p6_a78 := ddx_durv_rec.col_lapact_form_left_prompt;
1221 p6_a79 := ddx_durv_rec.khr_currency_conv_type;
1222 p6_a80 := rosetta_g_miss_num_map(ddx_durv_rec.khr_currency_conv_rate);
1223 p6_a81 := ddx_durv_rec.khr_currency_conv_date;
1224 p6_a82 := ddx_durv_rec.khr_assignable_yn;
1225 p6_a83 := rosetta_g_miss_num_map(ddx_durv_rec.legal_entity_id);
1226 end;
1227
1228 procedure load_deal(p_api_version NUMBER
1229 , p_init_msg_list VARCHAR2
1230 , x_return_status out nocopy VARCHAR2
1231 , x_msg_count out nocopy NUMBER
1232 , x_msg_data out nocopy VARCHAR2
1233 , p6_a0 out nocopy NUMBER
1234 , p6_a1 out nocopy VARCHAR2
1235 , p6_a2 out nocopy VARCHAR2
1236 , p6_a3 out nocopy VARCHAR2
1237 , p6_a4 out nocopy VARCHAR2
1238 , p6_a5 out nocopy DATE
1239 , p6_a6 out nocopy DATE
1240 , p6_a7 out nocopy NUMBER
1241 , p6_a8 out nocopy VARCHAR2
1242 , p6_a9 out nocopy NUMBER
1243 , p6_a10 out nocopy NUMBER
1244 , p6_a11 out nocopy VARCHAR2
1245 , p6_a12 out nocopy VARCHAR2
1246 , p6_a13 out nocopy VARCHAR2
1247 , p6_a14 out nocopy VARCHAR2
1248 , p6_a15 out nocopy VARCHAR2
1249 , p6_a16 out nocopy VARCHAR2
1250 , p6_a17 out nocopy VARCHAR2
1251 , p6_a18 out nocopy DATE
1252 , p6_a19 out nocopy DATE
1253 , p6_a20 out nocopy DATE
1254 , p6_a21 out nocopy DATE
1255 , p6_a22 out nocopy VARCHAR2
1256 , p6_a23 out nocopy VARCHAR2
1257 , p6_a24 out nocopy VARCHAR2
1258 , p6_a25 out nocopy NUMBER
1259 , p6_a26 out nocopy NUMBER
1260 , p6_a27 out nocopy NUMBER
1261 , p6_a28 out nocopy VARCHAR2
1262 , p6_a29 out nocopy VARCHAR2
1263 , p6_a30 out nocopy VARCHAR2
1264 , p6_a31 out nocopy VARCHAR2
1265 , p6_a32 out nocopy NUMBER
1266 , p6_a33 out nocopy VARCHAR2
1267 , p6_a34 out nocopy VARCHAR2
1268 , p6_a35 out nocopy VARCHAR2
1269 , p6_a36 out nocopy VARCHAR2
1270 , p6_a37 out nocopy VARCHAR2
1271 , p6_a38 out nocopy VARCHAR2
1272 , p6_a39 out nocopy NUMBER
1273 , p6_a40 out nocopy VARCHAR2
1274 , p6_a41 out nocopy VARCHAR2
1275 , p6_a42 out nocopy NUMBER
1276 , p6_a43 out nocopy VARCHAR2
1277 , p6_a44 out nocopy VARCHAR2
1278 , p6_a45 out nocopy NUMBER
1279 , p6_a46 out nocopy NUMBER
1280 , p6_a47 out nocopy NUMBER
1281 , p6_a48 out nocopy NUMBER
1282 , p6_a49 out nocopy VARCHAR2
1283 , p6_a50 out nocopy VARCHAR2
1284 , p6_a51 out nocopy NUMBER
1285 , p6_a52 out nocopy NUMBER
1286 , p6_a53 out nocopy VARCHAR2
1287 , p6_a54 out nocopy VARCHAR2
1288 , p6_a55 out nocopy NUMBER
1289 , p6_a56 out nocopy VARCHAR2
1290 , p6_a57 out nocopy VARCHAR2
1291 , p6_a58 out nocopy NUMBER
1292 , p6_a59 out nocopy VARCHAR2
1293 , p6_a60 out nocopy VARCHAR2
1294 , p6_a61 out nocopy VARCHAR2
1295 , p6_a62 out nocopy VARCHAR2
1296 , p6_a63 out nocopy NUMBER
1297 , p6_a64 out nocopy NUMBER
1298 , p6_a65 out nocopy VARCHAR2
1299 , p6_a66 out nocopy VARCHAR2
1300 , p6_a67 out nocopy NUMBER
1301 , p6_a68 out nocopy NUMBER
1302 , p6_a69 out nocopy VARCHAR2
1303 , p6_a70 out nocopy VARCHAR2
1304 , p6_a71 out nocopy NUMBER
1305 , p6_a72 out nocopy NUMBER
1306 , p6_a73 out nocopy VARCHAR2
1307 , p6_a74 out nocopy VARCHAR2
1308 , p6_a75 out nocopy NUMBER
1309 , p6_a76 out nocopy NUMBER
1310 , p6_a77 out nocopy VARCHAR2
1311 , p6_a78 out nocopy VARCHAR2
1312 , p6_a79 out nocopy VARCHAR2
1313 , p6_a80 out nocopy NUMBER
1314 , p6_a81 out nocopy DATE
1315 , p6_a82 out nocopy VARCHAR2
1316 , p6_a83 out nocopy NUMBER
1317 , p5_a0 NUMBER := 0-1962.0724
1318 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1319 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1320 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1321 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1322 , p5_a5 DATE := fnd_api.g_miss_date
1323 , p5_a6 DATE := fnd_api.g_miss_date
1324 , p5_a7 NUMBER := 0-1962.0724
1325 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1326 , p5_a9 NUMBER := 0-1962.0724
1327 , p5_a10 NUMBER := 0-1962.0724
1328 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1329 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1330 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1331 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1332 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1333 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1334 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1335 , p5_a18 DATE := fnd_api.g_miss_date
1336 , p5_a19 DATE := fnd_api.g_miss_date
1337 , p5_a20 DATE := fnd_api.g_miss_date
1338 , p5_a21 DATE := fnd_api.g_miss_date
1339 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
1340 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
1341 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
1342 , p5_a25 NUMBER := 0-1962.0724
1343 , p5_a26 NUMBER := 0-1962.0724
1344 , p5_a27 NUMBER := 0-1962.0724
1345 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
1346 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
1347 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
1348 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
1349 , p5_a32 NUMBER := 0-1962.0724
1350 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
1351 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
1352 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
1353 , p5_a36 VARCHAR2 := fnd_api.g_miss_char
1354 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
1355 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
1356 , p5_a39 NUMBER := 0-1962.0724
1357 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
1358 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
1359 , p5_a42 NUMBER := 0-1962.0724
1360 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
1361 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
1362 , p5_a45 NUMBER := 0-1962.0724
1363 , p5_a46 NUMBER := 0-1962.0724
1364 , p5_a47 NUMBER := 0-1962.0724
1365 , p5_a48 NUMBER := 0-1962.0724
1366 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
1367 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
1368 , p5_a51 NUMBER := 0-1962.0724
1369 , p5_a52 NUMBER := 0-1962.0724
1370 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
1371 , p5_a54 VARCHAR2 := fnd_api.g_miss_char
1372 , p5_a55 NUMBER := 0-1962.0724
1373 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
1374 , p5_a57 VARCHAR2 := fnd_api.g_miss_char
1375 , p5_a58 NUMBER := 0-1962.0724
1376 , p5_a59 VARCHAR2 := fnd_api.g_miss_char
1377 , p5_a60 VARCHAR2 := fnd_api.g_miss_char
1378 , p5_a61 VARCHAR2 := fnd_api.g_miss_char
1379 , p5_a62 VARCHAR2 := fnd_api.g_miss_char
1380 , p5_a63 NUMBER := 0-1962.0724
1381 , p5_a64 NUMBER := 0-1962.0724
1382 , p5_a65 VARCHAR2 := fnd_api.g_miss_char
1383 , p5_a66 VARCHAR2 := fnd_api.g_miss_char
1384 , p5_a67 NUMBER := 0-1962.0724
1385 , p5_a68 NUMBER := 0-1962.0724
1386 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
1387 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
1388 , p5_a71 NUMBER := 0-1962.0724
1389 , p5_a72 NUMBER := 0-1962.0724
1390 , p5_a73 VARCHAR2 := fnd_api.g_miss_char
1391 , p5_a74 VARCHAR2 := fnd_api.g_miss_char
1392 , p5_a75 NUMBER := 0-1962.0724
1393 , p5_a76 NUMBER := 0-1962.0724
1394 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
1395 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
1396 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
1397 , p5_a80 NUMBER := 0-1962.0724
1398 , p5_a81 DATE := fnd_api.g_miss_date
1399 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
1400 , p5_a83 NUMBER := 0-1962.0724
1401 )
1402
1403 as
1404 ddp_durv_rec okl_deal_create_pub.deal_rec_type;
1405 ddx_durv_rec okl_deal_create_pub.deal_rec_type;
1406 ddindx binary_integer; indx binary_integer;
1407 begin
1408
1409 -- copy data to the local IN or IN-OUT args, if any
1410
1411
1412
1413
1414
1415 ddp_durv_rec.chr_id := rosetta_g_miss_num_map(p5_a0);
1416 ddp_durv_rec.chr_contract_number := p5_a1;
1417 ddp_durv_rec.chr_description := p5_a2;
1418 ddp_durv_rec.vers_version := p5_a3;
1419 ddp_durv_rec.chr_sts_code := p5_a4;
1420 ddp_durv_rec.chr_start_date := rosetta_g_miss_date_in_map(p5_a5);
1421 ddp_durv_rec.chr_end_date := rosetta_g_miss_date_in_map(p5_a6);
1422 ddp_durv_rec.khr_term_duration := rosetta_g_miss_num_map(p5_a7);
1423 ddp_durv_rec.chr_cust_po_number := p5_a8;
1424 ddp_durv_rec.chr_inv_organization_id := rosetta_g_miss_num_map(p5_a9);
1425 ddp_durv_rec.chr_authoring_org_id := rosetta_g_miss_num_map(p5_a10);
1426 ddp_durv_rec.khr_generate_accrual_yn := p5_a11;
1427 ddp_durv_rec.khr_syndicatable_yn := p5_a12;
1428 ddp_durv_rec.khr_prefunding_eligible_yn := p5_a13;
1429 ddp_durv_rec.khr_revolving_credit_yn := p5_a14;
1430 ddp_durv_rec.khr_converted_account_yn := p5_a15;
1431 ddp_durv_rec.khr_credit_act_yn := p5_a16;
1432 ddp_durv_rec.chr_template_yn := p5_a17;
1433 ddp_durv_rec.chr_date_signed := rosetta_g_miss_date_in_map(p5_a18);
1434 ddp_durv_rec.khr_date_deal_transferred := rosetta_g_miss_date_in_map(p5_a19);
1435 ddp_durv_rec.khr_accepted_date := rosetta_g_miss_date_in_map(p5_a20);
1436 ddp_durv_rec.khr_expected_delivery_date := rosetta_g_miss_date_in_map(p5_a21);
1437 ddp_durv_rec.khr_amd_code := p5_a22;
1438 ddp_durv_rec.khr_deal_type := p5_a23;
1439 ddp_durv_rec.mla_contract_number := p5_a24;
1440 ddp_durv_rec.mla_gvr_chr_id_referred := rosetta_g_miss_num_map(p5_a25);
1441 ddp_durv_rec.mla_gvr_id := rosetta_g_miss_num_map(p5_a26);
1442 ddp_durv_rec.cust_id := rosetta_g_miss_num_map(p5_a27);
1443 ddp_durv_rec.cust_object1_id1 := p5_a28;
1444 ddp_durv_rec.cust_object1_id2 := p5_a29;
1445 ddp_durv_rec.cust_jtot_object1_code := p5_a30;
1446 ddp_durv_rec.cust_name := p5_a31;
1447 ddp_durv_rec.lessor_id := rosetta_g_miss_num_map(p5_a32);
1448 ddp_durv_rec.lessor_object1_id1 := p5_a33;
1449 ddp_durv_rec.lessor_object1_id2 := p5_a34;
1450 ddp_durv_rec.lessor_jtot_object1_code := p5_a35;
1451 ddp_durv_rec.lessor_name := p5_a36;
1452 ddp_durv_rec.chr_currency_code := p5_a37;
1453 ddp_durv_rec.currency_name := p5_a38;
1454 ddp_durv_rec.khr_pdt_id := rosetta_g_miss_num_map(p5_a39);
1455 ddp_durv_rec.product_name := p5_a40;
1456 ddp_durv_rec.product_description := p5_a41;
1457 ddp_durv_rec.khr_khr_id := rosetta_g_miss_num_map(p5_a42);
1458 ddp_durv_rec.program_contract_number := p5_a43;
1459 ddp_durv_rec.cl_contract_number := p5_a44;
1460 ddp_durv_rec.cl_gvr_chr_id_referred := rosetta_g_miss_num_map(p5_a45);
1461 ddp_durv_rec.cl_gvr_id := rosetta_g_miss_num_map(p5_a46);
1462 ddp_durv_rec.rg_larles_id := rosetta_g_miss_num_map(p5_a47);
1463 ddp_durv_rec.r_larles_id := rosetta_g_miss_num_map(p5_a48);
1464 ddp_durv_rec.r_larles_rule_information1 := p5_a49;
1465 ddp_durv_rec.col_larles_form_left_prompt := p5_a50;
1466 ddp_durv_rec.rg_larebl_id := rosetta_g_miss_num_map(p5_a51);
1467 ddp_durv_rec.r_larebl_id := rosetta_g_miss_num_map(p5_a52);
1468 ddp_durv_rec.r_larebl_rule_information1 := p5_a53;
1469 ddp_durv_rec.col_larebl_form_left_prompt := p5_a54;
1470 ddp_durv_rec.chr_cust_acct_id := rosetta_g_miss_num_map(p5_a55);
1471 ddp_durv_rec.customer_account := p5_a56;
1472 ddp_durv_rec.cust_site_description := p5_a57;
1473 ddp_durv_rec.contact_id := rosetta_g_miss_num_map(p5_a58);
1474 ddp_durv_rec.contact_object1_id1 := p5_a59;
1475 ddp_durv_rec.contact_object1_id2 := p5_a60;
1476 ddp_durv_rec.contact_jtot_object1_code := p5_a61;
1477 ddp_durv_rec.contact_name := p5_a62;
1478 ddp_durv_rec.rg_latown_id := rosetta_g_miss_num_map(p5_a63);
1479 ddp_durv_rec.r_latown_id := rosetta_g_miss_num_map(p5_a64);
1480 ddp_durv_rec.r_latown_rule_information1 := p5_a65;
1481 ddp_durv_rec.col_latown_form_left_prompt := p5_a66;
1482 ddp_durv_rec.rg_lanntf_id := rosetta_g_miss_num_map(p5_a67);
1483 ddp_durv_rec.r_lanntf_id := rosetta_g_miss_num_map(p5_a68);
1484 ddp_durv_rec.r_lanntf_rule_information1 := p5_a69;
1485 ddp_durv_rec.col_lanntf_form_left_prompt := p5_a70;
1486 ddp_durv_rec.rg_lacpln_id := rosetta_g_miss_num_map(p5_a71);
1487 ddp_durv_rec.r_lacpln_id := rosetta_g_miss_num_map(p5_a72);
1488 ddp_durv_rec.r_lacpln_rule_information1 := p5_a73;
1489 ddp_durv_rec.col_lacpln_form_left_prompt := p5_a74;
1490 ddp_durv_rec.rg_lapact_id := rosetta_g_miss_num_map(p5_a75);
1491 ddp_durv_rec.r_lapact_id := rosetta_g_miss_num_map(p5_a76);
1492 ddp_durv_rec.r_lapact_rule_information1 := p5_a77;
1493 ddp_durv_rec.col_lapact_form_left_prompt := p5_a78;
1494 ddp_durv_rec.khr_currency_conv_type := p5_a79;
1495 ddp_durv_rec.khr_currency_conv_rate := rosetta_g_miss_num_map(p5_a80);
1496 ddp_durv_rec.khr_currency_conv_date := rosetta_g_miss_date_in_map(p5_a81);
1497 ddp_durv_rec.khr_assignable_yn := p5_a82;
1498 ddp_durv_rec.legal_entity_id := rosetta_g_miss_num_map(p5_a83);
1499
1500
1501 -- here's the delegated call to the old PL/SQL routine
1502 okl_deal_create_pub.load_deal(p_api_version,
1503 p_init_msg_list,
1504 x_return_status,
1505 x_msg_count,
1506 x_msg_data,
1507 ddp_durv_rec,
1508 ddx_durv_rec);
1509
1510 -- copy data back from the local variables to OUT or IN-OUT args, if any
1511
1512
1513
1514
1515
1516
1517 p6_a0 := rosetta_g_miss_num_map(ddx_durv_rec.chr_id);
1518 p6_a1 := ddx_durv_rec.chr_contract_number;
1519 p6_a2 := ddx_durv_rec.chr_description;
1520 p6_a3 := ddx_durv_rec.vers_version;
1521 p6_a4 := ddx_durv_rec.chr_sts_code;
1522 p6_a5 := ddx_durv_rec.chr_start_date;
1523 p6_a6 := ddx_durv_rec.chr_end_date;
1524 p6_a7 := rosetta_g_miss_num_map(ddx_durv_rec.khr_term_duration);
1525 p6_a8 := ddx_durv_rec.chr_cust_po_number;
1526 p6_a9 := rosetta_g_miss_num_map(ddx_durv_rec.chr_inv_organization_id);
1527 p6_a10 := rosetta_g_miss_num_map(ddx_durv_rec.chr_authoring_org_id);
1528 p6_a11 := ddx_durv_rec.khr_generate_accrual_yn;
1529 p6_a12 := ddx_durv_rec.khr_syndicatable_yn;
1530 p6_a13 := ddx_durv_rec.khr_prefunding_eligible_yn;
1531 p6_a14 := ddx_durv_rec.khr_revolving_credit_yn;
1532 p6_a15 := ddx_durv_rec.khr_converted_account_yn;
1533 p6_a16 := ddx_durv_rec.khr_credit_act_yn;
1534 p6_a17 := ddx_durv_rec.chr_template_yn;
1535 p6_a18 := ddx_durv_rec.chr_date_signed;
1536 p6_a19 := ddx_durv_rec.khr_date_deal_transferred;
1537 p6_a20 := ddx_durv_rec.khr_accepted_date;
1538 p6_a21 := ddx_durv_rec.khr_expected_delivery_date;
1539 p6_a22 := ddx_durv_rec.khr_amd_code;
1540 p6_a23 := ddx_durv_rec.khr_deal_type;
1541 p6_a24 := ddx_durv_rec.mla_contract_number;
1542 p6_a25 := rosetta_g_miss_num_map(ddx_durv_rec.mla_gvr_chr_id_referred);
1543 p6_a26 := rosetta_g_miss_num_map(ddx_durv_rec.mla_gvr_id);
1544 p6_a27 := rosetta_g_miss_num_map(ddx_durv_rec.cust_id);
1545 p6_a28 := ddx_durv_rec.cust_object1_id1;
1546 p6_a29 := ddx_durv_rec.cust_object1_id2;
1547 p6_a30 := ddx_durv_rec.cust_jtot_object1_code;
1548 p6_a31 := ddx_durv_rec.cust_name;
1549 p6_a32 := rosetta_g_miss_num_map(ddx_durv_rec.lessor_id);
1550 p6_a33 := ddx_durv_rec.lessor_object1_id1;
1551 p6_a34 := ddx_durv_rec.lessor_object1_id2;
1552 p6_a35 := ddx_durv_rec.lessor_jtot_object1_code;
1553 p6_a36 := ddx_durv_rec.lessor_name;
1554 p6_a37 := ddx_durv_rec.chr_currency_code;
1555 p6_a38 := ddx_durv_rec.currency_name;
1556 p6_a39 := rosetta_g_miss_num_map(ddx_durv_rec.khr_pdt_id);
1557 p6_a40 := ddx_durv_rec.product_name;
1558 p6_a41 := ddx_durv_rec.product_description;
1559 p6_a42 := rosetta_g_miss_num_map(ddx_durv_rec.khr_khr_id);
1560 p6_a43 := ddx_durv_rec.program_contract_number;
1561 p6_a44 := ddx_durv_rec.cl_contract_number;
1562 p6_a45 := rosetta_g_miss_num_map(ddx_durv_rec.cl_gvr_chr_id_referred);
1563 p6_a46 := rosetta_g_miss_num_map(ddx_durv_rec.cl_gvr_id);
1564 p6_a47 := rosetta_g_miss_num_map(ddx_durv_rec.rg_larles_id);
1565 p6_a48 := rosetta_g_miss_num_map(ddx_durv_rec.r_larles_id);
1566 p6_a49 := ddx_durv_rec.r_larles_rule_information1;
1567 p6_a50 := ddx_durv_rec.col_larles_form_left_prompt;
1568 p6_a51 := rosetta_g_miss_num_map(ddx_durv_rec.rg_larebl_id);
1569 p6_a52 := rosetta_g_miss_num_map(ddx_durv_rec.r_larebl_id);
1570 p6_a53 := ddx_durv_rec.r_larebl_rule_information1;
1571 p6_a54 := ddx_durv_rec.col_larebl_form_left_prompt;
1572 p6_a55 := rosetta_g_miss_num_map(ddx_durv_rec.chr_cust_acct_id);
1573 p6_a56 := ddx_durv_rec.customer_account;
1574 p6_a57 := ddx_durv_rec.cust_site_description;
1575 p6_a58 := rosetta_g_miss_num_map(ddx_durv_rec.contact_id);
1576 p6_a59 := ddx_durv_rec.contact_object1_id1;
1577 p6_a60 := ddx_durv_rec.contact_object1_id2;
1578 p6_a61 := ddx_durv_rec.contact_jtot_object1_code;
1579 p6_a62 := ddx_durv_rec.contact_name;
1580 p6_a63 := rosetta_g_miss_num_map(ddx_durv_rec.rg_latown_id);
1581 p6_a64 := rosetta_g_miss_num_map(ddx_durv_rec.r_latown_id);
1582 p6_a65 := ddx_durv_rec.r_latown_rule_information1;
1583 p6_a66 := ddx_durv_rec.col_latown_form_left_prompt;
1584 p6_a67 := rosetta_g_miss_num_map(ddx_durv_rec.rg_lanntf_id);
1585 p6_a68 := rosetta_g_miss_num_map(ddx_durv_rec.r_lanntf_id);
1586 p6_a69 := ddx_durv_rec.r_lanntf_rule_information1;
1587 p6_a70 := ddx_durv_rec.col_lanntf_form_left_prompt;
1588 p6_a71 := rosetta_g_miss_num_map(ddx_durv_rec.rg_lacpln_id);
1589 p6_a72 := rosetta_g_miss_num_map(ddx_durv_rec.r_lacpln_id);
1590 p6_a73 := ddx_durv_rec.r_lacpln_rule_information1;
1591 p6_a74 := ddx_durv_rec.col_lacpln_form_left_prompt;
1592 p6_a75 := rosetta_g_miss_num_map(ddx_durv_rec.rg_lapact_id);
1593 p6_a76 := rosetta_g_miss_num_map(ddx_durv_rec.r_lapact_id);
1594 p6_a77 := ddx_durv_rec.r_lapact_rule_information1;
1595 p6_a78 := ddx_durv_rec.col_lapact_form_left_prompt;
1596 p6_a79 := ddx_durv_rec.khr_currency_conv_type;
1597 p6_a80 := rosetta_g_miss_num_map(ddx_durv_rec.khr_currency_conv_rate);
1598 p6_a81 := ddx_durv_rec.khr_currency_conv_date;
1599 p6_a82 := ddx_durv_rec.khr_assignable_yn;
1600 p6_a83 := rosetta_g_miss_num_map(ddx_durv_rec.legal_entity_id);
1601 end;
1602
1603 procedure create_deal(p_api_version NUMBER
1604 , p_init_msg_list VARCHAR2
1605 , x_return_status out nocopy VARCHAR2
1606 , x_msg_count out nocopy NUMBER
1607 , x_msg_data out nocopy VARCHAR2
1608 , p_source_code VARCHAR2
1609 , p_template_type VARCHAR2
1610 , p_contract_number VARCHAR2
1611 , p_scs_code VARCHAR2
1612 , p_customer_id1 in out nocopy VARCHAR2
1613 , p_customer_id2 in out nocopy VARCHAR2
1614 , p_customer_code VARCHAR2
1615 , p_customer_name VARCHAR2
1616 , p_effective_from date
1617 , p_program_name VARCHAR2
1618 , p_program_id NUMBER
1619 , p_org_id NUMBER
1620 , p_organization_id NUMBER
1621 , p_source_chr_id in out nocopy NUMBER
1622 , p_source_contract_number VARCHAR2
1623 , x_chr_id out nocopy NUMBER
1624 , p_legal_entity_id NUMBER
1625 )
1626
1627 as
1628 ddp_effective_from date;
1629 ddindx binary_integer; indx binary_integer;
1630 begin
1631
1632 -- copy data to the local IN or IN-OUT args, if any
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646 ddp_effective_from := rosetta_g_miss_date_in_map(p_effective_from);
1647
1648
1649
1650
1651
1652
1653
1654
1655
1656 -- here's the delegated call to the old PL/SQL routine
1657 okl_deal_create_pub.create_deal(p_api_version,
1658 p_init_msg_list,
1659 x_return_status,
1660 x_msg_count,
1661 x_msg_data,
1662 p_source_code,
1663 p_template_type,
1664 p_contract_number,
1665 p_scs_code,
1666 p_customer_id1,
1667 p_customer_id2,
1668 p_customer_code,
1669 p_customer_name,
1670 ddp_effective_from,
1671 p_program_name,
1672 p_program_id,
1673 p_org_id,
1674 p_organization_id,
1675 p_source_chr_id,
1676 p_source_contract_number,
1677 x_chr_id,
1678 p_legal_entity_id);
1679
1680 -- copy data back from the local variables to OUT or IN-OUT args, if any
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702 end;
1703
1704 procedure create_party(p_api_version NUMBER
1705 , p_init_msg_list VARCHAR2
1706 , x_return_status out nocopy VARCHAR2
1707 , x_msg_count out nocopy NUMBER
1708 , x_msg_data out nocopy VARCHAR2
1709 , p6_a0 out nocopy NUMBER
1710 , p6_a1 out nocopy VARCHAR2
1711 , p6_a2 out nocopy VARCHAR2
1712 , p6_a3 out nocopy VARCHAR2
1713 , p6_a4 out nocopy VARCHAR2
1714 , p6_a5 out nocopy VARCHAR2
1715 , p6_a6 out nocopy VARCHAR2
1716 , p6_a7 out nocopy VARCHAR2
1717 , p6_a8 out nocopy VARCHAR2
1718 , p6_a9 out nocopy VARCHAR2
1719 , p6_a10 out nocopy VARCHAR2
1720 , p6_a11 out nocopy VARCHAR2
1721 , p6_a12 out nocopy VARCHAR2
1722 , p6_a13 out nocopy VARCHAR2
1723 , p6_a14 out nocopy VARCHAR2
1724 , p6_a15 out nocopy VARCHAR2
1725 , p6_a16 out nocopy VARCHAR2
1726 , p6_a17 out nocopy VARCHAR2
1727 , p6_a18 out nocopy VARCHAR2
1728 , p6_a19 out nocopy VARCHAR2
1729 , p6_a20 out nocopy VARCHAR2
1730 , p6_a21 out nocopy NUMBER
1731 , p6_a22 out nocopy NUMBER
1732 , p6_a23 out nocopy NUMBER
1733 , p5_a0 NUMBER := 0-1962.0724
1734 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1735 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1736 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1737 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1738 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1739 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1740 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1741 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1742 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1743 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1744 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1745 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1746 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1747 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1748 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1749 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1750 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1751 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1752 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1753 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1754 , p5_a21 NUMBER := 0-1962.0724
1755 , p5_a22 NUMBER := 0-1962.0724
1756 , p5_a23 NUMBER := 0-1962.0724
1757 )
1758
1759 as
1760 ddp_kpl_rec okl_deal_create_pub.party_rec_type;
1761 ddx_kpl_rec okl_deal_create_pub.party_rec_type;
1762 ddindx binary_integer; indx binary_integer;
1763 begin
1764
1765 -- copy data to the local IN or IN-OUT args, if any
1766
1767
1768
1769
1770
1771 ddp_kpl_rec.id := rosetta_g_miss_num_map(p5_a0);
1772 ddp_kpl_rec.attribute_category := p5_a1;
1773 ddp_kpl_rec.attribute1 := p5_a2;
1774 ddp_kpl_rec.attribute2 := p5_a3;
1775 ddp_kpl_rec.attribute3 := p5_a4;
1776 ddp_kpl_rec.attribute4 := p5_a5;
1777 ddp_kpl_rec.attribute5 := p5_a6;
1778 ddp_kpl_rec.attribute6 := p5_a7;
1779 ddp_kpl_rec.attribute7 := p5_a8;
1780 ddp_kpl_rec.attribute8 := p5_a9;
1781 ddp_kpl_rec.attribute9 := p5_a10;
1782 ddp_kpl_rec.attribute10 := p5_a11;
1783 ddp_kpl_rec.attribute11 := p5_a12;
1784 ddp_kpl_rec.attribute12 := p5_a13;
1785 ddp_kpl_rec.attribute13 := p5_a14;
1786 ddp_kpl_rec.attribute14 := p5_a15;
1787 ddp_kpl_rec.attribute15 := p5_a16;
1788 ddp_kpl_rec.object1_id1 := p5_a17;
1789 ddp_kpl_rec.object1_id2 := p5_a18;
1790 ddp_kpl_rec.jtot_object1_code := p5_a19;
1791 ddp_kpl_rec.rle_code := p5_a20;
1792 ddp_kpl_rec.chr_id := rosetta_g_miss_num_map(p5_a21);
1793 ddp_kpl_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a22);
1794 ddp_kpl_rec.cle_id := rosetta_g_miss_num_map(p5_a23);
1795
1796
1797 -- here's the delegated call to the old PL/SQL routine
1798 okl_deal_create_pub.create_party(p_api_version,
1799 p_init_msg_list,
1800 x_return_status,
1801 x_msg_count,
1802 x_msg_data,
1803 ddp_kpl_rec,
1804 ddx_kpl_rec);
1805
1806 -- copy data back from the local variables to OUT or IN-OUT args, if any
1807
1808
1809
1810
1811
1812
1813 p6_a0 := rosetta_g_miss_num_map(ddx_kpl_rec.id);
1814 p6_a1 := ddx_kpl_rec.attribute_category;
1815 p6_a2 := ddx_kpl_rec.attribute1;
1816 p6_a3 := ddx_kpl_rec.attribute2;
1817 p6_a4 := ddx_kpl_rec.attribute3;
1818 p6_a5 := ddx_kpl_rec.attribute4;
1819 p6_a6 := ddx_kpl_rec.attribute5;
1820 p6_a7 := ddx_kpl_rec.attribute6;
1821 p6_a8 := ddx_kpl_rec.attribute7;
1822 p6_a9 := ddx_kpl_rec.attribute8;
1823 p6_a10 := ddx_kpl_rec.attribute9;
1824 p6_a11 := ddx_kpl_rec.attribute10;
1825 p6_a12 := ddx_kpl_rec.attribute11;
1826 p6_a13 := ddx_kpl_rec.attribute12;
1827 p6_a14 := ddx_kpl_rec.attribute13;
1828 p6_a15 := ddx_kpl_rec.attribute14;
1829 p6_a16 := ddx_kpl_rec.attribute15;
1830 p6_a17 := ddx_kpl_rec.object1_id1;
1831 p6_a18 := ddx_kpl_rec.object1_id2;
1832 p6_a19 := ddx_kpl_rec.jtot_object1_code;
1833 p6_a20 := ddx_kpl_rec.rle_code;
1834 p6_a21 := rosetta_g_miss_num_map(ddx_kpl_rec.chr_id);
1835 p6_a22 := rosetta_g_miss_num_map(ddx_kpl_rec.dnz_chr_id);
1836 p6_a23 := rosetta_g_miss_num_map(ddx_kpl_rec.cle_id);
1837 end;
1838
1839 procedure update_party(p_api_version NUMBER
1840 , p_init_msg_list VARCHAR2
1841 , x_return_status out nocopy VARCHAR2
1842 , x_msg_count out nocopy NUMBER
1843 , x_msg_data out nocopy VARCHAR2
1844 , p6_a0 out nocopy NUMBER
1845 , p6_a1 out nocopy VARCHAR2
1846 , p6_a2 out nocopy VARCHAR2
1847 , p6_a3 out nocopy VARCHAR2
1848 , p6_a4 out nocopy VARCHAR2
1849 , p6_a5 out nocopy VARCHAR2
1850 , p6_a6 out nocopy VARCHAR2
1851 , p6_a7 out nocopy VARCHAR2
1852 , p6_a8 out nocopy VARCHAR2
1853 , p6_a9 out nocopy VARCHAR2
1854 , p6_a10 out nocopy VARCHAR2
1855 , p6_a11 out nocopy VARCHAR2
1856 , p6_a12 out nocopy VARCHAR2
1857 , p6_a13 out nocopy VARCHAR2
1858 , p6_a14 out nocopy VARCHAR2
1859 , p6_a15 out nocopy VARCHAR2
1860 , p6_a16 out nocopy VARCHAR2
1861 , p6_a17 out nocopy VARCHAR2
1862 , p6_a18 out nocopy VARCHAR2
1863 , p6_a19 out nocopy VARCHAR2
1864 , p6_a20 out nocopy VARCHAR2
1865 , p6_a21 out nocopy NUMBER
1866 , p6_a22 out nocopy NUMBER
1867 , p6_a23 out nocopy NUMBER
1868 , p5_a0 NUMBER := 0-1962.0724
1869 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
1870 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
1871 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
1872 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
1873 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
1874 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
1875 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
1876 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
1877 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
1878 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
1879 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
1880 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
1881 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
1882 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
1883 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
1884 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
1885 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
1886 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
1887 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
1888 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
1889 , p5_a21 NUMBER := 0-1962.0724
1890 , p5_a22 NUMBER := 0-1962.0724
1891 , p5_a23 NUMBER := 0-1962.0724
1892 )
1893
1894 as
1895 ddp_kpl_rec okl_deal_create_pub.party_rec_type;
1896 ddx_kpl_rec okl_deal_create_pub.party_rec_type;
1897 ddindx binary_integer; indx binary_integer;
1898 begin
1899
1900 -- copy data to the local IN or IN-OUT args, if any
1901
1902
1903
1904
1905
1906 ddp_kpl_rec.id := rosetta_g_miss_num_map(p5_a0);
1907 ddp_kpl_rec.attribute_category := p5_a1;
1908 ddp_kpl_rec.attribute1 := p5_a2;
1909 ddp_kpl_rec.attribute2 := p5_a3;
1910 ddp_kpl_rec.attribute3 := p5_a4;
1911 ddp_kpl_rec.attribute4 := p5_a5;
1912 ddp_kpl_rec.attribute5 := p5_a6;
1913 ddp_kpl_rec.attribute6 := p5_a7;
1914 ddp_kpl_rec.attribute7 := p5_a8;
1915 ddp_kpl_rec.attribute8 := p5_a9;
1916 ddp_kpl_rec.attribute9 := p5_a10;
1917 ddp_kpl_rec.attribute10 := p5_a11;
1918 ddp_kpl_rec.attribute11 := p5_a12;
1919 ddp_kpl_rec.attribute12 := p5_a13;
1920 ddp_kpl_rec.attribute13 := p5_a14;
1921 ddp_kpl_rec.attribute14 := p5_a15;
1922 ddp_kpl_rec.attribute15 := p5_a16;
1923 ddp_kpl_rec.object1_id1 := p5_a17;
1924 ddp_kpl_rec.object1_id2 := p5_a18;
1925 ddp_kpl_rec.jtot_object1_code := p5_a19;
1926 ddp_kpl_rec.rle_code := p5_a20;
1927 ddp_kpl_rec.chr_id := rosetta_g_miss_num_map(p5_a21);
1928 ddp_kpl_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a22);
1929 ddp_kpl_rec.cle_id := rosetta_g_miss_num_map(p5_a23);
1930
1931
1932 -- here's the delegated call to the old PL/SQL routine
1933 okl_deal_create_pub.update_party(p_api_version,
1934 p_init_msg_list,
1935 x_return_status,
1936 x_msg_count,
1937 x_msg_data,
1938 ddp_kpl_rec,
1939 ddx_kpl_rec);
1940
1941 -- copy data back from the local variables to OUT or IN-OUT args, if any
1942
1943
1944
1945
1946
1947
1948 p6_a0 := rosetta_g_miss_num_map(ddx_kpl_rec.id);
1949 p6_a1 := ddx_kpl_rec.attribute_category;
1950 p6_a2 := ddx_kpl_rec.attribute1;
1951 p6_a3 := ddx_kpl_rec.attribute2;
1952 p6_a4 := ddx_kpl_rec.attribute3;
1953 p6_a5 := ddx_kpl_rec.attribute4;
1954 p6_a6 := ddx_kpl_rec.attribute5;
1955 p6_a7 := ddx_kpl_rec.attribute6;
1956 p6_a8 := ddx_kpl_rec.attribute7;
1957 p6_a9 := ddx_kpl_rec.attribute8;
1958 p6_a10 := ddx_kpl_rec.attribute9;
1959 p6_a11 := ddx_kpl_rec.attribute10;
1960 p6_a12 := ddx_kpl_rec.attribute11;
1961 p6_a13 := ddx_kpl_rec.attribute12;
1962 p6_a14 := ddx_kpl_rec.attribute13;
1963 p6_a15 := ddx_kpl_rec.attribute14;
1964 p6_a16 := ddx_kpl_rec.attribute15;
1965 p6_a17 := ddx_kpl_rec.object1_id1;
1966 p6_a18 := ddx_kpl_rec.object1_id2;
1967 p6_a19 := ddx_kpl_rec.jtot_object1_code;
1968 p6_a20 := ddx_kpl_rec.rle_code;
1969 p6_a21 := rosetta_g_miss_num_map(ddx_kpl_rec.chr_id);
1970 p6_a22 := rosetta_g_miss_num_map(ddx_kpl_rec.dnz_chr_id);
1971 p6_a23 := rosetta_g_miss_num_map(ddx_kpl_rec.cle_id);
1972 end;
1973
1974 end okl_deal_create_pub_w;