The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT VARCHAR2,
X_Surcharge_Id IN OUT NUMBER,
X_State_Code VARCHAR2,
X_Add_To_Rt VARCHAR2,
X_Name VARCHAR2,
X_Position VARCHAR2,
X_Rate NUMBER
) IS
CURSOR C IS SELECT rowid FROM PAY_WC_STATE_SURCHARGES
WHERE surcharge_id = X_Surcharge_Id;
CURSOR C2 IS SELECT pay_wc_state_surcharges_s.nextval FROM sys.dual;
p_event => 'INSERT');
INSERT INTO PAY_WC_STATE_SURCHARGES(
surcharge_id,
state_code,
add_to_rt,
name,
position,
rate
) VALUES (
X_Surcharge_Id,
X_State_Code,
X_Add_To_Rt,
X_Name,
X_Position,
X_Rate
);
END Insert_Row;
SELECT *
FROM PAY_WC_STATE_SURCHARGES
WHERE rowid = X_Rowid
FOR UPDATE of Surcharge_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Surcharge_Id NUMBER,
X_State_Code VARCHAR2,
X_Add_To_Rt VARCHAR2,
X_Name VARCHAR2,
X_Position VARCHAR2,
X_Rate NUMBER
) IS
BEGIN
--
-- check if unique
--
check_unique( x_surcharge_id,
x_state_code,
x_name,
x_position );
p_event => 'UPDATE');
UPDATE PAY_WC_STATE_SURCHARGES
SET
surcharge_id = X_Surcharge_Id,
state_code = X_State_Code,
add_to_rt = X_Add_To_Rt,
name = X_Name,
position = X_Position,
rate = X_Rate
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM PAY_WC_STATE_SURCHARGES
WHERE rowid = X_Rowid;
END Delete_Row;
SELECT
'N'
FROM
pay_wc_state_surcharges wss
WHERE
wss.name = p_name AND
wss.state_code = p_state_code AND
(wss.surcharge_id <> p_surcharge_id
OR
p_surcharge_id IS NULL);
SELECT
'N'
FROM
pay_wc_state_surcharges wss
WHERE
wss.state_code = p_state_code AND
wss.position = p_position AND
(wss.surcharge_id <> p_surcharge_id
OR
p_surcharge_id IS NULL);
SELECT
'Y'
FROM
pay_wc_state_surcharges wss
WHERE
wss.position = l_position AND
wss.state_code = p_state_code;
IF (p_event = 'DELETE')
THEN
IF(p_position = 'POST_EXP_MOD_1')
THEN
l_position := 'POST_EXP_MOD_2';
ELSIF (p_event IN ('INSERT', 'UPDATE') )
THEN
IF(p_position = 'POST_EXP_MOD_2')
THEN
l_position := 'POST_EXP_MOD_1';