The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT COUNT(*) INTO v_check_flag FROM
po_commodities_b WHERE commodity_code=v_commodity_code;
SELECT po_commodities_s.NEXTVAL INTO v_nextval FROM dual;
INSERT INTO po_commodities_b (
commodity_id,
commodity_code,
active_flag,
creation_date,
last_update_date,
created_by,
last_updated_by,
last_update_login )
VALUES
(
v_nextval,
v_commodity_code,
'Y',
l_start_time,
l_start_time,
l_user,
l_user,
l_login
);
INSERT INTO po_commodities_tl (
commodity_id,
language,
source_lang,
name,
description,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login)
(
SELECT
v_nextval commodity_id,
lang.language_code language,
userenv('LANG') source_lang,
v_commodity_code name,
v_commodity_code description,
l_start_time creation_date,
l_user created_by,
l_start_time last_update_date,
l_user last_updated_by,
l_login last_update_login
FROM
fnd_languages lang
WHERE
lang.installed_flag IN ('I','B')
);
proc_category_commodity_update(errbuf,retcode);
* Procedure Name : proc_category_commodity_update *
* Description : Procedureto to update the categories *
* File Name : poadbicomcrb.pls *
* Visibility : Public *
* Parameters/Mode : None *
* History : 14-Nov-2006 ANKGOYAL Initial Creation *
* *
****************************************************************************/
/* Procedureto to update the categories */
PROCEDURE proc_category_commodity_update (errbuf OUT NOCOPY VARCHAR2,
retcode OUT NOCOPY NUMBER)
IS
l_start_time DATE;
SELECT commodity_id INTO v_commodity_id from po_commodities_b
WHERE commodity_code=v_commodity_code;
INSERT INTO po_commodity_categories (
commodity_id,
category_id,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login)
(
SELECT
v_commodity_id commodity_id,
mcat.category_id category_id,
l_start_time creation_date,
l_user created_by,
l_start_time last_update_date,
l_user last_updated_by,
l_login last_update_login
FROM
mtl_category_set_valid_cats mcat
WHERE
mcat.category_set_id = 2 -- Consider only categories of the purchasing category set
AND NOT EXISTS ( SELECT 1 FROM po_commodity_categories pcc
WHERE pcc.category_id=mcat.category_id)
);
END proc_category_commodity_update;
* End of Procedure : proc_category_commodity_update
*****************************************************************************/
END POA_DBI_COM_C;