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_item_code IN VARCHAR2,
p_document_code IN VARCHAR2,
p_phrase_code IN VARCHAR2,
p_display_order IN NUMBER,
p_main_heading_code IN VARCHAR2,
p_sub_heading_code IN VARCHAR2,
p_print_size IN NUMBER,
p_print_font 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_phrase_group_code 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_item_document_dtls
(item_code,
document_code,
phrase_code,
display_order,
main_heading_code,
sub_heading_code,
print_size,
print_font,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
phrase_group_code)
VALUES
(p_item_code,
p_document_code,
p_phrase_code,
p_display_order,
p_main_heading_code,
p_sub_heading_code,
p_print_size,
p_print_font,
p_created_by,
p_creation_date,
p_last_updated_by,
p_last_update_date,
p_last_update_login,
p_phrase_group_code);
/* Now get the row id of the inserted record */
Check_Primary_Key
(p_item_code,
p_document_code,
p_phrase_code,
p_display_order,
'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_item_code IN VARCHAR2,
p_document_code IN VARCHAR2,
p_phrase_code IN VARCHAR2,
p_display_order IN NUMBER,
p_main_heading_code IN VARCHAR2,
p_sub_heading_code IN VARCHAR2,
p_print_size IN NUMBER,
p_print_font 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_phrase_group_code 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_item_document_dtls
SET item_code = p_item_code,
document_code = p_document_code,
phrase_code = p_phrase_code,
display_order = p_display_order,
main_heading_code = p_main_heading_code,
sub_heading_code = p_sub_heading_code,
print_size = p_print_size,
print_font = p_print_font,
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,
phrase_group_code = p_phrase_group_code
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_phrase_group_code 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_item_document_dtls
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_item_code IN VARCHAR2,
p_document_code IN VARCHAR2,
p_phrase_code IN VARCHAR2,
p_display_order IN NUMBER,
p_main_heading_code IN VARCHAR2,
p_sub_heading_code IN VARCHAR2,
p_print_size IN NUMBER,
p_print_font 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_phrase_group_code 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_item_document_dtls
WHERE rowid = p_rowid;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
ROLLBACK TO SAVEPOINT Delete_Row;
END Delete_Row;
PROCEDURE Delete_Rows
(p_commit IN VARCHAR2,
p_called_by_form IN VARCHAR2,
p_delete_option IN VARCHAR2,
p_item_code IN VARCHAR2,
p_document_code IN VARCHAR2,
p_phrase_code 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';
NULL_DELETE_OPTION_ERROR EXCEPTION;
SAVEPOINT Delete_Rows;
** p delete option has one of five values
** 'I' - Delete all rows for the specified item.
** 'D' - Delete all rows for the specified document.
** 'P' - Delete all rows for the specified phrase.
*/
IF p_delete_option = 'I' THEN
IF p_item_code IS NULL THEN
l_msg_token := 'Item Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_document_dtls
WHERE item_code = p_item_code;
ELSIF p_delete_option = 'D' THEN
IF p_document_code IS NULL THEN
l_msg_token := 'Document Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_document_dtls
WHERE document_code = p_document_code;
ELSIF p_delete_option = 'P' THEN
IF p_phrase_code IS NULL THEN
l_msg_token := 'Phrase Code';
RAISE Null_Delete_Option_Error;
DELETE FROM gr_item_document_dtls
WHERE phrase_code = p_phrase_code;
WHEN Null_Delete_Option_Error THEN
x_return_status := 'E';
ROLLBACK TO SAVEPOINT Delete_Rows;
END Delete_Rows;
SELECT mh.main_heading_code
FROM gr_main_headings_b mh
WHERE mh.main_heading_code = p_main_heading_code;
SELECT sh.sub_heading_code
FROM gr_sub_headings_b sh
WHERE sh.sub_heading_code = p_sub_heading_code;
SELECT idd.rowid
FROM gr_item_document_dtls idd
WHERE idd.item_code = p_item_code
AND idd.document_code = p_document_code
AND idd.phrase_code = p_phrase_code
AND idd.display_order = p_display_order;