[Home] [Help]
1: package body amv_channel_pvt_w as
2: /* $Header: amvwchab.pls 120.2 2005/06/30 07:50 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_channel_pvt.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_channel_pvt.amv_char_varray_type();
29: else
30: if a0.count > 0 then
31: t := amv_channel_pvt.amv_char_varray_type();
32: t.extend(a0.count);
27: elsif a0.count = 0 then
28: t := amv_channel_pvt.amv_char_varray_type();
29: else
30: if a0.count > 0 then
31: t := amv_channel_pvt.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_channel_pvt.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_channel_pvt.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_channel_pvt.amv_number_varray_type();
78: else
79: if a0.count > 0 then
80: t := amv_channel_pvt.amv_number_varray_type();
81: t.extend(a0.count);
76: elsif a0.count = 0 then
77: t := amv_channel_pvt.amv_number_varray_type();
78: else
79: if a0.count > 0 then
80: t := amv_channel_pvt.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_channel_pvt.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_p5(t out nocopy amv_channel_pvt.amv_channel_varray_type, a0 JTF_NUMBER_TABLE
121: , a1 JTF_NUMBER_TABLE
122: , a2 JTF_VARCHAR2_TABLE_100
123: , a3 JTF_VARCHAR2_TABLE_2000
124: , a4 JTF_VARCHAR2_TABLE_100
163: ) as
164: ddindx binary_integer; indx binary_integer;
165: begin
166: if a0 is not null and a0.count=0 then
167: t := amv_channel_pvt.amv_channel_varray_type();
168: elsif a0 is not null and a0.count > 0 then
169: if a0.count > 0 then
170: t := amv_channel_pvt.amv_channel_varray_type();
171: t.extend(a0.count);
166: if a0 is not null and a0.count=0 then
167: t := amv_channel_pvt.amv_channel_varray_type();
168: elsif a0 is not null and a0.count > 0 then
169: if a0.count > 0 then
170: t := amv_channel_pvt.amv_channel_varray_type();
171: t.extend(a0.count);
172: indx := a0.first;
173: ddindx := 1;
174: while true loop
223: end loop;
224: end if;
225: end if;
226: end rosetta_table_copy_in_p5;
227: procedure rosetta_table_copy_out_p5(t amv_channel_pvt.amv_channel_varray_type, a0 out nocopy JTF_NUMBER_TABLE
228: , a1 out nocopy JTF_NUMBER_TABLE
229: , a2 out nocopy JTF_VARCHAR2_TABLE_100
230: , a3 out nocopy JTF_VARCHAR2_TABLE_2000
231: , a4 out nocopy JTF_VARCHAR2_TABLE_100
556: , p8_a42 VARCHAR2 := fnd_api.g_miss_char
557: )
558:
559: as
560: ddp_channel_record amv_channel_pvt.amv_channel_obj_type;
561: ddindx binary_integer; indx binary_integer;
562: begin
563:
564: -- copy data to the local IN or IN-OUT args, if any
615: ddp_channel_record.attribute15 := p8_a42;
616:
617:
618: -- here's the delegated call to the old PL/SQL routine
619: amv_channel_pvt.add_channel(p_api_version,
620: p_init_msg_list,
621: p_commit,
622: p_validation_level,
623: x_return_status,
693: , p8_a42 VARCHAR2 := fnd_api.g_miss_char
694: )
695:
696: as
697: ddp_channel_record amv_channel_pvt.amv_channel_obj_type;
698: ddindx binary_integer; indx binary_integer;
699: begin
700:
701: -- copy data to the local IN or IN-OUT args, if any
752: ddp_channel_record.attribute15 := p8_a42;
753:
754:
755: -- here's the delegated call to the old PL/SQL routine
756: amv_channel_pvt.add_publicchannel(p_api_version,
757: p_init_msg_list,
758: p_commit,
759: p_validation_level,
760: x_return_status,
830: , p8_a42 VARCHAR2 := fnd_api.g_miss_char
831: )
832:
833: as
834: ddp_channel_record amv_channel_pvt.amv_channel_obj_type;
835: ddindx binary_integer; indx binary_integer;
836: begin
837:
838: -- copy data to the local IN or IN-OUT args, if any
889: ddp_channel_record.attribute15 := p8_a42;
890:
891:
892: -- here's the delegated call to the old PL/SQL routine
893: amv_channel_pvt.add_protectedchannel(p_api_version,
894: p_init_msg_list,
895: p_commit,
896: p_validation_level,
897: x_return_status,
967: , p8_a42 VARCHAR2 := fnd_api.g_miss_char
968: )
969:
970: as
971: ddp_channel_record amv_channel_pvt.amv_channel_obj_type;
972: ddindx binary_integer; indx binary_integer;
973: begin
974:
975: -- copy data to the local IN or IN-OUT args, if any
1026: ddp_channel_record.attribute15 := p8_a42;
1027:
1028:
1029: -- here's the delegated call to the old PL/SQL routine
1030: amv_channel_pvt.add_privatechannel(p_api_version,
1031: p_init_msg_list,
1032: p_commit,
1033: p_validation_level,
1034: x_return_status,
1105: , p9_a42 VARCHAR2 := fnd_api.g_miss_char
1106: )
1107:
1108: as
1109: ddp_channel_record amv_channel_pvt.amv_channel_obj_type;
1110: ddindx binary_integer; indx binary_integer;
1111: begin
1112:
1113: -- copy data to the local IN or IN-OUT args, if any
1165: ddp_channel_record.attribute15 := p9_a42;
1166:
1167:
1168: -- here's the delegated call to the old PL/SQL routine
1169: amv_channel_pvt.add_groupchannel(p_api_version,
1170: p_init_msg_list,
1171: p_commit,
1172: p_validation_level,
1173: x_return_status,
1244: , p8_a42 VARCHAR2 := fnd_api.g_miss_char
1245: )
1246:
1247: as
1248: ddp_channel_record amv_channel_pvt.amv_channel_obj_type;
1249: ddindx binary_integer; indx binary_integer;
1250: begin
1251:
1252: -- copy data to the local IN or IN-OUT args, if any
1302: ddp_channel_record.attribute14 := p8_a41;
1303: ddp_channel_record.attribute15 := p8_a42;
1304:
1305: -- here's the delegated call to the old PL/SQL routine
1306: amv_channel_pvt.update_channel(p_api_version,
1307: p_init_msg_list,
1308: p_commit,
1309: p_validation_level,
1310: x_return_status,
1379: , p10_a42 out nocopy VARCHAR2
1380: )
1381:
1382: as
1383: ddx_channel_record amv_channel_pvt.amv_channel_obj_type;
1384: ddindx binary_integer; indx binary_integer;
1385: begin
1386:
1387: -- copy data to the local IN or IN-OUT args, if any
1396:
1397:
1398:
1399: -- here's the delegated call to the old PL/SQL routine
1400: amv_channel_pvt.get_channel(p_api_version,
1401: p_init_msg_list,
1402: p_validation_level,
1403: x_return_status,
1404: x_msg_count,
1479: , p_content_type_id_array JTF_NUMBER_TABLE
1480: )
1481:
1482: as
1483: ddp_content_type_id_array amv_channel_pvt.amv_number_varray_type;
1484: ddindx binary_integer; indx binary_integer;
1485: begin
1486:
1487: -- copy data to the local IN or IN-OUT args, if any
1495:
1496:
1497:
1498:
1499: amv_channel_pvt_w.rosetta_table_copy_in_p1(ddp_content_type_id_array, p_content_type_id_array);
1500:
1501: -- here's the delegated call to the old PL/SQL routine
1502: amv_channel_pvt.set_channelcontenttypes(p_api_version,
1503: p_init_msg_list,
1498:
1499: amv_channel_pvt_w.rosetta_table_copy_in_p1(ddp_content_type_id_array, p_content_type_id_array);
1500:
1501: -- here's the delegated call to the old PL/SQL routine
1502: amv_channel_pvt.set_channelcontenttypes(p_api_version,
1503: p_init_msg_list,
1504: p_commit,
1505: p_validation_level,
1506: x_return_status,
1539: , x_content_type_id_array out nocopy JTF_NUMBER_TABLE
1540: )
1541:
1542: as
1543: ddx_content_type_id_array amv_channel_pvt.amv_number_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
1556:
1557:
1558:
1559: -- here's the delegated call to the old PL/SQL routine
1560: amv_channel_pvt.get_channelcontenttypes(p_api_version,
1561: p_init_msg_list,
1562: p_validation_level,
1563: x_return_status,
1564: x_msg_count,
1579:
1580:
1581:
1582:
1583: amv_channel_pvt_w.rosetta_table_copy_out_p1(ddx_content_type_id_array, x_content_type_id_array);
1584: end;
1585:
1586: procedure set_channelperspectives(p_api_version NUMBER
1587: , p_init_msg_list VARCHAR2
1597: , p_perspective_id_array JTF_NUMBER_TABLE
1598: )
1599:
1600: as
1601: ddp_perspective_id_array amv_channel_pvt.amv_number_varray_type;
1602: ddindx binary_integer; indx binary_integer;
1603: begin
1604:
1605: -- copy data to the local IN or IN-OUT args, if any
1613:
1614:
1615:
1616:
1617: amv_channel_pvt_w.rosetta_table_copy_in_p1(ddp_perspective_id_array, p_perspective_id_array);
1618:
1619: -- here's the delegated call to the old PL/SQL routine
1620: amv_channel_pvt.set_channelperspectives(p_api_version,
1621: p_init_msg_list,
1616:
1617: amv_channel_pvt_w.rosetta_table_copy_in_p1(ddp_perspective_id_array, p_perspective_id_array);
1618:
1619: -- here's the delegated call to the old PL/SQL routine
1620: amv_channel_pvt.set_channelperspectives(p_api_version,
1621: p_init_msg_list,
1622: p_commit,
1623: p_validation_level,
1624: x_return_status,
1657: , x_perspective_id_array out nocopy JTF_NUMBER_TABLE
1658: )
1659:
1660: as
1661: ddx_perspective_id_array amv_channel_pvt.amv_number_varray_type;
1662: ddindx binary_integer; indx binary_integer;
1663: begin
1664:
1665: -- copy data to the local IN or IN-OUT args, if any
1674:
1675:
1676:
1677: -- here's the delegated call to the old PL/SQL routine
1678: amv_channel_pvt.get_channelperspectives(p_api_version,
1679: p_init_msg_list,
1680: p_validation_level,
1681: x_return_status,
1682: x_msg_count,
1697:
1698:
1699:
1700:
1701: amv_channel_pvt_w.rosetta_table_copy_out_p1(ddx_perspective_id_array, x_perspective_id_array);
1702: end;
1703:
1704: procedure set_channelitemtypes(p_api_version NUMBER
1705: , p_init_msg_list VARCHAR2
1715: , p_item_type_array JTF_VARCHAR2_TABLE_4000
1716: )
1717:
1718: as
1719: ddp_item_type_array amv_channel_pvt.amv_char_varray_type;
1720: ddindx binary_integer; indx binary_integer;
1721: begin
1722:
1723: -- copy data to the local IN or IN-OUT args, if any
1731:
1732:
1733:
1734:
1735: amv_channel_pvt_w.rosetta_table_copy_in_p0(ddp_item_type_array, p_item_type_array);
1736:
1737: -- here's the delegated call to the old PL/SQL routine
1738: amv_channel_pvt.set_channelitemtypes(p_api_version,
1739: p_init_msg_list,
1734:
1735: amv_channel_pvt_w.rosetta_table_copy_in_p0(ddp_item_type_array, p_item_type_array);
1736:
1737: -- here's the delegated call to the old PL/SQL routine
1738: amv_channel_pvt.set_channelitemtypes(p_api_version,
1739: p_init_msg_list,
1740: p_commit,
1741: p_validation_level,
1742: x_return_status,
1775: , x_item_type_array out nocopy JTF_VARCHAR2_TABLE_4000
1776: )
1777:
1778: as
1779: ddx_item_type_array amv_channel_pvt.amv_char_varray_type;
1780: ddindx binary_integer; indx binary_integer;
1781: begin
1782:
1783: -- copy data to the local IN or IN-OUT args, if any
1792:
1793:
1794:
1795: -- here's the delegated call to the old PL/SQL routine
1796: amv_channel_pvt.get_channelitemtypes(p_api_version,
1797: p_init_msg_list,
1798: p_validation_level,
1799: x_return_status,
1800: x_msg_count,
1815:
1816:
1817:
1818:
1819: amv_channel_pvt_w.rosetta_table_copy_out_p0(ddx_item_type_array, x_item_type_array);
1820: end;
1821:
1822: procedure set_channelkeywords(p_api_version NUMBER
1823: , p_init_msg_list VARCHAR2
1833: , p_keywords_array JTF_VARCHAR2_TABLE_4000
1834: )
1835:
1836: as
1837: ddp_keywords_array amv_channel_pvt.amv_char_varray_type;
1838: ddindx binary_integer; indx binary_integer;
1839: begin
1840:
1841: -- copy data to the local IN or IN-OUT args, if any
1849:
1850:
1851:
1852:
1853: amv_channel_pvt_w.rosetta_table_copy_in_p0(ddp_keywords_array, p_keywords_array);
1854:
1855: -- here's the delegated call to the old PL/SQL routine
1856: amv_channel_pvt.set_channelkeywords(p_api_version,
1857: p_init_msg_list,
1852:
1853: amv_channel_pvt_w.rosetta_table_copy_in_p0(ddp_keywords_array, p_keywords_array);
1854:
1855: -- here's the delegated call to the old PL/SQL routine
1856: amv_channel_pvt.set_channelkeywords(p_api_version,
1857: p_init_msg_list,
1858: p_commit,
1859: p_validation_level,
1860: x_return_status,
1893: , x_keywords_array out nocopy JTF_VARCHAR2_TABLE_4000
1894: )
1895:
1896: as
1897: ddx_keywords_array amv_channel_pvt.amv_char_varray_type;
1898: ddindx binary_integer; indx binary_integer;
1899: begin
1900:
1901: -- copy data to the local IN or IN-OUT args, if any
1910:
1911:
1912:
1913: -- here's the delegated call to the old PL/SQL routine
1914: amv_channel_pvt.get_channelkeywords(p_api_version,
1915: p_init_msg_list,
1916: p_validation_level,
1917: x_return_status,
1918: x_msg_count,
1933:
1934:
1935:
1936:
1937: amv_channel_pvt_w.rosetta_table_copy_out_p0(ddx_keywords_array, x_keywords_array);
1938: end;
1939:
1940: procedure set_channelauthors(p_api_version NUMBER
1941: , p_init_msg_list VARCHAR2
1951: , p_authors_array JTF_VARCHAR2_TABLE_4000
1952: )
1953:
1954: as
1955: ddp_authors_array amv_channel_pvt.amv_char_varray_type;
1956: ddindx binary_integer; indx binary_integer;
1957: begin
1958:
1959: -- copy data to the local IN or IN-OUT args, if any
1967:
1968:
1969:
1970:
1971: amv_channel_pvt_w.rosetta_table_copy_in_p0(ddp_authors_array, p_authors_array);
1972:
1973: -- here's the delegated call to the old PL/SQL routine
1974: amv_channel_pvt.set_channelauthors(p_api_version,
1975: p_init_msg_list,
1970:
1971: amv_channel_pvt_w.rosetta_table_copy_in_p0(ddp_authors_array, p_authors_array);
1972:
1973: -- here's the delegated call to the old PL/SQL routine
1974: amv_channel_pvt.set_channelauthors(p_api_version,
1975: p_init_msg_list,
1976: p_commit,
1977: p_validation_level,
1978: x_return_status,
2011: , x_authors_array out nocopy JTF_VARCHAR2_TABLE_4000
2012: )
2013:
2014: as
2015: ddx_authors_array amv_channel_pvt.amv_char_varray_type;
2016: ddindx binary_integer; indx binary_integer;
2017: begin
2018:
2019: -- copy data to the local IN or IN-OUT args, if any
2028:
2029:
2030:
2031: -- here's the delegated call to the old PL/SQL routine
2032: amv_channel_pvt.get_channelauthors(p_api_version,
2033: p_init_msg_list,
2034: p_validation_level,
2035: x_return_status,
2036: x_msg_count,
2051:
2052:
2053:
2054:
2055: amv_channel_pvt_w.rosetta_table_copy_out_p0(ddx_authors_array, x_authors_array);
2056: end;
2057:
2058: procedure get_itemsperchannel(p_api_version NUMBER
2059: , p_init_msg_list VARCHAR2
2075: , p11_a2 VARCHAR2 := fnd_api.g_miss_char
2076: )
2077:
2078: as
2079: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2080: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2081: ddx_document_id_array amv_channel_pvt.amv_number_varray_type;
2082: ddindx binary_integer; indx binary_integer;
2083: begin
2076: )
2077:
2078: as
2079: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2080: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2081: ddx_document_id_array amv_channel_pvt.amv_number_varray_type;
2082: ddindx binary_integer; indx binary_integer;
2083: begin
2084:
2077:
2078: as
2079: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2080: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2081: ddx_document_id_array amv_channel_pvt.amv_number_varray_type;
2082: ddindx binary_integer; indx binary_integer;
2083: begin
2084:
2085: -- copy data to the local IN or IN-OUT args, if any
2100:
2101:
2102:
2103: -- here's the delegated call to the old PL/SQL routine
2104: amv_channel_pvt.get_itemsperchannel(p_api_version,
2105: p_init_msg_list,
2106: p_validation_level,
2107: x_return_status,
2108: x_msg_count,
2132: p12_a0 := rosetta_g_miss_num_map(ddx_subset_return_rec.returned_record_count);
2133: p12_a1 := rosetta_g_miss_num_map(ddx_subset_return_rec.next_record_position);
2134: p12_a2 := rosetta_g_miss_num_map(ddx_subset_return_rec.total_record_count);
2135:
2136: amv_channel_pvt_w.rosetta_table_copy_out_p1(ddx_document_id_array, x_document_id_array);
2137: end;
2138:
2139: procedure find_channels(p_api_version NUMBER
2140: , p_init_msg_list VARCHAR2
2238: , p9_a2 VARCHAR2 := fnd_api.g_miss_char
2239: )
2240:
2241: as
2242: ddp_criteria_rec amv_channel_pvt.amv_channel_obj_type;
2243: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2244: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2245: ddx_content_chan_array amv_channel_pvt.amv_channel_varray_type;
2246: ddindx binary_integer; indx binary_integer;
2239: )
2240:
2241: as
2242: ddp_criteria_rec amv_channel_pvt.amv_channel_obj_type;
2243: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2244: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2245: ddx_content_chan_array amv_channel_pvt.amv_channel_varray_type;
2246: ddindx binary_integer; indx binary_integer;
2247: begin
2240:
2241: as
2242: ddp_criteria_rec amv_channel_pvt.amv_channel_obj_type;
2243: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2244: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2245: ddx_content_chan_array amv_channel_pvt.amv_channel_varray_type;
2246: ddindx binary_integer; indx binary_integer;
2247: begin
2248:
2241: as
2242: ddp_criteria_rec amv_channel_pvt.amv_channel_obj_type;
2243: ddp_subset_request_rec amv_channel_pvt.amv_request_obj_type;
2244: ddx_subset_return_rec amv_channel_pvt.amv_return_obj_type;
2245: ddx_content_chan_array amv_channel_pvt.amv_channel_varray_type;
2246: ddindx binary_integer; indx binary_integer;
2247: begin
2248:
2249: -- copy data to the local IN or IN-OUT args, if any
2305:
2306:
2307:
2308: -- here's the delegated call to the old PL/SQL routine
2309: amv_channel_pvt.find_channels(p_api_version,
2310: p_init_msg_list,
2311: p_validation_level,
2312: x_return_status,
2313: x_msg_count,
2333: p10_a0 := rosetta_g_miss_num_map(ddx_subset_return_rec.returned_record_count);
2334: p10_a1 := rosetta_g_miss_num_map(ddx_subset_return_rec.next_record_position);
2335: p10_a2 := rosetta_g_miss_num_map(ddx_subset_return_rec.total_record_count);
2336:
2337: amv_channel_pvt_w.rosetta_table_copy_out_p5(ddx_content_chan_array, p11_a0
2338: , p11_a1
2339: , p11_a2
2340: , p11_a3
2341: , p11_a4
2379: , p11_a42
2380: );
2381: end;
2382:
2383: end amv_channel_pvt_w;