The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE select_row( recinfo IN OUT NOCOPY gl_stat_account_uom%ROWTYPE) IS
BEGIN
SELECT *
INTO recinfo
FROM gl_stat_account_uom
WHERE chart_of_accounts_id = recinfo.chart_of_accounts_id
AND account_segment_value = recinfo.account_segment_value;
END SELECT_ROW;
PROCEDURE select_columns(
x_chart_of_accounts_id IN OUT NOCOPY NUMBER,
x_account_segment_value IN OUT NOCOPY VARCHAR2,
x_unit_of_measure IN OUT NOCOPY VARCHAR2,
x_description IN OUT NOCOPY VARCHAR2) IS
recinfo gl_stat_account_uom%ROWTYPE;
select_row(recinfo);
END select_columns;
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Account_Segment_Value VARCHAR2,
X_Unit_Of_Measure VARCHAR2,
X_Chart_Of_Accounts_Id NUMBER,
X_Description VARCHAR2 DEFAULT NULL,
X_Last_Update_Date DATE DEFAULT NULL,
X_Last_Updated_By NUMBER DEFAULT NULL,
X_Creation_Date DATE DEFAULT NULL,
X_Created_By NUMBER DEFAULT NULL,
X_Last_Update_Login NUMBER DEFAULT NULL
) IS
CURSOR C IS SELECT rowid FROM gl_stat_account_uom
WHERE account_segment_value = X_Account_Segment_Value
AND chart_of_accounts_id = X_Chart_Of_Accounts_Id;
INSERT INTO gl_stat_account_uom(
account_segment_value,
unit_of_measure,
chart_of_accounts_id,
description,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login
) VALUES (
X_Account_Segment_Value,
X_Unit_Of_Measure,
X_Chart_Of_Accounts_Id,
X_Description,
X_Last_Update_Date,
X_Last_Updated_By,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login
);
END Insert_Row;
SELECT *
FROM gl_stat_account_uom
WHERE rowid = X_Rowid
FOR UPDATE of Account_Segment_Value NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Account_Segment_Value VARCHAR2,
X_Unit_Of_Measure VARCHAR2,
X_Chart_Of_Accounts_Id NUMBER,
X_Description VARCHAR2 DEFAULT NULL,
X_Last_Update_Date DATE DEFAULT NULL,
X_Last_Updated_By NUMBER DEFAULT NULL,
X_Last_Update_Login NUMBER DEFAULT NULL
) IS
BEGIN
UPDATE gl_stat_account_uom
SET
account_segment_value = X_Account_Segment_Value,
unit_of_measure = X_Unit_Of_Measure,
chart_of_accounts_id = X_Chart_Of_Accounts_Id,
description = X_Description,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
last_update_login = X_Last_Update_Login
WHERE rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM gl_stat_account_uom
WHERE rowid = X_Rowid;
END Delete_Row;
select 1 into dummy from dual where not exists
(select 1 from gl_stat_account_uom
where account_segment_value = X_Account_Segment_Value
and chart_of_accounts_id = X_Chart_Of_Accounts_Id
and ((X_Rowid is null) or (rowid <> X_Rowid))
);