The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_last_update_date IN DATE, -- DEFAULT NULL,
x_last_updated_by IN NUMBER, -- DEFAULT NULL,
x_last_update_login IN NUMBER --DEFAULT NULL
) AS
/*
|| Created By : tray
|| Date Created By : 2000/07/31
|| Purpose :
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| kumma 16-NOV-2002 REMOVED igs_pe_alias_types_pkg.get_pk_for_validation
|| (reverse chronological order - newest change first)
*/
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_SS_ADMAPPL_SETUP
WHERE rowid = x_rowid;
IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
CLOSE cur_old_ref_values;
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
IF (p_action = 'UPDATE') THEN
new_references.creation_date := old_references.creation_date;
new_references.last_update_date := x_last_update_date;
new_references.last_updated_by := x_last_updated_by;
new_references.last_update_login := x_last_update_login;
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
SELECT rowid
FROM igs_ss_admappl_setup
WHERE admappl_setup_id = x_admappl_setup_id
FOR UPDATE NOWAIT;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE we_note_type_id = x_notes_type_id ;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE alias_type = x_alias_type ;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE permanent_addr_type = x_addr_type ;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE act_note_type_id = x_notes_type_id ;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE mailing_addr_type = x_addr_type ;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE person_id_type = x_person_id_type ;
SELECT rowid
FROM igs_ss_admappl_setup
WHERE ps_note_type_id = x_notes_type_id ;
x_last_update_date IN DATE , --DEFAULT NULL,
x_last_updated_by IN NUMBER , --DEFAULT NULL,
x_last_update_login IN NUMBER --DEFAULT NULL
) AS
/*
|| Created By : tray
|| Date Created By : 2000/07/31
|| Purpose :
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
BEGIN
set_column_values (
p_action,
x_rowid,
x_admappl_setup_id,
x_alias_type,
x_permanent_addr_type,
x_mailing_addr_type,
x_person_id_type,
x_ps_note_type_id,
x_we_note_type_id,
x_act_note_type_id,
x_dependent_of_veteran,
x_app_source_id ,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login
);
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to Before Insert.
Null;
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to Before Update.
Null;
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to Before Delete.
Null;
ELSIF (p_action = 'VALIDATE_INSERT') THEN
-- Call all the procedures related to Before Insert.
IF (get_pk_for_validation (
new_references.admappl_setup_id)) THEN
fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
check_constraints;
ELSIF (p_action = 'VALIDATE_DELETE') THEN
NULL;
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to After Insert.
Null;
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to After Update.
Null;
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to After Delete.
Null;
CURSOR c1 IS SELECT
alias_type
, permanent_addr_type
, mailing_addr_type
, person_id_type
, ps_note_type_id
, we_note_type_id
, act_note_type_id
, dependent_of_veteran
, app_source_id
FROM igs_ss_admappl_setup
WHERE ROWID = x_rowid
FOR UPDATE NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE update_row (
x_rowid IN VARCHAR2,
x_ADMAPPL_SETUP_ID IN NUMBER,
x_ALIAS_TYPE IN VARCHAR2,
x_PERMANENT_ADDR_TYPE IN VARCHAR2,
x_MAILING_ADDR_TYPE IN VARCHAR2,
x_PERSON_ID_TYPE IN VARCHAR2,
x_PS_NOTE_TYPE_ID IN NUMBER,
x_WE_NOTE_TYPE_ID IN NUMBER,
x_ACT_NOTE_TYPE_ID IN NUMBER,
x_dependent_of_veteran IN NUMBER ,
x_app_source_id IN NUMBER ,
x_mode IN VARCHAR2 --DEFAULT 'R'
) AS
/*
|| Created By : tray
|| Date Created By : 2000/07/31
|| Purpose :
|| 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;
p_action=>'UPDATE',
x_rowid=>X_ROWID,
x_admappl_setup_id => x_ADMAPPL_SETUP_ID,
x_alias_type => x_ALIAS_TYPE,
x_permanent_addr_type => x_PERMANENT_ADDR_TYPE,
x_mailing_addr_type => x_MAILING_ADDR_TYPE,
x_person_id_type => x_PERSON_ID_TYPE,
x_ps_note_type_id => x_PS_NOTE_TYPE_ID,
x_we_note_type_id => x_WE_NOTE_TYPE_ID,
x_act_note_type_id => x_ACT_NOTE_TYPE_ID,
x_dependent_of_veteran => X_DEPENDENT_OF_VETERAN ,
x_app_source_id => X_APP_SOURCE_ID,
x_creation_date=>x_last_update_date,
x_created_by=>x_last_updated_by,
x_last_update_date=>x_last_update_date,
x_last_updated_by=>x_last_updated_by,
x_last_update_login=>x_last_update_login
);
UPDATE igs_ss_admappl_setup SET
alias_type = new_references.alias_type,
permanent_addr_type = new_references.permanent_addr_type,
mailing_addr_type = new_references.mailing_addr_type,
person_id_type = new_references.person_id_type,
ps_note_type_id = new_references.ps_note_type_id,
we_note_type_id = new_references.we_note_type_id,
act_note_type_id = new_references.act_note_type_id,
dependent_of_veteran = new_references.dependent_of_veteran ,
app_source_id = new_references.app_source_id,
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;
p_action => 'UPDATE',
x_rowid => X_ROWID
);
END update_row;