The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_orgn_code IN VARCHAR2,
p_daytime_contact_name IN VARCHAR2,
p_daytime_telephone IN VARCHAR2,
p_daytime_extension IN VARCHAR2,
p_daytime_area_code IN VARCHAR2,
p_evening_contact_name IN VARCHAR2,
p_evening_telephone IN VARCHAR2,
p_evening_extension IN VARCHAR2,
p_evening_area_code IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
p_daytime_email IN VARCHAR2,
p_evening_email IN VARCHAR2,
p_daytime_fax_no IN VARCHAR2,
p_evening_fax_no IN VARCHAR2,
x_rowid OUT NOCOPY VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Insert_Row;
INSERT INTO gr_organization_contacts
(orgn_code,
daytime_contact_name,
daytime_telephone,
daytime_extension,
daytime_area_code,
evening_contact_name,
evening_telephone,
evening_extension,
evening_area_code,
daytime_email,
evening_email,
daytime_fax_no,
evening_fax_no,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login)
VALUES
(p_orgn_code,
p_daytime_contact_name,
p_daytime_telephone,
p_daytime_extension,
p_daytime_area_code,
p_evening_contact_name,
p_evening_telephone,
p_evening_extension,
p_evening_area_code,
p_daytime_email,
p_evening_email,
p_daytime_fax_no,
p_evening_fax_no,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_date,
p_last_update_login);
/* Now get the row id of the inserted record */
Check_Primary_Key
(p_orgn_code,
'F',
l_rowid,
l_key_exists);
ROLLBACK TO SAVEPOINT Insert_Row;
ROLLBACK TO SAVEPOINT Insert_Row;
ROLLBACK TO SAVEPOINT Insert_Row;
'GR_NO_RECORD_INSERTED');
ROLLBACK TO SAVEPOINT Insert_Row;
END Insert_Row;
PROCEDURE Update_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_orgn_code IN VARCHAR2,
p_daytime_contact_name IN VARCHAR2,
p_daytime_telephone IN VARCHAR2,
p_daytime_extension IN VARCHAR2,
p_daytime_area_code IN VARCHAR2,
p_evening_contact_name IN VARCHAR2,
p_evening_telephone IN VARCHAR2,
p_evening_extension IN VARCHAR2,
p_evening_area_code IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
p_daytime_email IN VARCHAR2,
p_evening_email IN VARCHAR2,
p_daytime_fax_no IN VARCHAR2,
p_evening_fax_no IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Update_Row;
UPDATE gr_organization_contacts
SET orgn_code = p_orgn_code,
daytime_contact_name = p_daytime_contact_name,
daytime_telephone = p_daytime_telephone,
daytime_extension = p_daytime_extension,
daytime_area_code = p_daytime_area_code,
evening_contact_name = p_evening_contact_name,
evening_telephone = p_evening_telephone,
evening_extension = p_evening_extension,
evening_area_code = p_evening_area_code,
created_by = p_created_by,
creation_date = p_creation_date,
last_updated_by = p_last_updated_by,
last_update_date = p_last_update_date,
last_update_login = p_last_update_login,
daytime_email = p_daytime_email,
evening_email = p_evening_email,
daytime_fax_no = p_daytime_fax_no,
evening_fax_no = p_evening_fax_no
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Update_Row;
ROLLBACK TO SAVEPOINT Update_Row;
'GR_NO_RECORD_INSERTED');
ROLLBACK TO SAVEPOINT Update_Row;
END Update_Row;
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
p_daytime_email IN VARCHAR2,
p_evening_email IN VARCHAR2,
p_daytime_fax_no IN VARCHAR2,
p_evening_fax_no IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SELECT *
FROM gr_organization_contacts
WHERE rowid = p_rowid
FOR UPDATE NOWAIT;
PROCEDURE Delete_Row
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_rowid IN VARCHAR2,
p_orgn_code IN VARCHAR2,
p_daytime_contact_name IN VARCHAR2,
p_daytime_telephone IN VARCHAR2,
p_daytime_extension IN VARCHAR2,
p_daytime_area_code IN VARCHAR2,
p_evening_contact_name IN VARCHAR2,
p_evening_telephone IN VARCHAR2,
p_evening_extension IN VARCHAR2,
p_evening_area_code IN VARCHAR2,
p_created_by IN NUMBER,
p_creation_date IN DATE,
p_last_updated_by IN NUMBER,
p_last_update_date IN DATE,
p_last_update_login IN NUMBER,
p_daytime_email IN VARCHAR2,
p_evening_email IN VARCHAR2,
p_daytime_fax_no IN VARCHAR2,
p_evening_fax_no IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_oracle_error OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2)
IS
/* Alpha Variables */
L_RETURN_STATUS VARCHAR2(1) := 'S';
SAVEPOINT Delete_Row;
DELETE FROM gr_organization_contacts
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
END Delete_Row;
SELECT som.orgn_code
FROM sy_orgn_mst som
WHERE som.orgn_code = p_orgn_code;
ROLLBACK TO SAVEPOINT Delete_Row;
SELECT orc.rowid
FROM gr_organization_contacts orc
WHERE orc.orgn_code = p_orgn_code;