[Home] [Help]
PACKAGE BODY: APPS.AHL_RA_NR_PROFILE_PVT_W
Source
1 package body ahl_ra_nr_profile_pvt_w as
2 /* $Header: AHLWNRPB.pls 120.0.12020000.2 2012/12/13 06:28:19 shnatu noship $ */
3 procedure rosetta_table_copy_in_p4(t out nocopy ahl_ra_nr_profile_pvt.nr_prof_est_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_NUMBER_TABLE
5 , a2 JTF_DATE_TABLE
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_DATE_TABLE
8 , a5 JTF_NUMBER_TABLE
9 , a6 JTF_NUMBER_TABLE
10 , a7 JTF_NUMBER_TABLE
11 , a8 JTF_VARCHAR2_TABLE_100
12 , a9 JTF_VARCHAR2_TABLE_100
13 , a10 JTF_NUMBER_TABLE
14 , a11 JTF_VARCHAR2_TABLE_300
15 , a12 JTF_VARCHAR2_TABLE_100
16 , a13 JTF_VARCHAR2_TABLE_100
17 , a14 JTF_NUMBER_TABLE
18 , a15 JTF_VARCHAR2_TABLE_300
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_NUMBER_TABLE
23 , a20 JTF_VARCHAR2_TABLE_200
24 , a21 JTF_NUMBER_TABLE
25 , a22 JTF_VARCHAR2_TABLE_200
26 , a23 JTF_VARCHAR2_TABLE_100
27 , a24 JTF_VARCHAR2_TABLE_100
28 , a25 JTF_DATE_TABLE
29 , a26 JTF_DATE_TABLE
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_VARCHAR2_TABLE_100
32 , a29 JTF_VARCHAR2_TABLE_100
33 ) as
34 ddindx binary_integer; indx binary_integer;
35 begin
36 if a0 is not null and a0.count > 0 then
37 if a0.count > 0 then
38 indx := a0.first;
39 ddindx := 1;
40 while true loop
41 t(ddindx).nr_profile_det_id := a0(indx);
42 t(ddindx).object_version_number := a1(indx);
43 t(ddindx).last_update_date := a2(indx);
44 t(ddindx).last_updated_by := a3(indx);
45 t(ddindx).creation_date := a4(indx);
46 t(ddindx).created_by := a5(indx);
47 t(ddindx).last_update_login := a6(indx);
48 t(ddindx).nr_profile_header_id := a7(indx);
49 t(ddindx).stage_type_code := a8(indx);
50 t(ddindx).stage_type := a9(indx);
51 t(ddindx).inventory_item_id := a10(indx);
52 t(ddindx).inventory_item := a11(indx);
53 t(ddindx).uom_code := a12(indx);
54 t(ddindx).uom := a13(indx);
55 t(ddindx).cmro_resource_id := a14(indx);
56 t(ddindx).cmro_resource_name := a15(indx);
57 t(ddindx).cmro_resource_type := a16(indx);
58 t(ddindx).analysis_qty := a17(indx);
59 t(ddindx).required_qty := a18(indx);
60 t(ddindx).fleet_header_id := a19(indx);
61 t(ddindx).fleet_name := a20(indx);
62 t(ddindx).operating_org_id := a21(indx);
63 t(ddindx).operating_org_name := a22(indx);
64 t(ddindx).operations_type_code := a23(indx);
65 t(ddindx).operations_type := a24(indx);
66 t(ddindx).demantra_updated_date := a25(indx);
67 t(ddindx).excluded_date := a26(indx);
68 t(ddindx).security_group_id := a27(indx);
69 t(ddindx).profile_detail_type := a28(indx);
70 t(ddindx).dml_operation := a29(indx);
71 ddindx := ddindx+1;
72 if a0.last =indx
73 then exit;
74 end if;
75 indx := a0.next(indx);
76 end loop;
77 end if;
78 end if;
79 end rosetta_table_copy_in_p4;
80 procedure rosetta_table_copy_out_p4(t ahl_ra_nr_profile_pvt.nr_prof_est_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
81 , a1 out nocopy JTF_NUMBER_TABLE
82 , a2 out nocopy JTF_DATE_TABLE
83 , a3 out nocopy JTF_NUMBER_TABLE
84 , a4 out nocopy JTF_DATE_TABLE
85 , a5 out nocopy JTF_NUMBER_TABLE
86 , a6 out nocopy JTF_NUMBER_TABLE
87 , a7 out nocopy JTF_NUMBER_TABLE
88 , a8 out nocopy JTF_VARCHAR2_TABLE_100
89 , a9 out nocopy JTF_VARCHAR2_TABLE_100
90 , a10 out nocopy JTF_NUMBER_TABLE
91 , a11 out nocopy JTF_VARCHAR2_TABLE_300
92 , a12 out nocopy JTF_VARCHAR2_TABLE_100
93 , a13 out nocopy JTF_VARCHAR2_TABLE_100
94 , a14 out nocopy JTF_NUMBER_TABLE
95 , a15 out nocopy JTF_VARCHAR2_TABLE_300
96 , a16 out nocopy JTF_VARCHAR2_TABLE_100
97 , a17 out nocopy JTF_NUMBER_TABLE
98 , a18 out nocopy JTF_NUMBER_TABLE
99 , a19 out nocopy JTF_NUMBER_TABLE
100 , a20 out nocopy JTF_VARCHAR2_TABLE_200
101 , a21 out nocopy JTF_NUMBER_TABLE
102 , a22 out nocopy JTF_VARCHAR2_TABLE_200
103 , a23 out nocopy JTF_VARCHAR2_TABLE_100
104 , a24 out nocopy JTF_VARCHAR2_TABLE_100
105 , a25 out nocopy JTF_DATE_TABLE
106 , a26 out nocopy JTF_DATE_TABLE
107 , a27 out nocopy JTF_NUMBER_TABLE
108 , a28 out nocopy JTF_VARCHAR2_TABLE_100
109 , a29 out nocopy JTF_VARCHAR2_TABLE_100
110 ) as
111 ddindx binary_integer; indx binary_integer;
112 begin
113 if t is null or t.count = 0 then
114 a0 := JTF_NUMBER_TABLE();
115 a1 := JTF_NUMBER_TABLE();
116 a2 := JTF_DATE_TABLE();
117 a3 := JTF_NUMBER_TABLE();
118 a4 := JTF_DATE_TABLE();
119 a5 := JTF_NUMBER_TABLE();
120 a6 := JTF_NUMBER_TABLE();
121 a7 := JTF_NUMBER_TABLE();
122 a8 := JTF_VARCHAR2_TABLE_100();
123 a9 := JTF_VARCHAR2_TABLE_100();
124 a10 := JTF_NUMBER_TABLE();
125 a11 := JTF_VARCHAR2_TABLE_300();
126 a12 := JTF_VARCHAR2_TABLE_100();
127 a13 := JTF_VARCHAR2_TABLE_100();
128 a14 := JTF_NUMBER_TABLE();
129 a15 := JTF_VARCHAR2_TABLE_300();
130 a16 := JTF_VARCHAR2_TABLE_100();
131 a17 := JTF_NUMBER_TABLE();
132 a18 := JTF_NUMBER_TABLE();
133 a19 := JTF_NUMBER_TABLE();
134 a20 := JTF_VARCHAR2_TABLE_200();
135 a21 := JTF_NUMBER_TABLE();
136 a22 := JTF_VARCHAR2_TABLE_200();
137 a23 := JTF_VARCHAR2_TABLE_100();
138 a24 := JTF_VARCHAR2_TABLE_100();
139 a25 := JTF_DATE_TABLE();
140 a26 := JTF_DATE_TABLE();
141 a27 := JTF_NUMBER_TABLE();
142 a28 := JTF_VARCHAR2_TABLE_100();
143 a29 := JTF_VARCHAR2_TABLE_100();
144 else
145 a0 := JTF_NUMBER_TABLE();
146 a1 := JTF_NUMBER_TABLE();
147 a2 := JTF_DATE_TABLE();
148 a3 := JTF_NUMBER_TABLE();
149 a4 := JTF_DATE_TABLE();
150 a5 := JTF_NUMBER_TABLE();
151 a6 := JTF_NUMBER_TABLE();
152 a7 := JTF_NUMBER_TABLE();
153 a8 := JTF_VARCHAR2_TABLE_100();
154 a9 := JTF_VARCHAR2_TABLE_100();
155 a10 := JTF_NUMBER_TABLE();
156 a11 := JTF_VARCHAR2_TABLE_300();
157 a12 := JTF_VARCHAR2_TABLE_100();
158 a13 := JTF_VARCHAR2_TABLE_100();
159 a14 := JTF_NUMBER_TABLE();
160 a15 := JTF_VARCHAR2_TABLE_300();
161 a16 := JTF_VARCHAR2_TABLE_100();
162 a17 := JTF_NUMBER_TABLE();
163 a18 := JTF_NUMBER_TABLE();
164 a19 := JTF_NUMBER_TABLE();
165 a20 := JTF_VARCHAR2_TABLE_200();
166 a21 := JTF_NUMBER_TABLE();
167 a22 := JTF_VARCHAR2_TABLE_200();
168 a23 := JTF_VARCHAR2_TABLE_100();
169 a24 := JTF_VARCHAR2_TABLE_100();
170 a25 := JTF_DATE_TABLE();
171 a26 := JTF_DATE_TABLE();
172 a27 := JTF_NUMBER_TABLE();
173 a28 := JTF_VARCHAR2_TABLE_100();
174 a29 := JTF_VARCHAR2_TABLE_100();
175 if t.count > 0 then
176 a0.extend(t.count);
177 a1.extend(t.count);
178 a2.extend(t.count);
179 a3.extend(t.count);
180 a4.extend(t.count);
181 a5.extend(t.count);
182 a6.extend(t.count);
183 a7.extend(t.count);
184 a8.extend(t.count);
185 a9.extend(t.count);
186 a10.extend(t.count);
187 a11.extend(t.count);
188 a12.extend(t.count);
189 a13.extend(t.count);
190 a14.extend(t.count);
191 a15.extend(t.count);
192 a16.extend(t.count);
193 a17.extend(t.count);
194 a18.extend(t.count);
195 a19.extend(t.count);
196 a20.extend(t.count);
197 a21.extend(t.count);
198 a22.extend(t.count);
199 a23.extend(t.count);
200 a24.extend(t.count);
201 a25.extend(t.count);
202 a26.extend(t.count);
203 a27.extend(t.count);
204 a28.extend(t.count);
205 a29.extend(t.count);
206 ddindx := t.first;
207 indx := 1;
208 while true loop
209 a0(indx) := t(ddindx).nr_profile_det_id;
210 a1(indx) := t(ddindx).object_version_number;
211 a2(indx) := t(ddindx).last_update_date;
212 a3(indx) := t(ddindx).last_updated_by;
213 a4(indx) := t(ddindx).creation_date;
214 a5(indx) := t(ddindx).created_by;
215 a6(indx) := t(ddindx).last_update_login;
216 a7(indx) := t(ddindx).nr_profile_header_id;
217 a8(indx) := t(ddindx).stage_type_code;
218 a9(indx) := t(ddindx).stage_type;
219 a10(indx) := t(ddindx).inventory_item_id;
220 a11(indx) := t(ddindx).inventory_item;
221 a12(indx) := t(ddindx).uom_code;
222 a13(indx) := t(ddindx).uom;
223 a14(indx) := t(ddindx).cmro_resource_id;
224 a15(indx) := t(ddindx).cmro_resource_name;
225 a16(indx) := t(ddindx).cmro_resource_type;
226 a17(indx) := t(ddindx).analysis_qty;
227 a18(indx) := t(ddindx).required_qty;
228 a19(indx) := t(ddindx).fleet_header_id;
229 a20(indx) := t(ddindx).fleet_name;
230 a21(indx) := t(ddindx).operating_org_id;
231 a22(indx) := t(ddindx).operating_org_name;
232 a23(indx) := t(ddindx).operations_type_code;
233 a24(indx) := t(ddindx).operations_type;
234 a25(indx) := t(ddindx).demantra_updated_date;
235 a26(indx) := t(ddindx).excluded_date;
236 a27(indx) := t(ddindx).security_group_id;
237 a28(indx) := t(ddindx).profile_detail_type;
238 a29(indx) := t(ddindx).dml_operation;
239 indx := indx+1;
240 if t.last =ddindx
241 then exit;
242 end if;
243 ddindx := t.next(ddindx);
244 end loop;
245 end if;
246 end if;
247 end rosetta_table_copy_out_p4;
248
249 procedure rosetta_table_copy_in_p6(t out nocopy ahl_ra_nr_profile_pvt.nrp_res_req_tbl_type, a0 JTF_NUMBER_TABLE
250 , a1 JTF_NUMBER_TABLE
251 , a2 JTF_NUMBER_TABLE
252 , a3 JTF_VARCHAR2_TABLE_100
253 ) as
254 ddindx binary_integer; indx binary_integer;
255 begin
256 if a0 is not null and a0.count > 0 then
257 if a0.count > 0 then
258 indx := a0.first;
259 ddindx := 1;
260 while true loop
261 t(ddindx).nr_profile_det_id := a0(indx);
262 t(ddindx).cmro_resource_id := a1(indx);
263 t(ddindx).duration := a2(indx);
264 t(ddindx).stage_type_code := a3(indx);
265 ddindx := ddindx+1;
266 if a0.last =indx
267 then exit;
268 end if;
269 indx := a0.next(indx);
270 end loop;
271 end if;
272 end if;
273 end rosetta_table_copy_in_p6;
274 procedure rosetta_table_copy_out_p6(t ahl_ra_nr_profile_pvt.nrp_res_req_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
275 , a1 out nocopy JTF_NUMBER_TABLE
276 , a2 out nocopy JTF_NUMBER_TABLE
277 , a3 out nocopy JTF_VARCHAR2_TABLE_100
278 ) as
279 ddindx binary_integer; indx binary_integer;
280 begin
281 if t is null or t.count = 0 then
282 a0 := JTF_NUMBER_TABLE();
283 a1 := JTF_NUMBER_TABLE();
284 a2 := JTF_NUMBER_TABLE();
285 a3 := JTF_VARCHAR2_TABLE_100();
286 else
287 a0 := JTF_NUMBER_TABLE();
288 a1 := JTF_NUMBER_TABLE();
289 a2 := JTF_NUMBER_TABLE();
290 a3 := JTF_VARCHAR2_TABLE_100();
291 if t.count > 0 then
292 a0.extend(t.count);
293 a1.extend(t.count);
294 a2.extend(t.count);
295 a3.extend(t.count);
296 ddindx := t.first;
297 indx := 1;
298 while true loop
299 a0(indx) := t(ddindx).nr_profile_det_id;
300 a1(indx) := t(ddindx).cmro_resource_id;
301 a2(indx) := t(ddindx).duration;
302 a3(indx) := t(ddindx).stage_type_code;
303 indx := indx+1;
304 if t.last =ddindx
305 then exit;
306 end if;
307 ddindx := t.next(ddindx);
308 end loop;
309 end if;
310 end if;
311 end rosetta_table_copy_out_p6;
312
313 procedure rosetta_table_copy_in_p8(t out nocopy ahl_ra_nr_profile_pvt.nrp_mat_req_tbl_type, a0 JTF_NUMBER_TABLE
314 , a1 JTF_NUMBER_TABLE
315 , a2 JTF_NUMBER_TABLE
316 , a3 JTF_VARCHAR2_TABLE_100
317 , a4 JTF_VARCHAR2_TABLE_100
318 ) as
319 ddindx binary_integer; indx binary_integer;
320 begin
321 if a0 is not null and a0.count > 0 then
322 if a0.count > 0 then
323 indx := a0.first;
324 ddindx := 1;
325 while true loop
326 t(ddindx).nr_profile_det_id := a0(indx);
327 t(ddindx).inventory_item_id := a1(indx);
328 t(ddindx).quantity := a2(indx);
329 t(ddindx).uom_code := a3(indx);
330 t(ddindx).stage_type_code := a4(indx);
331 ddindx := ddindx+1;
332 if a0.last =indx
333 then exit;
334 end if;
335 indx := a0.next(indx);
336 end loop;
337 end if;
338 end if;
339 end rosetta_table_copy_in_p8;
340 procedure rosetta_table_copy_out_p8(t ahl_ra_nr_profile_pvt.nrp_mat_req_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
341 , a1 out nocopy JTF_NUMBER_TABLE
342 , a2 out nocopy JTF_NUMBER_TABLE
343 , a3 out nocopy JTF_VARCHAR2_TABLE_100
344 , a4 out nocopy JTF_VARCHAR2_TABLE_100
345 ) as
346 ddindx binary_integer; indx binary_integer;
347 begin
348 if t is null or t.count = 0 then
349 a0 := JTF_NUMBER_TABLE();
350 a1 := JTF_NUMBER_TABLE();
351 a2 := JTF_NUMBER_TABLE();
352 a3 := JTF_VARCHAR2_TABLE_100();
353 a4 := JTF_VARCHAR2_TABLE_100();
354 else
355 a0 := JTF_NUMBER_TABLE();
356 a1 := JTF_NUMBER_TABLE();
357 a2 := JTF_NUMBER_TABLE();
358 a3 := JTF_VARCHAR2_TABLE_100();
359 a4 := JTF_VARCHAR2_TABLE_100();
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 ddindx := t.first;
367 indx := 1;
368 while true loop
369 a0(indx) := t(ddindx).nr_profile_det_id;
370 a1(indx) := t(ddindx).inventory_item_id;
371 a2(indx) := t(ddindx).quantity;
372 a3(indx) := t(ddindx).uom_code;
373 a4(indx) := t(ddindx).stage_type_code;
374 indx := indx+1;
375 if t.last =ddindx
376 then exit;
377 end if;
378 ddindx := t.next(ddindx);
379 end loop;
380 end if;
381 end if;
382 end rosetta_table_copy_out_p8;
383
384 procedure populate_prof_res_req(p_mr_header_id NUMBER
385 , p_instance_id NUMBER
386 , p_ue_id NUMBER
387 , p_plan_id NUMBER
388 , x_return_status out nocopy VARCHAR2
389 , x_msg_count out nocopy NUMBER
390 , x_msg_data out nocopy VARCHAR2
391 , p7_a0 out nocopy JTF_NUMBER_TABLE
392 , p7_a1 out nocopy JTF_NUMBER_TABLE
393 , p7_a2 out nocopy JTF_NUMBER_TABLE
394 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
395 )
396
397 as
398 ddx_prof_res_req_tbl ahl_ra_nr_profile_pvt.nrp_res_req_tbl_type;
399 ddindx binary_integer; indx binary_integer;
400 begin
401
402 -- copy data to the local IN or IN-OUT args, if any
403
404
405
406
407
408
409
410
411 -- here's the delegated call to the old PL/SQL routine
412 ahl_ra_nr_profile_pvt.populate_prof_res_req(p_mr_header_id,
413 p_instance_id,
414 p_ue_id,
415 p_plan_id,
416 x_return_status,
417 x_msg_count,
418 x_msg_data,
419 ddx_prof_res_req_tbl);
420
421 -- copy data back from the local variables to OUT or IN-OUT args, if any
422
423
424
425
426
427
428
429 ahl_ra_nr_profile_pvt_w.rosetta_table_copy_out_p6(ddx_prof_res_req_tbl, p7_a0
430 , p7_a1
431 , p7_a2
432 , p7_a3
433 );
434 end;
435
436 procedure populate_prof_mat_req(p_mr_header_id NUMBER
437 , p_instance_id NUMBER
438 , p_ue_id NUMBER
439 , p_plan_id NUMBER
440 , x_return_status out nocopy VARCHAR2
441 , x_msg_count out nocopy NUMBER
442 , x_msg_data out nocopy VARCHAR2
443 , p7_a0 out nocopy JTF_NUMBER_TABLE
444 , p7_a1 out nocopy JTF_NUMBER_TABLE
445 , p7_a2 out nocopy JTF_NUMBER_TABLE
446 , p7_a3 out nocopy JTF_VARCHAR2_TABLE_100
447 , p7_a4 out nocopy JTF_VARCHAR2_TABLE_100
448 )
449
450 as
451 ddx_prof_mat_req_tbl ahl_ra_nr_profile_pvt.nrp_mat_req_tbl_type;
452 ddindx binary_integer; indx binary_integer;
453 begin
454
455 -- copy data to the local IN or IN-OUT args, if any
456
457
458
459
460
461
462
463
464 -- here's the delegated call to the old PL/SQL routine
465 ahl_ra_nr_profile_pvt.populate_prof_mat_req(p_mr_header_id,
466 p_instance_id,
467 p_ue_id,
468 p_plan_id,
469 x_return_status,
470 x_msg_count,
471 x_msg_data,
472 ddx_prof_mat_req_tbl);
473
474 -- copy data back from the local variables to OUT or IN-OUT args, if any
475
476
477
478
479
480
481
482 ahl_ra_nr_profile_pvt_w.rosetta_table_copy_out_p8(ddx_prof_mat_req_tbl, p7_a0
483 , p7_a1
484 , p7_a2
485 , p7_a3
486 , p7_a4
487 );
488 end;
489
490 procedure process_nr_profile(p_api_version NUMBER
491 , p_init_msg_list VARCHAR2
492 , p_commit VARCHAR2
493 , p_validation_level NUMBER
494 , x_return_status out nocopy VARCHAR2
495 , x_msg_count out nocopy NUMBER
496 , x_msg_data out nocopy VARCHAR2
497 , p7_a0 in out nocopy NUMBER
498 , p7_a1 in out nocopy NUMBER
499 , p7_a2 in out nocopy DATE
500 , p7_a3 in out nocopy NUMBER
501 , p7_a4 in out nocopy DATE
502 , p7_a5 in out nocopy NUMBER
503 , p7_a6 in out nocopy NUMBER
504 , p7_a7 in out nocopy VARCHAR2
505 , p7_a8 in out nocopy VARCHAR2
506 , p7_a9 in out nocopy VARCHAR2
507 , p7_a10 in out nocopy VARCHAR2
508 , p7_a11 in out nocopy NUMBER
509 , p7_a12 in out nocopy VARCHAR2
510 , p7_a13 in out nocopy VARCHAR2
511 , p7_a14 in out nocopy VARCHAR2
512 , p7_a15 in out nocopy VARCHAR2
513 , p7_a16 in out nocopy VARCHAR2
514 , p7_a17 in out nocopy VARCHAR2
515 , p7_a18 in out nocopy VARCHAR2
516 , p7_a19 in out nocopy VARCHAR2
517 , p7_a20 in out nocopy VARCHAR2
518 , p7_a21 in out nocopy VARCHAR2
519 , p7_a22 in out nocopy VARCHAR2
520 , p7_a23 in out nocopy VARCHAR2
521 , p7_a24 in out nocopy VARCHAR2
522 , p7_a25 in out nocopy VARCHAR2
523 , p7_a26 in out nocopy VARCHAR2
524 , p7_a27 in out nocopy VARCHAR2
525 , p7_a28 in out nocopy VARCHAR2
526 )
527
528 as
529 ddp_x_nr_profile_header_rec ahl_ra_nr_profile_pvt.nr_prof_header_rec_type;
530 ddindx binary_integer; indx binary_integer;
531 begin
532
533 -- copy data to the local IN or IN-OUT args, if any
534
535
536
537
538
539
540
541 ddp_x_nr_profile_header_rec.nr_profile_header_id := p7_a0;
542 ddp_x_nr_profile_header_rec.object_version_number := p7_a1;
543 ddp_x_nr_profile_header_rec.last_update_date := p7_a2;
544 ddp_x_nr_profile_header_rec.last_updated_by := p7_a3;
545 ddp_x_nr_profile_header_rec.creation_date := p7_a4;
546 ddp_x_nr_profile_header_rec.created_by := p7_a5;
547 ddp_x_nr_profile_header_rec.last_update_login := p7_a6;
548 ddp_x_nr_profile_header_rec.mr_title := p7_a7;
549 ddp_x_nr_profile_header_rec.status_code := p7_a8;
550 ddp_x_nr_profile_header_rec.ident_seq_third := p7_a9;
551 ddp_x_nr_profile_header_rec.ident_seq_fourth := p7_a10;
552 ddp_x_nr_profile_header_rec.security_group_id := p7_a11;
553 ddp_x_nr_profile_header_rec.attribute_category := p7_a12;
554 ddp_x_nr_profile_header_rec.attribute1 := p7_a13;
555 ddp_x_nr_profile_header_rec.attribute2 := p7_a14;
556 ddp_x_nr_profile_header_rec.attribute3 := p7_a15;
557 ddp_x_nr_profile_header_rec.attribute4 := p7_a16;
558 ddp_x_nr_profile_header_rec.attribute5 := p7_a17;
559 ddp_x_nr_profile_header_rec.attribute6 := p7_a18;
560 ddp_x_nr_profile_header_rec.attribute7 := p7_a19;
561 ddp_x_nr_profile_header_rec.attribute8 := p7_a20;
562 ddp_x_nr_profile_header_rec.attribute9 := p7_a21;
563 ddp_x_nr_profile_header_rec.attribute10 := p7_a22;
564 ddp_x_nr_profile_header_rec.attribute11 := p7_a23;
565 ddp_x_nr_profile_header_rec.attribute12 := p7_a24;
566 ddp_x_nr_profile_header_rec.attribute13 := p7_a25;
567 ddp_x_nr_profile_header_rec.attribute14 := p7_a26;
568 ddp_x_nr_profile_header_rec.attribute15 := p7_a27;
569 ddp_x_nr_profile_header_rec.dml_operation := p7_a28;
570
571 -- here's the delegated call to the old PL/SQL routine
572 ahl_ra_nr_profile_pvt.process_nr_profile(p_api_version,
573 p_init_msg_list,
574 p_commit,
575 p_validation_level,
576 x_return_status,
577 x_msg_count,
578 x_msg_data,
579 ddp_x_nr_profile_header_rec);
580
581 -- copy data back from the local variables to OUT or IN-OUT args, if any
582
583
584
585
586
587
588
589 p7_a0 := ddp_x_nr_profile_header_rec.nr_profile_header_id;
590 p7_a1 := ddp_x_nr_profile_header_rec.object_version_number;
591 p7_a2 := ddp_x_nr_profile_header_rec.last_update_date;
592 p7_a3 := ddp_x_nr_profile_header_rec.last_updated_by;
593 p7_a4 := ddp_x_nr_profile_header_rec.creation_date;
594 p7_a5 := ddp_x_nr_profile_header_rec.created_by;
595 p7_a6 := ddp_x_nr_profile_header_rec.last_update_login;
596 p7_a7 := ddp_x_nr_profile_header_rec.mr_title;
597 p7_a8 := ddp_x_nr_profile_header_rec.status_code;
598 p7_a9 := ddp_x_nr_profile_header_rec.ident_seq_third;
599 p7_a10 := ddp_x_nr_profile_header_rec.ident_seq_fourth;
600 p7_a11 := ddp_x_nr_profile_header_rec.security_group_id;
601 p7_a12 := ddp_x_nr_profile_header_rec.attribute_category;
602 p7_a13 := ddp_x_nr_profile_header_rec.attribute1;
603 p7_a14 := ddp_x_nr_profile_header_rec.attribute2;
604 p7_a15 := ddp_x_nr_profile_header_rec.attribute3;
605 p7_a16 := ddp_x_nr_profile_header_rec.attribute4;
606 p7_a17 := ddp_x_nr_profile_header_rec.attribute5;
607 p7_a18 := ddp_x_nr_profile_header_rec.attribute6;
608 p7_a19 := ddp_x_nr_profile_header_rec.attribute7;
609 p7_a20 := ddp_x_nr_profile_header_rec.attribute8;
610 p7_a21 := ddp_x_nr_profile_header_rec.attribute9;
611 p7_a22 := ddp_x_nr_profile_header_rec.attribute10;
612 p7_a23 := ddp_x_nr_profile_header_rec.attribute11;
613 p7_a24 := ddp_x_nr_profile_header_rec.attribute12;
614 p7_a25 := ddp_x_nr_profile_header_rec.attribute13;
615 p7_a26 := ddp_x_nr_profile_header_rec.attribute14;
616 p7_a27 := ddp_x_nr_profile_header_rec.attribute15;
617 p7_a28 := ddp_x_nr_profile_header_rec.dml_operation;
618 end;
619
620 procedure add_details_to_prof(p_api_version NUMBER
621 , p_init_msg_list VARCHAR2
622 , p_commit VARCHAR2
623 , p_validation_level NUMBER
624 , x_return_status out nocopy VARCHAR2
625 , x_msg_count out nocopy NUMBER
626 , x_msg_data out nocopy VARCHAR2
627 , p7_a0 in out nocopy JTF_NUMBER_TABLE
628 , p7_a1 in out nocopy JTF_NUMBER_TABLE
629 , p7_a2 in out nocopy JTF_DATE_TABLE
630 , p7_a3 in out nocopy JTF_NUMBER_TABLE
631 , p7_a4 in out nocopy JTF_DATE_TABLE
632 , p7_a5 in out nocopy JTF_NUMBER_TABLE
633 , p7_a6 in out nocopy JTF_NUMBER_TABLE
634 , p7_a7 in out nocopy JTF_NUMBER_TABLE
635 , p7_a8 in out nocopy JTF_VARCHAR2_TABLE_100
636 , p7_a9 in out nocopy JTF_VARCHAR2_TABLE_100
637 , p7_a10 in out nocopy JTF_NUMBER_TABLE
638 , p7_a11 in out nocopy JTF_VARCHAR2_TABLE_300
639 , p7_a12 in out nocopy JTF_VARCHAR2_TABLE_100
640 , p7_a13 in out nocopy JTF_VARCHAR2_TABLE_100
641 , p7_a14 in out nocopy JTF_NUMBER_TABLE
642 , p7_a15 in out nocopy JTF_VARCHAR2_TABLE_300
643 , p7_a16 in out nocopy JTF_VARCHAR2_TABLE_100
644 , p7_a17 in out nocopy JTF_NUMBER_TABLE
645 , p7_a18 in out nocopy JTF_NUMBER_TABLE
646 , p7_a19 in out nocopy JTF_NUMBER_TABLE
647 , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_200
648 , p7_a21 in out nocopy JTF_NUMBER_TABLE
649 , p7_a22 in out nocopy JTF_VARCHAR2_TABLE_200
650 , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_100
651 , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_100
652 , p7_a25 in out nocopy JTF_DATE_TABLE
653 , p7_a26 in out nocopy JTF_DATE_TABLE
654 , p7_a27 in out nocopy JTF_NUMBER_TABLE
655 , p7_a28 in out nocopy JTF_VARCHAR2_TABLE_100
656 , p7_a29 in out nocopy JTF_VARCHAR2_TABLE_100
657 )
658
659 as
660 ddp_x_nr_prof_est_tbl ahl_ra_nr_profile_pvt.nr_prof_est_tbl_type;
661 ddindx binary_integer; indx binary_integer;
662 begin
663
664 -- copy data to the local IN or IN-OUT args, if any
665
666
667
668
669
670
671
672 ahl_ra_nr_profile_pvt_w.rosetta_table_copy_in_p4(ddp_x_nr_prof_est_tbl, p7_a0
673 , p7_a1
674 , p7_a2
675 , p7_a3
676 , p7_a4
677 , p7_a5
678 , p7_a6
679 , p7_a7
680 , p7_a8
681 , p7_a9
682 , p7_a10
683 , p7_a11
684 , p7_a12
685 , p7_a13
686 , p7_a14
687 , p7_a15
688 , p7_a16
689 , p7_a17
690 , p7_a18
691 , p7_a19
692 , p7_a20
693 , p7_a21
694 , p7_a22
695 , p7_a23
696 , p7_a24
697 , p7_a25
698 , p7_a26
699 , p7_a27
700 , p7_a28
701 , p7_a29
702 );
703
704 -- here's the delegated call to the old PL/SQL routine
705 ahl_ra_nr_profile_pvt.add_details_to_prof(p_api_version,
706 p_init_msg_list,
707 p_commit,
708 p_validation_level,
709 x_return_status,
710 x_msg_count,
711 x_msg_data,
712 ddp_x_nr_prof_est_tbl);
713
714 -- copy data back from the local variables to OUT or IN-OUT args, if any
715
716
717
718
719
720
721
722 ahl_ra_nr_profile_pvt_w.rosetta_table_copy_out_p4(ddp_x_nr_prof_est_tbl, p7_a0
723 , p7_a1
724 , p7_a2
725 , p7_a3
726 , p7_a4
727 , p7_a5
728 , p7_a6
729 , p7_a7
730 , p7_a8
731 , p7_a9
732 , p7_a10
733 , p7_a11
734 , p7_a12
735 , p7_a13
736 , p7_a14
737 , p7_a15
738 , p7_a16
739 , p7_a17
740 , p7_a18
741 , p7_a19
742 , p7_a20
743 , p7_a21
744 , p7_a22
745 , p7_a23
746 , p7_a24
747 , p7_a25
748 , p7_a26
749 , p7_a27
750 , p7_a28
751 , p7_a29
752 );
753 end;
754
755 end ahl_ra_nr_profile_pvt_w;