The following lines contain the word 'select', 'insert', 'update' or 'delete':
DBMS_AW.Execute('UPDATE');
SELECT fpa_strategic_obj_s.nextval AS l_strobj_id
FROM dual;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I','B');
'Inserting into FPA_OBJECTS_TL'
);
-- Seed data insertion should happen using ldt files. Do not execute this insert in seed data mode
if (upper(p_seeding) <> 'Y') then
OPEN l_language_csr;
INSERT INTO FPA_OBJECTS_TL( object
,id
,name
,description
,LANGUAGE
,SOURCE_LANG
,created_by
,creation_date
,last_updated_by
,last_update_date
,last_update_login)
VALUES( 'INVESTMENT_CRITERIA'
,x_strategic_obj_id
,p_investment_rec_type.strategic_obj_name
,p_investment_rec_type.strategic_obj_desc
,l_language
,USERENV('LANG')
,0
,sysdate()
,0
,sysdate()
,0);
PROCEDURE delete_strategicobj_aw
(
p_api_version IN NUMBER,
p_investment_rec_type IN fpa_investment_criteria_pvt.investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
-- Delete the Strategic Objective from the AW space.
dbms_aw.Execute('maintain strategic_obj_d delete ' || p_Investment_rec_type.strategic_obj_shortname);
delete from FPA_OBJECTS_TL
where object = 'INVESTMENT_CRITERIA'
and id = p_Investment_rec_type.strategic_obj_shortname;
END delete_strategicobj_aw;
PROCEDURE update_strategicobj
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
fnd_log.string
( FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
'Entering fpa_investment_criteria_pvt.update_strategicobj');
'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.begin',
'Updating FPA_OBJECTS_TL for the investment criteria');
update FPA_OBJECTS_TL
set name = p_investment_rec_type.strategic_obj_name
,description = p_investment_rec_type.strategic_obj_desc
,SOURCE_LANG = userenv('LANG')
,last_update_date = sysdate
where id = p_investment_rec_type.strategic_obj_shortname
and object = 'INVESTMENT_CRITERIA'
and userenv('LANG') IN (LANGUAGE, SOURCE_LANG);
'fpa.sql.fpa_investment_criteria_pvt.update_strategicobj.end',
'Exiting fpa_investment_criteria_pvt.update_strategicobj');
end Update_StrategicObj;
PROCEDURE update_strategicobj_status_aw
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
fnd_log.string
(
FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.fpa_resourcetype_pvt.create_resourcetype.begin',
'Entering fpa_resourcetype_pvt.create_resourcetype'
);
end update_strategicobj_status_aw;
PROCEDURE update_strategicobj_level_aw
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
begin
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
fnd_log.string
(
FND_LOG.LEVEL_PROCEDURE,
'fpa.sql.FPA_Investment_Criteria_PVT.update_strategicobj_level_aw.begin',
'Entering FPA_Investment_Criteria_PVT.update_strategicobj_level_aw'
);
end update_strategicobj_level_aw;
PROCEDURE update_strategicobj_weight_aw
(
p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY varchar2,
x_msg_count OUT NOCOPY number,
x_msg_data OUT NOCOPY varchar2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
END update_strategicobj_weight_aw;
PROCEDURE Update_ProjectTypeObjScore_AW
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
BEGIN
-- Attach the AW space read write.
-- limit the project dimension to the current project
DBMS_AW.Execute('lmt project_type_d to '''
|| p_Investment_rec_type.project_type_shortname || '''');
DBMS_AW.Execute('update');
END update_projecttypeobjscore_aw;
PROCEDURE update_strategicobj_wscore_aw
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT number := 1.0;
DBMS_AW.Execute('update');
END update_strategicobj_wscore_aw;
PROCEDURE Update_ProjectTypeObjWScore_AW
(
p_api_version IN NUMBER,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
DBMS_AW.Execute('update');
END update_projecttypeobjwscore_aw;
PROCEDURE Update_StrategicObj_AScore_AW
(
p_api_version IN number,
p_commit IN varchar2 := FND_API.G_FALSE,
p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type,
x_return_status OUT NOCOPY varchar2,
x_msg_count OUT NOCOPY number,
x_msg_data OUT NOCOPY varchar2
)
IS
l_api_version CONSTANT number := 1.0;
select tab_id
into l_obj_group_tab_id
from fpa_inv_criteria_vl
where shortname = 'FPASTRALIGN';
l_sql := 'select tab_id ' ||
' from fpa_inv_criteria_vl ' ||
' where parent_tab_id = ' || l_obj_group_tab_id;
select distinct count(a.tab_id), b.shortname
into l_obj_count, l_obj_member_name
from fpa_inv_criteria_vl a, fpa_inv_criteria_vl b
where a.parent_tab_id = l_temp_tab_id
and b.tab_id = l_temp_tab_id
group by b.shortname;
DBMS_AW.Execute('update');
END update_strategicobj_ascore_aw;
procedure Update_ProjectTypeObjAScore_AW(
p_commit IN varchar2 := FND_API.G_FALSE
,p_Investment_rec_type IN FPA_Investment_Criteria_PVT.Investment_rec_type
,x_return_status OUT NOCOPY varchar2
,x_msg_count OUT NOCOPY number
,x_msg_data OUT NOCOPY varchar2
) is
begin
-- Attach the AW space read write
DBMS_AW.Execute('aw attach ' || p_Investment_rec_type.AW_space || ' rw first');
end Update_ProjectTypeObjAScore_AW;
DBMS_AW.Execute('update');
PROCEDURE update_strategicobj_status_aw
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_strategic_obj_shortname IN NUMBER,
p_strategic_obj_desc IN VARCHAR2,
p_strategic_obj_name IN VARCHAR2,
p_strategic_obj_level IN VARCHAR2,
p_strategic_obj_parent IN VARCHAR2,
p_strategic_obj_status IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_Investment_rec_type FPA_Investment_Criteria_PVT.Investment_rec_type;
update_strategicobj_status_aw( p_commit => p_commit,
p_investment_rec_type => l_Investment_rec_type,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
END update_strategicobj_status_aw;
PROCEDURE update_strategicobj_level_aw
(
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_strategic_obj_shortname IN NUMBER,
p_strategic_obj_desc IN VARCHAR2,
p_strategic_obj_name IN VARCHAR2,
p_strategic_obj_level IN VARCHAR2,
p_strategic_obj_parent IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_Investment_rec_type FPA_Investment_Criteria_PVT.Investment_rec_type;
update_strategicobj_level_aw ( p_commit => p_commit,
p_investment_rec_type => l_Investment_rec_type,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
END update_strategicobj_level_aw;