The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE INSERT_FORMULATION_SPEC(
X_ROWID OUT NOCOPY VARCHAR2 ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_VERS IN NUMBER ,
X_PRODUCT_ID IN NUMBER ,
X_OWNER_ORGANIZATION_ID IN NUMBER ,
X_SPEC_STATUS IN VARCHAR2 ,
X_STD_QTY IN NUMBER ,
X_STD_UOM IN VARCHAR2 ,
X_PROCESS_LOSS IN NUMBER ,
X_START_DATE IN DATE ,
X_END_DATE IN DATE ,
X_MIN_INGREDS IN NUMBER ,
X_MAX_INGREDS IN NUMBER ,
X_INGRED_PICK_BASE_IND IN VARCHAR2 ,
X_PICK_LOT_STRATEGY IN VARCHAR2 ,
X_TECH_PARM_ID IN NUMBER ,
X_OBJECTIVE_IND IN NUMBER ,
X_ROUTING_ID IN NUMBER ,
X_SPEC_NAME IN VARCHAR2 ,
X_TEXT_CODE IN VARCHAR2 ,
X_DELETE_MARK IN NUMBER ,
X_CREATION_DATE IN DATE ,
X_CREATED_BY IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
CURSOR C IS
SELECT ROWID
FROM GMD_FORMULATION_SPECS
WHERE FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID;
INSERT INTO GMD_FORMULATION_SPECS (
FORMULATION_SPEC_ID,
SPEC_VERS,
SPEC_NAME,
PRODUCT_ID,
OWNER_ORGANIZATION_ID,
SPEC_STATUS,
STD_QTY,
STD_UOM,
PROCESS_LOSS,
START_DATE,
END_DATE,
MIN_INGREDS,
MAX_INGREDS,
INGRED_PICK_BASE_IND,
PICK_LOT_STRATEGY,
TECH_PARM_ID,
OBJECTIVE_IND,
ROUTING_ID,
TEXT_CODE,
DELETE_MARK,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
X_FORMULATION_SPEC_ID,
X_SPEC_VERS,
X_SPEC_NAME,
X_PRODUCT_ID,
X_OWNER_ORGANIZATION_ID,
X_SPEC_STATUS,
X_STD_QTY,
X_STD_UOM,
X_PROCESS_LOSS,
X_START_DATE,
X_END_DATE,
X_MIN_INGREDS,
X_MAX_INGREDS,
X_INGRED_PICK_BASE_IND,
X_PICK_LOT_STRATEGY,
X_TECH_PARM_ID,
X_OBJECTIVE_IND,
X_ROUTING_ID,
X_TEXT_CODE,
X_DELETE_MARK,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
END INSERT_FORMULATION_SPEC;
X_DELETE_MARK IN NUMBER ,
X_SPEC_NAME IN VARCHAR2
) IS
CURSOR C IS
SELECT
SPEC_VERS,
PRODUCT_ID,
OWNER_ORGANIZATION_ID,
SPEC_STATUS,
STD_QTY,
STD_UOM,
PROCESS_LOSS,
START_DATE,
END_DATE,
MIN_INGREDS,
MAX_INGREDS,
INGRED_PICK_BASE_IND,
PICK_LOT_STRATEGY,
TECH_PARM_ID,
OBJECTIVE_IND,
TEXT_CODE,
DELETE_MARK
FROM GMD_FORMULATION_SPECS
WHERE FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID
FOR UPDATE OF FORMULATION_SPEC_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
AND ((RECINFO.DELETE_MARK = X_DELETE_MARK)
OR ((RECINFO.DELETE_MARK IS NULL) AND (X_DELETE_MARK IS NULL)))
AND ((RECINFO.TEXT_CODE = X_TEXT_CODE)
OR ((RECINFO.TEXT_CODE IS NULL) AND (X_TEXT_CODE IS NULL)))
AND (RECINFO.TECH_PARM_ID = X_TECH_PARM_ID)
AND (RECINFO.OBJECTIVE_IND = X_OBJECTIVE_IND)
) THEN
NULL;
PROCEDURE UPDATE_FORMULATION_SPEC (
X_FORMULATION_SPEC_ID IN NUMBER ,
X_PRODUCT_ID IN NUMBER ,
X_OWNER_ORGANIZATION_ID IN NUMBER ,
X_SPEC_STATUS IN VARCHAR2 ,
X_STD_QTY IN NUMBER ,
X_STD_UOM IN VARCHAR2 ,
X_PROCESS_LOSS IN NUMBER ,
X_START_DATE IN DATE ,
X_END_DATE IN DATE ,
X_MIN_INGREDS IN NUMBER ,
X_MAX_INGREDS IN NUMBER ,
X_INGRED_PICK_BASE_IND IN VARCHAR2 ,
X_PICK_LOT_STRATEGY IN VARCHAR2 ,
X_TECH_PARM_ID IN NUMBER ,
X_OBJECTIVE_IND IN NUMBER ,
X_TEXT_CODE IN VARCHAR2 ,
X_DELETE_MARK IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE GMD_FORMULATION_SPECS
SET
PRODUCT_ID = X_PRODUCT_ID,
OWNER_ORGANIZATION_ID = X_OWNER_ORGANIZATION_ID,
SPEC_STATUS = X_SPEC_STATUS,
STD_QTY = X_STD_QTY,
STD_UOM = X_STD_UOM,
PROCESS_LOSS = X_PROCESS_LOSS,
START_DATE = X_START_DATE,
END_DATE = X_END_DATE,
MIN_INGREDS = X_MIN_INGREDS,
MAX_INGREDS = X_MAX_INGREDS,
INGRED_PICK_BASE_IND = X_INGRED_PICK_BASE_IND,
PICK_LOT_STRATEGY = X_PICK_LOT_STRATEGY,
TECH_PARM_ID = X_TECH_PARM_ID,
OBJECTIVE_IND = X_OBJECTIVE_IND,
DELETE_MARK = X_DELETE_MARK,
TEXT_CODE = X_TEXT_CODE,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID;
END UPDATE_FORMULATION_SPEC;
PROCEDURE DELETE_FORMULATION_SPEC (
X_FORMULATION_SPEC_ID IN NUMBER
) IS
BEGIN
DELETE FROM GMD_FORMULATION_SPECS
WHERE FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID;
END DELETE_FORMULATION_SPEC;
PROCEDURE INSERT_MATERIAL_REQ (
X_ROWID OUT NOCOPY VARCHAR2 ,
X_MATL_REQ_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_LINE_NO IN NUMBER ,
X_INVENTORY_ITEM_ID IN NUMBER ,
X_ITEM_UOM IN VARCHAR2 ,
X_MIN_QTY IN NUMBER ,
X_MAX_QTY IN NUMBER ,
X_RANGE_TYPE IN NUMBER ,
X_CREATION_DATE IN DATE ,
X_CREATED_BY IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
CURSOR C IS
SELECT ROWID
FROM GMD_MATERIAL_REQS
WHERE MATL_REQ_ID = X_MATL_REQ_ID;
INSERT INTO GMD_MATERIAL_REQS (
FORMULATION_SPEC_ID,
MATL_REQ_ID,
SPEC_ATTRIBUTE_ID,
LINE_NO,
INVENTORY_ITEM_ID,
ITEM_UOM,
MIN_QTY,
MAX_QTY,
RANGE_TYPE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
X_FORMULATION_SPEC_ID,
X_MATL_REQ_ID,
X_SPEC_ATTRIBUTE_ID,
X_LINE_NO,
X_INVENTORY_ITEM_ID,
X_ITEM_UOM,
X_MIN_QTY,
X_MAX_QTY,
X_RANGE_TYPE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
END INSERT_MATERIAL_REQ;
SELECT
FORMULATION_SPEC_ID,
SPEC_ATTRIBUTE_ID,
LINE_NO,
INVENTORY_ITEM_ID,
ITEM_UOM,
MIN_QTY,
MAX_QTY
FROM GMD_MATERIAL_REQS
WHERE MATL_REQ_ID = X_MATL_REQ_ID
FOR UPDATE OF MATL_REQ_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_MATERIAL_REQ (
X_MATL_REQ_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_LINE_NO IN NUMBER ,
X_INVENTORY_ITEM_ID IN NUMBER ,
X_ITEM_UOM IN VARCHAR2 ,
X_MIN_QTY IN NUMBER ,
X_MAX_QTY IN NUMBER ,
X_RANGE_TYPE IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE GMD_MATERIAL_REQS
SET
FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID ,
SPEC_ATTRIBUTE_ID = X_SPEC_ATTRIBUTE_ID ,
LINE_NO = X_LINE_NO ,
INVENTORY_ITEM_ID = X_INVENTORY_ITEM_ID ,
ITEM_UOM = X_ITEM_UOM ,
MIN_QTY = X_MIN_QTY ,
MAX_QTY = X_MAX_QTY ,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE ,
LAST_UPDATED_BY = X_LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE MATL_REQ_ID = X_MATL_REQ_ID;
END UPDATE_MATERIAL_REQ;
PROCEDURE DELETE_MATERIAL_REQ (
X_MATL_REQ_ID IN NUMBER
) IS
BEGIN
DELETE FROM GMD_MATERIAL_REQS
WHERE MATL_REQ_ID = X_MATL_REQ_ID;
END DELETE_MATERIAL_REQ;
PROCEDURE INSERT_COMPOSITIONAL_REQ (
X_ROWID OUT NOCOPY VARCHAR2 ,
X_COMP_REQ_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_MIN_PCT IN NUMBER ,
X_MAX_PCT IN NUMBER ,
X_CATEGORY_SET_ID IN NUMBER ,
X_CATEGORY_ID IN NUMBER ,
X_PLANNED_PCT IN NUMBER ,
X_ORDER_NO IN NUMBER ,
X_CREATION_DATE IN DATE ,
X_CREATED_BY IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
CURSOR C IS
SELECT ROWID
FROM GMD_COMPOSITIONAL_REQS
WHERE COMP_REQ_ID = X_COMP_REQ_ID;
INSERT INTO GMD_COMPOSITIONAL_REQS (
FORMULATION_SPEC_ID,
COMP_REQ_ID,
SPEC_ATTRIBUTE_ID,
ORDER_NO,
MIN_PCT,
MAX_PCT,
CATEGORY_SET_ID,
CATEGORY_ID,
PLANNED_PCT,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
X_FORMULATION_SPEC_ID,
X_COMP_REQ_ID,
X_SPEC_ATTRIBUTE_ID,
X_ORDER_NO,
X_MIN_PCT,
X_MAX_PCT,
X_CATEGORY_SET_ID,
X_CATEGORY_ID,
X_PLANNED_PCT,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
END INSERT_COMPOSITIONAL_REQ;
CURSOR C IS SELECT
FORMULATION_SPEC_ID,
SPEC_ATTRIBUTE_ID,
MIN_PCT,
MAX_PCT,
CATEGORY_SET_ID,
CATEGORY_ID,
PLANNED_PCT
FROM GMD_COMPOSITIONAL_REQS
WHERE COMP_REQ_ID = X_COMP_REQ_ID
FOR UPDATE OF COMP_REQ_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_COMPOSITIONAL_REQ (
X_COMP_REQ_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_MIN_PCT IN NUMBER ,
X_MAX_PCT IN NUMBER ,
X_CATEGORY_SET_ID IN NUMBER ,
X_CATEGORY_ID IN NUMBER ,
X_PLANNED_PCT IN NUMBER ,
X_ORDER_NO IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE GMD_COMPOSITIONAL_REQS SET
FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID ,
SPEC_ATTRIBUTE_ID = X_SPEC_ATTRIBUTE_ID ,
MIN_PCT = X_MIN_PCT ,
MAX_PCT = X_MAX_PCT ,
CATEGORY_SET_ID = X_CATEGORY_SET_ID ,
CATEGORY_ID = X_CATEGORY_ID ,
PLANNED_PCT = X_PLANNED_PCT ,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE ,
LAST_UPDATED_BY = X_LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE COMP_REQ_ID = X_COMP_REQ_ID;
END UPDATE_COMPOSITIONAL_REQ;
PROCEDURE DELETE_COMPOSITIONAL_REQ (
X_COMP_REQ_ID IN NUMBER
) IS
BEGIN
DELETE FROM GMD_COMPOSITIONAL_REQS
WHERE COMP_REQ_ID = X_COMP_REQ_ID;
END DELETE_COMPOSITIONAL_REQ;
PROCEDURE INSERT_TECHNICAL_REQ (
X_ROWID OUT NOCOPY VARCHAR2 ,
X_TECH_REQ_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_TECH_PARM_ID IN NUMBER ,
X_MIN_VALUE IN NUMBER ,
X_MAX_VALUE IN NUMBER ,
X_CREATION_DATE IN DATE ,
X_CREATED_BY IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
CURSOR C IS
SELECT ROWID
FROM GMD_TECHNICAL_REQS
WHERE TECH_REQ_ID = X_TECH_REQ_ID;
INSERT INTO GMD_TECHNICAL_REQS (
FORMULATION_SPEC_ID,
SPEC_ATTRIBUTE_ID,
TECH_PARM_ID,
TECH_REQ_ID,
MIN_VALUE,
MAX_VALUE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) VALUES (
X_FORMULATION_SPEC_ID,
X_SPEC_ATTRIBUTE_ID,
X_TECH_PARM_ID,
X_TECH_REQ_ID,
X_MIN_VALUE,
X_MAX_VALUE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
END INSERT_TECHNICAL_REQ;
CURSOR C IS SELECT
FORMULATION_SPEC_ID,
SPEC_ATTRIBUTE_ID,
TECH_PARM_ID,
MIN_VALUE,
MAX_VALUE
FROM GMD_TECHNICAL_REQS
WHERE TECH_REQ_ID = X_TECH_REQ_ID
FOR UPDATE OF TECH_REQ_ID NOWAIT;
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
PROCEDURE UPDATE_TECHNICAL_REQ (
X_TECH_REQ_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_TECH_PARM_ID IN NUMBER ,
X_MIN_VALUE IN NUMBER ,
X_MAX_VALUE IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER
) IS
BEGIN
UPDATE GMD_TECHNICAL_REQS
SET
FORMULATION_SPEC_ID = X_FORMULATION_SPEC_ID ,
SPEC_ATTRIBUTE_ID = X_SPEC_ATTRIBUTE_ID ,
TECH_PARM_ID = X_TECH_PARM_ID ,
MIN_VALUE = X_MIN_VALUE ,
MAX_VALUE = X_MAX_VALUE ,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE ,
LAST_UPDATED_BY = X_LAST_UPDATED_BY ,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
WHERE TECH_REQ_ID = X_TECH_REQ_ID;
END UPDATE_TECHNICAL_REQ;
PROCEDURE DELETE_TECHNICAL_REQ (
X_TECH_REQ_ID IN NUMBER
) IS
BEGIN
DELETE FROM GMD_TECHNICAL_REQS
WHERE TECH_REQ_ID = X_TECH_REQ_ID;
END DELETE_TECHNICAL_REQ;
PROCEDURE INSERT_SPEC_ATTRIBUTE (
X_ROWID OUT NOCOPY VARCHAR2 ,
X_SPEC_ATTRIBUTE_ID IN NUMBER ,
X_FORMULATION_SPEC_ID IN NUMBER ,
X_LOOKUP_TYPE IN VARCHAR2 ,
X_LOOKUP_CODE IN VARCHAR2 ,
X_CREATION_DATE IN DATE ,
X_CREATED_BY IN NUMBER ,
X_LAST_UPDATE_DATE IN DATE ,
X_LAST_UPDATED_BY IN NUMBER ,
X_LAST_UPDATE_LOGIN IN NUMBER) IS
CURSOR C IS
SELECT ROWID
FROM GMD_SPECIFICATION_ATTRIBUTES
WHERE SPEC_ATTRIBUTE_ID = X_SPEC_ATTRIBUTE_ID;
INSERT INTO GMD_SPECIFICATION_ATTRIBUTES (
FORMULATION_SPEC_ID,
SPEC_ATTRIBUTE_ID,
LOOKUP_TYPE,
LOOKUP_CODE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
) VALUES (
X_FORMULATION_SPEC_ID,
X_SPEC_ATTRIBUTE_ID,
X_LOOKUP_TYPE,
X_LOOKUP_CODE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATE_LOGIN
);
END INSERT_SPEC_ATTRIBUTE;
PROCEDURE DELETE_SPEC_ATTRIBUTE (
X_SPEC_ATTRIBUTE_ID IN NUMBER
) IS
BEGIN
DELETE FROM GMD_SPECIFICATION_ATTRIBUTES
WHERE SPEC_ATTRIBUTE_ID = X_SPEC_ATTRIBUTE_ID;
END DELETE_SPEC_ATTRIBUTE;
||'(select i.inventory_item_id from mtl_system_items_kfv i '
||' where i.organization_id = fs.owner_organization_id and '
||' i.concatenated_segments like '''||p_product|| ''''||' )';
||'(select i.inventory_item_id from mtl_system_items_kfv i '
||' where i.organization_id = fs.owner_organization_id and '
||' i.concatenated_segments = '''||p_product||''''||' )';
l_where := l_where||' AND fs.owner_organization_id IN ' || '(SELECT organization_id FROM ORG_ACCESS_VIEW '||
'WHERE ORGANIZATION_CODE LIKE '||''''||p_spec_organization||''''||' )';
l_where := l_where||' AND fs.owner_organization_id IN ' || '(SELECT organization_id FROM ORG_ACCESS_VIEW '||
'WHERE ORGANIZATION_CODE = '||''''||p_spec_organization||''''||')';
'SELECT *
FROM gmd_formulation_specs fs
WHERE ' || NVL (l_where, '1 = 1');
x_search_clause := 'SELECT * FROM gmd_formulation_specs fs WHERE ' || NVL (l_where, '1 = 1') || ' ORDER BY spec_name, spec_vers';