[Home] [Help]
PACKAGE BODY: APPS.OKL_OKC_MIGRATION_PVT_W
Source
1 package body okl_okc_migration_pvt_w as
2 /* $Header: OKLEOKCB.pls 115.6 2003/10/16 09:58:47 avsingh noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p1(t out nocopy okl_okc_migration_pvt.cvmv_tbl_type, a0 JTF_NUMBER_TABLE
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_DATE_TABLE
28 , a6 JTF_NUMBER_TABLE
29 , a7 JTF_DATE_TABLE
30 , a8 JTF_NUMBER_TABLE
31 ) as
32 ddindx binary_integer; indx binary_integer;
33 begin
34 if a0 is not null and a0.count > 0 then
35 if a0.count > 0 then
36 indx := a0.first;
37 ddindx := 1;
38 while true loop
39 t(ddindx).chr_id := rosetta_g_miss_num_map(a0(indx));
40 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
41 t(ddindx).major_version := rosetta_g_miss_num_map(a2(indx));
42 t(ddindx).minor_version := rosetta_g_miss_num_map(a3(indx));
43 t(ddindx).created_by := rosetta_g_miss_num_map(a4(indx));
44 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a5(indx));
45 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a6(indx));
46 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a7(indx));
47 t(ddindx).last_update_login := rosetta_g_miss_num_map(a8(indx));
48 ddindx := ddindx+1;
49 if a0.last =indx
50 then exit;
51 end if;
52 indx := a0.next(indx);
53 end loop;
54 end if;
55 end if;
56 end rosetta_table_copy_in_p1;
57 procedure rosetta_table_copy_out_p1(t okl_okc_migration_pvt.cvmv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
58 , a1 out nocopy JTF_NUMBER_TABLE
59 , a2 out nocopy JTF_NUMBER_TABLE
60 , a3 out nocopy JTF_NUMBER_TABLE
61 , a4 out nocopy JTF_NUMBER_TABLE
62 , a5 out nocopy JTF_DATE_TABLE
63 , a6 out nocopy JTF_NUMBER_TABLE
64 , a7 out nocopy JTF_DATE_TABLE
65 , a8 out nocopy JTF_NUMBER_TABLE
66 ) as
67 ddindx binary_integer; indx binary_integer;
68 begin
69 if t is null or t.count = 0 then
70 a0 := JTF_NUMBER_TABLE();
71 a1 := JTF_NUMBER_TABLE();
72 a2 := JTF_NUMBER_TABLE();
73 a3 := JTF_NUMBER_TABLE();
74 a4 := JTF_NUMBER_TABLE();
75 a5 := JTF_DATE_TABLE();
76 a6 := JTF_NUMBER_TABLE();
77 a7 := JTF_DATE_TABLE();
78 a8 := JTF_NUMBER_TABLE();
79 else
80 a0 := JTF_NUMBER_TABLE();
81 a1 := JTF_NUMBER_TABLE();
82 a2 := JTF_NUMBER_TABLE();
83 a3 := JTF_NUMBER_TABLE();
84 a4 := JTF_NUMBER_TABLE();
85 a5 := JTF_DATE_TABLE();
86 a6 := JTF_NUMBER_TABLE();
87 a7 := JTF_DATE_TABLE();
88 a8 := JTF_NUMBER_TABLE();
89 if t.count > 0 then
90 a0.extend(t.count);
91 a1.extend(t.count);
92 a2.extend(t.count);
93 a3.extend(t.count);
94 a4.extend(t.count);
95 a5.extend(t.count);
96 a6.extend(t.count);
97 a7.extend(t.count);
98 a8.extend(t.count);
99 ddindx := t.first;
100 indx := 1;
101 while true loop
102 a0(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
103 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
104 a2(indx) := rosetta_g_miss_num_map(t(ddindx).major_version);
105 a3(indx) := rosetta_g_miss_num_map(t(ddindx).minor_version);
106 a4(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
107 a5(indx) := t(ddindx).creation_date;
108 a6(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
109 a7(indx) := t(ddindx).last_update_date;
110 a8(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
111 indx := indx+1;
112 if t.last =ddindx
113 then exit;
114 end if;
115 ddindx := t.next(ddindx);
116 end loop;
117 end if;
118 end if;
119 end rosetta_table_copy_out_p1;
120
121 procedure rosetta_table_copy_in_p3(t out nocopy okl_okc_migration_pvt.chrv_tbl_type, a0 JTF_NUMBER_TABLE
122 , a1 JTF_NUMBER_TABLE
123 , a2 JTF_VARCHAR2_TABLE_100
124 , a3 JTF_NUMBER_TABLE
125 , a4 JTF_NUMBER_TABLE
126 , a5 JTF_NUMBER_TABLE
127 , a6 JTF_NUMBER_TABLE
128 , a7 JTF_VARCHAR2_TABLE_100
129 , a8 JTF_NUMBER_TABLE
130 , a9 JTF_VARCHAR2_TABLE_100
131 , a10 JTF_VARCHAR2_TABLE_200
132 , a11 JTF_VARCHAR2_TABLE_100
133 , a12 JTF_VARCHAR2_TABLE_200
134 , a13 JTF_VARCHAR2_TABLE_100
135 , a14 JTF_VARCHAR2_TABLE_100
136 , a15 JTF_VARCHAR2_TABLE_100
137 , a16 JTF_VARCHAR2_TABLE_100
138 , a17 JTF_VARCHAR2_TABLE_200
139 , a18 JTF_VARCHAR2_TABLE_600
140 , a19 JTF_VARCHAR2_TABLE_2000
141 , a20 JTF_VARCHAR2_TABLE_2000
142 , a21 JTF_VARCHAR2_TABLE_100
143 , a22 JTF_VARCHAR2_TABLE_300
144 , a23 JTF_VARCHAR2_TABLE_100
145 , a24 JTF_VARCHAR2_TABLE_200
146 , a25 JTF_DATE_TABLE
147 , a26 JTF_DATE_TABLE
148 , a27 JTF_NUMBER_TABLE
149 , a28 JTF_DATE_TABLE
150 , a29 JTF_DATE_TABLE
151 , a30 JTF_VARCHAR2_TABLE_100
152 , a31 JTF_VARCHAR2_TABLE_2000
153 , a32 JTF_VARCHAR2_TABLE_100
154 , a33 JTF_VARCHAR2_TABLE_100
155 , a34 JTF_VARCHAR2_TABLE_100
156 , a35 JTF_VARCHAR2_TABLE_100
157 , a36 JTF_NUMBER_TABLE
158 , a37 JTF_NUMBER_TABLE
159 , a38 JTF_DATE_TABLE
160 , a39 JTF_DATE_TABLE
161 , a40 JTF_DATE_TABLE
162 , a41 JTF_DATE_TABLE
163 , a42 JTF_DATE_TABLE
164 , a43 JTF_VARCHAR2_TABLE_100
165 , a44 JTF_DATE_TABLE
166 , a45 JTF_DATE_TABLE
167 , a46 JTF_NUMBER_TABLE
168 , a47 JTF_VARCHAR2_TABLE_100
169 , a48 JTF_VARCHAR2_TABLE_100
170 , a49 JTF_NUMBER_TABLE
171 , a50 JTF_NUMBER_TABLE
172 , a51 JTF_NUMBER_TABLE
173 , a52 JTF_VARCHAR2_TABLE_100
174 , a53 JTF_VARCHAR2_TABLE_100
175 , a54 JTF_NUMBER_TABLE
176 , a55 JTF_NUMBER_TABLE
177 , a56 JTF_VARCHAR2_TABLE_100
178 , a57 JTF_NUMBER_TABLE
179 , a58 JTF_VARCHAR2_TABLE_100
180 , a59 JTF_NUMBER_TABLE
181 , a60 JTF_NUMBER_TABLE
182 , a61 JTF_NUMBER_TABLE
183 , a62 JTF_DATE_TABLE
184 , a63 JTF_DATE_TABLE
185 , a64 JTF_DATE_TABLE
186 , a65 JTF_NUMBER_TABLE
187 , a66 JTF_NUMBER_TABLE
188 , a67 JTF_NUMBER_TABLE
189 , a68 JTF_VARCHAR2_TABLE_100
190 , a69 JTF_VARCHAR2_TABLE_500
191 , a70 JTF_VARCHAR2_TABLE_500
192 , a71 JTF_VARCHAR2_TABLE_500
193 , a72 JTF_VARCHAR2_TABLE_500
194 , a73 JTF_VARCHAR2_TABLE_500
195 , a74 JTF_VARCHAR2_TABLE_500
196 , a75 JTF_VARCHAR2_TABLE_500
197 , a76 JTF_VARCHAR2_TABLE_500
198 , a77 JTF_VARCHAR2_TABLE_500
199 , a78 JTF_VARCHAR2_TABLE_500
200 , a79 JTF_VARCHAR2_TABLE_500
201 , a80 JTF_VARCHAR2_TABLE_500
202 , a81 JTF_VARCHAR2_TABLE_500
203 , a82 JTF_VARCHAR2_TABLE_500
204 , a83 JTF_VARCHAR2_TABLE_500
205 , a84 JTF_NUMBER_TABLE
206 , a85 JTF_DATE_TABLE
207 , a86 JTF_NUMBER_TABLE
208 , a87 JTF_DATE_TABLE
209 , a88 JTF_NUMBER_TABLE
210 , a89 JTF_VARCHAR2_TABLE_100
211 , a90 JTF_VARCHAR2_TABLE_100
212 , a91 JTF_VARCHAR2_TABLE_100
213 , a92 JTF_VARCHAR2_TABLE_100
214 , a93 JTF_VARCHAR2_TABLE_100
215 , a94 JTF_NUMBER_TABLE
216 , a95 JTF_DATE_TABLE
217 , a96 JTF_NUMBER_TABLE
218 , a97 JTF_NUMBER_TABLE
219 , a98 JTF_NUMBER_TABLE
220 , a99 JTF_NUMBER_TABLE
221 , a100 JTF_VARCHAR2_TABLE_100
222 , a101 JTF_NUMBER_TABLE
223 , a102 JTF_DATE_TABLE
224 , a103 JTF_NUMBER_TABLE
225 , a104 JTF_NUMBER_TABLE
226 ) as
227 ddindx binary_integer; indx binary_integer;
228 begin
229 if a0 is not null and a0.count > 0 then
230 if a0.count > 0 then
231 indx := a0.first;
232 ddindx := 1;
233 while true loop
234 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
235 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
236 t(ddindx).sfwt_flag := a2(indx);
237 t(ddindx).chr_id_response := rosetta_g_miss_num_map(a3(indx));
238 t(ddindx).chr_id_award := rosetta_g_miss_num_map(a4(indx));
239 t(ddindx).chr_id_renewed := rosetta_g_miss_num_map(a5(indx));
240 t(ddindx).inv_organization_id := rosetta_g_miss_num_map(a6(indx));
241 t(ddindx).sts_code := a7(indx);
242 t(ddindx).qcl_id := rosetta_g_miss_num_map(a8(indx));
243 t(ddindx).scs_code := a9(indx);
244 t(ddindx).contract_number := a10(indx);
245 t(ddindx).currency_code := a11(indx);
246 t(ddindx).contract_number_modifier := a12(indx);
247 t(ddindx).archived_yn := a13(indx);
248 t(ddindx).deleted_yn := a14(indx);
249 t(ddindx).cust_po_number_req_yn := a15(indx);
250 t(ddindx).pre_pay_req_yn := a16(indx);
251 t(ddindx).cust_po_number := a17(indx);
252 t(ddindx).short_description := a18(indx);
253 t(ddindx).comments := a19(indx);
254 t(ddindx).description := a20(indx);
255 t(ddindx).dpas_rating := a21(indx);
256 t(ddindx).cognomen := a22(indx);
257 t(ddindx).template_yn := a23(indx);
258 t(ddindx).template_used := a24(indx);
259 t(ddindx).date_approved := rosetta_g_miss_date_in_map(a25(indx));
260 t(ddindx).datetime_cancelled := rosetta_g_miss_date_in_map(a26(indx));
261 t(ddindx).auto_renew_days := rosetta_g_miss_num_map(a27(indx));
262 t(ddindx).date_issued := rosetta_g_miss_date_in_map(a28(indx));
263 t(ddindx).datetime_responded := rosetta_g_miss_date_in_map(a29(indx));
264 t(ddindx).non_response_reason := a30(indx);
265 t(ddindx).non_response_explain := a31(indx);
266 t(ddindx).rfp_type := a32(indx);
267 t(ddindx).chr_type := a33(indx);
268 t(ddindx).keep_on_mail_list := a34(indx);
269 t(ddindx).set_aside_reason := a35(indx);
270 t(ddindx).set_aside_percent := rosetta_g_miss_num_map(a36(indx));
271 t(ddindx).response_copies_req := rosetta_g_miss_num_map(a37(indx));
272 t(ddindx).date_close_projected := rosetta_g_miss_date_in_map(a38(indx));
273 t(ddindx).datetime_proposed := rosetta_g_miss_date_in_map(a39(indx));
274 t(ddindx).date_signed := rosetta_g_miss_date_in_map(a40(indx));
275 t(ddindx).date_terminated := rosetta_g_miss_date_in_map(a41(indx));
276 t(ddindx).date_renewed := rosetta_g_miss_date_in_map(a42(indx));
277 t(ddindx).trn_code := a43(indx);
278 t(ddindx).start_date := rosetta_g_miss_date_in_map(a44(indx));
279 t(ddindx).end_date := rosetta_g_miss_date_in_map(a45(indx));
280 t(ddindx).authoring_org_id := rosetta_g_miss_num_map(a46(indx));
281 t(ddindx).buy_or_sell := a47(indx);
282 t(ddindx).issue_or_receive := a48(indx);
283 t(ddindx).estimated_amount := rosetta_g_miss_num_map(a49(indx));
284 t(ddindx).chr_id_renewed_to := rosetta_g_miss_num_map(a50(indx));
285 t(ddindx).estimated_amount_renewed := rosetta_g_miss_num_map(a51(indx));
286 t(ddindx).currency_code_renewed := a52(indx);
287 t(ddindx).upg_orig_system_ref := a53(indx);
288 t(ddindx).upg_orig_system_ref_id := rosetta_g_miss_num_map(a54(indx));
289 t(ddindx).application_id := rosetta_g_miss_num_map(a55(indx));
290 t(ddindx).orig_system_source_code := a56(indx);
291 t(ddindx).orig_system_id1 := rosetta_g_miss_num_map(a57(indx));
292 t(ddindx).orig_system_reference1 := a58(indx);
293 t(ddindx).program_id := rosetta_g_miss_num_map(a59(indx));
294 t(ddindx).request_id := rosetta_g_miss_num_map(a60(indx));
295 t(ddindx).price_list_id := rosetta_g_miss_num_map(a61(indx));
296 t(ddindx).pricing_date := rosetta_g_miss_date_in_map(a62(indx));
297 t(ddindx).sign_by_date := rosetta_g_miss_date_in_map(a63(indx));
298 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a64(indx));
299 t(ddindx).total_line_list_price := rosetta_g_miss_num_map(a65(indx));
300 t(ddindx).program_application_id := rosetta_g_miss_num_map(a66(indx));
301 t(ddindx).user_estimated_amount := rosetta_g_miss_num_map(a67(indx));
302 t(ddindx).attribute_category := a68(indx);
303 t(ddindx).attribute1 := a69(indx);
304 t(ddindx).attribute2 := a70(indx);
305 t(ddindx).attribute3 := a71(indx);
306 t(ddindx).attribute4 := a72(indx);
307 t(ddindx).attribute5 := a73(indx);
308 t(ddindx).attribute6 := a74(indx);
309 t(ddindx).attribute7 := a75(indx);
310 t(ddindx).attribute8 := a76(indx);
311 t(ddindx).attribute9 := a77(indx);
312 t(ddindx).attribute10 := a78(indx);
313 t(ddindx).attribute11 := a79(indx);
314 t(ddindx).attribute12 := a80(indx);
315 t(ddindx).attribute13 := a81(indx);
316 t(ddindx).attribute14 := a82(indx);
317 t(ddindx).attribute15 := a83(indx);
318 t(ddindx).created_by := rosetta_g_miss_num_map(a84(indx));
319 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a85(indx));
320 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a86(indx));
321 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a87(indx));
322 t(ddindx).last_update_login := rosetta_g_miss_num_map(a88(indx));
323 t(ddindx).old_sts_code := a89(indx);
324 t(ddindx).new_sts_code := a90(indx);
325 t(ddindx).old_ste_code := a91(indx);
326 t(ddindx).new_ste_code := a92(indx);
327 t(ddindx).conversion_type := a93(indx);
328 t(ddindx).conversion_rate := rosetta_g_miss_num_map(a94(indx));
329 t(ddindx).conversion_rate_date := rosetta_g_miss_date_in_map(a95(indx));
330 t(ddindx).conversion_euro_rate := rosetta_g_miss_num_map(a96(indx));
331 t(ddindx).cust_acct_id := rosetta_g_miss_num_map(a97(indx));
332 t(ddindx).bill_to_site_use_id := rosetta_g_miss_num_map(a98(indx));
333 t(ddindx).inv_rule_id := rosetta_g_miss_num_map(a99(indx));
334 t(ddindx).renewal_type_code := a100(indx);
335 t(ddindx).renewal_notify_to := rosetta_g_miss_num_map(a101(indx));
336 t(ddindx).renewal_end_date := rosetta_g_miss_date_in_map(a102(indx));
337 t(ddindx).ship_to_site_use_id := rosetta_g_miss_num_map(a103(indx));
338 t(ddindx).payment_term_id := rosetta_g_miss_num_map(a104(indx));
339 ddindx := ddindx+1;
340 if a0.last =indx
341 then exit;
342 end if;
343 indx := a0.next(indx);
344 end loop;
345 end if;
346 end if;
347 end rosetta_table_copy_in_p3;
348 procedure rosetta_table_copy_out_p3(t okl_okc_migration_pvt.chrv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
349 , a1 out nocopy JTF_NUMBER_TABLE
350 , a2 out nocopy JTF_VARCHAR2_TABLE_100
351 , a3 out nocopy JTF_NUMBER_TABLE
352 , a4 out nocopy JTF_NUMBER_TABLE
353 , a5 out nocopy JTF_NUMBER_TABLE
354 , a6 out nocopy JTF_NUMBER_TABLE
355 , a7 out nocopy JTF_VARCHAR2_TABLE_100
356 , a8 out nocopy JTF_NUMBER_TABLE
357 , a9 out nocopy JTF_VARCHAR2_TABLE_100
358 , a10 out nocopy JTF_VARCHAR2_TABLE_200
359 , a11 out nocopy JTF_VARCHAR2_TABLE_100
360 , a12 out nocopy JTF_VARCHAR2_TABLE_200
361 , a13 out nocopy JTF_VARCHAR2_TABLE_100
362 , a14 out nocopy JTF_VARCHAR2_TABLE_100
363 , a15 out nocopy JTF_VARCHAR2_TABLE_100
364 , a16 out nocopy JTF_VARCHAR2_TABLE_100
365 , a17 out nocopy JTF_VARCHAR2_TABLE_200
366 , a18 out nocopy JTF_VARCHAR2_TABLE_600
367 , a19 out nocopy JTF_VARCHAR2_TABLE_2000
368 , a20 out nocopy JTF_VARCHAR2_TABLE_2000
369 , a21 out nocopy JTF_VARCHAR2_TABLE_100
370 , a22 out nocopy JTF_VARCHAR2_TABLE_300
371 , a23 out nocopy JTF_VARCHAR2_TABLE_100
372 , a24 out nocopy JTF_VARCHAR2_TABLE_200
373 , a25 out nocopy JTF_DATE_TABLE
374 , a26 out nocopy JTF_DATE_TABLE
375 , a27 out nocopy JTF_NUMBER_TABLE
376 , a28 out nocopy JTF_DATE_TABLE
377 , a29 out nocopy JTF_DATE_TABLE
378 , a30 out nocopy JTF_VARCHAR2_TABLE_100
379 , a31 out nocopy JTF_VARCHAR2_TABLE_2000
380 , a32 out nocopy JTF_VARCHAR2_TABLE_100
381 , a33 out nocopy JTF_VARCHAR2_TABLE_100
382 , a34 out nocopy JTF_VARCHAR2_TABLE_100
383 , a35 out nocopy JTF_VARCHAR2_TABLE_100
384 , a36 out nocopy JTF_NUMBER_TABLE
385 , a37 out nocopy JTF_NUMBER_TABLE
386 , a38 out nocopy JTF_DATE_TABLE
387 , a39 out nocopy JTF_DATE_TABLE
388 , a40 out nocopy JTF_DATE_TABLE
389 , a41 out nocopy JTF_DATE_TABLE
390 , a42 out nocopy JTF_DATE_TABLE
391 , a43 out nocopy JTF_VARCHAR2_TABLE_100
392 , a44 out nocopy JTF_DATE_TABLE
393 , a45 out nocopy JTF_DATE_TABLE
394 , a46 out nocopy JTF_NUMBER_TABLE
395 , a47 out nocopy JTF_VARCHAR2_TABLE_100
396 , a48 out nocopy JTF_VARCHAR2_TABLE_100
397 , a49 out nocopy JTF_NUMBER_TABLE
398 , a50 out nocopy JTF_NUMBER_TABLE
399 , a51 out nocopy JTF_NUMBER_TABLE
400 , a52 out nocopy JTF_VARCHAR2_TABLE_100
401 , a53 out nocopy JTF_VARCHAR2_TABLE_100
402 , a54 out nocopy JTF_NUMBER_TABLE
403 , a55 out nocopy JTF_NUMBER_TABLE
404 , a56 out nocopy JTF_VARCHAR2_TABLE_100
405 , a57 out nocopy JTF_NUMBER_TABLE
406 , a58 out nocopy JTF_VARCHAR2_TABLE_100
407 , a59 out nocopy JTF_NUMBER_TABLE
408 , a60 out nocopy JTF_NUMBER_TABLE
409 , a61 out nocopy JTF_NUMBER_TABLE
410 , a62 out nocopy JTF_DATE_TABLE
411 , a63 out nocopy JTF_DATE_TABLE
412 , a64 out nocopy JTF_DATE_TABLE
413 , a65 out nocopy JTF_NUMBER_TABLE
414 , a66 out nocopy JTF_NUMBER_TABLE
415 , a67 out nocopy JTF_NUMBER_TABLE
416 , a68 out nocopy JTF_VARCHAR2_TABLE_100
417 , a69 out nocopy JTF_VARCHAR2_TABLE_500
418 , a70 out nocopy JTF_VARCHAR2_TABLE_500
419 , a71 out nocopy JTF_VARCHAR2_TABLE_500
420 , a72 out nocopy JTF_VARCHAR2_TABLE_500
421 , a73 out nocopy JTF_VARCHAR2_TABLE_500
422 , a74 out nocopy JTF_VARCHAR2_TABLE_500
423 , a75 out nocopy JTF_VARCHAR2_TABLE_500
424 , a76 out nocopy JTF_VARCHAR2_TABLE_500
425 , a77 out nocopy JTF_VARCHAR2_TABLE_500
426 , a78 out nocopy JTF_VARCHAR2_TABLE_500
427 , a79 out nocopy JTF_VARCHAR2_TABLE_500
428 , a80 out nocopy JTF_VARCHAR2_TABLE_500
429 , a81 out nocopy JTF_VARCHAR2_TABLE_500
430 , a82 out nocopy JTF_VARCHAR2_TABLE_500
431 , a83 out nocopy JTF_VARCHAR2_TABLE_500
432 , a84 out nocopy JTF_NUMBER_TABLE
433 , a85 out nocopy JTF_DATE_TABLE
434 , a86 out nocopy JTF_NUMBER_TABLE
435 , a87 out nocopy JTF_DATE_TABLE
436 , a88 out nocopy JTF_NUMBER_TABLE
437 , a89 out nocopy JTF_VARCHAR2_TABLE_100
438 , a90 out nocopy JTF_VARCHAR2_TABLE_100
439 , a91 out nocopy JTF_VARCHAR2_TABLE_100
440 , a92 out nocopy JTF_VARCHAR2_TABLE_100
441 , a93 out nocopy JTF_VARCHAR2_TABLE_100
442 , a94 out nocopy JTF_NUMBER_TABLE
443 , a95 out nocopy JTF_DATE_TABLE
444 , a96 out nocopy JTF_NUMBER_TABLE
445 , a97 out nocopy JTF_NUMBER_TABLE
446 , a98 out nocopy JTF_NUMBER_TABLE
447 , a99 out nocopy JTF_NUMBER_TABLE
448 , a100 out nocopy JTF_VARCHAR2_TABLE_100
449 , a101 out nocopy JTF_NUMBER_TABLE
450 , a102 out nocopy JTF_DATE_TABLE
451 , a103 out nocopy JTF_NUMBER_TABLE
452 , a104 out nocopy JTF_NUMBER_TABLE
453 ) as
454 ddindx binary_integer; indx binary_integer;
455 begin
456 if t is null or t.count = 0 then
457 a0 := JTF_NUMBER_TABLE();
458 a1 := JTF_NUMBER_TABLE();
459 a2 := JTF_VARCHAR2_TABLE_100();
460 a3 := JTF_NUMBER_TABLE();
461 a4 := JTF_NUMBER_TABLE();
462 a5 := JTF_NUMBER_TABLE();
463 a6 := JTF_NUMBER_TABLE();
464 a7 := JTF_VARCHAR2_TABLE_100();
465 a8 := JTF_NUMBER_TABLE();
466 a9 := JTF_VARCHAR2_TABLE_100();
467 a10 := JTF_VARCHAR2_TABLE_200();
468 a11 := JTF_VARCHAR2_TABLE_100();
469 a12 := JTF_VARCHAR2_TABLE_200();
470 a13 := JTF_VARCHAR2_TABLE_100();
471 a14 := JTF_VARCHAR2_TABLE_100();
472 a15 := JTF_VARCHAR2_TABLE_100();
473 a16 := JTF_VARCHAR2_TABLE_100();
474 a17 := JTF_VARCHAR2_TABLE_200();
475 a18 := JTF_VARCHAR2_TABLE_600();
476 a19 := JTF_VARCHAR2_TABLE_2000();
477 a20 := JTF_VARCHAR2_TABLE_2000();
478 a21 := JTF_VARCHAR2_TABLE_100();
479 a22 := JTF_VARCHAR2_TABLE_300();
480 a23 := JTF_VARCHAR2_TABLE_100();
481 a24 := JTF_VARCHAR2_TABLE_200();
482 a25 := JTF_DATE_TABLE();
483 a26 := JTF_DATE_TABLE();
484 a27 := JTF_NUMBER_TABLE();
485 a28 := JTF_DATE_TABLE();
486 a29 := JTF_DATE_TABLE();
487 a30 := JTF_VARCHAR2_TABLE_100();
488 a31 := JTF_VARCHAR2_TABLE_2000();
489 a32 := JTF_VARCHAR2_TABLE_100();
490 a33 := JTF_VARCHAR2_TABLE_100();
491 a34 := JTF_VARCHAR2_TABLE_100();
492 a35 := JTF_VARCHAR2_TABLE_100();
493 a36 := JTF_NUMBER_TABLE();
494 a37 := JTF_NUMBER_TABLE();
495 a38 := JTF_DATE_TABLE();
496 a39 := JTF_DATE_TABLE();
497 a40 := JTF_DATE_TABLE();
498 a41 := JTF_DATE_TABLE();
499 a42 := JTF_DATE_TABLE();
500 a43 := JTF_VARCHAR2_TABLE_100();
501 a44 := JTF_DATE_TABLE();
502 a45 := JTF_DATE_TABLE();
503 a46 := JTF_NUMBER_TABLE();
504 a47 := JTF_VARCHAR2_TABLE_100();
505 a48 := JTF_VARCHAR2_TABLE_100();
506 a49 := JTF_NUMBER_TABLE();
507 a50 := JTF_NUMBER_TABLE();
508 a51 := JTF_NUMBER_TABLE();
509 a52 := JTF_VARCHAR2_TABLE_100();
510 a53 := JTF_VARCHAR2_TABLE_100();
511 a54 := JTF_NUMBER_TABLE();
512 a55 := JTF_NUMBER_TABLE();
513 a56 := JTF_VARCHAR2_TABLE_100();
514 a57 := JTF_NUMBER_TABLE();
515 a58 := JTF_VARCHAR2_TABLE_100();
516 a59 := JTF_NUMBER_TABLE();
517 a60 := JTF_NUMBER_TABLE();
518 a61 := JTF_NUMBER_TABLE();
519 a62 := JTF_DATE_TABLE();
520 a63 := JTF_DATE_TABLE();
521 a64 := JTF_DATE_TABLE();
522 a65 := JTF_NUMBER_TABLE();
523 a66 := JTF_NUMBER_TABLE();
524 a67 := JTF_NUMBER_TABLE();
525 a68 := JTF_VARCHAR2_TABLE_100();
526 a69 := JTF_VARCHAR2_TABLE_500();
527 a70 := JTF_VARCHAR2_TABLE_500();
528 a71 := JTF_VARCHAR2_TABLE_500();
529 a72 := JTF_VARCHAR2_TABLE_500();
530 a73 := JTF_VARCHAR2_TABLE_500();
531 a74 := JTF_VARCHAR2_TABLE_500();
532 a75 := JTF_VARCHAR2_TABLE_500();
533 a76 := JTF_VARCHAR2_TABLE_500();
534 a77 := JTF_VARCHAR2_TABLE_500();
535 a78 := JTF_VARCHAR2_TABLE_500();
536 a79 := JTF_VARCHAR2_TABLE_500();
537 a80 := JTF_VARCHAR2_TABLE_500();
538 a81 := JTF_VARCHAR2_TABLE_500();
539 a82 := JTF_VARCHAR2_TABLE_500();
540 a83 := JTF_VARCHAR2_TABLE_500();
541 a84 := JTF_NUMBER_TABLE();
542 a85 := JTF_DATE_TABLE();
543 a86 := JTF_NUMBER_TABLE();
544 a87 := JTF_DATE_TABLE();
545 a88 := JTF_NUMBER_TABLE();
546 a89 := JTF_VARCHAR2_TABLE_100();
547 a90 := JTF_VARCHAR2_TABLE_100();
548 a91 := JTF_VARCHAR2_TABLE_100();
549 a92 := JTF_VARCHAR2_TABLE_100();
550 a93 := JTF_VARCHAR2_TABLE_100();
551 a94 := JTF_NUMBER_TABLE();
552 a95 := JTF_DATE_TABLE();
553 a96 := JTF_NUMBER_TABLE();
554 a97 := JTF_NUMBER_TABLE();
555 a98 := JTF_NUMBER_TABLE();
556 a99 := JTF_NUMBER_TABLE();
557 a100 := JTF_VARCHAR2_TABLE_100();
558 a101 := JTF_NUMBER_TABLE();
559 a102 := JTF_DATE_TABLE();
560 a103 := JTF_NUMBER_TABLE();
561 a104 := JTF_NUMBER_TABLE();
562 else
563 a0 := JTF_NUMBER_TABLE();
564 a1 := JTF_NUMBER_TABLE();
565 a2 := JTF_VARCHAR2_TABLE_100();
566 a3 := JTF_NUMBER_TABLE();
567 a4 := JTF_NUMBER_TABLE();
568 a5 := JTF_NUMBER_TABLE();
569 a6 := JTF_NUMBER_TABLE();
570 a7 := JTF_VARCHAR2_TABLE_100();
571 a8 := JTF_NUMBER_TABLE();
572 a9 := JTF_VARCHAR2_TABLE_100();
573 a10 := JTF_VARCHAR2_TABLE_200();
574 a11 := JTF_VARCHAR2_TABLE_100();
575 a12 := JTF_VARCHAR2_TABLE_200();
576 a13 := JTF_VARCHAR2_TABLE_100();
577 a14 := JTF_VARCHAR2_TABLE_100();
578 a15 := JTF_VARCHAR2_TABLE_100();
579 a16 := JTF_VARCHAR2_TABLE_100();
580 a17 := JTF_VARCHAR2_TABLE_200();
581 a18 := JTF_VARCHAR2_TABLE_600();
582 a19 := JTF_VARCHAR2_TABLE_2000();
583 a20 := JTF_VARCHAR2_TABLE_2000();
584 a21 := JTF_VARCHAR2_TABLE_100();
585 a22 := JTF_VARCHAR2_TABLE_300();
586 a23 := JTF_VARCHAR2_TABLE_100();
587 a24 := JTF_VARCHAR2_TABLE_200();
588 a25 := JTF_DATE_TABLE();
589 a26 := JTF_DATE_TABLE();
590 a27 := JTF_NUMBER_TABLE();
591 a28 := JTF_DATE_TABLE();
592 a29 := JTF_DATE_TABLE();
593 a30 := JTF_VARCHAR2_TABLE_100();
594 a31 := JTF_VARCHAR2_TABLE_2000();
595 a32 := JTF_VARCHAR2_TABLE_100();
596 a33 := JTF_VARCHAR2_TABLE_100();
597 a34 := JTF_VARCHAR2_TABLE_100();
598 a35 := JTF_VARCHAR2_TABLE_100();
599 a36 := JTF_NUMBER_TABLE();
600 a37 := JTF_NUMBER_TABLE();
601 a38 := JTF_DATE_TABLE();
602 a39 := JTF_DATE_TABLE();
603 a40 := JTF_DATE_TABLE();
604 a41 := JTF_DATE_TABLE();
605 a42 := JTF_DATE_TABLE();
606 a43 := JTF_VARCHAR2_TABLE_100();
607 a44 := JTF_DATE_TABLE();
608 a45 := JTF_DATE_TABLE();
609 a46 := JTF_NUMBER_TABLE();
610 a47 := JTF_VARCHAR2_TABLE_100();
611 a48 := JTF_VARCHAR2_TABLE_100();
612 a49 := JTF_NUMBER_TABLE();
613 a50 := JTF_NUMBER_TABLE();
614 a51 := JTF_NUMBER_TABLE();
615 a52 := JTF_VARCHAR2_TABLE_100();
616 a53 := JTF_VARCHAR2_TABLE_100();
617 a54 := JTF_NUMBER_TABLE();
618 a55 := JTF_NUMBER_TABLE();
619 a56 := JTF_VARCHAR2_TABLE_100();
620 a57 := JTF_NUMBER_TABLE();
621 a58 := JTF_VARCHAR2_TABLE_100();
622 a59 := JTF_NUMBER_TABLE();
623 a60 := JTF_NUMBER_TABLE();
624 a61 := JTF_NUMBER_TABLE();
625 a62 := JTF_DATE_TABLE();
626 a63 := JTF_DATE_TABLE();
627 a64 := JTF_DATE_TABLE();
628 a65 := JTF_NUMBER_TABLE();
629 a66 := JTF_NUMBER_TABLE();
630 a67 := JTF_NUMBER_TABLE();
631 a68 := JTF_VARCHAR2_TABLE_100();
632 a69 := JTF_VARCHAR2_TABLE_500();
633 a70 := JTF_VARCHAR2_TABLE_500();
634 a71 := JTF_VARCHAR2_TABLE_500();
635 a72 := JTF_VARCHAR2_TABLE_500();
636 a73 := JTF_VARCHAR2_TABLE_500();
637 a74 := JTF_VARCHAR2_TABLE_500();
638 a75 := JTF_VARCHAR2_TABLE_500();
639 a76 := JTF_VARCHAR2_TABLE_500();
640 a77 := JTF_VARCHAR2_TABLE_500();
641 a78 := JTF_VARCHAR2_TABLE_500();
642 a79 := JTF_VARCHAR2_TABLE_500();
643 a80 := JTF_VARCHAR2_TABLE_500();
644 a81 := JTF_VARCHAR2_TABLE_500();
645 a82 := JTF_VARCHAR2_TABLE_500();
646 a83 := JTF_VARCHAR2_TABLE_500();
647 a84 := JTF_NUMBER_TABLE();
648 a85 := JTF_DATE_TABLE();
649 a86 := JTF_NUMBER_TABLE();
650 a87 := JTF_DATE_TABLE();
651 a88 := JTF_NUMBER_TABLE();
652 a89 := JTF_VARCHAR2_TABLE_100();
653 a90 := JTF_VARCHAR2_TABLE_100();
654 a91 := JTF_VARCHAR2_TABLE_100();
655 a92 := JTF_VARCHAR2_TABLE_100();
656 a93 := JTF_VARCHAR2_TABLE_100();
657 a94 := JTF_NUMBER_TABLE();
658 a95 := JTF_DATE_TABLE();
659 a96 := JTF_NUMBER_TABLE();
660 a97 := JTF_NUMBER_TABLE();
661 a98 := JTF_NUMBER_TABLE();
662 a99 := JTF_NUMBER_TABLE();
663 a100 := JTF_VARCHAR2_TABLE_100();
664 a101 := JTF_NUMBER_TABLE();
665 a102 := JTF_DATE_TABLE();
666 a103 := JTF_NUMBER_TABLE();
667 a104 := JTF_NUMBER_TABLE();
668 if t.count > 0 then
669 a0.extend(t.count);
670 a1.extend(t.count);
671 a2.extend(t.count);
672 a3.extend(t.count);
673 a4.extend(t.count);
674 a5.extend(t.count);
675 a6.extend(t.count);
676 a7.extend(t.count);
677 a8.extend(t.count);
678 a9.extend(t.count);
679 a10.extend(t.count);
680 a11.extend(t.count);
681 a12.extend(t.count);
682 a13.extend(t.count);
683 a14.extend(t.count);
684 a15.extend(t.count);
685 a16.extend(t.count);
686 a17.extend(t.count);
687 a18.extend(t.count);
688 a19.extend(t.count);
689 a20.extend(t.count);
690 a21.extend(t.count);
691 a22.extend(t.count);
692 a23.extend(t.count);
693 a24.extend(t.count);
694 a25.extend(t.count);
695 a26.extend(t.count);
696 a27.extend(t.count);
697 a28.extend(t.count);
698 a29.extend(t.count);
699 a30.extend(t.count);
700 a31.extend(t.count);
701 a32.extend(t.count);
702 a33.extend(t.count);
703 a34.extend(t.count);
704 a35.extend(t.count);
705 a36.extend(t.count);
706 a37.extend(t.count);
707 a38.extend(t.count);
708 a39.extend(t.count);
709 a40.extend(t.count);
710 a41.extend(t.count);
711 a42.extend(t.count);
712 a43.extend(t.count);
713 a44.extend(t.count);
714 a45.extend(t.count);
715 a46.extend(t.count);
716 a47.extend(t.count);
717 a48.extend(t.count);
718 a49.extend(t.count);
719 a50.extend(t.count);
720 a51.extend(t.count);
721 a52.extend(t.count);
722 a53.extend(t.count);
723 a54.extend(t.count);
724 a55.extend(t.count);
725 a56.extend(t.count);
726 a57.extend(t.count);
727 a58.extend(t.count);
728 a59.extend(t.count);
729 a60.extend(t.count);
730 a61.extend(t.count);
731 a62.extend(t.count);
732 a63.extend(t.count);
733 a64.extend(t.count);
734 a65.extend(t.count);
735 a66.extend(t.count);
736 a67.extend(t.count);
737 a68.extend(t.count);
738 a69.extend(t.count);
739 a70.extend(t.count);
740 a71.extend(t.count);
741 a72.extend(t.count);
742 a73.extend(t.count);
743 a74.extend(t.count);
744 a75.extend(t.count);
745 a76.extend(t.count);
746 a77.extend(t.count);
747 a78.extend(t.count);
748 a79.extend(t.count);
749 a80.extend(t.count);
750 a81.extend(t.count);
751 a82.extend(t.count);
752 a83.extend(t.count);
753 a84.extend(t.count);
754 a85.extend(t.count);
755 a86.extend(t.count);
756 a87.extend(t.count);
757 a88.extend(t.count);
758 a89.extend(t.count);
759 a90.extend(t.count);
760 a91.extend(t.count);
761 a92.extend(t.count);
762 a93.extend(t.count);
763 a94.extend(t.count);
764 a95.extend(t.count);
765 a96.extend(t.count);
766 a97.extend(t.count);
767 a98.extend(t.count);
768 a99.extend(t.count);
769 a100.extend(t.count);
770 a101.extend(t.count);
771 a102.extend(t.count);
772 a103.extend(t.count);
773 a104.extend(t.count);
774 ddindx := t.first;
775 indx := 1;
776 while true loop
777 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
778 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
779 a2(indx) := t(ddindx).sfwt_flag;
780 a3(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id_response);
781 a4(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id_award);
782 a5(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id_renewed);
783 a6(indx) := rosetta_g_miss_num_map(t(ddindx).inv_organization_id);
784 a7(indx) := t(ddindx).sts_code;
785 a8(indx) := rosetta_g_miss_num_map(t(ddindx).qcl_id);
786 a9(indx) := t(ddindx).scs_code;
787 a10(indx) := t(ddindx).contract_number;
788 a11(indx) := t(ddindx).currency_code;
789 a12(indx) := t(ddindx).contract_number_modifier;
790 a13(indx) := t(ddindx).archived_yn;
791 a14(indx) := t(ddindx).deleted_yn;
792 a15(indx) := t(ddindx).cust_po_number_req_yn;
793 a16(indx) := t(ddindx).pre_pay_req_yn;
794 a17(indx) := t(ddindx).cust_po_number;
795 a18(indx) := t(ddindx).short_description;
796 a19(indx) := t(ddindx).comments;
797 a20(indx) := t(ddindx).description;
798 a21(indx) := t(ddindx).dpas_rating;
799 a22(indx) := t(ddindx).cognomen;
800 a23(indx) := t(ddindx).template_yn;
801 a24(indx) := t(ddindx).template_used;
802 a25(indx) := t(ddindx).date_approved;
803 a26(indx) := t(ddindx).datetime_cancelled;
804 a27(indx) := rosetta_g_miss_num_map(t(ddindx).auto_renew_days);
805 a28(indx) := t(ddindx).date_issued;
806 a29(indx) := t(ddindx).datetime_responded;
807 a30(indx) := t(ddindx).non_response_reason;
808 a31(indx) := t(ddindx).non_response_explain;
809 a32(indx) := t(ddindx).rfp_type;
810 a33(indx) := t(ddindx).chr_type;
811 a34(indx) := t(ddindx).keep_on_mail_list;
812 a35(indx) := t(ddindx).set_aside_reason;
813 a36(indx) := rosetta_g_miss_num_map(t(ddindx).set_aside_percent);
814 a37(indx) := rosetta_g_miss_num_map(t(ddindx).response_copies_req);
815 a38(indx) := t(ddindx).date_close_projected;
816 a39(indx) := t(ddindx).datetime_proposed;
817 a40(indx) := t(ddindx).date_signed;
818 a41(indx) := t(ddindx).date_terminated;
819 a42(indx) := t(ddindx).date_renewed;
820 a43(indx) := t(ddindx).trn_code;
821 a44(indx) := t(ddindx).start_date;
822 a45(indx) := t(ddindx).end_date;
823 a46(indx) := rosetta_g_miss_num_map(t(ddindx).authoring_org_id);
824 a47(indx) := t(ddindx).buy_or_sell;
825 a48(indx) := t(ddindx).issue_or_receive;
826 a49(indx) := rosetta_g_miss_num_map(t(ddindx).estimated_amount);
827 a50(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id_renewed_to);
828 a51(indx) := rosetta_g_miss_num_map(t(ddindx).estimated_amount_renewed);
829 a52(indx) := t(ddindx).currency_code_renewed;
830 a53(indx) := t(ddindx).upg_orig_system_ref;
831 a54(indx) := rosetta_g_miss_num_map(t(ddindx).upg_orig_system_ref_id);
832 a55(indx) := rosetta_g_miss_num_map(t(ddindx).application_id);
833 a56(indx) := t(ddindx).orig_system_source_code;
834 a57(indx) := rosetta_g_miss_num_map(t(ddindx).orig_system_id1);
835 a58(indx) := t(ddindx).orig_system_reference1;
836 a59(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
837 a60(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
838 a61(indx) := rosetta_g_miss_num_map(t(ddindx).price_list_id);
839 a62(indx) := t(ddindx).pricing_date;
840 a63(indx) := t(ddindx).sign_by_date;
841 a64(indx) := t(ddindx).program_update_date;
842 a65(indx) := rosetta_g_miss_num_map(t(ddindx).total_line_list_price);
843 a66(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
844 a67(indx) := rosetta_g_miss_num_map(t(ddindx).user_estimated_amount);
845 a68(indx) := t(ddindx).attribute_category;
846 a69(indx) := t(ddindx).attribute1;
847 a70(indx) := t(ddindx).attribute2;
848 a71(indx) := t(ddindx).attribute3;
849 a72(indx) := t(ddindx).attribute4;
850 a73(indx) := t(ddindx).attribute5;
851 a74(indx) := t(ddindx).attribute6;
852 a75(indx) := t(ddindx).attribute7;
853 a76(indx) := t(ddindx).attribute8;
854 a77(indx) := t(ddindx).attribute9;
855 a78(indx) := t(ddindx).attribute10;
856 a79(indx) := t(ddindx).attribute11;
857 a80(indx) := t(ddindx).attribute12;
858 a81(indx) := t(ddindx).attribute13;
859 a82(indx) := t(ddindx).attribute14;
860 a83(indx) := t(ddindx).attribute15;
861 a84(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
862 a85(indx) := t(ddindx).creation_date;
863 a86(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
864 a87(indx) := t(ddindx).last_update_date;
865 a88(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
866 a89(indx) := t(ddindx).old_sts_code;
867 a90(indx) := t(ddindx).new_sts_code;
868 a91(indx) := t(ddindx).old_ste_code;
869 a92(indx) := t(ddindx).new_ste_code;
870 a93(indx) := t(ddindx).conversion_type;
871 a94(indx) := rosetta_g_miss_num_map(t(ddindx).conversion_rate);
872 a95(indx) := t(ddindx).conversion_rate_date;
873 a96(indx) := rosetta_g_miss_num_map(t(ddindx).conversion_euro_rate);
874 a97(indx) := rosetta_g_miss_num_map(t(ddindx).cust_acct_id);
875 a98(indx) := rosetta_g_miss_num_map(t(ddindx).bill_to_site_use_id);
876 a99(indx) := rosetta_g_miss_num_map(t(ddindx).inv_rule_id);
877 a100(indx) := t(ddindx).renewal_type_code;
878 a101(indx) := rosetta_g_miss_num_map(t(ddindx).renewal_notify_to);
879 a102(indx) := t(ddindx).renewal_end_date;
880 a103(indx) := rosetta_g_miss_num_map(t(ddindx).ship_to_site_use_id);
881 a104(indx) := rosetta_g_miss_num_map(t(ddindx).payment_term_id);
882 indx := indx+1;
883 if t.last =ddindx
884 then exit;
885 end if;
886 ddindx := t.next(ddindx);
887 end loop;
888 end if;
889 end if;
890 end rosetta_table_copy_out_p3;
891
892 procedure rosetta_table_copy_in_p5(t out nocopy okl_okc_migration_pvt.clev_tbl_type, a0 JTF_NUMBER_TABLE
893 , a1 JTF_NUMBER_TABLE
894 , a2 JTF_VARCHAR2_TABLE_100
895 , a3 JTF_NUMBER_TABLE
896 , a4 JTF_NUMBER_TABLE
897 , a5 JTF_NUMBER_TABLE
898 , a6 JTF_NUMBER_TABLE
899 , a7 JTF_NUMBER_TABLE
900 , a8 JTF_VARCHAR2_TABLE_200
901 , a9 JTF_VARCHAR2_TABLE_100
902 , a10 JTF_NUMBER_TABLE
903 , a11 JTF_VARCHAR2_TABLE_100
904 , a12 JTF_NUMBER_TABLE
905 , a13 JTF_VARCHAR2_TABLE_2000
906 , a14 JTF_VARCHAR2_TABLE_2000
907 , a15 JTF_VARCHAR2_TABLE_2000
908 , a16 JTF_VARCHAR2_TABLE_300
909 , a17 JTF_VARCHAR2_TABLE_100
910 , a18 JTF_NUMBER_TABLE
911 , a19 JTF_NUMBER_TABLE
912 , a20 JTF_NUMBER_TABLE
913 , a21 JTF_NUMBER_TABLE
914 , a22 JTF_VARCHAR2_TABLE_100
915 , a23 JTF_VARCHAR2_TABLE_100
916 , a24 JTF_VARCHAR2_TABLE_100
917 , a25 JTF_VARCHAR2_TABLE_2000
918 , a26 JTF_VARCHAR2_TABLE_100
919 , a27 JTF_VARCHAR2_TABLE_200
920 , a28 JTF_DATE_TABLE
921 , a29 JTF_VARCHAR2_TABLE_200
922 , a30 JTF_DATE_TABLE
923 , a31 JTF_DATE_TABLE
924 , a32 JTF_DATE_TABLE
925 , a33 JTF_VARCHAR2_TABLE_100
926 , a34 JTF_NUMBER_TABLE
927 , a35 JTF_VARCHAR2_TABLE_100
928 , a36 JTF_NUMBER_TABLE
929 , a37 JTF_VARCHAR2_TABLE_100
930 , a38 JTF_VARCHAR2_TABLE_100
931 , a39 JTF_VARCHAR2_TABLE_500
932 , a40 JTF_VARCHAR2_TABLE_500
933 , a41 JTF_VARCHAR2_TABLE_500
934 , a42 JTF_VARCHAR2_TABLE_500
935 , a43 JTF_VARCHAR2_TABLE_500
936 , a44 JTF_VARCHAR2_TABLE_500
937 , a45 JTF_VARCHAR2_TABLE_500
938 , a46 JTF_VARCHAR2_TABLE_500
939 , a47 JTF_VARCHAR2_TABLE_500
940 , a48 JTF_VARCHAR2_TABLE_500
941 , a49 JTF_VARCHAR2_TABLE_500
942 , a50 JTF_VARCHAR2_TABLE_500
943 , a51 JTF_VARCHAR2_TABLE_500
944 , a52 JTF_VARCHAR2_TABLE_500
945 , a53 JTF_VARCHAR2_TABLE_500
946 , a54 JTF_NUMBER_TABLE
947 , a55 JTF_DATE_TABLE
948 , a56 JTF_NUMBER_TABLE
949 , a57 JTF_DATE_TABLE
950 , a58 JTF_VARCHAR2_TABLE_100
951 , a59 JTF_VARCHAR2_TABLE_100
952 , a60 JTF_VARCHAR2_TABLE_100
953 , a61 JTF_NUMBER_TABLE
954 , a62 JTF_VARCHAR2_TABLE_100
955 , a63 JTF_VARCHAR2_TABLE_100
956 , a64 JTF_VARCHAR2_TABLE_100
957 , a65 JTF_VARCHAR2_TABLE_100
958 , a66 JTF_VARCHAR2_TABLE_100
959 , a67 JTF_NUMBER_TABLE
960 , a68 JTF_NUMBER_TABLE
961 , a69 JTF_NUMBER_TABLE
962 , a70 JTF_DATE_TABLE
963 , a71 JTF_NUMBER_TABLE
964 , a72 JTF_DATE_TABLE
965 , a73 JTF_NUMBER_TABLE
966 , a74 JTF_NUMBER_TABLE
967 , a75 JTF_VARCHAR2_TABLE_100
968 , a76 JTF_VARCHAR2_TABLE_100
969 , a77 JTF_NUMBER_TABLE
970 , a78 JTF_NUMBER_TABLE
971 , a79 JTF_VARCHAR2_TABLE_100
972 , a80 JTF_VARCHAR2_TABLE_100
973 , a81 JTF_NUMBER_TABLE
974 , a82 JTF_VARCHAR2_TABLE_100
975 , a83 JTF_NUMBER_TABLE
976 , a84 JTF_NUMBER_TABLE
977 , a85 JTF_NUMBER_TABLE
978 , a86 JTF_NUMBER_TABLE
979 , a87 JTF_VARCHAR2_TABLE_100
980 , a88 JTF_NUMBER_TABLE
981 , a89 JTF_NUMBER_TABLE
982 ) as
983 ddindx binary_integer; indx binary_integer;
984 begin
985 if a0 is not null and a0.count > 0 then
986 if a0.count > 0 then
987 indx := a0.first;
988 ddindx := 1;
989 while true loop
990 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
991 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
992 t(ddindx).sfwt_flag := a2(indx);
993 t(ddindx).chr_id := rosetta_g_miss_num_map(a3(indx));
994 t(ddindx).cle_id := rosetta_g_miss_num_map(a4(indx));
995 t(ddindx).cle_id_renewed := rosetta_g_miss_num_map(a5(indx));
996 t(ddindx).cle_id_renewed_to := rosetta_g_miss_num_map(a6(indx));
997 t(ddindx).lse_id := rosetta_g_miss_num_map(a7(indx));
998 t(ddindx).line_number := a8(indx);
999 t(ddindx).sts_code := a9(indx);
1000 t(ddindx).display_sequence := rosetta_g_miss_num_map(a10(indx));
1001 t(ddindx).trn_code := a11(indx);
1002 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a12(indx));
1003 t(ddindx).comments := a13(indx);
1004 t(ddindx).item_description := a14(indx);
1005 t(ddindx).oke_boe_description := a15(indx);
1006 t(ddindx).cognomen := a16(indx);
1007 t(ddindx).hidden_ind := a17(indx);
1008 t(ddindx).price_unit := rosetta_g_miss_num_map(a18(indx));
1009 t(ddindx).price_unit_percent := rosetta_g_miss_num_map(a19(indx));
1010 t(ddindx).price_negotiated := rosetta_g_miss_num_map(a20(indx));
1011 t(ddindx).price_negotiated_renewed := rosetta_g_miss_num_map(a21(indx));
1012 t(ddindx).price_level_ind := a22(indx);
1013 t(ddindx).invoice_line_level_ind := a23(indx);
1014 t(ddindx).dpas_rating := a24(indx);
1015 t(ddindx).block23text := a25(indx);
1016 t(ddindx).exception_yn := a26(indx);
1017 t(ddindx).template_used := a27(indx);
1018 t(ddindx).date_terminated := rosetta_g_miss_date_in_map(a28(indx));
1019 t(ddindx).name := a29(indx);
1020 t(ddindx).start_date := rosetta_g_miss_date_in_map(a30(indx));
1021 t(ddindx).end_date := rosetta_g_miss_date_in_map(a31(indx));
1022 t(ddindx).date_renewed := rosetta_g_miss_date_in_map(a32(indx));
1023 t(ddindx).upg_orig_system_ref := a33(indx);
1024 t(ddindx).upg_orig_system_ref_id := rosetta_g_miss_num_map(a34(indx));
1025 t(ddindx).orig_system_source_code := a35(indx);
1026 t(ddindx).orig_system_id1 := rosetta_g_miss_num_map(a36(indx));
1027 t(ddindx).orig_system_reference1 := a37(indx);
1028 t(ddindx).attribute_category := a38(indx);
1029 t(ddindx).attribute1 := a39(indx);
1030 t(ddindx).attribute2 := a40(indx);
1031 t(ddindx).attribute3 := a41(indx);
1032 t(ddindx).attribute4 := a42(indx);
1033 t(ddindx).attribute5 := a43(indx);
1034 t(ddindx).attribute6 := a44(indx);
1035 t(ddindx).attribute7 := a45(indx);
1036 t(ddindx).attribute8 := a46(indx);
1037 t(ddindx).attribute9 := a47(indx);
1038 t(ddindx).attribute10 := a48(indx);
1039 t(ddindx).attribute11 := a49(indx);
1040 t(ddindx).attribute12 := a50(indx);
1041 t(ddindx).attribute13 := a51(indx);
1042 t(ddindx).attribute14 := a52(indx);
1043 t(ddindx).attribute15 := a53(indx);
1044 t(ddindx).created_by := rosetta_g_miss_num_map(a54(indx));
1045 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a55(indx));
1046 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a56(indx));
1047 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a57(indx));
1048 t(ddindx).price_type := a58(indx);
1049 t(ddindx).currency_code := a59(indx);
1050 t(ddindx).currency_code_renewed := a60(indx);
1051 t(ddindx).last_update_login := rosetta_g_miss_num_map(a61(indx));
1052 t(ddindx).old_sts_code := a62(indx);
1053 t(ddindx).new_sts_code := a63(indx);
1054 t(ddindx).old_ste_code := a64(indx);
1055 t(ddindx).new_ste_code := a65(indx);
1056 t(ddindx).call_action_asmblr := a66(indx);
1057 t(ddindx).request_id := rosetta_g_miss_num_map(a67(indx));
1058 t(ddindx).program_application_id := rosetta_g_miss_num_map(a68(indx));
1059 t(ddindx).program_id := rosetta_g_miss_num_map(a69(indx));
1060 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a70(indx));
1061 t(ddindx).price_list_id := rosetta_g_miss_num_map(a71(indx));
1062 t(ddindx).pricing_date := rosetta_g_miss_date_in_map(a72(indx));
1063 t(ddindx).price_list_line_id := rosetta_g_miss_num_map(a73(indx));
1064 t(ddindx).line_list_price := rosetta_g_miss_num_map(a74(indx));
1065 t(ddindx).item_to_price_yn := a75(indx);
1066 t(ddindx).price_basis_yn := a76(indx);
1067 t(ddindx).config_header_id := rosetta_g_miss_num_map(a77(indx));
1068 t(ddindx).config_revision_number := rosetta_g_miss_num_map(a78(indx));
1069 t(ddindx).config_complete_yn := a79(indx);
1070 t(ddindx).config_valid_yn := a80(indx);
1071 t(ddindx).config_top_model_line_id := rosetta_g_miss_num_map(a81(indx));
1072 t(ddindx).config_item_type := a82(indx);
1073 t(ddindx).config_item_id := rosetta_g_miss_num_map(a83(indx));
1074 t(ddindx).cust_acct_id := rosetta_g_miss_num_map(a84(indx));
1075 t(ddindx).bill_to_site_use_id := rosetta_g_miss_num_map(a85(indx));
1076 t(ddindx).inv_rule_id := rosetta_g_miss_num_map(a86(indx));
1077 t(ddindx).line_renewal_type_code := a87(indx);
1078 t(ddindx).ship_to_site_use_id := rosetta_g_miss_num_map(a88(indx));
1079 t(ddindx).payment_term_id := rosetta_g_miss_num_map(a89(indx));
1080 ddindx := ddindx+1;
1081 if a0.last =indx
1082 then exit;
1083 end if;
1084 indx := a0.next(indx);
1085 end loop;
1086 end if;
1087 end if;
1088 end rosetta_table_copy_in_p5;
1089 procedure rosetta_table_copy_out_p5(t okl_okc_migration_pvt.clev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1090 , a1 out nocopy JTF_NUMBER_TABLE
1091 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1092 , a3 out nocopy JTF_NUMBER_TABLE
1093 , a4 out nocopy JTF_NUMBER_TABLE
1094 , a5 out nocopy JTF_NUMBER_TABLE
1095 , a6 out nocopy JTF_NUMBER_TABLE
1096 , a7 out nocopy JTF_NUMBER_TABLE
1097 , a8 out nocopy JTF_VARCHAR2_TABLE_200
1098 , a9 out nocopy JTF_VARCHAR2_TABLE_100
1099 , a10 out nocopy JTF_NUMBER_TABLE
1100 , a11 out nocopy JTF_VARCHAR2_TABLE_100
1101 , a12 out nocopy JTF_NUMBER_TABLE
1102 , a13 out nocopy JTF_VARCHAR2_TABLE_2000
1103 , a14 out nocopy JTF_VARCHAR2_TABLE_2000
1104 , a15 out nocopy JTF_VARCHAR2_TABLE_2000
1105 , a16 out nocopy JTF_VARCHAR2_TABLE_300
1106 , a17 out nocopy JTF_VARCHAR2_TABLE_100
1107 , a18 out nocopy JTF_NUMBER_TABLE
1108 , a19 out nocopy JTF_NUMBER_TABLE
1109 , a20 out nocopy JTF_NUMBER_TABLE
1110 , a21 out nocopy JTF_NUMBER_TABLE
1111 , a22 out nocopy JTF_VARCHAR2_TABLE_100
1112 , a23 out nocopy JTF_VARCHAR2_TABLE_100
1113 , a24 out nocopy JTF_VARCHAR2_TABLE_100
1114 , a25 out nocopy JTF_VARCHAR2_TABLE_2000
1115 , a26 out nocopy JTF_VARCHAR2_TABLE_100
1116 , a27 out nocopy JTF_VARCHAR2_TABLE_200
1117 , a28 out nocopy JTF_DATE_TABLE
1118 , a29 out nocopy JTF_VARCHAR2_TABLE_200
1119 , a30 out nocopy JTF_DATE_TABLE
1120 , a31 out nocopy JTF_DATE_TABLE
1121 , a32 out nocopy JTF_DATE_TABLE
1122 , a33 out nocopy JTF_VARCHAR2_TABLE_100
1123 , a34 out nocopy JTF_NUMBER_TABLE
1124 , a35 out nocopy JTF_VARCHAR2_TABLE_100
1125 , a36 out nocopy JTF_NUMBER_TABLE
1126 , a37 out nocopy JTF_VARCHAR2_TABLE_100
1127 , a38 out nocopy JTF_VARCHAR2_TABLE_100
1128 , a39 out nocopy JTF_VARCHAR2_TABLE_500
1129 , a40 out nocopy JTF_VARCHAR2_TABLE_500
1130 , a41 out nocopy JTF_VARCHAR2_TABLE_500
1131 , a42 out nocopy JTF_VARCHAR2_TABLE_500
1132 , a43 out nocopy JTF_VARCHAR2_TABLE_500
1133 , a44 out nocopy JTF_VARCHAR2_TABLE_500
1134 , a45 out nocopy JTF_VARCHAR2_TABLE_500
1135 , a46 out nocopy JTF_VARCHAR2_TABLE_500
1136 , a47 out nocopy JTF_VARCHAR2_TABLE_500
1137 , a48 out nocopy JTF_VARCHAR2_TABLE_500
1138 , a49 out nocopy JTF_VARCHAR2_TABLE_500
1139 , a50 out nocopy JTF_VARCHAR2_TABLE_500
1140 , a51 out nocopy JTF_VARCHAR2_TABLE_500
1141 , a52 out nocopy JTF_VARCHAR2_TABLE_500
1142 , a53 out nocopy JTF_VARCHAR2_TABLE_500
1143 , a54 out nocopy JTF_NUMBER_TABLE
1144 , a55 out nocopy JTF_DATE_TABLE
1145 , a56 out nocopy JTF_NUMBER_TABLE
1146 , a57 out nocopy JTF_DATE_TABLE
1147 , a58 out nocopy JTF_VARCHAR2_TABLE_100
1148 , a59 out nocopy JTF_VARCHAR2_TABLE_100
1149 , a60 out nocopy JTF_VARCHAR2_TABLE_100
1150 , a61 out nocopy JTF_NUMBER_TABLE
1151 , a62 out nocopy JTF_VARCHAR2_TABLE_100
1152 , a63 out nocopy JTF_VARCHAR2_TABLE_100
1153 , a64 out nocopy JTF_VARCHAR2_TABLE_100
1154 , a65 out nocopy JTF_VARCHAR2_TABLE_100
1155 , a66 out nocopy JTF_VARCHAR2_TABLE_100
1156 , a67 out nocopy JTF_NUMBER_TABLE
1157 , a68 out nocopy JTF_NUMBER_TABLE
1158 , a69 out nocopy JTF_NUMBER_TABLE
1159 , a70 out nocopy JTF_DATE_TABLE
1160 , a71 out nocopy JTF_NUMBER_TABLE
1161 , a72 out nocopy JTF_DATE_TABLE
1162 , a73 out nocopy JTF_NUMBER_TABLE
1163 , a74 out nocopy JTF_NUMBER_TABLE
1164 , a75 out nocopy JTF_VARCHAR2_TABLE_100
1165 , a76 out nocopy JTF_VARCHAR2_TABLE_100
1166 , a77 out nocopy JTF_NUMBER_TABLE
1167 , a78 out nocopy JTF_NUMBER_TABLE
1168 , a79 out nocopy JTF_VARCHAR2_TABLE_100
1169 , a80 out nocopy JTF_VARCHAR2_TABLE_100
1170 , a81 out nocopy JTF_NUMBER_TABLE
1171 , a82 out nocopy JTF_VARCHAR2_TABLE_100
1172 , a83 out nocopy JTF_NUMBER_TABLE
1173 , a84 out nocopy JTF_NUMBER_TABLE
1174 , a85 out nocopy JTF_NUMBER_TABLE
1175 , a86 out nocopy JTF_NUMBER_TABLE
1176 , a87 out nocopy JTF_VARCHAR2_TABLE_100
1177 , a88 out nocopy JTF_NUMBER_TABLE
1178 , a89 out nocopy JTF_NUMBER_TABLE
1179 ) as
1180 ddindx binary_integer; indx binary_integer;
1181 begin
1182 if t is null or t.count = 0 then
1183 a0 := JTF_NUMBER_TABLE();
1184 a1 := JTF_NUMBER_TABLE();
1185 a2 := JTF_VARCHAR2_TABLE_100();
1186 a3 := JTF_NUMBER_TABLE();
1187 a4 := JTF_NUMBER_TABLE();
1188 a5 := JTF_NUMBER_TABLE();
1189 a6 := JTF_NUMBER_TABLE();
1190 a7 := JTF_NUMBER_TABLE();
1191 a8 := JTF_VARCHAR2_TABLE_200();
1192 a9 := JTF_VARCHAR2_TABLE_100();
1193 a10 := JTF_NUMBER_TABLE();
1194 a11 := JTF_VARCHAR2_TABLE_100();
1195 a12 := JTF_NUMBER_TABLE();
1196 a13 := JTF_VARCHAR2_TABLE_2000();
1197 a14 := JTF_VARCHAR2_TABLE_2000();
1198 a15 := JTF_VARCHAR2_TABLE_2000();
1199 a16 := JTF_VARCHAR2_TABLE_300();
1200 a17 := JTF_VARCHAR2_TABLE_100();
1201 a18 := JTF_NUMBER_TABLE();
1202 a19 := JTF_NUMBER_TABLE();
1203 a20 := JTF_NUMBER_TABLE();
1204 a21 := JTF_NUMBER_TABLE();
1205 a22 := JTF_VARCHAR2_TABLE_100();
1206 a23 := JTF_VARCHAR2_TABLE_100();
1207 a24 := JTF_VARCHAR2_TABLE_100();
1208 a25 := JTF_VARCHAR2_TABLE_2000();
1209 a26 := JTF_VARCHAR2_TABLE_100();
1210 a27 := JTF_VARCHAR2_TABLE_200();
1211 a28 := JTF_DATE_TABLE();
1212 a29 := JTF_VARCHAR2_TABLE_200();
1213 a30 := JTF_DATE_TABLE();
1214 a31 := JTF_DATE_TABLE();
1215 a32 := JTF_DATE_TABLE();
1216 a33 := JTF_VARCHAR2_TABLE_100();
1217 a34 := JTF_NUMBER_TABLE();
1218 a35 := JTF_VARCHAR2_TABLE_100();
1219 a36 := JTF_NUMBER_TABLE();
1220 a37 := JTF_VARCHAR2_TABLE_100();
1221 a38 := JTF_VARCHAR2_TABLE_100();
1222 a39 := JTF_VARCHAR2_TABLE_500();
1223 a40 := JTF_VARCHAR2_TABLE_500();
1224 a41 := JTF_VARCHAR2_TABLE_500();
1225 a42 := JTF_VARCHAR2_TABLE_500();
1226 a43 := JTF_VARCHAR2_TABLE_500();
1227 a44 := JTF_VARCHAR2_TABLE_500();
1228 a45 := JTF_VARCHAR2_TABLE_500();
1229 a46 := JTF_VARCHAR2_TABLE_500();
1230 a47 := JTF_VARCHAR2_TABLE_500();
1231 a48 := JTF_VARCHAR2_TABLE_500();
1232 a49 := JTF_VARCHAR2_TABLE_500();
1233 a50 := JTF_VARCHAR2_TABLE_500();
1234 a51 := JTF_VARCHAR2_TABLE_500();
1235 a52 := JTF_VARCHAR2_TABLE_500();
1236 a53 := JTF_VARCHAR2_TABLE_500();
1237 a54 := JTF_NUMBER_TABLE();
1238 a55 := JTF_DATE_TABLE();
1239 a56 := JTF_NUMBER_TABLE();
1240 a57 := JTF_DATE_TABLE();
1241 a58 := JTF_VARCHAR2_TABLE_100();
1242 a59 := JTF_VARCHAR2_TABLE_100();
1243 a60 := JTF_VARCHAR2_TABLE_100();
1244 a61 := JTF_NUMBER_TABLE();
1245 a62 := JTF_VARCHAR2_TABLE_100();
1246 a63 := JTF_VARCHAR2_TABLE_100();
1247 a64 := JTF_VARCHAR2_TABLE_100();
1248 a65 := JTF_VARCHAR2_TABLE_100();
1249 a66 := JTF_VARCHAR2_TABLE_100();
1250 a67 := JTF_NUMBER_TABLE();
1251 a68 := JTF_NUMBER_TABLE();
1252 a69 := JTF_NUMBER_TABLE();
1253 a70 := JTF_DATE_TABLE();
1254 a71 := JTF_NUMBER_TABLE();
1255 a72 := JTF_DATE_TABLE();
1256 a73 := JTF_NUMBER_TABLE();
1257 a74 := JTF_NUMBER_TABLE();
1258 a75 := JTF_VARCHAR2_TABLE_100();
1259 a76 := JTF_VARCHAR2_TABLE_100();
1260 a77 := JTF_NUMBER_TABLE();
1261 a78 := JTF_NUMBER_TABLE();
1262 a79 := JTF_VARCHAR2_TABLE_100();
1263 a80 := JTF_VARCHAR2_TABLE_100();
1264 a81 := JTF_NUMBER_TABLE();
1265 a82 := JTF_VARCHAR2_TABLE_100();
1266 a83 := JTF_NUMBER_TABLE();
1267 a84 := JTF_NUMBER_TABLE();
1268 a85 := JTF_NUMBER_TABLE();
1269 a86 := JTF_NUMBER_TABLE();
1270 a87 := JTF_VARCHAR2_TABLE_100();
1271 a88 := JTF_NUMBER_TABLE();
1272 a89 := JTF_NUMBER_TABLE();
1273 else
1274 a0 := JTF_NUMBER_TABLE();
1275 a1 := JTF_NUMBER_TABLE();
1276 a2 := JTF_VARCHAR2_TABLE_100();
1277 a3 := JTF_NUMBER_TABLE();
1278 a4 := JTF_NUMBER_TABLE();
1279 a5 := JTF_NUMBER_TABLE();
1280 a6 := JTF_NUMBER_TABLE();
1281 a7 := JTF_NUMBER_TABLE();
1282 a8 := JTF_VARCHAR2_TABLE_200();
1283 a9 := JTF_VARCHAR2_TABLE_100();
1284 a10 := JTF_NUMBER_TABLE();
1285 a11 := JTF_VARCHAR2_TABLE_100();
1286 a12 := JTF_NUMBER_TABLE();
1287 a13 := JTF_VARCHAR2_TABLE_2000();
1288 a14 := JTF_VARCHAR2_TABLE_2000();
1289 a15 := JTF_VARCHAR2_TABLE_2000();
1290 a16 := JTF_VARCHAR2_TABLE_300();
1291 a17 := JTF_VARCHAR2_TABLE_100();
1292 a18 := JTF_NUMBER_TABLE();
1293 a19 := JTF_NUMBER_TABLE();
1294 a20 := JTF_NUMBER_TABLE();
1295 a21 := JTF_NUMBER_TABLE();
1296 a22 := JTF_VARCHAR2_TABLE_100();
1297 a23 := JTF_VARCHAR2_TABLE_100();
1298 a24 := JTF_VARCHAR2_TABLE_100();
1299 a25 := JTF_VARCHAR2_TABLE_2000();
1300 a26 := JTF_VARCHAR2_TABLE_100();
1301 a27 := JTF_VARCHAR2_TABLE_200();
1302 a28 := JTF_DATE_TABLE();
1303 a29 := JTF_VARCHAR2_TABLE_200();
1304 a30 := JTF_DATE_TABLE();
1305 a31 := JTF_DATE_TABLE();
1306 a32 := JTF_DATE_TABLE();
1307 a33 := JTF_VARCHAR2_TABLE_100();
1308 a34 := JTF_NUMBER_TABLE();
1309 a35 := JTF_VARCHAR2_TABLE_100();
1310 a36 := JTF_NUMBER_TABLE();
1311 a37 := JTF_VARCHAR2_TABLE_100();
1312 a38 := JTF_VARCHAR2_TABLE_100();
1313 a39 := JTF_VARCHAR2_TABLE_500();
1314 a40 := JTF_VARCHAR2_TABLE_500();
1315 a41 := JTF_VARCHAR2_TABLE_500();
1316 a42 := JTF_VARCHAR2_TABLE_500();
1317 a43 := JTF_VARCHAR2_TABLE_500();
1318 a44 := JTF_VARCHAR2_TABLE_500();
1319 a45 := JTF_VARCHAR2_TABLE_500();
1320 a46 := JTF_VARCHAR2_TABLE_500();
1321 a47 := JTF_VARCHAR2_TABLE_500();
1322 a48 := JTF_VARCHAR2_TABLE_500();
1323 a49 := JTF_VARCHAR2_TABLE_500();
1324 a50 := JTF_VARCHAR2_TABLE_500();
1325 a51 := JTF_VARCHAR2_TABLE_500();
1326 a52 := JTF_VARCHAR2_TABLE_500();
1327 a53 := JTF_VARCHAR2_TABLE_500();
1328 a54 := JTF_NUMBER_TABLE();
1329 a55 := JTF_DATE_TABLE();
1330 a56 := JTF_NUMBER_TABLE();
1331 a57 := JTF_DATE_TABLE();
1332 a58 := JTF_VARCHAR2_TABLE_100();
1333 a59 := JTF_VARCHAR2_TABLE_100();
1334 a60 := JTF_VARCHAR2_TABLE_100();
1335 a61 := JTF_NUMBER_TABLE();
1336 a62 := JTF_VARCHAR2_TABLE_100();
1337 a63 := JTF_VARCHAR2_TABLE_100();
1338 a64 := JTF_VARCHAR2_TABLE_100();
1339 a65 := JTF_VARCHAR2_TABLE_100();
1340 a66 := JTF_VARCHAR2_TABLE_100();
1341 a67 := JTF_NUMBER_TABLE();
1342 a68 := JTF_NUMBER_TABLE();
1343 a69 := JTF_NUMBER_TABLE();
1344 a70 := JTF_DATE_TABLE();
1345 a71 := JTF_NUMBER_TABLE();
1346 a72 := JTF_DATE_TABLE();
1347 a73 := JTF_NUMBER_TABLE();
1348 a74 := JTF_NUMBER_TABLE();
1349 a75 := JTF_VARCHAR2_TABLE_100();
1350 a76 := JTF_VARCHAR2_TABLE_100();
1351 a77 := JTF_NUMBER_TABLE();
1352 a78 := JTF_NUMBER_TABLE();
1353 a79 := JTF_VARCHAR2_TABLE_100();
1354 a80 := JTF_VARCHAR2_TABLE_100();
1355 a81 := JTF_NUMBER_TABLE();
1356 a82 := JTF_VARCHAR2_TABLE_100();
1357 a83 := JTF_NUMBER_TABLE();
1358 a84 := JTF_NUMBER_TABLE();
1359 a85 := JTF_NUMBER_TABLE();
1360 a86 := JTF_NUMBER_TABLE();
1361 a87 := JTF_VARCHAR2_TABLE_100();
1362 a88 := JTF_NUMBER_TABLE();
1363 a89 := JTF_NUMBER_TABLE();
1364 if t.count > 0 then
1365 a0.extend(t.count);
1366 a1.extend(t.count);
1367 a2.extend(t.count);
1368 a3.extend(t.count);
1369 a4.extend(t.count);
1370 a5.extend(t.count);
1371 a6.extend(t.count);
1372 a7.extend(t.count);
1373 a8.extend(t.count);
1374 a9.extend(t.count);
1375 a10.extend(t.count);
1376 a11.extend(t.count);
1377 a12.extend(t.count);
1378 a13.extend(t.count);
1379 a14.extend(t.count);
1380 a15.extend(t.count);
1381 a16.extend(t.count);
1382 a17.extend(t.count);
1383 a18.extend(t.count);
1384 a19.extend(t.count);
1385 a20.extend(t.count);
1386 a21.extend(t.count);
1387 a22.extend(t.count);
1388 a23.extend(t.count);
1389 a24.extend(t.count);
1390 a25.extend(t.count);
1391 a26.extend(t.count);
1392 a27.extend(t.count);
1393 a28.extend(t.count);
1394 a29.extend(t.count);
1395 a30.extend(t.count);
1396 a31.extend(t.count);
1397 a32.extend(t.count);
1398 a33.extend(t.count);
1399 a34.extend(t.count);
1400 a35.extend(t.count);
1401 a36.extend(t.count);
1402 a37.extend(t.count);
1403 a38.extend(t.count);
1404 a39.extend(t.count);
1405 a40.extend(t.count);
1406 a41.extend(t.count);
1407 a42.extend(t.count);
1408 a43.extend(t.count);
1409 a44.extend(t.count);
1410 a45.extend(t.count);
1411 a46.extend(t.count);
1412 a47.extend(t.count);
1413 a48.extend(t.count);
1414 a49.extend(t.count);
1415 a50.extend(t.count);
1416 a51.extend(t.count);
1417 a52.extend(t.count);
1418 a53.extend(t.count);
1419 a54.extend(t.count);
1420 a55.extend(t.count);
1421 a56.extend(t.count);
1422 a57.extend(t.count);
1423 a58.extend(t.count);
1424 a59.extend(t.count);
1425 a60.extend(t.count);
1426 a61.extend(t.count);
1427 a62.extend(t.count);
1428 a63.extend(t.count);
1429 a64.extend(t.count);
1430 a65.extend(t.count);
1431 a66.extend(t.count);
1432 a67.extend(t.count);
1433 a68.extend(t.count);
1434 a69.extend(t.count);
1435 a70.extend(t.count);
1436 a71.extend(t.count);
1437 a72.extend(t.count);
1438 a73.extend(t.count);
1439 a74.extend(t.count);
1440 a75.extend(t.count);
1441 a76.extend(t.count);
1442 a77.extend(t.count);
1443 a78.extend(t.count);
1444 a79.extend(t.count);
1445 a80.extend(t.count);
1446 a81.extend(t.count);
1447 a82.extend(t.count);
1448 a83.extend(t.count);
1449 a84.extend(t.count);
1450 a85.extend(t.count);
1451 a86.extend(t.count);
1452 a87.extend(t.count);
1453 a88.extend(t.count);
1454 a89.extend(t.count);
1455 ddindx := t.first;
1456 indx := 1;
1457 while true loop
1458 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
1459 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
1460 a2(indx) := t(ddindx).sfwt_flag;
1461 a3(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
1462 a4(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
1463 a5(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id_renewed);
1464 a6(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id_renewed_to);
1465 a7(indx) := rosetta_g_miss_num_map(t(ddindx).lse_id);
1466 a8(indx) := t(ddindx).line_number;
1467 a9(indx) := t(ddindx).sts_code;
1468 a10(indx) := rosetta_g_miss_num_map(t(ddindx).display_sequence);
1469 a11(indx) := t(ddindx).trn_code;
1470 a12(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
1471 a13(indx) := t(ddindx).comments;
1472 a14(indx) := t(ddindx).item_description;
1473 a15(indx) := t(ddindx).oke_boe_description;
1474 a16(indx) := t(ddindx).cognomen;
1475 a17(indx) := t(ddindx).hidden_ind;
1476 a18(indx) := rosetta_g_miss_num_map(t(ddindx).price_unit);
1477 a19(indx) := rosetta_g_miss_num_map(t(ddindx).price_unit_percent);
1478 a20(indx) := rosetta_g_miss_num_map(t(ddindx).price_negotiated);
1479 a21(indx) := rosetta_g_miss_num_map(t(ddindx).price_negotiated_renewed);
1480 a22(indx) := t(ddindx).price_level_ind;
1481 a23(indx) := t(ddindx).invoice_line_level_ind;
1482 a24(indx) := t(ddindx).dpas_rating;
1483 a25(indx) := t(ddindx).block23text;
1484 a26(indx) := t(ddindx).exception_yn;
1485 a27(indx) := t(ddindx).template_used;
1486 a28(indx) := t(ddindx).date_terminated;
1487 a29(indx) := t(ddindx).name;
1488 a30(indx) := t(ddindx).start_date;
1489 a31(indx) := t(ddindx).end_date;
1490 a32(indx) := t(ddindx).date_renewed;
1491 a33(indx) := t(ddindx).upg_orig_system_ref;
1492 a34(indx) := rosetta_g_miss_num_map(t(ddindx).upg_orig_system_ref_id);
1493 a35(indx) := t(ddindx).orig_system_source_code;
1494 a36(indx) := rosetta_g_miss_num_map(t(ddindx).orig_system_id1);
1495 a37(indx) := t(ddindx).orig_system_reference1;
1496 a38(indx) := t(ddindx).attribute_category;
1497 a39(indx) := t(ddindx).attribute1;
1498 a40(indx) := t(ddindx).attribute2;
1499 a41(indx) := t(ddindx).attribute3;
1500 a42(indx) := t(ddindx).attribute4;
1501 a43(indx) := t(ddindx).attribute5;
1502 a44(indx) := t(ddindx).attribute6;
1503 a45(indx) := t(ddindx).attribute7;
1504 a46(indx) := t(ddindx).attribute8;
1505 a47(indx) := t(ddindx).attribute9;
1506 a48(indx) := t(ddindx).attribute10;
1507 a49(indx) := t(ddindx).attribute11;
1508 a50(indx) := t(ddindx).attribute12;
1509 a51(indx) := t(ddindx).attribute13;
1510 a52(indx) := t(ddindx).attribute14;
1511 a53(indx) := t(ddindx).attribute15;
1512 a54(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
1513 a55(indx) := t(ddindx).creation_date;
1514 a56(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
1515 a57(indx) := t(ddindx).last_update_date;
1516 a58(indx) := t(ddindx).price_type;
1517 a59(indx) := t(ddindx).currency_code;
1518 a60(indx) := t(ddindx).currency_code_renewed;
1519 a61(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
1520 a62(indx) := t(ddindx).old_sts_code;
1521 a63(indx) := t(ddindx).new_sts_code;
1522 a64(indx) := t(ddindx).old_ste_code;
1523 a65(indx) := t(ddindx).new_ste_code;
1524 a66(indx) := t(ddindx).call_action_asmblr;
1525 a67(indx) := rosetta_g_miss_num_map(t(ddindx).request_id);
1526 a68(indx) := rosetta_g_miss_num_map(t(ddindx).program_application_id);
1527 a69(indx) := rosetta_g_miss_num_map(t(ddindx).program_id);
1528 a70(indx) := t(ddindx).program_update_date;
1529 a71(indx) := rosetta_g_miss_num_map(t(ddindx).price_list_id);
1530 a72(indx) := t(ddindx).pricing_date;
1531 a73(indx) := rosetta_g_miss_num_map(t(ddindx).price_list_line_id);
1532 a74(indx) := rosetta_g_miss_num_map(t(ddindx).line_list_price);
1533 a75(indx) := t(ddindx).item_to_price_yn;
1534 a76(indx) := t(ddindx).price_basis_yn;
1535 a77(indx) := rosetta_g_miss_num_map(t(ddindx).config_header_id);
1536 a78(indx) := rosetta_g_miss_num_map(t(ddindx).config_revision_number);
1537 a79(indx) := t(ddindx).config_complete_yn;
1538 a80(indx) := t(ddindx).config_valid_yn;
1539 a81(indx) := rosetta_g_miss_num_map(t(ddindx).config_top_model_line_id);
1540 a82(indx) := t(ddindx).config_item_type;
1541 a83(indx) := rosetta_g_miss_num_map(t(ddindx).config_item_id);
1542 a84(indx) := rosetta_g_miss_num_map(t(ddindx).cust_acct_id);
1543 a85(indx) := rosetta_g_miss_num_map(t(ddindx).bill_to_site_use_id);
1544 a86(indx) := rosetta_g_miss_num_map(t(ddindx).inv_rule_id);
1545 a87(indx) := t(ddindx).line_renewal_type_code;
1546 a88(indx) := rosetta_g_miss_num_map(t(ddindx).ship_to_site_use_id);
1547 a89(indx) := rosetta_g_miss_num_map(t(ddindx).payment_term_id);
1548 indx := indx+1;
1549 if t.last =ddindx
1550 then exit;
1551 end if;
1552 ddindx := t.next(ddindx);
1553 end loop;
1554 end if;
1555 end if;
1556 end rosetta_table_copy_out_p5;
1557
1558 procedure rosetta_table_copy_in_p7(t out nocopy okl_okc_migration_pvt.cimv_tbl_type, a0 JTF_NUMBER_TABLE
1559 , a1 JTF_NUMBER_TABLE
1560 , a2 JTF_NUMBER_TABLE
1561 , a3 JTF_NUMBER_TABLE
1562 , a4 JTF_NUMBER_TABLE
1563 , a5 JTF_NUMBER_TABLE
1564 , a6 JTF_VARCHAR2_TABLE_100
1565 , a7 JTF_VARCHAR2_TABLE_200
1566 , a8 JTF_VARCHAR2_TABLE_100
1567 , a9 JTF_VARCHAR2_TABLE_100
1568 , a10 JTF_VARCHAR2_TABLE_100
1569 , a11 JTF_NUMBER_TABLE
1570 , a12 JTF_VARCHAR2_TABLE_100
1571 , a13 JTF_NUMBER_TABLE
1572 , a14 JTF_VARCHAR2_TABLE_100
1573 , a15 JTF_NUMBER_TABLE
1574 , a16 JTF_DATE_TABLE
1575 , a17 JTF_NUMBER_TABLE
1576 , a18 JTF_DATE_TABLE
1577 , a19 JTF_NUMBER_TABLE
1578 ) as
1579 ddindx binary_integer; indx binary_integer;
1580 begin
1581 if a0 is not null and a0.count > 0 then
1582 if a0.count > 0 then
1583 indx := a0.first;
1584 ddindx := 1;
1585 while true loop
1586 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
1587 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
1588 t(ddindx).cle_id := rosetta_g_miss_num_map(a2(indx));
1589 t(ddindx).chr_id := rosetta_g_miss_num_map(a3(indx));
1590 t(ddindx).cle_id_for := rosetta_g_miss_num_map(a4(indx));
1591 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a5(indx));
1592 t(ddindx).object1_id1 := a6(indx);
1593 t(ddindx).object1_id2 := a7(indx);
1594 t(ddindx).jtot_object1_code := a8(indx);
1595 t(ddindx).uom_code := a9(indx);
1596 t(ddindx).exception_yn := a10(indx);
1597 t(ddindx).number_of_items := rosetta_g_miss_num_map(a11(indx));
1598 t(ddindx).upg_orig_system_ref := a12(indx);
1599 t(ddindx).upg_orig_system_ref_id := rosetta_g_miss_num_map(a13(indx));
1600 t(ddindx).priced_item_yn := a14(indx);
1601 t(ddindx).created_by := rosetta_g_miss_num_map(a15(indx));
1602 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a16(indx));
1603 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a17(indx));
1604 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a18(indx));
1605 t(ddindx).last_update_login := rosetta_g_miss_num_map(a19(indx));
1606 ddindx := ddindx+1;
1607 if a0.last =indx
1608 then exit;
1609 end if;
1610 indx := a0.next(indx);
1611 end loop;
1612 end if;
1613 end if;
1614 end rosetta_table_copy_in_p7;
1615 procedure rosetta_table_copy_out_p7(t okl_okc_migration_pvt.cimv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1616 , a1 out nocopy JTF_NUMBER_TABLE
1617 , a2 out nocopy JTF_NUMBER_TABLE
1618 , a3 out nocopy JTF_NUMBER_TABLE
1619 , a4 out nocopy JTF_NUMBER_TABLE
1620 , a5 out nocopy JTF_NUMBER_TABLE
1621 , a6 out nocopy JTF_VARCHAR2_TABLE_100
1622 , a7 out nocopy JTF_VARCHAR2_TABLE_200
1623 , a8 out nocopy JTF_VARCHAR2_TABLE_100
1624 , a9 out nocopy JTF_VARCHAR2_TABLE_100
1625 , a10 out nocopy JTF_VARCHAR2_TABLE_100
1626 , a11 out nocopy JTF_NUMBER_TABLE
1627 , a12 out nocopy JTF_VARCHAR2_TABLE_100
1628 , a13 out nocopy JTF_NUMBER_TABLE
1629 , a14 out nocopy JTF_VARCHAR2_TABLE_100
1630 , a15 out nocopy JTF_NUMBER_TABLE
1631 , a16 out nocopy JTF_DATE_TABLE
1632 , a17 out nocopy JTF_NUMBER_TABLE
1633 , a18 out nocopy JTF_DATE_TABLE
1634 , a19 out nocopy JTF_NUMBER_TABLE
1635 ) as
1636 ddindx binary_integer; indx binary_integer;
1637 begin
1638 if t is null or t.count = 0 then
1639 a0 := JTF_NUMBER_TABLE();
1640 a1 := JTF_NUMBER_TABLE();
1641 a2 := JTF_NUMBER_TABLE();
1642 a3 := JTF_NUMBER_TABLE();
1643 a4 := JTF_NUMBER_TABLE();
1644 a5 := JTF_NUMBER_TABLE();
1645 a6 := JTF_VARCHAR2_TABLE_100();
1646 a7 := JTF_VARCHAR2_TABLE_200();
1647 a8 := JTF_VARCHAR2_TABLE_100();
1648 a9 := JTF_VARCHAR2_TABLE_100();
1649 a10 := JTF_VARCHAR2_TABLE_100();
1650 a11 := JTF_NUMBER_TABLE();
1651 a12 := JTF_VARCHAR2_TABLE_100();
1652 a13 := JTF_NUMBER_TABLE();
1653 a14 := JTF_VARCHAR2_TABLE_100();
1654 a15 := JTF_NUMBER_TABLE();
1655 a16 := JTF_DATE_TABLE();
1656 a17 := JTF_NUMBER_TABLE();
1657 a18 := JTF_DATE_TABLE();
1658 a19 := JTF_NUMBER_TABLE();
1659 else
1660 a0 := JTF_NUMBER_TABLE();
1661 a1 := JTF_NUMBER_TABLE();
1662 a2 := JTF_NUMBER_TABLE();
1663 a3 := JTF_NUMBER_TABLE();
1664 a4 := JTF_NUMBER_TABLE();
1665 a5 := JTF_NUMBER_TABLE();
1666 a6 := JTF_VARCHAR2_TABLE_100();
1667 a7 := JTF_VARCHAR2_TABLE_200();
1668 a8 := JTF_VARCHAR2_TABLE_100();
1669 a9 := JTF_VARCHAR2_TABLE_100();
1670 a10 := JTF_VARCHAR2_TABLE_100();
1671 a11 := JTF_NUMBER_TABLE();
1672 a12 := JTF_VARCHAR2_TABLE_100();
1673 a13 := JTF_NUMBER_TABLE();
1674 a14 := JTF_VARCHAR2_TABLE_100();
1675 a15 := JTF_NUMBER_TABLE();
1676 a16 := JTF_DATE_TABLE();
1677 a17 := JTF_NUMBER_TABLE();
1678 a18 := JTF_DATE_TABLE();
1679 a19 := JTF_NUMBER_TABLE();
1680 if t.count > 0 then
1681 a0.extend(t.count);
1682 a1.extend(t.count);
1683 a2.extend(t.count);
1684 a3.extend(t.count);
1685 a4.extend(t.count);
1686 a5.extend(t.count);
1687 a6.extend(t.count);
1688 a7.extend(t.count);
1689 a8.extend(t.count);
1690 a9.extend(t.count);
1691 a10.extend(t.count);
1692 a11.extend(t.count);
1693 a12.extend(t.count);
1694 a13.extend(t.count);
1695 a14.extend(t.count);
1696 a15.extend(t.count);
1697 a16.extend(t.count);
1698 a17.extend(t.count);
1699 a18.extend(t.count);
1700 a19.extend(t.count);
1701 ddindx := t.first;
1702 indx := 1;
1703 while true loop
1704 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
1705 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
1706 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
1707 a3(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
1708 a4(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id_for);
1709 a5(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
1710 a6(indx) := t(ddindx).object1_id1;
1711 a7(indx) := t(ddindx).object1_id2;
1712 a8(indx) := t(ddindx).jtot_object1_code;
1713 a9(indx) := t(ddindx).uom_code;
1714 a10(indx) := t(ddindx).exception_yn;
1715 a11(indx) := rosetta_g_miss_num_map(t(ddindx).number_of_items);
1716 a12(indx) := t(ddindx).upg_orig_system_ref;
1717 a13(indx) := rosetta_g_miss_num_map(t(ddindx).upg_orig_system_ref_id);
1718 a14(indx) := t(ddindx).priced_item_yn;
1719 a15(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
1720 a16(indx) := t(ddindx).creation_date;
1721 a17(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
1722 a18(indx) := t(ddindx).last_update_date;
1723 a19(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
1724 indx := indx+1;
1725 if t.last =ddindx
1726 then exit;
1727 end if;
1728 ddindx := t.next(ddindx);
1729 end loop;
1730 end if;
1731 end if;
1732 end rosetta_table_copy_out_p7;
1733
1734 procedure rosetta_table_copy_in_p9(t out nocopy okl_okc_migration_pvt.cplv_tbl_type, a0 JTF_NUMBER_TABLE
1735 , a1 JTF_NUMBER_TABLE
1736 , a2 JTF_VARCHAR2_TABLE_100
1737 , a3 JTF_NUMBER_TABLE
1738 , a4 JTF_NUMBER_TABLE
1739 , a5 JTF_NUMBER_TABLE
1740 , a6 JTF_VARCHAR2_TABLE_100
1741 , a7 JTF_NUMBER_TABLE
1742 , a8 JTF_VARCHAR2_TABLE_100
1743 , a9 JTF_VARCHAR2_TABLE_200
1744 , a10 JTF_VARCHAR2_TABLE_100
1745 , a11 JTF_VARCHAR2_TABLE_300
1746 , a12 JTF_VARCHAR2_TABLE_100
1747 , a13 JTF_VARCHAR2_TABLE_100
1748 , a14 JTF_VARCHAR2_TABLE_100
1749 , a15 JTF_VARCHAR2_TABLE_100
1750 , a16 JTF_VARCHAR2_TABLE_100
1751 , a17 JTF_VARCHAR2_TABLE_200
1752 , a18 JTF_VARCHAR2_TABLE_100
1753 , a19 JTF_VARCHAR2_TABLE_500
1754 , a20 JTF_VARCHAR2_TABLE_500
1755 , a21 JTF_VARCHAR2_TABLE_500
1756 , a22 JTF_VARCHAR2_TABLE_500
1757 , a23 JTF_VARCHAR2_TABLE_500
1758 , a24 JTF_VARCHAR2_TABLE_500
1759 , a25 JTF_VARCHAR2_TABLE_500
1760 , a26 JTF_VARCHAR2_TABLE_500
1761 , a27 JTF_VARCHAR2_TABLE_500
1762 , a28 JTF_VARCHAR2_TABLE_500
1763 , a29 JTF_VARCHAR2_TABLE_500
1764 , a30 JTF_VARCHAR2_TABLE_500
1765 , a31 JTF_VARCHAR2_TABLE_500
1766 , a32 JTF_VARCHAR2_TABLE_500
1767 , a33 JTF_VARCHAR2_TABLE_500
1768 , a34 JTF_NUMBER_TABLE
1769 , a35 JTF_DATE_TABLE
1770 , a36 JTF_NUMBER_TABLE
1771 , a37 JTF_DATE_TABLE
1772 , a38 JTF_NUMBER_TABLE
1773 , a39 JTF_NUMBER_TABLE
1774 , a40 JTF_NUMBER_TABLE
1775 ) as
1776 ddindx binary_integer; indx binary_integer;
1777 begin
1778 if a0 is not null and a0.count > 0 then
1779 if a0.count > 0 then
1780 indx := a0.first;
1781 ddindx := 1;
1782 while true loop
1783 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
1784 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
1785 t(ddindx).sfwt_flag := a2(indx);
1786 t(ddindx).cpl_id := rosetta_g_miss_num_map(a3(indx));
1787 t(ddindx).chr_id := rosetta_g_miss_num_map(a4(indx));
1788 t(ddindx).cle_id := rosetta_g_miss_num_map(a5(indx));
1789 t(ddindx).rle_code := a6(indx);
1790 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a7(indx));
1791 t(ddindx).object1_id1 := a8(indx);
1792 t(ddindx).object1_id2 := a9(indx);
1793 t(ddindx).jtot_object1_code := a10(indx);
1794 t(ddindx).cognomen := a11(indx);
1795 t(ddindx).code := a12(indx);
1796 t(ddindx).facility := a13(indx);
1797 t(ddindx).minority_group_lookup_code := a14(indx);
1798 t(ddindx).small_business_flag := a15(indx);
1799 t(ddindx).women_owned_flag := a16(indx);
1800 t(ddindx).alias := a17(indx);
1801 t(ddindx).attribute_category := a18(indx);
1802 t(ddindx).attribute1 := a19(indx);
1803 t(ddindx).attribute2 := a20(indx);
1804 t(ddindx).attribute3 := a21(indx);
1805 t(ddindx).attribute4 := a22(indx);
1806 t(ddindx).attribute5 := a23(indx);
1807 t(ddindx).attribute6 := a24(indx);
1808 t(ddindx).attribute7 := a25(indx);
1809 t(ddindx).attribute8 := a26(indx);
1810 t(ddindx).attribute9 := a27(indx);
1811 t(ddindx).attribute10 := a28(indx);
1812 t(ddindx).attribute11 := a29(indx);
1813 t(ddindx).attribute12 := a30(indx);
1814 t(ddindx).attribute13 := a31(indx);
1815 t(ddindx).attribute14 := a32(indx);
1816 t(ddindx).attribute15 := a33(indx);
1817 t(ddindx).created_by := rosetta_g_miss_num_map(a34(indx));
1818 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a35(indx));
1819 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a36(indx));
1820 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a37(indx));
1821 t(ddindx).last_update_login := rosetta_g_miss_num_map(a38(indx));
1822 t(ddindx).cust_acct_id := rosetta_g_miss_num_map(a39(indx));
1823 t(ddindx).bill_to_site_use_id := rosetta_g_miss_num_map(a40(indx));
1824 ddindx := ddindx+1;
1825 if a0.last =indx
1826 then exit;
1827 end if;
1828 indx := a0.next(indx);
1829 end loop;
1830 end if;
1831 end if;
1832 end rosetta_table_copy_in_p9;
1833 procedure rosetta_table_copy_out_p9(t okl_okc_migration_pvt.cplv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
1834 , a1 out nocopy JTF_NUMBER_TABLE
1835 , a2 out nocopy JTF_VARCHAR2_TABLE_100
1836 , a3 out nocopy JTF_NUMBER_TABLE
1837 , a4 out nocopy JTF_NUMBER_TABLE
1838 , a5 out nocopy JTF_NUMBER_TABLE
1839 , a6 out nocopy JTF_VARCHAR2_TABLE_100
1840 , a7 out nocopy JTF_NUMBER_TABLE
1841 , a8 out nocopy JTF_VARCHAR2_TABLE_100
1842 , a9 out nocopy JTF_VARCHAR2_TABLE_200
1843 , a10 out nocopy JTF_VARCHAR2_TABLE_100
1844 , a11 out nocopy JTF_VARCHAR2_TABLE_300
1845 , a12 out nocopy JTF_VARCHAR2_TABLE_100
1846 , a13 out nocopy JTF_VARCHAR2_TABLE_100
1847 , a14 out nocopy JTF_VARCHAR2_TABLE_100
1848 , a15 out nocopy JTF_VARCHAR2_TABLE_100
1849 , a16 out nocopy JTF_VARCHAR2_TABLE_100
1850 , a17 out nocopy JTF_VARCHAR2_TABLE_200
1851 , a18 out nocopy JTF_VARCHAR2_TABLE_100
1852 , a19 out nocopy JTF_VARCHAR2_TABLE_500
1853 , a20 out nocopy JTF_VARCHAR2_TABLE_500
1854 , a21 out nocopy JTF_VARCHAR2_TABLE_500
1855 , a22 out nocopy JTF_VARCHAR2_TABLE_500
1856 , a23 out nocopy JTF_VARCHAR2_TABLE_500
1857 , a24 out nocopy JTF_VARCHAR2_TABLE_500
1858 , a25 out nocopy JTF_VARCHAR2_TABLE_500
1859 , a26 out nocopy JTF_VARCHAR2_TABLE_500
1860 , a27 out nocopy JTF_VARCHAR2_TABLE_500
1861 , a28 out nocopy JTF_VARCHAR2_TABLE_500
1862 , a29 out nocopy JTF_VARCHAR2_TABLE_500
1863 , a30 out nocopy JTF_VARCHAR2_TABLE_500
1864 , a31 out nocopy JTF_VARCHAR2_TABLE_500
1865 , a32 out nocopy JTF_VARCHAR2_TABLE_500
1866 , a33 out nocopy JTF_VARCHAR2_TABLE_500
1867 , a34 out nocopy JTF_NUMBER_TABLE
1868 , a35 out nocopy JTF_DATE_TABLE
1869 , a36 out nocopy JTF_NUMBER_TABLE
1870 , a37 out nocopy JTF_DATE_TABLE
1871 , a38 out nocopy JTF_NUMBER_TABLE
1872 , a39 out nocopy JTF_NUMBER_TABLE
1873 , a40 out nocopy JTF_NUMBER_TABLE
1874 ) as
1875 ddindx binary_integer; indx binary_integer;
1876 begin
1877 if t is null or t.count = 0 then
1878 a0 := JTF_NUMBER_TABLE();
1879 a1 := JTF_NUMBER_TABLE();
1880 a2 := JTF_VARCHAR2_TABLE_100();
1881 a3 := JTF_NUMBER_TABLE();
1882 a4 := JTF_NUMBER_TABLE();
1883 a5 := JTF_NUMBER_TABLE();
1884 a6 := JTF_VARCHAR2_TABLE_100();
1885 a7 := JTF_NUMBER_TABLE();
1886 a8 := JTF_VARCHAR2_TABLE_100();
1887 a9 := JTF_VARCHAR2_TABLE_200();
1888 a10 := JTF_VARCHAR2_TABLE_100();
1889 a11 := JTF_VARCHAR2_TABLE_300();
1890 a12 := JTF_VARCHAR2_TABLE_100();
1891 a13 := JTF_VARCHAR2_TABLE_100();
1892 a14 := JTF_VARCHAR2_TABLE_100();
1893 a15 := JTF_VARCHAR2_TABLE_100();
1894 a16 := JTF_VARCHAR2_TABLE_100();
1895 a17 := JTF_VARCHAR2_TABLE_200();
1896 a18 := JTF_VARCHAR2_TABLE_100();
1897 a19 := JTF_VARCHAR2_TABLE_500();
1898 a20 := JTF_VARCHAR2_TABLE_500();
1899 a21 := JTF_VARCHAR2_TABLE_500();
1900 a22 := JTF_VARCHAR2_TABLE_500();
1901 a23 := JTF_VARCHAR2_TABLE_500();
1902 a24 := JTF_VARCHAR2_TABLE_500();
1903 a25 := JTF_VARCHAR2_TABLE_500();
1904 a26 := JTF_VARCHAR2_TABLE_500();
1905 a27 := JTF_VARCHAR2_TABLE_500();
1906 a28 := JTF_VARCHAR2_TABLE_500();
1907 a29 := JTF_VARCHAR2_TABLE_500();
1908 a30 := JTF_VARCHAR2_TABLE_500();
1909 a31 := JTF_VARCHAR2_TABLE_500();
1910 a32 := JTF_VARCHAR2_TABLE_500();
1911 a33 := JTF_VARCHAR2_TABLE_500();
1912 a34 := JTF_NUMBER_TABLE();
1913 a35 := JTF_DATE_TABLE();
1914 a36 := JTF_NUMBER_TABLE();
1915 a37 := JTF_DATE_TABLE();
1916 a38 := JTF_NUMBER_TABLE();
1917 a39 := JTF_NUMBER_TABLE();
1918 a40 := JTF_NUMBER_TABLE();
1919 else
1920 a0 := JTF_NUMBER_TABLE();
1921 a1 := JTF_NUMBER_TABLE();
1922 a2 := JTF_VARCHAR2_TABLE_100();
1923 a3 := JTF_NUMBER_TABLE();
1924 a4 := JTF_NUMBER_TABLE();
1925 a5 := JTF_NUMBER_TABLE();
1926 a6 := JTF_VARCHAR2_TABLE_100();
1927 a7 := JTF_NUMBER_TABLE();
1928 a8 := JTF_VARCHAR2_TABLE_100();
1929 a9 := JTF_VARCHAR2_TABLE_200();
1930 a10 := JTF_VARCHAR2_TABLE_100();
1931 a11 := JTF_VARCHAR2_TABLE_300();
1932 a12 := JTF_VARCHAR2_TABLE_100();
1933 a13 := JTF_VARCHAR2_TABLE_100();
1934 a14 := JTF_VARCHAR2_TABLE_100();
1935 a15 := JTF_VARCHAR2_TABLE_100();
1936 a16 := JTF_VARCHAR2_TABLE_100();
1937 a17 := JTF_VARCHAR2_TABLE_200();
1938 a18 := JTF_VARCHAR2_TABLE_100();
1939 a19 := JTF_VARCHAR2_TABLE_500();
1940 a20 := JTF_VARCHAR2_TABLE_500();
1941 a21 := JTF_VARCHAR2_TABLE_500();
1942 a22 := JTF_VARCHAR2_TABLE_500();
1943 a23 := JTF_VARCHAR2_TABLE_500();
1944 a24 := JTF_VARCHAR2_TABLE_500();
1945 a25 := JTF_VARCHAR2_TABLE_500();
1946 a26 := JTF_VARCHAR2_TABLE_500();
1947 a27 := JTF_VARCHAR2_TABLE_500();
1948 a28 := JTF_VARCHAR2_TABLE_500();
1949 a29 := JTF_VARCHAR2_TABLE_500();
1950 a30 := JTF_VARCHAR2_TABLE_500();
1951 a31 := JTF_VARCHAR2_TABLE_500();
1952 a32 := JTF_VARCHAR2_TABLE_500();
1953 a33 := JTF_VARCHAR2_TABLE_500();
1954 a34 := JTF_NUMBER_TABLE();
1955 a35 := JTF_DATE_TABLE();
1956 a36 := JTF_NUMBER_TABLE();
1957 a37 := JTF_DATE_TABLE();
1958 a38 := JTF_NUMBER_TABLE();
1959 a39 := JTF_NUMBER_TABLE();
1960 a40 := JTF_NUMBER_TABLE();
1961 if t.count > 0 then
1962 a0.extend(t.count);
1963 a1.extend(t.count);
1964 a2.extend(t.count);
1965 a3.extend(t.count);
1966 a4.extend(t.count);
1967 a5.extend(t.count);
1968 a6.extend(t.count);
1969 a7.extend(t.count);
1970 a8.extend(t.count);
1971 a9.extend(t.count);
1972 a10.extend(t.count);
1973 a11.extend(t.count);
1974 a12.extend(t.count);
1975 a13.extend(t.count);
1976 a14.extend(t.count);
1977 a15.extend(t.count);
1978 a16.extend(t.count);
1979 a17.extend(t.count);
1980 a18.extend(t.count);
1981 a19.extend(t.count);
1982 a20.extend(t.count);
1983 a21.extend(t.count);
1984 a22.extend(t.count);
1985 a23.extend(t.count);
1986 a24.extend(t.count);
1987 a25.extend(t.count);
1988 a26.extend(t.count);
1989 a27.extend(t.count);
1990 a28.extend(t.count);
1991 a29.extend(t.count);
1992 a30.extend(t.count);
1993 a31.extend(t.count);
1994 a32.extend(t.count);
1995 a33.extend(t.count);
1996 a34.extend(t.count);
1997 a35.extend(t.count);
1998 a36.extend(t.count);
1999 a37.extend(t.count);
2000 a38.extend(t.count);
2001 a39.extend(t.count);
2002 a40.extend(t.count);
2003 ddindx := t.first;
2004 indx := 1;
2005 while true loop
2006 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
2007 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
2008 a2(indx) := t(ddindx).sfwt_flag;
2009 a3(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
2010 a4(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
2011 a5(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
2012 a6(indx) := t(ddindx).rle_code;
2013 a7(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
2014 a8(indx) := t(ddindx).object1_id1;
2015 a9(indx) := t(ddindx).object1_id2;
2016 a10(indx) := t(ddindx).jtot_object1_code;
2017 a11(indx) := t(ddindx).cognomen;
2018 a12(indx) := t(ddindx).code;
2019 a13(indx) := t(ddindx).facility;
2020 a14(indx) := t(ddindx).minority_group_lookup_code;
2021 a15(indx) := t(ddindx).small_business_flag;
2022 a16(indx) := t(ddindx).women_owned_flag;
2023 a17(indx) := t(ddindx).alias;
2024 a18(indx) := t(ddindx).attribute_category;
2025 a19(indx) := t(ddindx).attribute1;
2026 a20(indx) := t(ddindx).attribute2;
2027 a21(indx) := t(ddindx).attribute3;
2028 a22(indx) := t(ddindx).attribute4;
2029 a23(indx) := t(ddindx).attribute5;
2030 a24(indx) := t(ddindx).attribute6;
2031 a25(indx) := t(ddindx).attribute7;
2032 a26(indx) := t(ddindx).attribute8;
2033 a27(indx) := t(ddindx).attribute9;
2034 a28(indx) := t(ddindx).attribute10;
2035 a29(indx) := t(ddindx).attribute11;
2036 a30(indx) := t(ddindx).attribute12;
2037 a31(indx) := t(ddindx).attribute13;
2038 a32(indx) := t(ddindx).attribute14;
2039 a33(indx) := t(ddindx).attribute15;
2040 a34(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
2041 a35(indx) := t(ddindx).creation_date;
2042 a36(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
2043 a37(indx) := t(ddindx).last_update_date;
2044 a38(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
2045 a39(indx) := rosetta_g_miss_num_map(t(ddindx).cust_acct_id);
2046 a40(indx) := rosetta_g_miss_num_map(t(ddindx).bill_to_site_use_id);
2047 indx := indx+1;
2048 if t.last =ddindx
2049 then exit;
2050 end if;
2051 ddindx := t.next(ddindx);
2052 end loop;
2053 end if;
2054 end if;
2055 end rosetta_table_copy_out_p9;
2056
2057 procedure rosetta_table_copy_in_p11(t out nocopy okl_okc_migration_pvt.gvev_tbl_type, a0 JTF_NUMBER_TABLE
2058 , a1 JTF_NUMBER_TABLE
2059 , a2 JTF_NUMBER_TABLE
2060 , a3 JTF_NUMBER_TABLE
2061 , a4 JTF_NUMBER_TABLE
2062 , a5 JTF_NUMBER_TABLE
2063 , a6 JTF_NUMBER_TABLE
2064 , a7 JTF_NUMBER_TABLE
2065 , a8 JTF_VARCHAR2_TABLE_100
2066 , a9 JTF_NUMBER_TABLE
2067 , a10 JTF_DATE_TABLE
2068 , a11 JTF_NUMBER_TABLE
2069 , a12 JTF_DATE_TABLE
2070 , a13 JTF_NUMBER_TABLE
2071 ) as
2072 ddindx binary_integer; indx binary_integer;
2073 begin
2074 if a0 is not null and a0.count > 0 then
2075 if a0.count > 0 then
2076 indx := a0.first;
2077 ddindx := 1;
2078 while true loop
2079 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
2080 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a1(indx));
2081 t(ddindx).isa_agreement_id := rosetta_g_miss_num_map(a2(indx));
2082 t(ddindx).object_version_number := rosetta_g_miss_num_map(a3(indx));
2083 t(ddindx).chr_id := rosetta_g_miss_num_map(a4(indx));
2084 t(ddindx).cle_id := rosetta_g_miss_num_map(a5(indx));
2085 t(ddindx).chr_id_referred := rosetta_g_miss_num_map(a6(indx));
2086 t(ddindx).cle_id_referred := rosetta_g_miss_num_map(a7(indx));
2087 t(ddindx).copied_only_yn := a8(indx);
2088 t(ddindx).created_by := rosetta_g_miss_num_map(a9(indx));
2089 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
2090 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a11(indx));
2091 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a12(indx));
2092 t(ddindx).last_update_login := rosetta_g_miss_num_map(a13(indx));
2093 ddindx := ddindx+1;
2094 if a0.last =indx
2095 then exit;
2096 end if;
2097 indx := a0.next(indx);
2098 end loop;
2099 end if;
2100 end if;
2101 end rosetta_table_copy_in_p11;
2102 procedure rosetta_table_copy_out_p11(t okl_okc_migration_pvt.gvev_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
2103 , a1 out nocopy JTF_NUMBER_TABLE
2104 , a2 out nocopy JTF_NUMBER_TABLE
2105 , a3 out nocopy JTF_NUMBER_TABLE
2106 , a4 out nocopy JTF_NUMBER_TABLE
2107 , a5 out nocopy JTF_NUMBER_TABLE
2108 , a6 out nocopy JTF_NUMBER_TABLE
2109 , a7 out nocopy JTF_NUMBER_TABLE
2110 , a8 out nocopy JTF_VARCHAR2_TABLE_100
2111 , a9 out nocopy JTF_NUMBER_TABLE
2112 , a10 out nocopy JTF_DATE_TABLE
2113 , a11 out nocopy JTF_NUMBER_TABLE
2114 , a12 out nocopy JTF_DATE_TABLE
2115 , a13 out nocopy JTF_NUMBER_TABLE
2116 ) as
2117 ddindx binary_integer; indx binary_integer;
2118 begin
2119 if t is null or t.count = 0 then
2120 a0 := JTF_NUMBER_TABLE();
2121 a1 := JTF_NUMBER_TABLE();
2122 a2 := JTF_NUMBER_TABLE();
2123 a3 := JTF_NUMBER_TABLE();
2124 a4 := JTF_NUMBER_TABLE();
2125 a5 := JTF_NUMBER_TABLE();
2126 a6 := JTF_NUMBER_TABLE();
2127 a7 := JTF_NUMBER_TABLE();
2128 a8 := JTF_VARCHAR2_TABLE_100();
2129 a9 := JTF_NUMBER_TABLE();
2130 a10 := JTF_DATE_TABLE();
2131 a11 := JTF_NUMBER_TABLE();
2132 a12 := JTF_DATE_TABLE();
2133 a13 := JTF_NUMBER_TABLE();
2134 else
2135 a0 := JTF_NUMBER_TABLE();
2136 a1 := JTF_NUMBER_TABLE();
2137 a2 := JTF_NUMBER_TABLE();
2138 a3 := JTF_NUMBER_TABLE();
2139 a4 := JTF_NUMBER_TABLE();
2140 a5 := JTF_NUMBER_TABLE();
2141 a6 := JTF_NUMBER_TABLE();
2142 a7 := JTF_NUMBER_TABLE();
2143 a8 := JTF_VARCHAR2_TABLE_100();
2144 a9 := JTF_NUMBER_TABLE();
2145 a10 := JTF_DATE_TABLE();
2146 a11 := JTF_NUMBER_TABLE();
2147 a12 := JTF_DATE_TABLE();
2148 a13 := JTF_NUMBER_TABLE();
2149 if t.count > 0 then
2150 a0.extend(t.count);
2151 a1.extend(t.count);
2152 a2.extend(t.count);
2153 a3.extend(t.count);
2154 a4.extend(t.count);
2155 a5.extend(t.count);
2156 a6.extend(t.count);
2157 a7.extend(t.count);
2158 a8.extend(t.count);
2159 a9.extend(t.count);
2160 a10.extend(t.count);
2161 a11.extend(t.count);
2162 a12.extend(t.count);
2163 a13.extend(t.count);
2164 ddindx := t.first;
2165 indx := 1;
2166 while true loop
2167 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
2168 a1(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
2169 a2(indx) := rosetta_g_miss_num_map(t(ddindx).isa_agreement_id);
2170 a3(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
2171 a4(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
2172 a5(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
2173 a6(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id_referred);
2174 a7(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id_referred);
2175 a8(indx) := t(ddindx).copied_only_yn;
2176 a9(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
2177 a10(indx) := t(ddindx).creation_date;
2178 a11(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
2179 a12(indx) := t(ddindx).last_update_date;
2180 a13(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
2181 indx := indx+1;
2182 if t.last =ddindx
2183 then exit;
2184 end if;
2185 ddindx := t.next(ddindx);
2186 end loop;
2187 end if;
2188 end if;
2189 end rosetta_table_copy_out_p11;
2190
2191 procedure rosetta_table_copy_in_p13(t out nocopy okl_okc_migration_pvt.rgpv_tbl_type, a0 JTF_NUMBER_TABLE
2192 , a1 JTF_NUMBER_TABLE
2193 , a2 JTF_VARCHAR2_TABLE_100
2194 , a3 JTF_VARCHAR2_TABLE_100
2195 , a4 JTF_VARCHAR2_TABLE_100
2196 , a5 JTF_VARCHAR2_TABLE_100
2197 , a6 JTF_NUMBER_TABLE
2198 , a7 JTF_NUMBER_TABLE
2199 , a8 JTF_NUMBER_TABLE
2200 , a9 JTF_NUMBER_TABLE
2201 , a10 JTF_VARCHAR2_TABLE_2000
2202 , a11 JTF_VARCHAR2_TABLE_100
2203 , a12 JTF_VARCHAR2_TABLE_500
2204 , a13 JTF_VARCHAR2_TABLE_500
2205 , a14 JTF_VARCHAR2_TABLE_500
2206 , a15 JTF_VARCHAR2_TABLE_500
2207 , a16 JTF_VARCHAR2_TABLE_500
2208 , a17 JTF_VARCHAR2_TABLE_500
2209 , a18 JTF_VARCHAR2_TABLE_500
2210 , a19 JTF_VARCHAR2_TABLE_500
2211 , a20 JTF_VARCHAR2_TABLE_500
2212 , a21 JTF_VARCHAR2_TABLE_500
2213 , a22 JTF_VARCHAR2_TABLE_500
2214 , a23 JTF_VARCHAR2_TABLE_500
2215 , a24 JTF_VARCHAR2_TABLE_500
2216 , a25 JTF_VARCHAR2_TABLE_500
2217 , a26 JTF_VARCHAR2_TABLE_500
2218 , a27 JTF_NUMBER_TABLE
2219 , a28 JTF_DATE_TABLE
2220 , a29 JTF_NUMBER_TABLE
2221 , a30 JTF_DATE_TABLE
2222 , a31 JTF_NUMBER_TABLE
2223 ) as
2224 ddindx binary_integer; indx binary_integer;
2225 begin
2226 if a0 is not null and a0.count > 0 then
2227 if a0.count > 0 then
2228 indx := a0.first;
2229 ddindx := 1;
2230 while true loop
2231 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
2232 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
2233 t(ddindx).sfwt_flag := a2(indx);
2234 t(ddindx).rgd_code := a3(indx);
2235 t(ddindx).sat_code := a4(indx);
2236 t(ddindx).rgp_type := a5(indx);
2237 t(ddindx).cle_id := rosetta_g_miss_num_map(a6(indx));
2238 t(ddindx).chr_id := rosetta_g_miss_num_map(a7(indx));
2239 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a8(indx));
2240 t(ddindx).parent_rgp_id := rosetta_g_miss_num_map(a9(indx));
2241 t(ddindx).comments := a10(indx);
2242 t(ddindx).attribute_category := a11(indx);
2243 t(ddindx).attribute1 := a12(indx);
2244 t(ddindx).attribute2 := a13(indx);
2245 t(ddindx).attribute3 := a14(indx);
2246 t(ddindx).attribute4 := a15(indx);
2247 t(ddindx).attribute5 := a16(indx);
2248 t(ddindx).attribute6 := a17(indx);
2249 t(ddindx).attribute7 := a18(indx);
2250 t(ddindx).attribute8 := a19(indx);
2251 t(ddindx).attribute9 := a20(indx);
2252 t(ddindx).attribute10 := a21(indx);
2253 t(ddindx).attribute11 := a22(indx);
2254 t(ddindx).attribute12 := a23(indx);
2255 t(ddindx).attribute13 := a24(indx);
2256 t(ddindx).attribute14 := a25(indx);
2257 t(ddindx).attribute15 := a26(indx);
2258 t(ddindx).created_by := rosetta_g_miss_num_map(a27(indx));
2259 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a28(indx));
2260 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a29(indx));
2261 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a30(indx));
2262 t(ddindx).last_update_login := rosetta_g_miss_num_map(a31(indx));
2263 ddindx := ddindx+1;
2264 if a0.last =indx
2265 then exit;
2266 end if;
2267 indx := a0.next(indx);
2268 end loop;
2269 end if;
2270 end if;
2271 end rosetta_table_copy_in_p13;
2272 procedure rosetta_table_copy_out_p13(t okl_okc_migration_pvt.rgpv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
2273 , a1 out nocopy JTF_NUMBER_TABLE
2274 , a2 out nocopy JTF_VARCHAR2_TABLE_100
2275 , a3 out nocopy JTF_VARCHAR2_TABLE_100
2276 , a4 out nocopy JTF_VARCHAR2_TABLE_100
2277 , a5 out nocopy JTF_VARCHAR2_TABLE_100
2278 , a6 out nocopy JTF_NUMBER_TABLE
2279 , a7 out nocopy JTF_NUMBER_TABLE
2280 , a8 out nocopy JTF_NUMBER_TABLE
2281 , a9 out nocopy JTF_NUMBER_TABLE
2282 , a10 out nocopy JTF_VARCHAR2_TABLE_2000
2283 , a11 out nocopy JTF_VARCHAR2_TABLE_100
2284 , a12 out nocopy JTF_VARCHAR2_TABLE_500
2285 , a13 out nocopy JTF_VARCHAR2_TABLE_500
2286 , a14 out nocopy JTF_VARCHAR2_TABLE_500
2287 , a15 out nocopy JTF_VARCHAR2_TABLE_500
2288 , a16 out nocopy JTF_VARCHAR2_TABLE_500
2289 , a17 out nocopy JTF_VARCHAR2_TABLE_500
2290 , a18 out nocopy JTF_VARCHAR2_TABLE_500
2291 , a19 out nocopy JTF_VARCHAR2_TABLE_500
2292 , a20 out nocopy JTF_VARCHAR2_TABLE_500
2293 , a21 out nocopy JTF_VARCHAR2_TABLE_500
2294 , a22 out nocopy JTF_VARCHAR2_TABLE_500
2295 , a23 out nocopy JTF_VARCHAR2_TABLE_500
2296 , a24 out nocopy JTF_VARCHAR2_TABLE_500
2297 , a25 out nocopy JTF_VARCHAR2_TABLE_500
2298 , a26 out nocopy JTF_VARCHAR2_TABLE_500
2299 , a27 out nocopy JTF_NUMBER_TABLE
2300 , a28 out nocopy JTF_DATE_TABLE
2301 , a29 out nocopy JTF_NUMBER_TABLE
2302 , a30 out nocopy JTF_DATE_TABLE
2303 , a31 out nocopy JTF_NUMBER_TABLE
2304 ) as
2305 ddindx binary_integer; indx binary_integer;
2306 begin
2307 if t is null or t.count = 0 then
2308 a0 := JTF_NUMBER_TABLE();
2309 a1 := JTF_NUMBER_TABLE();
2310 a2 := JTF_VARCHAR2_TABLE_100();
2311 a3 := JTF_VARCHAR2_TABLE_100();
2312 a4 := JTF_VARCHAR2_TABLE_100();
2313 a5 := JTF_VARCHAR2_TABLE_100();
2314 a6 := JTF_NUMBER_TABLE();
2315 a7 := JTF_NUMBER_TABLE();
2316 a8 := JTF_NUMBER_TABLE();
2317 a9 := JTF_NUMBER_TABLE();
2318 a10 := JTF_VARCHAR2_TABLE_2000();
2319 a11 := JTF_VARCHAR2_TABLE_100();
2320 a12 := JTF_VARCHAR2_TABLE_500();
2321 a13 := JTF_VARCHAR2_TABLE_500();
2322 a14 := JTF_VARCHAR2_TABLE_500();
2323 a15 := JTF_VARCHAR2_TABLE_500();
2324 a16 := JTF_VARCHAR2_TABLE_500();
2325 a17 := JTF_VARCHAR2_TABLE_500();
2326 a18 := JTF_VARCHAR2_TABLE_500();
2327 a19 := JTF_VARCHAR2_TABLE_500();
2328 a20 := JTF_VARCHAR2_TABLE_500();
2329 a21 := JTF_VARCHAR2_TABLE_500();
2330 a22 := JTF_VARCHAR2_TABLE_500();
2331 a23 := JTF_VARCHAR2_TABLE_500();
2332 a24 := JTF_VARCHAR2_TABLE_500();
2333 a25 := JTF_VARCHAR2_TABLE_500();
2334 a26 := JTF_VARCHAR2_TABLE_500();
2335 a27 := JTF_NUMBER_TABLE();
2336 a28 := JTF_DATE_TABLE();
2337 a29 := JTF_NUMBER_TABLE();
2338 a30 := JTF_DATE_TABLE();
2339 a31 := JTF_NUMBER_TABLE();
2340 else
2341 a0 := JTF_NUMBER_TABLE();
2342 a1 := JTF_NUMBER_TABLE();
2343 a2 := JTF_VARCHAR2_TABLE_100();
2344 a3 := JTF_VARCHAR2_TABLE_100();
2345 a4 := JTF_VARCHAR2_TABLE_100();
2346 a5 := JTF_VARCHAR2_TABLE_100();
2347 a6 := JTF_NUMBER_TABLE();
2348 a7 := JTF_NUMBER_TABLE();
2349 a8 := JTF_NUMBER_TABLE();
2350 a9 := JTF_NUMBER_TABLE();
2351 a10 := JTF_VARCHAR2_TABLE_2000();
2352 a11 := JTF_VARCHAR2_TABLE_100();
2353 a12 := JTF_VARCHAR2_TABLE_500();
2354 a13 := JTF_VARCHAR2_TABLE_500();
2355 a14 := JTF_VARCHAR2_TABLE_500();
2356 a15 := JTF_VARCHAR2_TABLE_500();
2357 a16 := JTF_VARCHAR2_TABLE_500();
2358 a17 := JTF_VARCHAR2_TABLE_500();
2359 a18 := JTF_VARCHAR2_TABLE_500();
2360 a19 := JTF_VARCHAR2_TABLE_500();
2361 a20 := JTF_VARCHAR2_TABLE_500();
2362 a21 := JTF_VARCHAR2_TABLE_500();
2363 a22 := JTF_VARCHAR2_TABLE_500();
2364 a23 := JTF_VARCHAR2_TABLE_500();
2365 a24 := JTF_VARCHAR2_TABLE_500();
2366 a25 := JTF_VARCHAR2_TABLE_500();
2367 a26 := JTF_VARCHAR2_TABLE_500();
2368 a27 := JTF_NUMBER_TABLE();
2369 a28 := JTF_DATE_TABLE();
2370 a29 := JTF_NUMBER_TABLE();
2371 a30 := JTF_DATE_TABLE();
2372 a31 := JTF_NUMBER_TABLE();
2373 if t.count > 0 then
2374 a0.extend(t.count);
2375 a1.extend(t.count);
2376 a2.extend(t.count);
2377 a3.extend(t.count);
2378 a4.extend(t.count);
2379 a5.extend(t.count);
2380 a6.extend(t.count);
2381 a7.extend(t.count);
2382 a8.extend(t.count);
2383 a9.extend(t.count);
2384 a10.extend(t.count);
2385 a11.extend(t.count);
2386 a12.extend(t.count);
2387 a13.extend(t.count);
2388 a14.extend(t.count);
2389 a15.extend(t.count);
2390 a16.extend(t.count);
2391 a17.extend(t.count);
2392 a18.extend(t.count);
2393 a19.extend(t.count);
2394 a20.extend(t.count);
2395 a21.extend(t.count);
2396 a22.extend(t.count);
2397 a23.extend(t.count);
2398 a24.extend(t.count);
2399 a25.extend(t.count);
2400 a26.extend(t.count);
2401 a27.extend(t.count);
2402 a28.extend(t.count);
2403 a29.extend(t.count);
2404 a30.extend(t.count);
2405 a31.extend(t.count);
2406 ddindx := t.first;
2407 indx := 1;
2408 while true loop
2409 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
2410 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
2411 a2(indx) := t(ddindx).sfwt_flag;
2412 a3(indx) := t(ddindx).rgd_code;
2413 a4(indx) := t(ddindx).sat_code;
2414 a5(indx) := t(ddindx).rgp_type;
2415 a6(indx) := rosetta_g_miss_num_map(t(ddindx).cle_id);
2416 a7(indx) := rosetta_g_miss_num_map(t(ddindx).chr_id);
2417 a8(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
2418 a9(indx) := rosetta_g_miss_num_map(t(ddindx).parent_rgp_id);
2419 a10(indx) := t(ddindx).comments;
2420 a11(indx) := t(ddindx).attribute_category;
2421 a12(indx) := t(ddindx).attribute1;
2422 a13(indx) := t(ddindx).attribute2;
2423 a14(indx) := t(ddindx).attribute3;
2424 a15(indx) := t(ddindx).attribute4;
2425 a16(indx) := t(ddindx).attribute5;
2426 a17(indx) := t(ddindx).attribute6;
2427 a18(indx) := t(ddindx).attribute7;
2428 a19(indx) := t(ddindx).attribute8;
2429 a20(indx) := t(ddindx).attribute9;
2430 a21(indx) := t(ddindx).attribute10;
2431 a22(indx) := t(ddindx).attribute11;
2432 a23(indx) := t(ddindx).attribute12;
2433 a24(indx) := t(ddindx).attribute13;
2434 a25(indx) := t(ddindx).attribute14;
2435 a26(indx) := t(ddindx).attribute15;
2436 a27(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
2437 a28(indx) := t(ddindx).creation_date;
2438 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
2439 a30(indx) := t(ddindx).last_update_date;
2440 a31(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
2441 indx := indx+1;
2442 if t.last =ddindx
2443 then exit;
2444 end if;
2445 ddindx := t.next(ddindx);
2446 end loop;
2447 end if;
2448 end if;
2449 end rosetta_table_copy_out_p13;
2450
2451 procedure rosetta_table_copy_in_p15(t out nocopy okl_okc_migration_pvt.rmpv_tbl_type, a0 JTF_NUMBER_TABLE
2452 , a1 JTF_NUMBER_TABLE
2453 , a2 JTF_NUMBER_TABLE
2454 , a3 JTF_NUMBER_TABLE
2455 , a4 JTF_NUMBER_TABLE
2456 , a5 JTF_NUMBER_TABLE
2457 , a6 JTF_NUMBER_TABLE
2458 , a7 JTF_DATE_TABLE
2459 , a8 JTF_NUMBER_TABLE
2460 , a9 JTF_DATE_TABLE
2461 , a10 JTF_NUMBER_TABLE
2462 ) as
2463 ddindx binary_integer; indx binary_integer;
2464 begin
2465 if a0 is not null and a0.count > 0 then
2466 if a0.count > 0 then
2467 indx := a0.first;
2468 ddindx := 1;
2469 while true loop
2470 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
2471 t(ddindx).rgp_id := rosetta_g_miss_num_map(a1(indx));
2472 t(ddindx).rrd_id := rosetta_g_miss_num_map(a2(indx));
2473 t(ddindx).cpl_id := rosetta_g_miss_num_map(a3(indx));
2474 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a4(indx));
2475 t(ddindx).object_version_number := rosetta_g_miss_num_map(a5(indx));
2476 t(ddindx).created_by := rosetta_g_miss_num_map(a6(indx));
2477 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
2478 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a8(indx));
2479 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a9(indx));
2480 t(ddindx).last_update_login := rosetta_g_miss_num_map(a10(indx));
2481 ddindx := ddindx+1;
2482 if a0.last =indx
2483 then exit;
2484 end if;
2485 indx := a0.next(indx);
2486 end loop;
2487 end if;
2488 end if;
2489 end rosetta_table_copy_in_p15;
2490 procedure rosetta_table_copy_out_p15(t okl_okc_migration_pvt.rmpv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
2491 , a1 out nocopy JTF_NUMBER_TABLE
2492 , a2 out nocopy JTF_NUMBER_TABLE
2493 , a3 out nocopy JTF_NUMBER_TABLE
2494 , a4 out nocopy JTF_NUMBER_TABLE
2495 , a5 out nocopy JTF_NUMBER_TABLE
2496 , a6 out nocopy JTF_NUMBER_TABLE
2497 , a7 out nocopy JTF_DATE_TABLE
2498 , a8 out nocopy JTF_NUMBER_TABLE
2499 , a9 out nocopy JTF_DATE_TABLE
2500 , a10 out nocopy JTF_NUMBER_TABLE
2501 ) as
2502 ddindx binary_integer; indx binary_integer;
2503 begin
2504 if t is null or t.count = 0 then
2505 a0 := JTF_NUMBER_TABLE();
2506 a1 := JTF_NUMBER_TABLE();
2507 a2 := JTF_NUMBER_TABLE();
2508 a3 := JTF_NUMBER_TABLE();
2509 a4 := JTF_NUMBER_TABLE();
2510 a5 := JTF_NUMBER_TABLE();
2511 a6 := JTF_NUMBER_TABLE();
2512 a7 := JTF_DATE_TABLE();
2513 a8 := JTF_NUMBER_TABLE();
2514 a9 := JTF_DATE_TABLE();
2515 a10 := JTF_NUMBER_TABLE();
2516 else
2517 a0 := JTF_NUMBER_TABLE();
2518 a1 := JTF_NUMBER_TABLE();
2519 a2 := JTF_NUMBER_TABLE();
2520 a3 := JTF_NUMBER_TABLE();
2521 a4 := JTF_NUMBER_TABLE();
2522 a5 := JTF_NUMBER_TABLE();
2523 a6 := JTF_NUMBER_TABLE();
2524 a7 := JTF_DATE_TABLE();
2525 a8 := JTF_NUMBER_TABLE();
2526 a9 := JTF_DATE_TABLE();
2527 a10 := JTF_NUMBER_TABLE();
2528 if t.count > 0 then
2529 a0.extend(t.count);
2530 a1.extend(t.count);
2531 a2.extend(t.count);
2532 a3.extend(t.count);
2533 a4.extend(t.count);
2534 a5.extend(t.count);
2535 a6.extend(t.count);
2536 a7.extend(t.count);
2537 a8.extend(t.count);
2538 a9.extend(t.count);
2539 a10.extend(t.count);
2540 ddindx := t.first;
2541 indx := 1;
2542 while true loop
2543 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
2544 a1(indx) := rosetta_g_miss_num_map(t(ddindx).rgp_id);
2545 a2(indx) := rosetta_g_miss_num_map(t(ddindx).rrd_id);
2546 a3(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
2547 a4(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
2548 a5(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
2549 a6(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
2550 a7(indx) := t(ddindx).creation_date;
2551 a8(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
2552 a9(indx) := t(ddindx).last_update_date;
2553 a10(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
2554 indx := indx+1;
2555 if t.last =ddindx
2556 then exit;
2557 end if;
2558 ddindx := t.next(ddindx);
2559 end loop;
2560 end if;
2561 end if;
2562 end rosetta_table_copy_out_p15;
2563
2564 procedure rosetta_table_copy_in_p17(t out nocopy okl_okc_migration_pvt.ctcv_tbl_type, a0 JTF_NUMBER_TABLE
2565 , a1 JTF_NUMBER_TABLE
2566 , a2 JTF_NUMBER_TABLE
2567 , a3 JTF_VARCHAR2_TABLE_100
2568 , a4 JTF_NUMBER_TABLE
2569 , a5 JTF_NUMBER_TABLE
2570 , a6 JTF_VARCHAR2_TABLE_100
2571 , a7 JTF_VARCHAR2_TABLE_200
2572 , a8 JTF_VARCHAR2_TABLE_100
2573 , a9 JTF_VARCHAR2_TABLE_100
2574 , a10 JTF_VARCHAR2_TABLE_500
2575 , a11 JTF_VARCHAR2_TABLE_500
2576 , a12 JTF_VARCHAR2_TABLE_500
2577 , a13 JTF_VARCHAR2_TABLE_500
2578 , a14 JTF_VARCHAR2_TABLE_500
2579 , a15 JTF_VARCHAR2_TABLE_500
2580 , a16 JTF_VARCHAR2_TABLE_500
2581 , a17 JTF_VARCHAR2_TABLE_500
2582 , a18 JTF_VARCHAR2_TABLE_500
2583 , a19 JTF_VARCHAR2_TABLE_500
2584 , a20 JTF_VARCHAR2_TABLE_500
2585 , a21 JTF_VARCHAR2_TABLE_500
2586 , a22 JTF_VARCHAR2_TABLE_500
2587 , a23 JTF_VARCHAR2_TABLE_500
2588 , a24 JTF_VARCHAR2_TABLE_500
2589 , a25 JTF_NUMBER_TABLE
2590 , a26 JTF_DATE_TABLE
2591 , a27 JTF_NUMBER_TABLE
2592 , a28 JTF_DATE_TABLE
2593 , a29 JTF_NUMBER_TABLE
2594 , a30 JTF_DATE_TABLE
2595 , a31 JTF_DATE_TABLE
2596 ) as
2597 ddindx binary_integer; indx binary_integer;
2598 begin
2599 if a0 is not null and a0.count > 0 then
2600 if a0.count > 0 then
2601 indx := a0.first;
2602 ddindx := 1;
2603 while true loop
2604 t(ddindx).id := rosetta_g_miss_num_map(a0(indx));
2605 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
2606 t(ddindx).cpl_id := rosetta_g_miss_num_map(a2(indx));
2607 t(ddindx).cro_code := a3(indx);
2608 t(ddindx).dnz_chr_id := rosetta_g_miss_num_map(a4(indx));
2609 t(ddindx).contact_sequence := rosetta_g_miss_num_map(a5(indx));
2610 t(ddindx).object1_id1 := a6(indx);
2611 t(ddindx).object1_id2 := a7(indx);
2612 t(ddindx).jtot_object1_code := a8(indx);
2613 t(ddindx).attribute_category := a9(indx);
2614 t(ddindx).attribute1 := a10(indx);
2615 t(ddindx).attribute2 := a11(indx);
2616 t(ddindx).attribute3 := a12(indx);
2617 t(ddindx).attribute4 := a13(indx);
2618 t(ddindx).attribute5 := a14(indx);
2619 t(ddindx).attribute6 := a15(indx);
2620 t(ddindx).attribute7 := a16(indx);
2621 t(ddindx).attribute8 := a17(indx);
2622 t(ddindx).attribute9 := a18(indx);
2623 t(ddindx).attribute10 := a19(indx);
2624 t(ddindx).attribute11 := a20(indx);
2625 t(ddindx).attribute12 := a21(indx);
2626 t(ddindx).attribute13 := a22(indx);
2627 t(ddindx).attribute14 := a23(indx);
2628 t(ddindx).attribute15 := a24(indx);
2629 t(ddindx).created_by := rosetta_g_miss_num_map(a25(indx));
2630 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a26(indx));
2631 t(ddindx).last_updated_by := rosetta_g_miss_num_map(a27(indx));
2632 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a28(indx));
2633 t(ddindx).last_update_login := rosetta_g_miss_num_map(a29(indx));
2634 t(ddindx).start_date := rosetta_g_miss_date_in_map(a30(indx));
2635 t(ddindx).end_date := rosetta_g_miss_date_in_map(a31(indx));
2636 ddindx := ddindx+1;
2637 if a0.last =indx
2638 then exit;
2639 end if;
2640 indx := a0.next(indx);
2641 end loop;
2642 end if;
2643 end if;
2644 end rosetta_table_copy_in_p17;
2645 procedure rosetta_table_copy_out_p17(t okl_okc_migration_pvt.ctcv_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
2646 , a1 out nocopy JTF_NUMBER_TABLE
2647 , a2 out nocopy JTF_NUMBER_TABLE
2648 , a3 out nocopy JTF_VARCHAR2_TABLE_100
2649 , a4 out nocopy JTF_NUMBER_TABLE
2650 , a5 out nocopy JTF_NUMBER_TABLE
2651 , a6 out nocopy JTF_VARCHAR2_TABLE_100
2652 , a7 out nocopy JTF_VARCHAR2_TABLE_200
2653 , a8 out nocopy JTF_VARCHAR2_TABLE_100
2654 , a9 out nocopy JTF_VARCHAR2_TABLE_100
2655 , a10 out nocopy JTF_VARCHAR2_TABLE_500
2656 , a11 out nocopy JTF_VARCHAR2_TABLE_500
2657 , a12 out nocopy JTF_VARCHAR2_TABLE_500
2658 , a13 out nocopy JTF_VARCHAR2_TABLE_500
2659 , a14 out nocopy JTF_VARCHAR2_TABLE_500
2660 , a15 out nocopy JTF_VARCHAR2_TABLE_500
2661 , a16 out nocopy JTF_VARCHAR2_TABLE_500
2662 , a17 out nocopy JTF_VARCHAR2_TABLE_500
2663 , a18 out nocopy JTF_VARCHAR2_TABLE_500
2664 , a19 out nocopy JTF_VARCHAR2_TABLE_500
2665 , a20 out nocopy JTF_VARCHAR2_TABLE_500
2666 , a21 out nocopy JTF_VARCHAR2_TABLE_500
2667 , a22 out nocopy JTF_VARCHAR2_TABLE_500
2668 , a23 out nocopy JTF_VARCHAR2_TABLE_500
2669 , a24 out nocopy JTF_VARCHAR2_TABLE_500
2670 , a25 out nocopy JTF_NUMBER_TABLE
2671 , a26 out nocopy JTF_DATE_TABLE
2672 , a27 out nocopy JTF_NUMBER_TABLE
2673 , a28 out nocopy JTF_DATE_TABLE
2674 , a29 out nocopy JTF_NUMBER_TABLE
2675 , a30 out nocopy JTF_DATE_TABLE
2676 , a31 out nocopy JTF_DATE_TABLE
2677 ) as
2678 ddindx binary_integer; indx binary_integer;
2679 begin
2680 if t is null or t.count = 0 then
2681 a0 := JTF_NUMBER_TABLE();
2682 a1 := JTF_NUMBER_TABLE();
2683 a2 := JTF_NUMBER_TABLE();
2684 a3 := JTF_VARCHAR2_TABLE_100();
2685 a4 := JTF_NUMBER_TABLE();
2686 a5 := JTF_NUMBER_TABLE();
2687 a6 := JTF_VARCHAR2_TABLE_100();
2688 a7 := JTF_VARCHAR2_TABLE_200();
2689 a8 := JTF_VARCHAR2_TABLE_100();
2690 a9 := JTF_VARCHAR2_TABLE_100();
2691 a10 := JTF_VARCHAR2_TABLE_500();
2692 a11 := JTF_VARCHAR2_TABLE_500();
2693 a12 := JTF_VARCHAR2_TABLE_500();
2694 a13 := JTF_VARCHAR2_TABLE_500();
2695 a14 := JTF_VARCHAR2_TABLE_500();
2696 a15 := JTF_VARCHAR2_TABLE_500();
2697 a16 := JTF_VARCHAR2_TABLE_500();
2698 a17 := JTF_VARCHAR2_TABLE_500();
2699 a18 := JTF_VARCHAR2_TABLE_500();
2700 a19 := JTF_VARCHAR2_TABLE_500();
2701 a20 := JTF_VARCHAR2_TABLE_500();
2702 a21 := JTF_VARCHAR2_TABLE_500();
2703 a22 := JTF_VARCHAR2_TABLE_500();
2704 a23 := JTF_VARCHAR2_TABLE_500();
2705 a24 := JTF_VARCHAR2_TABLE_500();
2706 a25 := JTF_NUMBER_TABLE();
2707 a26 := JTF_DATE_TABLE();
2708 a27 := JTF_NUMBER_TABLE();
2709 a28 := JTF_DATE_TABLE();
2710 a29 := JTF_NUMBER_TABLE();
2711 a30 := JTF_DATE_TABLE();
2712 a31 := JTF_DATE_TABLE();
2713 else
2714 a0 := JTF_NUMBER_TABLE();
2715 a1 := JTF_NUMBER_TABLE();
2716 a2 := JTF_NUMBER_TABLE();
2717 a3 := JTF_VARCHAR2_TABLE_100();
2718 a4 := JTF_NUMBER_TABLE();
2719 a5 := JTF_NUMBER_TABLE();
2720 a6 := JTF_VARCHAR2_TABLE_100();
2721 a7 := JTF_VARCHAR2_TABLE_200();
2722 a8 := JTF_VARCHAR2_TABLE_100();
2723 a9 := JTF_VARCHAR2_TABLE_100();
2724 a10 := JTF_VARCHAR2_TABLE_500();
2725 a11 := JTF_VARCHAR2_TABLE_500();
2726 a12 := JTF_VARCHAR2_TABLE_500();
2727 a13 := JTF_VARCHAR2_TABLE_500();
2728 a14 := JTF_VARCHAR2_TABLE_500();
2729 a15 := JTF_VARCHAR2_TABLE_500();
2730 a16 := JTF_VARCHAR2_TABLE_500();
2731 a17 := JTF_VARCHAR2_TABLE_500();
2732 a18 := JTF_VARCHAR2_TABLE_500();
2733 a19 := JTF_VARCHAR2_TABLE_500();
2734 a20 := JTF_VARCHAR2_TABLE_500();
2735 a21 := JTF_VARCHAR2_TABLE_500();
2736 a22 := JTF_VARCHAR2_TABLE_500();
2737 a23 := JTF_VARCHAR2_TABLE_500();
2738 a24 := JTF_VARCHAR2_TABLE_500();
2739 a25 := JTF_NUMBER_TABLE();
2740 a26 := JTF_DATE_TABLE();
2741 a27 := JTF_NUMBER_TABLE();
2742 a28 := JTF_DATE_TABLE();
2743 a29 := JTF_NUMBER_TABLE();
2744 a30 := JTF_DATE_TABLE();
2745 a31 := JTF_DATE_TABLE();
2746 if t.count > 0 then
2747 a0.extend(t.count);
2748 a1.extend(t.count);
2749 a2.extend(t.count);
2750 a3.extend(t.count);
2751 a4.extend(t.count);
2752 a5.extend(t.count);
2753 a6.extend(t.count);
2754 a7.extend(t.count);
2755 a8.extend(t.count);
2756 a9.extend(t.count);
2757 a10.extend(t.count);
2758 a11.extend(t.count);
2759 a12.extend(t.count);
2760 a13.extend(t.count);
2761 a14.extend(t.count);
2762 a15.extend(t.count);
2763 a16.extend(t.count);
2764 a17.extend(t.count);
2765 a18.extend(t.count);
2766 a19.extend(t.count);
2767 a20.extend(t.count);
2768 a21.extend(t.count);
2769 a22.extend(t.count);
2770 a23.extend(t.count);
2771 a24.extend(t.count);
2772 a25.extend(t.count);
2773 a26.extend(t.count);
2774 a27.extend(t.count);
2775 a28.extend(t.count);
2776 a29.extend(t.count);
2777 a30.extend(t.count);
2778 a31.extend(t.count);
2779 ddindx := t.first;
2780 indx := 1;
2781 while true loop
2782 a0(indx) := rosetta_g_miss_num_map(t(ddindx).id);
2783 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
2784 a2(indx) := rosetta_g_miss_num_map(t(ddindx).cpl_id);
2785 a3(indx) := t(ddindx).cro_code;
2786 a4(indx) := rosetta_g_miss_num_map(t(ddindx).dnz_chr_id);
2787 a5(indx) := rosetta_g_miss_num_map(t(ddindx).contact_sequence);
2788 a6(indx) := t(ddindx).object1_id1;
2789 a7(indx) := t(ddindx).object1_id2;
2790 a8(indx) := t(ddindx).jtot_object1_code;
2791 a9(indx) := t(ddindx).attribute_category;
2792 a10(indx) := t(ddindx).attribute1;
2793 a11(indx) := t(ddindx).attribute2;
2794 a12(indx) := t(ddindx).attribute3;
2795 a13(indx) := t(ddindx).attribute4;
2796 a14(indx) := t(ddindx).attribute5;
2797 a15(indx) := t(ddindx).attribute6;
2798 a16(indx) := t(ddindx).attribute7;
2799 a17(indx) := t(ddindx).attribute8;
2800 a18(indx) := t(ddindx).attribute9;
2801 a19(indx) := t(ddindx).attribute10;
2802 a20(indx) := t(ddindx).attribute11;
2803 a21(indx) := t(ddindx).attribute12;
2804 a22(indx) := t(ddindx).attribute13;
2805 a23(indx) := t(ddindx).attribute14;
2806 a24(indx) := t(ddindx).attribute15;
2807 a25(indx) := rosetta_g_miss_num_map(t(ddindx).created_by);
2808 a26(indx) := t(ddindx).creation_date;
2809 a27(indx) := rosetta_g_miss_num_map(t(ddindx).last_updated_by);
2810 a28(indx) := t(ddindx).last_update_date;
2811 a29(indx) := rosetta_g_miss_num_map(t(ddindx).last_update_login);
2812 a30(indx) := t(ddindx).start_date;
2813 a31(indx) := t(ddindx).end_date;
2814 indx := indx+1;
2815 if t.last =ddindx
2816 then exit;
2817 end if;
2818 ddindx := t.next(ddindx);
2819 end loop;
2820 end if;
2821 end if;
2822 end rosetta_table_copy_out_p17;
2823
2824 procedure create_contract_header(p_api_version NUMBER
2825 , p_init_msg_list VARCHAR2
2826 , x_return_status out nocopy VARCHAR2
2827 , x_msg_count out nocopy NUMBER
2828 , x_msg_data out nocopy VARCHAR2
2829 , p6_a0 out nocopy NUMBER
2830 , p6_a1 out nocopy NUMBER
2831 , p6_a2 out nocopy VARCHAR2
2832 , p6_a3 out nocopy NUMBER
2833 , p6_a4 out nocopy NUMBER
2834 , p6_a5 out nocopy NUMBER
2835 , p6_a6 out nocopy NUMBER
2836 , p6_a7 out nocopy VARCHAR2
2837 , p6_a8 out nocopy NUMBER
2838 , p6_a9 out nocopy VARCHAR2
2839 , p6_a10 out nocopy VARCHAR2
2840 , p6_a11 out nocopy VARCHAR2
2841 , p6_a12 out nocopy VARCHAR2
2842 , p6_a13 out nocopy VARCHAR2
2843 , p6_a14 out nocopy VARCHAR2
2844 , p6_a15 out nocopy VARCHAR2
2845 , p6_a16 out nocopy VARCHAR2
2846 , p6_a17 out nocopy VARCHAR2
2847 , p6_a18 out nocopy VARCHAR2
2848 , p6_a19 out nocopy VARCHAR2
2849 , p6_a20 out nocopy VARCHAR2
2850 , p6_a21 out nocopy VARCHAR2
2851 , p6_a22 out nocopy VARCHAR2
2852 , p6_a23 out nocopy VARCHAR2
2853 , p6_a24 out nocopy VARCHAR2
2854 , p6_a25 out nocopy DATE
2855 , p6_a26 out nocopy DATE
2856 , p6_a27 out nocopy NUMBER
2857 , p6_a28 out nocopy DATE
2858 , p6_a29 out nocopy DATE
2859 , p6_a30 out nocopy VARCHAR2
2860 , p6_a31 out nocopy VARCHAR2
2861 , p6_a32 out nocopy VARCHAR2
2862 , p6_a33 out nocopy VARCHAR2
2863 , p6_a34 out nocopy VARCHAR2
2864 , p6_a35 out nocopy VARCHAR2
2865 , p6_a36 out nocopy NUMBER
2866 , p6_a37 out nocopy NUMBER
2867 , p6_a38 out nocopy DATE
2868 , p6_a39 out nocopy DATE
2869 , p6_a40 out nocopy DATE
2870 , p6_a41 out nocopy DATE
2871 , p6_a42 out nocopy DATE
2872 , p6_a43 out nocopy VARCHAR2
2873 , p6_a44 out nocopy DATE
2874 , p6_a45 out nocopy DATE
2875 , p6_a46 out nocopy NUMBER
2876 , p6_a47 out nocopy VARCHAR2
2877 , p6_a48 out nocopy VARCHAR2
2878 , p6_a49 out nocopy NUMBER
2879 , p6_a50 out nocopy NUMBER
2880 , p6_a51 out nocopy NUMBER
2881 , p6_a52 out nocopy VARCHAR2
2882 , p6_a53 out nocopy VARCHAR2
2883 , p6_a54 out nocopy NUMBER
2884 , p6_a55 out nocopy NUMBER
2885 , p6_a56 out nocopy VARCHAR2
2886 , p6_a57 out nocopy NUMBER
2887 , p6_a58 out nocopy VARCHAR2
2888 , p6_a59 out nocopy NUMBER
2889 , p6_a60 out nocopy NUMBER
2890 , p6_a61 out nocopy NUMBER
2891 , p6_a62 out nocopy DATE
2892 , p6_a63 out nocopy DATE
2893 , p6_a64 out nocopy DATE
2894 , p6_a65 out nocopy NUMBER
2895 , p6_a66 out nocopy NUMBER
2896 , p6_a67 out nocopy NUMBER
2897 , p6_a68 out nocopy VARCHAR2
2898 , p6_a69 out nocopy VARCHAR2
2899 , p6_a70 out nocopy VARCHAR2
2900 , p6_a71 out nocopy VARCHAR2
2901 , p6_a72 out nocopy VARCHAR2
2902 , p6_a73 out nocopy VARCHAR2
2903 , p6_a74 out nocopy VARCHAR2
2904 , p6_a75 out nocopy VARCHAR2
2905 , p6_a76 out nocopy VARCHAR2
2906 , p6_a77 out nocopy VARCHAR2
2907 , p6_a78 out nocopy VARCHAR2
2908 , p6_a79 out nocopy VARCHAR2
2909 , p6_a80 out nocopy VARCHAR2
2910 , p6_a81 out nocopy VARCHAR2
2911 , p6_a82 out nocopy VARCHAR2
2912 , p6_a83 out nocopy VARCHAR2
2913 , p6_a84 out nocopy NUMBER
2914 , p6_a85 out nocopy DATE
2915 , p6_a86 out nocopy NUMBER
2916 , p6_a87 out nocopy DATE
2917 , p6_a88 out nocopy NUMBER
2918 , p6_a89 out nocopy VARCHAR2
2919 , p6_a90 out nocopy VARCHAR2
2920 , p6_a91 out nocopy VARCHAR2
2921 , p6_a92 out nocopy VARCHAR2
2922 , p6_a93 out nocopy VARCHAR2
2923 , p6_a94 out nocopy NUMBER
2924 , p6_a95 out nocopy DATE
2925 , p6_a96 out nocopy NUMBER
2926 , p6_a97 out nocopy NUMBER
2927 , p6_a98 out nocopy NUMBER
2928 , p6_a99 out nocopy NUMBER
2929 , p6_a100 out nocopy VARCHAR2
2930 , p6_a101 out nocopy NUMBER
2931 , p6_a102 out nocopy DATE
2932 , p6_a103 out nocopy NUMBER
2933 , p6_a104 out nocopy NUMBER
2934 , p5_a0 NUMBER := 0-1962.0724
2935 , p5_a1 NUMBER := 0-1962.0724
2936 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
2937 , p5_a3 NUMBER := 0-1962.0724
2938 , p5_a4 NUMBER := 0-1962.0724
2939 , p5_a5 NUMBER := 0-1962.0724
2940 , p5_a6 NUMBER := 0-1962.0724
2941 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
2942 , p5_a8 NUMBER := 0-1962.0724
2943 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
2944 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
2945 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
2946 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
2947 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
2948 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
2949 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
2950 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
2951 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
2952 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
2953 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
2954 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
2955 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
2956 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
2957 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
2958 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
2959 , p5_a25 DATE := fnd_api.g_miss_date
2960 , p5_a26 DATE := fnd_api.g_miss_date
2961 , p5_a27 NUMBER := 0-1962.0724
2962 , p5_a28 DATE := fnd_api.g_miss_date
2963 , p5_a29 DATE := fnd_api.g_miss_date
2964 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
2965 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
2966 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
2967 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
2968 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
2969 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
2970 , p5_a36 NUMBER := 0-1962.0724
2971 , p5_a37 NUMBER := 0-1962.0724
2972 , p5_a38 DATE := fnd_api.g_miss_date
2973 , p5_a39 DATE := fnd_api.g_miss_date
2974 , p5_a40 DATE := fnd_api.g_miss_date
2975 , p5_a41 DATE := fnd_api.g_miss_date
2976 , p5_a42 DATE := fnd_api.g_miss_date
2977 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
2978 , p5_a44 DATE := fnd_api.g_miss_date
2979 , p5_a45 DATE := fnd_api.g_miss_date
2980 , p5_a46 NUMBER := 0-1962.0724
2981 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
2982 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
2983 , p5_a49 NUMBER := 0-1962.0724
2984 , p5_a50 NUMBER := 0-1962.0724
2985 , p5_a51 NUMBER := 0-1962.0724
2986 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
2987 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
2988 , p5_a54 NUMBER := 0-1962.0724
2989 , p5_a55 NUMBER := 0-1962.0724
2990 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
2991 , p5_a57 NUMBER := 0-1962.0724
2992 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
2993 , p5_a59 NUMBER := 0-1962.0724
2994 , p5_a60 NUMBER := 0-1962.0724
2995 , p5_a61 NUMBER := 0-1962.0724
2996 , p5_a62 DATE := fnd_api.g_miss_date
2997 , p5_a63 DATE := fnd_api.g_miss_date
2998 , p5_a64 DATE := fnd_api.g_miss_date
2999 , p5_a65 NUMBER := 0-1962.0724
3000 , p5_a66 NUMBER := 0-1962.0724
3001 , p5_a67 NUMBER := 0-1962.0724
3002 , p5_a68 VARCHAR2 := fnd_api.g_miss_char
3003 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
3004 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
3005 , p5_a71 VARCHAR2 := fnd_api.g_miss_char
3006 , p5_a72 VARCHAR2 := fnd_api.g_miss_char
3007 , p5_a73 VARCHAR2 := fnd_api.g_miss_char
3008 , p5_a74 VARCHAR2 := fnd_api.g_miss_char
3009 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
3010 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
3011 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
3012 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
3013 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
3014 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
3015 , p5_a81 VARCHAR2 := fnd_api.g_miss_char
3016 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
3017 , p5_a83 VARCHAR2 := fnd_api.g_miss_char
3018 , p5_a84 NUMBER := 0-1962.0724
3019 , p5_a85 DATE := fnd_api.g_miss_date
3020 , p5_a86 NUMBER := 0-1962.0724
3021 , p5_a87 DATE := fnd_api.g_miss_date
3022 , p5_a88 NUMBER := 0-1962.0724
3023 , p5_a89 VARCHAR2 := fnd_api.g_miss_char
3024 , p5_a90 VARCHAR2 := fnd_api.g_miss_char
3025 , p5_a91 VARCHAR2 := fnd_api.g_miss_char
3026 , p5_a92 VARCHAR2 := fnd_api.g_miss_char
3027 , p5_a93 VARCHAR2 := fnd_api.g_miss_char
3028 , p5_a94 NUMBER := 0-1962.0724
3029 , p5_a95 DATE := fnd_api.g_miss_date
3030 , p5_a96 NUMBER := 0-1962.0724
3031 , p5_a97 NUMBER := 0-1962.0724
3032 , p5_a98 NUMBER := 0-1962.0724
3033 , p5_a99 NUMBER := 0-1962.0724
3034 , p5_a100 VARCHAR2 := fnd_api.g_miss_char
3035 , p5_a101 NUMBER := 0-1962.0724
3036 , p5_a102 DATE := fnd_api.g_miss_date
3037 , p5_a103 NUMBER := 0-1962.0724
3038 , p5_a104 NUMBER := 0-1962.0724
3039 )
3040
3041 as
3042 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3043 ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3044 ddindx binary_integer; indx binary_integer;
3045 begin
3046
3047 -- copy data to the local IN or IN-OUT args, if any
3048
3049
3050
3051
3052
3053 ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
3054 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3055 ddp_chrv_rec.sfwt_flag := p5_a2;
3056 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
3057 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
3058 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
3059 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
3060 ddp_chrv_rec.sts_code := p5_a7;
3061 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
3062 ddp_chrv_rec.scs_code := p5_a9;
3063 ddp_chrv_rec.contract_number := p5_a10;
3064 ddp_chrv_rec.currency_code := p5_a11;
3065 ddp_chrv_rec.contract_number_modifier := p5_a12;
3066 ddp_chrv_rec.archived_yn := p5_a13;
3067 ddp_chrv_rec.deleted_yn := p5_a14;
3068 ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
3069 ddp_chrv_rec.pre_pay_req_yn := p5_a16;
3070 ddp_chrv_rec.cust_po_number := p5_a17;
3071 ddp_chrv_rec.short_description := p5_a18;
3072 ddp_chrv_rec.comments := p5_a19;
3073 ddp_chrv_rec.description := p5_a20;
3074 ddp_chrv_rec.dpas_rating := p5_a21;
3075 ddp_chrv_rec.cognomen := p5_a22;
3076 ddp_chrv_rec.template_yn := p5_a23;
3077 ddp_chrv_rec.template_used := p5_a24;
3078 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
3079 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
3080 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
3081 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
3082 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
3083 ddp_chrv_rec.non_response_reason := p5_a30;
3084 ddp_chrv_rec.non_response_explain := p5_a31;
3085 ddp_chrv_rec.rfp_type := p5_a32;
3086 ddp_chrv_rec.chr_type := p5_a33;
3087 ddp_chrv_rec.keep_on_mail_list := p5_a34;
3088 ddp_chrv_rec.set_aside_reason := p5_a35;
3089 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
3090 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
3091 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
3092 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
3093 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
3094 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
3095 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
3096 ddp_chrv_rec.trn_code := p5_a43;
3097 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
3098 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
3099 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
3100 ddp_chrv_rec.buy_or_sell := p5_a47;
3101 ddp_chrv_rec.issue_or_receive := p5_a48;
3102 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
3103 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
3104 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
3105 ddp_chrv_rec.currency_code_renewed := p5_a52;
3106 ddp_chrv_rec.upg_orig_system_ref := p5_a53;
3107 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
3108 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
3109 ddp_chrv_rec.orig_system_source_code := p5_a56;
3110 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
3111 ddp_chrv_rec.orig_system_reference1 := p5_a58;
3112 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
3113 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
3114 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
3115 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
3116 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
3117 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
3118 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
3119 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
3120 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
3121 ddp_chrv_rec.attribute_category := p5_a68;
3122 ddp_chrv_rec.attribute1 := p5_a69;
3123 ddp_chrv_rec.attribute2 := p5_a70;
3124 ddp_chrv_rec.attribute3 := p5_a71;
3125 ddp_chrv_rec.attribute4 := p5_a72;
3126 ddp_chrv_rec.attribute5 := p5_a73;
3127 ddp_chrv_rec.attribute6 := p5_a74;
3128 ddp_chrv_rec.attribute7 := p5_a75;
3129 ddp_chrv_rec.attribute8 := p5_a76;
3130 ddp_chrv_rec.attribute9 := p5_a77;
3131 ddp_chrv_rec.attribute10 := p5_a78;
3132 ddp_chrv_rec.attribute11 := p5_a79;
3133 ddp_chrv_rec.attribute12 := p5_a80;
3134 ddp_chrv_rec.attribute13 := p5_a81;
3135 ddp_chrv_rec.attribute14 := p5_a82;
3136 ddp_chrv_rec.attribute15 := p5_a83;
3137 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
3138 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
3139 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
3140 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
3141 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
3142 ddp_chrv_rec.old_sts_code := p5_a89;
3143 ddp_chrv_rec.new_sts_code := p5_a90;
3144 ddp_chrv_rec.old_ste_code := p5_a91;
3145 ddp_chrv_rec.new_ste_code := p5_a92;
3146 ddp_chrv_rec.conversion_type := p5_a93;
3147 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
3148 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
3149 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
3150 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
3151 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
3152 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
3153 ddp_chrv_rec.renewal_type_code := p5_a100;
3154 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
3155 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
3156 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
3157 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
3158
3159
3160 -- here's the delegated call to the old PL/SQL routine
3161 okl_okc_migration_pvt.create_contract_header(p_api_version,
3162 p_init_msg_list,
3163 x_return_status,
3164 x_msg_count,
3165 x_msg_data,
3166 ddp_chrv_rec,
3167 ddx_chrv_rec);
3168
3169 -- copy data back from the local variables to OUT or IN-OUT args, if any
3170
3171
3172
3173
3174
3175
3176 p6_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
3177 p6_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
3178 p6_a2 := ddx_chrv_rec.sfwt_flag;
3179 p6_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
3180 p6_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
3181 p6_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
3182 p6_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
3183 p6_a7 := ddx_chrv_rec.sts_code;
3184 p6_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
3185 p6_a9 := ddx_chrv_rec.scs_code;
3186 p6_a10 := ddx_chrv_rec.contract_number;
3187 p6_a11 := ddx_chrv_rec.currency_code;
3188 p6_a12 := ddx_chrv_rec.contract_number_modifier;
3189 p6_a13 := ddx_chrv_rec.archived_yn;
3190 p6_a14 := ddx_chrv_rec.deleted_yn;
3191 p6_a15 := ddx_chrv_rec.cust_po_number_req_yn;
3192 p6_a16 := ddx_chrv_rec.pre_pay_req_yn;
3193 p6_a17 := ddx_chrv_rec.cust_po_number;
3194 p6_a18 := ddx_chrv_rec.short_description;
3195 p6_a19 := ddx_chrv_rec.comments;
3196 p6_a20 := ddx_chrv_rec.description;
3197 p6_a21 := ddx_chrv_rec.dpas_rating;
3198 p6_a22 := ddx_chrv_rec.cognomen;
3199 p6_a23 := ddx_chrv_rec.template_yn;
3200 p6_a24 := ddx_chrv_rec.template_used;
3201 p6_a25 := ddx_chrv_rec.date_approved;
3202 p6_a26 := ddx_chrv_rec.datetime_cancelled;
3203 p6_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
3204 p6_a28 := ddx_chrv_rec.date_issued;
3205 p6_a29 := ddx_chrv_rec.datetime_responded;
3206 p6_a30 := ddx_chrv_rec.non_response_reason;
3207 p6_a31 := ddx_chrv_rec.non_response_explain;
3208 p6_a32 := ddx_chrv_rec.rfp_type;
3209 p6_a33 := ddx_chrv_rec.chr_type;
3210 p6_a34 := ddx_chrv_rec.keep_on_mail_list;
3211 p6_a35 := ddx_chrv_rec.set_aside_reason;
3212 p6_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
3213 p6_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
3214 p6_a38 := ddx_chrv_rec.date_close_projected;
3215 p6_a39 := ddx_chrv_rec.datetime_proposed;
3216 p6_a40 := ddx_chrv_rec.date_signed;
3217 p6_a41 := ddx_chrv_rec.date_terminated;
3218 p6_a42 := ddx_chrv_rec.date_renewed;
3219 p6_a43 := ddx_chrv_rec.trn_code;
3220 p6_a44 := ddx_chrv_rec.start_date;
3221 p6_a45 := ddx_chrv_rec.end_date;
3222 p6_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
3223 p6_a47 := ddx_chrv_rec.buy_or_sell;
3224 p6_a48 := ddx_chrv_rec.issue_or_receive;
3225 p6_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
3226 p6_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
3227 p6_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
3228 p6_a52 := ddx_chrv_rec.currency_code_renewed;
3229 p6_a53 := ddx_chrv_rec.upg_orig_system_ref;
3230 p6_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
3231 p6_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
3232 p6_a56 := ddx_chrv_rec.orig_system_source_code;
3233 p6_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
3234 p6_a58 := ddx_chrv_rec.orig_system_reference1;
3235 p6_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
3236 p6_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
3237 p6_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
3238 p6_a62 := ddx_chrv_rec.pricing_date;
3239 p6_a63 := ddx_chrv_rec.sign_by_date;
3240 p6_a64 := ddx_chrv_rec.program_update_date;
3241 p6_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
3242 p6_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
3243 p6_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
3244 p6_a68 := ddx_chrv_rec.attribute_category;
3245 p6_a69 := ddx_chrv_rec.attribute1;
3246 p6_a70 := ddx_chrv_rec.attribute2;
3247 p6_a71 := ddx_chrv_rec.attribute3;
3248 p6_a72 := ddx_chrv_rec.attribute4;
3249 p6_a73 := ddx_chrv_rec.attribute5;
3250 p6_a74 := ddx_chrv_rec.attribute6;
3251 p6_a75 := ddx_chrv_rec.attribute7;
3252 p6_a76 := ddx_chrv_rec.attribute8;
3253 p6_a77 := ddx_chrv_rec.attribute9;
3254 p6_a78 := ddx_chrv_rec.attribute10;
3255 p6_a79 := ddx_chrv_rec.attribute11;
3256 p6_a80 := ddx_chrv_rec.attribute12;
3257 p6_a81 := ddx_chrv_rec.attribute13;
3258 p6_a82 := ddx_chrv_rec.attribute14;
3259 p6_a83 := ddx_chrv_rec.attribute15;
3260 p6_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
3261 p6_a85 := ddx_chrv_rec.creation_date;
3262 p6_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
3263 p6_a87 := ddx_chrv_rec.last_update_date;
3264 p6_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
3265 p6_a89 := ddx_chrv_rec.old_sts_code;
3266 p6_a90 := ddx_chrv_rec.new_sts_code;
3267 p6_a91 := ddx_chrv_rec.old_ste_code;
3268 p6_a92 := ddx_chrv_rec.new_ste_code;
3269 p6_a93 := ddx_chrv_rec.conversion_type;
3270 p6_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
3271 p6_a95 := ddx_chrv_rec.conversion_rate_date;
3272 p6_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
3273 p6_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
3274 p6_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
3275 p6_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
3276 p6_a100 := ddx_chrv_rec.renewal_type_code;
3277 p6_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
3278 p6_a102 := ddx_chrv_rec.renewal_end_date;
3279 p6_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
3280 p6_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
3281 end;
3282
3283 procedure update_contract_header(p_api_version NUMBER
3284 , p_init_msg_list VARCHAR2
3285 , x_return_status out nocopy VARCHAR2
3286 , x_msg_count out nocopy NUMBER
3287 , x_msg_data out nocopy VARCHAR2
3288 , p_restricted_update VARCHAR2
3289 , p7_a0 out nocopy NUMBER
3290 , p7_a1 out nocopy NUMBER
3291 , p7_a2 out nocopy VARCHAR2
3292 , p7_a3 out nocopy NUMBER
3293 , p7_a4 out nocopy NUMBER
3294 , p7_a5 out nocopy NUMBER
3295 , p7_a6 out nocopy NUMBER
3296 , p7_a7 out nocopy VARCHAR2
3297 , p7_a8 out nocopy NUMBER
3298 , p7_a9 out nocopy VARCHAR2
3299 , p7_a10 out nocopy VARCHAR2
3300 , p7_a11 out nocopy VARCHAR2
3301 , p7_a12 out nocopy VARCHAR2
3302 , p7_a13 out nocopy VARCHAR2
3303 , p7_a14 out nocopy VARCHAR2
3304 , p7_a15 out nocopy VARCHAR2
3305 , p7_a16 out nocopy VARCHAR2
3306 , p7_a17 out nocopy VARCHAR2
3307 , p7_a18 out nocopy VARCHAR2
3308 , p7_a19 out nocopy VARCHAR2
3309 , p7_a20 out nocopy VARCHAR2
3310 , p7_a21 out nocopy VARCHAR2
3311 , p7_a22 out nocopy VARCHAR2
3312 , p7_a23 out nocopy VARCHAR2
3313 , p7_a24 out nocopy VARCHAR2
3314 , p7_a25 out nocopy DATE
3315 , p7_a26 out nocopy DATE
3316 , p7_a27 out nocopy NUMBER
3317 , p7_a28 out nocopy DATE
3318 , p7_a29 out nocopy DATE
3319 , p7_a30 out nocopy VARCHAR2
3320 , p7_a31 out nocopy VARCHAR2
3321 , p7_a32 out nocopy VARCHAR2
3322 , p7_a33 out nocopy VARCHAR2
3323 , p7_a34 out nocopy VARCHAR2
3324 , p7_a35 out nocopy VARCHAR2
3325 , p7_a36 out nocopy NUMBER
3326 , p7_a37 out nocopy NUMBER
3327 , p7_a38 out nocopy DATE
3328 , p7_a39 out nocopy DATE
3329 , p7_a40 out nocopy DATE
3330 , p7_a41 out nocopy DATE
3331 , p7_a42 out nocopy DATE
3332 , p7_a43 out nocopy VARCHAR2
3333 , p7_a44 out nocopy DATE
3334 , p7_a45 out nocopy DATE
3335 , p7_a46 out nocopy NUMBER
3336 , p7_a47 out nocopy VARCHAR2
3337 , p7_a48 out nocopy VARCHAR2
3338 , p7_a49 out nocopy NUMBER
3339 , p7_a50 out nocopy NUMBER
3340 , p7_a51 out nocopy NUMBER
3341 , p7_a52 out nocopy VARCHAR2
3342 , p7_a53 out nocopy VARCHAR2
3343 , p7_a54 out nocopy NUMBER
3344 , p7_a55 out nocopy NUMBER
3345 , p7_a56 out nocopy VARCHAR2
3346 , p7_a57 out nocopy NUMBER
3347 , p7_a58 out nocopy VARCHAR2
3348 , p7_a59 out nocopy NUMBER
3349 , p7_a60 out nocopy NUMBER
3350 , p7_a61 out nocopy NUMBER
3351 , p7_a62 out nocopy DATE
3352 , p7_a63 out nocopy DATE
3353 , p7_a64 out nocopy DATE
3354 , p7_a65 out nocopy NUMBER
3355 , p7_a66 out nocopy NUMBER
3356 , p7_a67 out nocopy NUMBER
3357 , p7_a68 out nocopy VARCHAR2
3358 , p7_a69 out nocopy VARCHAR2
3359 , p7_a70 out nocopy VARCHAR2
3360 , p7_a71 out nocopy VARCHAR2
3361 , p7_a72 out nocopy VARCHAR2
3362 , p7_a73 out nocopy VARCHAR2
3363 , p7_a74 out nocopy VARCHAR2
3364 , p7_a75 out nocopy VARCHAR2
3365 , p7_a76 out nocopy VARCHAR2
3366 , p7_a77 out nocopy VARCHAR2
3367 , p7_a78 out nocopy VARCHAR2
3368 , p7_a79 out nocopy VARCHAR2
3369 , p7_a80 out nocopy VARCHAR2
3370 , p7_a81 out nocopy VARCHAR2
3371 , p7_a82 out nocopy VARCHAR2
3372 , p7_a83 out nocopy VARCHAR2
3373 , p7_a84 out nocopy NUMBER
3374 , p7_a85 out nocopy DATE
3375 , p7_a86 out nocopy NUMBER
3376 , p7_a87 out nocopy DATE
3377 , p7_a88 out nocopy NUMBER
3378 , p7_a89 out nocopy VARCHAR2
3379 , p7_a90 out nocopy VARCHAR2
3380 , p7_a91 out nocopy VARCHAR2
3381 , p7_a92 out nocopy VARCHAR2
3382 , p7_a93 out nocopy VARCHAR2
3383 , p7_a94 out nocopy NUMBER
3384 , p7_a95 out nocopy DATE
3385 , p7_a96 out nocopy NUMBER
3386 , p7_a97 out nocopy NUMBER
3387 , p7_a98 out nocopy NUMBER
3388 , p7_a99 out nocopy NUMBER
3389 , p7_a100 out nocopy VARCHAR2
3390 , p7_a101 out nocopy NUMBER
3391 , p7_a102 out nocopy DATE
3392 , p7_a103 out nocopy NUMBER
3393 , p7_a104 out nocopy NUMBER
3394 , p6_a0 NUMBER := 0-1962.0724
3395 , p6_a1 NUMBER := 0-1962.0724
3396 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
3397 , p6_a3 NUMBER := 0-1962.0724
3398 , p6_a4 NUMBER := 0-1962.0724
3399 , p6_a5 NUMBER := 0-1962.0724
3400 , p6_a6 NUMBER := 0-1962.0724
3401 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
3402 , p6_a8 NUMBER := 0-1962.0724
3403 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
3404 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
3405 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
3406 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
3407 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
3408 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
3409 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
3410 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
3411 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
3412 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
3413 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
3414 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
3415 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
3416 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
3417 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
3418 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
3419 , p6_a25 DATE := fnd_api.g_miss_date
3420 , p6_a26 DATE := fnd_api.g_miss_date
3421 , p6_a27 NUMBER := 0-1962.0724
3422 , p6_a28 DATE := fnd_api.g_miss_date
3423 , p6_a29 DATE := fnd_api.g_miss_date
3424 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
3425 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
3426 , p6_a32 VARCHAR2 := fnd_api.g_miss_char
3427 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
3428 , p6_a34 VARCHAR2 := fnd_api.g_miss_char
3429 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
3430 , p6_a36 NUMBER := 0-1962.0724
3431 , p6_a37 NUMBER := 0-1962.0724
3432 , p6_a38 DATE := fnd_api.g_miss_date
3433 , p6_a39 DATE := fnd_api.g_miss_date
3434 , p6_a40 DATE := fnd_api.g_miss_date
3435 , p6_a41 DATE := fnd_api.g_miss_date
3436 , p6_a42 DATE := fnd_api.g_miss_date
3437 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
3438 , p6_a44 DATE := fnd_api.g_miss_date
3439 , p6_a45 DATE := fnd_api.g_miss_date
3440 , p6_a46 NUMBER := 0-1962.0724
3441 , p6_a47 VARCHAR2 := fnd_api.g_miss_char
3442 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
3443 , p6_a49 NUMBER := 0-1962.0724
3444 , p6_a50 NUMBER := 0-1962.0724
3445 , p6_a51 NUMBER := 0-1962.0724
3446 , p6_a52 VARCHAR2 := fnd_api.g_miss_char
3447 , p6_a53 VARCHAR2 := fnd_api.g_miss_char
3448 , p6_a54 NUMBER := 0-1962.0724
3449 , p6_a55 NUMBER := 0-1962.0724
3450 , p6_a56 VARCHAR2 := fnd_api.g_miss_char
3451 , p6_a57 NUMBER := 0-1962.0724
3452 , p6_a58 VARCHAR2 := fnd_api.g_miss_char
3453 , p6_a59 NUMBER := 0-1962.0724
3454 , p6_a60 NUMBER := 0-1962.0724
3455 , p6_a61 NUMBER := 0-1962.0724
3456 , p6_a62 DATE := fnd_api.g_miss_date
3457 , p6_a63 DATE := fnd_api.g_miss_date
3458 , p6_a64 DATE := fnd_api.g_miss_date
3459 , p6_a65 NUMBER := 0-1962.0724
3460 , p6_a66 NUMBER := 0-1962.0724
3461 , p6_a67 NUMBER := 0-1962.0724
3462 , p6_a68 VARCHAR2 := fnd_api.g_miss_char
3463 , p6_a69 VARCHAR2 := fnd_api.g_miss_char
3464 , p6_a70 VARCHAR2 := fnd_api.g_miss_char
3465 , p6_a71 VARCHAR2 := fnd_api.g_miss_char
3466 , p6_a72 VARCHAR2 := fnd_api.g_miss_char
3467 , p6_a73 VARCHAR2 := fnd_api.g_miss_char
3468 , p6_a74 VARCHAR2 := fnd_api.g_miss_char
3469 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
3470 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
3471 , p6_a77 VARCHAR2 := fnd_api.g_miss_char
3472 , p6_a78 VARCHAR2 := fnd_api.g_miss_char
3473 , p6_a79 VARCHAR2 := fnd_api.g_miss_char
3474 , p6_a80 VARCHAR2 := fnd_api.g_miss_char
3475 , p6_a81 VARCHAR2 := fnd_api.g_miss_char
3476 , p6_a82 VARCHAR2 := fnd_api.g_miss_char
3477 , p6_a83 VARCHAR2 := fnd_api.g_miss_char
3478 , p6_a84 NUMBER := 0-1962.0724
3479 , p6_a85 DATE := fnd_api.g_miss_date
3480 , p6_a86 NUMBER := 0-1962.0724
3481 , p6_a87 DATE := fnd_api.g_miss_date
3482 , p6_a88 NUMBER := 0-1962.0724
3483 , p6_a89 VARCHAR2 := fnd_api.g_miss_char
3484 , p6_a90 VARCHAR2 := fnd_api.g_miss_char
3485 , p6_a91 VARCHAR2 := fnd_api.g_miss_char
3486 , p6_a92 VARCHAR2 := fnd_api.g_miss_char
3487 , p6_a93 VARCHAR2 := fnd_api.g_miss_char
3488 , p6_a94 NUMBER := 0-1962.0724
3489 , p6_a95 DATE := fnd_api.g_miss_date
3490 , p6_a96 NUMBER := 0-1962.0724
3491 , p6_a97 NUMBER := 0-1962.0724
3492 , p6_a98 NUMBER := 0-1962.0724
3493 , p6_a99 NUMBER := 0-1962.0724
3494 , p6_a100 VARCHAR2 := fnd_api.g_miss_char
3495 , p6_a101 NUMBER := 0-1962.0724
3496 , p6_a102 DATE := fnd_api.g_miss_date
3497 , p6_a103 NUMBER := 0-1962.0724
3498 , p6_a104 NUMBER := 0-1962.0724
3499 )
3500
3501 as
3502 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3503 ddx_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3504 ddindx binary_integer; indx binary_integer;
3505 begin
3506
3507 -- copy data to the local IN or IN-OUT args, if any
3508
3509
3510
3511
3512
3513
3514 ddp_chrv_rec.id := rosetta_g_miss_num_map(p6_a0);
3515 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
3516 ddp_chrv_rec.sfwt_flag := p6_a2;
3517 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p6_a3);
3518 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p6_a4);
3519 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p6_a5);
3520 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p6_a6);
3521 ddp_chrv_rec.sts_code := p6_a7;
3522 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p6_a8);
3523 ddp_chrv_rec.scs_code := p6_a9;
3524 ddp_chrv_rec.contract_number := p6_a10;
3525 ddp_chrv_rec.currency_code := p6_a11;
3526 ddp_chrv_rec.contract_number_modifier := p6_a12;
3527 ddp_chrv_rec.archived_yn := p6_a13;
3528 ddp_chrv_rec.deleted_yn := p6_a14;
3529 ddp_chrv_rec.cust_po_number_req_yn := p6_a15;
3530 ddp_chrv_rec.pre_pay_req_yn := p6_a16;
3531 ddp_chrv_rec.cust_po_number := p6_a17;
3532 ddp_chrv_rec.short_description := p6_a18;
3533 ddp_chrv_rec.comments := p6_a19;
3534 ddp_chrv_rec.description := p6_a20;
3535 ddp_chrv_rec.dpas_rating := p6_a21;
3536 ddp_chrv_rec.cognomen := p6_a22;
3537 ddp_chrv_rec.template_yn := p6_a23;
3538 ddp_chrv_rec.template_used := p6_a24;
3539 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p6_a25);
3540 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p6_a26);
3541 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p6_a27);
3542 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p6_a28);
3543 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p6_a29);
3544 ddp_chrv_rec.non_response_reason := p6_a30;
3545 ddp_chrv_rec.non_response_explain := p6_a31;
3546 ddp_chrv_rec.rfp_type := p6_a32;
3547 ddp_chrv_rec.chr_type := p6_a33;
3548 ddp_chrv_rec.keep_on_mail_list := p6_a34;
3549 ddp_chrv_rec.set_aside_reason := p6_a35;
3550 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p6_a36);
3551 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p6_a37);
3552 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p6_a38);
3553 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p6_a39);
3554 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p6_a40);
3555 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p6_a41);
3556 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p6_a42);
3557 ddp_chrv_rec.trn_code := p6_a43;
3558 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p6_a44);
3559 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p6_a45);
3560 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p6_a46);
3561 ddp_chrv_rec.buy_or_sell := p6_a47;
3562 ddp_chrv_rec.issue_or_receive := p6_a48;
3563 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p6_a49);
3564 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p6_a50);
3565 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p6_a51);
3566 ddp_chrv_rec.currency_code_renewed := p6_a52;
3567 ddp_chrv_rec.upg_orig_system_ref := p6_a53;
3568 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p6_a54);
3569 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p6_a55);
3570 ddp_chrv_rec.orig_system_source_code := p6_a56;
3571 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p6_a57);
3572 ddp_chrv_rec.orig_system_reference1 := p6_a58;
3573 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p6_a59);
3574 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p6_a60);
3575 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p6_a61);
3576 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p6_a62);
3577 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p6_a63);
3578 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a64);
3579 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p6_a65);
3580 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p6_a66);
3581 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p6_a67);
3582 ddp_chrv_rec.attribute_category := p6_a68;
3583 ddp_chrv_rec.attribute1 := p6_a69;
3584 ddp_chrv_rec.attribute2 := p6_a70;
3585 ddp_chrv_rec.attribute3 := p6_a71;
3586 ddp_chrv_rec.attribute4 := p6_a72;
3587 ddp_chrv_rec.attribute5 := p6_a73;
3588 ddp_chrv_rec.attribute6 := p6_a74;
3589 ddp_chrv_rec.attribute7 := p6_a75;
3590 ddp_chrv_rec.attribute8 := p6_a76;
3591 ddp_chrv_rec.attribute9 := p6_a77;
3592 ddp_chrv_rec.attribute10 := p6_a78;
3593 ddp_chrv_rec.attribute11 := p6_a79;
3594 ddp_chrv_rec.attribute12 := p6_a80;
3595 ddp_chrv_rec.attribute13 := p6_a81;
3596 ddp_chrv_rec.attribute14 := p6_a82;
3597 ddp_chrv_rec.attribute15 := p6_a83;
3598 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p6_a84);
3599 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a85);
3600 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a86);
3601 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a87);
3602 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p6_a88);
3603 ddp_chrv_rec.old_sts_code := p6_a89;
3604 ddp_chrv_rec.new_sts_code := p6_a90;
3605 ddp_chrv_rec.old_ste_code := p6_a91;
3606 ddp_chrv_rec.new_ste_code := p6_a92;
3607 ddp_chrv_rec.conversion_type := p6_a93;
3608 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p6_a94);
3609 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p6_a95);
3610 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p6_a96);
3611 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p6_a97);
3612 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p6_a98);
3613 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p6_a99);
3614 ddp_chrv_rec.renewal_type_code := p6_a100;
3615 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p6_a101);
3616 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p6_a102);
3617 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p6_a103);
3618 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p6_a104);
3619
3620
3621 -- here's the delegated call to the old PL/SQL routine
3622 okl_okc_migration_pvt.update_contract_header(p_api_version,
3623 p_init_msg_list,
3624 x_return_status,
3625 x_msg_count,
3626 x_msg_data,
3627 p_restricted_update,
3628 ddp_chrv_rec,
3629 ddx_chrv_rec);
3630
3631 -- copy data back from the local variables to OUT or IN-OUT args, if any
3632
3633
3634
3635
3636
3637
3638
3639 p7_a0 := rosetta_g_miss_num_map(ddx_chrv_rec.id);
3640 p7_a1 := rosetta_g_miss_num_map(ddx_chrv_rec.object_version_number);
3641 p7_a2 := ddx_chrv_rec.sfwt_flag;
3642 p7_a3 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_response);
3643 p7_a4 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_award);
3644 p7_a5 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed);
3645 p7_a6 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_organization_id);
3646 p7_a7 := ddx_chrv_rec.sts_code;
3647 p7_a8 := rosetta_g_miss_num_map(ddx_chrv_rec.qcl_id);
3648 p7_a9 := ddx_chrv_rec.scs_code;
3649 p7_a10 := ddx_chrv_rec.contract_number;
3650 p7_a11 := ddx_chrv_rec.currency_code;
3651 p7_a12 := ddx_chrv_rec.contract_number_modifier;
3652 p7_a13 := ddx_chrv_rec.archived_yn;
3653 p7_a14 := ddx_chrv_rec.deleted_yn;
3654 p7_a15 := ddx_chrv_rec.cust_po_number_req_yn;
3655 p7_a16 := ddx_chrv_rec.pre_pay_req_yn;
3656 p7_a17 := ddx_chrv_rec.cust_po_number;
3657 p7_a18 := ddx_chrv_rec.short_description;
3658 p7_a19 := ddx_chrv_rec.comments;
3659 p7_a20 := ddx_chrv_rec.description;
3660 p7_a21 := ddx_chrv_rec.dpas_rating;
3661 p7_a22 := ddx_chrv_rec.cognomen;
3662 p7_a23 := ddx_chrv_rec.template_yn;
3663 p7_a24 := ddx_chrv_rec.template_used;
3664 p7_a25 := ddx_chrv_rec.date_approved;
3665 p7_a26 := ddx_chrv_rec.datetime_cancelled;
3666 p7_a27 := rosetta_g_miss_num_map(ddx_chrv_rec.auto_renew_days);
3667 p7_a28 := ddx_chrv_rec.date_issued;
3668 p7_a29 := ddx_chrv_rec.datetime_responded;
3669 p7_a30 := ddx_chrv_rec.non_response_reason;
3670 p7_a31 := ddx_chrv_rec.non_response_explain;
3671 p7_a32 := ddx_chrv_rec.rfp_type;
3672 p7_a33 := ddx_chrv_rec.chr_type;
3673 p7_a34 := ddx_chrv_rec.keep_on_mail_list;
3674 p7_a35 := ddx_chrv_rec.set_aside_reason;
3675 p7_a36 := rosetta_g_miss_num_map(ddx_chrv_rec.set_aside_percent);
3676 p7_a37 := rosetta_g_miss_num_map(ddx_chrv_rec.response_copies_req);
3677 p7_a38 := ddx_chrv_rec.date_close_projected;
3678 p7_a39 := ddx_chrv_rec.datetime_proposed;
3679 p7_a40 := ddx_chrv_rec.date_signed;
3680 p7_a41 := ddx_chrv_rec.date_terminated;
3681 p7_a42 := ddx_chrv_rec.date_renewed;
3682 p7_a43 := ddx_chrv_rec.trn_code;
3683 p7_a44 := ddx_chrv_rec.start_date;
3684 p7_a45 := ddx_chrv_rec.end_date;
3685 p7_a46 := rosetta_g_miss_num_map(ddx_chrv_rec.authoring_org_id);
3686 p7_a47 := ddx_chrv_rec.buy_or_sell;
3687 p7_a48 := ddx_chrv_rec.issue_or_receive;
3688 p7_a49 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount);
3689 p7_a50 := rosetta_g_miss_num_map(ddx_chrv_rec.chr_id_renewed_to);
3690 p7_a51 := rosetta_g_miss_num_map(ddx_chrv_rec.estimated_amount_renewed);
3691 p7_a52 := ddx_chrv_rec.currency_code_renewed;
3692 p7_a53 := ddx_chrv_rec.upg_orig_system_ref;
3693 p7_a54 := rosetta_g_miss_num_map(ddx_chrv_rec.upg_orig_system_ref_id);
3694 p7_a55 := rosetta_g_miss_num_map(ddx_chrv_rec.application_id);
3695 p7_a56 := ddx_chrv_rec.orig_system_source_code;
3696 p7_a57 := rosetta_g_miss_num_map(ddx_chrv_rec.orig_system_id1);
3697 p7_a58 := ddx_chrv_rec.orig_system_reference1;
3698 p7_a59 := rosetta_g_miss_num_map(ddx_chrv_rec.program_id);
3699 p7_a60 := rosetta_g_miss_num_map(ddx_chrv_rec.request_id);
3700 p7_a61 := rosetta_g_miss_num_map(ddx_chrv_rec.price_list_id);
3701 p7_a62 := ddx_chrv_rec.pricing_date;
3702 p7_a63 := ddx_chrv_rec.sign_by_date;
3703 p7_a64 := ddx_chrv_rec.program_update_date;
3704 p7_a65 := rosetta_g_miss_num_map(ddx_chrv_rec.total_line_list_price);
3705 p7_a66 := rosetta_g_miss_num_map(ddx_chrv_rec.program_application_id);
3706 p7_a67 := rosetta_g_miss_num_map(ddx_chrv_rec.user_estimated_amount);
3707 p7_a68 := ddx_chrv_rec.attribute_category;
3708 p7_a69 := ddx_chrv_rec.attribute1;
3709 p7_a70 := ddx_chrv_rec.attribute2;
3710 p7_a71 := ddx_chrv_rec.attribute3;
3711 p7_a72 := ddx_chrv_rec.attribute4;
3712 p7_a73 := ddx_chrv_rec.attribute5;
3713 p7_a74 := ddx_chrv_rec.attribute6;
3714 p7_a75 := ddx_chrv_rec.attribute7;
3715 p7_a76 := ddx_chrv_rec.attribute8;
3716 p7_a77 := ddx_chrv_rec.attribute9;
3717 p7_a78 := ddx_chrv_rec.attribute10;
3718 p7_a79 := ddx_chrv_rec.attribute11;
3719 p7_a80 := ddx_chrv_rec.attribute12;
3720 p7_a81 := ddx_chrv_rec.attribute13;
3721 p7_a82 := ddx_chrv_rec.attribute14;
3722 p7_a83 := ddx_chrv_rec.attribute15;
3723 p7_a84 := rosetta_g_miss_num_map(ddx_chrv_rec.created_by);
3724 p7_a85 := ddx_chrv_rec.creation_date;
3725 p7_a86 := rosetta_g_miss_num_map(ddx_chrv_rec.last_updated_by);
3726 p7_a87 := ddx_chrv_rec.last_update_date;
3727 p7_a88 := rosetta_g_miss_num_map(ddx_chrv_rec.last_update_login);
3728 p7_a89 := ddx_chrv_rec.old_sts_code;
3729 p7_a90 := ddx_chrv_rec.new_sts_code;
3730 p7_a91 := ddx_chrv_rec.old_ste_code;
3731 p7_a92 := ddx_chrv_rec.new_ste_code;
3732 p7_a93 := ddx_chrv_rec.conversion_type;
3733 p7_a94 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_rate);
3734 p7_a95 := ddx_chrv_rec.conversion_rate_date;
3735 p7_a96 := rosetta_g_miss_num_map(ddx_chrv_rec.conversion_euro_rate);
3736 p7_a97 := rosetta_g_miss_num_map(ddx_chrv_rec.cust_acct_id);
3737 p7_a98 := rosetta_g_miss_num_map(ddx_chrv_rec.bill_to_site_use_id);
3738 p7_a99 := rosetta_g_miss_num_map(ddx_chrv_rec.inv_rule_id);
3739 p7_a100 := ddx_chrv_rec.renewal_type_code;
3740 p7_a101 := rosetta_g_miss_num_map(ddx_chrv_rec.renewal_notify_to);
3741 p7_a102 := ddx_chrv_rec.renewal_end_date;
3742 p7_a103 := rosetta_g_miss_num_map(ddx_chrv_rec.ship_to_site_use_id);
3743 p7_a104 := rosetta_g_miss_num_map(ddx_chrv_rec.payment_term_id);
3744 end;
3745
3746 procedure delete_contract_header(p_api_version NUMBER
3747 , p_init_msg_list VARCHAR2
3748 , x_return_status out nocopy VARCHAR2
3749 , x_msg_count out nocopy NUMBER
3750 , x_msg_data out nocopy VARCHAR2
3751 , p5_a0 NUMBER := 0-1962.0724
3752 , p5_a1 NUMBER := 0-1962.0724
3753 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
3754 , p5_a3 NUMBER := 0-1962.0724
3755 , p5_a4 NUMBER := 0-1962.0724
3756 , p5_a5 NUMBER := 0-1962.0724
3757 , p5_a6 NUMBER := 0-1962.0724
3758 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
3759 , p5_a8 NUMBER := 0-1962.0724
3760 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
3761 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
3762 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
3763 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
3764 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
3765 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
3766 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
3767 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
3768 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
3769 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
3770 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
3771 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
3772 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
3773 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
3774 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
3775 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
3776 , p5_a25 DATE := fnd_api.g_miss_date
3777 , p5_a26 DATE := fnd_api.g_miss_date
3778 , p5_a27 NUMBER := 0-1962.0724
3779 , p5_a28 DATE := fnd_api.g_miss_date
3780 , p5_a29 DATE := fnd_api.g_miss_date
3781 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
3782 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
3783 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
3784 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
3785 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
3786 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
3787 , p5_a36 NUMBER := 0-1962.0724
3788 , p5_a37 NUMBER := 0-1962.0724
3789 , p5_a38 DATE := fnd_api.g_miss_date
3790 , p5_a39 DATE := fnd_api.g_miss_date
3791 , p5_a40 DATE := fnd_api.g_miss_date
3792 , p5_a41 DATE := fnd_api.g_miss_date
3793 , p5_a42 DATE := fnd_api.g_miss_date
3794 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
3795 , p5_a44 DATE := fnd_api.g_miss_date
3796 , p5_a45 DATE := fnd_api.g_miss_date
3797 , p5_a46 NUMBER := 0-1962.0724
3798 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
3799 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
3800 , p5_a49 NUMBER := 0-1962.0724
3801 , p5_a50 NUMBER := 0-1962.0724
3802 , p5_a51 NUMBER := 0-1962.0724
3803 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
3804 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
3805 , p5_a54 NUMBER := 0-1962.0724
3806 , p5_a55 NUMBER := 0-1962.0724
3807 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
3808 , p5_a57 NUMBER := 0-1962.0724
3809 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
3810 , p5_a59 NUMBER := 0-1962.0724
3811 , p5_a60 NUMBER := 0-1962.0724
3812 , p5_a61 NUMBER := 0-1962.0724
3813 , p5_a62 DATE := fnd_api.g_miss_date
3814 , p5_a63 DATE := fnd_api.g_miss_date
3815 , p5_a64 DATE := fnd_api.g_miss_date
3816 , p5_a65 NUMBER := 0-1962.0724
3817 , p5_a66 NUMBER := 0-1962.0724
3818 , p5_a67 NUMBER := 0-1962.0724
3819 , p5_a68 VARCHAR2 := fnd_api.g_miss_char
3820 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
3821 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
3822 , p5_a71 VARCHAR2 := fnd_api.g_miss_char
3823 , p5_a72 VARCHAR2 := fnd_api.g_miss_char
3824 , p5_a73 VARCHAR2 := fnd_api.g_miss_char
3825 , p5_a74 VARCHAR2 := fnd_api.g_miss_char
3826 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
3827 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
3828 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
3829 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
3830 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
3831 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
3832 , p5_a81 VARCHAR2 := fnd_api.g_miss_char
3833 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
3834 , p5_a83 VARCHAR2 := fnd_api.g_miss_char
3835 , p5_a84 NUMBER := 0-1962.0724
3836 , p5_a85 DATE := fnd_api.g_miss_date
3837 , p5_a86 NUMBER := 0-1962.0724
3838 , p5_a87 DATE := fnd_api.g_miss_date
3839 , p5_a88 NUMBER := 0-1962.0724
3840 , p5_a89 VARCHAR2 := fnd_api.g_miss_char
3841 , p5_a90 VARCHAR2 := fnd_api.g_miss_char
3842 , p5_a91 VARCHAR2 := fnd_api.g_miss_char
3843 , p5_a92 VARCHAR2 := fnd_api.g_miss_char
3844 , p5_a93 VARCHAR2 := fnd_api.g_miss_char
3845 , p5_a94 NUMBER := 0-1962.0724
3846 , p5_a95 DATE := fnd_api.g_miss_date
3847 , p5_a96 NUMBER := 0-1962.0724
3848 , p5_a97 NUMBER := 0-1962.0724
3849 , p5_a98 NUMBER := 0-1962.0724
3850 , p5_a99 NUMBER := 0-1962.0724
3851 , p5_a100 VARCHAR2 := fnd_api.g_miss_char
3852 , p5_a101 NUMBER := 0-1962.0724
3853 , p5_a102 DATE := fnd_api.g_miss_date
3854 , p5_a103 NUMBER := 0-1962.0724
3855 , p5_a104 NUMBER := 0-1962.0724
3856 )
3857
3858 as
3859 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
3860 ddindx binary_integer; indx binary_integer;
3861 begin
3862
3863 -- copy data to the local IN or IN-OUT args, if any
3864
3865
3866
3867
3868
3869 ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
3870 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
3871 ddp_chrv_rec.sfwt_flag := p5_a2;
3872 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
3873 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
3874 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
3875 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
3876 ddp_chrv_rec.sts_code := p5_a7;
3877 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
3878 ddp_chrv_rec.scs_code := p5_a9;
3879 ddp_chrv_rec.contract_number := p5_a10;
3880 ddp_chrv_rec.currency_code := p5_a11;
3881 ddp_chrv_rec.contract_number_modifier := p5_a12;
3882 ddp_chrv_rec.archived_yn := p5_a13;
3883 ddp_chrv_rec.deleted_yn := p5_a14;
3884 ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
3885 ddp_chrv_rec.pre_pay_req_yn := p5_a16;
3886 ddp_chrv_rec.cust_po_number := p5_a17;
3887 ddp_chrv_rec.short_description := p5_a18;
3888 ddp_chrv_rec.comments := p5_a19;
3889 ddp_chrv_rec.description := p5_a20;
3890 ddp_chrv_rec.dpas_rating := p5_a21;
3891 ddp_chrv_rec.cognomen := p5_a22;
3892 ddp_chrv_rec.template_yn := p5_a23;
3893 ddp_chrv_rec.template_used := p5_a24;
3894 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
3895 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
3896 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
3897 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
3898 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
3899 ddp_chrv_rec.non_response_reason := p5_a30;
3900 ddp_chrv_rec.non_response_explain := p5_a31;
3901 ddp_chrv_rec.rfp_type := p5_a32;
3902 ddp_chrv_rec.chr_type := p5_a33;
3903 ddp_chrv_rec.keep_on_mail_list := p5_a34;
3904 ddp_chrv_rec.set_aside_reason := p5_a35;
3905 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
3906 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
3907 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
3908 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
3909 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
3910 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
3911 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
3912 ddp_chrv_rec.trn_code := p5_a43;
3913 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
3914 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
3915 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
3916 ddp_chrv_rec.buy_or_sell := p5_a47;
3917 ddp_chrv_rec.issue_or_receive := p5_a48;
3918 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
3919 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
3920 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
3921 ddp_chrv_rec.currency_code_renewed := p5_a52;
3922 ddp_chrv_rec.upg_orig_system_ref := p5_a53;
3923 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
3924 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
3925 ddp_chrv_rec.orig_system_source_code := p5_a56;
3926 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
3927 ddp_chrv_rec.orig_system_reference1 := p5_a58;
3928 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
3929 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
3930 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
3931 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
3932 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
3933 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
3934 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
3935 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
3936 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
3937 ddp_chrv_rec.attribute_category := p5_a68;
3938 ddp_chrv_rec.attribute1 := p5_a69;
3939 ddp_chrv_rec.attribute2 := p5_a70;
3940 ddp_chrv_rec.attribute3 := p5_a71;
3941 ddp_chrv_rec.attribute4 := p5_a72;
3942 ddp_chrv_rec.attribute5 := p5_a73;
3943 ddp_chrv_rec.attribute6 := p5_a74;
3944 ddp_chrv_rec.attribute7 := p5_a75;
3945 ddp_chrv_rec.attribute8 := p5_a76;
3946 ddp_chrv_rec.attribute9 := p5_a77;
3947 ddp_chrv_rec.attribute10 := p5_a78;
3948 ddp_chrv_rec.attribute11 := p5_a79;
3949 ddp_chrv_rec.attribute12 := p5_a80;
3950 ddp_chrv_rec.attribute13 := p5_a81;
3951 ddp_chrv_rec.attribute14 := p5_a82;
3952 ddp_chrv_rec.attribute15 := p5_a83;
3953 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
3954 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
3955 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
3956 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
3957 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
3958 ddp_chrv_rec.old_sts_code := p5_a89;
3959 ddp_chrv_rec.new_sts_code := p5_a90;
3960 ddp_chrv_rec.old_ste_code := p5_a91;
3961 ddp_chrv_rec.new_ste_code := p5_a92;
3962 ddp_chrv_rec.conversion_type := p5_a93;
3963 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
3964 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
3965 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
3966 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
3967 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
3968 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
3969 ddp_chrv_rec.renewal_type_code := p5_a100;
3970 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
3971 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
3972 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
3973 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
3974
3975 -- here's the delegated call to the old PL/SQL routine
3976 okl_okc_migration_pvt.delete_contract_header(p_api_version,
3977 p_init_msg_list,
3978 x_return_status,
3979 x_msg_count,
3980 x_msg_data,
3981 ddp_chrv_rec);
3982
3983 -- copy data back from the local variables to OUT or IN-OUT args, if any
3984
3985
3986
3987
3988
3989 end;
3990
3991 procedure lock_contract_header(p_api_version NUMBER
3992 , p_init_msg_list VARCHAR2
3993 , x_return_status out nocopy VARCHAR2
3994 , x_msg_count out nocopy NUMBER
3995 , x_msg_data out nocopy VARCHAR2
3996 , p5_a0 NUMBER := 0-1962.0724
3997 , p5_a1 NUMBER := 0-1962.0724
3998 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
3999 , p5_a3 NUMBER := 0-1962.0724
4000 , p5_a4 NUMBER := 0-1962.0724
4001 , p5_a5 NUMBER := 0-1962.0724
4002 , p5_a6 NUMBER := 0-1962.0724
4003 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
4004 , p5_a8 NUMBER := 0-1962.0724
4005 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
4006 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
4007 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
4008 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
4009 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
4010 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
4011 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
4012 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
4013 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
4014 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
4015 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
4016 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
4017 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
4018 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
4019 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
4020 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
4021 , p5_a25 DATE := fnd_api.g_miss_date
4022 , p5_a26 DATE := fnd_api.g_miss_date
4023 , p5_a27 NUMBER := 0-1962.0724
4024 , p5_a28 DATE := fnd_api.g_miss_date
4025 , p5_a29 DATE := fnd_api.g_miss_date
4026 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
4027 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
4028 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
4029 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
4030 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
4031 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
4032 , p5_a36 NUMBER := 0-1962.0724
4033 , p5_a37 NUMBER := 0-1962.0724
4034 , p5_a38 DATE := fnd_api.g_miss_date
4035 , p5_a39 DATE := fnd_api.g_miss_date
4036 , p5_a40 DATE := fnd_api.g_miss_date
4037 , p5_a41 DATE := fnd_api.g_miss_date
4038 , p5_a42 DATE := fnd_api.g_miss_date
4039 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
4040 , p5_a44 DATE := fnd_api.g_miss_date
4041 , p5_a45 DATE := fnd_api.g_miss_date
4042 , p5_a46 NUMBER := 0-1962.0724
4043 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
4044 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
4045 , p5_a49 NUMBER := 0-1962.0724
4046 , p5_a50 NUMBER := 0-1962.0724
4047 , p5_a51 NUMBER := 0-1962.0724
4048 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
4049 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
4050 , p5_a54 NUMBER := 0-1962.0724
4051 , p5_a55 NUMBER := 0-1962.0724
4052 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
4053 , p5_a57 NUMBER := 0-1962.0724
4054 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
4055 , p5_a59 NUMBER := 0-1962.0724
4056 , p5_a60 NUMBER := 0-1962.0724
4057 , p5_a61 NUMBER := 0-1962.0724
4058 , p5_a62 DATE := fnd_api.g_miss_date
4059 , p5_a63 DATE := fnd_api.g_miss_date
4060 , p5_a64 DATE := fnd_api.g_miss_date
4061 , p5_a65 NUMBER := 0-1962.0724
4062 , p5_a66 NUMBER := 0-1962.0724
4063 , p5_a67 NUMBER := 0-1962.0724
4064 , p5_a68 VARCHAR2 := fnd_api.g_miss_char
4065 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
4066 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
4067 , p5_a71 VARCHAR2 := fnd_api.g_miss_char
4068 , p5_a72 VARCHAR2 := fnd_api.g_miss_char
4069 , p5_a73 VARCHAR2 := fnd_api.g_miss_char
4070 , p5_a74 VARCHAR2 := fnd_api.g_miss_char
4071 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
4072 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
4073 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
4074 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
4075 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
4076 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
4077 , p5_a81 VARCHAR2 := fnd_api.g_miss_char
4078 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
4079 , p5_a83 VARCHAR2 := fnd_api.g_miss_char
4080 , p5_a84 NUMBER := 0-1962.0724
4081 , p5_a85 DATE := fnd_api.g_miss_date
4082 , p5_a86 NUMBER := 0-1962.0724
4083 , p5_a87 DATE := fnd_api.g_miss_date
4084 , p5_a88 NUMBER := 0-1962.0724
4085 , p5_a89 VARCHAR2 := fnd_api.g_miss_char
4086 , p5_a90 VARCHAR2 := fnd_api.g_miss_char
4087 , p5_a91 VARCHAR2 := fnd_api.g_miss_char
4088 , p5_a92 VARCHAR2 := fnd_api.g_miss_char
4089 , p5_a93 VARCHAR2 := fnd_api.g_miss_char
4090 , p5_a94 NUMBER := 0-1962.0724
4091 , p5_a95 DATE := fnd_api.g_miss_date
4092 , p5_a96 NUMBER := 0-1962.0724
4093 , p5_a97 NUMBER := 0-1962.0724
4094 , p5_a98 NUMBER := 0-1962.0724
4095 , p5_a99 NUMBER := 0-1962.0724
4096 , p5_a100 VARCHAR2 := fnd_api.g_miss_char
4097 , p5_a101 NUMBER := 0-1962.0724
4098 , p5_a102 DATE := fnd_api.g_miss_date
4099 , p5_a103 NUMBER := 0-1962.0724
4100 , p5_a104 NUMBER := 0-1962.0724
4101 )
4102
4103 as
4104 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
4105 ddindx binary_integer; indx binary_integer;
4106 begin
4107
4108 -- copy data to the local IN or IN-OUT args, if any
4109
4110
4111
4112
4113
4114 ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
4115 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4116 ddp_chrv_rec.sfwt_flag := p5_a2;
4117 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
4118 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
4119 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
4120 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
4121 ddp_chrv_rec.sts_code := p5_a7;
4122 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
4123 ddp_chrv_rec.scs_code := p5_a9;
4124 ddp_chrv_rec.contract_number := p5_a10;
4125 ddp_chrv_rec.currency_code := p5_a11;
4126 ddp_chrv_rec.contract_number_modifier := p5_a12;
4127 ddp_chrv_rec.archived_yn := p5_a13;
4128 ddp_chrv_rec.deleted_yn := p5_a14;
4129 ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
4130 ddp_chrv_rec.pre_pay_req_yn := p5_a16;
4131 ddp_chrv_rec.cust_po_number := p5_a17;
4132 ddp_chrv_rec.short_description := p5_a18;
4133 ddp_chrv_rec.comments := p5_a19;
4134 ddp_chrv_rec.description := p5_a20;
4135 ddp_chrv_rec.dpas_rating := p5_a21;
4136 ddp_chrv_rec.cognomen := p5_a22;
4137 ddp_chrv_rec.template_yn := p5_a23;
4138 ddp_chrv_rec.template_used := p5_a24;
4139 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
4140 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
4141 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
4142 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
4143 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
4144 ddp_chrv_rec.non_response_reason := p5_a30;
4145 ddp_chrv_rec.non_response_explain := p5_a31;
4146 ddp_chrv_rec.rfp_type := p5_a32;
4147 ddp_chrv_rec.chr_type := p5_a33;
4148 ddp_chrv_rec.keep_on_mail_list := p5_a34;
4149 ddp_chrv_rec.set_aside_reason := p5_a35;
4150 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
4151 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
4152 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
4153 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
4154 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
4155 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
4156 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
4157 ddp_chrv_rec.trn_code := p5_a43;
4158 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
4159 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
4160 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
4161 ddp_chrv_rec.buy_or_sell := p5_a47;
4162 ddp_chrv_rec.issue_or_receive := p5_a48;
4163 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
4164 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
4165 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
4166 ddp_chrv_rec.currency_code_renewed := p5_a52;
4167 ddp_chrv_rec.upg_orig_system_ref := p5_a53;
4168 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
4169 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
4170 ddp_chrv_rec.orig_system_source_code := p5_a56;
4171 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
4172 ddp_chrv_rec.orig_system_reference1 := p5_a58;
4173 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
4174 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
4175 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
4176 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
4177 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
4178 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
4179 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
4180 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
4181 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
4182 ddp_chrv_rec.attribute_category := p5_a68;
4183 ddp_chrv_rec.attribute1 := p5_a69;
4184 ddp_chrv_rec.attribute2 := p5_a70;
4185 ddp_chrv_rec.attribute3 := p5_a71;
4186 ddp_chrv_rec.attribute4 := p5_a72;
4187 ddp_chrv_rec.attribute5 := p5_a73;
4188 ddp_chrv_rec.attribute6 := p5_a74;
4189 ddp_chrv_rec.attribute7 := p5_a75;
4190 ddp_chrv_rec.attribute8 := p5_a76;
4191 ddp_chrv_rec.attribute9 := p5_a77;
4192 ddp_chrv_rec.attribute10 := p5_a78;
4193 ddp_chrv_rec.attribute11 := p5_a79;
4194 ddp_chrv_rec.attribute12 := p5_a80;
4195 ddp_chrv_rec.attribute13 := p5_a81;
4196 ddp_chrv_rec.attribute14 := p5_a82;
4197 ddp_chrv_rec.attribute15 := p5_a83;
4198 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
4199 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
4200 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
4201 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
4202 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
4203 ddp_chrv_rec.old_sts_code := p5_a89;
4204 ddp_chrv_rec.new_sts_code := p5_a90;
4205 ddp_chrv_rec.old_ste_code := p5_a91;
4206 ddp_chrv_rec.new_ste_code := p5_a92;
4207 ddp_chrv_rec.conversion_type := p5_a93;
4208 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
4209 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
4210 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
4211 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
4212 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
4213 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
4214 ddp_chrv_rec.renewal_type_code := p5_a100;
4215 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
4216 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
4217 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
4218 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
4219
4220 -- here's the delegated call to the old PL/SQL routine
4221 okl_okc_migration_pvt.lock_contract_header(p_api_version,
4222 p_init_msg_list,
4223 x_return_status,
4224 x_msg_count,
4225 x_msg_data,
4226 ddp_chrv_rec);
4227
4228 -- copy data back from the local variables to OUT or IN-OUT args, if any
4229
4230
4231
4232
4233
4234 end;
4235
4236 procedure validate_contract_header(p_api_version NUMBER
4237 , p_init_msg_list VARCHAR2
4238 , x_return_status out nocopy VARCHAR2
4239 , x_msg_count out nocopy NUMBER
4240 , x_msg_data out nocopy VARCHAR2
4241 , p5_a0 NUMBER := 0-1962.0724
4242 , p5_a1 NUMBER := 0-1962.0724
4243 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
4244 , p5_a3 NUMBER := 0-1962.0724
4245 , p5_a4 NUMBER := 0-1962.0724
4246 , p5_a5 NUMBER := 0-1962.0724
4247 , p5_a6 NUMBER := 0-1962.0724
4248 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
4249 , p5_a8 NUMBER := 0-1962.0724
4250 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
4251 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
4252 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
4253 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
4254 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
4255 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
4256 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
4257 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
4258 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
4259 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
4260 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
4261 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
4262 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
4263 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
4264 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
4265 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
4266 , p5_a25 DATE := fnd_api.g_miss_date
4267 , p5_a26 DATE := fnd_api.g_miss_date
4268 , p5_a27 NUMBER := 0-1962.0724
4269 , p5_a28 DATE := fnd_api.g_miss_date
4270 , p5_a29 DATE := fnd_api.g_miss_date
4271 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
4272 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
4273 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
4274 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
4275 , p5_a34 VARCHAR2 := fnd_api.g_miss_char
4276 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
4277 , p5_a36 NUMBER := 0-1962.0724
4278 , p5_a37 NUMBER := 0-1962.0724
4279 , p5_a38 DATE := fnd_api.g_miss_date
4280 , p5_a39 DATE := fnd_api.g_miss_date
4281 , p5_a40 DATE := fnd_api.g_miss_date
4282 , p5_a41 DATE := fnd_api.g_miss_date
4283 , p5_a42 DATE := fnd_api.g_miss_date
4284 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
4285 , p5_a44 DATE := fnd_api.g_miss_date
4286 , p5_a45 DATE := fnd_api.g_miss_date
4287 , p5_a46 NUMBER := 0-1962.0724
4288 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
4289 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
4290 , p5_a49 NUMBER := 0-1962.0724
4291 , p5_a50 NUMBER := 0-1962.0724
4292 , p5_a51 NUMBER := 0-1962.0724
4293 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
4294 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
4295 , p5_a54 NUMBER := 0-1962.0724
4296 , p5_a55 NUMBER := 0-1962.0724
4297 , p5_a56 VARCHAR2 := fnd_api.g_miss_char
4298 , p5_a57 NUMBER := 0-1962.0724
4299 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
4300 , p5_a59 NUMBER := 0-1962.0724
4301 , p5_a60 NUMBER := 0-1962.0724
4302 , p5_a61 NUMBER := 0-1962.0724
4303 , p5_a62 DATE := fnd_api.g_miss_date
4304 , p5_a63 DATE := fnd_api.g_miss_date
4305 , p5_a64 DATE := fnd_api.g_miss_date
4306 , p5_a65 NUMBER := 0-1962.0724
4307 , p5_a66 NUMBER := 0-1962.0724
4308 , p5_a67 NUMBER := 0-1962.0724
4309 , p5_a68 VARCHAR2 := fnd_api.g_miss_char
4310 , p5_a69 VARCHAR2 := fnd_api.g_miss_char
4311 , p5_a70 VARCHAR2 := fnd_api.g_miss_char
4312 , p5_a71 VARCHAR2 := fnd_api.g_miss_char
4313 , p5_a72 VARCHAR2 := fnd_api.g_miss_char
4314 , p5_a73 VARCHAR2 := fnd_api.g_miss_char
4315 , p5_a74 VARCHAR2 := fnd_api.g_miss_char
4316 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
4317 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
4318 , p5_a77 VARCHAR2 := fnd_api.g_miss_char
4319 , p5_a78 VARCHAR2 := fnd_api.g_miss_char
4320 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
4321 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
4322 , p5_a81 VARCHAR2 := fnd_api.g_miss_char
4323 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
4324 , p5_a83 VARCHAR2 := fnd_api.g_miss_char
4325 , p5_a84 NUMBER := 0-1962.0724
4326 , p5_a85 DATE := fnd_api.g_miss_date
4327 , p5_a86 NUMBER := 0-1962.0724
4328 , p5_a87 DATE := fnd_api.g_miss_date
4329 , p5_a88 NUMBER := 0-1962.0724
4330 , p5_a89 VARCHAR2 := fnd_api.g_miss_char
4331 , p5_a90 VARCHAR2 := fnd_api.g_miss_char
4332 , p5_a91 VARCHAR2 := fnd_api.g_miss_char
4333 , p5_a92 VARCHAR2 := fnd_api.g_miss_char
4334 , p5_a93 VARCHAR2 := fnd_api.g_miss_char
4335 , p5_a94 NUMBER := 0-1962.0724
4336 , p5_a95 DATE := fnd_api.g_miss_date
4337 , p5_a96 NUMBER := 0-1962.0724
4338 , p5_a97 NUMBER := 0-1962.0724
4339 , p5_a98 NUMBER := 0-1962.0724
4340 , p5_a99 NUMBER := 0-1962.0724
4341 , p5_a100 VARCHAR2 := fnd_api.g_miss_char
4342 , p5_a101 NUMBER := 0-1962.0724
4343 , p5_a102 DATE := fnd_api.g_miss_date
4344 , p5_a103 NUMBER := 0-1962.0724
4345 , p5_a104 NUMBER := 0-1962.0724
4346 )
4347
4348 as
4349 ddp_chrv_rec okl_okc_migration_pvt.chrv_rec_type;
4350 ddindx binary_integer; indx binary_integer;
4351 begin
4352
4353 -- copy data to the local IN or IN-OUT args, if any
4354
4355
4356
4357
4358
4359 ddp_chrv_rec.id := rosetta_g_miss_num_map(p5_a0);
4360 ddp_chrv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
4361 ddp_chrv_rec.sfwt_flag := p5_a2;
4362 ddp_chrv_rec.chr_id_response := rosetta_g_miss_num_map(p5_a3);
4363 ddp_chrv_rec.chr_id_award := rosetta_g_miss_num_map(p5_a4);
4364 ddp_chrv_rec.chr_id_renewed := rosetta_g_miss_num_map(p5_a5);
4365 ddp_chrv_rec.inv_organization_id := rosetta_g_miss_num_map(p5_a6);
4366 ddp_chrv_rec.sts_code := p5_a7;
4367 ddp_chrv_rec.qcl_id := rosetta_g_miss_num_map(p5_a8);
4368 ddp_chrv_rec.scs_code := p5_a9;
4369 ddp_chrv_rec.contract_number := p5_a10;
4370 ddp_chrv_rec.currency_code := p5_a11;
4371 ddp_chrv_rec.contract_number_modifier := p5_a12;
4372 ddp_chrv_rec.archived_yn := p5_a13;
4373 ddp_chrv_rec.deleted_yn := p5_a14;
4374 ddp_chrv_rec.cust_po_number_req_yn := p5_a15;
4375 ddp_chrv_rec.pre_pay_req_yn := p5_a16;
4376 ddp_chrv_rec.cust_po_number := p5_a17;
4377 ddp_chrv_rec.short_description := p5_a18;
4378 ddp_chrv_rec.comments := p5_a19;
4379 ddp_chrv_rec.description := p5_a20;
4380 ddp_chrv_rec.dpas_rating := p5_a21;
4381 ddp_chrv_rec.cognomen := p5_a22;
4382 ddp_chrv_rec.template_yn := p5_a23;
4383 ddp_chrv_rec.template_used := p5_a24;
4384 ddp_chrv_rec.date_approved := rosetta_g_miss_date_in_map(p5_a25);
4385 ddp_chrv_rec.datetime_cancelled := rosetta_g_miss_date_in_map(p5_a26);
4386 ddp_chrv_rec.auto_renew_days := rosetta_g_miss_num_map(p5_a27);
4387 ddp_chrv_rec.date_issued := rosetta_g_miss_date_in_map(p5_a28);
4388 ddp_chrv_rec.datetime_responded := rosetta_g_miss_date_in_map(p5_a29);
4389 ddp_chrv_rec.non_response_reason := p5_a30;
4390 ddp_chrv_rec.non_response_explain := p5_a31;
4391 ddp_chrv_rec.rfp_type := p5_a32;
4392 ddp_chrv_rec.chr_type := p5_a33;
4393 ddp_chrv_rec.keep_on_mail_list := p5_a34;
4394 ddp_chrv_rec.set_aside_reason := p5_a35;
4395 ddp_chrv_rec.set_aside_percent := rosetta_g_miss_num_map(p5_a36);
4396 ddp_chrv_rec.response_copies_req := rosetta_g_miss_num_map(p5_a37);
4397 ddp_chrv_rec.date_close_projected := rosetta_g_miss_date_in_map(p5_a38);
4398 ddp_chrv_rec.datetime_proposed := rosetta_g_miss_date_in_map(p5_a39);
4399 ddp_chrv_rec.date_signed := rosetta_g_miss_date_in_map(p5_a40);
4400 ddp_chrv_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a41);
4401 ddp_chrv_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a42);
4402 ddp_chrv_rec.trn_code := p5_a43;
4403 ddp_chrv_rec.start_date := rosetta_g_miss_date_in_map(p5_a44);
4404 ddp_chrv_rec.end_date := rosetta_g_miss_date_in_map(p5_a45);
4405 ddp_chrv_rec.authoring_org_id := rosetta_g_miss_num_map(p5_a46);
4406 ddp_chrv_rec.buy_or_sell := p5_a47;
4407 ddp_chrv_rec.issue_or_receive := p5_a48;
4408 ddp_chrv_rec.estimated_amount := rosetta_g_miss_num_map(p5_a49);
4409 ddp_chrv_rec.chr_id_renewed_to := rosetta_g_miss_num_map(p5_a50);
4410 ddp_chrv_rec.estimated_amount_renewed := rosetta_g_miss_num_map(p5_a51);
4411 ddp_chrv_rec.currency_code_renewed := p5_a52;
4412 ddp_chrv_rec.upg_orig_system_ref := p5_a53;
4413 ddp_chrv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a54);
4414 ddp_chrv_rec.application_id := rosetta_g_miss_num_map(p5_a55);
4415 ddp_chrv_rec.orig_system_source_code := p5_a56;
4416 ddp_chrv_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a57);
4417 ddp_chrv_rec.orig_system_reference1 := p5_a58;
4418 ddp_chrv_rec.program_id := rosetta_g_miss_num_map(p5_a59);
4419 ddp_chrv_rec.request_id := rosetta_g_miss_num_map(p5_a60);
4420 ddp_chrv_rec.price_list_id := rosetta_g_miss_num_map(p5_a61);
4421 ddp_chrv_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a62);
4422 ddp_chrv_rec.sign_by_date := rosetta_g_miss_date_in_map(p5_a63);
4423 ddp_chrv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a64);
4424 ddp_chrv_rec.total_line_list_price := rosetta_g_miss_num_map(p5_a65);
4425 ddp_chrv_rec.program_application_id := rosetta_g_miss_num_map(p5_a66);
4426 ddp_chrv_rec.user_estimated_amount := rosetta_g_miss_num_map(p5_a67);
4427 ddp_chrv_rec.attribute_category := p5_a68;
4428 ddp_chrv_rec.attribute1 := p5_a69;
4429 ddp_chrv_rec.attribute2 := p5_a70;
4430 ddp_chrv_rec.attribute3 := p5_a71;
4431 ddp_chrv_rec.attribute4 := p5_a72;
4432 ddp_chrv_rec.attribute5 := p5_a73;
4433 ddp_chrv_rec.attribute6 := p5_a74;
4434 ddp_chrv_rec.attribute7 := p5_a75;
4435 ddp_chrv_rec.attribute8 := p5_a76;
4436 ddp_chrv_rec.attribute9 := p5_a77;
4437 ddp_chrv_rec.attribute10 := p5_a78;
4438 ddp_chrv_rec.attribute11 := p5_a79;
4439 ddp_chrv_rec.attribute12 := p5_a80;
4440 ddp_chrv_rec.attribute13 := p5_a81;
4441 ddp_chrv_rec.attribute14 := p5_a82;
4442 ddp_chrv_rec.attribute15 := p5_a83;
4443 ddp_chrv_rec.created_by := rosetta_g_miss_num_map(p5_a84);
4444 ddp_chrv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a85);
4445 ddp_chrv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a86);
4446 ddp_chrv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a87);
4447 ddp_chrv_rec.last_update_login := rosetta_g_miss_num_map(p5_a88);
4448 ddp_chrv_rec.old_sts_code := p5_a89;
4449 ddp_chrv_rec.new_sts_code := p5_a90;
4450 ddp_chrv_rec.old_ste_code := p5_a91;
4451 ddp_chrv_rec.new_ste_code := p5_a92;
4452 ddp_chrv_rec.conversion_type := p5_a93;
4453 ddp_chrv_rec.conversion_rate := rosetta_g_miss_num_map(p5_a94);
4454 ddp_chrv_rec.conversion_rate_date := rosetta_g_miss_date_in_map(p5_a95);
4455 ddp_chrv_rec.conversion_euro_rate := rosetta_g_miss_num_map(p5_a96);
4456 ddp_chrv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a97);
4457 ddp_chrv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a98);
4458 ddp_chrv_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a99);
4459 ddp_chrv_rec.renewal_type_code := p5_a100;
4460 ddp_chrv_rec.renewal_notify_to := rosetta_g_miss_num_map(p5_a101);
4461 ddp_chrv_rec.renewal_end_date := rosetta_g_miss_date_in_map(p5_a102);
4462 ddp_chrv_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a103);
4463 ddp_chrv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a104);
4464
4465 -- here's the delegated call to the old PL/SQL routine
4466 okl_okc_migration_pvt.validate_contract_header(p_api_version,
4467 p_init_msg_list,
4468 x_return_status,
4469 x_msg_count,
4470 x_msg_data,
4471 ddp_chrv_rec);
4472
4473 -- copy data back from the local variables to OUT or IN-OUT args, if any
4474
4475
4476
4477
4478
4479 end;
4480
4481 procedure create_contract_line(p_api_version NUMBER
4482 , p_init_msg_list VARCHAR2
4483 , x_return_status out nocopy VARCHAR2
4484 , x_msg_count out nocopy NUMBER
4485 , x_msg_data out nocopy VARCHAR2
4486 , p_restricted_update VARCHAR2
4487 , p7_a0 out nocopy NUMBER
4488 , p7_a1 out nocopy NUMBER
4489 , p7_a2 out nocopy VARCHAR2
4490 , p7_a3 out nocopy NUMBER
4491 , p7_a4 out nocopy NUMBER
4492 , p7_a5 out nocopy NUMBER
4493 , p7_a6 out nocopy NUMBER
4494 , p7_a7 out nocopy NUMBER
4495 , p7_a8 out nocopy VARCHAR2
4496 , p7_a9 out nocopy VARCHAR2
4497 , p7_a10 out nocopy NUMBER
4498 , p7_a11 out nocopy VARCHAR2
4499 , p7_a12 out nocopy NUMBER
4500 , p7_a13 out nocopy VARCHAR2
4501 , p7_a14 out nocopy VARCHAR2
4502 , p7_a15 out nocopy VARCHAR2
4503 , p7_a16 out nocopy VARCHAR2
4504 , p7_a17 out nocopy VARCHAR2
4505 , p7_a18 out nocopy NUMBER
4506 , p7_a19 out nocopy NUMBER
4507 , p7_a20 out nocopy NUMBER
4508 , p7_a21 out nocopy NUMBER
4509 , p7_a22 out nocopy VARCHAR2
4510 , p7_a23 out nocopy VARCHAR2
4511 , p7_a24 out nocopy VARCHAR2
4512 , p7_a25 out nocopy VARCHAR2
4513 , p7_a26 out nocopy VARCHAR2
4514 , p7_a27 out nocopy VARCHAR2
4515 , p7_a28 out nocopy DATE
4516 , p7_a29 out nocopy VARCHAR2
4517 , p7_a30 out nocopy DATE
4518 , p7_a31 out nocopy DATE
4519 , p7_a32 out nocopy DATE
4520 , p7_a33 out nocopy VARCHAR2
4521 , p7_a34 out nocopy NUMBER
4522 , p7_a35 out nocopy VARCHAR2
4523 , p7_a36 out nocopy NUMBER
4524 , p7_a37 out nocopy VARCHAR2
4525 , p7_a38 out nocopy VARCHAR2
4526 , p7_a39 out nocopy VARCHAR2
4527 , p7_a40 out nocopy VARCHAR2
4528 , p7_a41 out nocopy VARCHAR2
4529 , p7_a42 out nocopy VARCHAR2
4530 , p7_a43 out nocopy VARCHAR2
4531 , p7_a44 out nocopy VARCHAR2
4532 , p7_a45 out nocopy VARCHAR2
4533 , p7_a46 out nocopy VARCHAR2
4534 , p7_a47 out nocopy VARCHAR2
4535 , p7_a48 out nocopy VARCHAR2
4536 , p7_a49 out nocopy VARCHAR2
4537 , p7_a50 out nocopy VARCHAR2
4538 , p7_a51 out nocopy VARCHAR2
4539 , p7_a52 out nocopy VARCHAR2
4540 , p7_a53 out nocopy VARCHAR2
4541 , p7_a54 out nocopy NUMBER
4542 , p7_a55 out nocopy DATE
4543 , p7_a56 out nocopy NUMBER
4544 , p7_a57 out nocopy DATE
4545 , p7_a58 out nocopy VARCHAR2
4546 , p7_a59 out nocopy VARCHAR2
4547 , p7_a60 out nocopy VARCHAR2
4548 , p7_a61 out nocopy NUMBER
4549 , p7_a62 out nocopy VARCHAR2
4550 , p7_a63 out nocopy VARCHAR2
4551 , p7_a64 out nocopy VARCHAR2
4552 , p7_a65 out nocopy VARCHAR2
4553 , p7_a66 out nocopy VARCHAR2
4554 , p7_a67 out nocopy NUMBER
4555 , p7_a68 out nocopy NUMBER
4556 , p7_a69 out nocopy NUMBER
4557 , p7_a70 out nocopy DATE
4558 , p7_a71 out nocopy NUMBER
4559 , p7_a72 out nocopy DATE
4560 , p7_a73 out nocopy NUMBER
4561 , p7_a74 out nocopy NUMBER
4562 , p7_a75 out nocopy VARCHAR2
4563 , p7_a76 out nocopy VARCHAR2
4564 , p7_a77 out nocopy NUMBER
4565 , p7_a78 out nocopy NUMBER
4566 , p7_a79 out nocopy VARCHAR2
4567 , p7_a80 out nocopy VARCHAR2
4568 , p7_a81 out nocopy NUMBER
4569 , p7_a82 out nocopy VARCHAR2
4570 , p7_a83 out nocopy NUMBER
4571 , p7_a84 out nocopy NUMBER
4572 , p7_a85 out nocopy NUMBER
4573 , p7_a86 out nocopy NUMBER
4574 , p7_a87 out nocopy VARCHAR2
4575 , p7_a88 out nocopy NUMBER
4576 , p7_a89 out nocopy NUMBER
4577 , p6_a0 NUMBER := 0-1962.0724
4578 , p6_a1 NUMBER := 0-1962.0724
4579 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
4580 , p6_a3 NUMBER := 0-1962.0724
4581 , p6_a4 NUMBER := 0-1962.0724
4582 , p6_a5 NUMBER := 0-1962.0724
4583 , p6_a6 NUMBER := 0-1962.0724
4584 , p6_a7 NUMBER := 0-1962.0724
4585 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
4586 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
4587 , p6_a10 NUMBER := 0-1962.0724
4588 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
4589 , p6_a12 NUMBER := 0-1962.0724
4590 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
4591 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
4592 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
4593 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
4594 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
4595 , p6_a18 NUMBER := 0-1962.0724
4596 , p6_a19 NUMBER := 0-1962.0724
4597 , p6_a20 NUMBER := 0-1962.0724
4598 , p6_a21 NUMBER := 0-1962.0724
4599 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
4600 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
4601 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
4602 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
4603 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
4604 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
4605 , p6_a28 DATE := fnd_api.g_miss_date
4606 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
4607 , p6_a30 DATE := fnd_api.g_miss_date
4608 , p6_a31 DATE := fnd_api.g_miss_date
4609 , p6_a32 DATE := fnd_api.g_miss_date
4610 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
4611 , p6_a34 NUMBER := 0-1962.0724
4612 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
4613 , p6_a36 NUMBER := 0-1962.0724
4614 , p6_a37 VARCHAR2 := fnd_api.g_miss_char
4615 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
4616 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
4617 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
4618 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
4619 , p6_a42 VARCHAR2 := fnd_api.g_miss_char
4620 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
4621 , p6_a44 VARCHAR2 := fnd_api.g_miss_char
4622 , p6_a45 VARCHAR2 := fnd_api.g_miss_char
4623 , p6_a46 VARCHAR2 := fnd_api.g_miss_char
4624 , p6_a47 VARCHAR2 := fnd_api.g_miss_char
4625 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
4626 , p6_a49 VARCHAR2 := fnd_api.g_miss_char
4627 , p6_a50 VARCHAR2 := fnd_api.g_miss_char
4628 , p6_a51 VARCHAR2 := fnd_api.g_miss_char
4629 , p6_a52 VARCHAR2 := fnd_api.g_miss_char
4630 , p6_a53 VARCHAR2 := fnd_api.g_miss_char
4631 , p6_a54 NUMBER := 0-1962.0724
4632 , p6_a55 DATE := fnd_api.g_miss_date
4633 , p6_a56 NUMBER := 0-1962.0724
4634 , p6_a57 DATE := fnd_api.g_miss_date
4635 , p6_a58 VARCHAR2 := fnd_api.g_miss_char
4636 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
4637 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
4638 , p6_a61 NUMBER := 0-1962.0724
4639 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
4640 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
4641 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
4642 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
4643 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
4644 , p6_a67 NUMBER := 0-1962.0724
4645 , p6_a68 NUMBER := 0-1962.0724
4646 , p6_a69 NUMBER := 0-1962.0724
4647 , p6_a70 DATE := fnd_api.g_miss_date
4648 , p6_a71 NUMBER := 0-1962.0724
4649 , p6_a72 DATE := fnd_api.g_miss_date
4650 , p6_a73 NUMBER := 0-1962.0724
4651 , p6_a74 NUMBER := 0-1962.0724
4652 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
4653 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
4654 , p6_a77 NUMBER := 0-1962.0724
4655 , p6_a78 NUMBER := 0-1962.0724
4656 , p6_a79 VARCHAR2 := fnd_api.g_miss_char
4657 , p6_a80 VARCHAR2 := fnd_api.g_miss_char
4658 , p6_a81 NUMBER := 0-1962.0724
4659 , p6_a82 VARCHAR2 := fnd_api.g_miss_char
4660 , p6_a83 NUMBER := 0-1962.0724
4661 , p6_a84 NUMBER := 0-1962.0724
4662 , p6_a85 NUMBER := 0-1962.0724
4663 , p6_a86 NUMBER := 0-1962.0724
4664 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
4665 , p6_a88 NUMBER := 0-1962.0724
4666 , p6_a89 NUMBER := 0-1962.0724
4667 )
4668
4669 as
4670 ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
4671 ddx_clev_rec okl_okc_migration_pvt.clev_rec_type;
4672 ddindx binary_integer; indx binary_integer;
4673 begin
4674
4675 -- copy data to the local IN or IN-OUT args, if any
4676
4677
4678
4679
4680
4681
4682 ddp_clev_rec.id := rosetta_g_miss_num_map(p6_a0);
4683 ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
4684 ddp_clev_rec.sfwt_flag := p6_a2;
4685 ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p6_a3);
4686 ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p6_a4);
4687 ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p6_a5);
4688 ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p6_a6);
4689 ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p6_a7);
4690 ddp_clev_rec.line_number := p6_a8;
4691 ddp_clev_rec.sts_code := p6_a9;
4692 ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p6_a10);
4693 ddp_clev_rec.trn_code := p6_a11;
4694 ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p6_a12);
4695 ddp_clev_rec.comments := p6_a13;
4696 ddp_clev_rec.item_description := p6_a14;
4697 ddp_clev_rec.oke_boe_description := p6_a15;
4698 ddp_clev_rec.cognomen := p6_a16;
4699 ddp_clev_rec.hidden_ind := p6_a17;
4700 ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p6_a18);
4701 ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p6_a19);
4702 ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p6_a20);
4703 ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p6_a21);
4704 ddp_clev_rec.price_level_ind := p6_a22;
4705 ddp_clev_rec.invoice_line_level_ind := p6_a23;
4706 ddp_clev_rec.dpas_rating := p6_a24;
4707 ddp_clev_rec.block23text := p6_a25;
4708 ddp_clev_rec.exception_yn := p6_a26;
4709 ddp_clev_rec.template_used := p6_a27;
4710 ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p6_a28);
4711 ddp_clev_rec.name := p6_a29;
4712 ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p6_a30);
4713 ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p6_a31);
4714 ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p6_a32);
4715 ddp_clev_rec.upg_orig_system_ref := p6_a33;
4716 ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p6_a34);
4717 ddp_clev_rec.orig_system_source_code := p6_a35;
4718 ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p6_a36);
4719 ddp_clev_rec.orig_system_reference1 := p6_a37;
4720 ddp_clev_rec.attribute_category := p6_a38;
4721 ddp_clev_rec.attribute1 := p6_a39;
4722 ddp_clev_rec.attribute2 := p6_a40;
4723 ddp_clev_rec.attribute3 := p6_a41;
4724 ddp_clev_rec.attribute4 := p6_a42;
4725 ddp_clev_rec.attribute5 := p6_a43;
4726 ddp_clev_rec.attribute6 := p6_a44;
4727 ddp_clev_rec.attribute7 := p6_a45;
4728 ddp_clev_rec.attribute8 := p6_a46;
4729 ddp_clev_rec.attribute9 := p6_a47;
4730 ddp_clev_rec.attribute10 := p6_a48;
4731 ddp_clev_rec.attribute11 := p6_a49;
4732 ddp_clev_rec.attribute12 := p6_a50;
4733 ddp_clev_rec.attribute13 := p6_a51;
4734 ddp_clev_rec.attribute14 := p6_a52;
4735 ddp_clev_rec.attribute15 := p6_a53;
4736 ddp_clev_rec.created_by := rosetta_g_miss_num_map(p6_a54);
4737 ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a55);
4738 ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a56);
4739 ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a57);
4740 ddp_clev_rec.price_type := p6_a58;
4741 ddp_clev_rec.currency_code := p6_a59;
4742 ddp_clev_rec.currency_code_renewed := p6_a60;
4743 ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p6_a61);
4744 ddp_clev_rec.old_sts_code := p6_a62;
4745 ddp_clev_rec.new_sts_code := p6_a63;
4746 ddp_clev_rec.old_ste_code := p6_a64;
4747 ddp_clev_rec.new_ste_code := p6_a65;
4748 ddp_clev_rec.call_action_asmblr := p6_a66;
4749 ddp_clev_rec.request_id := rosetta_g_miss_num_map(p6_a67);
4750 ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p6_a68);
4751 ddp_clev_rec.program_id := rosetta_g_miss_num_map(p6_a69);
4752 ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a70);
4753 ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p6_a71);
4754 ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p6_a72);
4755 ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p6_a73);
4756 ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p6_a74);
4757 ddp_clev_rec.item_to_price_yn := p6_a75;
4758 ddp_clev_rec.price_basis_yn := p6_a76;
4759 ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p6_a77);
4760 ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p6_a78);
4761 ddp_clev_rec.config_complete_yn := p6_a79;
4762 ddp_clev_rec.config_valid_yn := p6_a80;
4763 ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p6_a81);
4764 ddp_clev_rec.config_item_type := p6_a82;
4765 ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p6_a83);
4766 ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p6_a84);
4767 ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p6_a85);
4768 ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p6_a86);
4769 ddp_clev_rec.line_renewal_type_code := p6_a87;
4770 ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p6_a88);
4771 ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p6_a89);
4772
4773
4774 -- here's the delegated call to the old PL/SQL routine
4775 okl_okc_migration_pvt.create_contract_line(p_api_version,
4776 p_init_msg_list,
4777 x_return_status,
4778 x_msg_count,
4779 x_msg_data,
4780 p_restricted_update,
4781 ddp_clev_rec,
4782 ddx_clev_rec);
4783
4784 -- copy data back from the local variables to OUT or IN-OUT args, if any
4785
4786
4787
4788
4789
4790
4791
4792 p7_a0 := rosetta_g_miss_num_map(ddx_clev_rec.id);
4793 p7_a1 := rosetta_g_miss_num_map(ddx_clev_rec.object_version_number);
4794 p7_a2 := ddx_clev_rec.sfwt_flag;
4795 p7_a3 := rosetta_g_miss_num_map(ddx_clev_rec.chr_id);
4796 p7_a4 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id);
4797 p7_a5 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed);
4798 p7_a6 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed_to);
4799 p7_a7 := rosetta_g_miss_num_map(ddx_clev_rec.lse_id);
4800 p7_a8 := ddx_clev_rec.line_number;
4801 p7_a9 := ddx_clev_rec.sts_code;
4802 p7_a10 := rosetta_g_miss_num_map(ddx_clev_rec.display_sequence);
4803 p7_a11 := ddx_clev_rec.trn_code;
4804 p7_a12 := rosetta_g_miss_num_map(ddx_clev_rec.dnz_chr_id);
4805 p7_a13 := ddx_clev_rec.comments;
4806 p7_a14 := ddx_clev_rec.item_description;
4807 p7_a15 := ddx_clev_rec.oke_boe_description;
4808 p7_a16 := ddx_clev_rec.cognomen;
4809 p7_a17 := ddx_clev_rec.hidden_ind;
4810 p7_a18 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit);
4811 p7_a19 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit_percent);
4812 p7_a20 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated);
4813 p7_a21 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated_renewed);
4814 p7_a22 := ddx_clev_rec.price_level_ind;
4815 p7_a23 := ddx_clev_rec.invoice_line_level_ind;
4816 p7_a24 := ddx_clev_rec.dpas_rating;
4817 p7_a25 := ddx_clev_rec.block23text;
4818 p7_a26 := ddx_clev_rec.exception_yn;
4819 p7_a27 := ddx_clev_rec.template_used;
4820 p7_a28 := ddx_clev_rec.date_terminated;
4821 p7_a29 := ddx_clev_rec.name;
4822 p7_a30 := ddx_clev_rec.start_date;
4823 p7_a31 := ddx_clev_rec.end_date;
4824 p7_a32 := ddx_clev_rec.date_renewed;
4825 p7_a33 := ddx_clev_rec.upg_orig_system_ref;
4826 p7_a34 := rosetta_g_miss_num_map(ddx_clev_rec.upg_orig_system_ref_id);
4827 p7_a35 := ddx_clev_rec.orig_system_source_code;
4828 p7_a36 := rosetta_g_miss_num_map(ddx_clev_rec.orig_system_id1);
4829 p7_a37 := ddx_clev_rec.orig_system_reference1;
4830 p7_a38 := ddx_clev_rec.attribute_category;
4831 p7_a39 := ddx_clev_rec.attribute1;
4832 p7_a40 := ddx_clev_rec.attribute2;
4833 p7_a41 := ddx_clev_rec.attribute3;
4834 p7_a42 := ddx_clev_rec.attribute4;
4835 p7_a43 := ddx_clev_rec.attribute5;
4836 p7_a44 := ddx_clev_rec.attribute6;
4837 p7_a45 := ddx_clev_rec.attribute7;
4838 p7_a46 := ddx_clev_rec.attribute8;
4839 p7_a47 := ddx_clev_rec.attribute9;
4840 p7_a48 := ddx_clev_rec.attribute10;
4841 p7_a49 := ddx_clev_rec.attribute11;
4842 p7_a50 := ddx_clev_rec.attribute12;
4843 p7_a51 := ddx_clev_rec.attribute13;
4844 p7_a52 := ddx_clev_rec.attribute14;
4845 p7_a53 := ddx_clev_rec.attribute15;
4846 p7_a54 := rosetta_g_miss_num_map(ddx_clev_rec.created_by);
4847 p7_a55 := ddx_clev_rec.creation_date;
4848 p7_a56 := rosetta_g_miss_num_map(ddx_clev_rec.last_updated_by);
4849 p7_a57 := ddx_clev_rec.last_update_date;
4850 p7_a58 := ddx_clev_rec.price_type;
4851 p7_a59 := ddx_clev_rec.currency_code;
4852 p7_a60 := ddx_clev_rec.currency_code_renewed;
4853 p7_a61 := rosetta_g_miss_num_map(ddx_clev_rec.last_update_login);
4854 p7_a62 := ddx_clev_rec.old_sts_code;
4855 p7_a63 := ddx_clev_rec.new_sts_code;
4856 p7_a64 := ddx_clev_rec.old_ste_code;
4857 p7_a65 := ddx_clev_rec.new_ste_code;
4858 p7_a66 := ddx_clev_rec.call_action_asmblr;
4859 p7_a67 := rosetta_g_miss_num_map(ddx_clev_rec.request_id);
4860 p7_a68 := rosetta_g_miss_num_map(ddx_clev_rec.program_application_id);
4861 p7_a69 := rosetta_g_miss_num_map(ddx_clev_rec.program_id);
4862 p7_a70 := ddx_clev_rec.program_update_date;
4863 p7_a71 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_id);
4864 p7_a72 := ddx_clev_rec.pricing_date;
4865 p7_a73 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_line_id);
4866 p7_a74 := rosetta_g_miss_num_map(ddx_clev_rec.line_list_price);
4867 p7_a75 := ddx_clev_rec.item_to_price_yn;
4868 p7_a76 := ddx_clev_rec.price_basis_yn;
4869 p7_a77 := rosetta_g_miss_num_map(ddx_clev_rec.config_header_id);
4870 p7_a78 := rosetta_g_miss_num_map(ddx_clev_rec.config_revision_number);
4871 p7_a79 := ddx_clev_rec.config_complete_yn;
4872 p7_a80 := ddx_clev_rec.config_valid_yn;
4873 p7_a81 := rosetta_g_miss_num_map(ddx_clev_rec.config_top_model_line_id);
4874 p7_a82 := ddx_clev_rec.config_item_type;
4875 p7_a83 := rosetta_g_miss_num_map(ddx_clev_rec.config_item_id);
4876 p7_a84 := rosetta_g_miss_num_map(ddx_clev_rec.cust_acct_id);
4877 p7_a85 := rosetta_g_miss_num_map(ddx_clev_rec.bill_to_site_use_id);
4878 p7_a86 := rosetta_g_miss_num_map(ddx_clev_rec.inv_rule_id);
4879 p7_a87 := ddx_clev_rec.line_renewal_type_code;
4880 p7_a88 := rosetta_g_miss_num_map(ddx_clev_rec.ship_to_site_use_id);
4881 p7_a89 := rosetta_g_miss_num_map(ddx_clev_rec.payment_term_id);
4882 end;
4883
4884 procedure create_contract_line(p_api_version NUMBER
4885 , p_init_msg_list VARCHAR2
4886 , x_return_status out nocopy VARCHAR2
4887 , x_msg_count out nocopy NUMBER
4888 , x_msg_data out nocopy VARCHAR2
4889 , p_restricted_update VARCHAR2
4890 , p6_a0 JTF_NUMBER_TABLE
4891 , p6_a1 JTF_NUMBER_TABLE
4892 , p6_a2 JTF_VARCHAR2_TABLE_100
4893 , p6_a3 JTF_NUMBER_TABLE
4894 , p6_a4 JTF_NUMBER_TABLE
4895 , p6_a5 JTF_NUMBER_TABLE
4896 , p6_a6 JTF_NUMBER_TABLE
4897 , p6_a7 JTF_NUMBER_TABLE
4898 , p6_a8 JTF_VARCHAR2_TABLE_200
4899 , p6_a9 JTF_VARCHAR2_TABLE_100
4900 , p6_a10 JTF_NUMBER_TABLE
4901 , p6_a11 JTF_VARCHAR2_TABLE_100
4902 , p6_a12 JTF_NUMBER_TABLE
4903 , p6_a13 JTF_VARCHAR2_TABLE_2000
4904 , p6_a14 JTF_VARCHAR2_TABLE_2000
4905 , p6_a15 JTF_VARCHAR2_TABLE_2000
4906 , p6_a16 JTF_VARCHAR2_TABLE_300
4907 , p6_a17 JTF_VARCHAR2_TABLE_100
4908 , p6_a18 JTF_NUMBER_TABLE
4909 , p6_a19 JTF_NUMBER_TABLE
4910 , p6_a20 JTF_NUMBER_TABLE
4911 , p6_a21 JTF_NUMBER_TABLE
4912 , p6_a22 JTF_VARCHAR2_TABLE_100
4913 , p6_a23 JTF_VARCHAR2_TABLE_100
4914 , p6_a24 JTF_VARCHAR2_TABLE_100
4915 , p6_a25 JTF_VARCHAR2_TABLE_2000
4916 , p6_a26 JTF_VARCHAR2_TABLE_100
4917 , p6_a27 JTF_VARCHAR2_TABLE_200
4918 , p6_a28 JTF_DATE_TABLE
4919 , p6_a29 JTF_VARCHAR2_TABLE_200
4920 , p6_a30 JTF_DATE_TABLE
4921 , p6_a31 JTF_DATE_TABLE
4922 , p6_a32 JTF_DATE_TABLE
4923 , p6_a33 JTF_VARCHAR2_TABLE_100
4924 , p6_a34 JTF_NUMBER_TABLE
4925 , p6_a35 JTF_VARCHAR2_TABLE_100
4926 , p6_a36 JTF_NUMBER_TABLE
4927 , p6_a37 JTF_VARCHAR2_TABLE_100
4928 , p6_a38 JTF_VARCHAR2_TABLE_100
4929 , p6_a39 JTF_VARCHAR2_TABLE_500
4930 , p6_a40 JTF_VARCHAR2_TABLE_500
4931 , p6_a41 JTF_VARCHAR2_TABLE_500
4932 , p6_a42 JTF_VARCHAR2_TABLE_500
4933 , p6_a43 JTF_VARCHAR2_TABLE_500
4934 , p6_a44 JTF_VARCHAR2_TABLE_500
4935 , p6_a45 JTF_VARCHAR2_TABLE_500
4936 , p6_a46 JTF_VARCHAR2_TABLE_500
4937 , p6_a47 JTF_VARCHAR2_TABLE_500
4938 , p6_a48 JTF_VARCHAR2_TABLE_500
4939 , p6_a49 JTF_VARCHAR2_TABLE_500
4940 , p6_a50 JTF_VARCHAR2_TABLE_500
4941 , p6_a51 JTF_VARCHAR2_TABLE_500
4942 , p6_a52 JTF_VARCHAR2_TABLE_500
4943 , p6_a53 JTF_VARCHAR2_TABLE_500
4944 , p6_a54 JTF_NUMBER_TABLE
4945 , p6_a55 JTF_DATE_TABLE
4946 , p6_a56 JTF_NUMBER_TABLE
4947 , p6_a57 JTF_DATE_TABLE
4948 , p6_a58 JTF_VARCHAR2_TABLE_100
4949 , p6_a59 JTF_VARCHAR2_TABLE_100
4950 , p6_a60 JTF_VARCHAR2_TABLE_100
4951 , p6_a61 JTF_NUMBER_TABLE
4952 , p6_a62 JTF_VARCHAR2_TABLE_100
4953 , p6_a63 JTF_VARCHAR2_TABLE_100
4954 , p6_a64 JTF_VARCHAR2_TABLE_100
4955 , p6_a65 JTF_VARCHAR2_TABLE_100
4956 , p6_a66 JTF_VARCHAR2_TABLE_100
4957 , p6_a67 JTF_NUMBER_TABLE
4958 , p6_a68 JTF_NUMBER_TABLE
4959 , p6_a69 JTF_NUMBER_TABLE
4960 , p6_a70 JTF_DATE_TABLE
4961 , p6_a71 JTF_NUMBER_TABLE
4962 , p6_a72 JTF_DATE_TABLE
4963 , p6_a73 JTF_NUMBER_TABLE
4964 , p6_a74 JTF_NUMBER_TABLE
4965 , p6_a75 JTF_VARCHAR2_TABLE_100
4966 , p6_a76 JTF_VARCHAR2_TABLE_100
4967 , p6_a77 JTF_NUMBER_TABLE
4968 , p6_a78 JTF_NUMBER_TABLE
4969 , p6_a79 JTF_VARCHAR2_TABLE_100
4970 , p6_a80 JTF_VARCHAR2_TABLE_100
4971 , p6_a81 JTF_NUMBER_TABLE
4972 , p6_a82 JTF_VARCHAR2_TABLE_100
4973 , p6_a83 JTF_NUMBER_TABLE
4974 , p6_a84 JTF_NUMBER_TABLE
4975 , p6_a85 JTF_NUMBER_TABLE
4976 , p6_a86 JTF_NUMBER_TABLE
4977 , p6_a87 JTF_VARCHAR2_TABLE_100
4978 , p6_a88 JTF_NUMBER_TABLE
4979 , p6_a89 JTF_NUMBER_TABLE
4980 , p7_a0 out nocopy JTF_NUMBER_TABLE
4981 , p7_a1 out nocopy JTF_NUMBER_TABLE
4982 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
4983 , p7_a3 out nocopy JTF_NUMBER_TABLE
4984 , p7_a4 out nocopy JTF_NUMBER_TABLE
4985 , p7_a5 out nocopy JTF_NUMBER_TABLE
4986 , p7_a6 out nocopy JTF_NUMBER_TABLE
4987 , p7_a7 out nocopy JTF_NUMBER_TABLE
4988 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_200
4989 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
4990 , p7_a10 out nocopy JTF_NUMBER_TABLE
4991 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
4992 , p7_a12 out nocopy JTF_NUMBER_TABLE
4993 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_2000
4994 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_2000
4995 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_2000
4996 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_300
4997 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
4998 , p7_a18 out nocopy JTF_NUMBER_TABLE
4999 , p7_a19 out nocopy JTF_NUMBER_TABLE
5000 , p7_a20 out nocopy JTF_NUMBER_TABLE
5001 , p7_a21 out nocopy JTF_NUMBER_TABLE
5002 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
5003 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_100
5004 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_100
5005 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_2000
5006 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_100
5007 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_200
5008 , p7_a28 out nocopy JTF_DATE_TABLE
5009 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_200
5010 , p7_a30 out nocopy JTF_DATE_TABLE
5011 , p7_a31 out nocopy JTF_DATE_TABLE
5012 , p7_a32 out nocopy JTF_DATE_TABLE
5013 , p7_a33 out nocopy JTF_VARCHAR2_TABLE_100
5014 , p7_a34 out nocopy JTF_NUMBER_TABLE
5015 , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
5016 , p7_a36 out nocopy JTF_NUMBER_TABLE
5017 , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
5018 , p7_a38 out nocopy JTF_VARCHAR2_TABLE_100
5019 , p7_a39 out nocopy JTF_VARCHAR2_TABLE_500
5020 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_500
5021 , p7_a41 out nocopy JTF_VARCHAR2_TABLE_500
5022 , p7_a42 out nocopy JTF_VARCHAR2_TABLE_500
5023 , p7_a43 out nocopy JTF_VARCHAR2_TABLE_500
5024 , p7_a44 out nocopy JTF_VARCHAR2_TABLE_500
5025 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_500
5026 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_500
5027 , p7_a47 out nocopy JTF_VARCHAR2_TABLE_500
5028 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_500
5029 , p7_a49 out nocopy JTF_VARCHAR2_TABLE_500
5030 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_500
5031 , p7_a51 out nocopy JTF_VARCHAR2_TABLE_500
5032 , p7_a52 out nocopy JTF_VARCHAR2_TABLE_500
5033 , p7_a53 out nocopy JTF_VARCHAR2_TABLE_500
5034 , p7_a54 out nocopy JTF_NUMBER_TABLE
5035 , p7_a55 out nocopy JTF_DATE_TABLE
5036 , p7_a56 out nocopy JTF_NUMBER_TABLE
5037 , p7_a57 out nocopy JTF_DATE_TABLE
5038 , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
5039 , p7_a59 out nocopy JTF_VARCHAR2_TABLE_100
5040 , p7_a60 out nocopy JTF_VARCHAR2_TABLE_100
5041 , p7_a61 out nocopy JTF_NUMBER_TABLE
5042 , p7_a62 out nocopy JTF_VARCHAR2_TABLE_100
5043 , p7_a63 out nocopy JTF_VARCHAR2_TABLE_100
5044 , p7_a64 out nocopy JTF_VARCHAR2_TABLE_100
5045 , p7_a65 out nocopy JTF_VARCHAR2_TABLE_100
5046 , p7_a66 out nocopy JTF_VARCHAR2_TABLE_100
5047 , p7_a67 out nocopy JTF_NUMBER_TABLE
5048 , p7_a68 out nocopy JTF_NUMBER_TABLE
5049 , p7_a69 out nocopy JTF_NUMBER_TABLE
5050 , p7_a70 out nocopy JTF_DATE_TABLE
5051 , p7_a71 out nocopy JTF_NUMBER_TABLE
5052 , p7_a72 out nocopy JTF_DATE_TABLE
5053 , p7_a73 out nocopy JTF_NUMBER_TABLE
5054 , p7_a74 out nocopy JTF_NUMBER_TABLE
5055 , p7_a75 out nocopy JTF_VARCHAR2_TABLE_100
5056 , p7_a76 out nocopy JTF_VARCHAR2_TABLE_100
5057 , p7_a77 out nocopy JTF_NUMBER_TABLE
5058 , p7_a78 out nocopy JTF_NUMBER_TABLE
5059 , p7_a79 out nocopy JTF_VARCHAR2_TABLE_100
5060 , p7_a80 out nocopy JTF_VARCHAR2_TABLE_100
5061 , p7_a81 out nocopy JTF_NUMBER_TABLE
5062 , p7_a82 out nocopy JTF_VARCHAR2_TABLE_100
5063 , p7_a83 out nocopy JTF_NUMBER_TABLE
5064 , p7_a84 out nocopy JTF_NUMBER_TABLE
5065 , p7_a85 out nocopy JTF_NUMBER_TABLE
5066 , p7_a86 out nocopy JTF_NUMBER_TABLE
5067 , p7_a87 out nocopy JTF_VARCHAR2_TABLE_100
5068 , p7_a88 out nocopy JTF_NUMBER_TABLE
5069 , p7_a89 out nocopy JTF_NUMBER_TABLE
5070 )
5071
5072 as
5073 ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
5074 ddx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
5075 ddindx binary_integer; indx binary_integer;
5076 begin
5077
5078 -- copy data to the local IN or IN-OUT args, if any
5079
5080
5081
5082
5083
5084
5085 okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p6_a0
5086 , p6_a1
5087 , p6_a2
5088 , p6_a3
5089 , p6_a4
5090 , p6_a5
5091 , p6_a6
5092 , p6_a7
5093 , p6_a8
5094 , p6_a9
5095 , p6_a10
5096 , p6_a11
5097 , p6_a12
5098 , p6_a13
5099 , p6_a14
5100 , p6_a15
5101 , p6_a16
5102 , p6_a17
5103 , p6_a18
5104 , p6_a19
5105 , p6_a20
5106 , p6_a21
5107 , p6_a22
5108 , p6_a23
5109 , p6_a24
5110 , p6_a25
5111 , p6_a26
5112 , p6_a27
5113 , p6_a28
5114 , p6_a29
5115 , p6_a30
5116 , p6_a31
5117 , p6_a32
5118 , p6_a33
5119 , p6_a34
5120 , p6_a35
5121 , p6_a36
5122 , p6_a37
5123 , p6_a38
5124 , p6_a39
5125 , p6_a40
5126 , p6_a41
5127 , p6_a42
5128 , p6_a43
5129 , p6_a44
5130 , p6_a45
5131 , p6_a46
5132 , p6_a47
5133 , p6_a48
5134 , p6_a49
5135 , p6_a50
5136 , p6_a51
5137 , p6_a52
5138 , p6_a53
5139 , p6_a54
5140 , p6_a55
5141 , p6_a56
5142 , p6_a57
5143 , p6_a58
5144 , p6_a59
5145 , p6_a60
5146 , p6_a61
5147 , p6_a62
5148 , p6_a63
5149 , p6_a64
5150 , p6_a65
5151 , p6_a66
5152 , p6_a67
5153 , p6_a68
5154 , p6_a69
5155 , p6_a70
5156 , p6_a71
5157 , p6_a72
5158 , p6_a73
5159 , p6_a74
5160 , p6_a75
5161 , p6_a76
5162 , p6_a77
5163 , p6_a78
5164 , p6_a79
5165 , p6_a80
5166 , p6_a81
5167 , p6_a82
5168 , p6_a83
5169 , p6_a84
5170 , p6_a85
5171 , p6_a86
5172 , p6_a87
5173 , p6_a88
5174 , p6_a89
5175 );
5176
5177
5178 -- here's the delegated call to the old PL/SQL routine
5179 okl_okc_migration_pvt.create_contract_line(p_api_version,
5180 p_init_msg_list,
5181 x_return_status,
5182 x_msg_count,
5183 x_msg_data,
5184 p_restricted_update,
5185 ddp_clev_tbl,
5186 ddx_clev_tbl);
5187
5188 -- copy data back from the local variables to OUT or IN-OUT args, if any
5189
5190
5191
5192
5193
5194
5195
5196 okl_okc_migration_pvt_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p7_a0
5197 , p7_a1
5198 , p7_a2
5199 , p7_a3
5200 , p7_a4
5201 , p7_a5
5202 , p7_a6
5203 , p7_a7
5204 , p7_a8
5205 , p7_a9
5206 , p7_a10
5207 , p7_a11
5208 , p7_a12
5209 , p7_a13
5210 , p7_a14
5211 , p7_a15
5212 , p7_a16
5213 , p7_a17
5214 , p7_a18
5215 , p7_a19
5216 , p7_a20
5217 , p7_a21
5218 , p7_a22
5219 , p7_a23
5220 , p7_a24
5221 , p7_a25
5222 , p7_a26
5223 , p7_a27
5224 , p7_a28
5225 , p7_a29
5226 , p7_a30
5227 , p7_a31
5228 , p7_a32
5229 , p7_a33
5230 , p7_a34
5231 , p7_a35
5232 , p7_a36
5233 , p7_a37
5234 , p7_a38
5235 , p7_a39
5236 , p7_a40
5237 , p7_a41
5238 , p7_a42
5239 , p7_a43
5240 , p7_a44
5241 , p7_a45
5242 , p7_a46
5243 , p7_a47
5244 , p7_a48
5245 , p7_a49
5246 , p7_a50
5247 , p7_a51
5248 , p7_a52
5249 , p7_a53
5250 , p7_a54
5251 , p7_a55
5252 , p7_a56
5253 , p7_a57
5254 , p7_a58
5255 , p7_a59
5256 , p7_a60
5257 , p7_a61
5258 , p7_a62
5259 , p7_a63
5260 , p7_a64
5261 , p7_a65
5262 , p7_a66
5263 , p7_a67
5264 , p7_a68
5265 , p7_a69
5266 , p7_a70
5267 , p7_a71
5268 , p7_a72
5269 , p7_a73
5270 , p7_a74
5271 , p7_a75
5272 , p7_a76
5273 , p7_a77
5274 , p7_a78
5275 , p7_a79
5276 , p7_a80
5277 , p7_a81
5278 , p7_a82
5279 , p7_a83
5280 , p7_a84
5281 , p7_a85
5282 , p7_a86
5283 , p7_a87
5284 , p7_a88
5285 , p7_a89
5286 );
5287 end;
5288
5289 procedure update_contract_line(p_api_version NUMBER
5290 , p_init_msg_list VARCHAR2
5291 , x_return_status out nocopy VARCHAR2
5292 , x_msg_count out nocopy NUMBER
5293 , x_msg_data out nocopy VARCHAR2
5294 , p_restricted_update VARCHAR2
5295 , p7_a0 out nocopy NUMBER
5296 , p7_a1 out nocopy NUMBER
5297 , p7_a2 out nocopy VARCHAR2
5298 , p7_a3 out nocopy NUMBER
5299 , p7_a4 out nocopy NUMBER
5300 , p7_a5 out nocopy NUMBER
5301 , p7_a6 out nocopy NUMBER
5302 , p7_a7 out nocopy NUMBER
5303 , p7_a8 out nocopy VARCHAR2
5304 , p7_a9 out nocopy VARCHAR2
5305 , p7_a10 out nocopy NUMBER
5306 , p7_a11 out nocopy VARCHAR2
5307 , p7_a12 out nocopy NUMBER
5308 , p7_a13 out nocopy VARCHAR2
5309 , p7_a14 out nocopy VARCHAR2
5310 , p7_a15 out nocopy VARCHAR2
5311 , p7_a16 out nocopy VARCHAR2
5312 , p7_a17 out nocopy VARCHAR2
5313 , p7_a18 out nocopy NUMBER
5314 , p7_a19 out nocopy NUMBER
5315 , p7_a20 out nocopy NUMBER
5316 , p7_a21 out nocopy NUMBER
5317 , p7_a22 out nocopy VARCHAR2
5318 , p7_a23 out nocopy VARCHAR2
5319 , p7_a24 out nocopy VARCHAR2
5320 , p7_a25 out nocopy VARCHAR2
5321 , p7_a26 out nocopy VARCHAR2
5322 , p7_a27 out nocopy VARCHAR2
5323 , p7_a28 out nocopy DATE
5324 , p7_a29 out nocopy VARCHAR2
5325 , p7_a30 out nocopy DATE
5326 , p7_a31 out nocopy DATE
5327 , p7_a32 out nocopy DATE
5328 , p7_a33 out nocopy VARCHAR2
5329 , p7_a34 out nocopy NUMBER
5330 , p7_a35 out nocopy VARCHAR2
5331 , p7_a36 out nocopy NUMBER
5332 , p7_a37 out nocopy VARCHAR2
5333 , p7_a38 out nocopy VARCHAR2
5334 , p7_a39 out nocopy VARCHAR2
5335 , p7_a40 out nocopy VARCHAR2
5336 , p7_a41 out nocopy VARCHAR2
5337 , p7_a42 out nocopy VARCHAR2
5338 , p7_a43 out nocopy VARCHAR2
5339 , p7_a44 out nocopy VARCHAR2
5340 , p7_a45 out nocopy VARCHAR2
5341 , p7_a46 out nocopy VARCHAR2
5342 , p7_a47 out nocopy VARCHAR2
5343 , p7_a48 out nocopy VARCHAR2
5344 , p7_a49 out nocopy VARCHAR2
5345 , p7_a50 out nocopy VARCHAR2
5346 , p7_a51 out nocopy VARCHAR2
5347 , p7_a52 out nocopy VARCHAR2
5348 , p7_a53 out nocopy VARCHAR2
5349 , p7_a54 out nocopy NUMBER
5350 , p7_a55 out nocopy DATE
5351 , p7_a56 out nocopy NUMBER
5352 , p7_a57 out nocopy DATE
5353 , p7_a58 out nocopy VARCHAR2
5354 , p7_a59 out nocopy VARCHAR2
5355 , p7_a60 out nocopy VARCHAR2
5356 , p7_a61 out nocopy NUMBER
5357 , p7_a62 out nocopy VARCHAR2
5358 , p7_a63 out nocopy VARCHAR2
5359 , p7_a64 out nocopy VARCHAR2
5360 , p7_a65 out nocopy VARCHAR2
5361 , p7_a66 out nocopy VARCHAR2
5362 , p7_a67 out nocopy NUMBER
5363 , p7_a68 out nocopy NUMBER
5364 , p7_a69 out nocopy NUMBER
5365 , p7_a70 out nocopy DATE
5366 , p7_a71 out nocopy NUMBER
5367 , p7_a72 out nocopy DATE
5368 , p7_a73 out nocopy NUMBER
5369 , p7_a74 out nocopy NUMBER
5370 , p7_a75 out nocopy VARCHAR2
5371 , p7_a76 out nocopy VARCHAR2
5372 , p7_a77 out nocopy NUMBER
5373 , p7_a78 out nocopy NUMBER
5374 , p7_a79 out nocopy VARCHAR2
5375 , p7_a80 out nocopy VARCHAR2
5376 , p7_a81 out nocopy NUMBER
5377 , p7_a82 out nocopy VARCHAR2
5378 , p7_a83 out nocopy NUMBER
5379 , p7_a84 out nocopy NUMBER
5380 , p7_a85 out nocopy NUMBER
5381 , p7_a86 out nocopy NUMBER
5382 , p7_a87 out nocopy VARCHAR2
5383 , p7_a88 out nocopy NUMBER
5384 , p7_a89 out nocopy NUMBER
5385 , p6_a0 NUMBER := 0-1962.0724
5386 , p6_a1 NUMBER := 0-1962.0724
5387 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
5388 , p6_a3 NUMBER := 0-1962.0724
5389 , p6_a4 NUMBER := 0-1962.0724
5390 , p6_a5 NUMBER := 0-1962.0724
5391 , p6_a6 NUMBER := 0-1962.0724
5392 , p6_a7 NUMBER := 0-1962.0724
5393 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
5394 , p6_a9 VARCHAR2 := fnd_api.g_miss_char
5395 , p6_a10 NUMBER := 0-1962.0724
5396 , p6_a11 VARCHAR2 := fnd_api.g_miss_char
5397 , p6_a12 NUMBER := 0-1962.0724
5398 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
5399 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
5400 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
5401 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
5402 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
5403 , p6_a18 NUMBER := 0-1962.0724
5404 , p6_a19 NUMBER := 0-1962.0724
5405 , p6_a20 NUMBER := 0-1962.0724
5406 , p6_a21 NUMBER := 0-1962.0724
5407 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
5408 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
5409 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
5410 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
5411 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
5412 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
5413 , p6_a28 DATE := fnd_api.g_miss_date
5414 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
5415 , p6_a30 DATE := fnd_api.g_miss_date
5416 , p6_a31 DATE := fnd_api.g_miss_date
5417 , p6_a32 DATE := fnd_api.g_miss_date
5418 , p6_a33 VARCHAR2 := fnd_api.g_miss_char
5419 , p6_a34 NUMBER := 0-1962.0724
5420 , p6_a35 VARCHAR2 := fnd_api.g_miss_char
5421 , p6_a36 NUMBER := 0-1962.0724
5422 , p6_a37 VARCHAR2 := fnd_api.g_miss_char
5423 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
5424 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
5425 , p6_a40 VARCHAR2 := fnd_api.g_miss_char
5426 , p6_a41 VARCHAR2 := fnd_api.g_miss_char
5427 , p6_a42 VARCHAR2 := fnd_api.g_miss_char
5428 , p6_a43 VARCHAR2 := fnd_api.g_miss_char
5429 , p6_a44 VARCHAR2 := fnd_api.g_miss_char
5430 , p6_a45 VARCHAR2 := fnd_api.g_miss_char
5431 , p6_a46 VARCHAR2 := fnd_api.g_miss_char
5432 , p6_a47 VARCHAR2 := fnd_api.g_miss_char
5433 , p6_a48 VARCHAR2 := fnd_api.g_miss_char
5434 , p6_a49 VARCHAR2 := fnd_api.g_miss_char
5435 , p6_a50 VARCHAR2 := fnd_api.g_miss_char
5436 , p6_a51 VARCHAR2 := fnd_api.g_miss_char
5437 , p6_a52 VARCHAR2 := fnd_api.g_miss_char
5438 , p6_a53 VARCHAR2 := fnd_api.g_miss_char
5439 , p6_a54 NUMBER := 0-1962.0724
5440 , p6_a55 DATE := fnd_api.g_miss_date
5441 , p6_a56 NUMBER := 0-1962.0724
5442 , p6_a57 DATE := fnd_api.g_miss_date
5443 , p6_a58 VARCHAR2 := fnd_api.g_miss_char
5444 , p6_a59 VARCHAR2 := fnd_api.g_miss_char
5445 , p6_a60 VARCHAR2 := fnd_api.g_miss_char
5446 , p6_a61 NUMBER := 0-1962.0724
5447 , p6_a62 VARCHAR2 := fnd_api.g_miss_char
5448 , p6_a63 VARCHAR2 := fnd_api.g_miss_char
5449 , p6_a64 VARCHAR2 := fnd_api.g_miss_char
5450 , p6_a65 VARCHAR2 := fnd_api.g_miss_char
5451 , p6_a66 VARCHAR2 := fnd_api.g_miss_char
5452 , p6_a67 NUMBER := 0-1962.0724
5453 , p6_a68 NUMBER := 0-1962.0724
5454 , p6_a69 NUMBER := 0-1962.0724
5455 , p6_a70 DATE := fnd_api.g_miss_date
5456 , p6_a71 NUMBER := 0-1962.0724
5457 , p6_a72 DATE := fnd_api.g_miss_date
5458 , p6_a73 NUMBER := 0-1962.0724
5459 , p6_a74 NUMBER := 0-1962.0724
5460 , p6_a75 VARCHAR2 := fnd_api.g_miss_char
5461 , p6_a76 VARCHAR2 := fnd_api.g_miss_char
5462 , p6_a77 NUMBER := 0-1962.0724
5463 , p6_a78 NUMBER := 0-1962.0724
5464 , p6_a79 VARCHAR2 := fnd_api.g_miss_char
5465 , p6_a80 VARCHAR2 := fnd_api.g_miss_char
5466 , p6_a81 NUMBER := 0-1962.0724
5467 , p6_a82 VARCHAR2 := fnd_api.g_miss_char
5468 , p6_a83 NUMBER := 0-1962.0724
5469 , p6_a84 NUMBER := 0-1962.0724
5470 , p6_a85 NUMBER := 0-1962.0724
5471 , p6_a86 NUMBER := 0-1962.0724
5472 , p6_a87 VARCHAR2 := fnd_api.g_miss_char
5473 , p6_a88 NUMBER := 0-1962.0724
5474 , p6_a89 NUMBER := 0-1962.0724
5475 )
5476
5477 as
5478 ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
5479 ddx_clev_rec okl_okc_migration_pvt.clev_rec_type;
5480 ddindx binary_integer; indx binary_integer;
5481 begin
5482
5483 -- copy data to the local IN or IN-OUT args, if any
5484
5485
5486
5487
5488
5489
5490 ddp_clev_rec.id := rosetta_g_miss_num_map(p6_a0);
5491 ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
5492 ddp_clev_rec.sfwt_flag := p6_a2;
5493 ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p6_a3);
5494 ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p6_a4);
5495 ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p6_a5);
5496 ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p6_a6);
5497 ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p6_a7);
5498 ddp_clev_rec.line_number := p6_a8;
5499 ddp_clev_rec.sts_code := p6_a9;
5500 ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p6_a10);
5501 ddp_clev_rec.trn_code := p6_a11;
5502 ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p6_a12);
5503 ddp_clev_rec.comments := p6_a13;
5504 ddp_clev_rec.item_description := p6_a14;
5505 ddp_clev_rec.oke_boe_description := p6_a15;
5506 ddp_clev_rec.cognomen := p6_a16;
5507 ddp_clev_rec.hidden_ind := p6_a17;
5508 ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p6_a18);
5509 ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p6_a19);
5510 ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p6_a20);
5511 ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p6_a21);
5512 ddp_clev_rec.price_level_ind := p6_a22;
5513 ddp_clev_rec.invoice_line_level_ind := p6_a23;
5514 ddp_clev_rec.dpas_rating := p6_a24;
5515 ddp_clev_rec.block23text := p6_a25;
5516 ddp_clev_rec.exception_yn := p6_a26;
5517 ddp_clev_rec.template_used := p6_a27;
5518 ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p6_a28);
5519 ddp_clev_rec.name := p6_a29;
5520 ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p6_a30);
5521 ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p6_a31);
5522 ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p6_a32);
5523 ddp_clev_rec.upg_orig_system_ref := p6_a33;
5524 ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p6_a34);
5525 ddp_clev_rec.orig_system_source_code := p6_a35;
5526 ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p6_a36);
5527 ddp_clev_rec.orig_system_reference1 := p6_a37;
5528 ddp_clev_rec.attribute_category := p6_a38;
5529 ddp_clev_rec.attribute1 := p6_a39;
5530 ddp_clev_rec.attribute2 := p6_a40;
5531 ddp_clev_rec.attribute3 := p6_a41;
5532 ddp_clev_rec.attribute4 := p6_a42;
5533 ddp_clev_rec.attribute5 := p6_a43;
5534 ddp_clev_rec.attribute6 := p6_a44;
5535 ddp_clev_rec.attribute7 := p6_a45;
5536 ddp_clev_rec.attribute8 := p6_a46;
5537 ddp_clev_rec.attribute9 := p6_a47;
5538 ddp_clev_rec.attribute10 := p6_a48;
5539 ddp_clev_rec.attribute11 := p6_a49;
5540 ddp_clev_rec.attribute12 := p6_a50;
5541 ddp_clev_rec.attribute13 := p6_a51;
5542 ddp_clev_rec.attribute14 := p6_a52;
5543 ddp_clev_rec.attribute15 := p6_a53;
5544 ddp_clev_rec.created_by := rosetta_g_miss_num_map(p6_a54);
5545 ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p6_a55);
5546 ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p6_a56);
5547 ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a57);
5548 ddp_clev_rec.price_type := p6_a58;
5549 ddp_clev_rec.currency_code := p6_a59;
5550 ddp_clev_rec.currency_code_renewed := p6_a60;
5551 ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p6_a61);
5552 ddp_clev_rec.old_sts_code := p6_a62;
5553 ddp_clev_rec.new_sts_code := p6_a63;
5554 ddp_clev_rec.old_ste_code := p6_a64;
5555 ddp_clev_rec.new_ste_code := p6_a65;
5556 ddp_clev_rec.call_action_asmblr := p6_a66;
5557 ddp_clev_rec.request_id := rosetta_g_miss_num_map(p6_a67);
5558 ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p6_a68);
5559 ddp_clev_rec.program_id := rosetta_g_miss_num_map(p6_a69);
5560 ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p6_a70);
5561 ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p6_a71);
5562 ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p6_a72);
5563 ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p6_a73);
5564 ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p6_a74);
5565 ddp_clev_rec.item_to_price_yn := p6_a75;
5566 ddp_clev_rec.price_basis_yn := p6_a76;
5567 ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p6_a77);
5568 ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p6_a78);
5569 ddp_clev_rec.config_complete_yn := p6_a79;
5570 ddp_clev_rec.config_valid_yn := p6_a80;
5571 ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p6_a81);
5572 ddp_clev_rec.config_item_type := p6_a82;
5573 ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p6_a83);
5574 ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p6_a84);
5575 ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p6_a85);
5576 ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p6_a86);
5577 ddp_clev_rec.line_renewal_type_code := p6_a87;
5578 ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p6_a88);
5579 ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p6_a89);
5580
5581
5582 -- here's the delegated call to the old PL/SQL routine
5583 okl_okc_migration_pvt.update_contract_line(p_api_version,
5584 p_init_msg_list,
5585 x_return_status,
5586 x_msg_count,
5587 x_msg_data,
5588 p_restricted_update,
5589 ddp_clev_rec,
5590 ddx_clev_rec);
5591
5592 -- copy data back from the local variables to OUT or IN-OUT args, if any
5593
5594
5595
5596
5597
5598
5599
5600 p7_a0 := rosetta_g_miss_num_map(ddx_clev_rec.id);
5601 p7_a1 := rosetta_g_miss_num_map(ddx_clev_rec.object_version_number);
5602 p7_a2 := ddx_clev_rec.sfwt_flag;
5603 p7_a3 := rosetta_g_miss_num_map(ddx_clev_rec.chr_id);
5604 p7_a4 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id);
5605 p7_a5 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed);
5606 p7_a6 := rosetta_g_miss_num_map(ddx_clev_rec.cle_id_renewed_to);
5607 p7_a7 := rosetta_g_miss_num_map(ddx_clev_rec.lse_id);
5608 p7_a8 := ddx_clev_rec.line_number;
5609 p7_a9 := ddx_clev_rec.sts_code;
5610 p7_a10 := rosetta_g_miss_num_map(ddx_clev_rec.display_sequence);
5611 p7_a11 := ddx_clev_rec.trn_code;
5612 p7_a12 := rosetta_g_miss_num_map(ddx_clev_rec.dnz_chr_id);
5613 p7_a13 := ddx_clev_rec.comments;
5614 p7_a14 := ddx_clev_rec.item_description;
5615 p7_a15 := ddx_clev_rec.oke_boe_description;
5616 p7_a16 := ddx_clev_rec.cognomen;
5617 p7_a17 := ddx_clev_rec.hidden_ind;
5618 p7_a18 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit);
5619 p7_a19 := rosetta_g_miss_num_map(ddx_clev_rec.price_unit_percent);
5620 p7_a20 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated);
5621 p7_a21 := rosetta_g_miss_num_map(ddx_clev_rec.price_negotiated_renewed);
5622 p7_a22 := ddx_clev_rec.price_level_ind;
5623 p7_a23 := ddx_clev_rec.invoice_line_level_ind;
5624 p7_a24 := ddx_clev_rec.dpas_rating;
5625 p7_a25 := ddx_clev_rec.block23text;
5626 p7_a26 := ddx_clev_rec.exception_yn;
5627 p7_a27 := ddx_clev_rec.template_used;
5628 p7_a28 := ddx_clev_rec.date_terminated;
5629 p7_a29 := ddx_clev_rec.name;
5630 p7_a30 := ddx_clev_rec.start_date;
5631 p7_a31 := ddx_clev_rec.end_date;
5632 p7_a32 := ddx_clev_rec.date_renewed;
5633 p7_a33 := ddx_clev_rec.upg_orig_system_ref;
5634 p7_a34 := rosetta_g_miss_num_map(ddx_clev_rec.upg_orig_system_ref_id);
5635 p7_a35 := ddx_clev_rec.orig_system_source_code;
5636 p7_a36 := rosetta_g_miss_num_map(ddx_clev_rec.orig_system_id1);
5637 p7_a37 := ddx_clev_rec.orig_system_reference1;
5638 p7_a38 := ddx_clev_rec.attribute_category;
5639 p7_a39 := ddx_clev_rec.attribute1;
5640 p7_a40 := ddx_clev_rec.attribute2;
5641 p7_a41 := ddx_clev_rec.attribute3;
5642 p7_a42 := ddx_clev_rec.attribute4;
5643 p7_a43 := ddx_clev_rec.attribute5;
5644 p7_a44 := ddx_clev_rec.attribute6;
5645 p7_a45 := ddx_clev_rec.attribute7;
5646 p7_a46 := ddx_clev_rec.attribute8;
5647 p7_a47 := ddx_clev_rec.attribute9;
5648 p7_a48 := ddx_clev_rec.attribute10;
5649 p7_a49 := ddx_clev_rec.attribute11;
5650 p7_a50 := ddx_clev_rec.attribute12;
5651 p7_a51 := ddx_clev_rec.attribute13;
5652 p7_a52 := ddx_clev_rec.attribute14;
5653 p7_a53 := ddx_clev_rec.attribute15;
5654 p7_a54 := rosetta_g_miss_num_map(ddx_clev_rec.created_by);
5655 p7_a55 := ddx_clev_rec.creation_date;
5656 p7_a56 := rosetta_g_miss_num_map(ddx_clev_rec.last_updated_by);
5657 p7_a57 := ddx_clev_rec.last_update_date;
5658 p7_a58 := ddx_clev_rec.price_type;
5659 p7_a59 := ddx_clev_rec.currency_code;
5660 p7_a60 := ddx_clev_rec.currency_code_renewed;
5661 p7_a61 := rosetta_g_miss_num_map(ddx_clev_rec.last_update_login);
5662 p7_a62 := ddx_clev_rec.old_sts_code;
5663 p7_a63 := ddx_clev_rec.new_sts_code;
5664 p7_a64 := ddx_clev_rec.old_ste_code;
5665 p7_a65 := ddx_clev_rec.new_ste_code;
5666 p7_a66 := ddx_clev_rec.call_action_asmblr;
5667 p7_a67 := rosetta_g_miss_num_map(ddx_clev_rec.request_id);
5668 p7_a68 := rosetta_g_miss_num_map(ddx_clev_rec.program_application_id);
5669 p7_a69 := rosetta_g_miss_num_map(ddx_clev_rec.program_id);
5670 p7_a70 := ddx_clev_rec.program_update_date;
5671 p7_a71 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_id);
5672 p7_a72 := ddx_clev_rec.pricing_date;
5673 p7_a73 := rosetta_g_miss_num_map(ddx_clev_rec.price_list_line_id);
5674 p7_a74 := rosetta_g_miss_num_map(ddx_clev_rec.line_list_price);
5675 p7_a75 := ddx_clev_rec.item_to_price_yn;
5676 p7_a76 := ddx_clev_rec.price_basis_yn;
5677 p7_a77 := rosetta_g_miss_num_map(ddx_clev_rec.config_header_id);
5678 p7_a78 := rosetta_g_miss_num_map(ddx_clev_rec.config_revision_number);
5679 p7_a79 := ddx_clev_rec.config_complete_yn;
5680 p7_a80 := ddx_clev_rec.config_valid_yn;
5681 p7_a81 := rosetta_g_miss_num_map(ddx_clev_rec.config_top_model_line_id);
5682 p7_a82 := ddx_clev_rec.config_item_type;
5683 p7_a83 := rosetta_g_miss_num_map(ddx_clev_rec.config_item_id);
5684 p7_a84 := rosetta_g_miss_num_map(ddx_clev_rec.cust_acct_id);
5685 p7_a85 := rosetta_g_miss_num_map(ddx_clev_rec.bill_to_site_use_id);
5686 p7_a86 := rosetta_g_miss_num_map(ddx_clev_rec.inv_rule_id);
5687 p7_a87 := ddx_clev_rec.line_renewal_type_code;
5688 p7_a88 := rosetta_g_miss_num_map(ddx_clev_rec.ship_to_site_use_id);
5689 p7_a89 := rosetta_g_miss_num_map(ddx_clev_rec.payment_term_id);
5690 end;
5691
5692 procedure update_contract_line(p_api_version NUMBER
5693 , p_init_msg_list VARCHAR2
5694 , x_return_status out nocopy VARCHAR2
5695 , x_msg_count out nocopy NUMBER
5696 , x_msg_data out nocopy VARCHAR2
5697 , p_restricted_update VARCHAR2
5698 , p6_a0 JTF_NUMBER_TABLE
5699 , p6_a1 JTF_NUMBER_TABLE
5700 , p6_a2 JTF_VARCHAR2_TABLE_100
5701 , p6_a3 JTF_NUMBER_TABLE
5702 , p6_a4 JTF_NUMBER_TABLE
5703 , p6_a5 JTF_NUMBER_TABLE
5704 , p6_a6 JTF_NUMBER_TABLE
5705 , p6_a7 JTF_NUMBER_TABLE
5706 , p6_a8 JTF_VARCHAR2_TABLE_200
5707 , p6_a9 JTF_VARCHAR2_TABLE_100
5708 , p6_a10 JTF_NUMBER_TABLE
5709 , p6_a11 JTF_VARCHAR2_TABLE_100
5710 , p6_a12 JTF_NUMBER_TABLE
5711 , p6_a13 JTF_VARCHAR2_TABLE_2000
5712 , p6_a14 JTF_VARCHAR2_TABLE_2000
5713 , p6_a15 JTF_VARCHAR2_TABLE_2000
5714 , p6_a16 JTF_VARCHAR2_TABLE_300
5715 , p6_a17 JTF_VARCHAR2_TABLE_100
5716 , p6_a18 JTF_NUMBER_TABLE
5717 , p6_a19 JTF_NUMBER_TABLE
5718 , p6_a20 JTF_NUMBER_TABLE
5719 , p6_a21 JTF_NUMBER_TABLE
5720 , p6_a22 JTF_VARCHAR2_TABLE_100
5721 , p6_a23 JTF_VARCHAR2_TABLE_100
5722 , p6_a24 JTF_VARCHAR2_TABLE_100
5723 , p6_a25 JTF_VARCHAR2_TABLE_2000
5724 , p6_a26 JTF_VARCHAR2_TABLE_100
5725 , p6_a27 JTF_VARCHAR2_TABLE_200
5726 , p6_a28 JTF_DATE_TABLE
5727 , p6_a29 JTF_VARCHAR2_TABLE_200
5728 , p6_a30 JTF_DATE_TABLE
5729 , p6_a31 JTF_DATE_TABLE
5730 , p6_a32 JTF_DATE_TABLE
5731 , p6_a33 JTF_VARCHAR2_TABLE_100
5732 , p6_a34 JTF_NUMBER_TABLE
5733 , p6_a35 JTF_VARCHAR2_TABLE_100
5734 , p6_a36 JTF_NUMBER_TABLE
5735 , p6_a37 JTF_VARCHAR2_TABLE_100
5736 , p6_a38 JTF_VARCHAR2_TABLE_100
5737 , p6_a39 JTF_VARCHAR2_TABLE_500
5738 , p6_a40 JTF_VARCHAR2_TABLE_500
5739 , p6_a41 JTF_VARCHAR2_TABLE_500
5740 , p6_a42 JTF_VARCHAR2_TABLE_500
5741 , p6_a43 JTF_VARCHAR2_TABLE_500
5742 , p6_a44 JTF_VARCHAR2_TABLE_500
5743 , p6_a45 JTF_VARCHAR2_TABLE_500
5744 , p6_a46 JTF_VARCHAR2_TABLE_500
5745 , p6_a47 JTF_VARCHAR2_TABLE_500
5746 , p6_a48 JTF_VARCHAR2_TABLE_500
5747 , p6_a49 JTF_VARCHAR2_TABLE_500
5748 , p6_a50 JTF_VARCHAR2_TABLE_500
5749 , p6_a51 JTF_VARCHAR2_TABLE_500
5750 , p6_a52 JTF_VARCHAR2_TABLE_500
5751 , p6_a53 JTF_VARCHAR2_TABLE_500
5752 , p6_a54 JTF_NUMBER_TABLE
5753 , p6_a55 JTF_DATE_TABLE
5754 , p6_a56 JTF_NUMBER_TABLE
5755 , p6_a57 JTF_DATE_TABLE
5756 , p6_a58 JTF_VARCHAR2_TABLE_100
5757 , p6_a59 JTF_VARCHAR2_TABLE_100
5758 , p6_a60 JTF_VARCHAR2_TABLE_100
5759 , p6_a61 JTF_NUMBER_TABLE
5760 , p6_a62 JTF_VARCHAR2_TABLE_100
5761 , p6_a63 JTF_VARCHAR2_TABLE_100
5762 , p6_a64 JTF_VARCHAR2_TABLE_100
5763 , p6_a65 JTF_VARCHAR2_TABLE_100
5764 , p6_a66 JTF_VARCHAR2_TABLE_100
5765 , p6_a67 JTF_NUMBER_TABLE
5766 , p6_a68 JTF_NUMBER_TABLE
5767 , p6_a69 JTF_NUMBER_TABLE
5768 , p6_a70 JTF_DATE_TABLE
5769 , p6_a71 JTF_NUMBER_TABLE
5770 , p6_a72 JTF_DATE_TABLE
5771 , p6_a73 JTF_NUMBER_TABLE
5772 , p6_a74 JTF_NUMBER_TABLE
5773 , p6_a75 JTF_VARCHAR2_TABLE_100
5774 , p6_a76 JTF_VARCHAR2_TABLE_100
5775 , p6_a77 JTF_NUMBER_TABLE
5776 , p6_a78 JTF_NUMBER_TABLE
5777 , p6_a79 JTF_VARCHAR2_TABLE_100
5778 , p6_a80 JTF_VARCHAR2_TABLE_100
5779 , p6_a81 JTF_NUMBER_TABLE
5780 , p6_a82 JTF_VARCHAR2_TABLE_100
5781 , p6_a83 JTF_NUMBER_TABLE
5782 , p6_a84 JTF_NUMBER_TABLE
5783 , p6_a85 JTF_NUMBER_TABLE
5784 , p6_a86 JTF_NUMBER_TABLE
5785 , p6_a87 JTF_VARCHAR2_TABLE_100
5786 , p6_a88 JTF_NUMBER_TABLE
5787 , p6_a89 JTF_NUMBER_TABLE
5788 , p7_a0 out nocopy JTF_NUMBER_TABLE
5789 , p7_a1 out nocopy JTF_NUMBER_TABLE
5790 , p7_a2 out nocopy JTF_VARCHAR2_TABLE_100
5791 , p7_a3 out nocopy JTF_NUMBER_TABLE
5792 , p7_a4 out nocopy JTF_NUMBER_TABLE
5793 , p7_a5 out nocopy JTF_NUMBER_TABLE
5794 , p7_a6 out nocopy JTF_NUMBER_TABLE
5795 , p7_a7 out nocopy JTF_NUMBER_TABLE
5796 , p7_a8 out nocopy JTF_VARCHAR2_TABLE_200
5797 , p7_a9 out nocopy JTF_VARCHAR2_TABLE_100
5798 , p7_a10 out nocopy JTF_NUMBER_TABLE
5799 , p7_a11 out nocopy JTF_VARCHAR2_TABLE_100
5800 , p7_a12 out nocopy JTF_NUMBER_TABLE
5801 , p7_a13 out nocopy JTF_VARCHAR2_TABLE_2000
5802 , p7_a14 out nocopy JTF_VARCHAR2_TABLE_2000
5803 , p7_a15 out nocopy JTF_VARCHAR2_TABLE_2000
5804 , p7_a16 out nocopy JTF_VARCHAR2_TABLE_300
5805 , p7_a17 out nocopy JTF_VARCHAR2_TABLE_100
5806 , p7_a18 out nocopy JTF_NUMBER_TABLE
5807 , p7_a19 out nocopy JTF_NUMBER_TABLE
5808 , p7_a20 out nocopy JTF_NUMBER_TABLE
5809 , p7_a21 out nocopy JTF_NUMBER_TABLE
5810 , p7_a22 out nocopy JTF_VARCHAR2_TABLE_100
5811 , p7_a23 out nocopy JTF_VARCHAR2_TABLE_100
5812 , p7_a24 out nocopy JTF_VARCHAR2_TABLE_100
5813 , p7_a25 out nocopy JTF_VARCHAR2_TABLE_2000
5814 , p7_a26 out nocopy JTF_VARCHAR2_TABLE_100
5815 , p7_a27 out nocopy JTF_VARCHAR2_TABLE_200
5816 , p7_a28 out nocopy JTF_DATE_TABLE
5817 , p7_a29 out nocopy JTF_VARCHAR2_TABLE_200
5818 , p7_a30 out nocopy JTF_DATE_TABLE
5819 , p7_a31 out nocopy JTF_DATE_TABLE
5820 , p7_a32 out nocopy JTF_DATE_TABLE
5821 , p7_a33 out nocopy JTF_VARCHAR2_TABLE_100
5822 , p7_a34 out nocopy JTF_NUMBER_TABLE
5823 , p7_a35 out nocopy JTF_VARCHAR2_TABLE_100
5824 , p7_a36 out nocopy JTF_NUMBER_TABLE
5825 , p7_a37 out nocopy JTF_VARCHAR2_TABLE_100
5826 , p7_a38 out nocopy JTF_VARCHAR2_TABLE_100
5827 , p7_a39 out nocopy JTF_VARCHAR2_TABLE_500
5828 , p7_a40 out nocopy JTF_VARCHAR2_TABLE_500
5829 , p7_a41 out nocopy JTF_VARCHAR2_TABLE_500
5830 , p7_a42 out nocopy JTF_VARCHAR2_TABLE_500
5831 , p7_a43 out nocopy JTF_VARCHAR2_TABLE_500
5832 , p7_a44 out nocopy JTF_VARCHAR2_TABLE_500
5833 , p7_a45 out nocopy JTF_VARCHAR2_TABLE_500
5834 , p7_a46 out nocopy JTF_VARCHAR2_TABLE_500
5835 , p7_a47 out nocopy JTF_VARCHAR2_TABLE_500
5836 , p7_a48 out nocopy JTF_VARCHAR2_TABLE_500
5837 , p7_a49 out nocopy JTF_VARCHAR2_TABLE_500
5838 , p7_a50 out nocopy JTF_VARCHAR2_TABLE_500
5839 , p7_a51 out nocopy JTF_VARCHAR2_TABLE_500
5840 , p7_a52 out nocopy JTF_VARCHAR2_TABLE_500
5841 , p7_a53 out nocopy JTF_VARCHAR2_TABLE_500
5842 , p7_a54 out nocopy JTF_NUMBER_TABLE
5843 , p7_a55 out nocopy JTF_DATE_TABLE
5844 , p7_a56 out nocopy JTF_NUMBER_TABLE
5845 , p7_a57 out nocopy JTF_DATE_TABLE
5846 , p7_a58 out nocopy JTF_VARCHAR2_TABLE_100
5847 , p7_a59 out nocopy JTF_VARCHAR2_TABLE_100
5848 , p7_a60 out nocopy JTF_VARCHAR2_TABLE_100
5849 , p7_a61 out nocopy JTF_NUMBER_TABLE
5850 , p7_a62 out nocopy JTF_VARCHAR2_TABLE_100
5851 , p7_a63 out nocopy JTF_VARCHAR2_TABLE_100
5852 , p7_a64 out nocopy JTF_VARCHAR2_TABLE_100
5853 , p7_a65 out nocopy JTF_VARCHAR2_TABLE_100
5854 , p7_a66 out nocopy JTF_VARCHAR2_TABLE_100
5855 , p7_a67 out nocopy JTF_NUMBER_TABLE
5856 , p7_a68 out nocopy JTF_NUMBER_TABLE
5857 , p7_a69 out nocopy JTF_NUMBER_TABLE
5858 , p7_a70 out nocopy JTF_DATE_TABLE
5859 , p7_a71 out nocopy JTF_NUMBER_TABLE
5860 , p7_a72 out nocopy JTF_DATE_TABLE
5861 , p7_a73 out nocopy JTF_NUMBER_TABLE
5862 , p7_a74 out nocopy JTF_NUMBER_TABLE
5863 , p7_a75 out nocopy JTF_VARCHAR2_TABLE_100
5864 , p7_a76 out nocopy JTF_VARCHAR2_TABLE_100
5865 , p7_a77 out nocopy JTF_NUMBER_TABLE
5866 , p7_a78 out nocopy JTF_NUMBER_TABLE
5867 , p7_a79 out nocopy JTF_VARCHAR2_TABLE_100
5868 , p7_a80 out nocopy JTF_VARCHAR2_TABLE_100
5869 , p7_a81 out nocopy JTF_NUMBER_TABLE
5870 , p7_a82 out nocopy JTF_VARCHAR2_TABLE_100
5871 , p7_a83 out nocopy JTF_NUMBER_TABLE
5872 , p7_a84 out nocopy JTF_NUMBER_TABLE
5873 , p7_a85 out nocopy JTF_NUMBER_TABLE
5874 , p7_a86 out nocopy JTF_NUMBER_TABLE
5875 , p7_a87 out nocopy JTF_VARCHAR2_TABLE_100
5876 , p7_a88 out nocopy JTF_NUMBER_TABLE
5877 , p7_a89 out nocopy JTF_NUMBER_TABLE
5878 )
5879
5880 as
5881 ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
5882 ddx_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
5883 ddindx binary_integer; indx binary_integer;
5884 begin
5885
5886 -- copy data to the local IN or IN-OUT args, if any
5887
5888
5889
5890
5891
5892
5893 okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p6_a0
5894 , p6_a1
5895 , p6_a2
5896 , p6_a3
5897 , p6_a4
5898 , p6_a5
5899 , p6_a6
5900 , p6_a7
5901 , p6_a8
5902 , p6_a9
5903 , p6_a10
5904 , p6_a11
5905 , p6_a12
5906 , p6_a13
5907 , p6_a14
5908 , p6_a15
5909 , p6_a16
5910 , p6_a17
5911 , p6_a18
5912 , p6_a19
5913 , p6_a20
5914 , p6_a21
5915 , p6_a22
5916 , p6_a23
5917 , p6_a24
5918 , p6_a25
5919 , p6_a26
5920 , p6_a27
5921 , p6_a28
5922 , p6_a29
5923 , p6_a30
5924 , p6_a31
5925 , p6_a32
5926 , p6_a33
5927 , p6_a34
5928 , p6_a35
5929 , p6_a36
5930 , p6_a37
5931 , p6_a38
5932 , p6_a39
5933 , p6_a40
5934 , p6_a41
5935 , p6_a42
5936 , p6_a43
5937 , p6_a44
5938 , p6_a45
5939 , p6_a46
5940 , p6_a47
5941 , p6_a48
5942 , p6_a49
5943 , p6_a50
5944 , p6_a51
5945 , p6_a52
5946 , p6_a53
5947 , p6_a54
5948 , p6_a55
5949 , p6_a56
5950 , p6_a57
5951 , p6_a58
5952 , p6_a59
5953 , p6_a60
5954 , p6_a61
5955 , p6_a62
5956 , p6_a63
5957 , p6_a64
5958 , p6_a65
5959 , p6_a66
5960 , p6_a67
5961 , p6_a68
5962 , p6_a69
5963 , p6_a70
5964 , p6_a71
5965 , p6_a72
5966 , p6_a73
5967 , p6_a74
5968 , p6_a75
5969 , p6_a76
5970 , p6_a77
5971 , p6_a78
5972 , p6_a79
5973 , p6_a80
5974 , p6_a81
5975 , p6_a82
5976 , p6_a83
5977 , p6_a84
5978 , p6_a85
5979 , p6_a86
5980 , p6_a87
5981 , p6_a88
5982 , p6_a89
5983 );
5984
5985
5986 -- here's the delegated call to the old PL/SQL routine
5987 okl_okc_migration_pvt.update_contract_line(p_api_version,
5988 p_init_msg_list,
5989 x_return_status,
5990 x_msg_count,
5991 x_msg_data,
5992 p_restricted_update,
5993 ddp_clev_tbl,
5994 ddx_clev_tbl);
5995
5996 -- copy data back from the local variables to OUT or IN-OUT args, if any
5997
5998
5999
6000
6001
6002
6003
6004 okl_okc_migration_pvt_w.rosetta_table_copy_out_p5(ddx_clev_tbl, p7_a0
6005 , p7_a1
6006 , p7_a2
6007 , p7_a3
6008 , p7_a4
6009 , p7_a5
6010 , p7_a6
6011 , p7_a7
6012 , p7_a8
6013 , p7_a9
6014 , p7_a10
6015 , p7_a11
6016 , p7_a12
6017 , p7_a13
6018 , p7_a14
6019 , p7_a15
6020 , p7_a16
6021 , p7_a17
6022 , p7_a18
6023 , p7_a19
6024 , p7_a20
6025 , p7_a21
6026 , p7_a22
6027 , p7_a23
6028 , p7_a24
6029 , p7_a25
6030 , p7_a26
6031 , p7_a27
6032 , p7_a28
6033 , p7_a29
6034 , p7_a30
6035 , p7_a31
6036 , p7_a32
6037 , p7_a33
6038 , p7_a34
6039 , p7_a35
6040 , p7_a36
6041 , p7_a37
6042 , p7_a38
6043 , p7_a39
6044 , p7_a40
6045 , p7_a41
6046 , p7_a42
6047 , p7_a43
6048 , p7_a44
6049 , p7_a45
6050 , p7_a46
6051 , p7_a47
6052 , p7_a48
6053 , p7_a49
6054 , p7_a50
6055 , p7_a51
6056 , p7_a52
6057 , p7_a53
6058 , p7_a54
6059 , p7_a55
6060 , p7_a56
6061 , p7_a57
6062 , p7_a58
6063 , p7_a59
6064 , p7_a60
6065 , p7_a61
6066 , p7_a62
6067 , p7_a63
6068 , p7_a64
6069 , p7_a65
6070 , p7_a66
6071 , p7_a67
6072 , p7_a68
6073 , p7_a69
6074 , p7_a70
6075 , p7_a71
6076 , p7_a72
6077 , p7_a73
6078 , p7_a74
6079 , p7_a75
6080 , p7_a76
6081 , p7_a77
6082 , p7_a78
6083 , p7_a79
6084 , p7_a80
6085 , p7_a81
6086 , p7_a82
6087 , p7_a83
6088 , p7_a84
6089 , p7_a85
6090 , p7_a86
6091 , p7_a87
6092 , p7_a88
6093 , p7_a89
6094 );
6095 end;
6096
6097 procedure delete_contract_line(p_api_version NUMBER
6098 , p_init_msg_list VARCHAR2
6099 , x_return_status out nocopy VARCHAR2
6100 , x_msg_count out nocopy NUMBER
6101 , x_msg_data out nocopy VARCHAR2
6102 , p5_a0 NUMBER := 0-1962.0724
6103 , p5_a1 NUMBER := 0-1962.0724
6104 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
6105 , p5_a3 NUMBER := 0-1962.0724
6106 , p5_a4 NUMBER := 0-1962.0724
6107 , p5_a5 NUMBER := 0-1962.0724
6108 , p5_a6 NUMBER := 0-1962.0724
6109 , p5_a7 NUMBER := 0-1962.0724
6110 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
6111 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
6112 , p5_a10 NUMBER := 0-1962.0724
6113 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
6114 , p5_a12 NUMBER := 0-1962.0724
6115 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
6116 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
6117 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
6118 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
6119 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
6120 , p5_a18 NUMBER := 0-1962.0724
6121 , p5_a19 NUMBER := 0-1962.0724
6122 , p5_a20 NUMBER := 0-1962.0724
6123 , p5_a21 NUMBER := 0-1962.0724
6124 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
6125 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
6126 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
6127 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
6128 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
6129 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
6130 , p5_a28 DATE := fnd_api.g_miss_date
6131 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
6132 , p5_a30 DATE := fnd_api.g_miss_date
6133 , p5_a31 DATE := fnd_api.g_miss_date
6134 , p5_a32 DATE := fnd_api.g_miss_date
6135 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
6136 , p5_a34 NUMBER := 0-1962.0724
6137 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
6138 , p5_a36 NUMBER := 0-1962.0724
6139 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
6140 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
6141 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
6142 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
6143 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
6144 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
6145 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
6146 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
6147 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
6148 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
6149 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
6150 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
6151 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
6152 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
6153 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
6154 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
6155 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
6156 , p5_a54 NUMBER := 0-1962.0724
6157 , p5_a55 DATE := fnd_api.g_miss_date
6158 , p5_a56 NUMBER := 0-1962.0724
6159 , p5_a57 DATE := fnd_api.g_miss_date
6160 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
6161 , p5_a59 VARCHAR2 := fnd_api.g_miss_char
6162 , p5_a60 VARCHAR2 := fnd_api.g_miss_char
6163 , p5_a61 NUMBER := 0-1962.0724
6164 , p5_a62 VARCHAR2 := fnd_api.g_miss_char
6165 , p5_a63 VARCHAR2 := fnd_api.g_miss_char
6166 , p5_a64 VARCHAR2 := fnd_api.g_miss_char
6167 , p5_a65 VARCHAR2 := fnd_api.g_miss_char
6168 , p5_a66 VARCHAR2 := fnd_api.g_miss_char
6169 , p5_a67 NUMBER := 0-1962.0724
6170 , p5_a68 NUMBER := 0-1962.0724
6171 , p5_a69 NUMBER := 0-1962.0724
6172 , p5_a70 DATE := fnd_api.g_miss_date
6173 , p5_a71 NUMBER := 0-1962.0724
6174 , p5_a72 DATE := fnd_api.g_miss_date
6175 , p5_a73 NUMBER := 0-1962.0724
6176 , p5_a74 NUMBER := 0-1962.0724
6177 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
6178 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
6179 , p5_a77 NUMBER := 0-1962.0724
6180 , p5_a78 NUMBER := 0-1962.0724
6181 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
6182 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
6183 , p5_a81 NUMBER := 0-1962.0724
6184 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
6185 , p5_a83 NUMBER := 0-1962.0724
6186 , p5_a84 NUMBER := 0-1962.0724
6187 , p5_a85 NUMBER := 0-1962.0724
6188 , p5_a86 NUMBER := 0-1962.0724
6189 , p5_a87 VARCHAR2 := fnd_api.g_miss_char
6190 , p5_a88 NUMBER := 0-1962.0724
6191 , p5_a89 NUMBER := 0-1962.0724
6192 )
6193
6194 as
6195 ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
6196 ddindx binary_integer; indx binary_integer;
6197 begin
6198
6199 -- copy data to the local IN or IN-OUT args, if any
6200
6201
6202
6203
6204
6205 ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
6206 ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
6207 ddp_clev_rec.sfwt_flag := p5_a2;
6208 ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
6209 ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
6210 ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
6211 ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
6212 ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
6213 ddp_clev_rec.line_number := p5_a8;
6214 ddp_clev_rec.sts_code := p5_a9;
6215 ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
6216 ddp_clev_rec.trn_code := p5_a11;
6217 ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
6218 ddp_clev_rec.comments := p5_a13;
6219 ddp_clev_rec.item_description := p5_a14;
6220 ddp_clev_rec.oke_boe_description := p5_a15;
6221 ddp_clev_rec.cognomen := p5_a16;
6222 ddp_clev_rec.hidden_ind := p5_a17;
6223 ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
6224 ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
6225 ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
6226 ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
6227 ddp_clev_rec.price_level_ind := p5_a22;
6228 ddp_clev_rec.invoice_line_level_ind := p5_a23;
6229 ddp_clev_rec.dpas_rating := p5_a24;
6230 ddp_clev_rec.block23text := p5_a25;
6231 ddp_clev_rec.exception_yn := p5_a26;
6232 ddp_clev_rec.template_used := p5_a27;
6233 ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
6234 ddp_clev_rec.name := p5_a29;
6235 ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
6236 ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
6237 ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
6238 ddp_clev_rec.upg_orig_system_ref := p5_a33;
6239 ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
6240 ddp_clev_rec.orig_system_source_code := p5_a35;
6241 ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
6242 ddp_clev_rec.orig_system_reference1 := p5_a37;
6243 ddp_clev_rec.attribute_category := p5_a38;
6244 ddp_clev_rec.attribute1 := p5_a39;
6245 ddp_clev_rec.attribute2 := p5_a40;
6246 ddp_clev_rec.attribute3 := p5_a41;
6247 ddp_clev_rec.attribute4 := p5_a42;
6248 ddp_clev_rec.attribute5 := p5_a43;
6249 ddp_clev_rec.attribute6 := p5_a44;
6250 ddp_clev_rec.attribute7 := p5_a45;
6251 ddp_clev_rec.attribute8 := p5_a46;
6252 ddp_clev_rec.attribute9 := p5_a47;
6253 ddp_clev_rec.attribute10 := p5_a48;
6254 ddp_clev_rec.attribute11 := p5_a49;
6255 ddp_clev_rec.attribute12 := p5_a50;
6256 ddp_clev_rec.attribute13 := p5_a51;
6257 ddp_clev_rec.attribute14 := p5_a52;
6258 ddp_clev_rec.attribute15 := p5_a53;
6259 ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
6260 ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
6261 ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
6262 ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
6263 ddp_clev_rec.price_type := p5_a58;
6264 ddp_clev_rec.currency_code := p5_a59;
6265 ddp_clev_rec.currency_code_renewed := p5_a60;
6266 ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
6267 ddp_clev_rec.old_sts_code := p5_a62;
6268 ddp_clev_rec.new_sts_code := p5_a63;
6269 ddp_clev_rec.old_ste_code := p5_a64;
6270 ddp_clev_rec.new_ste_code := p5_a65;
6271 ddp_clev_rec.call_action_asmblr := p5_a66;
6272 ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
6273 ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
6274 ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
6275 ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
6276 ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
6277 ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
6278 ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
6279 ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
6280 ddp_clev_rec.item_to_price_yn := p5_a75;
6281 ddp_clev_rec.price_basis_yn := p5_a76;
6282 ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
6283 ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
6284 ddp_clev_rec.config_complete_yn := p5_a79;
6285 ddp_clev_rec.config_valid_yn := p5_a80;
6286 ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
6287 ddp_clev_rec.config_item_type := p5_a82;
6288 ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
6289 ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
6290 ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
6291 ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
6292 ddp_clev_rec.line_renewal_type_code := p5_a87;
6293 ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
6294 ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
6295
6296 -- here's the delegated call to the old PL/SQL routine
6297 okl_okc_migration_pvt.delete_contract_line(p_api_version,
6298 p_init_msg_list,
6299 x_return_status,
6300 x_msg_count,
6301 x_msg_data,
6302 ddp_clev_rec);
6303
6304 -- copy data back from the local variables to OUT or IN-OUT args, if any
6305
6306
6307
6308
6309
6310 end;
6311
6312 procedure delete_contract_line(p_api_version NUMBER
6313 , p_init_msg_list VARCHAR2
6314 , x_return_status out nocopy VARCHAR2
6315 , x_msg_count out nocopy NUMBER
6316 , x_msg_data out nocopy VARCHAR2
6317 , p5_a0 JTF_NUMBER_TABLE
6318 , p5_a1 JTF_NUMBER_TABLE
6319 , p5_a2 JTF_VARCHAR2_TABLE_100
6320 , p5_a3 JTF_NUMBER_TABLE
6321 , p5_a4 JTF_NUMBER_TABLE
6322 , p5_a5 JTF_NUMBER_TABLE
6323 , p5_a6 JTF_NUMBER_TABLE
6324 , p5_a7 JTF_NUMBER_TABLE
6325 , p5_a8 JTF_VARCHAR2_TABLE_200
6326 , p5_a9 JTF_VARCHAR2_TABLE_100
6327 , p5_a10 JTF_NUMBER_TABLE
6328 , p5_a11 JTF_VARCHAR2_TABLE_100
6329 , p5_a12 JTF_NUMBER_TABLE
6330 , p5_a13 JTF_VARCHAR2_TABLE_2000
6331 , p5_a14 JTF_VARCHAR2_TABLE_2000
6332 , p5_a15 JTF_VARCHAR2_TABLE_2000
6333 , p5_a16 JTF_VARCHAR2_TABLE_300
6334 , p5_a17 JTF_VARCHAR2_TABLE_100
6335 , p5_a18 JTF_NUMBER_TABLE
6336 , p5_a19 JTF_NUMBER_TABLE
6337 , p5_a20 JTF_NUMBER_TABLE
6338 , p5_a21 JTF_NUMBER_TABLE
6339 , p5_a22 JTF_VARCHAR2_TABLE_100
6340 , p5_a23 JTF_VARCHAR2_TABLE_100
6341 , p5_a24 JTF_VARCHAR2_TABLE_100
6342 , p5_a25 JTF_VARCHAR2_TABLE_2000
6343 , p5_a26 JTF_VARCHAR2_TABLE_100
6344 , p5_a27 JTF_VARCHAR2_TABLE_200
6345 , p5_a28 JTF_DATE_TABLE
6346 , p5_a29 JTF_VARCHAR2_TABLE_200
6347 , p5_a30 JTF_DATE_TABLE
6348 , p5_a31 JTF_DATE_TABLE
6349 , p5_a32 JTF_DATE_TABLE
6350 , p5_a33 JTF_VARCHAR2_TABLE_100
6351 , p5_a34 JTF_NUMBER_TABLE
6352 , p5_a35 JTF_VARCHAR2_TABLE_100
6353 , p5_a36 JTF_NUMBER_TABLE
6354 , p5_a37 JTF_VARCHAR2_TABLE_100
6355 , p5_a38 JTF_VARCHAR2_TABLE_100
6356 , p5_a39 JTF_VARCHAR2_TABLE_500
6357 , p5_a40 JTF_VARCHAR2_TABLE_500
6358 , p5_a41 JTF_VARCHAR2_TABLE_500
6359 , p5_a42 JTF_VARCHAR2_TABLE_500
6360 , p5_a43 JTF_VARCHAR2_TABLE_500
6361 , p5_a44 JTF_VARCHAR2_TABLE_500
6362 , p5_a45 JTF_VARCHAR2_TABLE_500
6363 , p5_a46 JTF_VARCHAR2_TABLE_500
6364 , p5_a47 JTF_VARCHAR2_TABLE_500
6365 , p5_a48 JTF_VARCHAR2_TABLE_500
6366 , p5_a49 JTF_VARCHAR2_TABLE_500
6367 , p5_a50 JTF_VARCHAR2_TABLE_500
6368 , p5_a51 JTF_VARCHAR2_TABLE_500
6369 , p5_a52 JTF_VARCHAR2_TABLE_500
6370 , p5_a53 JTF_VARCHAR2_TABLE_500
6371 , p5_a54 JTF_NUMBER_TABLE
6372 , p5_a55 JTF_DATE_TABLE
6373 , p5_a56 JTF_NUMBER_TABLE
6374 , p5_a57 JTF_DATE_TABLE
6375 , p5_a58 JTF_VARCHAR2_TABLE_100
6376 , p5_a59 JTF_VARCHAR2_TABLE_100
6377 , p5_a60 JTF_VARCHAR2_TABLE_100
6378 , p5_a61 JTF_NUMBER_TABLE
6379 , p5_a62 JTF_VARCHAR2_TABLE_100
6380 , p5_a63 JTF_VARCHAR2_TABLE_100
6381 , p5_a64 JTF_VARCHAR2_TABLE_100
6382 , p5_a65 JTF_VARCHAR2_TABLE_100
6383 , p5_a66 JTF_VARCHAR2_TABLE_100
6384 , p5_a67 JTF_NUMBER_TABLE
6385 , p5_a68 JTF_NUMBER_TABLE
6386 , p5_a69 JTF_NUMBER_TABLE
6387 , p5_a70 JTF_DATE_TABLE
6388 , p5_a71 JTF_NUMBER_TABLE
6389 , p5_a72 JTF_DATE_TABLE
6390 , p5_a73 JTF_NUMBER_TABLE
6391 , p5_a74 JTF_NUMBER_TABLE
6392 , p5_a75 JTF_VARCHAR2_TABLE_100
6393 , p5_a76 JTF_VARCHAR2_TABLE_100
6394 , p5_a77 JTF_NUMBER_TABLE
6395 , p5_a78 JTF_NUMBER_TABLE
6396 , p5_a79 JTF_VARCHAR2_TABLE_100
6397 , p5_a80 JTF_VARCHAR2_TABLE_100
6398 , p5_a81 JTF_NUMBER_TABLE
6399 , p5_a82 JTF_VARCHAR2_TABLE_100
6400 , p5_a83 JTF_NUMBER_TABLE
6401 , p5_a84 JTF_NUMBER_TABLE
6402 , p5_a85 JTF_NUMBER_TABLE
6403 , p5_a86 JTF_NUMBER_TABLE
6404 , p5_a87 JTF_VARCHAR2_TABLE_100
6405 , p5_a88 JTF_NUMBER_TABLE
6406 , p5_a89 JTF_NUMBER_TABLE
6407 )
6408
6409 as
6410 ddp_clev_tbl okl_okc_migration_pvt.clev_tbl_type;
6411 ddindx binary_integer; indx binary_integer;
6412 begin
6413
6414 -- copy data to the local IN or IN-OUT args, if any
6415
6416
6417
6418
6419
6420 okl_okc_migration_pvt_w.rosetta_table_copy_in_p5(ddp_clev_tbl, p5_a0
6421 , p5_a1
6422 , p5_a2
6423 , p5_a3
6424 , p5_a4
6425 , p5_a5
6426 , p5_a6
6427 , p5_a7
6428 , p5_a8
6429 , p5_a9
6430 , p5_a10
6431 , p5_a11
6432 , p5_a12
6433 , p5_a13
6434 , p5_a14
6435 , p5_a15
6436 , p5_a16
6437 , p5_a17
6438 , p5_a18
6439 , p5_a19
6440 , p5_a20
6441 , p5_a21
6442 , p5_a22
6443 , p5_a23
6444 , p5_a24
6445 , p5_a25
6446 , p5_a26
6447 , p5_a27
6448 , p5_a28
6449 , p5_a29
6450 , p5_a30
6451 , p5_a31
6452 , p5_a32
6453 , p5_a33
6454 , p5_a34
6455 , p5_a35
6456 , p5_a36
6457 , p5_a37
6458 , p5_a38
6459 , p5_a39
6460 , p5_a40
6461 , p5_a41
6462 , p5_a42
6463 , p5_a43
6464 , p5_a44
6465 , p5_a45
6466 , p5_a46
6467 , p5_a47
6468 , p5_a48
6469 , p5_a49
6470 , p5_a50
6471 , p5_a51
6472 , p5_a52
6473 , p5_a53
6474 , p5_a54
6475 , p5_a55
6476 , p5_a56
6477 , p5_a57
6478 , p5_a58
6479 , p5_a59
6480 , p5_a60
6481 , p5_a61
6482 , p5_a62
6483 , p5_a63
6484 , p5_a64
6485 , p5_a65
6486 , p5_a66
6487 , p5_a67
6488 , p5_a68
6489 , p5_a69
6490 , p5_a70
6491 , p5_a71
6492 , p5_a72
6493 , p5_a73
6494 , p5_a74
6495 , p5_a75
6496 , p5_a76
6497 , p5_a77
6498 , p5_a78
6499 , p5_a79
6500 , p5_a80
6501 , p5_a81
6502 , p5_a82
6503 , p5_a83
6504 , p5_a84
6505 , p5_a85
6506 , p5_a86
6507 , p5_a87
6508 , p5_a88
6509 , p5_a89
6510 );
6511
6512 -- here's the delegated call to the old PL/SQL routine
6513 okl_okc_migration_pvt.delete_contract_line(p_api_version,
6514 p_init_msg_list,
6515 x_return_status,
6516 x_msg_count,
6517 x_msg_data,
6518 ddp_clev_tbl);
6519
6520 -- copy data back from the local variables to OUT or IN-OUT args, if any
6521
6522
6523
6524
6525
6526 end;
6527
6528 procedure lock_contract_line(p_api_version NUMBER
6529 , p_init_msg_list VARCHAR2
6530 , x_return_status out nocopy VARCHAR2
6531 , x_msg_count out nocopy NUMBER
6532 , x_msg_data out nocopy VARCHAR2
6533 , p5_a0 NUMBER := 0-1962.0724
6534 , p5_a1 NUMBER := 0-1962.0724
6535 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
6536 , p5_a3 NUMBER := 0-1962.0724
6537 , p5_a4 NUMBER := 0-1962.0724
6538 , p5_a5 NUMBER := 0-1962.0724
6539 , p5_a6 NUMBER := 0-1962.0724
6540 , p5_a7 NUMBER := 0-1962.0724
6541 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
6542 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
6543 , p5_a10 NUMBER := 0-1962.0724
6544 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
6545 , p5_a12 NUMBER := 0-1962.0724
6546 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
6547 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
6548 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
6549 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
6550 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
6551 , p5_a18 NUMBER := 0-1962.0724
6552 , p5_a19 NUMBER := 0-1962.0724
6553 , p5_a20 NUMBER := 0-1962.0724
6554 , p5_a21 NUMBER := 0-1962.0724
6555 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
6556 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
6557 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
6558 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
6559 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
6560 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
6561 , p5_a28 DATE := fnd_api.g_miss_date
6562 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
6563 , p5_a30 DATE := fnd_api.g_miss_date
6564 , p5_a31 DATE := fnd_api.g_miss_date
6565 , p5_a32 DATE := fnd_api.g_miss_date
6566 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
6567 , p5_a34 NUMBER := 0-1962.0724
6568 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
6569 , p5_a36 NUMBER := 0-1962.0724
6570 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
6571 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
6572 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
6573 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
6574 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
6575 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
6576 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
6577 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
6578 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
6579 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
6580 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
6581 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
6582 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
6583 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
6584 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
6585 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
6586 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
6587 , p5_a54 NUMBER := 0-1962.0724
6588 , p5_a55 DATE := fnd_api.g_miss_date
6589 , p5_a56 NUMBER := 0-1962.0724
6590 , p5_a57 DATE := fnd_api.g_miss_date
6591 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
6592 , p5_a59 VARCHAR2 := fnd_api.g_miss_char
6593 , p5_a60 VARCHAR2 := fnd_api.g_miss_char
6594 , p5_a61 NUMBER := 0-1962.0724
6595 , p5_a62 VARCHAR2 := fnd_api.g_miss_char
6596 , p5_a63 VARCHAR2 := fnd_api.g_miss_char
6597 , p5_a64 VARCHAR2 := fnd_api.g_miss_char
6598 , p5_a65 VARCHAR2 := fnd_api.g_miss_char
6599 , p5_a66 VARCHAR2 := fnd_api.g_miss_char
6600 , p5_a67 NUMBER := 0-1962.0724
6601 , p5_a68 NUMBER := 0-1962.0724
6602 , p5_a69 NUMBER := 0-1962.0724
6603 , p5_a70 DATE := fnd_api.g_miss_date
6604 , p5_a71 NUMBER := 0-1962.0724
6605 , p5_a72 DATE := fnd_api.g_miss_date
6606 , p5_a73 NUMBER := 0-1962.0724
6607 , p5_a74 NUMBER := 0-1962.0724
6608 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
6609 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
6610 , p5_a77 NUMBER := 0-1962.0724
6611 , p5_a78 NUMBER := 0-1962.0724
6612 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
6613 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
6614 , p5_a81 NUMBER := 0-1962.0724
6615 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
6616 , p5_a83 NUMBER := 0-1962.0724
6617 , p5_a84 NUMBER := 0-1962.0724
6618 , p5_a85 NUMBER := 0-1962.0724
6619 , p5_a86 NUMBER := 0-1962.0724
6620 , p5_a87 VARCHAR2 := fnd_api.g_miss_char
6621 , p5_a88 NUMBER := 0-1962.0724
6622 , p5_a89 NUMBER := 0-1962.0724
6623 )
6624
6625 as
6626 ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
6627 ddindx binary_integer; indx binary_integer;
6628 begin
6629
6630 -- copy data to the local IN or IN-OUT args, if any
6631
6632
6633
6634
6635
6636 ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
6637 ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
6638 ddp_clev_rec.sfwt_flag := p5_a2;
6639 ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
6640 ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
6641 ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
6642 ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
6643 ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
6644 ddp_clev_rec.line_number := p5_a8;
6645 ddp_clev_rec.sts_code := p5_a9;
6646 ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
6647 ddp_clev_rec.trn_code := p5_a11;
6648 ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
6649 ddp_clev_rec.comments := p5_a13;
6650 ddp_clev_rec.item_description := p5_a14;
6651 ddp_clev_rec.oke_boe_description := p5_a15;
6652 ddp_clev_rec.cognomen := p5_a16;
6653 ddp_clev_rec.hidden_ind := p5_a17;
6654 ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
6655 ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
6656 ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
6657 ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
6658 ddp_clev_rec.price_level_ind := p5_a22;
6659 ddp_clev_rec.invoice_line_level_ind := p5_a23;
6660 ddp_clev_rec.dpas_rating := p5_a24;
6661 ddp_clev_rec.block23text := p5_a25;
6662 ddp_clev_rec.exception_yn := p5_a26;
6663 ddp_clev_rec.template_used := p5_a27;
6664 ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
6665 ddp_clev_rec.name := p5_a29;
6666 ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
6667 ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
6668 ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
6669 ddp_clev_rec.upg_orig_system_ref := p5_a33;
6670 ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
6671 ddp_clev_rec.orig_system_source_code := p5_a35;
6672 ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
6673 ddp_clev_rec.orig_system_reference1 := p5_a37;
6674 ddp_clev_rec.attribute_category := p5_a38;
6675 ddp_clev_rec.attribute1 := p5_a39;
6676 ddp_clev_rec.attribute2 := p5_a40;
6677 ddp_clev_rec.attribute3 := p5_a41;
6678 ddp_clev_rec.attribute4 := p5_a42;
6679 ddp_clev_rec.attribute5 := p5_a43;
6680 ddp_clev_rec.attribute6 := p5_a44;
6681 ddp_clev_rec.attribute7 := p5_a45;
6682 ddp_clev_rec.attribute8 := p5_a46;
6683 ddp_clev_rec.attribute9 := p5_a47;
6684 ddp_clev_rec.attribute10 := p5_a48;
6685 ddp_clev_rec.attribute11 := p5_a49;
6686 ddp_clev_rec.attribute12 := p5_a50;
6687 ddp_clev_rec.attribute13 := p5_a51;
6688 ddp_clev_rec.attribute14 := p5_a52;
6689 ddp_clev_rec.attribute15 := p5_a53;
6690 ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
6691 ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
6692 ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
6693 ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
6694 ddp_clev_rec.price_type := p5_a58;
6695 ddp_clev_rec.currency_code := p5_a59;
6696 ddp_clev_rec.currency_code_renewed := p5_a60;
6697 ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
6698 ddp_clev_rec.old_sts_code := p5_a62;
6699 ddp_clev_rec.new_sts_code := p5_a63;
6700 ddp_clev_rec.old_ste_code := p5_a64;
6701 ddp_clev_rec.new_ste_code := p5_a65;
6702 ddp_clev_rec.call_action_asmblr := p5_a66;
6703 ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
6704 ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
6705 ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
6706 ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
6707 ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
6708 ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
6709 ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
6710 ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
6711 ddp_clev_rec.item_to_price_yn := p5_a75;
6712 ddp_clev_rec.price_basis_yn := p5_a76;
6713 ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
6714 ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
6715 ddp_clev_rec.config_complete_yn := p5_a79;
6716 ddp_clev_rec.config_valid_yn := p5_a80;
6717 ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
6718 ddp_clev_rec.config_item_type := p5_a82;
6719 ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
6720 ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
6721 ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
6722 ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
6723 ddp_clev_rec.line_renewal_type_code := p5_a87;
6724 ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
6725 ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
6726
6727 -- here's the delegated call to the old PL/SQL routine
6728 okl_okc_migration_pvt.lock_contract_line(p_api_version,
6729 p_init_msg_list,
6730 x_return_status,
6731 x_msg_count,
6732 x_msg_data,
6733 ddp_clev_rec);
6734
6735 -- copy data back from the local variables to OUT or IN-OUT args, if any
6736
6737
6738
6739
6740
6741 end;
6742
6743 procedure validate_contract_line(p_api_version NUMBER
6744 , p_init_msg_list VARCHAR2
6745 , x_return_status out nocopy VARCHAR2
6746 , x_msg_count out nocopy NUMBER
6747 , x_msg_data out nocopy VARCHAR2
6748 , p5_a0 NUMBER := 0-1962.0724
6749 , p5_a1 NUMBER := 0-1962.0724
6750 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
6751 , p5_a3 NUMBER := 0-1962.0724
6752 , p5_a4 NUMBER := 0-1962.0724
6753 , p5_a5 NUMBER := 0-1962.0724
6754 , p5_a6 NUMBER := 0-1962.0724
6755 , p5_a7 NUMBER := 0-1962.0724
6756 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
6757 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
6758 , p5_a10 NUMBER := 0-1962.0724
6759 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
6760 , p5_a12 NUMBER := 0-1962.0724
6761 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
6762 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
6763 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
6764 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
6765 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
6766 , p5_a18 NUMBER := 0-1962.0724
6767 , p5_a19 NUMBER := 0-1962.0724
6768 , p5_a20 NUMBER := 0-1962.0724
6769 , p5_a21 NUMBER := 0-1962.0724
6770 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
6771 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
6772 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
6773 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
6774 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
6775 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
6776 , p5_a28 DATE := fnd_api.g_miss_date
6777 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
6778 , p5_a30 DATE := fnd_api.g_miss_date
6779 , p5_a31 DATE := fnd_api.g_miss_date
6780 , p5_a32 DATE := fnd_api.g_miss_date
6781 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
6782 , p5_a34 NUMBER := 0-1962.0724
6783 , p5_a35 VARCHAR2 := fnd_api.g_miss_char
6784 , p5_a36 NUMBER := 0-1962.0724
6785 , p5_a37 VARCHAR2 := fnd_api.g_miss_char
6786 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
6787 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
6788 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
6789 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
6790 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
6791 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
6792 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
6793 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
6794 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
6795 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
6796 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
6797 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
6798 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
6799 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
6800 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
6801 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
6802 , p5_a54 NUMBER := 0-1962.0724
6803 , p5_a55 DATE := fnd_api.g_miss_date
6804 , p5_a56 NUMBER := 0-1962.0724
6805 , p5_a57 DATE := fnd_api.g_miss_date
6806 , p5_a58 VARCHAR2 := fnd_api.g_miss_char
6807 , p5_a59 VARCHAR2 := fnd_api.g_miss_char
6808 , p5_a60 VARCHAR2 := fnd_api.g_miss_char
6809 , p5_a61 NUMBER := 0-1962.0724
6810 , p5_a62 VARCHAR2 := fnd_api.g_miss_char
6811 , p5_a63 VARCHAR2 := fnd_api.g_miss_char
6812 , p5_a64 VARCHAR2 := fnd_api.g_miss_char
6813 , p5_a65 VARCHAR2 := fnd_api.g_miss_char
6814 , p5_a66 VARCHAR2 := fnd_api.g_miss_char
6815 , p5_a67 NUMBER := 0-1962.0724
6816 , p5_a68 NUMBER := 0-1962.0724
6817 , p5_a69 NUMBER := 0-1962.0724
6818 , p5_a70 DATE := fnd_api.g_miss_date
6819 , p5_a71 NUMBER := 0-1962.0724
6820 , p5_a72 DATE := fnd_api.g_miss_date
6821 , p5_a73 NUMBER := 0-1962.0724
6822 , p5_a74 NUMBER := 0-1962.0724
6823 , p5_a75 VARCHAR2 := fnd_api.g_miss_char
6824 , p5_a76 VARCHAR2 := fnd_api.g_miss_char
6825 , p5_a77 NUMBER := 0-1962.0724
6826 , p5_a78 NUMBER := 0-1962.0724
6827 , p5_a79 VARCHAR2 := fnd_api.g_miss_char
6828 , p5_a80 VARCHAR2 := fnd_api.g_miss_char
6829 , p5_a81 NUMBER := 0-1962.0724
6830 , p5_a82 VARCHAR2 := fnd_api.g_miss_char
6831 , p5_a83 NUMBER := 0-1962.0724
6832 , p5_a84 NUMBER := 0-1962.0724
6833 , p5_a85 NUMBER := 0-1962.0724
6834 , p5_a86 NUMBER := 0-1962.0724
6835 , p5_a87 VARCHAR2 := fnd_api.g_miss_char
6836 , p5_a88 NUMBER := 0-1962.0724
6837 , p5_a89 NUMBER := 0-1962.0724
6838 )
6839
6840 as
6841 ddp_clev_rec okl_okc_migration_pvt.clev_rec_type;
6842 ddindx binary_integer; indx binary_integer;
6843 begin
6844
6845 -- copy data to the local IN or IN-OUT args, if any
6846
6847
6848
6849
6850
6851 ddp_clev_rec.id := rosetta_g_miss_num_map(p5_a0);
6852 ddp_clev_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
6853 ddp_clev_rec.sfwt_flag := p5_a2;
6854 ddp_clev_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
6855 ddp_clev_rec.cle_id := rosetta_g_miss_num_map(p5_a4);
6856 ddp_clev_rec.cle_id_renewed := rosetta_g_miss_num_map(p5_a5);
6857 ddp_clev_rec.cle_id_renewed_to := rosetta_g_miss_num_map(p5_a6);
6858 ddp_clev_rec.lse_id := rosetta_g_miss_num_map(p5_a7);
6859 ddp_clev_rec.line_number := p5_a8;
6860 ddp_clev_rec.sts_code := p5_a9;
6861 ddp_clev_rec.display_sequence := rosetta_g_miss_num_map(p5_a10);
6862 ddp_clev_rec.trn_code := p5_a11;
6863 ddp_clev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a12);
6864 ddp_clev_rec.comments := p5_a13;
6865 ddp_clev_rec.item_description := p5_a14;
6866 ddp_clev_rec.oke_boe_description := p5_a15;
6867 ddp_clev_rec.cognomen := p5_a16;
6868 ddp_clev_rec.hidden_ind := p5_a17;
6869 ddp_clev_rec.price_unit := rosetta_g_miss_num_map(p5_a18);
6870 ddp_clev_rec.price_unit_percent := rosetta_g_miss_num_map(p5_a19);
6871 ddp_clev_rec.price_negotiated := rosetta_g_miss_num_map(p5_a20);
6872 ddp_clev_rec.price_negotiated_renewed := rosetta_g_miss_num_map(p5_a21);
6873 ddp_clev_rec.price_level_ind := p5_a22;
6874 ddp_clev_rec.invoice_line_level_ind := p5_a23;
6875 ddp_clev_rec.dpas_rating := p5_a24;
6876 ddp_clev_rec.block23text := p5_a25;
6877 ddp_clev_rec.exception_yn := p5_a26;
6878 ddp_clev_rec.template_used := p5_a27;
6879 ddp_clev_rec.date_terminated := rosetta_g_miss_date_in_map(p5_a28);
6880 ddp_clev_rec.name := p5_a29;
6881 ddp_clev_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
6882 ddp_clev_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
6883 ddp_clev_rec.date_renewed := rosetta_g_miss_date_in_map(p5_a32);
6884 ddp_clev_rec.upg_orig_system_ref := p5_a33;
6885 ddp_clev_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a34);
6886 ddp_clev_rec.orig_system_source_code := p5_a35;
6887 ddp_clev_rec.orig_system_id1 := rosetta_g_miss_num_map(p5_a36);
6888 ddp_clev_rec.orig_system_reference1 := p5_a37;
6889 ddp_clev_rec.attribute_category := p5_a38;
6890 ddp_clev_rec.attribute1 := p5_a39;
6891 ddp_clev_rec.attribute2 := p5_a40;
6892 ddp_clev_rec.attribute3 := p5_a41;
6893 ddp_clev_rec.attribute4 := p5_a42;
6894 ddp_clev_rec.attribute5 := p5_a43;
6895 ddp_clev_rec.attribute6 := p5_a44;
6896 ddp_clev_rec.attribute7 := p5_a45;
6897 ddp_clev_rec.attribute8 := p5_a46;
6898 ddp_clev_rec.attribute9 := p5_a47;
6899 ddp_clev_rec.attribute10 := p5_a48;
6900 ddp_clev_rec.attribute11 := p5_a49;
6901 ddp_clev_rec.attribute12 := p5_a50;
6902 ddp_clev_rec.attribute13 := p5_a51;
6903 ddp_clev_rec.attribute14 := p5_a52;
6904 ddp_clev_rec.attribute15 := p5_a53;
6905 ddp_clev_rec.created_by := rosetta_g_miss_num_map(p5_a54);
6906 ddp_clev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
6907 ddp_clev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
6908 ddp_clev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
6909 ddp_clev_rec.price_type := p5_a58;
6910 ddp_clev_rec.currency_code := p5_a59;
6911 ddp_clev_rec.currency_code_renewed := p5_a60;
6912 ddp_clev_rec.last_update_login := rosetta_g_miss_num_map(p5_a61);
6913 ddp_clev_rec.old_sts_code := p5_a62;
6914 ddp_clev_rec.new_sts_code := p5_a63;
6915 ddp_clev_rec.old_ste_code := p5_a64;
6916 ddp_clev_rec.new_ste_code := p5_a65;
6917 ddp_clev_rec.call_action_asmblr := p5_a66;
6918 ddp_clev_rec.request_id := rosetta_g_miss_num_map(p5_a67);
6919 ddp_clev_rec.program_application_id := rosetta_g_miss_num_map(p5_a68);
6920 ddp_clev_rec.program_id := rosetta_g_miss_num_map(p5_a69);
6921 ddp_clev_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a70);
6922 ddp_clev_rec.price_list_id := rosetta_g_miss_num_map(p5_a71);
6923 ddp_clev_rec.pricing_date := rosetta_g_miss_date_in_map(p5_a72);
6924 ddp_clev_rec.price_list_line_id := rosetta_g_miss_num_map(p5_a73);
6925 ddp_clev_rec.line_list_price := rosetta_g_miss_num_map(p5_a74);
6926 ddp_clev_rec.item_to_price_yn := p5_a75;
6927 ddp_clev_rec.price_basis_yn := p5_a76;
6928 ddp_clev_rec.config_header_id := rosetta_g_miss_num_map(p5_a77);
6929 ddp_clev_rec.config_revision_number := rosetta_g_miss_num_map(p5_a78);
6930 ddp_clev_rec.config_complete_yn := p5_a79;
6931 ddp_clev_rec.config_valid_yn := p5_a80;
6932 ddp_clev_rec.config_top_model_line_id := rosetta_g_miss_num_map(p5_a81);
6933 ddp_clev_rec.config_item_type := p5_a82;
6934 ddp_clev_rec.config_item_id := rosetta_g_miss_num_map(p5_a83);
6935 ddp_clev_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a84);
6936 ddp_clev_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a85);
6937 ddp_clev_rec.inv_rule_id := rosetta_g_miss_num_map(p5_a86);
6938 ddp_clev_rec.line_renewal_type_code := p5_a87;
6939 ddp_clev_rec.ship_to_site_use_id := rosetta_g_miss_num_map(p5_a88);
6940 ddp_clev_rec.payment_term_id := rosetta_g_miss_num_map(p5_a89);
6941
6942 -- here's the delegated call to the old PL/SQL routine
6943 okl_okc_migration_pvt.validate_contract_line(p_api_version,
6944 p_init_msg_list,
6945 x_return_status,
6946 x_msg_count,
6947 x_msg_data,
6948 ddp_clev_rec);
6949
6950 -- copy data back from the local variables to OUT or IN-OUT args, if any
6951
6952
6953
6954
6955
6956 end;
6957
6958 procedure create_governance(p_api_version NUMBER
6959 , p_init_msg_list VARCHAR2
6960 , x_return_status out nocopy VARCHAR2
6961 , x_msg_count out nocopy NUMBER
6962 , x_msg_data out nocopy VARCHAR2
6963 , p6_a0 out nocopy NUMBER
6964 , p6_a1 out nocopy NUMBER
6965 , p6_a2 out nocopy NUMBER
6966 , p6_a3 out nocopy NUMBER
6967 , p6_a4 out nocopy NUMBER
6968 , p6_a5 out nocopy NUMBER
6969 , p6_a6 out nocopy NUMBER
6970 , p6_a7 out nocopy NUMBER
6971 , p6_a8 out nocopy VARCHAR2
6972 , p6_a9 out nocopy NUMBER
6973 , p6_a10 out nocopy DATE
6974 , p6_a11 out nocopy NUMBER
6975 , p6_a12 out nocopy DATE
6976 , p6_a13 out nocopy NUMBER
6977 , p5_a0 NUMBER := 0-1962.0724
6978 , p5_a1 NUMBER := 0-1962.0724
6979 , p5_a2 NUMBER := 0-1962.0724
6980 , p5_a3 NUMBER := 0-1962.0724
6981 , p5_a4 NUMBER := 0-1962.0724
6982 , p5_a5 NUMBER := 0-1962.0724
6983 , p5_a6 NUMBER := 0-1962.0724
6984 , p5_a7 NUMBER := 0-1962.0724
6985 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
6986 , p5_a9 NUMBER := 0-1962.0724
6987 , p5_a10 DATE := fnd_api.g_miss_date
6988 , p5_a11 NUMBER := 0-1962.0724
6989 , p5_a12 DATE := fnd_api.g_miss_date
6990 , p5_a13 NUMBER := 0-1962.0724
6991 )
6992
6993 as
6994 ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
6995 ddx_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
6996 ddindx binary_integer; indx binary_integer;
6997 begin
6998
6999 -- copy data to the local IN or IN-OUT args, if any
7000
7001
7002
7003
7004
7005 ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
7006 ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
7007 ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
7008 ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
7009 ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
7010 ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
7011 ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
7012 ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
7013 ddp_gvev_rec.copied_only_yn := p5_a8;
7014 ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
7015 ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
7016 ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
7017 ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
7018 ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
7019
7020
7021 -- here's the delegated call to the old PL/SQL routine
7022 okl_okc_migration_pvt.create_governance(p_api_version,
7023 p_init_msg_list,
7024 x_return_status,
7025 x_msg_count,
7026 x_msg_data,
7027 ddp_gvev_rec,
7028 ddx_gvev_rec);
7029
7030 -- copy data back from the local variables to OUT or IN-OUT args, if any
7031
7032
7033
7034
7035
7036
7037 p6_a0 := rosetta_g_miss_num_map(ddx_gvev_rec.id);
7038 p6_a1 := rosetta_g_miss_num_map(ddx_gvev_rec.dnz_chr_id);
7039 p6_a2 := rosetta_g_miss_num_map(ddx_gvev_rec.isa_agreement_id);
7040 p6_a3 := rosetta_g_miss_num_map(ddx_gvev_rec.object_version_number);
7041 p6_a4 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id);
7042 p6_a5 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id);
7043 p6_a6 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id_referred);
7044 p6_a7 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id_referred);
7045 p6_a8 := ddx_gvev_rec.copied_only_yn;
7046 p6_a9 := rosetta_g_miss_num_map(ddx_gvev_rec.created_by);
7047 p6_a10 := ddx_gvev_rec.creation_date;
7048 p6_a11 := rosetta_g_miss_num_map(ddx_gvev_rec.last_updated_by);
7049 p6_a12 := ddx_gvev_rec.last_update_date;
7050 p6_a13 := rosetta_g_miss_num_map(ddx_gvev_rec.last_update_login);
7051 end;
7052
7053 procedure update_governance(p_api_version NUMBER
7054 , p_init_msg_list VARCHAR2
7055 , x_return_status out nocopy VARCHAR2
7056 , x_msg_count out nocopy NUMBER
7057 , x_msg_data out nocopy VARCHAR2
7058 , p6_a0 out nocopy NUMBER
7059 , p6_a1 out nocopy NUMBER
7060 , p6_a2 out nocopy NUMBER
7061 , p6_a3 out nocopy NUMBER
7062 , p6_a4 out nocopy NUMBER
7063 , p6_a5 out nocopy NUMBER
7064 , p6_a6 out nocopy NUMBER
7065 , p6_a7 out nocopy NUMBER
7066 , p6_a8 out nocopy VARCHAR2
7067 , p6_a9 out nocopy NUMBER
7068 , p6_a10 out nocopy DATE
7069 , p6_a11 out nocopy NUMBER
7070 , p6_a12 out nocopy DATE
7071 , p6_a13 out nocopy NUMBER
7072 , p5_a0 NUMBER := 0-1962.0724
7073 , p5_a1 NUMBER := 0-1962.0724
7074 , p5_a2 NUMBER := 0-1962.0724
7075 , p5_a3 NUMBER := 0-1962.0724
7076 , p5_a4 NUMBER := 0-1962.0724
7077 , p5_a5 NUMBER := 0-1962.0724
7078 , p5_a6 NUMBER := 0-1962.0724
7079 , p5_a7 NUMBER := 0-1962.0724
7080 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7081 , p5_a9 NUMBER := 0-1962.0724
7082 , p5_a10 DATE := fnd_api.g_miss_date
7083 , p5_a11 NUMBER := 0-1962.0724
7084 , p5_a12 DATE := fnd_api.g_miss_date
7085 , p5_a13 NUMBER := 0-1962.0724
7086 )
7087
7088 as
7089 ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
7090 ddx_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
7091 ddindx binary_integer; indx binary_integer;
7092 begin
7093
7094 -- copy data to the local IN or IN-OUT args, if any
7095
7096
7097
7098
7099
7100 ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
7101 ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
7102 ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
7103 ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
7104 ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
7105 ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
7106 ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
7107 ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
7108 ddp_gvev_rec.copied_only_yn := p5_a8;
7109 ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
7110 ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
7111 ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
7112 ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
7113 ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
7114
7115
7116 -- here's the delegated call to the old PL/SQL routine
7117 okl_okc_migration_pvt.update_governance(p_api_version,
7118 p_init_msg_list,
7119 x_return_status,
7120 x_msg_count,
7121 x_msg_data,
7122 ddp_gvev_rec,
7123 ddx_gvev_rec);
7124
7125 -- copy data back from the local variables to OUT or IN-OUT args, if any
7126
7127
7128
7129
7130
7131
7132 p6_a0 := rosetta_g_miss_num_map(ddx_gvev_rec.id);
7133 p6_a1 := rosetta_g_miss_num_map(ddx_gvev_rec.dnz_chr_id);
7134 p6_a2 := rosetta_g_miss_num_map(ddx_gvev_rec.isa_agreement_id);
7135 p6_a3 := rosetta_g_miss_num_map(ddx_gvev_rec.object_version_number);
7136 p6_a4 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id);
7137 p6_a5 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id);
7138 p6_a6 := rosetta_g_miss_num_map(ddx_gvev_rec.chr_id_referred);
7139 p6_a7 := rosetta_g_miss_num_map(ddx_gvev_rec.cle_id_referred);
7140 p6_a8 := ddx_gvev_rec.copied_only_yn;
7141 p6_a9 := rosetta_g_miss_num_map(ddx_gvev_rec.created_by);
7142 p6_a10 := ddx_gvev_rec.creation_date;
7143 p6_a11 := rosetta_g_miss_num_map(ddx_gvev_rec.last_updated_by);
7144 p6_a12 := ddx_gvev_rec.last_update_date;
7145 p6_a13 := rosetta_g_miss_num_map(ddx_gvev_rec.last_update_login);
7146 end;
7147
7148 procedure delete_governance(p_api_version NUMBER
7149 , p_init_msg_list VARCHAR2
7150 , x_return_status out nocopy VARCHAR2
7151 , x_msg_count out nocopy NUMBER
7152 , x_msg_data out nocopy VARCHAR2
7153 , p5_a0 NUMBER := 0-1962.0724
7154 , p5_a1 NUMBER := 0-1962.0724
7155 , p5_a2 NUMBER := 0-1962.0724
7156 , p5_a3 NUMBER := 0-1962.0724
7157 , p5_a4 NUMBER := 0-1962.0724
7158 , p5_a5 NUMBER := 0-1962.0724
7159 , p5_a6 NUMBER := 0-1962.0724
7160 , p5_a7 NUMBER := 0-1962.0724
7161 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7162 , p5_a9 NUMBER := 0-1962.0724
7163 , p5_a10 DATE := fnd_api.g_miss_date
7164 , p5_a11 NUMBER := 0-1962.0724
7165 , p5_a12 DATE := fnd_api.g_miss_date
7166 , p5_a13 NUMBER := 0-1962.0724
7167 )
7168
7169 as
7170 ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
7171 ddindx binary_integer; indx binary_integer;
7172 begin
7173
7174 -- copy data to the local IN or IN-OUT args, if any
7175
7176
7177
7178
7179
7180 ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
7181 ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
7182 ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
7183 ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
7184 ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
7185 ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
7186 ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
7187 ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
7188 ddp_gvev_rec.copied_only_yn := p5_a8;
7189 ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
7190 ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
7191 ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
7192 ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
7193 ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
7194
7195 -- here's the delegated call to the old PL/SQL routine
7196 okl_okc_migration_pvt.delete_governance(p_api_version,
7197 p_init_msg_list,
7198 x_return_status,
7199 x_msg_count,
7200 x_msg_data,
7201 ddp_gvev_rec);
7202
7203 -- copy data back from the local variables to OUT or IN-OUT args, if any
7204
7205
7206
7207
7208
7209 end;
7210
7211 procedure lock_governance(p_api_version NUMBER
7212 , p_init_msg_list VARCHAR2
7213 , x_return_status out nocopy VARCHAR2
7214 , x_msg_count out nocopy NUMBER
7215 , x_msg_data out nocopy VARCHAR2
7216 , p5_a0 NUMBER := 0-1962.0724
7217 , p5_a1 NUMBER := 0-1962.0724
7218 , p5_a2 NUMBER := 0-1962.0724
7219 , p5_a3 NUMBER := 0-1962.0724
7220 , p5_a4 NUMBER := 0-1962.0724
7221 , p5_a5 NUMBER := 0-1962.0724
7222 , p5_a6 NUMBER := 0-1962.0724
7223 , p5_a7 NUMBER := 0-1962.0724
7224 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7225 , p5_a9 NUMBER := 0-1962.0724
7226 , p5_a10 DATE := fnd_api.g_miss_date
7227 , p5_a11 NUMBER := 0-1962.0724
7228 , p5_a12 DATE := fnd_api.g_miss_date
7229 , p5_a13 NUMBER := 0-1962.0724
7230 )
7231
7232 as
7233 ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
7234 ddindx binary_integer; indx binary_integer;
7235 begin
7236
7237 -- copy data to the local IN or IN-OUT args, if any
7238
7239
7240
7241
7242
7243 ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
7244 ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
7245 ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
7246 ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
7247 ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
7248 ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
7249 ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
7250 ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
7251 ddp_gvev_rec.copied_only_yn := p5_a8;
7252 ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
7253 ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
7254 ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
7255 ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
7256 ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
7257
7258 -- here's the delegated call to the old PL/SQL routine
7259 okl_okc_migration_pvt.lock_governance(p_api_version,
7260 p_init_msg_list,
7261 x_return_status,
7262 x_msg_count,
7263 x_msg_data,
7264 ddp_gvev_rec);
7265
7266 -- copy data back from the local variables to OUT or IN-OUT args, if any
7267
7268
7269
7270
7271
7272 end;
7273
7274 procedure validate_governance(p_api_version NUMBER
7275 , p_init_msg_list VARCHAR2
7276 , x_return_status out nocopy VARCHAR2
7277 , x_msg_count out nocopy NUMBER
7278 , x_msg_data out nocopy VARCHAR2
7279 , p5_a0 NUMBER := 0-1962.0724
7280 , p5_a1 NUMBER := 0-1962.0724
7281 , p5_a2 NUMBER := 0-1962.0724
7282 , p5_a3 NUMBER := 0-1962.0724
7283 , p5_a4 NUMBER := 0-1962.0724
7284 , p5_a5 NUMBER := 0-1962.0724
7285 , p5_a6 NUMBER := 0-1962.0724
7286 , p5_a7 NUMBER := 0-1962.0724
7287 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7288 , p5_a9 NUMBER := 0-1962.0724
7289 , p5_a10 DATE := fnd_api.g_miss_date
7290 , p5_a11 NUMBER := 0-1962.0724
7291 , p5_a12 DATE := fnd_api.g_miss_date
7292 , p5_a13 NUMBER := 0-1962.0724
7293 )
7294
7295 as
7296 ddp_gvev_rec okl_okc_migration_pvt.gvev_rec_type;
7297 ddindx binary_integer; indx binary_integer;
7298 begin
7299
7300 -- copy data to the local IN or IN-OUT args, if any
7301
7302
7303
7304
7305
7306 ddp_gvev_rec.id := rosetta_g_miss_num_map(p5_a0);
7307 ddp_gvev_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a1);
7308 ddp_gvev_rec.isa_agreement_id := rosetta_g_miss_num_map(p5_a2);
7309 ddp_gvev_rec.object_version_number := rosetta_g_miss_num_map(p5_a3);
7310 ddp_gvev_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
7311 ddp_gvev_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
7312 ddp_gvev_rec.chr_id_referred := rosetta_g_miss_num_map(p5_a6);
7313 ddp_gvev_rec.cle_id_referred := rosetta_g_miss_num_map(p5_a7);
7314 ddp_gvev_rec.copied_only_yn := p5_a8;
7315 ddp_gvev_rec.created_by := rosetta_g_miss_num_map(p5_a9);
7316 ddp_gvev_rec.creation_date := rosetta_g_miss_date_in_map(p5_a10);
7317 ddp_gvev_rec.last_updated_by := rosetta_g_miss_num_map(p5_a11);
7318 ddp_gvev_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a12);
7319 ddp_gvev_rec.last_update_login := rosetta_g_miss_num_map(p5_a13);
7320
7321 -- here's the delegated call to the old PL/SQL routine
7322 okl_okc_migration_pvt.validate_governance(p_api_version,
7323 p_init_msg_list,
7324 x_return_status,
7325 x_msg_count,
7326 x_msg_data,
7327 ddp_gvev_rec);
7328
7329 -- copy data back from the local variables to OUT or IN-OUT args, if any
7330
7331
7332
7333
7334
7335 end;
7336
7337 procedure version_contract(p_api_version NUMBER
7338 , p_init_msg_list VARCHAR2
7339 , x_return_status out nocopy VARCHAR2
7340 , x_msg_count out nocopy NUMBER
7341 , x_msg_data out nocopy VARCHAR2
7342 , p_commit VARCHAR2
7343 , p7_a0 out nocopy NUMBER
7344 , p7_a1 out nocopy NUMBER
7345 , p7_a2 out nocopy NUMBER
7346 , p7_a3 out nocopy NUMBER
7347 , p7_a4 out nocopy NUMBER
7348 , p7_a5 out nocopy DATE
7349 , p7_a6 out nocopy NUMBER
7350 , p7_a7 out nocopy DATE
7351 , p7_a8 out nocopy NUMBER
7352 , p5_a0 NUMBER := 0-1962.0724
7353 , p5_a1 NUMBER := 0-1962.0724
7354 , p5_a2 NUMBER := 0-1962.0724
7355 , p5_a3 NUMBER := 0-1962.0724
7356 , p5_a4 NUMBER := 0-1962.0724
7357 , p5_a5 DATE := fnd_api.g_miss_date
7358 , p5_a6 NUMBER := 0-1962.0724
7359 , p5_a7 DATE := fnd_api.g_miss_date
7360 , p5_a8 NUMBER := 0-1962.0724
7361 )
7362
7363 as
7364 ddp_cvmv_rec okl_okc_migration_pvt.cvmv_rec_type;
7365 ddx_cvmv_rec okl_okc_migration_pvt.cvmv_rec_type;
7366 ddindx binary_integer; indx binary_integer;
7367 begin
7368
7369 -- copy data to the local IN or IN-OUT args, if any
7370
7371
7372
7373
7374
7375 ddp_cvmv_rec.chr_id := rosetta_g_miss_num_map(p5_a0);
7376 ddp_cvmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
7377 ddp_cvmv_rec.major_version := rosetta_g_miss_num_map(p5_a2);
7378 ddp_cvmv_rec.minor_version := rosetta_g_miss_num_map(p5_a3);
7379 ddp_cvmv_rec.created_by := rosetta_g_miss_num_map(p5_a4);
7380 ddp_cvmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a5);
7381 ddp_cvmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a6);
7382 ddp_cvmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a7);
7383 ddp_cvmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a8);
7384
7385
7386
7387 -- here's the delegated call to the old PL/SQL routine
7388 okl_okc_migration_pvt.version_contract(p_api_version,
7389 p_init_msg_list,
7390 x_return_status,
7391 x_msg_count,
7392 x_msg_data,
7393 ddp_cvmv_rec,
7394 p_commit,
7395 ddx_cvmv_rec);
7396
7397 -- copy data back from the local variables to OUT or IN-OUT args, if any
7398
7399
7400
7401
7402
7403
7404
7405 p7_a0 := rosetta_g_miss_num_map(ddx_cvmv_rec.chr_id);
7406 p7_a1 := rosetta_g_miss_num_map(ddx_cvmv_rec.object_version_number);
7407 p7_a2 := rosetta_g_miss_num_map(ddx_cvmv_rec.major_version);
7408 p7_a3 := rosetta_g_miss_num_map(ddx_cvmv_rec.minor_version);
7409 p7_a4 := rosetta_g_miss_num_map(ddx_cvmv_rec.created_by);
7410 p7_a5 := ddx_cvmv_rec.creation_date;
7411 p7_a6 := rosetta_g_miss_num_map(ddx_cvmv_rec.last_updated_by);
7412 p7_a7 := ddx_cvmv_rec.last_update_date;
7413 p7_a8 := rosetta_g_miss_num_map(ddx_cvmv_rec.last_update_login);
7414 end;
7415
7416 procedure version_contract(p_api_version NUMBER
7417 , p_init_msg_list VARCHAR2
7418 , x_return_status out nocopy VARCHAR2
7419 , x_msg_count out nocopy NUMBER
7420 , x_msg_data out nocopy VARCHAR2
7421 , p5_a0 JTF_NUMBER_TABLE
7422 , p5_a1 JTF_NUMBER_TABLE
7423 , p5_a2 JTF_NUMBER_TABLE
7424 , p5_a3 JTF_NUMBER_TABLE
7425 , p5_a4 JTF_NUMBER_TABLE
7426 , p5_a5 JTF_DATE_TABLE
7427 , p5_a6 JTF_NUMBER_TABLE
7428 , p5_a7 JTF_DATE_TABLE
7429 , p5_a8 JTF_NUMBER_TABLE
7430 , p_commit VARCHAR2
7431 , p7_a0 out nocopy JTF_NUMBER_TABLE
7432 , p7_a1 out nocopy JTF_NUMBER_TABLE
7433 , p7_a2 out nocopy JTF_NUMBER_TABLE
7434 , p7_a3 out nocopy JTF_NUMBER_TABLE
7435 , p7_a4 out nocopy JTF_NUMBER_TABLE
7436 , p7_a5 out nocopy JTF_DATE_TABLE
7437 , p7_a6 out nocopy JTF_NUMBER_TABLE
7438 , p7_a7 out nocopy JTF_DATE_TABLE
7439 , p7_a8 out nocopy JTF_NUMBER_TABLE
7440 )
7441
7442 as
7443 ddp_cvmv_tbl okl_okc_migration_pvt.cvmv_tbl_type;
7444 ddx_cvmv_tbl okl_okc_migration_pvt.cvmv_tbl_type;
7445 ddindx binary_integer; indx binary_integer;
7446 begin
7447
7448 -- copy data to the local IN or IN-OUT args, if any
7449
7450
7451
7452
7453
7454 okl_okc_migration_pvt_w.rosetta_table_copy_in_p1(ddp_cvmv_tbl, p5_a0
7455 , p5_a1
7456 , p5_a2
7457 , p5_a3
7458 , p5_a4
7459 , p5_a5
7460 , p5_a6
7461 , p5_a7
7462 , p5_a8
7463 );
7464
7465
7466
7467 -- here's the delegated call to the old PL/SQL routine
7468 okl_okc_migration_pvt.version_contract(p_api_version,
7469 p_init_msg_list,
7470 x_return_status,
7471 x_msg_count,
7472 x_msg_data,
7473 ddp_cvmv_tbl,
7474 p_commit,
7475 ddx_cvmv_tbl);
7476
7477 -- copy data back from the local variables to OUT or IN-OUT args, if any
7478
7479
7480
7481
7482
7483
7484
7485 okl_okc_migration_pvt_w.rosetta_table_copy_out_p1(ddx_cvmv_tbl, p7_a0
7486 , p7_a1
7487 , p7_a2
7488 , p7_a3
7489 , p7_a4
7490 , p7_a5
7491 , p7_a6
7492 , p7_a7
7493 , p7_a8
7494 );
7495 end;
7496
7497 procedure create_contract_item(p_api_version NUMBER
7498 , p_init_msg_list VARCHAR2
7499 , x_return_status out nocopy VARCHAR2
7500 , x_msg_count out nocopy NUMBER
7501 , x_msg_data out nocopy VARCHAR2
7502 , p6_a0 out nocopy NUMBER
7503 , p6_a1 out nocopy NUMBER
7504 , p6_a2 out nocopy NUMBER
7505 , p6_a3 out nocopy NUMBER
7506 , p6_a4 out nocopy NUMBER
7507 , p6_a5 out nocopy NUMBER
7508 , p6_a6 out nocopy VARCHAR2
7509 , p6_a7 out nocopy VARCHAR2
7510 , p6_a8 out nocopy VARCHAR2
7511 , p6_a9 out nocopy VARCHAR2
7512 , p6_a10 out nocopy VARCHAR2
7513 , p6_a11 out nocopy NUMBER
7514 , p6_a12 out nocopy VARCHAR2
7515 , p6_a13 out nocopy NUMBER
7516 , p6_a14 out nocopy VARCHAR2
7517 , p6_a15 out nocopy NUMBER
7518 , p6_a16 out nocopy DATE
7519 , p6_a17 out nocopy NUMBER
7520 , p6_a18 out nocopy DATE
7521 , p6_a19 out nocopy NUMBER
7522 , p5_a0 NUMBER := 0-1962.0724
7523 , p5_a1 NUMBER := 0-1962.0724
7524 , p5_a2 NUMBER := 0-1962.0724
7525 , p5_a3 NUMBER := 0-1962.0724
7526 , p5_a4 NUMBER := 0-1962.0724
7527 , p5_a5 NUMBER := 0-1962.0724
7528 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
7529 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
7530 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7531 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
7532 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
7533 , p5_a11 NUMBER := 0-1962.0724
7534 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
7535 , p5_a13 NUMBER := 0-1962.0724
7536 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
7537 , p5_a15 NUMBER := 0-1962.0724
7538 , p5_a16 DATE := fnd_api.g_miss_date
7539 , p5_a17 NUMBER := 0-1962.0724
7540 , p5_a18 DATE := fnd_api.g_miss_date
7541 , p5_a19 NUMBER := 0-1962.0724
7542 )
7543
7544 as
7545 ddp_cimv_rec okl_okc_migration_pvt.cimv_rec_type;
7546 ddx_cimv_rec okl_okc_migration_pvt.cimv_rec_type;
7547 ddindx binary_integer; indx binary_integer;
7548 begin
7549
7550 -- copy data to the local IN or IN-OUT args, if any
7551
7552
7553
7554
7555
7556 ddp_cimv_rec.id := rosetta_g_miss_num_map(p5_a0);
7557 ddp_cimv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
7558 ddp_cimv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
7559 ddp_cimv_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
7560 ddp_cimv_rec.cle_id_for := rosetta_g_miss_num_map(p5_a4);
7561 ddp_cimv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a5);
7562 ddp_cimv_rec.object1_id1 := p5_a6;
7563 ddp_cimv_rec.object1_id2 := p5_a7;
7564 ddp_cimv_rec.jtot_object1_code := p5_a8;
7565 ddp_cimv_rec.uom_code := p5_a9;
7566 ddp_cimv_rec.exception_yn := p5_a10;
7567 ddp_cimv_rec.number_of_items := rosetta_g_miss_num_map(p5_a11);
7568 ddp_cimv_rec.upg_orig_system_ref := p5_a12;
7569 ddp_cimv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a13);
7570 ddp_cimv_rec.priced_item_yn := p5_a14;
7571 ddp_cimv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
7572 ddp_cimv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
7573 ddp_cimv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
7574 ddp_cimv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
7575 ddp_cimv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
7576
7577
7578 -- here's the delegated call to the old PL/SQL routine
7579 okl_okc_migration_pvt.create_contract_item(p_api_version,
7580 p_init_msg_list,
7581 x_return_status,
7582 x_msg_count,
7583 x_msg_data,
7584 ddp_cimv_rec,
7585 ddx_cimv_rec);
7586
7587 -- copy data back from the local variables to OUT or IN-OUT args, if any
7588
7589
7590
7591
7592
7593
7594 p6_a0 := rosetta_g_miss_num_map(ddx_cimv_rec.id);
7595 p6_a1 := rosetta_g_miss_num_map(ddx_cimv_rec.object_version_number);
7596 p6_a2 := rosetta_g_miss_num_map(ddx_cimv_rec.cle_id);
7597 p6_a3 := rosetta_g_miss_num_map(ddx_cimv_rec.chr_id);
7598 p6_a4 := rosetta_g_miss_num_map(ddx_cimv_rec.cle_id_for);
7599 p6_a5 := rosetta_g_miss_num_map(ddx_cimv_rec.dnz_chr_id);
7600 p6_a6 := ddx_cimv_rec.object1_id1;
7601 p6_a7 := ddx_cimv_rec.object1_id2;
7602 p6_a8 := ddx_cimv_rec.jtot_object1_code;
7603 p6_a9 := ddx_cimv_rec.uom_code;
7604 p6_a10 := ddx_cimv_rec.exception_yn;
7605 p6_a11 := rosetta_g_miss_num_map(ddx_cimv_rec.number_of_items);
7606 p6_a12 := ddx_cimv_rec.upg_orig_system_ref;
7607 p6_a13 := rosetta_g_miss_num_map(ddx_cimv_rec.upg_orig_system_ref_id);
7608 p6_a14 := ddx_cimv_rec.priced_item_yn;
7609 p6_a15 := rosetta_g_miss_num_map(ddx_cimv_rec.created_by);
7610 p6_a16 := ddx_cimv_rec.creation_date;
7611 p6_a17 := rosetta_g_miss_num_map(ddx_cimv_rec.last_updated_by);
7612 p6_a18 := ddx_cimv_rec.last_update_date;
7613 p6_a19 := rosetta_g_miss_num_map(ddx_cimv_rec.last_update_login);
7614 end;
7615
7616 procedure create_contract_item(p_api_version NUMBER
7617 , p_init_msg_list VARCHAR2
7618 , x_return_status out nocopy VARCHAR2
7619 , x_msg_count out nocopy NUMBER
7620 , x_msg_data out nocopy VARCHAR2
7621 , p5_a0 JTF_NUMBER_TABLE
7622 , p5_a1 JTF_NUMBER_TABLE
7623 , p5_a2 JTF_NUMBER_TABLE
7624 , p5_a3 JTF_NUMBER_TABLE
7625 , p5_a4 JTF_NUMBER_TABLE
7626 , p5_a5 JTF_NUMBER_TABLE
7627 , p5_a6 JTF_VARCHAR2_TABLE_100
7628 , p5_a7 JTF_VARCHAR2_TABLE_200
7629 , p5_a8 JTF_VARCHAR2_TABLE_100
7630 , p5_a9 JTF_VARCHAR2_TABLE_100
7631 , p5_a10 JTF_VARCHAR2_TABLE_100
7632 , p5_a11 JTF_NUMBER_TABLE
7633 , p5_a12 JTF_VARCHAR2_TABLE_100
7634 , p5_a13 JTF_NUMBER_TABLE
7635 , p5_a14 JTF_VARCHAR2_TABLE_100
7636 , p5_a15 JTF_NUMBER_TABLE
7637 , p5_a16 JTF_DATE_TABLE
7638 , p5_a17 JTF_NUMBER_TABLE
7639 , p5_a18 JTF_DATE_TABLE
7640 , p5_a19 JTF_NUMBER_TABLE
7641 , p6_a0 out nocopy JTF_NUMBER_TABLE
7642 , p6_a1 out nocopy JTF_NUMBER_TABLE
7643 , p6_a2 out nocopy JTF_NUMBER_TABLE
7644 , p6_a3 out nocopy JTF_NUMBER_TABLE
7645 , p6_a4 out nocopy JTF_NUMBER_TABLE
7646 , p6_a5 out nocopy JTF_NUMBER_TABLE
7647 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
7648 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
7649 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
7650 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
7651 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
7652 , p6_a11 out nocopy JTF_NUMBER_TABLE
7653 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
7654 , p6_a13 out nocopy JTF_NUMBER_TABLE
7655 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
7656 , p6_a15 out nocopy JTF_NUMBER_TABLE
7657 , p6_a16 out nocopy JTF_DATE_TABLE
7658 , p6_a17 out nocopy JTF_NUMBER_TABLE
7659 , p6_a18 out nocopy JTF_DATE_TABLE
7660 , p6_a19 out nocopy JTF_NUMBER_TABLE
7661 )
7662
7663 as
7664 ddp_cimv_tbl okl_okc_migration_pvt.cimv_tbl_type;
7665 ddx_cimv_tbl okl_okc_migration_pvt.cimv_tbl_type;
7666 ddindx binary_integer; indx binary_integer;
7667 begin
7668
7669 -- copy data to the local IN or IN-OUT args, if any
7670
7671
7672
7673
7674
7675 okl_okc_migration_pvt_w.rosetta_table_copy_in_p7(ddp_cimv_tbl, p5_a0
7676 , p5_a1
7677 , p5_a2
7678 , p5_a3
7679 , p5_a4
7680 , p5_a5
7681 , p5_a6
7682 , p5_a7
7683 , p5_a8
7684 , p5_a9
7685 , p5_a10
7686 , p5_a11
7687 , p5_a12
7688 , p5_a13
7689 , p5_a14
7690 , p5_a15
7691 , p5_a16
7692 , p5_a17
7693 , p5_a18
7694 , p5_a19
7695 );
7696
7697
7698 -- here's the delegated call to the old PL/SQL routine
7699 okl_okc_migration_pvt.create_contract_item(p_api_version,
7700 p_init_msg_list,
7701 x_return_status,
7702 x_msg_count,
7703 x_msg_data,
7704 ddp_cimv_tbl,
7705 ddx_cimv_tbl);
7706
7707 -- copy data back from the local variables to OUT or IN-OUT args, if any
7708
7709
7710
7711
7712
7713
7714 okl_okc_migration_pvt_w.rosetta_table_copy_out_p7(ddx_cimv_tbl, p6_a0
7715 , p6_a1
7716 , p6_a2
7717 , p6_a3
7718 , p6_a4
7719 , p6_a5
7720 , p6_a6
7721 , p6_a7
7722 , p6_a8
7723 , p6_a9
7724 , p6_a10
7725 , p6_a11
7726 , p6_a12
7727 , p6_a13
7728 , p6_a14
7729 , p6_a15
7730 , p6_a16
7731 , p6_a17
7732 , p6_a18
7733 , p6_a19
7734 );
7735 end;
7736
7737 procedure update_contract_item(p_api_version NUMBER
7738 , p_init_msg_list VARCHAR2
7739 , x_return_status out nocopy VARCHAR2
7740 , x_msg_count out nocopy NUMBER
7741 , x_msg_data out nocopy VARCHAR2
7742 , p6_a0 out nocopy NUMBER
7743 , p6_a1 out nocopy NUMBER
7744 , p6_a2 out nocopy NUMBER
7745 , p6_a3 out nocopy NUMBER
7746 , p6_a4 out nocopy NUMBER
7747 , p6_a5 out nocopy NUMBER
7748 , p6_a6 out nocopy VARCHAR2
7749 , p6_a7 out nocopy VARCHAR2
7750 , p6_a8 out nocopy VARCHAR2
7751 , p6_a9 out nocopy VARCHAR2
7752 , p6_a10 out nocopy VARCHAR2
7753 , p6_a11 out nocopy NUMBER
7754 , p6_a12 out nocopy VARCHAR2
7755 , p6_a13 out nocopy NUMBER
7756 , p6_a14 out nocopy VARCHAR2
7757 , p6_a15 out nocopy NUMBER
7758 , p6_a16 out nocopy DATE
7759 , p6_a17 out nocopy NUMBER
7760 , p6_a18 out nocopy DATE
7761 , p6_a19 out nocopy NUMBER
7762 , p5_a0 NUMBER := 0-1962.0724
7763 , p5_a1 NUMBER := 0-1962.0724
7764 , p5_a2 NUMBER := 0-1962.0724
7765 , p5_a3 NUMBER := 0-1962.0724
7766 , p5_a4 NUMBER := 0-1962.0724
7767 , p5_a5 NUMBER := 0-1962.0724
7768 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
7769 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
7770 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7771 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
7772 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
7773 , p5_a11 NUMBER := 0-1962.0724
7774 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
7775 , p5_a13 NUMBER := 0-1962.0724
7776 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
7777 , p5_a15 NUMBER := 0-1962.0724
7778 , p5_a16 DATE := fnd_api.g_miss_date
7779 , p5_a17 NUMBER := 0-1962.0724
7780 , p5_a18 DATE := fnd_api.g_miss_date
7781 , p5_a19 NUMBER := 0-1962.0724
7782 )
7783
7784 as
7785 ddp_cimv_rec okl_okc_migration_pvt.cimv_rec_type;
7786 ddx_cimv_rec okl_okc_migration_pvt.cimv_rec_type;
7787 ddindx binary_integer; indx binary_integer;
7788 begin
7789
7790 -- copy data to the local IN or IN-OUT args, if any
7791
7792
7793
7794
7795
7796 ddp_cimv_rec.id := rosetta_g_miss_num_map(p5_a0);
7797 ddp_cimv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
7798 ddp_cimv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
7799 ddp_cimv_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
7800 ddp_cimv_rec.cle_id_for := rosetta_g_miss_num_map(p5_a4);
7801 ddp_cimv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a5);
7802 ddp_cimv_rec.object1_id1 := p5_a6;
7803 ddp_cimv_rec.object1_id2 := p5_a7;
7804 ddp_cimv_rec.jtot_object1_code := p5_a8;
7805 ddp_cimv_rec.uom_code := p5_a9;
7806 ddp_cimv_rec.exception_yn := p5_a10;
7807 ddp_cimv_rec.number_of_items := rosetta_g_miss_num_map(p5_a11);
7808 ddp_cimv_rec.upg_orig_system_ref := p5_a12;
7809 ddp_cimv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a13);
7810 ddp_cimv_rec.priced_item_yn := p5_a14;
7811 ddp_cimv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
7812 ddp_cimv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
7813 ddp_cimv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
7814 ddp_cimv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
7815 ddp_cimv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
7816
7817
7818 -- here's the delegated call to the old PL/SQL routine
7819 okl_okc_migration_pvt.update_contract_item(p_api_version,
7820 p_init_msg_list,
7821 x_return_status,
7822 x_msg_count,
7823 x_msg_data,
7824 ddp_cimv_rec,
7825 ddx_cimv_rec);
7826
7827 -- copy data back from the local variables to OUT or IN-OUT args, if any
7828
7829
7830
7831
7832
7833
7834 p6_a0 := rosetta_g_miss_num_map(ddx_cimv_rec.id);
7835 p6_a1 := rosetta_g_miss_num_map(ddx_cimv_rec.object_version_number);
7836 p6_a2 := rosetta_g_miss_num_map(ddx_cimv_rec.cle_id);
7837 p6_a3 := rosetta_g_miss_num_map(ddx_cimv_rec.chr_id);
7838 p6_a4 := rosetta_g_miss_num_map(ddx_cimv_rec.cle_id_for);
7839 p6_a5 := rosetta_g_miss_num_map(ddx_cimv_rec.dnz_chr_id);
7840 p6_a6 := ddx_cimv_rec.object1_id1;
7841 p6_a7 := ddx_cimv_rec.object1_id2;
7842 p6_a8 := ddx_cimv_rec.jtot_object1_code;
7843 p6_a9 := ddx_cimv_rec.uom_code;
7844 p6_a10 := ddx_cimv_rec.exception_yn;
7845 p6_a11 := rosetta_g_miss_num_map(ddx_cimv_rec.number_of_items);
7846 p6_a12 := ddx_cimv_rec.upg_orig_system_ref;
7847 p6_a13 := rosetta_g_miss_num_map(ddx_cimv_rec.upg_orig_system_ref_id);
7848 p6_a14 := ddx_cimv_rec.priced_item_yn;
7849 p6_a15 := rosetta_g_miss_num_map(ddx_cimv_rec.created_by);
7850 p6_a16 := ddx_cimv_rec.creation_date;
7851 p6_a17 := rosetta_g_miss_num_map(ddx_cimv_rec.last_updated_by);
7852 p6_a18 := ddx_cimv_rec.last_update_date;
7853 p6_a19 := rosetta_g_miss_num_map(ddx_cimv_rec.last_update_login);
7854 end;
7855
7856 procedure update_contract_item(p_api_version NUMBER
7857 , p_init_msg_list VARCHAR2
7858 , x_return_status out nocopy VARCHAR2
7859 , x_msg_count out nocopy NUMBER
7860 , x_msg_data out nocopy VARCHAR2
7861 , p5_a0 JTF_NUMBER_TABLE
7862 , p5_a1 JTF_NUMBER_TABLE
7863 , p5_a2 JTF_NUMBER_TABLE
7864 , p5_a3 JTF_NUMBER_TABLE
7865 , p5_a4 JTF_NUMBER_TABLE
7866 , p5_a5 JTF_NUMBER_TABLE
7867 , p5_a6 JTF_VARCHAR2_TABLE_100
7868 , p5_a7 JTF_VARCHAR2_TABLE_200
7869 , p5_a8 JTF_VARCHAR2_TABLE_100
7870 , p5_a9 JTF_VARCHAR2_TABLE_100
7871 , p5_a10 JTF_VARCHAR2_TABLE_100
7872 , p5_a11 JTF_NUMBER_TABLE
7873 , p5_a12 JTF_VARCHAR2_TABLE_100
7874 , p5_a13 JTF_NUMBER_TABLE
7875 , p5_a14 JTF_VARCHAR2_TABLE_100
7876 , p5_a15 JTF_NUMBER_TABLE
7877 , p5_a16 JTF_DATE_TABLE
7878 , p5_a17 JTF_NUMBER_TABLE
7879 , p5_a18 JTF_DATE_TABLE
7880 , p5_a19 JTF_NUMBER_TABLE
7881 , p6_a0 out nocopy JTF_NUMBER_TABLE
7882 , p6_a1 out nocopy JTF_NUMBER_TABLE
7883 , p6_a2 out nocopy JTF_NUMBER_TABLE
7884 , p6_a3 out nocopy JTF_NUMBER_TABLE
7885 , p6_a4 out nocopy JTF_NUMBER_TABLE
7886 , p6_a5 out nocopy JTF_NUMBER_TABLE
7887 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
7888 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
7889 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
7890 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
7891 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
7892 , p6_a11 out nocopy JTF_NUMBER_TABLE
7893 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
7894 , p6_a13 out nocopy JTF_NUMBER_TABLE
7895 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
7896 , p6_a15 out nocopy JTF_NUMBER_TABLE
7897 , p6_a16 out nocopy JTF_DATE_TABLE
7898 , p6_a17 out nocopy JTF_NUMBER_TABLE
7899 , p6_a18 out nocopy JTF_DATE_TABLE
7900 , p6_a19 out nocopy JTF_NUMBER_TABLE
7901 )
7902
7903 as
7904 ddp_cimv_tbl okl_okc_migration_pvt.cimv_tbl_type;
7905 ddx_cimv_tbl okl_okc_migration_pvt.cimv_tbl_type;
7906 ddindx binary_integer; indx binary_integer;
7907 begin
7908
7909 -- copy data to the local IN or IN-OUT args, if any
7910
7911
7912
7913
7914
7915 okl_okc_migration_pvt_w.rosetta_table_copy_in_p7(ddp_cimv_tbl, p5_a0
7916 , p5_a1
7917 , p5_a2
7918 , p5_a3
7919 , p5_a4
7920 , p5_a5
7921 , p5_a6
7922 , p5_a7
7923 , p5_a8
7924 , p5_a9
7925 , p5_a10
7926 , p5_a11
7927 , p5_a12
7928 , p5_a13
7929 , p5_a14
7930 , p5_a15
7931 , p5_a16
7932 , p5_a17
7933 , p5_a18
7934 , p5_a19
7935 );
7936
7937
7938 -- here's the delegated call to the old PL/SQL routine
7939 okl_okc_migration_pvt.update_contract_item(p_api_version,
7940 p_init_msg_list,
7941 x_return_status,
7942 x_msg_count,
7943 x_msg_data,
7944 ddp_cimv_tbl,
7945 ddx_cimv_tbl);
7946
7947 -- copy data back from the local variables to OUT or IN-OUT args, if any
7948
7949
7950
7951
7952
7953
7954 okl_okc_migration_pvt_w.rosetta_table_copy_out_p7(ddx_cimv_tbl, p6_a0
7955 , p6_a1
7956 , p6_a2
7957 , p6_a3
7958 , p6_a4
7959 , p6_a5
7960 , p6_a6
7961 , p6_a7
7962 , p6_a8
7963 , p6_a9
7964 , p6_a10
7965 , p6_a11
7966 , p6_a12
7967 , p6_a13
7968 , p6_a14
7969 , p6_a15
7970 , p6_a16
7971 , p6_a17
7972 , p6_a18
7973 , p6_a19
7974 );
7975 end;
7976
7977 procedure delete_contract_item(p_api_version NUMBER
7978 , p_init_msg_list VARCHAR2
7979 , x_return_status out nocopy VARCHAR2
7980 , x_msg_count out nocopy NUMBER
7981 , x_msg_data out nocopy VARCHAR2
7982 , p5_a0 NUMBER := 0-1962.0724
7983 , p5_a1 NUMBER := 0-1962.0724
7984 , p5_a2 NUMBER := 0-1962.0724
7985 , p5_a3 NUMBER := 0-1962.0724
7986 , p5_a4 NUMBER := 0-1962.0724
7987 , p5_a5 NUMBER := 0-1962.0724
7988 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
7989 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
7990 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
7991 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
7992 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
7993 , p5_a11 NUMBER := 0-1962.0724
7994 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
7995 , p5_a13 NUMBER := 0-1962.0724
7996 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
7997 , p5_a15 NUMBER := 0-1962.0724
7998 , p5_a16 DATE := fnd_api.g_miss_date
7999 , p5_a17 NUMBER := 0-1962.0724
8000 , p5_a18 DATE := fnd_api.g_miss_date
8001 , p5_a19 NUMBER := 0-1962.0724
8002 )
8003
8004 as
8005 ddp_cimv_rec okl_okc_migration_pvt.cimv_rec_type;
8006 ddindx binary_integer; indx binary_integer;
8007 begin
8008
8009 -- copy data to the local IN or IN-OUT args, if any
8010
8011
8012
8013
8014
8015 ddp_cimv_rec.id := rosetta_g_miss_num_map(p5_a0);
8016 ddp_cimv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
8017 ddp_cimv_rec.cle_id := rosetta_g_miss_num_map(p5_a2);
8018 ddp_cimv_rec.chr_id := rosetta_g_miss_num_map(p5_a3);
8019 ddp_cimv_rec.cle_id_for := rosetta_g_miss_num_map(p5_a4);
8020 ddp_cimv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a5);
8021 ddp_cimv_rec.object1_id1 := p5_a6;
8022 ddp_cimv_rec.object1_id2 := p5_a7;
8023 ddp_cimv_rec.jtot_object1_code := p5_a8;
8024 ddp_cimv_rec.uom_code := p5_a9;
8025 ddp_cimv_rec.exception_yn := p5_a10;
8026 ddp_cimv_rec.number_of_items := rosetta_g_miss_num_map(p5_a11);
8027 ddp_cimv_rec.upg_orig_system_ref := p5_a12;
8028 ddp_cimv_rec.upg_orig_system_ref_id := rosetta_g_miss_num_map(p5_a13);
8029 ddp_cimv_rec.priced_item_yn := p5_a14;
8030 ddp_cimv_rec.created_by := rosetta_g_miss_num_map(p5_a15);
8031 ddp_cimv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a16);
8032 ddp_cimv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a17);
8033 ddp_cimv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a18);
8034 ddp_cimv_rec.last_update_login := rosetta_g_miss_num_map(p5_a19);
8035
8036 -- here's the delegated call to the old PL/SQL routine
8037 okl_okc_migration_pvt.delete_contract_item(p_api_version,
8038 p_init_msg_list,
8039 x_return_status,
8040 x_msg_count,
8041 x_msg_data,
8042 ddp_cimv_rec);
8043
8044 -- copy data back from the local variables to OUT or IN-OUT args, if any
8045
8046
8047
8048
8049
8050 end;
8051
8052 procedure delete_contract_item(p_api_version NUMBER
8053 , p_init_msg_list VARCHAR2
8054 , x_return_status out nocopy VARCHAR2
8055 , x_msg_count out nocopy NUMBER
8056 , x_msg_data out nocopy VARCHAR2
8057 , p5_a0 JTF_NUMBER_TABLE
8058 , p5_a1 JTF_NUMBER_TABLE
8059 , p5_a2 JTF_NUMBER_TABLE
8060 , p5_a3 JTF_NUMBER_TABLE
8061 , p5_a4 JTF_NUMBER_TABLE
8062 , p5_a5 JTF_NUMBER_TABLE
8063 , p5_a6 JTF_VARCHAR2_TABLE_100
8064 , p5_a7 JTF_VARCHAR2_TABLE_200
8065 , p5_a8 JTF_VARCHAR2_TABLE_100
8066 , p5_a9 JTF_VARCHAR2_TABLE_100
8067 , p5_a10 JTF_VARCHAR2_TABLE_100
8068 , p5_a11 JTF_NUMBER_TABLE
8069 , p5_a12 JTF_VARCHAR2_TABLE_100
8070 , p5_a13 JTF_NUMBER_TABLE
8071 , p5_a14 JTF_VARCHAR2_TABLE_100
8072 , p5_a15 JTF_NUMBER_TABLE
8073 , p5_a16 JTF_DATE_TABLE
8074 , p5_a17 JTF_NUMBER_TABLE
8075 , p5_a18 JTF_DATE_TABLE
8076 , p5_a19 JTF_NUMBER_TABLE
8077 )
8078
8079 as
8080 ddp_cimv_tbl okl_okc_migration_pvt.cimv_tbl_type;
8081 ddindx binary_integer; indx binary_integer;
8082 begin
8083
8084 -- copy data to the local IN or IN-OUT args, if any
8085
8086
8087
8088
8089
8090 okl_okc_migration_pvt_w.rosetta_table_copy_in_p7(ddp_cimv_tbl, p5_a0
8091 , p5_a1
8092 , p5_a2
8093 , p5_a3
8094 , p5_a4
8095 , p5_a5
8096 , p5_a6
8097 , p5_a7
8098 , p5_a8
8099 , p5_a9
8100 , p5_a10
8101 , p5_a11
8102 , p5_a12
8103 , p5_a13
8104 , p5_a14
8105 , p5_a15
8106 , p5_a16
8107 , p5_a17
8108 , p5_a18
8109 , p5_a19
8110 );
8111
8112 -- here's the delegated call to the old PL/SQL routine
8113 okl_okc_migration_pvt.delete_contract_item(p_api_version,
8114 p_init_msg_list,
8115 x_return_status,
8116 x_msg_count,
8117 x_msg_data,
8118 ddp_cimv_tbl);
8119
8120 -- copy data back from the local variables to OUT or IN-OUT args, if any
8121
8122
8123
8124
8125
8126 end;
8127
8128 procedure create_k_party_role(p_api_version NUMBER
8129 , p_init_msg_list VARCHAR2
8130 , x_return_status out nocopy VARCHAR2
8131 , x_msg_count out nocopy NUMBER
8132 , x_msg_data out nocopy VARCHAR2
8133 , p6_a0 out nocopy NUMBER
8134 , p6_a1 out nocopy NUMBER
8135 , p6_a2 out nocopy VARCHAR2
8136 , p6_a3 out nocopy NUMBER
8137 , p6_a4 out nocopy NUMBER
8138 , p6_a5 out nocopy NUMBER
8139 , p6_a6 out nocopy VARCHAR2
8140 , p6_a7 out nocopy NUMBER
8141 , p6_a8 out nocopy VARCHAR2
8142 , p6_a9 out nocopy VARCHAR2
8143 , p6_a10 out nocopy VARCHAR2
8144 , p6_a11 out nocopy VARCHAR2
8145 , p6_a12 out nocopy VARCHAR2
8146 , p6_a13 out nocopy VARCHAR2
8147 , p6_a14 out nocopy VARCHAR2
8148 , p6_a15 out nocopy VARCHAR2
8149 , p6_a16 out nocopy VARCHAR2
8150 , p6_a17 out nocopy VARCHAR2
8151 , p6_a18 out nocopy VARCHAR2
8152 , p6_a19 out nocopy VARCHAR2
8153 , p6_a20 out nocopy VARCHAR2
8154 , p6_a21 out nocopy VARCHAR2
8155 , p6_a22 out nocopy VARCHAR2
8156 , p6_a23 out nocopy VARCHAR2
8157 , p6_a24 out nocopy VARCHAR2
8158 , p6_a25 out nocopy VARCHAR2
8159 , p6_a26 out nocopy VARCHAR2
8160 , p6_a27 out nocopy VARCHAR2
8161 , p6_a28 out nocopy VARCHAR2
8162 , p6_a29 out nocopy VARCHAR2
8163 , p6_a30 out nocopy VARCHAR2
8164 , p6_a31 out nocopy VARCHAR2
8165 , p6_a32 out nocopy VARCHAR2
8166 , p6_a33 out nocopy VARCHAR2
8167 , p6_a34 out nocopy NUMBER
8168 , p6_a35 out nocopy DATE
8169 , p6_a36 out nocopy NUMBER
8170 , p6_a37 out nocopy DATE
8171 , p6_a38 out nocopy NUMBER
8172 , p6_a39 out nocopy NUMBER
8173 , p6_a40 out nocopy NUMBER
8174 , p5_a0 NUMBER := 0-1962.0724
8175 , p5_a1 NUMBER := 0-1962.0724
8176 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
8177 , p5_a3 NUMBER := 0-1962.0724
8178 , p5_a4 NUMBER := 0-1962.0724
8179 , p5_a5 NUMBER := 0-1962.0724
8180 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
8181 , p5_a7 NUMBER := 0-1962.0724
8182 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
8183 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
8184 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
8185 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
8186 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
8187 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
8188 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
8189 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
8190 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
8191 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
8192 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
8193 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
8194 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
8195 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
8196 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
8197 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
8198 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
8199 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
8200 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
8201 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
8202 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
8203 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
8204 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
8205 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
8206 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
8207 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
8208 , p5_a34 NUMBER := 0-1962.0724
8209 , p5_a35 DATE := fnd_api.g_miss_date
8210 , p5_a36 NUMBER := 0-1962.0724
8211 , p5_a37 DATE := fnd_api.g_miss_date
8212 , p5_a38 NUMBER := 0-1962.0724
8213 , p5_a39 NUMBER := 0-1962.0724
8214 , p5_a40 NUMBER := 0-1962.0724
8215 )
8216
8217 as
8218 ddp_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
8219 ddx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
8220 ddindx binary_integer; indx binary_integer;
8221 begin
8222
8223 -- copy data to the local IN or IN-OUT args, if any
8224
8225
8226
8227
8228
8229 ddp_cplv_rec.id := rosetta_g_miss_num_map(p5_a0);
8230 ddp_cplv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
8231 ddp_cplv_rec.sfwt_flag := p5_a2;
8232 ddp_cplv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
8233 ddp_cplv_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
8234 ddp_cplv_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
8235 ddp_cplv_rec.rle_code := p5_a6;
8236 ddp_cplv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a7);
8237 ddp_cplv_rec.object1_id1 := p5_a8;
8238 ddp_cplv_rec.object1_id2 := p5_a9;
8239 ddp_cplv_rec.jtot_object1_code := p5_a10;
8240 ddp_cplv_rec.cognomen := p5_a11;
8241 ddp_cplv_rec.code := p5_a12;
8242 ddp_cplv_rec.facility := p5_a13;
8243 ddp_cplv_rec.minority_group_lookup_code := p5_a14;
8244 ddp_cplv_rec.small_business_flag := p5_a15;
8245 ddp_cplv_rec.women_owned_flag := p5_a16;
8246 ddp_cplv_rec.alias := p5_a17;
8247 ddp_cplv_rec.attribute_category := p5_a18;
8248 ddp_cplv_rec.attribute1 := p5_a19;
8249 ddp_cplv_rec.attribute2 := p5_a20;
8250 ddp_cplv_rec.attribute3 := p5_a21;
8251 ddp_cplv_rec.attribute4 := p5_a22;
8252 ddp_cplv_rec.attribute5 := p5_a23;
8253 ddp_cplv_rec.attribute6 := p5_a24;
8254 ddp_cplv_rec.attribute7 := p5_a25;
8255 ddp_cplv_rec.attribute8 := p5_a26;
8256 ddp_cplv_rec.attribute9 := p5_a27;
8257 ddp_cplv_rec.attribute10 := p5_a28;
8258 ddp_cplv_rec.attribute11 := p5_a29;
8259 ddp_cplv_rec.attribute12 := p5_a30;
8260 ddp_cplv_rec.attribute13 := p5_a31;
8261 ddp_cplv_rec.attribute14 := p5_a32;
8262 ddp_cplv_rec.attribute15 := p5_a33;
8263 ddp_cplv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
8264 ddp_cplv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
8265 ddp_cplv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
8266 ddp_cplv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
8267 ddp_cplv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
8268 ddp_cplv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a39);
8269 ddp_cplv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a40);
8270
8271
8272 -- here's the delegated call to the old PL/SQL routine
8273 okl_okc_migration_pvt.create_k_party_role(p_api_version,
8274 p_init_msg_list,
8275 x_return_status,
8276 x_msg_count,
8277 x_msg_data,
8278 ddp_cplv_rec,
8279 ddx_cplv_rec);
8280
8281 -- copy data back from the local variables to OUT or IN-OUT args, if any
8282
8283
8284
8285
8286
8287
8288 p6_a0 := rosetta_g_miss_num_map(ddx_cplv_rec.id);
8289 p6_a1 := rosetta_g_miss_num_map(ddx_cplv_rec.object_version_number);
8290 p6_a2 := ddx_cplv_rec.sfwt_flag;
8291 p6_a3 := rosetta_g_miss_num_map(ddx_cplv_rec.cpl_id);
8292 p6_a4 := rosetta_g_miss_num_map(ddx_cplv_rec.chr_id);
8293 p6_a5 := rosetta_g_miss_num_map(ddx_cplv_rec.cle_id);
8294 p6_a6 := ddx_cplv_rec.rle_code;
8295 p6_a7 := rosetta_g_miss_num_map(ddx_cplv_rec.dnz_chr_id);
8296 p6_a8 := ddx_cplv_rec.object1_id1;
8297 p6_a9 := ddx_cplv_rec.object1_id2;
8298 p6_a10 := ddx_cplv_rec.jtot_object1_code;
8299 p6_a11 := ddx_cplv_rec.cognomen;
8300 p6_a12 := ddx_cplv_rec.code;
8301 p6_a13 := ddx_cplv_rec.facility;
8302 p6_a14 := ddx_cplv_rec.minority_group_lookup_code;
8303 p6_a15 := ddx_cplv_rec.small_business_flag;
8304 p6_a16 := ddx_cplv_rec.women_owned_flag;
8305 p6_a17 := ddx_cplv_rec.alias;
8306 p6_a18 := ddx_cplv_rec.attribute_category;
8307 p6_a19 := ddx_cplv_rec.attribute1;
8308 p6_a20 := ddx_cplv_rec.attribute2;
8309 p6_a21 := ddx_cplv_rec.attribute3;
8310 p6_a22 := ddx_cplv_rec.attribute4;
8311 p6_a23 := ddx_cplv_rec.attribute5;
8312 p6_a24 := ddx_cplv_rec.attribute6;
8313 p6_a25 := ddx_cplv_rec.attribute7;
8314 p6_a26 := ddx_cplv_rec.attribute8;
8315 p6_a27 := ddx_cplv_rec.attribute9;
8316 p6_a28 := ddx_cplv_rec.attribute10;
8317 p6_a29 := ddx_cplv_rec.attribute11;
8318 p6_a30 := ddx_cplv_rec.attribute12;
8319 p6_a31 := ddx_cplv_rec.attribute13;
8320 p6_a32 := ddx_cplv_rec.attribute14;
8321 p6_a33 := ddx_cplv_rec.attribute15;
8322 p6_a34 := rosetta_g_miss_num_map(ddx_cplv_rec.created_by);
8323 p6_a35 := ddx_cplv_rec.creation_date;
8324 p6_a36 := rosetta_g_miss_num_map(ddx_cplv_rec.last_updated_by);
8325 p6_a37 := ddx_cplv_rec.last_update_date;
8326 p6_a38 := rosetta_g_miss_num_map(ddx_cplv_rec.last_update_login);
8327 p6_a39 := rosetta_g_miss_num_map(ddx_cplv_rec.cust_acct_id);
8328 p6_a40 := rosetta_g_miss_num_map(ddx_cplv_rec.bill_to_site_use_id);
8329 end;
8330
8331 procedure create_k_party_role(p_api_version NUMBER
8332 , p_init_msg_list VARCHAR2
8333 , x_return_status out nocopy VARCHAR2
8334 , x_msg_count out nocopy NUMBER
8335 , x_msg_data out nocopy VARCHAR2
8336 , p5_a0 JTF_NUMBER_TABLE
8337 , p5_a1 JTF_NUMBER_TABLE
8338 , p5_a2 JTF_VARCHAR2_TABLE_100
8339 , p5_a3 JTF_NUMBER_TABLE
8340 , p5_a4 JTF_NUMBER_TABLE
8341 , p5_a5 JTF_NUMBER_TABLE
8342 , p5_a6 JTF_VARCHAR2_TABLE_100
8343 , p5_a7 JTF_NUMBER_TABLE
8344 , p5_a8 JTF_VARCHAR2_TABLE_100
8345 , p5_a9 JTF_VARCHAR2_TABLE_200
8346 , p5_a10 JTF_VARCHAR2_TABLE_100
8347 , p5_a11 JTF_VARCHAR2_TABLE_300
8348 , p5_a12 JTF_VARCHAR2_TABLE_100
8349 , p5_a13 JTF_VARCHAR2_TABLE_100
8350 , p5_a14 JTF_VARCHAR2_TABLE_100
8351 , p5_a15 JTF_VARCHAR2_TABLE_100
8352 , p5_a16 JTF_VARCHAR2_TABLE_100
8353 , p5_a17 JTF_VARCHAR2_TABLE_200
8354 , p5_a18 JTF_VARCHAR2_TABLE_100
8355 , p5_a19 JTF_VARCHAR2_TABLE_500
8356 , p5_a20 JTF_VARCHAR2_TABLE_500
8357 , p5_a21 JTF_VARCHAR2_TABLE_500
8358 , p5_a22 JTF_VARCHAR2_TABLE_500
8359 , p5_a23 JTF_VARCHAR2_TABLE_500
8360 , p5_a24 JTF_VARCHAR2_TABLE_500
8361 , p5_a25 JTF_VARCHAR2_TABLE_500
8362 , p5_a26 JTF_VARCHAR2_TABLE_500
8363 , p5_a27 JTF_VARCHAR2_TABLE_500
8364 , p5_a28 JTF_VARCHAR2_TABLE_500
8365 , p5_a29 JTF_VARCHAR2_TABLE_500
8366 , p5_a30 JTF_VARCHAR2_TABLE_500
8367 , p5_a31 JTF_VARCHAR2_TABLE_500
8368 , p5_a32 JTF_VARCHAR2_TABLE_500
8369 , p5_a33 JTF_VARCHAR2_TABLE_500
8370 , p5_a34 JTF_NUMBER_TABLE
8371 , p5_a35 JTF_DATE_TABLE
8372 , p5_a36 JTF_NUMBER_TABLE
8373 , p5_a37 JTF_DATE_TABLE
8374 , p5_a38 JTF_NUMBER_TABLE
8375 , p5_a39 JTF_NUMBER_TABLE
8376 , p5_a40 JTF_NUMBER_TABLE
8377 , p6_a0 out nocopy JTF_NUMBER_TABLE
8378 , p6_a1 out nocopy JTF_NUMBER_TABLE
8379 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
8380 , p6_a3 out nocopy JTF_NUMBER_TABLE
8381 , p6_a4 out nocopy JTF_NUMBER_TABLE
8382 , p6_a5 out nocopy JTF_NUMBER_TABLE
8383 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
8384 , p6_a7 out nocopy JTF_NUMBER_TABLE
8385 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
8386 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_200
8387 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
8388 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_300
8389 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
8390 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
8391 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
8392 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
8393 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
8394 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_200
8395 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
8396 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
8397 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
8398 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
8399 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
8400 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
8401 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
8402 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
8403 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
8404 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
8405 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
8406 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
8407 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
8408 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
8409 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
8410 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
8411 , p6_a34 out nocopy JTF_NUMBER_TABLE
8412 , p6_a35 out nocopy JTF_DATE_TABLE
8413 , p6_a36 out nocopy JTF_NUMBER_TABLE
8414 , p6_a37 out nocopy JTF_DATE_TABLE
8415 , p6_a38 out nocopy JTF_NUMBER_TABLE
8416 , p6_a39 out nocopy JTF_NUMBER_TABLE
8417 , p6_a40 out nocopy JTF_NUMBER_TABLE
8418 )
8419
8420 as
8421 ddp_cplv_tbl okl_okc_migration_pvt.cplv_tbl_type;
8422 ddx_cplv_tbl okl_okc_migration_pvt.cplv_tbl_type;
8423 ddindx binary_integer; indx binary_integer;
8424 begin
8425
8426 -- copy data to the local IN or IN-OUT args, if any
8427
8428
8429
8430
8431
8432 okl_okc_migration_pvt_w.rosetta_table_copy_in_p9(ddp_cplv_tbl, p5_a0
8433 , p5_a1
8434 , p5_a2
8435 , p5_a3
8436 , p5_a4
8437 , p5_a5
8438 , p5_a6
8439 , p5_a7
8440 , p5_a8
8441 , p5_a9
8442 , p5_a10
8443 , p5_a11
8444 , p5_a12
8445 , p5_a13
8446 , p5_a14
8447 , p5_a15
8448 , p5_a16
8449 , p5_a17
8450 , p5_a18
8451 , p5_a19
8452 , p5_a20
8453 , p5_a21
8454 , p5_a22
8455 , p5_a23
8456 , p5_a24
8457 , p5_a25
8458 , p5_a26
8459 , p5_a27
8460 , p5_a28
8461 , p5_a29
8462 , p5_a30
8463 , p5_a31
8464 , p5_a32
8465 , p5_a33
8466 , p5_a34
8467 , p5_a35
8468 , p5_a36
8469 , p5_a37
8470 , p5_a38
8471 , p5_a39
8472 , p5_a40
8473 );
8474
8475
8476 -- here's the delegated call to the old PL/SQL routine
8477 okl_okc_migration_pvt.create_k_party_role(p_api_version,
8478 p_init_msg_list,
8479 x_return_status,
8480 x_msg_count,
8481 x_msg_data,
8482 ddp_cplv_tbl,
8483 ddx_cplv_tbl);
8484
8485 -- copy data back from the local variables to OUT or IN-OUT args, if any
8486
8487
8488
8489
8490
8491
8492 okl_okc_migration_pvt_w.rosetta_table_copy_out_p9(ddx_cplv_tbl, p6_a0
8493 , p6_a1
8494 , p6_a2
8495 , p6_a3
8496 , p6_a4
8497 , p6_a5
8498 , p6_a6
8499 , p6_a7
8500 , p6_a8
8501 , p6_a9
8502 , p6_a10
8503 , p6_a11
8504 , p6_a12
8505 , p6_a13
8506 , p6_a14
8507 , p6_a15
8508 , p6_a16
8509 , p6_a17
8510 , p6_a18
8511 , p6_a19
8512 , p6_a20
8513 , p6_a21
8514 , p6_a22
8515 , p6_a23
8516 , p6_a24
8517 , p6_a25
8518 , p6_a26
8519 , p6_a27
8520 , p6_a28
8521 , p6_a29
8522 , p6_a30
8523 , p6_a31
8524 , p6_a32
8525 , p6_a33
8526 , p6_a34
8527 , p6_a35
8528 , p6_a36
8529 , p6_a37
8530 , p6_a38
8531 , p6_a39
8532 , p6_a40
8533 );
8534 end;
8535
8536 procedure update_k_party_role(p_api_version NUMBER
8537 , p_init_msg_list VARCHAR2
8538 , x_return_status out nocopy VARCHAR2
8539 , x_msg_count out nocopy NUMBER
8540 , x_msg_data out nocopy VARCHAR2
8541 , p6_a0 out nocopy NUMBER
8542 , p6_a1 out nocopy NUMBER
8543 , p6_a2 out nocopy VARCHAR2
8544 , p6_a3 out nocopy NUMBER
8545 , p6_a4 out nocopy NUMBER
8546 , p6_a5 out nocopy NUMBER
8547 , p6_a6 out nocopy VARCHAR2
8548 , p6_a7 out nocopy NUMBER
8549 , p6_a8 out nocopy VARCHAR2
8550 , p6_a9 out nocopy VARCHAR2
8551 , p6_a10 out nocopy VARCHAR2
8552 , p6_a11 out nocopy VARCHAR2
8553 , p6_a12 out nocopy VARCHAR2
8554 , p6_a13 out nocopy VARCHAR2
8555 , p6_a14 out nocopy VARCHAR2
8556 , p6_a15 out nocopy VARCHAR2
8557 , p6_a16 out nocopy VARCHAR2
8558 , p6_a17 out nocopy VARCHAR2
8559 , p6_a18 out nocopy VARCHAR2
8560 , p6_a19 out nocopy VARCHAR2
8561 , p6_a20 out nocopy VARCHAR2
8562 , p6_a21 out nocopy VARCHAR2
8563 , p6_a22 out nocopy VARCHAR2
8564 , p6_a23 out nocopy VARCHAR2
8565 , p6_a24 out nocopy VARCHAR2
8566 , p6_a25 out nocopy VARCHAR2
8567 , p6_a26 out nocopy VARCHAR2
8568 , p6_a27 out nocopy VARCHAR2
8569 , p6_a28 out nocopy VARCHAR2
8570 , p6_a29 out nocopy VARCHAR2
8571 , p6_a30 out nocopy VARCHAR2
8572 , p6_a31 out nocopy VARCHAR2
8573 , p6_a32 out nocopy VARCHAR2
8574 , p6_a33 out nocopy VARCHAR2
8575 , p6_a34 out nocopy NUMBER
8576 , p6_a35 out nocopy DATE
8577 , p6_a36 out nocopy NUMBER
8578 , p6_a37 out nocopy DATE
8579 , p6_a38 out nocopy NUMBER
8580 , p6_a39 out nocopy NUMBER
8581 , p6_a40 out nocopy NUMBER
8582 , p5_a0 NUMBER := 0-1962.0724
8583 , p5_a1 NUMBER := 0-1962.0724
8584 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
8585 , p5_a3 NUMBER := 0-1962.0724
8586 , p5_a4 NUMBER := 0-1962.0724
8587 , p5_a5 NUMBER := 0-1962.0724
8588 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
8589 , p5_a7 NUMBER := 0-1962.0724
8590 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
8591 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
8592 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
8593 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
8594 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
8595 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
8596 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
8597 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
8598 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
8599 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
8600 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
8601 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
8602 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
8603 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
8604 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
8605 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
8606 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
8607 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
8608 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
8609 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
8610 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
8611 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
8612 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
8613 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
8614 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
8615 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
8616 , p5_a34 NUMBER := 0-1962.0724
8617 , p5_a35 DATE := fnd_api.g_miss_date
8618 , p5_a36 NUMBER := 0-1962.0724
8619 , p5_a37 DATE := fnd_api.g_miss_date
8620 , p5_a38 NUMBER := 0-1962.0724
8621 , p5_a39 NUMBER := 0-1962.0724
8622 , p5_a40 NUMBER := 0-1962.0724
8623 )
8624
8625 as
8626 ddp_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
8627 ddx_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
8628 ddindx binary_integer; indx binary_integer;
8629 begin
8630
8631 -- copy data to the local IN or IN-OUT args, if any
8632
8633
8634
8635
8636
8637 ddp_cplv_rec.id := rosetta_g_miss_num_map(p5_a0);
8638 ddp_cplv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
8639 ddp_cplv_rec.sfwt_flag := p5_a2;
8640 ddp_cplv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
8641 ddp_cplv_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
8642 ddp_cplv_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
8643 ddp_cplv_rec.rle_code := p5_a6;
8644 ddp_cplv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a7);
8645 ddp_cplv_rec.object1_id1 := p5_a8;
8646 ddp_cplv_rec.object1_id2 := p5_a9;
8647 ddp_cplv_rec.jtot_object1_code := p5_a10;
8648 ddp_cplv_rec.cognomen := p5_a11;
8649 ddp_cplv_rec.code := p5_a12;
8650 ddp_cplv_rec.facility := p5_a13;
8651 ddp_cplv_rec.minority_group_lookup_code := p5_a14;
8652 ddp_cplv_rec.small_business_flag := p5_a15;
8653 ddp_cplv_rec.women_owned_flag := p5_a16;
8654 ddp_cplv_rec.alias := p5_a17;
8655 ddp_cplv_rec.attribute_category := p5_a18;
8656 ddp_cplv_rec.attribute1 := p5_a19;
8657 ddp_cplv_rec.attribute2 := p5_a20;
8658 ddp_cplv_rec.attribute3 := p5_a21;
8659 ddp_cplv_rec.attribute4 := p5_a22;
8660 ddp_cplv_rec.attribute5 := p5_a23;
8661 ddp_cplv_rec.attribute6 := p5_a24;
8662 ddp_cplv_rec.attribute7 := p5_a25;
8663 ddp_cplv_rec.attribute8 := p5_a26;
8664 ddp_cplv_rec.attribute9 := p5_a27;
8665 ddp_cplv_rec.attribute10 := p5_a28;
8666 ddp_cplv_rec.attribute11 := p5_a29;
8667 ddp_cplv_rec.attribute12 := p5_a30;
8668 ddp_cplv_rec.attribute13 := p5_a31;
8669 ddp_cplv_rec.attribute14 := p5_a32;
8670 ddp_cplv_rec.attribute15 := p5_a33;
8671 ddp_cplv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
8672 ddp_cplv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
8673 ddp_cplv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
8674 ddp_cplv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
8675 ddp_cplv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
8676 ddp_cplv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a39);
8677 ddp_cplv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a40);
8678
8679
8680 -- here's the delegated call to the old PL/SQL routine
8681 okl_okc_migration_pvt.update_k_party_role(p_api_version,
8682 p_init_msg_list,
8683 x_return_status,
8684 x_msg_count,
8685 x_msg_data,
8686 ddp_cplv_rec,
8687 ddx_cplv_rec);
8688
8689 -- copy data back from the local variables to OUT or IN-OUT args, if any
8690
8691
8692
8693
8694
8695
8696 p6_a0 := rosetta_g_miss_num_map(ddx_cplv_rec.id);
8697 p6_a1 := rosetta_g_miss_num_map(ddx_cplv_rec.object_version_number);
8698 p6_a2 := ddx_cplv_rec.sfwt_flag;
8699 p6_a3 := rosetta_g_miss_num_map(ddx_cplv_rec.cpl_id);
8700 p6_a4 := rosetta_g_miss_num_map(ddx_cplv_rec.chr_id);
8701 p6_a5 := rosetta_g_miss_num_map(ddx_cplv_rec.cle_id);
8702 p6_a6 := ddx_cplv_rec.rle_code;
8703 p6_a7 := rosetta_g_miss_num_map(ddx_cplv_rec.dnz_chr_id);
8704 p6_a8 := ddx_cplv_rec.object1_id1;
8705 p6_a9 := ddx_cplv_rec.object1_id2;
8706 p6_a10 := ddx_cplv_rec.jtot_object1_code;
8707 p6_a11 := ddx_cplv_rec.cognomen;
8708 p6_a12 := ddx_cplv_rec.code;
8709 p6_a13 := ddx_cplv_rec.facility;
8710 p6_a14 := ddx_cplv_rec.minority_group_lookup_code;
8711 p6_a15 := ddx_cplv_rec.small_business_flag;
8712 p6_a16 := ddx_cplv_rec.women_owned_flag;
8713 p6_a17 := ddx_cplv_rec.alias;
8714 p6_a18 := ddx_cplv_rec.attribute_category;
8715 p6_a19 := ddx_cplv_rec.attribute1;
8716 p6_a20 := ddx_cplv_rec.attribute2;
8717 p6_a21 := ddx_cplv_rec.attribute3;
8718 p6_a22 := ddx_cplv_rec.attribute4;
8719 p6_a23 := ddx_cplv_rec.attribute5;
8720 p6_a24 := ddx_cplv_rec.attribute6;
8721 p6_a25 := ddx_cplv_rec.attribute7;
8722 p6_a26 := ddx_cplv_rec.attribute8;
8723 p6_a27 := ddx_cplv_rec.attribute9;
8724 p6_a28 := ddx_cplv_rec.attribute10;
8725 p6_a29 := ddx_cplv_rec.attribute11;
8726 p6_a30 := ddx_cplv_rec.attribute12;
8727 p6_a31 := ddx_cplv_rec.attribute13;
8728 p6_a32 := ddx_cplv_rec.attribute14;
8729 p6_a33 := ddx_cplv_rec.attribute15;
8730 p6_a34 := rosetta_g_miss_num_map(ddx_cplv_rec.created_by);
8731 p6_a35 := ddx_cplv_rec.creation_date;
8732 p6_a36 := rosetta_g_miss_num_map(ddx_cplv_rec.last_updated_by);
8733 p6_a37 := ddx_cplv_rec.last_update_date;
8734 p6_a38 := rosetta_g_miss_num_map(ddx_cplv_rec.last_update_login);
8735 p6_a39 := rosetta_g_miss_num_map(ddx_cplv_rec.cust_acct_id);
8736 p6_a40 := rosetta_g_miss_num_map(ddx_cplv_rec.bill_to_site_use_id);
8737 end;
8738
8739 procedure update_k_party_role(p_api_version NUMBER
8740 , p_init_msg_list VARCHAR2
8741 , x_return_status out nocopy VARCHAR2
8742 , x_msg_count out nocopy NUMBER
8743 , x_msg_data out nocopy VARCHAR2
8744 , p5_a0 JTF_NUMBER_TABLE
8745 , p5_a1 JTF_NUMBER_TABLE
8746 , p5_a2 JTF_VARCHAR2_TABLE_100
8747 , p5_a3 JTF_NUMBER_TABLE
8748 , p5_a4 JTF_NUMBER_TABLE
8749 , p5_a5 JTF_NUMBER_TABLE
8750 , p5_a6 JTF_VARCHAR2_TABLE_100
8751 , p5_a7 JTF_NUMBER_TABLE
8752 , p5_a8 JTF_VARCHAR2_TABLE_100
8753 , p5_a9 JTF_VARCHAR2_TABLE_200
8754 , p5_a10 JTF_VARCHAR2_TABLE_100
8755 , p5_a11 JTF_VARCHAR2_TABLE_300
8756 , p5_a12 JTF_VARCHAR2_TABLE_100
8757 , p5_a13 JTF_VARCHAR2_TABLE_100
8758 , p5_a14 JTF_VARCHAR2_TABLE_100
8759 , p5_a15 JTF_VARCHAR2_TABLE_100
8760 , p5_a16 JTF_VARCHAR2_TABLE_100
8761 , p5_a17 JTF_VARCHAR2_TABLE_200
8762 , p5_a18 JTF_VARCHAR2_TABLE_100
8763 , p5_a19 JTF_VARCHAR2_TABLE_500
8764 , p5_a20 JTF_VARCHAR2_TABLE_500
8765 , p5_a21 JTF_VARCHAR2_TABLE_500
8766 , p5_a22 JTF_VARCHAR2_TABLE_500
8767 , p5_a23 JTF_VARCHAR2_TABLE_500
8768 , p5_a24 JTF_VARCHAR2_TABLE_500
8769 , p5_a25 JTF_VARCHAR2_TABLE_500
8770 , p5_a26 JTF_VARCHAR2_TABLE_500
8771 , p5_a27 JTF_VARCHAR2_TABLE_500
8772 , p5_a28 JTF_VARCHAR2_TABLE_500
8773 , p5_a29 JTF_VARCHAR2_TABLE_500
8774 , p5_a30 JTF_VARCHAR2_TABLE_500
8775 , p5_a31 JTF_VARCHAR2_TABLE_500
8776 , p5_a32 JTF_VARCHAR2_TABLE_500
8777 , p5_a33 JTF_VARCHAR2_TABLE_500
8778 , p5_a34 JTF_NUMBER_TABLE
8779 , p5_a35 JTF_DATE_TABLE
8780 , p5_a36 JTF_NUMBER_TABLE
8781 , p5_a37 JTF_DATE_TABLE
8782 , p5_a38 JTF_NUMBER_TABLE
8783 , p5_a39 JTF_NUMBER_TABLE
8784 , p5_a40 JTF_NUMBER_TABLE
8785 , p6_a0 out nocopy JTF_NUMBER_TABLE
8786 , p6_a1 out nocopy JTF_NUMBER_TABLE
8787 , p6_a2 out nocopy JTF_VARCHAR2_TABLE_100
8788 , p6_a3 out nocopy JTF_NUMBER_TABLE
8789 , p6_a4 out nocopy JTF_NUMBER_TABLE
8790 , p6_a5 out nocopy JTF_NUMBER_TABLE
8791 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
8792 , p6_a7 out nocopy JTF_NUMBER_TABLE
8793 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
8794 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_200
8795 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_100
8796 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_300
8797 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_100
8798 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_100
8799 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_100
8800 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_100
8801 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_100
8802 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_200
8803 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_100
8804 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
8805 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
8806 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
8807 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
8808 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
8809 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
8810 , p6_a25 out nocopy JTF_VARCHAR2_TABLE_500
8811 , p6_a26 out nocopy JTF_VARCHAR2_TABLE_500
8812 , p6_a27 out nocopy JTF_VARCHAR2_TABLE_500
8813 , p6_a28 out nocopy JTF_VARCHAR2_TABLE_500
8814 , p6_a29 out nocopy JTF_VARCHAR2_TABLE_500
8815 , p6_a30 out nocopy JTF_VARCHAR2_TABLE_500
8816 , p6_a31 out nocopy JTF_VARCHAR2_TABLE_500
8817 , p6_a32 out nocopy JTF_VARCHAR2_TABLE_500
8818 , p6_a33 out nocopy JTF_VARCHAR2_TABLE_500
8819 , p6_a34 out nocopy JTF_NUMBER_TABLE
8820 , p6_a35 out nocopy JTF_DATE_TABLE
8821 , p6_a36 out nocopy JTF_NUMBER_TABLE
8822 , p6_a37 out nocopy JTF_DATE_TABLE
8823 , p6_a38 out nocopy JTF_NUMBER_TABLE
8824 , p6_a39 out nocopy JTF_NUMBER_TABLE
8825 , p6_a40 out nocopy JTF_NUMBER_TABLE
8826 )
8827
8828 as
8829 ddp_cplv_tbl okl_okc_migration_pvt.cplv_tbl_type;
8830 ddx_cplv_tbl okl_okc_migration_pvt.cplv_tbl_type;
8831 ddindx binary_integer; indx binary_integer;
8832 begin
8833
8834 -- copy data to the local IN or IN-OUT args, if any
8835
8836
8837
8838
8839
8840 okl_okc_migration_pvt_w.rosetta_table_copy_in_p9(ddp_cplv_tbl, p5_a0
8841 , p5_a1
8842 , p5_a2
8843 , p5_a3
8844 , p5_a4
8845 , p5_a5
8846 , p5_a6
8847 , p5_a7
8848 , p5_a8
8849 , p5_a9
8850 , p5_a10
8851 , p5_a11
8852 , p5_a12
8853 , p5_a13
8854 , p5_a14
8855 , p5_a15
8856 , p5_a16
8857 , p5_a17
8858 , p5_a18
8859 , p5_a19
8860 , p5_a20
8861 , p5_a21
8862 , p5_a22
8863 , p5_a23
8864 , p5_a24
8865 , p5_a25
8866 , p5_a26
8867 , p5_a27
8868 , p5_a28
8869 , p5_a29
8870 , p5_a30
8871 , p5_a31
8872 , p5_a32
8873 , p5_a33
8874 , p5_a34
8875 , p5_a35
8876 , p5_a36
8877 , p5_a37
8878 , p5_a38
8879 , p5_a39
8880 , p5_a40
8881 );
8882
8883
8884 -- here's the delegated call to the old PL/SQL routine
8885 okl_okc_migration_pvt.update_k_party_role(p_api_version,
8886 p_init_msg_list,
8887 x_return_status,
8888 x_msg_count,
8889 x_msg_data,
8890 ddp_cplv_tbl,
8891 ddx_cplv_tbl);
8892
8893 -- copy data back from the local variables to OUT or IN-OUT args, if any
8894
8895
8896
8897
8898
8899
8900 okl_okc_migration_pvt_w.rosetta_table_copy_out_p9(ddx_cplv_tbl, p6_a0
8901 , p6_a1
8902 , p6_a2
8903 , p6_a3
8904 , p6_a4
8905 , p6_a5
8906 , p6_a6
8907 , p6_a7
8908 , p6_a8
8909 , p6_a9
8910 , p6_a10
8911 , p6_a11
8912 , p6_a12
8913 , p6_a13
8914 , p6_a14
8915 , p6_a15
8916 , p6_a16
8917 , p6_a17
8918 , p6_a18
8919 , p6_a19
8920 , p6_a20
8921 , p6_a21
8922 , p6_a22
8923 , p6_a23
8924 , p6_a24
8925 , p6_a25
8926 , p6_a26
8927 , p6_a27
8928 , p6_a28
8929 , p6_a29
8930 , p6_a30
8931 , p6_a31
8932 , p6_a32
8933 , p6_a33
8934 , p6_a34
8935 , p6_a35
8936 , p6_a36
8937 , p6_a37
8938 , p6_a38
8939 , p6_a39
8940 , p6_a40
8941 );
8942 end;
8943
8944 procedure delete_k_party_role(p_api_version NUMBER
8945 , p_init_msg_list VARCHAR2
8946 , x_return_status out nocopy VARCHAR2
8947 , x_msg_count out nocopy NUMBER
8948 , x_msg_data out nocopy VARCHAR2
8949 , p5_a0 NUMBER := 0-1962.0724
8950 , p5_a1 NUMBER := 0-1962.0724
8951 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
8952 , p5_a3 NUMBER := 0-1962.0724
8953 , p5_a4 NUMBER := 0-1962.0724
8954 , p5_a5 NUMBER := 0-1962.0724
8955 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
8956 , p5_a7 NUMBER := 0-1962.0724
8957 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
8958 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
8959 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
8960 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
8961 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
8962 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
8963 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
8964 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
8965 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
8966 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
8967 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
8968 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
8969 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
8970 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
8971 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
8972 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
8973 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
8974 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
8975 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
8976 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
8977 , p5_a28 VARCHAR2 := fnd_api.g_miss_char
8978 , p5_a29 VARCHAR2 := fnd_api.g_miss_char
8979 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
8980 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
8981 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
8982 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
8983 , p5_a34 NUMBER := 0-1962.0724
8984 , p5_a35 DATE := fnd_api.g_miss_date
8985 , p5_a36 NUMBER := 0-1962.0724
8986 , p5_a37 DATE := fnd_api.g_miss_date
8987 , p5_a38 NUMBER := 0-1962.0724
8988 , p5_a39 NUMBER := 0-1962.0724
8989 , p5_a40 NUMBER := 0-1962.0724
8990 )
8991
8992 as
8993 ddp_cplv_rec okl_okc_migration_pvt.cplv_rec_type;
8994 ddindx binary_integer; indx binary_integer;
8995 begin
8996
8997 -- copy data to the local IN or IN-OUT args, if any
8998
8999
9000
9001
9002
9003 ddp_cplv_rec.id := rosetta_g_miss_num_map(p5_a0);
9004 ddp_cplv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
9005 ddp_cplv_rec.sfwt_flag := p5_a2;
9006 ddp_cplv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
9007 ddp_cplv_rec.chr_id := rosetta_g_miss_num_map(p5_a4);
9008 ddp_cplv_rec.cle_id := rosetta_g_miss_num_map(p5_a5);
9009 ddp_cplv_rec.rle_code := p5_a6;
9010 ddp_cplv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a7);
9011 ddp_cplv_rec.object1_id1 := p5_a8;
9012 ddp_cplv_rec.object1_id2 := p5_a9;
9013 ddp_cplv_rec.jtot_object1_code := p5_a10;
9014 ddp_cplv_rec.cognomen := p5_a11;
9015 ddp_cplv_rec.code := p5_a12;
9016 ddp_cplv_rec.facility := p5_a13;
9017 ddp_cplv_rec.minority_group_lookup_code := p5_a14;
9018 ddp_cplv_rec.small_business_flag := p5_a15;
9019 ddp_cplv_rec.women_owned_flag := p5_a16;
9020 ddp_cplv_rec.alias := p5_a17;
9021 ddp_cplv_rec.attribute_category := p5_a18;
9022 ddp_cplv_rec.attribute1 := p5_a19;
9023 ddp_cplv_rec.attribute2 := p5_a20;
9024 ddp_cplv_rec.attribute3 := p5_a21;
9025 ddp_cplv_rec.attribute4 := p5_a22;
9026 ddp_cplv_rec.attribute5 := p5_a23;
9027 ddp_cplv_rec.attribute6 := p5_a24;
9028 ddp_cplv_rec.attribute7 := p5_a25;
9029 ddp_cplv_rec.attribute8 := p5_a26;
9030 ddp_cplv_rec.attribute9 := p5_a27;
9031 ddp_cplv_rec.attribute10 := p5_a28;
9032 ddp_cplv_rec.attribute11 := p5_a29;
9033 ddp_cplv_rec.attribute12 := p5_a30;
9034 ddp_cplv_rec.attribute13 := p5_a31;
9035 ddp_cplv_rec.attribute14 := p5_a32;
9036 ddp_cplv_rec.attribute15 := p5_a33;
9037 ddp_cplv_rec.created_by := rosetta_g_miss_num_map(p5_a34);
9038 ddp_cplv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a35);
9039 ddp_cplv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a36);
9040 ddp_cplv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a37);
9041 ddp_cplv_rec.last_update_login := rosetta_g_miss_num_map(p5_a38);
9042 ddp_cplv_rec.cust_acct_id := rosetta_g_miss_num_map(p5_a39);
9043 ddp_cplv_rec.bill_to_site_use_id := rosetta_g_miss_num_map(p5_a40);
9044
9045 -- here's the delegated call to the old PL/SQL routine
9046 okl_okc_migration_pvt.delete_k_party_role(p_api_version,
9047 p_init_msg_list,
9048 x_return_status,
9049 x_msg_count,
9050 x_msg_data,
9051 ddp_cplv_rec);
9052
9053 -- copy data back from the local variables to OUT or IN-OUT args, if any
9054
9055
9056
9057
9058
9059 end;
9060
9061 procedure delete_k_party_role(p_api_version NUMBER
9062 , p_init_msg_list VARCHAR2
9063 , x_return_status out nocopy VARCHAR2
9064 , x_msg_count out nocopy NUMBER
9065 , x_msg_data out nocopy VARCHAR2
9066 , p5_a0 JTF_NUMBER_TABLE
9067 , p5_a1 JTF_NUMBER_TABLE
9068 , p5_a2 JTF_VARCHAR2_TABLE_100
9069 , p5_a3 JTF_NUMBER_TABLE
9070 , p5_a4 JTF_NUMBER_TABLE
9071 , p5_a5 JTF_NUMBER_TABLE
9072 , p5_a6 JTF_VARCHAR2_TABLE_100
9073 , p5_a7 JTF_NUMBER_TABLE
9074 , p5_a8 JTF_VARCHAR2_TABLE_100
9075 , p5_a9 JTF_VARCHAR2_TABLE_200
9076 , p5_a10 JTF_VARCHAR2_TABLE_100
9077 , p5_a11 JTF_VARCHAR2_TABLE_300
9078 , p5_a12 JTF_VARCHAR2_TABLE_100
9079 , p5_a13 JTF_VARCHAR2_TABLE_100
9080 , p5_a14 JTF_VARCHAR2_TABLE_100
9081 , p5_a15 JTF_VARCHAR2_TABLE_100
9082 , p5_a16 JTF_VARCHAR2_TABLE_100
9083 , p5_a17 JTF_VARCHAR2_TABLE_200
9084 , p5_a18 JTF_VARCHAR2_TABLE_100
9085 , p5_a19 JTF_VARCHAR2_TABLE_500
9086 , p5_a20 JTF_VARCHAR2_TABLE_500
9087 , p5_a21 JTF_VARCHAR2_TABLE_500
9088 , p5_a22 JTF_VARCHAR2_TABLE_500
9089 , p5_a23 JTF_VARCHAR2_TABLE_500
9090 , p5_a24 JTF_VARCHAR2_TABLE_500
9091 , p5_a25 JTF_VARCHAR2_TABLE_500
9092 , p5_a26 JTF_VARCHAR2_TABLE_500
9093 , p5_a27 JTF_VARCHAR2_TABLE_500
9094 , p5_a28 JTF_VARCHAR2_TABLE_500
9095 , p5_a29 JTF_VARCHAR2_TABLE_500
9096 , p5_a30 JTF_VARCHAR2_TABLE_500
9097 , p5_a31 JTF_VARCHAR2_TABLE_500
9098 , p5_a32 JTF_VARCHAR2_TABLE_500
9099 , p5_a33 JTF_VARCHAR2_TABLE_500
9100 , p5_a34 JTF_NUMBER_TABLE
9101 , p5_a35 JTF_DATE_TABLE
9102 , p5_a36 JTF_NUMBER_TABLE
9103 , p5_a37 JTF_DATE_TABLE
9104 , p5_a38 JTF_NUMBER_TABLE
9105 , p5_a39 JTF_NUMBER_TABLE
9106 , p5_a40 JTF_NUMBER_TABLE
9107 )
9108
9109 as
9110 ddp_cplv_tbl okl_okc_migration_pvt.cplv_tbl_type;
9111 ddindx binary_integer; indx binary_integer;
9112 begin
9113
9114 -- copy data to the local IN or IN-OUT args, if any
9115
9116
9117
9118
9119
9120 okl_okc_migration_pvt_w.rosetta_table_copy_in_p9(ddp_cplv_tbl, p5_a0
9121 , p5_a1
9122 , p5_a2
9123 , p5_a3
9124 , p5_a4
9125 , p5_a5
9126 , p5_a6
9127 , p5_a7
9128 , p5_a8
9129 , p5_a9
9130 , p5_a10
9131 , p5_a11
9132 , p5_a12
9133 , p5_a13
9134 , p5_a14
9135 , p5_a15
9136 , p5_a16
9137 , p5_a17
9138 , p5_a18
9139 , p5_a19
9140 , p5_a20
9141 , p5_a21
9142 , p5_a22
9143 , p5_a23
9144 , p5_a24
9145 , p5_a25
9146 , p5_a26
9147 , p5_a27
9148 , p5_a28
9149 , p5_a29
9150 , p5_a30
9151 , p5_a31
9152 , p5_a32
9153 , p5_a33
9154 , p5_a34
9155 , p5_a35
9156 , p5_a36
9157 , p5_a37
9158 , p5_a38
9159 , p5_a39
9160 , p5_a40
9161 );
9162
9163 -- here's the delegated call to the old PL/SQL routine
9164 okl_okc_migration_pvt.delete_k_party_role(p_api_version,
9165 p_init_msg_list,
9166 x_return_status,
9167 x_msg_count,
9168 x_msg_data,
9169 ddp_cplv_tbl);
9170
9171 -- copy data back from the local variables to OUT or IN-OUT args, if any
9172
9173
9174
9175
9176
9177 end;
9178
9179 procedure create_contact(p_api_version NUMBER
9180 , p_init_msg_list VARCHAR2
9181 , x_return_status out nocopy VARCHAR2
9182 , x_msg_count out nocopy NUMBER
9183 , x_msg_data out nocopy VARCHAR2
9184 , p6_a0 out nocopy NUMBER
9185 , p6_a1 out nocopy NUMBER
9186 , p6_a2 out nocopy NUMBER
9187 , p6_a3 out nocopy VARCHAR2
9188 , p6_a4 out nocopy NUMBER
9189 , p6_a5 out nocopy NUMBER
9190 , p6_a6 out nocopy VARCHAR2
9191 , p6_a7 out nocopy VARCHAR2
9192 , p6_a8 out nocopy VARCHAR2
9193 , p6_a9 out nocopy VARCHAR2
9194 , p6_a10 out nocopy VARCHAR2
9195 , p6_a11 out nocopy VARCHAR2
9196 , p6_a12 out nocopy VARCHAR2
9197 , p6_a13 out nocopy VARCHAR2
9198 , p6_a14 out nocopy VARCHAR2
9199 , p6_a15 out nocopy VARCHAR2
9200 , p6_a16 out nocopy VARCHAR2
9201 , p6_a17 out nocopy VARCHAR2
9202 , p6_a18 out nocopy VARCHAR2
9203 , p6_a19 out nocopy VARCHAR2
9204 , p6_a20 out nocopy VARCHAR2
9205 , p6_a21 out nocopy VARCHAR2
9206 , p6_a22 out nocopy VARCHAR2
9207 , p6_a23 out nocopy VARCHAR2
9208 , p6_a24 out nocopy VARCHAR2
9209 , p6_a25 out nocopy NUMBER
9210 , p6_a26 out nocopy DATE
9211 , p6_a27 out nocopy NUMBER
9212 , p6_a28 out nocopy DATE
9213 , p6_a29 out nocopy NUMBER
9214 , p6_a30 out nocopy DATE
9215 , p6_a31 out nocopy DATE
9216 , p5_a0 NUMBER := 0-1962.0724
9217 , p5_a1 NUMBER := 0-1962.0724
9218 , p5_a2 NUMBER := 0-1962.0724
9219 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
9220 , p5_a4 NUMBER := 0-1962.0724
9221 , p5_a5 NUMBER := 0-1962.0724
9222 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
9223 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
9224 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
9225 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
9226 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
9227 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
9228 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
9229 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
9230 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
9231 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
9232 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
9233 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
9234 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
9235 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
9236 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
9237 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
9238 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
9239 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
9240 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
9241 , p5_a25 NUMBER := 0-1962.0724
9242 , p5_a26 DATE := fnd_api.g_miss_date
9243 , p5_a27 NUMBER := 0-1962.0724
9244 , p5_a28 DATE := fnd_api.g_miss_date
9245 , p5_a29 NUMBER := 0-1962.0724
9246 , p5_a30 DATE := fnd_api.g_miss_date
9247 , p5_a31 DATE := fnd_api.g_miss_date
9248 )
9249
9250 as
9251 ddp_ctcv_rec okl_okc_migration_pvt.ctcv_rec_type;
9252 ddx_ctcv_rec okl_okc_migration_pvt.ctcv_rec_type;
9253 ddindx binary_integer; indx binary_integer;
9254 begin
9255
9256 -- copy data to the local IN or IN-OUT args, if any
9257
9258
9259
9260
9261
9262 ddp_ctcv_rec.id := rosetta_g_miss_num_map(p5_a0);
9263 ddp_ctcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
9264 ddp_ctcv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
9265 ddp_ctcv_rec.cro_code := p5_a3;
9266 ddp_ctcv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
9267 ddp_ctcv_rec.contact_sequence := rosetta_g_miss_num_map(p5_a5);
9268 ddp_ctcv_rec.object1_id1 := p5_a6;
9269 ddp_ctcv_rec.object1_id2 := p5_a7;
9270 ddp_ctcv_rec.jtot_object1_code := p5_a8;
9271 ddp_ctcv_rec.attribute_category := p5_a9;
9272 ddp_ctcv_rec.attribute1 := p5_a10;
9273 ddp_ctcv_rec.attribute2 := p5_a11;
9274 ddp_ctcv_rec.attribute3 := p5_a12;
9275 ddp_ctcv_rec.attribute4 := p5_a13;
9276 ddp_ctcv_rec.attribute5 := p5_a14;
9277 ddp_ctcv_rec.attribute6 := p5_a15;
9278 ddp_ctcv_rec.attribute7 := p5_a16;
9279 ddp_ctcv_rec.attribute8 := p5_a17;
9280 ddp_ctcv_rec.attribute9 := p5_a18;
9281 ddp_ctcv_rec.attribute10 := p5_a19;
9282 ddp_ctcv_rec.attribute11 := p5_a20;
9283 ddp_ctcv_rec.attribute12 := p5_a21;
9284 ddp_ctcv_rec.attribute13 := p5_a22;
9285 ddp_ctcv_rec.attribute14 := p5_a23;
9286 ddp_ctcv_rec.attribute15 := p5_a24;
9287 ddp_ctcv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
9288 ddp_ctcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
9289 ddp_ctcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
9290 ddp_ctcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
9291 ddp_ctcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
9292 ddp_ctcv_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
9293 ddp_ctcv_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
9294
9295
9296 -- here's the delegated call to the old PL/SQL routine
9297 okl_okc_migration_pvt.create_contact(p_api_version,
9298 p_init_msg_list,
9299 x_return_status,
9300 x_msg_count,
9301 x_msg_data,
9302 ddp_ctcv_rec,
9303 ddx_ctcv_rec);
9304
9305 -- copy data back from the local variables to OUT or IN-OUT args, if any
9306
9307
9308
9309
9310
9311
9312 p6_a0 := rosetta_g_miss_num_map(ddx_ctcv_rec.id);
9313 p6_a1 := rosetta_g_miss_num_map(ddx_ctcv_rec.object_version_number);
9314 p6_a2 := rosetta_g_miss_num_map(ddx_ctcv_rec.cpl_id);
9315 p6_a3 := ddx_ctcv_rec.cro_code;
9316 p6_a4 := rosetta_g_miss_num_map(ddx_ctcv_rec.dnz_chr_id);
9317 p6_a5 := rosetta_g_miss_num_map(ddx_ctcv_rec.contact_sequence);
9318 p6_a6 := ddx_ctcv_rec.object1_id1;
9319 p6_a7 := ddx_ctcv_rec.object1_id2;
9320 p6_a8 := ddx_ctcv_rec.jtot_object1_code;
9321 p6_a9 := ddx_ctcv_rec.attribute_category;
9322 p6_a10 := ddx_ctcv_rec.attribute1;
9323 p6_a11 := ddx_ctcv_rec.attribute2;
9324 p6_a12 := ddx_ctcv_rec.attribute3;
9325 p6_a13 := ddx_ctcv_rec.attribute4;
9326 p6_a14 := ddx_ctcv_rec.attribute5;
9327 p6_a15 := ddx_ctcv_rec.attribute6;
9328 p6_a16 := ddx_ctcv_rec.attribute7;
9329 p6_a17 := ddx_ctcv_rec.attribute8;
9330 p6_a18 := ddx_ctcv_rec.attribute9;
9331 p6_a19 := ddx_ctcv_rec.attribute10;
9332 p6_a20 := ddx_ctcv_rec.attribute11;
9333 p6_a21 := ddx_ctcv_rec.attribute12;
9334 p6_a22 := ddx_ctcv_rec.attribute13;
9335 p6_a23 := ddx_ctcv_rec.attribute14;
9336 p6_a24 := ddx_ctcv_rec.attribute15;
9337 p6_a25 := rosetta_g_miss_num_map(ddx_ctcv_rec.created_by);
9338 p6_a26 := ddx_ctcv_rec.creation_date;
9339 p6_a27 := rosetta_g_miss_num_map(ddx_ctcv_rec.last_updated_by);
9340 p6_a28 := ddx_ctcv_rec.last_update_date;
9341 p6_a29 := rosetta_g_miss_num_map(ddx_ctcv_rec.last_update_login);
9342 p6_a30 := ddx_ctcv_rec.start_date;
9343 p6_a31 := ddx_ctcv_rec.end_date;
9344 end;
9345
9346 procedure create_contact(p_api_version NUMBER
9347 , p_init_msg_list VARCHAR2
9348 , x_return_status out nocopy VARCHAR2
9349 , x_msg_count out nocopy NUMBER
9350 , x_msg_data out nocopy VARCHAR2
9351 , p5_a0 JTF_NUMBER_TABLE
9352 , p5_a1 JTF_NUMBER_TABLE
9353 , p5_a2 JTF_NUMBER_TABLE
9354 , p5_a3 JTF_VARCHAR2_TABLE_100
9355 , p5_a4 JTF_NUMBER_TABLE
9356 , p5_a5 JTF_NUMBER_TABLE
9357 , p5_a6 JTF_VARCHAR2_TABLE_100
9358 , p5_a7 JTF_VARCHAR2_TABLE_200
9359 , p5_a8 JTF_VARCHAR2_TABLE_100
9360 , p5_a9 JTF_VARCHAR2_TABLE_100
9361 , p5_a10 JTF_VARCHAR2_TABLE_500
9362 , p5_a11 JTF_VARCHAR2_TABLE_500
9363 , p5_a12 JTF_VARCHAR2_TABLE_500
9364 , p5_a13 JTF_VARCHAR2_TABLE_500
9365 , p5_a14 JTF_VARCHAR2_TABLE_500
9366 , p5_a15 JTF_VARCHAR2_TABLE_500
9367 , p5_a16 JTF_VARCHAR2_TABLE_500
9368 , p5_a17 JTF_VARCHAR2_TABLE_500
9369 , p5_a18 JTF_VARCHAR2_TABLE_500
9370 , p5_a19 JTF_VARCHAR2_TABLE_500
9371 , p5_a20 JTF_VARCHAR2_TABLE_500
9372 , p5_a21 JTF_VARCHAR2_TABLE_500
9373 , p5_a22 JTF_VARCHAR2_TABLE_500
9374 , p5_a23 JTF_VARCHAR2_TABLE_500
9375 , p5_a24 JTF_VARCHAR2_TABLE_500
9376 , p5_a25 JTF_NUMBER_TABLE
9377 , p5_a26 JTF_DATE_TABLE
9378 , p5_a27 JTF_NUMBER_TABLE
9379 , p5_a28 JTF_DATE_TABLE
9380 , p5_a29 JTF_NUMBER_TABLE
9381 , p5_a30 JTF_DATE_TABLE
9382 , p5_a31 JTF_DATE_TABLE
9383 , p6_a0 out nocopy JTF_NUMBER_TABLE
9384 , p6_a1 out nocopy JTF_NUMBER_TABLE
9385 , p6_a2 out nocopy JTF_NUMBER_TABLE
9386 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
9387 , p6_a4 out nocopy JTF_NUMBER_TABLE
9388 , p6_a5 out nocopy JTF_NUMBER_TABLE
9389 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
9390 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
9391 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
9392 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
9393 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
9394 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
9395 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
9396 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
9397 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
9398 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
9399 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
9400 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
9401 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
9402 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
9403 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
9404 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
9405 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
9406 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
9407 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
9408 , p6_a25 out nocopy JTF_NUMBER_TABLE
9409 , p6_a26 out nocopy JTF_DATE_TABLE
9410 , p6_a27 out nocopy JTF_NUMBER_TABLE
9411 , p6_a28 out nocopy JTF_DATE_TABLE
9412 , p6_a29 out nocopy JTF_NUMBER_TABLE
9413 , p6_a30 out nocopy JTF_DATE_TABLE
9414 , p6_a31 out nocopy JTF_DATE_TABLE
9415 )
9416
9417 as
9418 ddp_ctcv_tbl okl_okc_migration_pvt.ctcv_tbl_type;
9419 ddx_ctcv_tbl okl_okc_migration_pvt.ctcv_tbl_type;
9420 ddindx binary_integer; indx binary_integer;
9421 begin
9422
9423 -- copy data to the local IN or IN-OUT args, if any
9424
9425
9426
9427
9428
9429 okl_okc_migration_pvt_w.rosetta_table_copy_in_p17(ddp_ctcv_tbl, p5_a0
9430 , p5_a1
9431 , p5_a2
9432 , p5_a3
9433 , p5_a4
9434 , p5_a5
9435 , p5_a6
9436 , p5_a7
9437 , p5_a8
9438 , p5_a9
9439 , p5_a10
9440 , p5_a11
9441 , p5_a12
9442 , p5_a13
9443 , p5_a14
9444 , p5_a15
9445 , p5_a16
9446 , p5_a17
9447 , p5_a18
9448 , p5_a19
9449 , p5_a20
9450 , p5_a21
9451 , p5_a22
9452 , p5_a23
9453 , p5_a24
9454 , p5_a25
9455 , p5_a26
9456 , p5_a27
9457 , p5_a28
9458 , p5_a29
9459 , p5_a30
9460 , p5_a31
9461 );
9462
9463
9464 -- here's the delegated call to the old PL/SQL routine
9465 okl_okc_migration_pvt.create_contact(p_api_version,
9466 p_init_msg_list,
9467 x_return_status,
9468 x_msg_count,
9469 x_msg_data,
9470 ddp_ctcv_tbl,
9471 ddx_ctcv_tbl);
9472
9473 -- copy data back from the local variables to OUT or IN-OUT args, if any
9474
9475
9476
9477
9478
9479
9480 okl_okc_migration_pvt_w.rosetta_table_copy_out_p17(ddx_ctcv_tbl, p6_a0
9481 , p6_a1
9482 , p6_a2
9483 , p6_a3
9484 , p6_a4
9485 , p6_a5
9486 , p6_a6
9487 , p6_a7
9488 , p6_a8
9489 , p6_a9
9490 , p6_a10
9491 , p6_a11
9492 , p6_a12
9493 , p6_a13
9494 , p6_a14
9495 , p6_a15
9496 , p6_a16
9497 , p6_a17
9498 , p6_a18
9499 , p6_a19
9500 , p6_a20
9501 , p6_a21
9502 , p6_a22
9503 , p6_a23
9504 , p6_a24
9505 , p6_a25
9506 , p6_a26
9507 , p6_a27
9508 , p6_a28
9509 , p6_a29
9510 , p6_a30
9511 , p6_a31
9512 );
9513 end;
9514
9515 procedure update_contact(p_api_version NUMBER
9516 , p_init_msg_list VARCHAR2
9517 , x_return_status out nocopy VARCHAR2
9518 , x_msg_count out nocopy NUMBER
9519 , x_msg_data out nocopy VARCHAR2
9520 , p6_a0 out nocopy NUMBER
9521 , p6_a1 out nocopy NUMBER
9522 , p6_a2 out nocopy NUMBER
9523 , p6_a3 out nocopy VARCHAR2
9524 , p6_a4 out nocopy NUMBER
9525 , p6_a5 out nocopy NUMBER
9526 , p6_a6 out nocopy VARCHAR2
9527 , p6_a7 out nocopy VARCHAR2
9528 , p6_a8 out nocopy VARCHAR2
9529 , p6_a9 out nocopy VARCHAR2
9530 , p6_a10 out nocopy VARCHAR2
9531 , p6_a11 out nocopy VARCHAR2
9532 , p6_a12 out nocopy VARCHAR2
9533 , p6_a13 out nocopy VARCHAR2
9534 , p6_a14 out nocopy VARCHAR2
9535 , p6_a15 out nocopy VARCHAR2
9536 , p6_a16 out nocopy VARCHAR2
9537 , p6_a17 out nocopy VARCHAR2
9538 , p6_a18 out nocopy VARCHAR2
9539 , p6_a19 out nocopy VARCHAR2
9540 , p6_a20 out nocopy VARCHAR2
9541 , p6_a21 out nocopy VARCHAR2
9542 , p6_a22 out nocopy VARCHAR2
9543 , p6_a23 out nocopy VARCHAR2
9544 , p6_a24 out nocopy VARCHAR2
9545 , p6_a25 out nocopy NUMBER
9546 , p6_a26 out nocopy DATE
9547 , p6_a27 out nocopy NUMBER
9548 , p6_a28 out nocopy DATE
9549 , p6_a29 out nocopy NUMBER
9550 , p6_a30 out nocopy DATE
9551 , p6_a31 out nocopy DATE
9552 , p5_a0 NUMBER := 0-1962.0724
9553 , p5_a1 NUMBER := 0-1962.0724
9554 , p5_a2 NUMBER := 0-1962.0724
9555 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
9556 , p5_a4 NUMBER := 0-1962.0724
9557 , p5_a5 NUMBER := 0-1962.0724
9558 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
9559 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
9560 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
9561 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
9562 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
9563 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
9564 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
9565 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
9566 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
9567 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
9568 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
9569 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
9570 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
9571 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
9572 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
9573 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
9574 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
9575 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
9576 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
9577 , p5_a25 NUMBER := 0-1962.0724
9578 , p5_a26 DATE := fnd_api.g_miss_date
9579 , p5_a27 NUMBER := 0-1962.0724
9580 , p5_a28 DATE := fnd_api.g_miss_date
9581 , p5_a29 NUMBER := 0-1962.0724
9582 , p5_a30 DATE := fnd_api.g_miss_date
9583 , p5_a31 DATE := fnd_api.g_miss_date
9584 )
9585
9586 as
9587 ddp_ctcv_rec okl_okc_migration_pvt.ctcv_rec_type;
9588 ddx_ctcv_rec okl_okc_migration_pvt.ctcv_rec_type;
9589 ddindx binary_integer; indx binary_integer;
9590 begin
9591
9592 -- copy data to the local IN or IN-OUT args, if any
9593
9594
9595
9596
9597
9598 ddp_ctcv_rec.id := rosetta_g_miss_num_map(p5_a0);
9599 ddp_ctcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
9600 ddp_ctcv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
9601 ddp_ctcv_rec.cro_code := p5_a3;
9602 ddp_ctcv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
9603 ddp_ctcv_rec.contact_sequence := rosetta_g_miss_num_map(p5_a5);
9604 ddp_ctcv_rec.object1_id1 := p5_a6;
9605 ddp_ctcv_rec.object1_id2 := p5_a7;
9606 ddp_ctcv_rec.jtot_object1_code := p5_a8;
9607 ddp_ctcv_rec.attribute_category := p5_a9;
9608 ddp_ctcv_rec.attribute1 := p5_a10;
9609 ddp_ctcv_rec.attribute2 := p5_a11;
9610 ddp_ctcv_rec.attribute3 := p5_a12;
9611 ddp_ctcv_rec.attribute4 := p5_a13;
9612 ddp_ctcv_rec.attribute5 := p5_a14;
9613 ddp_ctcv_rec.attribute6 := p5_a15;
9614 ddp_ctcv_rec.attribute7 := p5_a16;
9615 ddp_ctcv_rec.attribute8 := p5_a17;
9616 ddp_ctcv_rec.attribute9 := p5_a18;
9617 ddp_ctcv_rec.attribute10 := p5_a19;
9618 ddp_ctcv_rec.attribute11 := p5_a20;
9619 ddp_ctcv_rec.attribute12 := p5_a21;
9620 ddp_ctcv_rec.attribute13 := p5_a22;
9621 ddp_ctcv_rec.attribute14 := p5_a23;
9622 ddp_ctcv_rec.attribute15 := p5_a24;
9623 ddp_ctcv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
9624 ddp_ctcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
9625 ddp_ctcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
9626 ddp_ctcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
9627 ddp_ctcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
9628 ddp_ctcv_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
9629 ddp_ctcv_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
9630
9631
9632 -- here's the delegated call to the old PL/SQL routine
9633 okl_okc_migration_pvt.update_contact(p_api_version,
9634 p_init_msg_list,
9635 x_return_status,
9636 x_msg_count,
9637 x_msg_data,
9638 ddp_ctcv_rec,
9639 ddx_ctcv_rec);
9640
9641 -- copy data back from the local variables to OUT or IN-OUT args, if any
9642
9643
9644
9645
9646
9647
9648 p6_a0 := rosetta_g_miss_num_map(ddx_ctcv_rec.id);
9649 p6_a1 := rosetta_g_miss_num_map(ddx_ctcv_rec.object_version_number);
9650 p6_a2 := rosetta_g_miss_num_map(ddx_ctcv_rec.cpl_id);
9651 p6_a3 := ddx_ctcv_rec.cro_code;
9652 p6_a4 := rosetta_g_miss_num_map(ddx_ctcv_rec.dnz_chr_id);
9653 p6_a5 := rosetta_g_miss_num_map(ddx_ctcv_rec.contact_sequence);
9654 p6_a6 := ddx_ctcv_rec.object1_id1;
9655 p6_a7 := ddx_ctcv_rec.object1_id2;
9656 p6_a8 := ddx_ctcv_rec.jtot_object1_code;
9657 p6_a9 := ddx_ctcv_rec.attribute_category;
9658 p6_a10 := ddx_ctcv_rec.attribute1;
9659 p6_a11 := ddx_ctcv_rec.attribute2;
9660 p6_a12 := ddx_ctcv_rec.attribute3;
9661 p6_a13 := ddx_ctcv_rec.attribute4;
9662 p6_a14 := ddx_ctcv_rec.attribute5;
9663 p6_a15 := ddx_ctcv_rec.attribute6;
9664 p6_a16 := ddx_ctcv_rec.attribute7;
9665 p6_a17 := ddx_ctcv_rec.attribute8;
9666 p6_a18 := ddx_ctcv_rec.attribute9;
9667 p6_a19 := ddx_ctcv_rec.attribute10;
9668 p6_a20 := ddx_ctcv_rec.attribute11;
9669 p6_a21 := ddx_ctcv_rec.attribute12;
9670 p6_a22 := ddx_ctcv_rec.attribute13;
9671 p6_a23 := ddx_ctcv_rec.attribute14;
9672 p6_a24 := ddx_ctcv_rec.attribute15;
9673 p6_a25 := rosetta_g_miss_num_map(ddx_ctcv_rec.created_by);
9674 p6_a26 := ddx_ctcv_rec.creation_date;
9675 p6_a27 := rosetta_g_miss_num_map(ddx_ctcv_rec.last_updated_by);
9676 p6_a28 := ddx_ctcv_rec.last_update_date;
9677 p6_a29 := rosetta_g_miss_num_map(ddx_ctcv_rec.last_update_login);
9678 p6_a30 := ddx_ctcv_rec.start_date;
9679 p6_a31 := ddx_ctcv_rec.end_date;
9680 end;
9681
9682 procedure update_contact(p_api_version NUMBER
9683 , p_init_msg_list VARCHAR2
9684 , x_return_status out nocopy VARCHAR2
9685 , x_msg_count out nocopy NUMBER
9686 , x_msg_data out nocopy VARCHAR2
9687 , p5_a0 JTF_NUMBER_TABLE
9688 , p5_a1 JTF_NUMBER_TABLE
9689 , p5_a2 JTF_NUMBER_TABLE
9690 , p5_a3 JTF_VARCHAR2_TABLE_100
9691 , p5_a4 JTF_NUMBER_TABLE
9692 , p5_a5 JTF_NUMBER_TABLE
9693 , p5_a6 JTF_VARCHAR2_TABLE_100
9694 , p5_a7 JTF_VARCHAR2_TABLE_200
9695 , p5_a8 JTF_VARCHAR2_TABLE_100
9696 , p5_a9 JTF_VARCHAR2_TABLE_100
9697 , p5_a10 JTF_VARCHAR2_TABLE_500
9698 , p5_a11 JTF_VARCHAR2_TABLE_500
9699 , p5_a12 JTF_VARCHAR2_TABLE_500
9700 , p5_a13 JTF_VARCHAR2_TABLE_500
9701 , p5_a14 JTF_VARCHAR2_TABLE_500
9702 , p5_a15 JTF_VARCHAR2_TABLE_500
9703 , p5_a16 JTF_VARCHAR2_TABLE_500
9704 , p5_a17 JTF_VARCHAR2_TABLE_500
9705 , p5_a18 JTF_VARCHAR2_TABLE_500
9706 , p5_a19 JTF_VARCHAR2_TABLE_500
9707 , p5_a20 JTF_VARCHAR2_TABLE_500
9708 , p5_a21 JTF_VARCHAR2_TABLE_500
9709 , p5_a22 JTF_VARCHAR2_TABLE_500
9710 , p5_a23 JTF_VARCHAR2_TABLE_500
9711 , p5_a24 JTF_VARCHAR2_TABLE_500
9712 , p5_a25 JTF_NUMBER_TABLE
9713 , p5_a26 JTF_DATE_TABLE
9714 , p5_a27 JTF_NUMBER_TABLE
9715 , p5_a28 JTF_DATE_TABLE
9716 , p5_a29 JTF_NUMBER_TABLE
9717 , p5_a30 JTF_DATE_TABLE
9718 , p5_a31 JTF_DATE_TABLE
9719 , p6_a0 out nocopy JTF_NUMBER_TABLE
9720 , p6_a1 out nocopy JTF_NUMBER_TABLE
9721 , p6_a2 out nocopy JTF_NUMBER_TABLE
9722 , p6_a3 out nocopy JTF_VARCHAR2_TABLE_100
9723 , p6_a4 out nocopy JTF_NUMBER_TABLE
9724 , p6_a5 out nocopy JTF_NUMBER_TABLE
9725 , p6_a6 out nocopy JTF_VARCHAR2_TABLE_100
9726 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
9727 , p6_a8 out nocopy JTF_VARCHAR2_TABLE_100
9728 , p6_a9 out nocopy JTF_VARCHAR2_TABLE_100
9729 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_500
9730 , p6_a11 out nocopy JTF_VARCHAR2_TABLE_500
9731 , p6_a12 out nocopy JTF_VARCHAR2_TABLE_500
9732 , p6_a13 out nocopy JTF_VARCHAR2_TABLE_500
9733 , p6_a14 out nocopy JTF_VARCHAR2_TABLE_500
9734 , p6_a15 out nocopy JTF_VARCHAR2_TABLE_500
9735 , p6_a16 out nocopy JTF_VARCHAR2_TABLE_500
9736 , p6_a17 out nocopy JTF_VARCHAR2_TABLE_500
9737 , p6_a18 out nocopy JTF_VARCHAR2_TABLE_500
9738 , p6_a19 out nocopy JTF_VARCHAR2_TABLE_500
9739 , p6_a20 out nocopy JTF_VARCHAR2_TABLE_500
9740 , p6_a21 out nocopy JTF_VARCHAR2_TABLE_500
9741 , p6_a22 out nocopy JTF_VARCHAR2_TABLE_500
9742 , p6_a23 out nocopy JTF_VARCHAR2_TABLE_500
9743 , p6_a24 out nocopy JTF_VARCHAR2_TABLE_500
9744 , p6_a25 out nocopy JTF_NUMBER_TABLE
9745 , p6_a26 out nocopy JTF_DATE_TABLE
9746 , p6_a27 out nocopy JTF_NUMBER_TABLE
9747 , p6_a28 out nocopy JTF_DATE_TABLE
9748 , p6_a29 out nocopy JTF_NUMBER_TABLE
9749 , p6_a30 out nocopy JTF_DATE_TABLE
9750 , p6_a31 out nocopy JTF_DATE_TABLE
9751 )
9752
9753 as
9754 ddp_ctcv_tbl okl_okc_migration_pvt.ctcv_tbl_type;
9755 ddx_ctcv_tbl okl_okc_migration_pvt.ctcv_tbl_type;
9756 ddindx binary_integer; indx binary_integer;
9757 begin
9758
9759 -- copy data to the local IN or IN-OUT args, if any
9760
9761
9762
9763
9764
9765 okl_okc_migration_pvt_w.rosetta_table_copy_in_p17(ddp_ctcv_tbl, p5_a0
9766 , p5_a1
9767 , p5_a2
9768 , p5_a3
9769 , p5_a4
9770 , p5_a5
9771 , p5_a6
9772 , p5_a7
9773 , p5_a8
9774 , p5_a9
9775 , p5_a10
9776 , p5_a11
9777 , p5_a12
9778 , p5_a13
9779 , p5_a14
9780 , p5_a15
9781 , p5_a16
9782 , p5_a17
9783 , p5_a18
9784 , p5_a19
9785 , p5_a20
9786 , p5_a21
9787 , p5_a22
9788 , p5_a23
9789 , p5_a24
9790 , p5_a25
9791 , p5_a26
9792 , p5_a27
9793 , p5_a28
9794 , p5_a29
9795 , p5_a30
9796 , p5_a31
9797 );
9798
9799
9800 -- here's the delegated call to the old PL/SQL routine
9801 okl_okc_migration_pvt.update_contact(p_api_version,
9802 p_init_msg_list,
9803 x_return_status,
9804 x_msg_count,
9805 x_msg_data,
9806 ddp_ctcv_tbl,
9807 ddx_ctcv_tbl);
9808
9809 -- copy data back from the local variables to OUT or IN-OUT args, if any
9810
9811
9812
9813
9814
9815
9816 okl_okc_migration_pvt_w.rosetta_table_copy_out_p17(ddx_ctcv_tbl, p6_a0
9817 , p6_a1
9818 , p6_a2
9819 , p6_a3
9820 , p6_a4
9821 , p6_a5
9822 , p6_a6
9823 , p6_a7
9824 , p6_a8
9825 , p6_a9
9826 , p6_a10
9827 , p6_a11
9828 , p6_a12
9829 , p6_a13
9830 , p6_a14
9831 , p6_a15
9832 , p6_a16
9833 , p6_a17
9834 , p6_a18
9835 , p6_a19
9836 , p6_a20
9837 , p6_a21
9838 , p6_a22
9839 , p6_a23
9840 , p6_a24
9841 , p6_a25
9842 , p6_a26
9843 , p6_a27
9844 , p6_a28
9845 , p6_a29
9846 , p6_a30
9847 , p6_a31
9848 );
9849 end;
9850
9851 procedure delete_contact(p_api_version NUMBER
9852 , p_init_msg_list VARCHAR2
9853 , x_return_status out nocopy VARCHAR2
9854 , x_msg_count out nocopy NUMBER
9855 , x_msg_data out nocopy VARCHAR2
9856 , p5_a0 NUMBER := 0-1962.0724
9857 , p5_a1 NUMBER := 0-1962.0724
9858 , p5_a2 NUMBER := 0-1962.0724
9859 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
9860 , p5_a4 NUMBER := 0-1962.0724
9861 , p5_a5 NUMBER := 0-1962.0724
9862 , p5_a6 VARCHAR2 := fnd_api.g_miss_char
9863 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
9864 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
9865 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
9866 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
9867 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
9868 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
9869 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
9870 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
9871 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
9872 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
9873 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
9874 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
9875 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
9876 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
9877 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
9878 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
9879 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
9880 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
9881 , p5_a25 NUMBER := 0-1962.0724
9882 , p5_a26 DATE := fnd_api.g_miss_date
9883 , p5_a27 NUMBER := 0-1962.0724
9884 , p5_a28 DATE := fnd_api.g_miss_date
9885 , p5_a29 NUMBER := 0-1962.0724
9886 , p5_a30 DATE := fnd_api.g_miss_date
9887 , p5_a31 DATE := fnd_api.g_miss_date
9888 )
9889
9890 as
9891 ddp_ctcv_rec okl_okc_migration_pvt.ctcv_rec_type;
9892 ddindx binary_integer; indx binary_integer;
9893 begin
9894
9895 -- copy data to the local IN or IN-OUT args, if any
9896
9897
9898
9899
9900
9901 ddp_ctcv_rec.id := rosetta_g_miss_num_map(p5_a0);
9902 ddp_ctcv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
9903 ddp_ctcv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
9904 ddp_ctcv_rec.cro_code := p5_a3;
9905 ddp_ctcv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
9906 ddp_ctcv_rec.contact_sequence := rosetta_g_miss_num_map(p5_a5);
9907 ddp_ctcv_rec.object1_id1 := p5_a6;
9908 ddp_ctcv_rec.object1_id2 := p5_a7;
9909 ddp_ctcv_rec.jtot_object1_code := p5_a8;
9910 ddp_ctcv_rec.attribute_category := p5_a9;
9911 ddp_ctcv_rec.attribute1 := p5_a10;
9912 ddp_ctcv_rec.attribute2 := p5_a11;
9913 ddp_ctcv_rec.attribute3 := p5_a12;
9914 ddp_ctcv_rec.attribute4 := p5_a13;
9915 ddp_ctcv_rec.attribute5 := p5_a14;
9916 ddp_ctcv_rec.attribute6 := p5_a15;
9917 ddp_ctcv_rec.attribute7 := p5_a16;
9918 ddp_ctcv_rec.attribute8 := p5_a17;
9919 ddp_ctcv_rec.attribute9 := p5_a18;
9920 ddp_ctcv_rec.attribute10 := p5_a19;
9921 ddp_ctcv_rec.attribute11 := p5_a20;
9922 ddp_ctcv_rec.attribute12 := p5_a21;
9923 ddp_ctcv_rec.attribute13 := p5_a22;
9924 ddp_ctcv_rec.attribute14 := p5_a23;
9925 ddp_ctcv_rec.attribute15 := p5_a24;
9926 ddp_ctcv_rec.created_by := rosetta_g_miss_num_map(p5_a25);
9927 ddp_ctcv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a26);
9928 ddp_ctcv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a27);
9929 ddp_ctcv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a28);
9930 ddp_ctcv_rec.last_update_login := rosetta_g_miss_num_map(p5_a29);
9931 ddp_ctcv_rec.start_date := rosetta_g_miss_date_in_map(p5_a30);
9932 ddp_ctcv_rec.end_date := rosetta_g_miss_date_in_map(p5_a31);
9933
9934 -- here's the delegated call to the old PL/SQL routine
9935 okl_okc_migration_pvt.delete_contact(p_api_version,
9936 p_init_msg_list,
9937 x_return_status,
9938 x_msg_count,
9939 x_msg_data,
9940 ddp_ctcv_rec);
9941
9942 -- copy data back from the local variables to OUT or IN-OUT args, if any
9943
9944
9945
9946
9947
9948 end;
9949
9950 procedure delete_contact(p_api_version NUMBER
9951 , p_init_msg_list VARCHAR2
9952 , x_return_status out nocopy VARCHAR2
9953 , x_msg_count out nocopy NUMBER
9954 , x_msg_data out nocopy VARCHAR2
9955 , p5_a0 JTF_NUMBER_TABLE
9956 , p5_a1 JTF_NUMBER_TABLE
9957 , p5_a2 JTF_NUMBER_TABLE
9958 , p5_a3 JTF_VARCHAR2_TABLE_100
9959 , p5_a4 JTF_NUMBER_TABLE
9960 , p5_a5 JTF_NUMBER_TABLE
9961 , p5_a6 JTF_VARCHAR2_TABLE_100
9962 , p5_a7 JTF_VARCHAR2_TABLE_200
9963 , p5_a8 JTF_VARCHAR2_TABLE_100
9964 , p5_a9 JTF_VARCHAR2_TABLE_100
9965 , p5_a10 JTF_VARCHAR2_TABLE_500
9966 , p5_a11 JTF_VARCHAR2_TABLE_500
9967 , p5_a12 JTF_VARCHAR2_TABLE_500
9968 , p5_a13 JTF_VARCHAR2_TABLE_500
9969 , p5_a14 JTF_VARCHAR2_TABLE_500
9970 , p5_a15 JTF_VARCHAR2_TABLE_500
9971 , p5_a16 JTF_VARCHAR2_TABLE_500
9972 , p5_a17 JTF_VARCHAR2_TABLE_500
9973 , p5_a18 JTF_VARCHAR2_TABLE_500
9974 , p5_a19 JTF_VARCHAR2_TABLE_500
9975 , p5_a20 JTF_VARCHAR2_TABLE_500
9976 , p5_a21 JTF_VARCHAR2_TABLE_500
9977 , p5_a22 JTF_VARCHAR2_TABLE_500
9978 , p5_a23 JTF_VARCHAR2_TABLE_500
9979 , p5_a24 JTF_VARCHAR2_TABLE_500
9980 , p5_a25 JTF_NUMBER_TABLE
9981 , p5_a26 JTF_DATE_TABLE
9982 , p5_a27 JTF_NUMBER_TABLE
9983 , p5_a28 JTF_DATE_TABLE
9984 , p5_a29 JTF_NUMBER_TABLE
9985 , p5_a30 JTF_DATE_TABLE
9986 , p5_a31 JTF_DATE_TABLE
9987 )
9988
9989 as
9990 ddp_ctcv_tbl okl_okc_migration_pvt.ctcv_tbl_type;
9991 ddindx binary_integer; indx binary_integer;
9992 begin
9993
9994 -- copy data to the local IN or IN-OUT args, if any
9995
9996
9997
9998
9999
10000 okl_okc_migration_pvt_w.rosetta_table_copy_in_p17(ddp_ctcv_tbl, p5_a0
10001 , p5_a1
10002 , p5_a2
10003 , p5_a3
10004 , p5_a4
10005 , p5_a5
10006 , p5_a6
10007 , p5_a7
10008 , p5_a8
10009 , p5_a9
10010 , p5_a10
10011 , p5_a11
10012 , p5_a12
10013 , p5_a13
10014 , p5_a14
10015 , p5_a15
10016 , p5_a16
10017 , p5_a17
10018 , p5_a18
10019 , p5_a19
10020 , p5_a20
10021 , p5_a21
10022 , p5_a22
10023 , p5_a23
10024 , p5_a24
10025 , p5_a25
10026 , p5_a26
10027 , p5_a27
10028 , p5_a28
10029 , p5_a29
10030 , p5_a30
10031 , p5_a31
10032 );
10033
10034 -- here's the delegated call to the old PL/SQL routine
10035 okl_okc_migration_pvt.delete_contact(p_api_version,
10036 p_init_msg_list,
10037 x_return_status,
10038 x_msg_count,
10039 x_msg_data,
10040 ddp_ctcv_tbl);
10041
10042 -- copy data back from the local variables to OUT or IN-OUT args, if any
10043
10044
10045
10046
10047
10048 end;
10049
10050 procedure create_rule_group(p_api_version NUMBER
10051 , p_init_msg_list VARCHAR2
10052 , x_return_status out nocopy VARCHAR2
10053 , x_msg_count out nocopy NUMBER
10054 , x_msg_data out nocopy VARCHAR2
10055 , p6_a0 out nocopy NUMBER
10056 , p6_a1 out nocopy NUMBER
10057 , p6_a2 out nocopy VARCHAR2
10058 , p6_a3 out nocopy VARCHAR2
10059 , p6_a4 out nocopy VARCHAR2
10060 , p6_a5 out nocopy VARCHAR2
10061 , p6_a6 out nocopy NUMBER
10062 , p6_a7 out nocopy NUMBER
10063 , p6_a8 out nocopy NUMBER
10064 , p6_a9 out nocopy NUMBER
10065 , p6_a10 out nocopy VARCHAR2
10066 , p6_a11 out nocopy VARCHAR2
10067 , p6_a12 out nocopy VARCHAR2
10068 , p6_a13 out nocopy VARCHAR2
10069 , p6_a14 out nocopy VARCHAR2
10070 , p6_a15 out nocopy VARCHAR2
10071 , p6_a16 out nocopy VARCHAR2
10072 , p6_a17 out nocopy VARCHAR2
10073 , p6_a18 out nocopy VARCHAR2
10074 , p6_a19 out nocopy VARCHAR2
10075 , p6_a20 out nocopy VARCHAR2
10076 , p6_a21 out nocopy VARCHAR2
10077 , p6_a22 out nocopy VARCHAR2
10078 , p6_a23 out nocopy VARCHAR2
10079 , p6_a24 out nocopy VARCHAR2
10080 , p6_a25 out nocopy VARCHAR2
10081 , p6_a26 out nocopy VARCHAR2
10082 , p6_a27 out nocopy NUMBER
10083 , p6_a28 out nocopy DATE
10084 , p6_a29 out nocopy NUMBER
10085 , p6_a30 out nocopy DATE
10086 , p6_a31 out nocopy NUMBER
10087 , p5_a0 NUMBER := 0-1962.0724
10088 , p5_a1 NUMBER := 0-1962.0724
10089 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
10090 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
10091 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
10092 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
10093 , p5_a6 NUMBER := 0-1962.0724
10094 , p5_a7 NUMBER := 0-1962.0724
10095 , p5_a8 NUMBER := 0-1962.0724
10096 , p5_a9 NUMBER := 0-1962.0724
10097 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
10098 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
10099 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
10100 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
10101 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
10102 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
10103 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
10104 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
10105 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
10106 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
10107 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
10108 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
10109 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
10110 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
10111 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
10112 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
10113 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
10114 , p5_a27 NUMBER := 0-1962.0724
10115 , p5_a28 DATE := fnd_api.g_miss_date
10116 , p5_a29 NUMBER := 0-1962.0724
10117 , p5_a30 DATE := fnd_api.g_miss_date
10118 , p5_a31 NUMBER := 0-1962.0724
10119 )
10120
10121 as
10122 ddp_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10123 ddx_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10124 ddindx binary_integer; indx binary_integer;
10125 begin
10126
10127 -- copy data to the local IN or IN-OUT args, if any
10128
10129
10130
10131
10132
10133 ddp_rgpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10134 ddp_rgpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
10135 ddp_rgpv_rec.sfwt_flag := p5_a2;
10136 ddp_rgpv_rec.rgd_code := p5_a3;
10137 ddp_rgpv_rec.sat_code := p5_a4;
10138 ddp_rgpv_rec.rgp_type := p5_a5;
10139 ddp_rgpv_rec.cle_id := rosetta_g_miss_num_map(p5_a6);
10140 ddp_rgpv_rec.chr_id := rosetta_g_miss_num_map(p5_a7);
10141 ddp_rgpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a8);
10142 ddp_rgpv_rec.parent_rgp_id := rosetta_g_miss_num_map(p5_a9);
10143 ddp_rgpv_rec.comments := p5_a10;
10144 ddp_rgpv_rec.attribute_category := p5_a11;
10145 ddp_rgpv_rec.attribute1 := p5_a12;
10146 ddp_rgpv_rec.attribute2 := p5_a13;
10147 ddp_rgpv_rec.attribute3 := p5_a14;
10148 ddp_rgpv_rec.attribute4 := p5_a15;
10149 ddp_rgpv_rec.attribute5 := p5_a16;
10150 ddp_rgpv_rec.attribute6 := p5_a17;
10151 ddp_rgpv_rec.attribute7 := p5_a18;
10152 ddp_rgpv_rec.attribute8 := p5_a19;
10153 ddp_rgpv_rec.attribute9 := p5_a20;
10154 ddp_rgpv_rec.attribute10 := p5_a21;
10155 ddp_rgpv_rec.attribute11 := p5_a22;
10156 ddp_rgpv_rec.attribute12 := p5_a23;
10157 ddp_rgpv_rec.attribute13 := p5_a24;
10158 ddp_rgpv_rec.attribute14 := p5_a25;
10159 ddp_rgpv_rec.attribute15 := p5_a26;
10160 ddp_rgpv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
10161 ddp_rgpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
10162 ddp_rgpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
10163 ddp_rgpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
10164 ddp_rgpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
10165
10166
10167 -- here's the delegated call to the old PL/SQL routine
10168 okl_okc_migration_pvt.create_rule_group(p_api_version,
10169 p_init_msg_list,
10170 x_return_status,
10171 x_msg_count,
10172 x_msg_data,
10173 ddp_rgpv_rec,
10174 ddx_rgpv_rec);
10175
10176 -- copy data back from the local variables to OUT or IN-OUT args, if any
10177
10178
10179
10180
10181
10182
10183 p6_a0 := rosetta_g_miss_num_map(ddx_rgpv_rec.id);
10184 p6_a1 := rosetta_g_miss_num_map(ddx_rgpv_rec.object_version_number);
10185 p6_a2 := ddx_rgpv_rec.sfwt_flag;
10186 p6_a3 := ddx_rgpv_rec.rgd_code;
10187 p6_a4 := ddx_rgpv_rec.sat_code;
10188 p6_a5 := ddx_rgpv_rec.rgp_type;
10189 p6_a6 := rosetta_g_miss_num_map(ddx_rgpv_rec.cle_id);
10190 p6_a7 := rosetta_g_miss_num_map(ddx_rgpv_rec.chr_id);
10191 p6_a8 := rosetta_g_miss_num_map(ddx_rgpv_rec.dnz_chr_id);
10192 p6_a9 := rosetta_g_miss_num_map(ddx_rgpv_rec.parent_rgp_id);
10193 p6_a10 := ddx_rgpv_rec.comments;
10194 p6_a11 := ddx_rgpv_rec.attribute_category;
10195 p6_a12 := ddx_rgpv_rec.attribute1;
10196 p6_a13 := ddx_rgpv_rec.attribute2;
10197 p6_a14 := ddx_rgpv_rec.attribute3;
10198 p6_a15 := ddx_rgpv_rec.attribute4;
10199 p6_a16 := ddx_rgpv_rec.attribute5;
10200 p6_a17 := ddx_rgpv_rec.attribute6;
10201 p6_a18 := ddx_rgpv_rec.attribute7;
10202 p6_a19 := ddx_rgpv_rec.attribute8;
10203 p6_a20 := ddx_rgpv_rec.attribute9;
10204 p6_a21 := ddx_rgpv_rec.attribute10;
10205 p6_a22 := ddx_rgpv_rec.attribute11;
10206 p6_a23 := ddx_rgpv_rec.attribute12;
10207 p6_a24 := ddx_rgpv_rec.attribute13;
10208 p6_a25 := ddx_rgpv_rec.attribute14;
10209 p6_a26 := ddx_rgpv_rec.attribute15;
10210 p6_a27 := rosetta_g_miss_num_map(ddx_rgpv_rec.created_by);
10211 p6_a28 := ddx_rgpv_rec.creation_date;
10212 p6_a29 := rosetta_g_miss_num_map(ddx_rgpv_rec.last_updated_by);
10213 p6_a30 := ddx_rgpv_rec.last_update_date;
10214 p6_a31 := rosetta_g_miss_num_map(ddx_rgpv_rec.last_update_login);
10215 end;
10216
10217 procedure update_rule_group(p_api_version NUMBER
10218 , p_init_msg_list VARCHAR2
10219 , x_return_status out nocopy VARCHAR2
10220 , x_msg_count out nocopy NUMBER
10221 , x_msg_data out nocopy VARCHAR2
10222 , p6_a0 out nocopy NUMBER
10223 , p6_a1 out nocopy NUMBER
10224 , p6_a2 out nocopy VARCHAR2
10225 , p6_a3 out nocopy VARCHAR2
10226 , p6_a4 out nocopy VARCHAR2
10227 , p6_a5 out nocopy VARCHAR2
10228 , p6_a6 out nocopy NUMBER
10229 , p6_a7 out nocopy NUMBER
10230 , p6_a8 out nocopy NUMBER
10231 , p6_a9 out nocopy NUMBER
10232 , p6_a10 out nocopy VARCHAR2
10233 , p6_a11 out nocopy VARCHAR2
10234 , p6_a12 out nocopy VARCHAR2
10235 , p6_a13 out nocopy VARCHAR2
10236 , p6_a14 out nocopy VARCHAR2
10237 , p6_a15 out nocopy VARCHAR2
10238 , p6_a16 out nocopy VARCHAR2
10239 , p6_a17 out nocopy VARCHAR2
10240 , p6_a18 out nocopy VARCHAR2
10241 , p6_a19 out nocopy VARCHAR2
10242 , p6_a20 out nocopy VARCHAR2
10243 , p6_a21 out nocopy VARCHAR2
10244 , p6_a22 out nocopy VARCHAR2
10245 , p6_a23 out nocopy VARCHAR2
10246 , p6_a24 out nocopy VARCHAR2
10247 , p6_a25 out nocopy VARCHAR2
10248 , p6_a26 out nocopy VARCHAR2
10249 , p6_a27 out nocopy NUMBER
10250 , p6_a28 out nocopy DATE
10251 , p6_a29 out nocopy NUMBER
10252 , p6_a30 out nocopy DATE
10253 , p6_a31 out nocopy NUMBER
10254 , p5_a0 NUMBER := 0-1962.0724
10255 , p5_a1 NUMBER := 0-1962.0724
10256 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
10257 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
10258 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
10259 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
10260 , p5_a6 NUMBER := 0-1962.0724
10261 , p5_a7 NUMBER := 0-1962.0724
10262 , p5_a8 NUMBER := 0-1962.0724
10263 , p5_a9 NUMBER := 0-1962.0724
10264 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
10265 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
10266 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
10267 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
10268 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
10269 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
10270 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
10271 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
10272 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
10273 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
10274 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
10275 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
10276 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
10277 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
10278 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
10279 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
10280 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
10281 , p5_a27 NUMBER := 0-1962.0724
10282 , p5_a28 DATE := fnd_api.g_miss_date
10283 , p5_a29 NUMBER := 0-1962.0724
10284 , p5_a30 DATE := fnd_api.g_miss_date
10285 , p5_a31 NUMBER := 0-1962.0724
10286 )
10287
10288 as
10289 ddp_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10290 ddx_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10291 ddindx binary_integer; indx binary_integer;
10292 begin
10293
10294 -- copy data to the local IN or IN-OUT args, if any
10295
10296
10297
10298
10299
10300 ddp_rgpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10301 ddp_rgpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
10302 ddp_rgpv_rec.sfwt_flag := p5_a2;
10303 ddp_rgpv_rec.rgd_code := p5_a3;
10304 ddp_rgpv_rec.sat_code := p5_a4;
10305 ddp_rgpv_rec.rgp_type := p5_a5;
10306 ddp_rgpv_rec.cle_id := rosetta_g_miss_num_map(p5_a6);
10307 ddp_rgpv_rec.chr_id := rosetta_g_miss_num_map(p5_a7);
10308 ddp_rgpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a8);
10309 ddp_rgpv_rec.parent_rgp_id := rosetta_g_miss_num_map(p5_a9);
10310 ddp_rgpv_rec.comments := p5_a10;
10311 ddp_rgpv_rec.attribute_category := p5_a11;
10312 ddp_rgpv_rec.attribute1 := p5_a12;
10313 ddp_rgpv_rec.attribute2 := p5_a13;
10314 ddp_rgpv_rec.attribute3 := p5_a14;
10315 ddp_rgpv_rec.attribute4 := p5_a15;
10316 ddp_rgpv_rec.attribute5 := p5_a16;
10317 ddp_rgpv_rec.attribute6 := p5_a17;
10318 ddp_rgpv_rec.attribute7 := p5_a18;
10319 ddp_rgpv_rec.attribute8 := p5_a19;
10320 ddp_rgpv_rec.attribute9 := p5_a20;
10321 ddp_rgpv_rec.attribute10 := p5_a21;
10322 ddp_rgpv_rec.attribute11 := p5_a22;
10323 ddp_rgpv_rec.attribute12 := p5_a23;
10324 ddp_rgpv_rec.attribute13 := p5_a24;
10325 ddp_rgpv_rec.attribute14 := p5_a25;
10326 ddp_rgpv_rec.attribute15 := p5_a26;
10327 ddp_rgpv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
10328 ddp_rgpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
10329 ddp_rgpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
10330 ddp_rgpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
10331 ddp_rgpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
10332
10333
10334 -- here's the delegated call to the old PL/SQL routine
10335 okl_okc_migration_pvt.update_rule_group(p_api_version,
10336 p_init_msg_list,
10337 x_return_status,
10338 x_msg_count,
10339 x_msg_data,
10340 ddp_rgpv_rec,
10341 ddx_rgpv_rec);
10342
10343 -- copy data back from the local variables to OUT or IN-OUT args, if any
10344
10345
10346
10347
10348
10349
10350 p6_a0 := rosetta_g_miss_num_map(ddx_rgpv_rec.id);
10351 p6_a1 := rosetta_g_miss_num_map(ddx_rgpv_rec.object_version_number);
10352 p6_a2 := ddx_rgpv_rec.sfwt_flag;
10353 p6_a3 := ddx_rgpv_rec.rgd_code;
10354 p6_a4 := ddx_rgpv_rec.sat_code;
10355 p6_a5 := ddx_rgpv_rec.rgp_type;
10356 p6_a6 := rosetta_g_miss_num_map(ddx_rgpv_rec.cle_id);
10357 p6_a7 := rosetta_g_miss_num_map(ddx_rgpv_rec.chr_id);
10358 p6_a8 := rosetta_g_miss_num_map(ddx_rgpv_rec.dnz_chr_id);
10359 p6_a9 := rosetta_g_miss_num_map(ddx_rgpv_rec.parent_rgp_id);
10360 p6_a10 := ddx_rgpv_rec.comments;
10361 p6_a11 := ddx_rgpv_rec.attribute_category;
10362 p6_a12 := ddx_rgpv_rec.attribute1;
10363 p6_a13 := ddx_rgpv_rec.attribute2;
10364 p6_a14 := ddx_rgpv_rec.attribute3;
10365 p6_a15 := ddx_rgpv_rec.attribute4;
10366 p6_a16 := ddx_rgpv_rec.attribute5;
10367 p6_a17 := ddx_rgpv_rec.attribute6;
10368 p6_a18 := ddx_rgpv_rec.attribute7;
10369 p6_a19 := ddx_rgpv_rec.attribute8;
10370 p6_a20 := ddx_rgpv_rec.attribute9;
10371 p6_a21 := ddx_rgpv_rec.attribute10;
10372 p6_a22 := ddx_rgpv_rec.attribute11;
10373 p6_a23 := ddx_rgpv_rec.attribute12;
10374 p6_a24 := ddx_rgpv_rec.attribute13;
10375 p6_a25 := ddx_rgpv_rec.attribute14;
10376 p6_a26 := ddx_rgpv_rec.attribute15;
10377 p6_a27 := rosetta_g_miss_num_map(ddx_rgpv_rec.created_by);
10378 p6_a28 := ddx_rgpv_rec.creation_date;
10379 p6_a29 := rosetta_g_miss_num_map(ddx_rgpv_rec.last_updated_by);
10380 p6_a30 := ddx_rgpv_rec.last_update_date;
10381 p6_a31 := rosetta_g_miss_num_map(ddx_rgpv_rec.last_update_login);
10382 end;
10383
10384 procedure delete_rule_group(p_api_version NUMBER
10385 , p_init_msg_list VARCHAR2
10386 , x_return_status out nocopy VARCHAR2
10387 , x_msg_count out nocopy NUMBER
10388 , x_msg_data out nocopy VARCHAR2
10389 , p5_a0 NUMBER := 0-1962.0724
10390 , p5_a1 NUMBER := 0-1962.0724
10391 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
10392 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
10393 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
10394 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
10395 , p5_a6 NUMBER := 0-1962.0724
10396 , p5_a7 NUMBER := 0-1962.0724
10397 , p5_a8 NUMBER := 0-1962.0724
10398 , p5_a9 NUMBER := 0-1962.0724
10399 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
10400 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
10401 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
10402 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
10403 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
10404 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
10405 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
10406 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
10407 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
10408 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
10409 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
10410 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
10411 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
10412 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
10413 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
10414 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
10415 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
10416 , p5_a27 NUMBER := 0-1962.0724
10417 , p5_a28 DATE := fnd_api.g_miss_date
10418 , p5_a29 NUMBER := 0-1962.0724
10419 , p5_a30 DATE := fnd_api.g_miss_date
10420 , p5_a31 NUMBER := 0-1962.0724
10421 )
10422
10423 as
10424 ddp_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10425 ddindx binary_integer; indx binary_integer;
10426 begin
10427
10428 -- copy data to the local IN or IN-OUT args, if any
10429
10430
10431
10432
10433
10434 ddp_rgpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10435 ddp_rgpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
10436 ddp_rgpv_rec.sfwt_flag := p5_a2;
10437 ddp_rgpv_rec.rgd_code := p5_a3;
10438 ddp_rgpv_rec.sat_code := p5_a4;
10439 ddp_rgpv_rec.rgp_type := p5_a5;
10440 ddp_rgpv_rec.cle_id := rosetta_g_miss_num_map(p5_a6);
10441 ddp_rgpv_rec.chr_id := rosetta_g_miss_num_map(p5_a7);
10442 ddp_rgpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a8);
10443 ddp_rgpv_rec.parent_rgp_id := rosetta_g_miss_num_map(p5_a9);
10444 ddp_rgpv_rec.comments := p5_a10;
10445 ddp_rgpv_rec.attribute_category := p5_a11;
10446 ddp_rgpv_rec.attribute1 := p5_a12;
10447 ddp_rgpv_rec.attribute2 := p5_a13;
10448 ddp_rgpv_rec.attribute3 := p5_a14;
10449 ddp_rgpv_rec.attribute4 := p5_a15;
10450 ddp_rgpv_rec.attribute5 := p5_a16;
10451 ddp_rgpv_rec.attribute6 := p5_a17;
10452 ddp_rgpv_rec.attribute7 := p5_a18;
10453 ddp_rgpv_rec.attribute8 := p5_a19;
10454 ddp_rgpv_rec.attribute9 := p5_a20;
10455 ddp_rgpv_rec.attribute10 := p5_a21;
10456 ddp_rgpv_rec.attribute11 := p5_a22;
10457 ddp_rgpv_rec.attribute12 := p5_a23;
10458 ddp_rgpv_rec.attribute13 := p5_a24;
10459 ddp_rgpv_rec.attribute14 := p5_a25;
10460 ddp_rgpv_rec.attribute15 := p5_a26;
10461 ddp_rgpv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
10462 ddp_rgpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
10463 ddp_rgpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
10464 ddp_rgpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
10465 ddp_rgpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
10466
10467 -- here's the delegated call to the old PL/SQL routine
10468 okl_okc_migration_pvt.delete_rule_group(p_api_version,
10469 p_init_msg_list,
10470 x_return_status,
10471 x_msg_count,
10472 x_msg_data,
10473 ddp_rgpv_rec);
10474
10475 -- copy data back from the local variables to OUT or IN-OUT args, if any
10476
10477
10478
10479
10480
10481 end;
10482
10483 procedure lock_rule_group(p_api_version NUMBER
10484 , p_init_msg_list VARCHAR2
10485 , x_return_status out nocopy VARCHAR2
10486 , x_msg_count out nocopy NUMBER
10487 , x_msg_data out nocopy VARCHAR2
10488 , p5_a0 NUMBER := 0-1962.0724
10489 , p5_a1 NUMBER := 0-1962.0724
10490 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
10491 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
10492 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
10493 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
10494 , p5_a6 NUMBER := 0-1962.0724
10495 , p5_a7 NUMBER := 0-1962.0724
10496 , p5_a8 NUMBER := 0-1962.0724
10497 , p5_a9 NUMBER := 0-1962.0724
10498 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
10499 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
10500 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
10501 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
10502 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
10503 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
10504 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
10505 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
10506 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
10507 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
10508 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
10509 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
10510 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
10511 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
10512 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
10513 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
10514 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
10515 , p5_a27 NUMBER := 0-1962.0724
10516 , p5_a28 DATE := fnd_api.g_miss_date
10517 , p5_a29 NUMBER := 0-1962.0724
10518 , p5_a30 DATE := fnd_api.g_miss_date
10519 , p5_a31 NUMBER := 0-1962.0724
10520 )
10521
10522 as
10523 ddp_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10524 ddindx binary_integer; indx binary_integer;
10525 begin
10526
10527 -- copy data to the local IN or IN-OUT args, if any
10528
10529
10530
10531
10532
10533 ddp_rgpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10534 ddp_rgpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
10535 ddp_rgpv_rec.sfwt_flag := p5_a2;
10536 ddp_rgpv_rec.rgd_code := p5_a3;
10537 ddp_rgpv_rec.sat_code := p5_a4;
10538 ddp_rgpv_rec.rgp_type := p5_a5;
10539 ddp_rgpv_rec.cle_id := rosetta_g_miss_num_map(p5_a6);
10540 ddp_rgpv_rec.chr_id := rosetta_g_miss_num_map(p5_a7);
10541 ddp_rgpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a8);
10542 ddp_rgpv_rec.parent_rgp_id := rosetta_g_miss_num_map(p5_a9);
10543 ddp_rgpv_rec.comments := p5_a10;
10544 ddp_rgpv_rec.attribute_category := p5_a11;
10545 ddp_rgpv_rec.attribute1 := p5_a12;
10546 ddp_rgpv_rec.attribute2 := p5_a13;
10547 ddp_rgpv_rec.attribute3 := p5_a14;
10548 ddp_rgpv_rec.attribute4 := p5_a15;
10549 ddp_rgpv_rec.attribute5 := p5_a16;
10550 ddp_rgpv_rec.attribute6 := p5_a17;
10551 ddp_rgpv_rec.attribute7 := p5_a18;
10552 ddp_rgpv_rec.attribute8 := p5_a19;
10553 ddp_rgpv_rec.attribute9 := p5_a20;
10554 ddp_rgpv_rec.attribute10 := p5_a21;
10555 ddp_rgpv_rec.attribute11 := p5_a22;
10556 ddp_rgpv_rec.attribute12 := p5_a23;
10557 ddp_rgpv_rec.attribute13 := p5_a24;
10558 ddp_rgpv_rec.attribute14 := p5_a25;
10559 ddp_rgpv_rec.attribute15 := p5_a26;
10560 ddp_rgpv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
10561 ddp_rgpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
10562 ddp_rgpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
10563 ddp_rgpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
10564 ddp_rgpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
10565
10566 -- here's the delegated call to the old PL/SQL routine
10567 okl_okc_migration_pvt.lock_rule_group(p_api_version,
10568 p_init_msg_list,
10569 x_return_status,
10570 x_msg_count,
10571 x_msg_data,
10572 ddp_rgpv_rec);
10573
10574 -- copy data back from the local variables to OUT or IN-OUT args, if any
10575
10576
10577
10578
10579
10580 end;
10581
10582 procedure validate_rule_group(p_api_version NUMBER
10583 , p_init_msg_list VARCHAR2
10584 , x_return_status out nocopy VARCHAR2
10585 , x_msg_count out nocopy NUMBER
10586 , x_msg_data out nocopy VARCHAR2
10587 , p5_a0 NUMBER := 0-1962.0724
10588 , p5_a1 NUMBER := 0-1962.0724
10589 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
10590 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
10591 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
10592 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
10593 , p5_a6 NUMBER := 0-1962.0724
10594 , p5_a7 NUMBER := 0-1962.0724
10595 , p5_a8 NUMBER := 0-1962.0724
10596 , p5_a9 NUMBER := 0-1962.0724
10597 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
10598 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
10599 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
10600 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
10601 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
10602 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
10603 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
10604 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
10605 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
10606 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
10607 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
10608 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
10609 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
10610 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
10611 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
10612 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
10613 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
10614 , p5_a27 NUMBER := 0-1962.0724
10615 , p5_a28 DATE := fnd_api.g_miss_date
10616 , p5_a29 NUMBER := 0-1962.0724
10617 , p5_a30 DATE := fnd_api.g_miss_date
10618 , p5_a31 NUMBER := 0-1962.0724
10619 )
10620
10621 as
10622 ddp_rgpv_rec okl_okc_migration_pvt.rgpv_rec_type;
10623 ddindx binary_integer; indx binary_integer;
10624 begin
10625
10626 -- copy data to the local IN or IN-OUT args, if any
10627
10628
10629
10630
10631
10632 ddp_rgpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10633 ddp_rgpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
10634 ddp_rgpv_rec.sfwt_flag := p5_a2;
10635 ddp_rgpv_rec.rgd_code := p5_a3;
10636 ddp_rgpv_rec.sat_code := p5_a4;
10637 ddp_rgpv_rec.rgp_type := p5_a5;
10638 ddp_rgpv_rec.cle_id := rosetta_g_miss_num_map(p5_a6);
10639 ddp_rgpv_rec.chr_id := rosetta_g_miss_num_map(p5_a7);
10640 ddp_rgpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a8);
10641 ddp_rgpv_rec.parent_rgp_id := rosetta_g_miss_num_map(p5_a9);
10642 ddp_rgpv_rec.comments := p5_a10;
10643 ddp_rgpv_rec.attribute_category := p5_a11;
10644 ddp_rgpv_rec.attribute1 := p5_a12;
10645 ddp_rgpv_rec.attribute2 := p5_a13;
10646 ddp_rgpv_rec.attribute3 := p5_a14;
10647 ddp_rgpv_rec.attribute4 := p5_a15;
10648 ddp_rgpv_rec.attribute5 := p5_a16;
10649 ddp_rgpv_rec.attribute6 := p5_a17;
10650 ddp_rgpv_rec.attribute7 := p5_a18;
10651 ddp_rgpv_rec.attribute8 := p5_a19;
10652 ddp_rgpv_rec.attribute9 := p5_a20;
10653 ddp_rgpv_rec.attribute10 := p5_a21;
10654 ddp_rgpv_rec.attribute11 := p5_a22;
10655 ddp_rgpv_rec.attribute12 := p5_a23;
10656 ddp_rgpv_rec.attribute13 := p5_a24;
10657 ddp_rgpv_rec.attribute14 := p5_a25;
10658 ddp_rgpv_rec.attribute15 := p5_a26;
10659 ddp_rgpv_rec.created_by := rosetta_g_miss_num_map(p5_a27);
10660 ddp_rgpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a28);
10661 ddp_rgpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a29);
10662 ddp_rgpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a30);
10663 ddp_rgpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a31);
10664
10665 -- here's the delegated call to the old PL/SQL routine
10666 okl_okc_migration_pvt.validate_rule_group(p_api_version,
10667 p_init_msg_list,
10668 x_return_status,
10669 x_msg_count,
10670 x_msg_data,
10671 ddp_rgpv_rec);
10672
10673 -- copy data back from the local variables to OUT or IN-OUT args, if any
10674
10675
10676
10677
10678
10679 end;
10680
10681 procedure create_rg_mode_pty_role(p_api_version NUMBER
10682 , p_init_msg_list VARCHAR2
10683 , x_return_status out nocopy VARCHAR2
10684 , x_msg_count out nocopy NUMBER
10685 , x_msg_data out nocopy VARCHAR2
10686 , p6_a0 out nocopy NUMBER
10687 , p6_a1 out nocopy NUMBER
10688 , p6_a2 out nocopy NUMBER
10689 , p6_a3 out nocopy NUMBER
10690 , p6_a4 out nocopy NUMBER
10691 , p6_a5 out nocopy NUMBER
10692 , p6_a6 out nocopy NUMBER
10693 , p6_a7 out nocopy DATE
10694 , p6_a8 out nocopy NUMBER
10695 , p6_a9 out nocopy DATE
10696 , p6_a10 out nocopy NUMBER
10697 , p5_a0 NUMBER := 0-1962.0724
10698 , p5_a1 NUMBER := 0-1962.0724
10699 , p5_a2 NUMBER := 0-1962.0724
10700 , p5_a3 NUMBER := 0-1962.0724
10701 , p5_a4 NUMBER := 0-1962.0724
10702 , p5_a5 NUMBER := 0-1962.0724
10703 , p5_a6 NUMBER := 0-1962.0724
10704 , p5_a7 DATE := fnd_api.g_miss_date
10705 , p5_a8 NUMBER := 0-1962.0724
10706 , p5_a9 DATE := fnd_api.g_miss_date
10707 , p5_a10 NUMBER := 0-1962.0724
10708 )
10709
10710 as
10711 ddp_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10712 ddx_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10713 ddindx binary_integer; indx binary_integer;
10714 begin
10715
10716 -- copy data to the local IN or IN-OUT args, if any
10717
10718
10719
10720
10721
10722 ddp_rmpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10723 ddp_rmpv_rec.rgp_id := rosetta_g_miss_num_map(p5_a1);
10724 ddp_rmpv_rec.rrd_id := rosetta_g_miss_num_map(p5_a2);
10725 ddp_rmpv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
10726 ddp_rmpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
10727 ddp_rmpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
10728 ddp_rmpv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
10729 ddp_rmpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
10730 ddp_rmpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
10731 ddp_rmpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
10732 ddp_rmpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
10733
10734
10735 -- here's the delegated call to the old PL/SQL routine
10736 okl_okc_migration_pvt.create_rg_mode_pty_role(p_api_version,
10737 p_init_msg_list,
10738 x_return_status,
10739 x_msg_count,
10740 x_msg_data,
10741 ddp_rmpv_rec,
10742 ddx_rmpv_rec);
10743
10744 -- copy data back from the local variables to OUT or IN-OUT args, if any
10745
10746
10747
10748
10749
10750
10751 p6_a0 := rosetta_g_miss_num_map(ddx_rmpv_rec.id);
10752 p6_a1 := rosetta_g_miss_num_map(ddx_rmpv_rec.rgp_id);
10753 p6_a2 := rosetta_g_miss_num_map(ddx_rmpv_rec.rrd_id);
10754 p6_a3 := rosetta_g_miss_num_map(ddx_rmpv_rec.cpl_id);
10755 p6_a4 := rosetta_g_miss_num_map(ddx_rmpv_rec.dnz_chr_id);
10756 p6_a5 := rosetta_g_miss_num_map(ddx_rmpv_rec.object_version_number);
10757 p6_a6 := rosetta_g_miss_num_map(ddx_rmpv_rec.created_by);
10758 p6_a7 := ddx_rmpv_rec.creation_date;
10759 p6_a8 := rosetta_g_miss_num_map(ddx_rmpv_rec.last_updated_by);
10760 p6_a9 := ddx_rmpv_rec.last_update_date;
10761 p6_a10 := rosetta_g_miss_num_map(ddx_rmpv_rec.last_update_login);
10762 end;
10763
10764 procedure update_rg_mode_pty_role(p_api_version NUMBER
10765 , p_init_msg_list VARCHAR2
10766 , x_return_status out nocopy VARCHAR2
10767 , x_msg_count out nocopy NUMBER
10768 , x_msg_data out nocopy VARCHAR2
10769 , p6_a0 out nocopy NUMBER
10770 , p6_a1 out nocopy NUMBER
10771 , p6_a2 out nocopy NUMBER
10772 , p6_a3 out nocopy NUMBER
10773 , p6_a4 out nocopy NUMBER
10774 , p6_a5 out nocopy NUMBER
10775 , p6_a6 out nocopy NUMBER
10776 , p6_a7 out nocopy DATE
10777 , p6_a8 out nocopy NUMBER
10778 , p6_a9 out nocopy DATE
10779 , p6_a10 out nocopy NUMBER
10780 , p5_a0 NUMBER := 0-1962.0724
10781 , p5_a1 NUMBER := 0-1962.0724
10782 , p5_a2 NUMBER := 0-1962.0724
10783 , p5_a3 NUMBER := 0-1962.0724
10784 , p5_a4 NUMBER := 0-1962.0724
10785 , p5_a5 NUMBER := 0-1962.0724
10786 , p5_a6 NUMBER := 0-1962.0724
10787 , p5_a7 DATE := fnd_api.g_miss_date
10788 , p5_a8 NUMBER := 0-1962.0724
10789 , p5_a9 DATE := fnd_api.g_miss_date
10790 , p5_a10 NUMBER := 0-1962.0724
10791 )
10792
10793 as
10794 ddp_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10795 ddx_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10796 ddindx binary_integer; indx binary_integer;
10797 begin
10798
10799 -- copy data to the local IN or IN-OUT args, if any
10800
10801
10802
10803
10804
10805 ddp_rmpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10806 ddp_rmpv_rec.rgp_id := rosetta_g_miss_num_map(p5_a1);
10807 ddp_rmpv_rec.rrd_id := rosetta_g_miss_num_map(p5_a2);
10808 ddp_rmpv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
10809 ddp_rmpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
10810 ddp_rmpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
10811 ddp_rmpv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
10812 ddp_rmpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
10813 ddp_rmpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
10814 ddp_rmpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
10815 ddp_rmpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
10816
10817
10818 -- here's the delegated call to the old PL/SQL routine
10819 okl_okc_migration_pvt.update_rg_mode_pty_role(p_api_version,
10820 p_init_msg_list,
10821 x_return_status,
10822 x_msg_count,
10823 x_msg_data,
10824 ddp_rmpv_rec,
10825 ddx_rmpv_rec);
10826
10827 -- copy data back from the local variables to OUT or IN-OUT args, if any
10828
10829
10830
10831
10832
10833
10834 p6_a0 := rosetta_g_miss_num_map(ddx_rmpv_rec.id);
10835 p6_a1 := rosetta_g_miss_num_map(ddx_rmpv_rec.rgp_id);
10836 p6_a2 := rosetta_g_miss_num_map(ddx_rmpv_rec.rrd_id);
10837 p6_a3 := rosetta_g_miss_num_map(ddx_rmpv_rec.cpl_id);
10838 p6_a4 := rosetta_g_miss_num_map(ddx_rmpv_rec.dnz_chr_id);
10839 p6_a5 := rosetta_g_miss_num_map(ddx_rmpv_rec.object_version_number);
10840 p6_a6 := rosetta_g_miss_num_map(ddx_rmpv_rec.created_by);
10841 p6_a7 := ddx_rmpv_rec.creation_date;
10842 p6_a8 := rosetta_g_miss_num_map(ddx_rmpv_rec.last_updated_by);
10843 p6_a9 := ddx_rmpv_rec.last_update_date;
10844 p6_a10 := rosetta_g_miss_num_map(ddx_rmpv_rec.last_update_login);
10845 end;
10846
10847 procedure delete_rg_mode_pty_role(p_api_version NUMBER
10848 , p_init_msg_list VARCHAR2
10849 , x_return_status out nocopy VARCHAR2
10850 , x_msg_count out nocopy NUMBER
10851 , x_msg_data out nocopy VARCHAR2
10852 , p5_a0 NUMBER := 0-1962.0724
10853 , p5_a1 NUMBER := 0-1962.0724
10854 , p5_a2 NUMBER := 0-1962.0724
10855 , p5_a3 NUMBER := 0-1962.0724
10856 , p5_a4 NUMBER := 0-1962.0724
10857 , p5_a5 NUMBER := 0-1962.0724
10858 , p5_a6 NUMBER := 0-1962.0724
10859 , p5_a7 DATE := fnd_api.g_miss_date
10860 , p5_a8 NUMBER := 0-1962.0724
10861 , p5_a9 DATE := fnd_api.g_miss_date
10862 , p5_a10 NUMBER := 0-1962.0724
10863 )
10864
10865 as
10866 ddp_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10867 ddindx binary_integer; indx binary_integer;
10868 begin
10869
10870 -- copy data to the local IN or IN-OUT args, if any
10871
10872
10873
10874
10875
10876 ddp_rmpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10877 ddp_rmpv_rec.rgp_id := rosetta_g_miss_num_map(p5_a1);
10878 ddp_rmpv_rec.rrd_id := rosetta_g_miss_num_map(p5_a2);
10879 ddp_rmpv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
10880 ddp_rmpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
10881 ddp_rmpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
10882 ddp_rmpv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
10883 ddp_rmpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
10884 ddp_rmpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
10885 ddp_rmpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
10886 ddp_rmpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
10887
10888 -- here's the delegated call to the old PL/SQL routine
10889 okl_okc_migration_pvt.delete_rg_mode_pty_role(p_api_version,
10890 p_init_msg_list,
10891 x_return_status,
10892 x_msg_count,
10893 x_msg_data,
10894 ddp_rmpv_rec);
10895
10896 -- copy data back from the local variables to OUT or IN-OUT args, if any
10897
10898
10899
10900
10901
10902 end;
10903
10904 procedure lock_rg_mode_pty_role(p_api_version NUMBER
10905 , p_init_msg_list VARCHAR2
10906 , x_return_status out nocopy VARCHAR2
10907 , x_msg_count out nocopy NUMBER
10908 , x_msg_data out nocopy VARCHAR2
10909 , p5_a0 NUMBER := 0-1962.0724
10910 , p5_a1 NUMBER := 0-1962.0724
10911 , p5_a2 NUMBER := 0-1962.0724
10912 , p5_a3 NUMBER := 0-1962.0724
10913 , p5_a4 NUMBER := 0-1962.0724
10914 , p5_a5 NUMBER := 0-1962.0724
10915 , p5_a6 NUMBER := 0-1962.0724
10916 , p5_a7 DATE := fnd_api.g_miss_date
10917 , p5_a8 NUMBER := 0-1962.0724
10918 , p5_a9 DATE := fnd_api.g_miss_date
10919 , p5_a10 NUMBER := 0-1962.0724
10920 )
10921
10922 as
10923 ddp_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10924 ddindx binary_integer; indx binary_integer;
10925 begin
10926
10927 -- copy data to the local IN or IN-OUT args, if any
10928
10929
10930
10931
10932
10933 ddp_rmpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10934 ddp_rmpv_rec.rgp_id := rosetta_g_miss_num_map(p5_a1);
10935 ddp_rmpv_rec.rrd_id := rosetta_g_miss_num_map(p5_a2);
10936 ddp_rmpv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
10937 ddp_rmpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
10938 ddp_rmpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
10939 ddp_rmpv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
10940 ddp_rmpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
10941 ddp_rmpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
10942 ddp_rmpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
10943 ddp_rmpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
10944
10945 -- here's the delegated call to the old PL/SQL routine
10946 okl_okc_migration_pvt.lock_rg_mode_pty_role(p_api_version,
10947 p_init_msg_list,
10948 x_return_status,
10949 x_msg_count,
10950 x_msg_data,
10951 ddp_rmpv_rec);
10952
10953 -- copy data back from the local variables to OUT or IN-OUT args, if any
10954
10955
10956
10957
10958
10959 end;
10960
10961 procedure validate_rg_mode_pty_role(p_api_version NUMBER
10962 , p_init_msg_list VARCHAR2
10963 , x_return_status out nocopy VARCHAR2
10964 , x_msg_count out nocopy NUMBER
10965 , x_msg_data out nocopy VARCHAR2
10966 , p5_a0 NUMBER := 0-1962.0724
10967 , p5_a1 NUMBER := 0-1962.0724
10968 , p5_a2 NUMBER := 0-1962.0724
10969 , p5_a3 NUMBER := 0-1962.0724
10970 , p5_a4 NUMBER := 0-1962.0724
10971 , p5_a5 NUMBER := 0-1962.0724
10972 , p5_a6 NUMBER := 0-1962.0724
10973 , p5_a7 DATE := fnd_api.g_miss_date
10974 , p5_a8 NUMBER := 0-1962.0724
10975 , p5_a9 DATE := fnd_api.g_miss_date
10976 , p5_a10 NUMBER := 0-1962.0724
10977 )
10978
10979 as
10980 ddp_rmpv_rec okl_okc_migration_pvt.rmpv_rec_type;
10981 ddindx binary_integer; indx binary_integer;
10982 begin
10983
10984 -- copy data to the local IN or IN-OUT args, if any
10985
10986
10987
10988
10989
10990 ddp_rmpv_rec.id := rosetta_g_miss_num_map(p5_a0);
10991 ddp_rmpv_rec.rgp_id := rosetta_g_miss_num_map(p5_a1);
10992 ddp_rmpv_rec.rrd_id := rosetta_g_miss_num_map(p5_a2);
10993 ddp_rmpv_rec.cpl_id := rosetta_g_miss_num_map(p5_a3);
10994 ddp_rmpv_rec.dnz_chr_id := rosetta_g_miss_num_map(p5_a4);
10995 ddp_rmpv_rec.object_version_number := rosetta_g_miss_num_map(p5_a5);
10996 ddp_rmpv_rec.created_by := rosetta_g_miss_num_map(p5_a6);
10997 ddp_rmpv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a7);
10998 ddp_rmpv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a8);
10999 ddp_rmpv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a9);
11000 ddp_rmpv_rec.last_update_login := rosetta_g_miss_num_map(p5_a10);
11001
11002 -- here's the delegated call to the old PL/SQL routine
11003 okl_okc_migration_pvt.validate_rg_mode_pty_role(p_api_version,
11004 p_init_msg_list,
11005 x_return_status,
11006 x_msg_count,
11007 x_msg_data,
11008 ddp_rmpv_rec);
11009
11010 -- copy data back from the local variables to OUT or IN-OUT args, if any
11011
11012
11013
11014
11015
11016 end;
11017
11018 end okl_okc_migration_pvt_w;