The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
( x_rowid IN OUT NOCOPY VARCHAR2
, p_rule_set_code IN VARCHAR2
, p_rule_number IN NUMBER
, p_source_type IN VARCHAR2
, p_attribute_code IN VARCHAR2
, p_attribute_property_code IN VARCHAR2
, p_attribute_lookup_type IN VARCHAR2
, p_commodity_code IN VARCHAR2
, p_creation_date IN DATE
, p_created_by IN NUMBER
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
)
IS
CURSOR c IS
SELECT
rowid
FROM
mtl_mvt_stats_rules
WHERE rule_set_code = p_rule_set_code
AND rule_number = p_rule_number;
INSERT INTO mtl_mvt_stats_rules
( rule_set_code
, rule_number
, source_type
, attribute_code
, attribute_property_code
, attribute_lookup_type
, commodity_code
, creation_date
, created_by
, last_update_date
, last_updated_by
, last_update_login
)
VALUES
( p_rule_set_code
, p_rule_number
, p_source_type
, p_attribute_code
, p_attribute_property_code
, p_attribute_lookup_type
, p_commodity_code
, p_creation_date
, p_created_by
, p_last_update_date
, p_last_updated_by
, p_last_update_login
);
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Insert_Row');
END Insert_Row;
SELECT *
FROM
mtl_mvt_stats_rules
WHERE
rowid = p_rowid
FOR UPDATE OF rule_set_code nowait;
FND_MESSAGE.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row
( p_rowid IN VARCHAR2
, p_rule_set_code IN VARCHAR2
, p_rule_number IN NUMBER
, p_source_type IN VARCHAR2
, p_attribute_code IN VARCHAR2
, p_attribute_property_code IN VARCHAR2
, p_attribute_lookup_type IN VARCHAR2
, p_commodity_code IN VARCHAR2
, p_last_update_date IN DATE
, p_last_updated_by IN NUMBER
, p_last_update_login IN NUMBER
)
IS
BEGIN
UPDATE mtl_mvt_stats_rules
SET rule_set_code = p_rule_set_code
, rule_number = p_rule_number
, source_type = p_source_type
, attribute_code = p_attribute_code
, attribute_property_code = p_attribute_property_code
, attribute_lookup_type = p_attribute_lookup_type
, commodity_code = p_commodity_code
, last_update_date = p_last_update_date
, last_updated_by = p_last_updated_by
, last_update_login = p_last_update_login
WHERE rowid = p_rowid;
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Update_Row');
END Update_row;
PROCEDURE Delete_row
( p_rule_set_code IN VARCHAR2
)
IS
BEGIN
DELETE FROM
mtl_mvt_stats_rules
WHERE
rule_set_code = p_rule_set_code;
FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, 'Delete_Row'||substr(sqlerrm,1,100));
END Delete_row;