[Home] [Help]
PACKAGE BODY: APPS.IEX_SCORE_PUB_W
Source
1 package body iex_score_pub_w as
2 /* $Header: iexwscrb.pls 120.6 2004/11/08 19:20:08 clchang ship $ */
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 procedure rosetta_table_copy_in_p1(t out nocopy iex_score_pub.score_eng_comp_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_NUMBER_TABLE
16 , a3 JTF_VARCHAR2_TABLE_2000
17 ) as
18 ddindx binary_integer; indx binary_integer;
19 begin
20 if a0 is not null and a0.count > 0 then
21 if a0.count > 0 then
22 indx := a0.first;
23 ddindx := 1;
24 while true loop
25 t(ddindx).score_id := a0(indx);
26 t(ddindx).score_component_id := a1(indx);
27 t(ddindx).score_comp_weight := a2(indx);
28 t(ddindx).score_comp_value := a3(indx);
29 ddindx := ddindx+1;
30 if a0.last =indx
31 then exit;
32 end if;
33 indx := a0.next(indx);
34 end loop;
35 end if;
36 end if;
37 end rosetta_table_copy_in_p1;
38 procedure rosetta_table_copy_out_p1(t iex_score_pub.score_eng_comp_tbl, a0 out nocopy JTF_NUMBER_TABLE
39 , a1 out nocopy JTF_NUMBER_TABLE
40 , a2 out nocopy JTF_NUMBER_TABLE
41 , a3 out nocopy JTF_VARCHAR2_TABLE_2000
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if t is null or t.count = 0 then
46 a0 := JTF_NUMBER_TABLE();
47 a1 := JTF_NUMBER_TABLE();
48 a2 := JTF_NUMBER_TABLE();
49 a3 := JTF_VARCHAR2_TABLE_2000();
50 else
51 a0 := JTF_NUMBER_TABLE();
52 a1 := JTF_NUMBER_TABLE();
53 a2 := JTF_NUMBER_TABLE();
54 a3 := JTF_VARCHAR2_TABLE_2000();
55 if t.count > 0 then
56 a0.extend(t.count);
57 a1.extend(t.count);
58 a2.extend(t.count);
59 a3.extend(t.count);
60 ddindx := t.first;
61 indx := 1;
62 while true loop
63 a0(indx) := t(ddindx).score_id;
64 a1(indx) := t(ddindx).score_component_id;
65 a2(indx) := t(ddindx).score_comp_weight;
66 a3(indx) := t(ddindx).score_comp_value;
67 indx := indx+1;
68 if t.last =ddindx
69 then exit;
70 end if;
71 ddindx := t.next(ddindx);
72 end loop;
73 end if;
74 end if;
75 end rosetta_table_copy_out_p1;
76
77 procedure rosetta_table_copy_in_p3(t out nocopy iex_score_pub.score_tbl_type, a0 JTF_NUMBER_TABLE
78 , a1 JTF_VARCHAR2_TABLE_300
79 , a2 JTF_DATE_TABLE
80 , a3 JTF_NUMBER_TABLE
81 , a4 JTF_DATE_TABLE
82 , a5 JTF_NUMBER_TABLE
83 , a6 JTF_NUMBER_TABLE
84 , a7 JTF_VARCHAR2_TABLE_200
85 , a8 JTF_VARCHAR2_TABLE_100
86 , a9 JTF_DATE_TABLE
87 , a10 JTF_DATE_TABLE
88 , a11 JTF_NUMBER_TABLE
89 , a12 JTF_VARCHAR2_TABLE_100
90 , a13 JTF_NUMBER_TABLE
91 , a14 JTF_VARCHAR2_TABLE_100
92 , a15 JTF_NUMBER_TABLE
93 , a16 JTF_NUMBER_TABLE
94 , a17 JTF_NUMBER_TABLE
95 , a18 JTF_NUMBER_TABLE
96 , a19 JTF_DATE_TABLE
97 , a20 JTF_VARCHAR2_TABLE_100
98 , a21 JTF_VARCHAR2_TABLE_100
99 , a22 JTF_VARCHAR2_TABLE_1000
100 , a23 JTF_VARCHAR2_TABLE_1000
101 , a24 JTF_VARCHAR2_TABLE_100
102 ) as
103 ddindx binary_integer; indx binary_integer;
104 begin
105 if a0 is not null and a0.count > 0 then
106 if a0.count > 0 then
107 indx := a0.first;
108 ddindx := 1;
109 while true loop
110 t(ddindx).score_id := a0(indx);
111 t(ddindx).score_name := a1(indx);
112 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
113 t(ddindx).last_updated_by := a3(indx);
114 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
115 t(ddindx).created_by := a5(indx);
116 t(ddindx).last_update_login := a6(indx);
117 t(ddindx).score_description := a7(indx);
118 t(ddindx).enabled_flag := a8(indx);
119 t(ddindx).valid_from_dt := rosetta_g_miss_date_in_map(a9(indx));
120 t(ddindx).valid_to_dt := rosetta_g_miss_date_in_map(a10(indx));
121 t(ddindx).campaign_sched_id := a11(indx);
122 t(ddindx).jtf_object_code := a12(indx);
123 t(ddindx).concurrent_prog_id := a13(indx);
124 t(ddindx).concurrent_prog_name := a14(indx);
125 t(ddindx).security_group_id := a15(indx);
126 t(ddindx).request_id := a16(indx);
127 t(ddindx).program_application_id := a17(indx);
128 t(ddindx).program_id := a18(indx);
129 t(ddindx).program_update_date := rosetta_g_miss_date_in_map(a19(indx));
130 t(ddindx).status_determination := a20(indx);
131 t(ddindx).weight_required := a21(indx);
132 t(ddindx).score_range_low := a22(indx);
133 t(ddindx).score_range_high := a23(indx);
134 t(ddindx).out_of_range_rule := a24(indx);
135 ddindx := ddindx+1;
136 if a0.last =indx
137 then exit;
138 end if;
139 indx := a0.next(indx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_in_p3;
144 procedure rosetta_table_copy_out_p3(t iex_score_pub.score_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
145 , a1 out nocopy JTF_VARCHAR2_TABLE_300
146 , a2 out nocopy JTF_DATE_TABLE
147 , a3 out nocopy JTF_NUMBER_TABLE
148 , a4 out nocopy JTF_DATE_TABLE
149 , a5 out nocopy JTF_NUMBER_TABLE
150 , a6 out nocopy JTF_NUMBER_TABLE
151 , a7 out nocopy JTF_VARCHAR2_TABLE_200
152 , a8 out nocopy JTF_VARCHAR2_TABLE_100
153 , a9 out nocopy JTF_DATE_TABLE
154 , a10 out nocopy JTF_DATE_TABLE
155 , a11 out nocopy JTF_NUMBER_TABLE
156 , a12 out nocopy JTF_VARCHAR2_TABLE_100
157 , a13 out nocopy JTF_NUMBER_TABLE
158 , a14 out nocopy JTF_VARCHAR2_TABLE_100
159 , a15 out nocopy JTF_NUMBER_TABLE
160 , a16 out nocopy JTF_NUMBER_TABLE
161 , a17 out nocopy JTF_NUMBER_TABLE
162 , a18 out nocopy JTF_NUMBER_TABLE
163 , a19 out nocopy JTF_DATE_TABLE
164 , a20 out nocopy JTF_VARCHAR2_TABLE_100
165 , a21 out nocopy JTF_VARCHAR2_TABLE_100
166 , a22 out nocopy JTF_VARCHAR2_TABLE_1000
167 , a23 out nocopy JTF_VARCHAR2_TABLE_1000
168 , a24 out nocopy JTF_VARCHAR2_TABLE_100
169 ) as
170 ddindx binary_integer; indx binary_integer;
171 begin
172 if t is null or t.count = 0 then
173 a0 := JTF_NUMBER_TABLE();
174 a1 := JTF_VARCHAR2_TABLE_300();
175 a2 := JTF_DATE_TABLE();
176 a3 := JTF_NUMBER_TABLE();
177 a4 := JTF_DATE_TABLE();
178 a5 := JTF_NUMBER_TABLE();
179 a6 := JTF_NUMBER_TABLE();
180 a7 := JTF_VARCHAR2_TABLE_200();
181 a8 := JTF_VARCHAR2_TABLE_100();
182 a9 := JTF_DATE_TABLE();
183 a10 := JTF_DATE_TABLE();
184 a11 := JTF_NUMBER_TABLE();
185 a12 := JTF_VARCHAR2_TABLE_100();
186 a13 := JTF_NUMBER_TABLE();
187 a14 := JTF_VARCHAR2_TABLE_100();
188 a15 := JTF_NUMBER_TABLE();
189 a16 := JTF_NUMBER_TABLE();
190 a17 := JTF_NUMBER_TABLE();
191 a18 := JTF_NUMBER_TABLE();
192 a19 := JTF_DATE_TABLE();
193 a20 := JTF_VARCHAR2_TABLE_100();
194 a21 := JTF_VARCHAR2_TABLE_100();
195 a22 := JTF_VARCHAR2_TABLE_1000();
196 a23 := JTF_VARCHAR2_TABLE_1000();
197 a24 := JTF_VARCHAR2_TABLE_100();
198 else
199 a0 := JTF_NUMBER_TABLE();
200 a1 := JTF_VARCHAR2_TABLE_300();
201 a2 := JTF_DATE_TABLE();
202 a3 := JTF_NUMBER_TABLE();
203 a4 := JTF_DATE_TABLE();
204 a5 := JTF_NUMBER_TABLE();
205 a6 := JTF_NUMBER_TABLE();
206 a7 := JTF_VARCHAR2_TABLE_200();
207 a8 := JTF_VARCHAR2_TABLE_100();
208 a9 := JTF_DATE_TABLE();
209 a10 := JTF_DATE_TABLE();
210 a11 := JTF_NUMBER_TABLE();
211 a12 := JTF_VARCHAR2_TABLE_100();
212 a13 := JTF_NUMBER_TABLE();
213 a14 := JTF_VARCHAR2_TABLE_100();
214 a15 := JTF_NUMBER_TABLE();
215 a16 := JTF_NUMBER_TABLE();
216 a17 := JTF_NUMBER_TABLE();
217 a18 := JTF_NUMBER_TABLE();
218 a19 := JTF_DATE_TABLE();
219 a20 := JTF_VARCHAR2_TABLE_100();
220 a21 := JTF_VARCHAR2_TABLE_100();
221 a22 := JTF_VARCHAR2_TABLE_1000();
222 a23 := JTF_VARCHAR2_TABLE_1000();
223 a24 := JTF_VARCHAR2_TABLE_100();
224 if t.count > 0 then
225 a0.extend(t.count);
226 a1.extend(t.count);
227 a2.extend(t.count);
228 a3.extend(t.count);
229 a4.extend(t.count);
230 a5.extend(t.count);
231 a6.extend(t.count);
232 a7.extend(t.count);
233 a8.extend(t.count);
234 a9.extend(t.count);
235 a10.extend(t.count);
236 a11.extend(t.count);
237 a12.extend(t.count);
238 a13.extend(t.count);
239 a14.extend(t.count);
240 a15.extend(t.count);
241 a16.extend(t.count);
242 a17.extend(t.count);
243 a18.extend(t.count);
244 a19.extend(t.count);
245 a20.extend(t.count);
246 a21.extend(t.count);
247 a22.extend(t.count);
248 a23.extend(t.count);
249 a24.extend(t.count);
250 ddindx := t.first;
251 indx := 1;
252 while true loop
253 a0(indx) := t(ddindx).score_id;
254 a1(indx) := t(ddindx).score_name;
255 a2(indx) := t(ddindx).last_update_date;
256 a3(indx) := t(ddindx).last_updated_by;
257 a4(indx) := t(ddindx).creation_date;
258 a5(indx) := t(ddindx).created_by;
259 a6(indx) := t(ddindx).last_update_login;
260 a7(indx) := t(ddindx).score_description;
261 a8(indx) := t(ddindx).enabled_flag;
262 a9(indx) := t(ddindx).valid_from_dt;
263 a10(indx) := t(ddindx).valid_to_dt;
264 a11(indx) := t(ddindx).campaign_sched_id;
265 a12(indx) := t(ddindx).jtf_object_code;
266 a13(indx) := t(ddindx).concurrent_prog_id;
267 a14(indx) := t(ddindx).concurrent_prog_name;
268 a15(indx) := t(ddindx).security_group_id;
269 a16(indx) := t(ddindx).request_id;
270 a17(indx) := t(ddindx).program_application_id;
271 a18(indx) := t(ddindx).program_id;
272 a19(indx) := t(ddindx).program_update_date;
273 a20(indx) := t(ddindx).status_determination;
274 a21(indx) := t(ddindx).weight_required;
275 a22(indx) := t(ddindx).score_range_low;
276 a23(indx) := t(ddindx).score_range_high;
277 a24(indx) := t(ddindx).out_of_range_rule;
278 indx := indx+1;
279 if t.last =ddindx
280 then exit;
281 end if;
282 ddindx := t.next(ddindx);
283 end loop;
284 end if;
285 end if;
286 end rosetta_table_copy_out_p3;
287
288 procedure rosetta_table_copy_in_p7(t out nocopy iex_score_pub.score_comp_tbl_type, a0 JTF_NUMBER_TABLE
289 , a1 JTF_NUMBER_TABLE
290 , a2 JTF_NUMBER_TABLE
291 , a3 JTF_VARCHAR2_TABLE_100
292 , a4 JTF_NUMBER_TABLE
293 , a5 JTF_DATE_TABLE
294 , a6 JTF_NUMBER_TABLE
295 , a7 JTF_DATE_TABLE
296 , a8 JTF_NUMBER_TABLE
297 , a9 JTF_NUMBER_TABLE
298 ) as
299 ddindx binary_integer; indx binary_integer;
300 begin
301 if a0 is not null and a0.count > 0 then
302 if a0.count > 0 then
303 indx := a0.first;
304 ddindx := 1;
305 while true loop
306 t(ddindx).score_component_id := a0(indx);
307 t(ddindx).score_comp_weight := a1(indx);
308 t(ddindx).score_id := a2(indx);
309 t(ddindx).enabled_flag := a3(indx);
310 t(ddindx).score_comp_type_id := a4(indx);
311 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a5(indx));
312 t(ddindx).last_updated_by := a6(indx);
313 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
314 t(ddindx).created_by := a8(indx);
315 t(ddindx).last_update_login := a9(indx);
316 ddindx := ddindx+1;
317 if a0.last =indx
318 then exit;
319 end if;
320 indx := a0.next(indx);
321 end loop;
322 end if;
323 end if;
324 end rosetta_table_copy_in_p7;
325 procedure rosetta_table_copy_out_p7(t iex_score_pub.score_comp_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
326 , a1 out nocopy JTF_NUMBER_TABLE
327 , a2 out nocopy JTF_NUMBER_TABLE
328 , a3 out nocopy JTF_VARCHAR2_TABLE_100
329 , a4 out nocopy JTF_NUMBER_TABLE
330 , a5 out nocopy JTF_DATE_TABLE
331 , a6 out nocopy JTF_NUMBER_TABLE
332 , a7 out nocopy JTF_DATE_TABLE
333 , a8 out nocopy JTF_NUMBER_TABLE
334 , a9 out nocopy JTF_NUMBER_TABLE
335 ) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if t is null or t.count = 0 then
339 a0 := JTF_NUMBER_TABLE();
340 a1 := JTF_NUMBER_TABLE();
341 a2 := JTF_NUMBER_TABLE();
342 a3 := JTF_VARCHAR2_TABLE_100();
343 a4 := JTF_NUMBER_TABLE();
344 a5 := JTF_DATE_TABLE();
345 a6 := JTF_NUMBER_TABLE();
346 a7 := JTF_DATE_TABLE();
347 a8 := JTF_NUMBER_TABLE();
348 a9 := JTF_NUMBER_TABLE();
349 else
350 a0 := JTF_NUMBER_TABLE();
351 a1 := JTF_NUMBER_TABLE();
352 a2 := JTF_NUMBER_TABLE();
353 a3 := JTF_VARCHAR2_TABLE_100();
354 a4 := JTF_NUMBER_TABLE();
355 a5 := JTF_DATE_TABLE();
356 a6 := JTF_NUMBER_TABLE();
357 a7 := JTF_DATE_TABLE();
358 a8 := JTF_NUMBER_TABLE();
359 a9 := JTF_NUMBER_TABLE();
360 if t.count > 0 then
361 a0.extend(t.count);
362 a1.extend(t.count);
363 a2.extend(t.count);
364 a3.extend(t.count);
365 a4.extend(t.count);
366 a5.extend(t.count);
367 a6.extend(t.count);
368 a7.extend(t.count);
369 a8.extend(t.count);
370 a9.extend(t.count);
371 ddindx := t.first;
372 indx := 1;
373 while true loop
374 a0(indx) := t(ddindx).score_component_id;
375 a1(indx) := t(ddindx).score_comp_weight;
376 a2(indx) := t(ddindx).score_id;
377 a3(indx) := t(ddindx).enabled_flag;
378 a4(indx) := t(ddindx).score_comp_type_id;
379 a5(indx) := t(ddindx).last_update_date;
380 a6(indx) := t(ddindx).last_updated_by;
381 a7(indx) := t(ddindx).creation_date;
382 a8(indx) := t(ddindx).created_by;
383 a9(indx) := t(ddindx).last_update_login;
384 indx := indx+1;
385 if t.last =ddindx
386 then exit;
387 end if;
388 ddindx := t.next(ddindx);
389 end loop;
390 end if;
391 end if;
392 end rosetta_table_copy_out_p7;
393
394 procedure rosetta_table_copy_in_p11(t out nocopy iex_score_pub.score_comp_det_tbl_type, a0 JTF_NUMBER_TABLE
395 , a1 JTF_NUMBER_TABLE
396 , a2 JTF_NUMBER_TABLE
397 , a3 JTF_NUMBER_TABLE
398 , a4 JTF_VARCHAR2_TABLE_2000
399 , a5 JTF_NUMBER_TABLE
400 , a6 JTF_NUMBER_TABLE
401 , a7 JTF_NUMBER_TABLE
402 , a8 JTF_DATE_TABLE
403 , a9 JTF_NUMBER_TABLE
404 , a10 JTF_DATE_TABLE
405 , a11 JTF_NUMBER_TABLE
406 , a12 JTF_NUMBER_TABLE
407 ) as
408 ddindx binary_integer; indx binary_integer;
409 begin
410 if a0 is not null and a0.count > 0 then
411 if a0.count > 0 then
412 indx := a0.first;
413 ddindx := 1;
414 while true loop
415 t(ddindx).score_comp_det_id := a0(indx);
416 t(ddindx).range_low := a1(indx);
417 t(ddindx).range_high := a2(indx);
418 t(ddindx).value := a3(indx);
419 t(ddindx).new_value := a4(indx);
420 t(ddindx).score_component_id := a5(indx);
421 t(ddindx).object_version_number := a6(indx);
422 t(ddindx).program_id := a7(indx);
423 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a8(indx));
424 t(ddindx).last_updated_by := a9(indx);
425 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a10(indx));
426 t(ddindx).created_by := a11(indx);
427 t(ddindx).last_update_login := a12(indx);
428 ddindx := ddindx+1;
429 if a0.last =indx
430 then exit;
431 end if;
432 indx := a0.next(indx);
433 end loop;
434 end if;
435 end if;
436 end rosetta_table_copy_in_p11;
437 procedure rosetta_table_copy_out_p11(t iex_score_pub.score_comp_det_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
438 , a1 out nocopy JTF_NUMBER_TABLE
439 , a2 out nocopy JTF_NUMBER_TABLE
440 , a3 out nocopy JTF_NUMBER_TABLE
441 , a4 out nocopy JTF_VARCHAR2_TABLE_2000
442 , a5 out nocopy JTF_NUMBER_TABLE
443 , a6 out nocopy JTF_NUMBER_TABLE
444 , a7 out nocopy JTF_NUMBER_TABLE
445 , a8 out nocopy JTF_DATE_TABLE
446 , a9 out nocopy JTF_NUMBER_TABLE
447 , a10 out nocopy JTF_DATE_TABLE
448 , a11 out nocopy JTF_NUMBER_TABLE
449 , a12 out nocopy JTF_NUMBER_TABLE
450 ) as
451 ddindx binary_integer; indx binary_integer;
452 begin
453 if t is null or t.count = 0 then
454 a0 := JTF_NUMBER_TABLE();
455 a1 := JTF_NUMBER_TABLE();
456 a2 := JTF_NUMBER_TABLE();
457 a3 := JTF_NUMBER_TABLE();
458 a4 := JTF_VARCHAR2_TABLE_2000();
459 a5 := JTF_NUMBER_TABLE();
460 a6 := JTF_NUMBER_TABLE();
461 a7 := JTF_NUMBER_TABLE();
462 a8 := JTF_DATE_TABLE();
463 a9 := JTF_NUMBER_TABLE();
464 a10 := JTF_DATE_TABLE();
465 a11 := JTF_NUMBER_TABLE();
466 a12 := JTF_NUMBER_TABLE();
467 else
468 a0 := JTF_NUMBER_TABLE();
469 a1 := JTF_NUMBER_TABLE();
470 a2 := JTF_NUMBER_TABLE();
471 a3 := JTF_NUMBER_TABLE();
472 a4 := JTF_VARCHAR2_TABLE_2000();
473 a5 := JTF_NUMBER_TABLE();
474 a6 := JTF_NUMBER_TABLE();
475 a7 := JTF_NUMBER_TABLE();
476 a8 := JTF_DATE_TABLE();
477 a9 := JTF_NUMBER_TABLE();
478 a10 := JTF_DATE_TABLE();
479 a11 := JTF_NUMBER_TABLE();
480 a12 := JTF_NUMBER_TABLE();
481 if t.count > 0 then
482 a0.extend(t.count);
483 a1.extend(t.count);
484 a2.extend(t.count);
485 a3.extend(t.count);
486 a4.extend(t.count);
487 a5.extend(t.count);
488 a6.extend(t.count);
489 a7.extend(t.count);
490 a8.extend(t.count);
491 a9.extend(t.count);
492 a10.extend(t.count);
493 a11.extend(t.count);
494 a12.extend(t.count);
495 ddindx := t.first;
496 indx := 1;
497 while true loop
498 a0(indx) := t(ddindx).score_comp_det_id;
499 a1(indx) := t(ddindx).range_low;
500 a2(indx) := t(ddindx).range_high;
501 a3(indx) := t(ddindx).value;
502 a4(indx) := t(ddindx).new_value;
503 a5(indx) := t(ddindx).score_component_id;
504 a6(indx) := t(ddindx).object_version_number;
505 a7(indx) := t(ddindx).program_id;
506 a8(indx) := t(ddindx).last_update_date;
507 a9(indx) := t(ddindx).last_updated_by;
508 a10(indx) := t(ddindx).creation_date;
509 a11(indx) := t(ddindx).created_by;
510 a12(indx) := t(ddindx).last_update_login;
511 indx := indx+1;
512 if t.last =ddindx
513 then exit;
514 end if;
515 ddindx := t.next(ddindx);
516 end loop;
517 end if;
518 end if;
519 end rosetta_table_copy_out_p11;
520
521 procedure rosetta_table_copy_in_p15(t out nocopy iex_score_pub.score_comp_type_tbl_type, a0 JTF_NUMBER_TABLE
522 , a1 JTF_NUMBER_TABLE
523 , a2 JTF_NUMBER_TABLE
524 , a3 JTF_NUMBER_TABLE
525 , a4 JTF_DATE_TABLE
526 , a5 JTF_NUMBER_TABLE
527 , a6 JTF_NUMBER_TABLE
528 , a7 JTF_DATE_TABLE
529 , a8 JTF_NUMBER_TABLE
530 , a9 JTF_VARCHAR2_TABLE_2000
531 , a10 JTF_VARCHAR2_TABLE_100
532 , a11 JTF_VARCHAR2_TABLE_100
533 , a12 JTF_VARCHAR2_TABLE_100
534 , a13 JTF_VARCHAR2_TABLE_100
535 , a14 JTF_VARCHAR2_TABLE_100
536 , a15 JTF_VARCHAR2_TABLE_100
537 , a16 JTF_VARCHAR2_TABLE_100
538 , a17 JTF_NUMBER_TABLE
539 ) as
540 ddindx binary_integer; indx binary_integer;
541 begin
542 if a0 is not null and a0.count > 0 then
543 if a0.count > 0 then
544 indx := a0.first;
545 ddindx := 1;
546 while true loop
547 t(ddindx).score_comp_type_id := a0(indx);
548 t(ddindx).object_version_number := a1(indx);
549 t(ddindx).program_id := a2(indx);
550 t(ddindx).security_group_id := a3(indx);
551 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
552 t(ddindx).last_updated_by := a5(indx);
553 t(ddindx).last_update_login := a6(indx);
554 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a7(indx));
555 t(ddindx).created_by := a8(indx);
556 t(ddindx).score_comp_value := a9(indx);
557 t(ddindx).active_flag := a10(indx);
558 t(ddindx).jtf_object_code := a11(indx);
559 t(ddindx).source_lang := a12(indx);
560 t(ddindx).score_comp_name := a13(indx);
561 t(ddindx).description := a14(indx);
562 t(ddindx).function_flag := a15(indx);
563 t(ddindx).metric_flag := a16(indx);
564 t(ddindx).display_order := a17(indx);
565 ddindx := ddindx+1;
566 if a0.last =indx
567 then exit;
568 end if;
569 indx := a0.next(indx);
570 end loop;
571 end if;
572 end if;
573 end rosetta_table_copy_in_p15;
574 procedure rosetta_table_copy_out_p15(t iex_score_pub.score_comp_type_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
575 , a1 out nocopy JTF_NUMBER_TABLE
576 , a2 out nocopy JTF_NUMBER_TABLE
577 , a3 out nocopy JTF_NUMBER_TABLE
578 , a4 out nocopy JTF_DATE_TABLE
579 , a5 out nocopy JTF_NUMBER_TABLE
580 , a6 out nocopy JTF_NUMBER_TABLE
581 , a7 out nocopy JTF_DATE_TABLE
582 , a8 out nocopy JTF_NUMBER_TABLE
583 , a9 out nocopy JTF_VARCHAR2_TABLE_2000
584 , a10 out nocopy JTF_VARCHAR2_TABLE_100
585 , a11 out nocopy JTF_VARCHAR2_TABLE_100
586 , a12 out nocopy JTF_VARCHAR2_TABLE_100
587 , a13 out nocopy JTF_VARCHAR2_TABLE_100
588 , a14 out nocopy JTF_VARCHAR2_TABLE_100
589 , a15 out nocopy JTF_VARCHAR2_TABLE_100
590 , a16 out nocopy JTF_VARCHAR2_TABLE_100
591 , a17 out nocopy JTF_NUMBER_TABLE
592 ) as
593 ddindx binary_integer; indx binary_integer;
594 begin
595 if t is null or t.count = 0 then
596 a0 := JTF_NUMBER_TABLE();
597 a1 := JTF_NUMBER_TABLE();
598 a2 := JTF_NUMBER_TABLE();
599 a3 := JTF_NUMBER_TABLE();
600 a4 := JTF_DATE_TABLE();
601 a5 := JTF_NUMBER_TABLE();
602 a6 := JTF_NUMBER_TABLE();
603 a7 := JTF_DATE_TABLE();
604 a8 := JTF_NUMBER_TABLE();
605 a9 := JTF_VARCHAR2_TABLE_2000();
606 a10 := JTF_VARCHAR2_TABLE_100();
607 a11 := JTF_VARCHAR2_TABLE_100();
608 a12 := JTF_VARCHAR2_TABLE_100();
609 a13 := JTF_VARCHAR2_TABLE_100();
610 a14 := JTF_VARCHAR2_TABLE_100();
611 a15 := JTF_VARCHAR2_TABLE_100();
612 a16 := JTF_VARCHAR2_TABLE_100();
613 a17 := JTF_NUMBER_TABLE();
614 else
615 a0 := JTF_NUMBER_TABLE();
616 a1 := JTF_NUMBER_TABLE();
617 a2 := JTF_NUMBER_TABLE();
618 a3 := JTF_NUMBER_TABLE();
619 a4 := JTF_DATE_TABLE();
620 a5 := JTF_NUMBER_TABLE();
621 a6 := JTF_NUMBER_TABLE();
622 a7 := JTF_DATE_TABLE();
623 a8 := JTF_NUMBER_TABLE();
624 a9 := JTF_VARCHAR2_TABLE_2000();
625 a10 := JTF_VARCHAR2_TABLE_100();
626 a11 := JTF_VARCHAR2_TABLE_100();
627 a12 := JTF_VARCHAR2_TABLE_100();
628 a13 := JTF_VARCHAR2_TABLE_100();
629 a14 := JTF_VARCHAR2_TABLE_100();
630 a15 := JTF_VARCHAR2_TABLE_100();
631 a16 := JTF_VARCHAR2_TABLE_100();
632 a17 := JTF_NUMBER_TABLE();
633 if t.count > 0 then
634 a0.extend(t.count);
635 a1.extend(t.count);
636 a2.extend(t.count);
637 a3.extend(t.count);
638 a4.extend(t.count);
639 a5.extend(t.count);
640 a6.extend(t.count);
641 a7.extend(t.count);
642 a8.extend(t.count);
643 a9.extend(t.count);
644 a10.extend(t.count);
645 a11.extend(t.count);
646 a12.extend(t.count);
647 a13.extend(t.count);
648 a14.extend(t.count);
649 a15.extend(t.count);
650 a16.extend(t.count);
651 a17.extend(t.count);
652 ddindx := t.first;
653 indx := 1;
654 while true loop
655 a0(indx) := t(ddindx).score_comp_type_id;
656 a1(indx) := t(ddindx).object_version_number;
657 a2(indx) := t(ddindx).program_id;
658 a3(indx) := t(ddindx).security_group_id;
659 a4(indx) := t(ddindx).last_update_date;
660 a5(indx) := t(ddindx).last_updated_by;
661 a6(indx) := t(ddindx).last_update_login;
662 a7(indx) := t(ddindx).creation_date;
663 a8(indx) := t(ddindx).created_by;
664 a9(indx) := t(ddindx).score_comp_value;
665 a10(indx) := t(ddindx).active_flag;
666 a11(indx) := t(ddindx).jtf_object_code;
667 a12(indx) := t(ddindx).source_lang;
668 a13(indx) := t(ddindx).score_comp_name;
669 a14(indx) := t(ddindx).description;
670 a15(indx) := t(ddindx).function_flag;
671 a16(indx) := t(ddindx).metric_flag;
672 a17(indx) := t(ddindx).display_order;
673 indx := indx+1;
674 if t.last =ddindx
675 then exit;
676 end if;
677 ddindx := t.next(ddindx);
678 end loop;
679 end if;
680 end if;
681 end rosetta_table_copy_out_p15;
682
683 procedure rosetta_table_copy_in_p18(t out nocopy iex_score_pub.score_id_tbl, a0 JTF_NUMBER_TABLE) as
684 ddindx binary_integer; indx binary_integer;
685 begin
686 if a0 is not null and a0.count > 0 then
687 if a0.count > 0 then
688 indx := a0.first;
689 ddindx := 1;
690 while true loop
691 t(ddindx) := a0(indx);
692 ddindx := ddindx+1;
693 if a0.last =indx
694 then exit;
695 end if;
696 indx := a0.next(indx);
697 end loop;
698 end if;
699 end if;
700 end rosetta_table_copy_in_p18;
701 procedure rosetta_table_copy_out_p18(t iex_score_pub.score_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
702 ddindx binary_integer; indx binary_integer;
703 begin
704 if t is null or t.count = 0 then
705 a0 := JTF_NUMBER_TABLE();
706 else
707 a0 := JTF_NUMBER_TABLE();
708 if t.count > 0 then
709 a0.extend(t.count);
710 ddindx := t.first;
711 indx := 1;
712 while true loop
713 a0(indx) := t(ddindx);
714 indx := indx+1;
715 if t.last =ddindx
716 then exit;
717 end if;
718 ddindx := t.next(ddindx);
719 end loop;
720 end if;
721 end if;
722 end rosetta_table_copy_out_p18;
723
724 procedure rosetta_table_copy_in_p19(t out nocopy iex_score_pub.score_comp_id_tbl, a0 JTF_NUMBER_TABLE) as
725 ddindx binary_integer; indx binary_integer;
726 begin
727 if a0 is not null and a0.count > 0 then
728 if a0.count > 0 then
729 indx := a0.first;
730 ddindx := 1;
731 while true loop
732 t(ddindx) := a0(indx);
733 ddindx := ddindx+1;
734 if a0.last =indx
735 then exit;
736 end if;
737 indx := a0.next(indx);
738 end loop;
739 end if;
740 end if;
741 end rosetta_table_copy_in_p19;
742 procedure rosetta_table_copy_out_p19(t iex_score_pub.score_comp_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
743 ddindx binary_integer; indx binary_integer;
744 begin
745 if t is null or t.count = 0 then
746 a0 := JTF_NUMBER_TABLE();
747 else
748 a0 := JTF_NUMBER_TABLE();
749 if t.count > 0 then
750 a0.extend(t.count);
751 ddindx := t.first;
752 indx := 1;
753 while true loop
754 a0(indx) := t(ddindx);
755 indx := indx+1;
756 if t.last =ddindx
757 then exit;
758 end if;
759 ddindx := t.next(ddindx);
760 end loop;
761 end if;
762 end if;
763 end rosetta_table_copy_out_p19;
764
765 procedure rosetta_table_copy_in_p20(t out nocopy iex_score_pub.score_comp_det_id_tbl, a0 JTF_NUMBER_TABLE) as
766 ddindx binary_integer; indx binary_integer;
767 begin
768 if a0 is not null and a0.count > 0 then
769 if a0.count > 0 then
770 indx := a0.first;
771 ddindx := 1;
772 while true loop
773 t(ddindx) := a0(indx);
774 ddindx := ddindx+1;
775 if a0.last =indx
776 then exit;
777 end if;
778 indx := a0.next(indx);
779 end loop;
780 end if;
781 end if;
782 end rosetta_table_copy_in_p20;
783 procedure rosetta_table_copy_out_p20(t iex_score_pub.score_comp_det_id_tbl, a0 out nocopy JTF_NUMBER_TABLE) as
784 ddindx binary_integer; indx binary_integer;
785 begin
786 if t is null or t.count = 0 then
787 a0 := JTF_NUMBER_TABLE();
788 else
789 a0 := JTF_NUMBER_TABLE();
790 if t.count > 0 then
791 a0.extend(t.count);
792 ddindx := t.first;
793 indx := 1;
794 while true loop
795 a0(indx) := t(ddindx);
796 indx := indx+1;
797 if t.last =ddindx
798 then exit;
799 end if;
800 ddindx := t.next(ddindx);
801 end loop;
802 end if;
803 end if;
804 end rosetta_table_copy_out_p20;
805
806 procedure create_score(p_api_version NUMBER
807 , p_init_msg_list VARCHAR2
808 , p_commit VARCHAR2
809 , p3_a0 NUMBER
810 , p3_a1 VARCHAR2
811 , p3_a2 DATE
812 , p3_a3 NUMBER
813 , p3_a4 DATE
814 , p3_a5 NUMBER
815 , p3_a6 NUMBER
816 , p3_a7 VARCHAR2
817 , p3_a8 VARCHAR2
818 , p3_a9 DATE
819 , p3_a10 DATE
820 , p3_a11 NUMBER
821 , p3_a12 VARCHAR2
822 , p3_a13 NUMBER
823 , p3_a14 VARCHAR2
824 , p3_a15 NUMBER
825 , p3_a16 NUMBER
826 , p3_a17 NUMBER
827 , p3_a18 NUMBER
828 , p3_a19 DATE
829 , p3_a20 VARCHAR2
830 , p3_a21 VARCHAR2
831 , p3_a22 VARCHAR2
832 , p3_a23 VARCHAR2
833 , p3_a24 VARCHAR2
834 , x_dup_status out nocopy VARCHAR2
835 , x_return_status out nocopy VARCHAR2
836 , x_msg_count out nocopy NUMBER
837 , x_msg_data out nocopy VARCHAR2
838 , x_score_id out nocopy NUMBER
839 )
840
841 as
842 ddp_score_rec iex_score_pub.score_rec_type;
843 ddindx binary_integer; indx binary_integer;
844 begin
845
846 -- copy data to the local IN or IN-OUT args, if any
847
848
849
850 ddp_score_rec.score_id := p3_a0;
851 ddp_score_rec.score_name := p3_a1;
852 ddp_score_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a2);
853 ddp_score_rec.last_updated_by := p3_a3;
854 ddp_score_rec.creation_date := rosetta_g_miss_date_in_map(p3_a4);
855 ddp_score_rec.created_by := p3_a5;
856 ddp_score_rec.last_update_login := p3_a6;
857 ddp_score_rec.score_description := p3_a7;
858 ddp_score_rec.enabled_flag := p3_a8;
859 ddp_score_rec.valid_from_dt := rosetta_g_miss_date_in_map(p3_a9);
860 ddp_score_rec.valid_to_dt := rosetta_g_miss_date_in_map(p3_a10);
861 ddp_score_rec.campaign_sched_id := p3_a11;
862 ddp_score_rec.jtf_object_code := p3_a12;
863 ddp_score_rec.concurrent_prog_id := p3_a13;
864 ddp_score_rec.concurrent_prog_name := p3_a14;
865 ddp_score_rec.security_group_id := p3_a15;
866 ddp_score_rec.request_id := p3_a16;
867 ddp_score_rec.program_application_id := p3_a17;
868 ddp_score_rec.program_id := p3_a18;
869 ddp_score_rec.program_update_date := rosetta_g_miss_date_in_map(p3_a19);
870 ddp_score_rec.status_determination := p3_a20;
871 ddp_score_rec.weight_required := p3_a21;
872 ddp_score_rec.score_range_low := p3_a22;
873 ddp_score_rec.score_range_high := p3_a23;
874 ddp_score_rec.out_of_range_rule := p3_a24;
875
876
877
878
879
880
881 -- here's the delegated call to the old PL/SQL routine
882 iex_score_pub.create_score(p_api_version,
883 p_init_msg_list,
884 p_commit,
885 ddp_score_rec,
886 x_dup_status,
887 x_return_status,
888 x_msg_count,
889 x_msg_data,
890 x_score_id);
891
892 -- copy data back from the local variables to OUT or IN-OUT args, if any
893
894
895
896
897
898
899
900
901 end;
902
903 procedure update_score(p_api_version NUMBER
904 , p_init_msg_list VARCHAR2
905 , p_commit VARCHAR2
906 , p3_a0 JTF_NUMBER_TABLE
907 , p3_a1 JTF_VARCHAR2_TABLE_300
908 , p3_a2 JTF_DATE_TABLE
909 , p3_a3 JTF_NUMBER_TABLE
910 , p3_a4 JTF_DATE_TABLE
911 , p3_a5 JTF_NUMBER_TABLE
912 , p3_a6 JTF_NUMBER_TABLE
913 , p3_a7 JTF_VARCHAR2_TABLE_200
914 , p3_a8 JTF_VARCHAR2_TABLE_100
915 , p3_a9 JTF_DATE_TABLE
916 , p3_a10 JTF_DATE_TABLE
917 , p3_a11 JTF_NUMBER_TABLE
918 , p3_a12 JTF_VARCHAR2_TABLE_100
919 , p3_a13 JTF_NUMBER_TABLE
920 , p3_a14 JTF_VARCHAR2_TABLE_100
921 , p3_a15 JTF_NUMBER_TABLE
922 , p3_a16 JTF_NUMBER_TABLE
923 , p3_a17 JTF_NUMBER_TABLE
924 , p3_a18 JTF_NUMBER_TABLE
925 , p3_a19 JTF_DATE_TABLE
926 , p3_a20 JTF_VARCHAR2_TABLE_100
927 , p3_a21 JTF_VARCHAR2_TABLE_100
928 , p3_a22 JTF_VARCHAR2_TABLE_1000
929 , p3_a23 JTF_VARCHAR2_TABLE_1000
930 , p3_a24 JTF_VARCHAR2_TABLE_100
931 , x_dup_status out nocopy VARCHAR2
932 , x_return_status out nocopy VARCHAR2
933 , x_msg_count out nocopy NUMBER
934 , x_msg_data out nocopy VARCHAR2
935 )
936
937 as
938 ddp_score_tbl iex_score_pub.score_tbl_type;
939 ddindx binary_integer; indx binary_integer;
940 begin
941
942 -- copy data to the local IN or IN-OUT args, if any
943
944
945
946 iex_score_pub_w.rosetta_table_copy_in_p3(ddp_score_tbl, p3_a0
947 , p3_a1
948 , p3_a2
949 , p3_a3
950 , p3_a4
951 , p3_a5
952 , p3_a6
953 , p3_a7
954 , p3_a8
955 , p3_a9
956 , p3_a10
957 , p3_a11
958 , p3_a12
959 , p3_a13
960 , p3_a14
961 , p3_a15
962 , p3_a16
963 , p3_a17
964 , p3_a18
965 , p3_a19
966 , p3_a20
967 , p3_a21
968 , p3_a22
969 , p3_a23
970 , p3_a24
971 );
972
973
974
975
976
977 -- here's the delegated call to the old PL/SQL routine
978 iex_score_pub.update_score(p_api_version,
979 p_init_msg_list,
980 p_commit,
981 ddp_score_tbl,
982 x_dup_status,
983 x_return_status,
984 x_msg_count,
985 x_msg_data);
986
987 -- copy data back from the local variables to OUT or IN-OUT args, if any
988
989
990
991
992
993
994
995 end;
996
997 procedure delete_score(p_api_version NUMBER
998 , p_init_msg_list VARCHAR2
999 , p_commit VARCHAR2
1000 , p_score_id_tbl JTF_NUMBER_TABLE
1001 , x_return_status out nocopy VARCHAR2
1002 , x_msg_count out nocopy NUMBER
1003 , x_msg_data out nocopy VARCHAR2
1004 )
1005
1006 as
1007 ddp_score_id_tbl iex_score_pub.score_id_tbl;
1008 ddindx binary_integer; indx binary_integer;
1009 begin
1010
1011 -- copy data to the local IN or IN-OUT args, if any
1012
1013
1014
1015 iex_score_pub_w.rosetta_table_copy_in_p18(ddp_score_id_tbl, p_score_id_tbl);
1016
1017
1018
1019
1020 -- here's the delegated call to the old PL/SQL routine
1021 iex_score_pub.delete_score(p_api_version,
1022 p_init_msg_list,
1023 p_commit,
1024 ddp_score_id_tbl,
1025 x_return_status,
1026 x_msg_count,
1027 x_msg_data);
1028
1029 -- copy data back from the local variables to OUT or IN-OUT args, if any
1030
1031
1032
1033
1034
1035
1036 end;
1037
1038 procedure create_score_comp(p_api_version NUMBER
1039 , p_init_msg_list VARCHAR2
1040 , p_commit VARCHAR2
1041 , p3_a0 NUMBER
1042 , p3_a1 NUMBER
1043 , p3_a2 NUMBER
1044 , p3_a3 VARCHAR2
1045 , p3_a4 NUMBER
1046 , p3_a5 DATE
1047 , p3_a6 NUMBER
1048 , p3_a7 DATE
1049 , p3_a8 NUMBER
1050 , p3_a9 NUMBER
1051 , x_return_status out nocopy VARCHAR2
1052 , x_msg_count out nocopy NUMBER
1053 , x_msg_data out nocopy VARCHAR2
1054 , x_score_comp_id out nocopy NUMBER
1055 )
1056
1057 as
1058 ddp_score_comp_rec iex_score_pub.score_comp_rec_type;
1059 ddindx binary_integer; indx binary_integer;
1060 begin
1061
1062 -- copy data to the local IN or IN-OUT args, if any
1063
1064
1065
1066 ddp_score_comp_rec.score_component_id := p3_a0;
1067 ddp_score_comp_rec.score_comp_weight := p3_a1;
1068 ddp_score_comp_rec.score_id := p3_a2;
1069 ddp_score_comp_rec.enabled_flag := p3_a3;
1070 ddp_score_comp_rec.score_comp_type_id := p3_a4;
1071 ddp_score_comp_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a5);
1072 ddp_score_comp_rec.last_updated_by := p3_a6;
1073 ddp_score_comp_rec.creation_date := rosetta_g_miss_date_in_map(p3_a7);
1074 ddp_score_comp_rec.created_by := p3_a8;
1075 ddp_score_comp_rec.last_update_login := p3_a9;
1076
1077
1078
1079
1080
1081 -- here's the delegated call to the old PL/SQL routine
1082 iex_score_pub.create_score_comp(p_api_version,
1083 p_init_msg_list,
1084 p_commit,
1085 ddp_score_comp_rec,
1086 x_return_status,
1087 x_msg_count,
1088 x_msg_data,
1089 x_score_comp_id);
1090
1091 -- copy data back from the local variables to OUT or IN-OUT args, if any
1092
1093
1094
1095
1096
1097
1098
1099 end;
1100
1101 procedure update_score_comp(p_api_version NUMBER
1102 , p_init_msg_list VARCHAR2
1103 , p_commit VARCHAR2
1104 , p3_a0 JTF_NUMBER_TABLE
1105 , p3_a1 JTF_NUMBER_TABLE
1106 , p3_a2 JTF_NUMBER_TABLE
1107 , p3_a3 JTF_VARCHAR2_TABLE_100
1108 , p3_a4 JTF_NUMBER_TABLE
1109 , p3_a5 JTF_DATE_TABLE
1110 , p3_a6 JTF_NUMBER_TABLE
1111 , p3_a7 JTF_DATE_TABLE
1112 , p3_a8 JTF_NUMBER_TABLE
1113 , p3_a9 JTF_NUMBER_TABLE
1114 , x_return_status out nocopy VARCHAR2
1115 , x_msg_count out nocopy NUMBER
1116 , x_msg_data out nocopy VARCHAR2
1117 )
1118
1119 as
1120 ddp_score_comp_tbl iex_score_pub.score_comp_tbl_type;
1121 ddindx binary_integer; indx binary_integer;
1122 begin
1123
1124 -- copy data to the local IN or IN-OUT args, if any
1125
1126
1127
1128 iex_score_pub_w.rosetta_table_copy_in_p7(ddp_score_comp_tbl, p3_a0
1129 , p3_a1
1130 , p3_a2
1131 , p3_a3
1132 , p3_a4
1133 , p3_a5
1134 , p3_a6
1135 , p3_a7
1136 , p3_a8
1137 , p3_a9
1138 );
1139
1140
1141
1142
1143 -- here's the delegated call to the old PL/SQL routine
1144 iex_score_pub.update_score_comp(p_api_version,
1145 p_init_msg_list,
1146 p_commit,
1147 ddp_score_comp_tbl,
1148 x_return_status,
1149 x_msg_count,
1150 x_msg_data);
1151
1152 -- copy data back from the local variables to OUT or IN-OUT args, if any
1153
1154
1155
1156
1157
1158
1159 end;
1160
1161 procedure delete_score_comp(p_api_version NUMBER
1162 , p_init_msg_list VARCHAR2
1163 , p_commit VARCHAR2
1164 , p_score_id NUMBER
1165 , p_score_comp_id_tbl JTF_NUMBER_TABLE
1166 , x_return_status out nocopy VARCHAR2
1167 , x_msg_count out nocopy NUMBER
1168 , x_msg_data out nocopy VARCHAR2
1169 )
1170
1171 as
1172 ddp_score_comp_id_tbl iex_score_pub.score_comp_id_tbl;
1173 ddindx binary_integer; indx binary_integer;
1174 begin
1175
1176 -- copy data to the local IN or IN-OUT args, if any
1177
1178
1179
1180
1181 iex_score_pub_w.rosetta_table_copy_in_p19(ddp_score_comp_id_tbl, p_score_comp_id_tbl);
1182
1183
1184
1185
1186 -- here's the delegated call to the old PL/SQL routine
1187 iex_score_pub.delete_score_comp(p_api_version,
1188 p_init_msg_list,
1189 p_commit,
1190 p_score_id,
1191 ddp_score_comp_id_tbl,
1192 x_return_status,
1193 x_msg_count,
1194 x_msg_data);
1195
1196 -- copy data back from the local variables to OUT or IN-OUT args, if any
1197
1198
1199
1200
1201
1202
1203
1204 end;
1205
1206 procedure create_score_comp_type(p_api_version NUMBER
1207 , p_init_msg_list VARCHAR2
1208 , p_commit VARCHAR2
1209 , p3_a0 NUMBER
1210 , p3_a1 NUMBER
1211 , p3_a2 NUMBER
1212 , p3_a3 NUMBER
1213 , p3_a4 DATE
1214 , p3_a5 NUMBER
1215 , p3_a6 NUMBER
1216 , p3_a7 DATE
1217 , p3_a8 NUMBER
1218 , p3_a9 VARCHAR2
1219 , p3_a10 VARCHAR2
1220 , p3_a11 VARCHAR2
1221 , p3_a12 VARCHAR2
1222 , p3_a13 VARCHAR2
1223 , p3_a14 VARCHAR2
1224 , p3_a15 VARCHAR2
1225 , p3_a16 VARCHAR2
1226 , p3_a17 NUMBER
1227 , x_dup_status out nocopy VARCHAR2
1228 , x_return_status out nocopy VARCHAR2
1229 , x_msg_count out nocopy NUMBER
1230 , x_msg_data out nocopy VARCHAR2
1231 , x_score_comp_type_id out nocopy NUMBER
1232 )
1233
1234 as
1235 ddp_score_comp_type_rec iex_score_pub.score_comp_type_rec_type;
1236 ddindx binary_integer; indx binary_integer;
1237 begin
1238
1239 -- copy data to the local IN or IN-OUT args, if any
1240
1241
1242
1243 ddp_score_comp_type_rec.score_comp_type_id := p3_a0;
1244 ddp_score_comp_type_rec.object_version_number := p3_a1;
1245 ddp_score_comp_type_rec.program_id := p3_a2;
1246 ddp_score_comp_type_rec.security_group_id := p3_a3;
1247 ddp_score_comp_type_rec.last_update_date := rosetta_g_miss_date_in_map(p3_a4);
1248 ddp_score_comp_type_rec.last_updated_by := p3_a5;
1249 ddp_score_comp_type_rec.last_update_login := p3_a6;
1250 ddp_score_comp_type_rec.creation_date := rosetta_g_miss_date_in_map(p3_a7);
1251 ddp_score_comp_type_rec.created_by := p3_a8;
1252 ddp_score_comp_type_rec.score_comp_value := p3_a9;
1253 ddp_score_comp_type_rec.active_flag := p3_a10;
1254 ddp_score_comp_type_rec.jtf_object_code := p3_a11;
1255 ddp_score_comp_type_rec.source_lang := p3_a12;
1256 ddp_score_comp_type_rec.score_comp_name := p3_a13;
1257 ddp_score_comp_type_rec.description := p3_a14;
1258 ddp_score_comp_type_rec.function_flag := p3_a15;
1259 ddp_score_comp_type_rec.metric_flag := p3_a16;
1260 ddp_score_comp_type_rec.display_order := p3_a17;
1261
1262
1263
1264
1265
1266
1267 -- here's the delegated call to the old PL/SQL routine
1268 iex_score_pub.create_score_comp_type(p_api_version,
1269 p_init_msg_list,
1270 p_commit,
1271 ddp_score_comp_type_rec,
1272 x_dup_status,
1273 x_return_status,
1274 x_msg_count,
1275 x_msg_data,
1276 x_score_comp_type_id);
1277
1278 -- copy data back from the local variables to OUT or IN-OUT args, if any
1279
1280
1281
1282
1283
1284
1285
1286
1287 end;
1288
1289 procedure update_score_comp_type(p_api_version NUMBER
1290 , p_init_msg_list VARCHAR2
1291 , p_commit VARCHAR2
1292 , p3_a0 JTF_NUMBER_TABLE
1293 , p3_a1 JTF_NUMBER_TABLE
1294 , p3_a2 JTF_NUMBER_TABLE
1295 , p3_a3 JTF_NUMBER_TABLE
1296 , p3_a4 JTF_DATE_TABLE
1297 , p3_a5 JTF_NUMBER_TABLE
1298 , p3_a6 JTF_NUMBER_TABLE
1299 , p3_a7 JTF_DATE_TABLE
1300 , p3_a8 JTF_NUMBER_TABLE
1301 , p3_a9 JTF_VARCHAR2_TABLE_2000
1302 , p3_a10 JTF_VARCHAR2_TABLE_100
1303 , p3_a11 JTF_VARCHAR2_TABLE_100
1304 , p3_a12 JTF_VARCHAR2_TABLE_100
1305 , p3_a13 JTF_VARCHAR2_TABLE_100
1306 , p3_a14 JTF_VARCHAR2_TABLE_100
1307 , p3_a15 JTF_VARCHAR2_TABLE_100
1308 , p3_a16 JTF_VARCHAR2_TABLE_100
1309 , p3_a17 JTF_NUMBER_TABLE
1310 , x_dup_status out nocopy VARCHAR2
1311 , x_return_status out nocopy VARCHAR2
1312 , x_msg_count out nocopy NUMBER
1313 , x_msg_data out nocopy VARCHAR2
1314 )
1315
1316 as
1317 ddp_score_comp_type_tbl iex_score_pub.score_comp_type_tbl_type;
1318 ddindx binary_integer; indx binary_integer;
1319 begin
1320
1321 -- copy data to the local IN or IN-OUT args, if any
1322
1323
1324
1325 iex_score_pub_w.rosetta_table_copy_in_p15(ddp_score_comp_type_tbl, p3_a0
1326 , p3_a1
1327 , p3_a2
1328 , p3_a3
1329 , p3_a4
1330 , p3_a5
1331 , p3_a6
1332 , p3_a7
1333 , p3_a8
1334 , p3_a9
1335 , p3_a10
1336 , p3_a11
1337 , p3_a12
1338 , p3_a13
1339 , p3_a14
1340 , p3_a15
1341 , p3_a16
1342 , p3_a17
1343 );
1344
1345
1346
1347
1348
1349 -- here's the delegated call to the old PL/SQL routine
1350 iex_score_pub.update_score_comp_type(p_api_version,
1351 p_init_msg_list,
1352 p_commit,
1353 ddp_score_comp_type_tbl,
1354 x_dup_status,
1355 x_return_status,
1356 x_msg_count,
1357 x_msg_data);
1358
1359 -- copy data back from the local variables to OUT or IN-OUT args, if any
1360
1361
1362
1363
1364
1365
1366
1367 end;
1368
1369 procedure delete_score_comp_type(p_api_version NUMBER
1370 , p_init_msg_list VARCHAR2
1371 , p_commit VARCHAR2
1372 , p3_a0 JTF_NUMBER_TABLE
1373 , p3_a1 JTF_NUMBER_TABLE
1374 , p3_a2 JTF_NUMBER_TABLE
1375 , p3_a3 JTF_NUMBER_TABLE
1376 , p3_a4 JTF_DATE_TABLE
1377 , p3_a5 JTF_NUMBER_TABLE
1378 , p3_a6 JTF_NUMBER_TABLE
1379 , p3_a7 JTF_DATE_TABLE
1380 , p3_a8 JTF_NUMBER_TABLE
1381 , p3_a9 JTF_VARCHAR2_TABLE_2000
1382 , p3_a10 JTF_VARCHAR2_TABLE_100
1383 , p3_a11 JTF_VARCHAR2_TABLE_100
1384 , p3_a12 JTF_VARCHAR2_TABLE_100
1385 , p3_a13 JTF_VARCHAR2_TABLE_100
1386 , p3_a14 JTF_VARCHAR2_TABLE_100
1387 , p3_a15 JTF_VARCHAR2_TABLE_100
1388 , p3_a16 JTF_VARCHAR2_TABLE_100
1389 , p3_a17 JTF_NUMBER_TABLE
1390 , x_return_status out nocopy VARCHAR2
1391 , x_msg_count out nocopy NUMBER
1392 , x_msg_data out nocopy VARCHAR2
1393 )
1394
1395 as
1396 ddp_score_comp_type_tbl iex_score_pub.score_comp_type_tbl_type;
1397 ddindx binary_integer; indx binary_integer;
1398 begin
1399
1400 -- copy data to the local IN or IN-OUT args, if any
1401
1402
1403
1404 iex_score_pub_w.rosetta_table_copy_in_p15(ddp_score_comp_type_tbl, p3_a0
1405 , p3_a1
1406 , p3_a2
1407 , p3_a3
1408 , p3_a4
1409 , p3_a5
1410 , p3_a6
1411 , p3_a7
1412 , p3_a8
1413 , p3_a9
1414 , p3_a10
1415 , p3_a11
1416 , p3_a12
1417 , p3_a13
1418 , p3_a14
1419 , p3_a15
1420 , p3_a16
1421 , p3_a17
1422 );
1423
1424
1425
1426
1427 -- here's the delegated call to the old PL/SQL routine
1428 iex_score_pub.delete_score_comp_type(p_api_version,
1429 p_init_msg_list,
1430 p_commit,
1431 ddp_score_comp_type_tbl,
1432 x_return_status,
1433 x_msg_count,
1434 x_msg_data);
1435
1436 -- copy data back from the local variables to OUT or IN-OUT args, if any
1437
1438
1439
1440
1441
1442
1443 end;
1444
1445 procedure create_score_comp_det(p_api_version NUMBER
1446 , p_init_msg_list VARCHAR2
1447 , p_commit VARCHAR2
1448 , p3_a0 in out nocopy JTF_NUMBER_TABLE
1449 , p3_a1 in out nocopy JTF_NUMBER_TABLE
1450 , p3_a2 in out nocopy JTF_NUMBER_TABLE
1451 , p3_a3 in out nocopy JTF_NUMBER_TABLE
1452 , p3_a4 in out nocopy JTF_VARCHAR2_TABLE_2000
1453 , p3_a5 in out nocopy JTF_NUMBER_TABLE
1454 , p3_a6 in out nocopy JTF_NUMBER_TABLE
1455 , p3_a7 in out nocopy JTF_NUMBER_TABLE
1456 , p3_a8 in out nocopy JTF_DATE_TABLE
1457 , p3_a9 in out nocopy JTF_NUMBER_TABLE
1458 , p3_a10 in out nocopy JTF_DATE_TABLE
1459 , p3_a11 in out nocopy JTF_NUMBER_TABLE
1460 , p3_a12 in out nocopy JTF_NUMBER_TABLE
1461 , x_return_status out nocopy VARCHAR2
1462 , x_msg_count out nocopy NUMBER
1463 , x_msg_data out nocopy VARCHAR2
1464 )
1465
1466 as
1467 ddpx_score_comp_det_tbl iex_score_pub.score_comp_det_tbl_type;
1468 ddindx binary_integer; indx binary_integer;
1469 begin
1470
1471 -- copy data to the local IN or IN-OUT args, if any
1472
1473
1474
1475 iex_score_pub_w.rosetta_table_copy_in_p11(ddpx_score_comp_det_tbl, p3_a0
1476 , p3_a1
1477 , p3_a2
1478 , p3_a3
1479 , p3_a4
1480 , p3_a5
1481 , p3_a6
1482 , p3_a7
1483 , p3_a8
1484 , p3_a9
1485 , p3_a10
1486 , p3_a11
1487 , p3_a12
1488 );
1489
1490
1491
1492
1493 -- here's the delegated call to the old PL/SQL routine
1494 iex_score_pub.create_score_comp_det(p_api_version,
1495 p_init_msg_list,
1496 p_commit,
1497 ddpx_score_comp_det_tbl,
1498 x_return_status,
1499 x_msg_count,
1500 x_msg_data);
1501
1502 -- copy data back from the local variables to OUT or IN-OUT args, if any
1503
1504
1505
1506 iex_score_pub_w.rosetta_table_copy_out_p11(ddpx_score_comp_det_tbl, p3_a0
1507 , p3_a1
1508 , p3_a2
1509 , p3_a3
1510 , p3_a4
1511 , p3_a5
1512 , p3_a6
1513 , p3_a7
1514 , p3_a8
1515 , p3_a9
1516 , p3_a10
1517 , p3_a11
1518 , p3_a12
1519 );
1520
1521
1522
1523 end;
1524
1525 procedure update_score_comp_det(p_api_version NUMBER
1526 , p_init_msg_list VARCHAR2
1527 , p_commit VARCHAR2
1528 , p3_a0 JTF_NUMBER_TABLE
1529 , p3_a1 JTF_NUMBER_TABLE
1530 , p3_a2 JTF_NUMBER_TABLE
1531 , p3_a3 JTF_NUMBER_TABLE
1532 , p3_a4 JTF_VARCHAR2_TABLE_2000
1533 , p3_a5 JTF_NUMBER_TABLE
1534 , p3_a6 JTF_NUMBER_TABLE
1535 , p3_a7 JTF_NUMBER_TABLE
1536 , p3_a8 JTF_DATE_TABLE
1537 , p3_a9 JTF_NUMBER_TABLE
1538 , p3_a10 JTF_DATE_TABLE
1539 , p3_a11 JTF_NUMBER_TABLE
1540 , p3_a12 JTF_NUMBER_TABLE
1541 , x_return_status out nocopy VARCHAR2
1542 , x_msg_count out nocopy NUMBER
1543 , x_msg_data out nocopy VARCHAR2
1544 )
1545
1546 as
1547 ddp_score_comp_det_tbl iex_score_pub.score_comp_det_tbl_type;
1548 ddindx binary_integer; indx binary_integer;
1549 begin
1550
1551 -- copy data to the local IN or IN-OUT args, if any
1552
1553
1554
1555 iex_score_pub_w.rosetta_table_copy_in_p11(ddp_score_comp_det_tbl, p3_a0
1556 , p3_a1
1557 , p3_a2
1558 , p3_a3
1559 , p3_a4
1560 , p3_a5
1561 , p3_a6
1562 , p3_a7
1563 , p3_a8
1564 , p3_a9
1565 , p3_a10
1566 , p3_a11
1567 , p3_a12
1568 );
1569
1570
1571
1572
1573 -- here's the delegated call to the old PL/SQL routine
1574 iex_score_pub.update_score_comp_det(p_api_version,
1575 p_init_msg_list,
1576 p_commit,
1577 ddp_score_comp_det_tbl,
1578 x_return_status,
1579 x_msg_count,
1580 x_msg_data);
1581
1582 -- copy data back from the local variables to OUT or IN-OUT args, if any
1583
1584
1585
1586
1587
1588
1589 end;
1590
1591 procedure delete_score_comp_det(p_api_version NUMBER
1592 , p_init_msg_list VARCHAR2
1593 , p_commit VARCHAR2
1594 , p_score_comp_id NUMBER
1595 , p_score_comp_det_id_tbl JTF_NUMBER_TABLE
1596 , x_return_status out nocopy VARCHAR2
1597 , x_msg_count out nocopy NUMBER
1598 , x_msg_data out nocopy VARCHAR2
1599 )
1600
1601 as
1602 ddp_score_comp_det_id_tbl iex_score_pub.score_comp_det_id_tbl;
1603 ddindx binary_integer; indx binary_integer;
1604 begin
1605
1606 -- copy data to the local IN or IN-OUT args, if any
1607
1608
1609
1610
1611 iex_score_pub_w.rosetta_table_copy_in_p20(ddp_score_comp_det_id_tbl, p_score_comp_det_id_tbl);
1612
1613
1614
1615
1616 -- here's the delegated call to the old PL/SQL routine
1617 iex_score_pub.delete_score_comp_det(p_api_version,
1618 p_init_msg_list,
1619 p_commit,
1620 p_score_comp_id,
1621 ddp_score_comp_det_id_tbl,
1622 x_return_status,
1623 x_msg_count,
1624 x_msg_data);
1625
1626 -- copy data back from the local variables to OUT or IN-OUT args, if any
1627
1628
1629
1630
1631
1632
1633
1634 end;
1635
1636 end iex_score_pub_w;