[Home] [Help]
PACKAGE BODY: APPS.JTF_MSITE_GRP_W
Source
1 package body jtf_msite_grp_w as
2 /* $Header: JTFGRMSB.pls 115.9 2004/07/09 18:50:52 applrt 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure rosetta_table_copy_in_p7(t out jtf_msite_grp.msite_currencies_tbl_type, a0 JTF_VARCHAR2_TABLE_100
23 , a1 JTF_NUMBER_TABLE
24 , a2 JTF_NUMBER_TABLE
25 , a3 JTF_NUMBER_TABLE
26 , a4 JTF_NUMBER_TABLE
27 , a5 JTF_VARCHAR2_TABLE_100
28 ) as
29 ddindx binary_integer; indx binary_integer;
30 begin
31 if a0 is not null and a0.count > 0 then
32 if a0.count > 0 then
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx).currency_code := a0(indx);
37 t(ddindx).walkin_prc_lst_id := rosetta_g_miss_num_map(a1(indx));
38 t(ddindx).registered_prc_lst_id := rosetta_g_miss_num_map(a2(indx));
39 t(ddindx).biz_partner_prc_lst_id := rosetta_g_miss_num_map(a3(indx));
40 t(ddindx).orderable_limit := rosetta_g_miss_num_map(a4(indx));
41 t(ddindx).default_flag := a5(indx);
42 ddindx := ddindx+1;
43 if a0.last =indx
44 then exit;
45 end if;
46 indx := a0.next(indx);
47 end loop;
48 end if;
49 end if;
50 end rosetta_table_copy_in_p7;
51 procedure rosetta_table_copy_out_p7(t jtf_msite_grp.msite_currencies_tbl_type, a0 out JTF_VARCHAR2_TABLE_100
52 , a1 out JTF_NUMBER_TABLE
53 , a2 out JTF_NUMBER_TABLE
54 , a3 out JTF_NUMBER_TABLE
55 , a4 out JTF_NUMBER_TABLE
56 , a5 out JTF_VARCHAR2_TABLE_100
57 ) as
58 ddindx binary_integer; indx binary_integer;
59 begin
60 if t is null or t.count = 0 then
61 a0 := JTF_VARCHAR2_TABLE_100();
62 a1 := JTF_NUMBER_TABLE();
63 a2 := JTF_NUMBER_TABLE();
64 a3 := JTF_NUMBER_TABLE();
65 a4 := JTF_NUMBER_TABLE();
66 a5 := JTF_VARCHAR2_TABLE_100();
67 else
68 a0 := JTF_VARCHAR2_TABLE_100();
69 a1 := JTF_NUMBER_TABLE();
70 a2 := JTF_NUMBER_TABLE();
71 a3 := JTF_NUMBER_TABLE();
72 a4 := JTF_NUMBER_TABLE();
73 a5 := JTF_VARCHAR2_TABLE_100();
74 if t.count > 0 then
75 a0.extend(t.count);
76 a1.extend(t.count);
77 a2.extend(t.count);
78 a3.extend(t.count);
79 a4.extend(t.count);
80 a5.extend(t.count);
81 ddindx := t.first;
82 indx := 1;
83 while true loop
84 a0(indx) := t(ddindx).currency_code;
85 a1(indx) := rosetta_g_miss_num_map(t(ddindx).walkin_prc_lst_id);
86 a2(indx) := rosetta_g_miss_num_map(t(ddindx).registered_prc_lst_id);
87 a3(indx) := rosetta_g_miss_num_map(t(ddindx).biz_partner_prc_lst_id);
88 a4(indx) := rosetta_g_miss_num_map(t(ddindx).orderable_limit);
89 a5(indx) := t(ddindx).default_flag;
90 indx := indx+1;
91 if t.last =ddindx
92 then exit;
93 end if;
94 ddindx := t.next(ddindx);
95 end loop;
96 end if;
97 end if;
98 end rosetta_table_copy_out_p7;
99
100 procedure rosetta_table_copy_in_p8(t out jtf_msite_grp.msite_languages_tbl_type, a0 JTF_VARCHAR2_TABLE_100
101 , a1 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).language_code := a0(indx);
111 t(ddindx).default_flag := a1(indx);
112 ddindx := ddindx+1;
113 if a0.last =indx
114 then exit;
115 end if;
116 indx := a0.next(indx);
117 end loop;
118 end if;
119 end if;
120 end rosetta_table_copy_in_p8;
121 procedure rosetta_table_copy_out_p8(t jtf_msite_grp.msite_languages_tbl_type, a0 out JTF_VARCHAR2_TABLE_100
122 , a1 out JTF_VARCHAR2_TABLE_100
123 ) as
124 ddindx binary_integer; indx binary_integer;
125 begin
126 if t is null or t.count = 0 then
127 a0 := JTF_VARCHAR2_TABLE_100();
128 a1 := JTF_VARCHAR2_TABLE_100();
129 else
130 a0 := JTF_VARCHAR2_TABLE_100();
131 a1 := JTF_VARCHAR2_TABLE_100();
132 if t.count > 0 then
133 a0.extend(t.count);
134 a1.extend(t.count);
135 ddindx := t.first;
136 indx := 1;
137 while true loop
138 a0(indx) := t(ddindx).language_code;
139 a1(indx) := t(ddindx).default_flag;
140 indx := indx+1;
141 if t.last =ddindx
142 then exit;
143 end if;
144 ddindx := t.next(ddindx);
145 end loop;
146 end if;
147 end if;
148 end rosetta_table_copy_out_p8;
149
150 procedure rosetta_table_copy_in_p9(t out jtf_msite_grp.msite_orgids_tbl_type, a0 JTF_NUMBER_TABLE
151 , a1 JTF_VARCHAR2_TABLE_100
152 ) as
153 ddindx binary_integer; indx binary_integer;
154 begin
155 if a0 is not null and a0.count > 0 then
156 if a0.count > 0 then
157 indx := a0.first;
158 ddindx := 1;
159 while true loop
160 t(ddindx).orgid := rosetta_g_miss_num_map(a0(indx));
161 t(ddindx).default_flag := a1(indx);
162 ddindx := ddindx+1;
163 if a0.last =indx
164 then exit;
165 end if;
166 indx := a0.next(indx);
167 end loop;
168 end if;
169 end if;
170 end rosetta_table_copy_in_p9;
171 procedure rosetta_table_copy_out_p9(t jtf_msite_grp.msite_orgids_tbl_type, a0 out JTF_NUMBER_TABLE
172 , a1 out JTF_VARCHAR2_TABLE_100
173 ) as
174 ddindx binary_integer; indx binary_integer;
175 begin
176 if t is null or t.count = 0 then
177 a0 := JTF_NUMBER_TABLE();
178 a1 := JTF_VARCHAR2_TABLE_100();
179 else
180 a0 := JTF_NUMBER_TABLE();
181 a1 := JTF_VARCHAR2_TABLE_100();
182 if t.count > 0 then
183 a0.extend(t.count);
184 a1.extend(t.count);
185 ddindx := t.first;
186 indx := 1;
187 while true loop
188 a0(indx) := rosetta_g_miss_num_map(t(ddindx).orgid);
189 a1(indx) := t(ddindx).default_flag;
190 indx := indx+1;
191 if t.last =ddindx
192 then exit;
193 end if;
194 ddindx := t.next(ddindx);
195 end loop;
196 end if;
197 end if;
198 end rosetta_table_copy_out_p9;
199
200 procedure rosetta_table_copy_in_p10(t out jtf_msite_grp.msite_delete_tbl_type, a0 JTF_NUMBER_TABLE
201 , a1 JTF_NUMBER_TABLE
202 ) as
203 ddindx binary_integer; indx binary_integer;
204 begin
205 if a0 is not null and a0.count > 0 then
206 if a0.count > 0 then
207 indx := a0.first;
208 ddindx := 1;
209 while true loop
210 t(ddindx).msite_id := rosetta_g_miss_num_map(a0(indx));
211 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
212 ddindx := ddindx+1;
213 if a0.last =indx
214 then exit;
215 end if;
216 indx := a0.next(indx);
217 end loop;
218 end if;
219 end if;
220 end rosetta_table_copy_in_p10;
221 procedure rosetta_table_copy_out_p10(t jtf_msite_grp.msite_delete_tbl_type, a0 out JTF_NUMBER_TABLE
222 , a1 out JTF_NUMBER_TABLE
223 ) as
224 ddindx binary_integer; indx binary_integer;
225 begin
226 if t is null or t.count = 0 then
227 a0 := JTF_NUMBER_TABLE();
228 a1 := JTF_NUMBER_TABLE();
229 else
230 a0 := JTF_NUMBER_TABLE();
231 a1 := JTF_NUMBER_TABLE();
232 if t.count > 0 then
233 a0.extend(t.count);
234 a1.extend(t.count);
235 ddindx := t.first;
236 indx := 1;
237 while true loop
238 a0(indx) := rosetta_g_miss_num_map(t(ddindx).msite_id);
239 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
240 indx := indx+1;
241 if t.last =ddindx
242 then exit;
243 end if;
244 ddindx := t.next(ddindx);
245 end loop;
246 end if;
247 end if;
248 end rosetta_table_copy_out_p10;
249
250 procedure rosetta_table_copy_in_p11(t out jtf_msite_grp.msite_prtyids_tbl_type, a0 JTF_NUMBER_TABLE) as
251 ddindx binary_integer; indx binary_integer;
252 begin
253 if a0 is not null and a0.count > 0 then
254 if a0.count > 0 then
255 indx := a0.first;
256 ddindx := 1;
257 while true loop
258 t(ddindx) := a0(indx);
259 ddindx := ddindx+1;
260 if a0.last =indx
261 then exit;
262 end if;
263 indx := a0.next(indx);
264 end loop;
265 end if;
266 end if;
267 end rosetta_table_copy_in_p11;
268 procedure rosetta_table_copy_out_p11(t jtf_msite_grp.msite_prtyids_tbl_type, a0 out JTF_NUMBER_TABLE) as
269 ddindx binary_integer; indx binary_integer;
270 begin
271 if t is null or t.count = 0 then
272 a0 := JTF_NUMBER_TABLE();
273 else
274 a0 := JTF_NUMBER_TABLE();
275 if t.count > 0 then
276 a0.extend(t.count);
277 ddindx := t.first;
278 indx := 1;
279 while true loop
280 a0(indx) := t(ddindx);
281 indx := indx+1;
282 if t.last =ddindx
283 then exit;
284 end if;
285 ddindx := t.next(ddindx);
286 end loop;
287 end if;
288 end if;
289 end rosetta_table_copy_out_p11;
290
291 procedure delete_msite(p_api_version NUMBER
292 , p_init_msg_list VARCHAR2
293 , p_commit VARCHAR2
294 , x_return_status out VARCHAR2
295 , x_msg_count out NUMBER
296 , x_msg_data out VARCHAR2
297 , p6_a0 JTF_NUMBER_TABLE
298 , p6_a1 JTF_NUMBER_TABLE
299 )
300 as
301 ddp_msite_id_tbl jtf_msite_grp.msite_delete_tbl_type;
302 ddindx binary_integer; indx binary_integer;
303 begin
304
305 -- copy data to the local IN or IN-OUT args, if any
306
307
308
309
310
311
312 jtf_msite_grp_w.rosetta_table_copy_in_p10(ddp_msite_id_tbl, p6_a0
313 , p6_a1
314 );
315
316 -- here's the delegated call to the old PL/SQL routine
317 jtf_msite_grp.delete_msite(p_api_version,
318 p_init_msg_list,
319 p_commit,
320 x_return_status,
321 x_msg_count,
322 x_msg_data,
323 ddp_msite_id_tbl);
324
325 -- copy data back from the local OUT or IN-OUT args, if any
326
327
328
329
330
331
332 end;
333
334 procedure save_msite(p_api_version NUMBER
335 , p_init_msg_list VARCHAR2
336 , p_commit VARCHAR2
337 , x_return_status out VARCHAR2
338 , x_msg_count out NUMBER
339 , x_msg_data out VARCHAR2
340 , p6_a0 in out NUMBER
341 , p6_a1 in out NUMBER
342 , p6_a2 in out VARCHAR2
343 , p6_a3 in out VARCHAR2
344 , p6_a4 in out NUMBER
345 , p6_a5 in out VARCHAR2
346 , p6_a6 in out VARCHAR2
347 , p6_a7 in out VARCHAR2
348 , p6_a8 in out VARCHAR2
349 , p6_a9 in out NUMBER
350 , p6_a10 in out VARCHAR2
351 , p6_a11 in out VARCHAR2
352 , p6_a12 in out VARCHAR2
353 , p6_a13 in out VARCHAR2
354 , p6_a14 in out DATE
355 , p6_a15 in out DATE
356 , p6_a16 in out VARCHAR2
357 , p6_a17 in out NUMBER
358 )
359 as
360 ddp_msite_rec jtf_msite_grp.msite_rec_type;
361 ddindx binary_integer; indx binary_integer;
362 begin
363
364 -- copy data to the local IN or IN-OUT args, if any
365
366
367
368
369
370
371 ddp_msite_rec.msite_id := rosetta_g_miss_num_map(p6_a0);
372 ddp_msite_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
373 ddp_msite_rec.display_name := p6_a2;
374 ddp_msite_rec.description := p6_a3;
375 ddp_msite_rec.profile_id := rosetta_g_miss_num_map(p6_a4);
376 ddp_msite_rec.date_format := p6_a5;
377 ddp_msite_rec.walkin_allowed_code := p6_a6;
378 ddp_msite_rec.atp_check_flag := p6_a7;
379 ddp_msite_rec.msite_master_flag := p6_a8;
380 ddp_msite_rec.msite_root_section_id := rosetta_g_miss_num_map(p6_a9);
381 ddp_msite_rec.enable_for_store := p6_a10;
382 ddp_msite_rec.resp_access_flag := p6_a11;
383 ddp_msite_rec.party_access_code := p6_a12;
384 ddp_msite_rec.access_name := p6_a13;
385 ddp_msite_rec.start_date_active := rosetta_g_miss_date_in_map(p6_a14);
386 ddp_msite_rec.end_date_active := rosetta_g_miss_date_in_map(p6_a15);
387 ddp_msite_rec.url := p6_a16;
388 ddp_msite_rec.theme_id := rosetta_g_miss_num_map(p6_a17);
389
390 -- here's the delegated call to the old PL/SQL routine
391 jtf_msite_grp.save_msite(p_api_version,
392 p_init_msg_list,
393 p_commit,
394 x_return_status,
395 x_msg_count,
396 x_msg_data,
397 ddp_msite_rec);
398
399 -- copy data back from the local OUT or IN-OUT args, if any
400
401
402
403
404
405
406 p6_a0 := rosetta_g_miss_num_map(ddp_msite_rec.msite_id);
407 p6_a1 := rosetta_g_miss_num_map(ddp_msite_rec.object_version_number);
408 p6_a2 := ddp_msite_rec.display_name;
409 p6_a3 := ddp_msite_rec.description;
410 p6_a4 := rosetta_g_miss_num_map(ddp_msite_rec.profile_id);
411 p6_a5 := ddp_msite_rec.date_format;
412 p6_a6 := ddp_msite_rec.walkin_allowed_code;
413 p6_a7 := ddp_msite_rec.atp_check_flag;
414 p6_a8 := ddp_msite_rec.msite_master_flag;
415 p6_a9 := rosetta_g_miss_num_map(ddp_msite_rec.msite_root_section_id);
416 p6_a10 := ddp_msite_rec.enable_for_store;
417 p6_a11 := ddp_msite_rec.resp_access_flag;
418 p6_a12 := ddp_msite_rec.party_access_code;
419 p6_a13 := ddp_msite_rec.access_name;
420 p6_a14 := ddp_msite_rec.start_date_active;
421 p6_a15 := ddp_msite_rec.end_date_active;
422 p6_a16 := ddp_msite_rec.url;
423 p6_a17 := rosetta_g_miss_num_map(ddp_msite_rec.theme_id);
424 end;
425
426 procedure save_msite_languages(p_api_version NUMBER
427 , p_init_msg_list VARCHAR2
428 , p_commit VARCHAR2
429 , x_return_status out VARCHAR2
430 , x_msg_count out NUMBER
431 , x_msg_data out VARCHAR2
432 , p_msite_id NUMBER
433 , p7_a0 JTF_VARCHAR2_TABLE_100
434 , p7_a1 JTF_VARCHAR2_TABLE_100
435 )
436 as
437 ddp_msite_languages_tbl jtf_msite_grp.msite_languages_tbl_type;
438 ddindx binary_integer; indx binary_integer;
439 begin
440
441 -- copy data to the local IN or IN-OUT args, if any
442
443
444
445
446
447
448
449 jtf_msite_grp_w.rosetta_table_copy_in_p8(ddp_msite_languages_tbl, p7_a0
450 , p7_a1
451 );
452
453 -- here's the delegated call to the old PL/SQL routine
454 jtf_msite_grp.save_msite_languages(p_api_version,
455 p_init_msg_list,
456 p_commit,
457 x_return_status,
458 x_msg_count,
459 x_msg_data,
460 p_msite_id,
461 ddp_msite_languages_tbl);
462
463 -- copy data back from the local OUT or IN-OUT args, if any
464
465
466
467
468
469
470
471 end;
472
473 procedure save_msite_currencies(p_api_version NUMBER
474 , p_init_msg_list VARCHAR2
475 , p_commit VARCHAR2
476 , x_return_status out VARCHAR2
477 , x_msg_count out NUMBER
478 , x_msg_data out VARCHAR2
479 , p_msite_id NUMBER
480 , p7_a0 JTF_VARCHAR2_TABLE_100
481 , p7_a1 JTF_NUMBER_TABLE
482 , p7_a2 JTF_NUMBER_TABLE
483 , p7_a3 JTF_NUMBER_TABLE
484 , p7_a4 JTF_NUMBER_TABLE
485 , p7_a5 JTF_VARCHAR2_TABLE_100
486 )
487 as
488 ddp_msite_currencies_tbl jtf_msite_grp.msite_currencies_tbl_type;
489 ddindx binary_integer; indx binary_integer;
490 begin
491
492 -- copy data to the local IN or IN-OUT args, if any
493
494
495
496
497
498
499
500 jtf_msite_grp_w.rosetta_table_copy_in_p7(ddp_msite_currencies_tbl, p7_a0
501 , p7_a1
502 , p7_a2
503 , p7_a3
504 , p7_a4
505 , p7_a5
506 );
507
508 -- here's the delegated call to the old PL/SQL routine
509 jtf_msite_grp.save_msite_currencies(p_api_version,
510 p_init_msg_list,
511 p_commit,
512 x_return_status,
513 x_msg_count,
514 x_msg_data,
515 p_msite_id,
516 ddp_msite_currencies_tbl);
517
518 -- copy data back from the local OUT or IN-OUT args, if any
519
520
521
522
523
524
525
526 end;
527
528 procedure save_msite_orgids(p_api_version NUMBER
529 , p_init_msg_list VARCHAR2
530 , p_commit VARCHAR2
531 , x_return_status out VARCHAR2
532 , x_msg_count out NUMBER
533 , x_msg_data out VARCHAR2
534 , p_msite_id NUMBER
535 , p7_a0 JTF_NUMBER_TABLE
536 , p7_a1 JTF_VARCHAR2_TABLE_100
537 )
538 as
539 ddp_msite_orgids_tbl jtf_msite_grp.msite_orgids_tbl_type;
540 ddindx binary_integer; indx binary_integer;
541 begin
542
543 -- copy data to the local IN or IN-OUT args, if any
544
545
546
547
548
549
550
551 jtf_msite_grp_w.rosetta_table_copy_in_p9(ddp_msite_orgids_tbl, p7_a0
552 , p7_a1
553 );
554
555 -- here's the delegated call to the old PL/SQL routine
556 jtf_msite_grp.save_msite_orgids(p_api_version,
557 p_init_msg_list,
558 p_commit,
559 x_return_status,
560 x_msg_count,
561 x_msg_data,
562 p_msite_id,
563 ddp_msite_orgids_tbl);
564
565 -- copy data back from the local OUT or IN-OUT args, if any
566
567
568
569
570
571
572
573 end;
574
575 procedure insert_row(x_rowid in out VARCHAR2
576 , x_msite_id NUMBER
577 , x_attribute_category VARCHAR2
578 , x_attribute1 VARCHAR2
579 , x_attribute2 VARCHAR2
580 , x_attribute3 VARCHAR2
581 , x_attribute4 VARCHAR2
582 , x_attribute5 VARCHAR2
583 , x_attribute6 VARCHAR2
584 , x_attribute7 VARCHAR2
585 , x_attribute8 VARCHAR2
586 , x_attribute9 VARCHAR2
587 , x_attribute11 VARCHAR2
588 , x_attribute10 VARCHAR2
589 , x_attribute12 VARCHAR2
590 , x_attribute13 VARCHAR2
591 , x_attribute14 VARCHAR2
592 , x_attribute15 VARCHAR2
593 , x_security_group_id NUMBER
594 , x_object_version_number NUMBER
595 , x_store_id NUMBER
596 , x_start_date_active date
597 , x_end_date_active date
598 , x_default_language_code VARCHAR2
599 , x_default_currency_code VARCHAR2
600 , x_default_date_format VARCHAR2
601 , x_default_org_id NUMBER
602 , x_atp_check_flag VARCHAR2
603 , x_walkin_allowed_flag VARCHAR2
604 , x_msite_root_section_id NUMBER
605 , x_profile_id NUMBER
606 , x_master_msite_flag VARCHAR2
607 , x_msite_name VARCHAR2
608 , x_msite_description VARCHAR2
609 , x_creation_date date
610 , x_created_by NUMBER
611 , x_last_update_date date
612 , x_last_updated_by NUMBER
613 , x_last_update_login NUMBER
614 , x_resp_access_flag VARCHAR2
615 , x_party_access_code VARCHAR2
616 , x_access_name VARCHAR2
617 , x_url VARCHAR2
618 , x_theme_id NUMBER
619 )
620 as
621 ddx_start_date_active date;
622 ddx_end_date_active date;
623 ddx_creation_date date;
624 ddx_last_update_date date;
625 ddindx binary_integer; indx binary_integer;
626 begin
627
628 -- copy data to the local IN or IN-OUT args, if any
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650 ddx_start_date_active := rosetta_g_miss_date_in_map(x_start_date_active);
651
652 ddx_end_date_active := rosetta_g_miss_date_in_map(x_end_date_active);
653
654
655
656
657
658
659
660
661
662
663
664
665 ddx_creation_date := rosetta_g_miss_date_in_map(x_creation_date);
666
667
668 ddx_last_update_date := rosetta_g_miss_date_in_map(x_last_update_date);
669
670
671
672
673
674
675
676
677 -- here's the delegated call to the old PL/SQL routine
678 jtf_msite_grp.insert_row(x_rowid,
679 x_msite_id,
680 x_attribute_category,
681 x_attribute1,
682 x_attribute2,
683 x_attribute3,
684 x_attribute4,
685 x_attribute5,
686 x_attribute6,
687 x_attribute7,
688 x_attribute8,
689 x_attribute9,
690 x_attribute11,
691 x_attribute10,
692 x_attribute12,
693 x_attribute13,
694 x_attribute14,
695 x_attribute15,
696 x_security_group_id,
697 x_object_version_number,
698 x_store_id,
699 ddx_start_date_active,
700 ddx_end_date_active,
701 x_default_language_code,
702 x_default_currency_code,
703 x_default_date_format,
704 x_default_org_id,
705 x_atp_check_flag,
706 x_walkin_allowed_flag,
707 x_msite_root_section_id,
708 x_profile_id,
709 x_master_msite_flag,
710 x_msite_name,
711 x_msite_description,
712 ddx_creation_date,
713 x_created_by,
714 ddx_last_update_date,
715 x_last_updated_by,
716 x_last_update_login,
717 x_resp_access_flag,
718 x_party_access_code,
719 x_access_name,
720 x_url,
721 x_theme_id);
722
723 -- copy data back from the local OUT or IN-OUT args, if any
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767 end;
768
769 procedure lock_row(x_msite_id NUMBER
770 , x_attribute_category VARCHAR2
771 , x_attribute1 VARCHAR2
772 , x_attribute2 VARCHAR2
773 , x_attribute3 VARCHAR2
774 , x_attribute4 VARCHAR2
775 , x_attribute5 VARCHAR2
776 , x_attribute6 VARCHAR2
777 , x_attribute7 VARCHAR2
778 , x_attribute8 VARCHAR2
779 , x_attribute9 VARCHAR2
780 , x_attribute11 VARCHAR2
781 , x_attribute10 VARCHAR2
782 , x_attribute12 VARCHAR2
783 , x_attribute13 VARCHAR2
784 , x_attribute14 VARCHAR2
785 , x_attribute15 VARCHAR2
786 , x_security_group_id NUMBER
787 , x_object_version_number NUMBER
788 , x_store_id NUMBER
789 , x_start_date_active date
790 , x_end_date_active date
791 , x_default_language_code VARCHAR2
792 , x_default_currency_code VARCHAR2
793 , x_default_date_format VARCHAR2
794 , x_default_org_id NUMBER
795 , x_atp_check_flag VARCHAR2
796 , x_walkin_allowed_flag VARCHAR2
797 , x_msite_root_section_id NUMBER
798 , x_profile_id NUMBER
799 , x_master_msite_flag VARCHAR2
800 , x_msite_name VARCHAR2
801 , x_msite_description VARCHAR2
802 , x_resp_access_flag VARCHAR2
803 , x_party_access_code VARCHAR2
804 , x_access_name VARCHAR2
805 , x_url VARCHAR2
806 , x_theme_id NUMBER
807 )
808 as
809 ddx_start_date_active date;
810 ddx_end_date_active date;
811 ddindx binary_integer; indx binary_integer;
812 begin
813
814 -- copy data to the local IN or IN-OUT args, if any
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835 ddx_start_date_active := rosetta_g_miss_date_in_map(x_start_date_active);
836
837 ddx_end_date_active := rosetta_g_miss_date_in_map(x_end_date_active);
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855 -- here's the delegated call to the old PL/SQL routine
856 jtf_msite_grp.lock_row(x_msite_id,
857 x_attribute_category,
858 x_attribute1,
859 x_attribute2,
860 x_attribute3,
861 x_attribute4,
862 x_attribute5,
863 x_attribute6,
864 x_attribute7,
865 x_attribute8,
866 x_attribute9,
867 x_attribute11,
868 x_attribute10,
869 x_attribute12,
870 x_attribute13,
871 x_attribute14,
872 x_attribute15,
873 x_security_group_id,
874 x_object_version_number,
875 x_store_id,
876 ddx_start_date_active,
877 ddx_end_date_active,
878 x_default_language_code,
879 x_default_currency_code,
880 x_default_date_format,
881 x_default_org_id,
882 x_atp_check_flag,
883 x_walkin_allowed_flag,
884 x_msite_root_section_id,
885 x_profile_id,
886 x_master_msite_flag,
887 x_msite_name,
888 x_msite_description,
889 x_resp_access_flag,
890 x_party_access_code,
891 x_access_name,
892 x_url,
893 x_theme_id);
894
895 -- copy data back from the local OUT or IN-OUT args, if any
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933 end;
934
935 procedure update_row(x_msite_id NUMBER
936 , x_attribute_category VARCHAR2
937 , x_attribute1 VARCHAR2
938 , x_attribute2 VARCHAR2
939 , x_attribute3 VARCHAR2
940 , x_attribute4 VARCHAR2
941 , x_attribute5 VARCHAR2
942 , x_attribute6 VARCHAR2
943 , x_attribute7 VARCHAR2
944 , x_attribute8 VARCHAR2
945 , x_attribute9 VARCHAR2
946 , x_attribute11 VARCHAR2
947 , x_attribute10 VARCHAR2
948 , x_attribute12 VARCHAR2
949 , x_attribute13 VARCHAR2
950 , x_attribute14 VARCHAR2
951 , x_attribute15 VARCHAR2
952 , x_security_group_id NUMBER
953 , x_object_version_number NUMBER
954 , x_store_id NUMBER
955 , x_start_date_active date
956 , x_end_date_active date
957 , x_default_language_code VARCHAR2
958 , x_default_currency_code VARCHAR2
959 , x_default_date_format VARCHAR2
960 , x_default_org_id NUMBER
961 , x_atp_check_flag VARCHAR2
962 , x_walkin_allowed_flag VARCHAR2
963 , x_msite_root_section_id NUMBER
964 , x_profile_id NUMBER
965 , x_master_msite_flag VARCHAR2
966 , x_msite_name VARCHAR2
967 , x_msite_description VARCHAR2
968 , x_last_update_date date
969 , x_last_updated_by NUMBER
970 , x_last_update_login NUMBER
971 , x_resp_access_flag VARCHAR2
972 , x_party_access_code VARCHAR2
973 , x_access_name VARCHAR2
974 , x_url VARCHAR2
975 , x_theme_id NUMBER
976 )
977 as
978 ddx_start_date_active date;
979 ddx_end_date_active date;
980 ddx_last_update_date date;
981 ddindx binary_integer; indx binary_integer;
982 begin
983
984 -- copy data to the local IN or IN-OUT args, if any
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005 ddx_start_date_active := rosetta_g_miss_date_in_map(x_start_date_active);
1006
1007 ddx_end_date_active := rosetta_g_miss_date_in_map(x_end_date_active);
1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018
1019
1020 ddx_last_update_date := rosetta_g_miss_date_in_map(x_last_update_date);
1021
1022
1023
1024
1025
1026
1027
1028
1029 -- here's the delegated call to the old PL/SQL routine
1030 jtf_msite_grp.update_row(x_msite_id,
1031 x_attribute_category,
1032 x_attribute1,
1033 x_attribute2,
1034 x_attribute3,
1035 x_attribute4,
1036 x_attribute5,
1037 x_attribute6,
1038 x_attribute7,
1039 x_attribute8,
1040 x_attribute9,
1041 x_attribute11,
1042 x_attribute10,
1043 x_attribute12,
1044 x_attribute13,
1045 x_attribute14,
1046 x_attribute15,
1047 x_security_group_id,
1048 x_object_version_number,
1049 x_store_id,
1050 ddx_start_date_active,
1051 ddx_end_date_active,
1052 x_default_language_code,
1053 x_default_currency_code,
1054 x_default_date_format,
1055 x_default_org_id,
1056 x_atp_check_flag,
1057 x_walkin_allowed_flag,
1058 x_msite_root_section_id,
1059 x_profile_id,
1060 x_master_msite_flag,
1061 x_msite_name,
1062 x_msite_description,
1063 ddx_last_update_date,
1064 x_last_updated_by,
1065 x_last_update_login,
1066 x_resp_access_flag,
1067 x_party_access_code,
1068 x_access_name,
1069 x_url,
1070 x_theme_id);
1071
1072 -- copy data back from the local OUT or IN-OUT args, if any
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
1113 end;
1114
1115 procedure load_row(x_msite_id NUMBER
1116 , x_owner VARCHAR2
1117 , x_attribute_category VARCHAR2
1118 , x_attribute1 VARCHAR2
1119 , x_attribute2 VARCHAR2
1120 , x_attribute3 VARCHAR2
1121 , x_attribute4 VARCHAR2
1122 , x_attribute5 VARCHAR2
1123 , x_attribute6 VARCHAR2
1124 , x_attribute7 VARCHAR2
1125 , x_attribute8 VARCHAR2
1126 , x_attribute9 VARCHAR2
1127 , x_attribute11 VARCHAR2
1128 , x_attribute10 VARCHAR2
1129 , x_attribute12 VARCHAR2
1130 , x_attribute13 VARCHAR2
1131 , x_attribute14 VARCHAR2
1132 , x_attribute15 VARCHAR2
1133 , x_security_group_id NUMBER
1134 , x_object_version_number NUMBER
1135 , x_store_id NUMBER
1136 , x_start_date_active date
1137 , x_end_date_active date
1138 , x_default_language_code VARCHAR2
1139 , x_default_currency_code VARCHAR2
1140 , x_default_date_format VARCHAR2
1141 , x_default_org_id NUMBER
1142 , x_atp_check_flag VARCHAR2
1143 , x_walkin_allowed_flag VARCHAR2
1144 , x_msite_root_section_id NUMBER
1145 , x_profile_id NUMBER
1146 , x_master_msite_flag VARCHAR2
1147 , x_msite_name VARCHAR2
1148 , x_msite_description VARCHAR2
1149 , x_resp_access_flag VARCHAR2
1150 , x_party_access_code VARCHAR2
1151 , x_access_name VARCHAR2
1152 , x_url VARCHAR2
1153 , x_theme_id NUMBER
1154 )
1155 as
1156 ddx_start_date_active date;
1157 ddx_end_date_active date;
1158 ddindx binary_integer; indx binary_integer;
1159 begin
1160
1161 -- copy data to the local IN or IN-OUT args, if any
1162
1163
1164
1165
1166
1167
1168
1169
1170
1171
1172
1173
1174
1175
1176
1177
1178
1179
1180
1181
1182
1183 ddx_start_date_active := rosetta_g_miss_date_in_map(x_start_date_active);
1184
1185 ddx_end_date_active := rosetta_g_miss_date_in_map(x_end_date_active);
1186
1187
1188
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203 -- here's the delegated call to the old PL/SQL routine
1204 jtf_msite_grp.load_row(x_msite_id,
1205 x_owner,
1206 x_attribute_category,
1207 x_attribute1,
1208 x_attribute2,
1209 x_attribute3,
1210 x_attribute4,
1211 x_attribute5,
1212 x_attribute6,
1213 x_attribute7,
1214 x_attribute8,
1215 x_attribute9,
1216 x_attribute11,
1217 x_attribute10,
1218 x_attribute12,
1219 x_attribute13,
1220 x_attribute14,
1221 x_attribute15,
1222 x_security_group_id,
1223 x_object_version_number,
1224 x_store_id,
1225 ddx_start_date_active,
1226 ddx_end_date_active,
1227 x_default_language_code,
1228 x_default_currency_code,
1229 x_default_date_format,
1230 x_default_org_id,
1231 x_atp_check_flag,
1232 x_walkin_allowed_flag,
1233 x_msite_root_section_id,
1234 x_profile_id,
1235 x_master_msite_flag,
1236 x_msite_name,
1237 x_msite_description,
1238 x_resp_access_flag,
1239 x_party_access_code,
1240 x_access_name,
1241 x_url,
1242 x_theme_id);
1243
1244 -- copy data back from the local OUT or IN-OUT args, if any
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
1259
1260
1261
1262
1263
1264
1265
1266
1267
1268
1269
1270
1271
1272
1273
1274
1275
1276
1277
1278
1279
1280
1281
1282
1283 end;
1284
1285 end jtf_msite_grp_w;