[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure insert_adg_package ( owner varchar2 default user,
package_name varchar2,
rpc_package_name varchar2,
rpc_synonym_name varchar2,
methods varchar2 default null,
synonym_only varchar2 default 'N'
)
as
l_adg_package_rec fnd_adg_package%rowtype;
insert into fnd_adg_package values l_adg_package_rec;
is select a.authid
from dba_procedures a
where a.owner = c_owner
and a.object_name = c_package_name
and a.object_type = 'PACKAGE';
is select a.rpc_synonym_name,a.package_name,a.owner,
a.rpc_package_name,a.methods
from fnd_adg_package a
where a.package_name = c_package_name
and a.owner = c_owner
order by a.owner,a.package_name;
is select nvl(a.overload,0) overload
from dba_procedures a
where a.owner = c_owner
and a.object_name = c_package_name
and a.procedure_name = c_method_name
and a.object_type = 'PACKAGE'
and not ( a.aggregate = 'YES'
or a.pipelined = 'YES'
or a.parallel = 'YES'
or a.interface = 'YES'
or a.deterministic = 'YES'
or a.IMPLTYPEOWNER is not null
or a.IMPLTYPENAME is not null
);
is select a.rpc_synonym_name,a.package_name,a.owner,
a.rpc_package_name,a.methods
from fnd_adg_package a
where a.package_name = c_package_name
and a.owner = c_owner
order by a.owner,a.package_name;
is select nvl(a.overload,0) overload
from dba_procedures a
where a.owner = c_owner
and a.object_name = c_package_name
and a.procedure_name = c_method_name
and a.object_type = 'PACKAGE'
and not ( a.aggregate = 'YES'
or a.pipelined = 'YES'
or a.parallel = 'YES'
or a.interface = 'YES'
or a.deterministic = 'YES'
or a.IMPLTYPEOWNER is not null
or a.IMPLTYPENAME is not null
);
select count(*)
into l_count1
from dba_procedures a
where a.owner = p_owner
and a.object_name = p_package
and a.procedure_name = p_method
and a.object_type = 'PACKAGE'
and not ( a.aggregate = 'YES'
or a.pipelined = 'YES'
or a.parallel = 'YES'
or a.interface = 'YES'
or a.deterministic = 'YES'
or a.IMPLTYPEOWNER is not null
or a.IMPLTYPENAME is not null
);
select count(*)
into l_compile_status
from dba_objects a
where a.owner = p_owner
and a.object_name = p_package_name
and a.object_type = 'PACKAGE'
and a.status = 'INVALID';
select count(*)
into l_compile_status
from dba_objects a
where a.owner = p_owner
and a.object_name = p_rpc_package_name
and a.object_type = decode(l_compile_spec,'Y','PACKAGE','PACKAGE BODY')
and a.status = 'INVALID';
cursor c1 is select a.text
from dba_source a
where a.owner = p_owner
and a.name = C_COMPILE_DIRECTIVE_PACKAGE
and a.type = 'PACKAGE'
and instr(a.text,'Header') > 0
and instr(a.text,'$Head') > 0;
cursor c1 is select a.owner,a.rpc_synonym_name,a.package_name,a.synonym_only,
a.rpc_package_name
from fnd_adg_package a
where a.owner = p_owner
and a.package_name = p_package_name
order by 1,2,3;
select count(*)
into l_ok
from dba_synonyms a
where a.owner = f_rec.owner
and a.synonym_name = l_rpc_synonym_name
and a.table_owner = f_rec.owner
and a.table_name = l_rpc_synonym_target
and ( ( a.db_link is null and l_dblink is null )
or( a.db_link = l_dblink )
);
cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only
from fnd_adg_package a
order by a.owner,a.package_name;
cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only,
a.spec_code,a.body_code,
dbms_lob.getlength(a.spec_code) spec_len,
dbms_lob.getlength(a.body_code) body_len
from fnd_adg_package a
where a.owner = p_owner
and a.package_name = p_package_name
order by a.owner,a.package_name;
cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only
from fnd_adg_package a
order by a.owner,a.package_name;
select a.*
into l_fnd_adg_package_rec
from fnd_adg_package a
where a.owner = p_owner
and a.package_name = p_package_name;
select a.spec_code,a.body_code
into l_spec_code,l_body_code
from fnd_adg_package a
where a.owner = p_owner
and a.package_name = p_package_name
for update ;
cursor c1 is select a.owner,a.package_name,a.synonym_only
from fnd_adg_package a
order by a.owner,a.package_name;
select a.spec_code,a.body_code
into l_spec_code,l_body_code
from fnd_adg_package a
where a.owner = user
and a.package_name = C_COMPILE_DIRECTIVE_PACKAGE;
cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.synonym_only
from fnd_adg_package a
order by a.owner,a.package_name;
cursor c1 is select a.owner,a.package_name,a.rpc_package_name,a.methods,
a.synonym_only
from fnd_adg_package a
order by a.owner,a.package_name;
select count(*)
into l_valid_count
from dba_objects a
where a.owner = f_rec.owner
and a.object_name = f_rec.package_name
and a.object_type in ('PACKAGE','PACKAGE BODY')
and a.status = 'VALID';
select count(*)
into l_valid_count
from dba_objects a
where a.owner = f_rec.owner
and a.object_name = f_rec.rpc_package_name
and a.object_type in ('PACKAGE','PACKAGE BODY')
and a.status = 'VALID';
select count(*)
into l_valid_count
from dba_dependencies a
where a.owner = f_rec.owner
and a.NAME = f_rec.package_name
and a.type = 'PACKAGE BODY'
and a.REFERENCED_OWNER = f_rec.owner
and a.REFERENCED_NAME = l_referenced_name
and a.referenced_type = 'PACKAGE';
delete from fnd_adg_package;
insert_adg_package( package_name => C_ADG_MANAGE_PACKAGE,
rpc_package_name => C_ADG_MANAGE_PACKAGE,
rpc_synonym_name => C_ADG_MANAGE_NAME_REMOTE
);
insert_adg_package( package_name => C_COMPILE_DIRECTIVE_PACKAGE,
rpc_package_name => C_COMPILE_DIRECTIVE_PACKAGE,
rpc_synonym_name => C_COMPILE_DIRECTIVE_PACKAGE||'_NULL'
);
insert_adg_package( package_name => 'FND_GLOBAL',
rpc_package_name => 'FND_GLOBAL_RPC',
rpc_synonym_name => 'FND_GLOBAL_REMOTE',
methods => 'bless_next_init,initialize'
);
insert_adg_package( package_name => 'MO_GLOBAL',
rpc_package_name => 'MO_GLOBAL_RPC',
rpc_synonym_name => 'MO_GLOBAL_REMOTE',
methods => null
);
insert_adg_package( package_name => 'FND_CONCURRENT_REQUESTS',
rpc_package_name => 'FND_CONCURRENT_REQUESTS',
rpc_synonym_name => 'FND_CONCURRENT_REQUESTS_REMOTE',
methods => null,
synonym_only => 'Y'
);
insert_adg_package( package_name => 'FND_MO_SP_PREFERENCES',
rpc_package_name => 'FND_MO_SP_PREFERENCES',
rpc_synonym_name => 'FND_MO_SP_PREFERENCES_REMOTE',
methods => null,
synonym_only => 'Y'
);
insert_adg_package( package_name => 'MO_GLOB_ORG_ACCESS_TMP',
rpc_package_name => 'MO_GLOB_ORG_ACCESS_TMP',
rpc_synonym_name => 'MO_GLOB_ORG_ACCESS_TMP_REMOTE',
methods => null,
synonym_only => 'Y'
);
insert_adg_package( package_name => 'FND_PROFILE',
rpc_package_name => 'FND_PROFILE_RPC',
rpc_synonym_name => 'FND_PROFILE_REMOTE',
methods => 'put'
);
insert_adg_package( package_name => 'FND_CONCURRENT',
rpc_package_name => 'FND_CONCURRENT_RPC',
rpc_synonym_name => 'FND_CONCURRENT_REMOTE',
-- methods =>'init_request:Y:Y,set_interim_status:Y:Y,'||
-- 'set_preferred_rbs:Y'
methods => null
);