The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
fpa_portfolio_s.nextval AS portfolio_id
FROM
dual;
SELECT language_code
FROM fnd_languages
WHERE installed_flag IN ('I','B');
-- check if the organization is null , then update with NA
IF p_portfolio_rec.portfolio_start_org_id IS NULL THEN
dbms_aw.execute('portfolio_organization_m = NA');
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
( 'PORTFOLIO',portfolio_s_r.portfolio_id,p_portfolio_rec.portfolio_name,
p_portfolio_rec.portfolio_desc,
l_Language,
USERENV('LANG'),
0,
SYSDATE,
0,
SYSDATE,
0
);
PROCEDURE Delete_Portfolio
(
p_api_version IN NUMBER,
p_portfolio_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER
)
IS
BEGIN
IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
fnd_log.string
(
FND_LOG.LEVEL_PROCEDURE,
'fpa_portfolio_pvt.Delete_Portfolio.begin',
'Entering fpa_portfolio_pvt.Delete_Portfolio'
);
' fpa_portfolio_pvt.Delete_Portfolio',
' Before remove portfolio maintain portfolio_d '
);
-- Delete the portfolio from the AW space.
dbms_aw.Execute('maintain portfolio_d delete ' || p_portfolio_id );
' fpa_portfolio_pvt.Delete_Portfolio',
' After remove portfolio maintain portfolio_d '
);
DELETE FROM FPA_OBJECTS_TL
WHERE object = 'PORTFOLIO'
AND id = p_portfolio_id;
'fpa_portfolio_pvt.Delete_Portfolio.end',
'Exiting fpa_portfolio_pvt.Delete_Portfolio'
);
'fpa_portfolio_pvt.Delete_Portfolio.end',
SQLERRM
);
END Delete_Portfolio;
'fpa.sql.fpa_portfolio_pvt.update_portfolio_Descr.begin',
'Entering fpa_portfolo_pvt.update_portfolio_descr'
);
UPDATE FPA_OBJECTS_TL objtl
SET objtl.NAME =p_portfolio_rec.portfolio_name,
objtl.DESCRIPTION =p_portfolio_rec.portfolio_desc,
objtl.SOURCE_LANG = userenv('LANG')
where objtl.id = p_portfolio_rec.portfolio_id
and userenv('LANG') IN (objtl.LANGUAGE, objtl.SOURCE_LANG);
'fpa.sql.fpa_portfolio_pvt.update_portfolio_desc.end',
'Exiting fpa_portfolo_pvt.update_portfolio_descr'
);
'fpa_portfolio_pvt.update_portfolio',
SQLERRM
);
END; -- End Update_Portfolio
'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.begin',
'Entering fpa_portfolo_pvt.update_portfolio_type'
);
-- Update name and description
dbms_aw.execute('LMT portfolio_d TO '||p_portfolio_id);
'fpa.sql.fpa_portfolio_pvt.update_portfolio_type.end',
'Exiting fpa_portfolo_pvt.update_portfolio_type'
);
'fpa_portfolio_pvt.update_portfolio_type',
SQLERRM
);
END; -- End Update_Portfolio_type
'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.begin',
'Entering fpa_portfolo_pvt.update_portfolio_organization'
);
'fpa.sql.fpa_portfolio_pvt.update_portfolio_organization.end',
'Exiting fpa_portfolo_pvt.update_portfolio_organization'
);
'fpa_portfolio_pvt.update_portfolio_organization',
SQLERRM
);
END; -- End Update_Portfolio_organization
SELECT count(*)
INTO PortfolioCnt
FROM fpa_portfs_vl portfo
WHERE portfo.Name = p_portfolio_name;
SELECT count(*)
INTO PortfolioCnt
FROM fpa_portfs_vl portfo
WHERE portfo.Name = p_portfolio_name
AND Portfo.portfolio <> p_portfolio_id;