[Home] [Help]
298: methods varchar2 default null,
299: synonym_only varchar2 default 'N'
300: )
301: as
302: l_adg_package_rec fnd_adg_package%rowtype;
303:
304: begin
305:
306: l_adg_package_rec.owner := upper(owner);
317: l_adg_package_rec.spec_code := C_COMPILE_DIRECTIVE_ON;
318: l_adg_package_rec.body_code := C_COMPILE_DIRECTIVE_OFF;
319: end if;
320:
321: insert into fnd_adg_package values l_adg_package_rec;
322:
323: end;
324:
325: /*==========================================================================*/
814:
815: cursor c2(c_owner varchar2, c_package_name varchar2)
816: is select a.rpc_synonym_name,a.package_name,a.owner,
817: a.rpc_package_name,a.methods
818: from fnd_adg_package a
819: where a.package_name = c_package_name
820: and a.owner = c_owner
821: order by a.owner,a.package_name;
822:
935: as
936: cursor c2(c_owner varchar2, c_package_name varchar2)
937: is select a.rpc_synonym_name,a.package_name,a.owner,
938: a.rpc_package_name,a.methods
939: from fnd_adg_package a
940: where a.package_name = c_package_name
941: and a.owner = c_owner
942: order by a.owner,a.package_name;
943:
1304: p_package_name varchar2)
1305: as
1306: cursor c1 is select a.owner,a.rpc_synonym_name,a.package_name,a.synonym_only,
1307: a.rpc_package_name
1308: from fnd_adg_package a
1309: where a.owner = p_owner
1310: and a.package_name = p_package_name
1311: order by 1,2,3;
1312:
1381:
1382: procedure build_all_synonyms
1383: as
1384: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only
1385: from fnd_adg_package a
1386: order by a.owner,a.package_name;
1387: begin
1388:
1389: for f_rec in c1 loop
1409: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only,
1410: a.spec_code,a.body_code,
1411: dbms_lob.getlength(a.spec_code) spec_len,
1412: dbms_lob.getlength(a.body_code) body_len
1413: from fnd_adg_package a
1414: where a.owner = p_owner
1415: and a.package_name = p_package_name
1416: order by a.owner,a.package_name;
1417:
1483:
1484: procedure compile_all_packages
1485: as
1486: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only
1487: from fnd_adg_package a
1488: order by a.owner,a.package_name;
1489: begin
1490:
1491: for f_rec in c1 loop
1505: p_package_name varchar2,
1506: p_build_spec boolean default true,
1507: p_build_body boolean default true)
1508: as
1509: l_fnd_adg_package_rec fnd_adg_package%rowtype;
1510: l_spec_code clob;
1511: l_body_code clob;
1512: l_rpcDescriptor fnd_adg_manage.rpcDescriptor;
1513:
1515:
1516: begin
1517:
1518: select a.*
1519: into l_fnd_adg_package_rec
1520: from fnd_adg_package a
1521: where a.owner = p_owner
1522: and a.package_name = p_package_name;
1523:
1516: begin
1517:
1518: select a.*
1519: into l_fnd_adg_package_rec
1520: from fnd_adg_package a
1521: where a.owner = p_owner
1522: and a.package_name = p_package_name;
1523:
1524: if ( is_reserved_package(l_fnd_adg_package_rec.package_name,
1520: from fnd_adg_package a
1521: where a.owner = p_owner
1522: and a.package_name = p_package_name;
1523:
1524: if ( is_reserved_package(l_fnd_adg_package_rec.package_name,
1525: l_fnd_adg_package_rec.synonym_only) )
1526: then
1527: return;
1528: end if;
1521: where a.owner = p_owner
1522: and a.package_name = p_package_name;
1523:
1524: if ( is_reserved_package(l_fnd_adg_package_rec.package_name,
1525: l_fnd_adg_package_rec.synonym_only) )
1526: then
1527: return;
1528: end if;
1529:
1528: end if;
1529:
1530: l_remapMethodTokenTable := remapMethodTokenArray();
1531:
1532: parse_remap_method_entry(l_fnd_adg_package_rec.methods,
1533: l_remapMethodTokenTable);
1534:
1535: if ( l_remapMethodTokenTable.count > 0 )
1536: then
1542: end if;
1543:
1544: select a.spec_code,a.body_code
1545: into l_spec_code,l_body_code
1546: from fnd_adg_package a
1547: where a.owner = p_owner
1548: and a.package_name = p_package_name
1549: for update ;
1550:
1549: for update ;
1550:
1551: l_rpcDescriptor.owner := p_owner;
1552: l_rpcDescriptor.package_name := p_package_name;
1553: l_rpcDescriptor.rpc_package_name := l_fnd_adg_package_rec.rpc_package_name;
1554: l_rpcDescriptor.rpc_synonym_name := l_fnd_adg_package_rec.rpc_synonym_name;
1555:
1556: if ( p_build_spec )
1557: then
1550:
1551: l_rpcDescriptor.owner := p_owner;
1552: l_rpcDescriptor.package_name := p_package_name;
1553: l_rpcDescriptor.rpc_package_name := l_fnd_adg_package_rec.rpc_package_name;
1554: l_rpcDescriptor.rpc_synonym_name := l_fnd_adg_package_rec.rpc_synonym_name;
1555:
1556: if ( p_build_spec )
1557: then
1558: generate_code_spec(l_rpcDescriptor,l_spec_code);
1569:
1570: procedure build_all_packages
1571: as
1572: cursor c1 is select a.owner,a.package_name,a.synonym_only
1573: from fnd_adg_package a
1574: order by a.owner,a.package_name;
1575: begin
1576:
1577: for f_rec in c1 loop
1601: end if;
1602:
1603: select a.spec_code,a.body_code
1604: into l_spec_code,l_body_code
1605: from fnd_adg_package a
1606: where a.owner = user
1607: and a.package_name = C_COMPILE_DIRECTIVE_PACKAGE;
1608:
1609: dbms_lob.createtemporary(l_compile_unit,false);
1627:
1628: procedure compile_rpc_dependents
1629: as
1630: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only
1631: from fnd_adg_package a
1632: order by a.owner,a.package_name;
1633: begin
1634:
1635: for f_rec in c1 loop
1663: procedure validate_package_usage(p_use_rpc_dependency boolean)
1664: as
1665: cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.methods,
1666: a.synonym_only
1667: from fnd_adg_package a
1668: order by a.owner,a.package_name;
1669:
1670: l_package_count number := 0;
1671: l_valid_count number;
1773: procedure init_package_list
1774: as
1775: begin
1776:
1777: delete from fnd_adg_package;
1778:
1779: insert_adg_package( package_name => C_ADG_MANAGE_PACKAGE,
1780: rpc_package_name => C_ADG_MANAGE_PACKAGE,
1781: rpc_synonym_name => C_ADG_MANAGE_NAME_REMOTE