1: package body amv_item_pub_w as
2: /* $Header: amvwitmb.pls 120.2 2005/06/30 08:04 appldev 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p0(t out nocopy amv_item_pub.amv_char_varray_type, a0 JTF_VARCHAR2_TABLE_4000) as
23: ddindx binary_integer; indx binary_integer;
24: begin
25: if a0 is null then
26: t := null;
24: begin
25: if a0 is null then
26: t := null;
27: elsif a0.count = 0 then
28: t := amv_item_pub.amv_char_varray_type();
29: else
30: if a0.count > 0 then
31: t := amv_item_pub.amv_char_varray_type();
32: t.extend(a0.count);
27: elsif a0.count = 0 then
28: t := amv_item_pub.amv_char_varray_type();
29: else
30: if a0.count > 0 then
31: t := amv_item_pub.amv_char_varray_type();
32: t.extend(a0.count);
33: indx := a0.first;
34: ddindx := 1;
35: while true loop
42: end loop;
43: end if;
44: end if;
45: end rosetta_table_copy_in_p0;
46: procedure rosetta_table_copy_out_p0(t amv_item_pub.amv_char_varray_type, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
47: ddindx binary_integer; indx binary_integer;
48: begin
49: if t is null then
50: a0 := null;
67: end if;
68: end if;
69: end rosetta_table_copy_out_p0;
70:
71: procedure rosetta_table_copy_in_p1(t out nocopy amv_item_pub.amv_number_varray_type, a0 JTF_NUMBER_TABLE) as
72: ddindx binary_integer; indx binary_integer;
73: begin
74: if a0 is null then
75: t := null;
73: begin
74: if a0 is null then
75: t := null;
76: elsif a0.count = 0 then
77: t := amv_item_pub.amv_number_varray_type();
78: else
79: if a0.count > 0 then
80: t := amv_item_pub.amv_number_varray_type();
81: t.extend(a0.count);
76: elsif a0.count = 0 then
77: t := amv_item_pub.amv_number_varray_type();
78: else
79: if a0.count > 0 then
80: t := amv_item_pub.amv_number_varray_type();
81: t.extend(a0.count);
82: indx := a0.first;
83: ddindx := 1;
84: while true loop
91: end loop;
92: end if;
93: end if;
94: end rosetta_table_copy_in_p1;
95: procedure rosetta_table_copy_out_p1(t amv_item_pub.amv_number_varray_type, a0 out nocopy JTF_NUMBER_TABLE) as
96: ddindx binary_integer; indx binary_integer;
97: begin
98: if t is null then
99: a0 := null;
116: end if;
117: end if;
118: end rosetta_table_copy_out_p1;
119:
120: procedure rosetta_table_copy_in_p6(t out nocopy amv_item_pub.amv_simple_item_obj_varray, a0 JTF_NUMBER_TABLE
121: , a1 JTF_NUMBER_TABLE
122: , a2 JTF_DATE_TABLE
123: , a3 JTF_NUMBER_TABLE
124: , a4 JTF_DATE_TABLE
149: ) as
150: ddindx binary_integer; indx binary_integer;
151: begin
152: if a0 is not null and a0.count=0 then
153: t := amv_item_pub.amv_simple_item_obj_varray();
154: elsif a0 is not null and a0.count > 0 then
155: if a0.count > 0 then
156: t := amv_item_pub.amv_simple_item_obj_varray();
157: t.extend(a0.count);
152: if a0 is not null and a0.count=0 then
153: t := amv_item_pub.amv_simple_item_obj_varray();
154: elsif a0 is not null and a0.count > 0 then
155: if a0.count > 0 then
156: t := amv_item_pub.amv_simple_item_obj_varray();
157: t.extend(a0.count);
158: indx := a0.first;
159: ddindx := 1;
160: while true loop
195: end loop;
196: end if;
197: end if;
198: end rosetta_table_copy_in_p6;
199: procedure rosetta_table_copy_out_p6(t amv_item_pub.amv_simple_item_obj_varray, a0 out nocopy JTF_NUMBER_TABLE
200: , a1 out nocopy JTF_NUMBER_TABLE
201: , a2 out nocopy JTF_DATE_TABLE
202: , a3 out nocopy JTF_NUMBER_TABLE
203: , a4 out nocopy JTF_DATE_TABLE
389: end if;
390: end if;
391: end rosetta_table_copy_out_p6;
392:
393: procedure rosetta_table_copy_in_p8(t out nocopy amv_item_pub.amv_nameid_varray_type, a0 JTF_NUMBER_TABLE
394: , a1 JTF_VARCHAR2_TABLE_300
395: ) as
396: ddindx binary_integer; indx binary_integer;
397: begin
395: ) as
396: ddindx binary_integer; indx binary_integer;
397: begin
398: if a0 is not null and a0.count=0 then
399: t := amv_item_pub.amv_nameid_varray_type();
400: elsif a0 is not null and a0.count > 0 then
401: if a0.count > 0 then
402: t := amv_item_pub.amv_nameid_varray_type();
403: t.extend(a0.count);
398: if a0 is not null and a0.count=0 then
399: t := amv_item_pub.amv_nameid_varray_type();
400: elsif a0 is not null and a0.count > 0 then
401: if a0.count > 0 then
402: t := amv_item_pub.amv_nameid_varray_type();
403: t.extend(a0.count);
404: indx := a0.first;
405: ddindx := 1;
406: while true loop
414: end loop;
415: end if;
416: end if;
417: end rosetta_table_copy_in_p8;
418: procedure rosetta_table_copy_out_p8(t amv_item_pub.amv_nameid_varray_type, a0 out nocopy JTF_NUMBER_TABLE
419: , a1 out nocopy JTF_VARCHAR2_TABLE_300
420: ) as
421: ddindx binary_integer; indx binary_integer;
422: begin
487: , p8_a23 VARCHAR2 := fnd_api.g_miss_char
488: )
489:
490: as
491: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
492: ddp_item_obj amv_item_pub.amv_item_obj_type;
493: ddp_file_array amv_item_pub.amv_number_varray_type;
494: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495: ddp_author_array amv_item_pub.amv_char_varray_type;
488: )
489:
490: as
491: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
492: ddp_item_obj amv_item_pub.amv_item_obj_type;
493: ddp_file_array amv_item_pub.amv_number_varray_type;
494: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495: ddp_author_array amv_item_pub.amv_char_varray_type;
496: ddp_keyword_array amv_item_pub.amv_char_varray_type;
489:
490: as
491: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
492: ddp_item_obj amv_item_pub.amv_item_obj_type;
493: ddp_file_array amv_item_pub.amv_number_varray_type;
494: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495: ddp_author_array amv_item_pub.amv_char_varray_type;
496: ddp_keyword_array amv_item_pub.amv_char_varray_type;
497: ddindx binary_integer; indx binary_integer;
490: as
491: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
492: ddp_item_obj amv_item_pub.amv_item_obj_type;
493: ddp_file_array amv_item_pub.amv_number_varray_type;
494: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495: ddp_author_array amv_item_pub.amv_char_varray_type;
496: ddp_keyword_array amv_item_pub.amv_char_varray_type;
497: ddindx binary_integer; indx binary_integer;
498: begin
491: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
492: ddp_item_obj amv_item_pub.amv_item_obj_type;
493: ddp_file_array amv_item_pub.amv_number_varray_type;
494: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495: ddp_author_array amv_item_pub.amv_char_varray_type;
496: ddp_keyword_array amv_item_pub.amv_char_varray_type;
497: ddindx binary_integer; indx binary_integer;
498: begin
499:
492: ddp_item_obj amv_item_pub.amv_item_obj_type;
493: ddp_file_array amv_item_pub.amv_number_varray_type;
494: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
495: ddp_author_array amv_item_pub.amv_char_varray_type;
496: ddp_keyword_array amv_item_pub.amv_char_varray_type;
497: ddindx binary_integer; indx binary_integer;
498: begin
499:
500: -- copy data to the local IN or IN-OUT args, if any
504:
505:
506:
507:
508: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_channel_id_array, p_channel_id_array);
509:
510: ddp_item_obj.item_id := rosetta_g_miss_num_map(p8_a0);
511: ddp_item_obj.object_version_number := rosetta_g_miss_num_map(p8_a1);
512: ddp_item_obj.creation_date := rosetta_g_miss_date_in_map(p8_a2);
531: ddp_item_obj.owner_id := rosetta_g_miss_num_map(p8_a21);
532: ddp_item_obj.default_approver_id := rosetta_g_miss_num_map(p8_a22);
533: ddp_item_obj.item_destination_type := p8_a23;
534:
535: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_array, p_file_array);
536:
537: amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
538: , p10_a1
539: );
533: ddp_item_obj.item_destination_type := p8_a23;
534:
535: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_array, p_file_array);
536:
537: amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
538: , p10_a1
539: );
540:
541: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
537: amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
538: , p10_a1
539: );
540:
541: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
542:
543: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
544:
545:
539: );
540:
541: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
542:
543: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
544:
545:
546: -- here's the delegated call to the old PL/SQL routine
547: amv_item_pub.create_item(p_api_version,
543: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
544:
545:
546: -- here's the delegated call to the old PL/SQL routine
547: amv_item_pub.create_item(p_api_version,
548: p_init_msg_list,
549: p_commit,
550: x_return_status,
551: x_msg_count,
614: , p8_a23 VARCHAR2 := fnd_api.g_miss_char
615: )
616:
617: as
618: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
619: ddp_item_obj amv_item_pub.amv_item_obj_type;
620: ddp_file_array amv_item_pub.amv_number_varray_type;
621: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622: ddp_author_array amv_item_pub.amv_char_varray_type;
615: )
616:
617: as
618: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
619: ddp_item_obj amv_item_pub.amv_item_obj_type;
620: ddp_file_array amv_item_pub.amv_number_varray_type;
621: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622: ddp_author_array amv_item_pub.amv_char_varray_type;
623: ddp_keyword_array amv_item_pub.amv_char_varray_type;
616:
617: as
618: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
619: ddp_item_obj amv_item_pub.amv_item_obj_type;
620: ddp_file_array amv_item_pub.amv_number_varray_type;
621: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622: ddp_author_array amv_item_pub.amv_char_varray_type;
623: ddp_keyword_array amv_item_pub.amv_char_varray_type;
624: ddindx binary_integer; indx binary_integer;
617: as
618: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
619: ddp_item_obj amv_item_pub.amv_item_obj_type;
620: ddp_file_array amv_item_pub.amv_number_varray_type;
621: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622: ddp_author_array amv_item_pub.amv_char_varray_type;
623: ddp_keyword_array amv_item_pub.amv_char_varray_type;
624: ddindx binary_integer; indx binary_integer;
625: begin
618: ddp_channel_id_array amv_item_pub.amv_number_varray_type;
619: ddp_item_obj amv_item_pub.amv_item_obj_type;
620: ddp_file_array amv_item_pub.amv_number_varray_type;
621: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622: ddp_author_array amv_item_pub.amv_char_varray_type;
623: ddp_keyword_array amv_item_pub.amv_char_varray_type;
624: ddindx binary_integer; indx binary_integer;
625: begin
626:
619: ddp_item_obj amv_item_pub.amv_item_obj_type;
620: ddp_file_array amv_item_pub.amv_number_varray_type;
621: ddp_persp_array amv_item_pub.amv_nameid_varray_type;
622: ddp_author_array amv_item_pub.amv_char_varray_type;
623: ddp_keyword_array amv_item_pub.amv_char_varray_type;
624: ddindx binary_integer; indx binary_integer;
625: begin
626:
627: -- copy data to the local IN or IN-OUT args, if any
631:
632:
633:
634:
635: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_channel_id_array, p_channel_id_array);
636:
637: ddp_item_obj.item_id := rosetta_g_miss_num_map(p8_a0);
638: ddp_item_obj.object_version_number := rosetta_g_miss_num_map(p8_a1);
639: ddp_item_obj.creation_date := rosetta_g_miss_date_in_map(p8_a2);
658: ddp_item_obj.owner_id := rosetta_g_miss_num_map(p8_a21);
659: ddp_item_obj.default_approver_id := rosetta_g_miss_num_map(p8_a22);
660: ddp_item_obj.item_destination_type := p8_a23;
661:
662: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_array, p_file_array);
663:
664: amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
665: , p10_a1
666: );
660: ddp_item_obj.item_destination_type := p8_a23;
661:
662: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_array, p_file_array);
663:
664: amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
665: , p10_a1
666: );
667:
668: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
664: amv_item_pub_w.rosetta_table_copy_in_p8(ddp_persp_array, p10_a0
665: , p10_a1
666: );
667:
668: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
669:
670: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
671:
672: -- here's the delegated call to the old PL/SQL routine
666: );
667:
668: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_array, p_author_array);
669:
670: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
671:
672: -- here's the delegated call to the old PL/SQL routine
673: amv_item_pub.update_item(p_api_version,
674: p_init_msg_list,
669:
670: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_array, p_keyword_array);
671:
672: -- here's the delegated call to the old PL/SQL routine
673: amv_item_pub.update_item(p_api_version,
674: p_init_msg_list,
675: p_commit,
676: x_return_status,
677: x_msg_count,
737: , x_keyword_array out nocopy JTF_VARCHAR2_TABLE_4000
738: )
739:
740: as
741: ddx_item_obj amv_item_pub.amv_item_obj_type;
742: ddx_file_array amv_item_pub.amv_number_varray_type;
743: ddx_persp_array amv_item_pub.amv_nameid_varray_type;
744: ddx_author_array amv_item_pub.amv_char_varray_type;
745: ddx_keyword_array amv_item_pub.amv_char_varray_type;
738: )
739:
740: as
741: ddx_item_obj amv_item_pub.amv_item_obj_type;
742: ddx_file_array amv_item_pub.amv_number_varray_type;
743: ddx_persp_array amv_item_pub.amv_nameid_varray_type;
744: ddx_author_array amv_item_pub.amv_char_varray_type;
745: ddx_keyword_array amv_item_pub.amv_char_varray_type;
746: ddindx binary_integer; indx binary_integer;
739:
740: as
741: ddx_item_obj amv_item_pub.amv_item_obj_type;
742: ddx_file_array amv_item_pub.amv_number_varray_type;
743: ddx_persp_array amv_item_pub.amv_nameid_varray_type;
744: ddx_author_array amv_item_pub.amv_char_varray_type;
745: ddx_keyword_array amv_item_pub.amv_char_varray_type;
746: ddindx binary_integer; indx binary_integer;
747: begin
740: as
741: ddx_item_obj amv_item_pub.amv_item_obj_type;
742: ddx_file_array amv_item_pub.amv_number_varray_type;
743: ddx_persp_array amv_item_pub.amv_nameid_varray_type;
744: ddx_author_array amv_item_pub.amv_char_varray_type;
745: ddx_keyword_array amv_item_pub.amv_char_varray_type;
746: ddindx binary_integer; indx binary_integer;
747: begin
748:
741: ddx_item_obj amv_item_pub.amv_item_obj_type;
742: ddx_file_array amv_item_pub.amv_number_varray_type;
743: ddx_persp_array amv_item_pub.amv_nameid_varray_type;
744: ddx_author_array amv_item_pub.amv_char_varray_type;
745: ddx_keyword_array amv_item_pub.amv_char_varray_type;
746: ddindx binary_integer; indx binary_integer;
747: begin
748:
749: -- copy data to the local IN or IN-OUT args, if any
759:
760:
761:
762: -- here's the delegated call to the old PL/SQL routine
763: amv_item_pub.get_item(p_api_version,
764: p_init_msg_list,
765: x_return_status,
766: x_msg_count,
767: x_msg_data,
805: p7_a21 := rosetta_g_miss_num_map(ddx_item_obj.owner_id);
806: p7_a22 := rosetta_g_miss_num_map(ddx_item_obj.default_approver_id);
807: p7_a23 := ddx_item_obj.item_destination_type;
808:
809: amv_item_pub_w.rosetta_table_copy_out_p1(ddx_file_array, x_file_array);
810:
811: amv_item_pub_w.rosetta_table_copy_out_p8(ddx_persp_array, p9_a0
812: , p9_a1
813: );
807: p7_a23 := ddx_item_obj.item_destination_type;
808:
809: amv_item_pub_w.rosetta_table_copy_out_p1(ddx_file_array, x_file_array);
810:
811: amv_item_pub_w.rosetta_table_copy_out_p8(ddx_persp_array, p9_a0
812: , p9_a1
813: );
814:
815: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_author_array, x_author_array);
811: amv_item_pub_w.rosetta_table_copy_out_p8(ddx_persp_array, p9_a0
812: , p9_a1
813: );
814:
815: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_author_array, x_author_array);
816:
817: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_keyword_array, x_keyword_array);
818: end;
819:
813: );
814:
815: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_author_array, x_author_array);
816:
817: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_keyword_array, x_keyword_array);
818: end;
819:
820: procedure find_item(p_api_version NUMBER
821: , p_init_msg_list VARCHAR2
863: , p9_a2 VARCHAR2 := fnd_api.g_miss_char
864: )
865:
866: as
867: ddp_subset_request_obj amv_item_pub.amv_request_obj_type;
868: ddx_subset_return_obj amv_item_pub.amv_return_obj_type;
869: ddx_item_obj_array amv_item_pub.amv_simple_item_obj_varray;
870: ddindx binary_integer; indx binary_integer;
871: begin
864: )
865:
866: as
867: ddp_subset_request_obj amv_item_pub.amv_request_obj_type;
868: ddx_subset_return_obj amv_item_pub.amv_return_obj_type;
869: ddx_item_obj_array amv_item_pub.amv_simple_item_obj_varray;
870: ddindx binary_integer; indx binary_integer;
871: begin
872:
865:
866: as
867: ddp_subset_request_obj amv_item_pub.amv_request_obj_type;
868: ddx_subset_return_obj amv_item_pub.amv_return_obj_type;
869: ddx_item_obj_array amv_item_pub.amv_simple_item_obj_varray;
870: ddindx binary_integer; indx binary_integer;
871: begin
872:
873: -- copy data to the local IN or IN-OUT args, if any
886:
887:
888:
889: -- here's the delegated call to the old PL/SQL routine
890: amv_item_pub.find_item(p_api_version,
891: p_init_msg_list,
892: x_return_status,
893: x_msg_count,
894: x_msg_data,
914: p10_a0 := rosetta_g_miss_num_map(ddx_subset_return_obj.returned_record_count);
915: p10_a1 := rosetta_g_miss_num_map(ddx_subset_return_obj.next_record_position);
916: p10_a2 := rosetta_g_miss_num_map(ddx_subset_return_obj.total_record_count);
917:
918: amv_item_pub_w.rosetta_table_copy_out_p6(ddx_item_obj_array, p11_a0
919: , p11_a1
920: , p11_a2
921: , p11_a3
922: , p11_a4
958: , p_keyword_varray JTF_VARCHAR2_TABLE_4000
959: )
960:
961: as
962: ddp_keyword_varray amv_item_pub.amv_char_varray_type;
963: ddindx binary_integer; indx binary_integer;
964: begin
965:
966: -- copy data to the local IN or IN-OUT args, if any
971:
972:
973:
974:
975: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
976:
977: -- here's the delegated call to the old PL/SQL routine
978: amv_item_pub.add_itemkeyword(p_api_version,
979: p_init_msg_list,
974:
975: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
976:
977: -- here's the delegated call to the old PL/SQL routine
978: amv_item_pub.add_itemkeyword(p_api_version,
979: p_init_msg_list,
980: p_commit,
981: x_return_status,
982: x_msg_count,
1007: , p_keyword_varray JTF_VARCHAR2_TABLE_4000
1008: )
1009:
1010: as
1011: ddp_keyword_varray amv_item_pub.amv_char_varray_type;
1012: ddindx binary_integer; indx binary_integer;
1013: begin
1014:
1015: -- copy data to the local IN or IN-OUT args, if any
1020:
1021:
1022:
1023:
1024: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
1025:
1026: -- here's the delegated call to the old PL/SQL routine
1027: amv_item_pub.delete_itemkeyword(p_api_version,
1028: p_init_msg_list,
1023:
1024: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
1025:
1026: -- here's the delegated call to the old PL/SQL routine
1027: amv_item_pub.delete_itemkeyword(p_api_version,
1028: p_init_msg_list,
1029: p_commit,
1030: x_return_status,
1031: x_msg_count,
1056: , p_keyword_varray JTF_VARCHAR2_TABLE_4000
1057: )
1058:
1059: as
1060: ddp_keyword_varray amv_item_pub.amv_char_varray_type;
1061: ddindx binary_integer; indx binary_integer;
1062: begin
1063:
1064: -- copy data to the local IN or IN-OUT args, if any
1069:
1070:
1071:
1072:
1073: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
1074:
1075: -- here's the delegated call to the old PL/SQL routine
1076: amv_item_pub.replace_itemkeyword(p_api_version,
1077: p_init_msg_list,
1072:
1073: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_keyword_varray, p_keyword_varray);
1074:
1075: -- here's the delegated call to the old PL/SQL routine
1076: amv_item_pub.replace_itemkeyword(p_api_version,
1077: p_init_msg_list,
1078: p_commit,
1079: x_return_status,
1080: x_msg_count,
1104: , x_keyword_varray out nocopy JTF_VARCHAR2_TABLE_4000
1105: )
1106:
1107: as
1108: ddx_keyword_varray amv_item_pub.amv_char_varray_type;
1109: ddindx binary_integer; indx binary_integer;
1110: begin
1111:
1112: -- copy data to the local IN or IN-OUT args, if any
1118:
1119:
1120:
1121: -- here's the delegated call to the old PL/SQL routine
1122: amv_item_pub.get_itemkeyword(p_api_version,
1123: p_init_msg_list,
1124: x_return_status,
1125: x_msg_count,
1126: x_msg_data,
1135:
1136:
1137:
1138:
1139: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_keyword_varray, x_keyword_varray);
1140: end;
1141:
1142: procedure add_itemauthor(p_api_version NUMBER
1143: , p_init_msg_list VARCHAR2
1150: , p_author_varray JTF_VARCHAR2_TABLE_4000
1151: )
1152:
1153: as
1154: ddp_author_varray amv_item_pub.amv_char_varray_type;
1155: ddindx binary_integer; indx binary_integer;
1156: begin
1157:
1158: -- copy data to the local IN or IN-OUT args, if any
1163:
1164:
1165:
1166:
1167: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1168:
1169: -- here's the delegated call to the old PL/SQL routine
1170: amv_item_pub.add_itemauthor(p_api_version,
1171: p_init_msg_list,
1166:
1167: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1168:
1169: -- here's the delegated call to the old PL/SQL routine
1170: amv_item_pub.add_itemauthor(p_api_version,
1171: p_init_msg_list,
1172: p_commit,
1173: x_return_status,
1174: x_msg_count,
1199: , p_author_varray JTF_VARCHAR2_TABLE_4000
1200: )
1201:
1202: as
1203: ddp_author_varray amv_item_pub.amv_char_varray_type;
1204: ddindx binary_integer; indx binary_integer;
1205: begin
1206:
1207: -- copy data to the local IN or IN-OUT args, if any
1212:
1213:
1214:
1215:
1216: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1217:
1218: -- here's the delegated call to the old PL/SQL routine
1219: amv_item_pub.delete_itemauthor(p_api_version,
1220: p_init_msg_list,
1215:
1216: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1217:
1218: -- here's the delegated call to the old PL/SQL routine
1219: amv_item_pub.delete_itemauthor(p_api_version,
1220: p_init_msg_list,
1221: p_commit,
1222: x_return_status,
1223: x_msg_count,
1248: , p_author_varray JTF_VARCHAR2_TABLE_4000
1249: )
1250:
1251: as
1252: ddp_author_varray amv_item_pub.amv_char_varray_type;
1253: ddindx binary_integer; indx binary_integer;
1254: begin
1255:
1256: -- copy data to the local IN or IN-OUT args, if any
1261:
1262:
1263:
1264:
1265: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1266:
1267: -- here's the delegated call to the old PL/SQL routine
1268: amv_item_pub.replace_itemauthor(p_api_version,
1269: p_init_msg_list,
1264:
1265: amv_item_pub_w.rosetta_table_copy_in_p0(ddp_author_varray, p_author_varray);
1266:
1267: -- here's the delegated call to the old PL/SQL routine
1268: amv_item_pub.replace_itemauthor(p_api_version,
1269: p_init_msg_list,
1270: p_commit,
1271: x_return_status,
1272: x_msg_count,
1296: , x_author_varray out nocopy JTF_VARCHAR2_TABLE_4000
1297: )
1298:
1299: as
1300: ddx_author_varray amv_item_pub.amv_char_varray_type;
1301: ddindx binary_integer; indx binary_integer;
1302: begin
1303:
1304: -- copy data to the local IN or IN-OUT args, if any
1310:
1311:
1312:
1313: -- here's the delegated call to the old PL/SQL routine
1314: amv_item_pub.get_itemauthor(p_api_version,
1315: p_init_msg_list,
1316: x_return_status,
1317: x_msg_count,
1318: x_msg_data,
1327:
1328:
1329:
1330:
1331: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_author_varray, x_author_varray);
1332: end;
1333:
1334: procedure add_itemfile(p_api_version NUMBER
1335: , p_init_msg_list VARCHAR2
1343: , p_file_id_varray JTF_NUMBER_TABLE
1344: )
1345:
1346: as
1347: ddp_file_id_varray amv_item_pub.amv_number_varray_type;
1348: ddindx binary_integer; indx binary_integer;
1349: begin
1350:
1351: -- copy data to the local IN or IN-OUT args, if any
1357:
1358:
1359:
1360:
1361: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1362:
1363: -- here's the delegated call to the old PL/SQL routine
1364: amv_item_pub.add_itemfile(p_api_version,
1365: p_init_msg_list,
1360:
1361: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1362:
1363: -- here's the delegated call to the old PL/SQL routine
1364: amv_item_pub.add_itemfile(p_api_version,
1365: p_init_msg_list,
1366: p_commit,
1367: x_return_status,
1368: x_msg_count,
1395: , p_file_id_varray JTF_NUMBER_TABLE
1396: )
1397:
1398: as
1399: ddp_file_id_varray amv_item_pub.amv_number_varray_type;
1400: ddindx binary_integer; indx binary_integer;
1401: begin
1402:
1403: -- copy data to the local IN or IN-OUT args, if any
1408:
1409:
1410:
1411:
1412: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1413:
1414: -- here's the delegated call to the old PL/SQL routine
1415: amv_item_pub.delete_itemfile(p_api_version,
1416: p_init_msg_list,
1411:
1412: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1413:
1414: -- here's the delegated call to the old PL/SQL routine
1415: amv_item_pub.delete_itemfile(p_api_version,
1416: p_init_msg_list,
1417: p_commit,
1418: x_return_status,
1419: x_msg_count,
1444: , p_file_id_varray JTF_NUMBER_TABLE
1445: )
1446:
1447: as
1448: ddp_file_id_varray amv_item_pub.amv_number_varray_type;
1449: ddindx binary_integer; indx binary_integer;
1450: begin
1451:
1452: -- copy data to the local IN or IN-OUT args, if any
1457:
1458:
1459:
1460:
1461: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1462:
1463: -- here's the delegated call to the old PL/SQL routine
1464: amv_item_pub.replace_itemfile(p_api_version,
1465: p_init_msg_list,
1460:
1461: amv_item_pub_w.rosetta_table_copy_in_p1(ddp_file_id_varray, p_file_id_varray);
1462:
1463: -- here's the delegated call to the old PL/SQL routine
1464: amv_item_pub.replace_itemfile(p_api_version,
1465: p_init_msg_list,
1466: p_commit,
1467: x_return_status,
1468: x_msg_count,
1492: , x_file_id_varray out nocopy JTF_NUMBER_TABLE
1493: )
1494:
1495: as
1496: ddx_file_id_varray amv_item_pub.amv_number_varray_type;
1497: ddindx binary_integer; indx binary_integer;
1498: begin
1499:
1500: -- copy data to the local IN or IN-OUT args, if any
1506:
1507:
1508:
1509: -- here's the delegated call to the old PL/SQL routine
1510: amv_item_pub.get_itemfile(p_api_version,
1511: p_init_msg_list,
1512: x_return_status,
1513: x_msg_count,
1514: x_msg_data,
1523:
1524:
1525:
1526:
1527: amv_item_pub_w.rosetta_table_copy_out_p1(ddx_file_id_varray, x_file_id_varray);
1528: end;
1529:
1530: procedure get_usermessage(p_api_version NUMBER
1531: , p_init_msg_list VARCHAR2
1538: , x_message_varray out nocopy JTF_VARCHAR2_TABLE_4000
1539: )
1540:
1541: as
1542: ddx_item_id_varray amv_item_pub.amv_number_varray_type;
1543: ddx_message_varray amv_item_pub.amv_char_varray_type;
1544: ddindx binary_integer; indx binary_integer;
1545: begin
1546:
1539: )
1540:
1541: as
1542: ddx_item_id_varray amv_item_pub.amv_number_varray_type;
1543: ddx_message_varray amv_item_pub.amv_char_varray_type;
1544: ddindx binary_integer; indx binary_integer;
1545: begin
1546:
1547: -- copy data to the local IN or IN-OUT args, if any
1554:
1555:
1556:
1557: -- here's the delegated call to the old PL/SQL routine
1558: amv_item_pub.get_usermessage(p_api_version,
1559: p_init_msg_list,
1560: x_return_status,
1561: x_msg_count,
1562: x_msg_data,
1572:
1573:
1574:
1575:
1576: amv_item_pub_w.rosetta_table_copy_out_p1(ddx_item_id_varray, x_item_id_varray);
1577:
1578: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_message_varray, x_message_varray);
1579: end;
1580:
1574:
1575:
1576: amv_item_pub_w.rosetta_table_copy_out_p1(ddx_item_id_varray, x_item_id_varray);
1577:
1578: amv_item_pub_w.rosetta_table_copy_out_p0(ddx_message_varray, x_message_varray);
1579: end;
1580:
1581: procedure get_usermessage2(p_api_version NUMBER
1582: , p_init_msg_list VARCHAR2
1616: , p7_a28 out nocopy JTF_VARCHAR2_TABLE_2000
1617: )
1618:
1619: as
1620: ddx_item_varray amv_item_pub.amv_simple_item_obj_varray;
1621: ddindx binary_integer; indx binary_integer;
1622: begin
1623:
1624: -- copy data to the local IN or IN-OUT args, if any
1630:
1631:
1632:
1633: -- here's the delegated call to the old PL/SQL routine
1634: amv_item_pub.get_usermessage2(p_api_version,
1635: p_init_msg_list,
1636: x_return_status,
1637: x_msg_count,
1638: x_msg_data,
1647:
1648:
1649:
1650:
1651: amv_item_pub_w.rosetta_table_copy_out_p6(ddx_item_varray, p7_a0
1652: , p7_a1
1653: , p7_a2
1654: , p7_a3
1655: , p7_a4
1692: , p8_a1 out nocopy JTF_VARCHAR2_TABLE_300
1693: )
1694:
1695: as
1696: ddx_channel_array amv_item_pub.amv_nameid_varray_type;
1697: ddindx binary_integer; indx binary_integer;
1698: begin
1699:
1700: -- copy data to the local IN or IN-OUT args, if any
1707:
1708:
1709:
1710: -- here's the delegated call to the old PL/SQL routine
1711: amv_item_pub.get_channelsperitem(p_api_version,
1712: p_init_msg_list,
1713: x_return_status,
1714: x_msg_count,
1715: x_msg_data,
1726:
1727:
1728:
1729:
1730: amv_item_pub_w.rosetta_table_copy_out_p8(ddx_channel_array, p8_a0
1731: , p8_a1
1732: );
1733: end;
1734:
1731: , p8_a1
1732: );
1733: end;
1734:
1735: end amv_item_pub_w;