The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2,
x_book_type_code IN VARCHAR2,
x_gl_je_source IN VARCHAR2,
x_je_iac_deprn_category IN VARCHAR2,
x_je_iac_reval_category IN VARCHAR2,
x_je_iac_txn_category IN VARCHAR2,
x_period_num_for_catchup IN NUMBER,
x_mode IN VARCHAR2
) AS
/*
|| Created By :
|| Created On : 29-APR-2002
|| Purpose : Handles the INSERT DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
CURSOR c IS
SELECT rowid
FROM igi_iac_book_controls
WHERE book_type_code = x_book_type_code;
x_last_update_date DATE;
x_last_updated_by NUMBER;
x_last_update_login NUMBER;
x_last_update_date := SYSDATE;
x_last_updated_by := 1;
x_last_update_login := 0;
x_last_updated_by := fnd_global.user_id;
IF (x_last_updated_by IS NULL) THEN
x_last_updated_by := -1;
x_last_update_login := fnd_global.login_id;
IF (x_last_update_login IS NULL) THEN
x_last_update_login := -1;
igi_iac_debug_pkg.debug_other_msg(g_error_level,g_path||'insert_row',FALSE);
INSERT INTO igi_iac_book_controls (
book_type_code,
gl_je_source,
je_iac_deprn_category,
je_iac_reval_category,
je_iac_txn_category,
period_num_for_catchup,
org_id,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
) VALUES (
x_book_type_code,
x_gl_je_source,
x_je_iac_deprn_category,
x_je_iac_reval_category,
x_je_iac_txn_category,
x_period_num_for_catchup,
x_org_id,
x_last_update_date,
x_last_updated_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login
);
END insert_row;
SELECT
book_type_code,
gl_je_source,
je_iac_deprn_category,
je_iac_reval_category,
je_iac_txn_category,
period_num_for_catchup
FROM igi_iac_book_controls
WHERE rowid = x_rowid
FOR UPDATE NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE update_row (
x_rowid IN VARCHAR2,
x_book_type_code IN VARCHAR2,
x_gl_je_source IN VARCHAR2,
x_je_iac_deprn_category IN VARCHAR2,
x_je_iac_reval_category IN VARCHAR2,
x_je_iac_txn_category IN VARCHAR2,
x_period_num_for_catchup IN NUMBER,
x_mode IN VARCHAR2
) AS
/*
|| Created By :
|| Created On : 29-APR-2002
|| Purpose : Handles the UPDATE DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
x_last_update_date DATE ;
x_last_updated_by NUMBER;
x_last_update_login NUMBER;
x_last_update_date := SYSDATE;
x_last_updated_by := 1;
x_last_update_login := 0;
x_last_updated_by := fnd_global.user_id;
IF x_last_updated_by IS NULL THEN
x_last_updated_by := -1;
x_last_update_login := fnd_global.login_id;
IF (x_last_update_login IS NULL) THEN
x_last_update_login := -1;
igi_iac_debug_pkg.debug_other_msg(g_error_level,g_path||'update_row',FALSE);
UPDATE igi_iac_book_controls
SET
book_type_code = x_book_type_code,
gl_je_source = x_gl_je_source,
je_iac_deprn_category = x_je_iac_deprn_category,
je_iac_reval_category = x_je_iac_reval_category,
je_iac_txn_category = x_je_iac_txn_category,
period_num_for_catchup = x_period_num_for_catchup,
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 IN VARCHAR2
) AS
/*
|| Created By :
|| Created On : 29-APR-2002
|| Purpose : Handles the DELETE DML logic for the table.
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
BEGIN
DELETE FROM igi_iac_book_controls
WHERE rowid = x_rowid;
END delete_row;
SELECT
NVL ( TO_NUMBER ( DECODE ( SUBSTRB ( USERENV ('CLIENT_INFO' ), 1, 1 ), ' ', NULL, SUBSTRB (USERENV ('CLIENT_INFO'),1,10) ) ), NULL ) org_id FROM dual;