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,
x_org_id IN NUMBER DEFAULT NULL
) AS
CURSOR cur_old_ref_values IS
SELECT *
FROM igs_tr_item_all
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;
PROCEDURE beforerowinsertupdate1(
p_inserting IN BOOLEAN DEFAULT FALSE,
p_updating IN BOOLEAN DEFAULT FALSE,
p_deleting IN BOOLEAN DEFAULT FALSE
) AS
v_message_name VARCHAR2(30);
IF p_inserting OR (old_references.tracking_status <> new_references.tracking_status) THEN
IF igs_tr_val_tri.trkp_val_tri_status (new_references.tracking_status,p_inserting,v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
IF p_inserting OR (old_references.tracking_type <> new_references.tracking_type) THEN
IF igs_tr_val_tri.trkp_val_tri_type (new_references.tracking_type, v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
IF p_inserting OR (old_references.start_dt <> new_references.start_dt) THEN
IF igs_tr_val_tri.trkp_val_tri_strt_dt ( new_references.start_dt, v_message_name) = FALSE THEN
fnd_message.set_name('IGS',v_message_name);
new_references.last_updated_by := fnd_global.user_id;
new_references.last_update_date := SYSDATE;
END beforerowinsertupdate1;
PROCEDURE afterrowinsertupdatedelete2(
p_inserting IN BOOLEAN DEFAULT FALSE,
p_updating IN BOOLEAN DEFAULT FALSE,
p_deleting IN BOOLEAN DEFAULT FALSE
) AS
v_message_name VARCHAR2(30);
IF p_inserting THEN
igs_tr_gen_002.trkp_ins_dflt_trst ( new_references.tracking_id, v_message_name);
END afterrowinsertupdatedelete2;
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_tr_item_all
WHERE tracking_id = x_tracking_id
FOR UPDATE NOWAIT;
SELECT ROWID
FROM igs_tr_item_all
WHERE source_person_id = x_person_id
OR originator_person_id = x_person_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,
x_org_id IN NUMBER DEFAULT NULL
) AS
BEGIN
set_column_values (
p_action,
x_rowid,
x_tracking_id,
x_tracking_status,
x_tracking_type,
x_source_person_id,
x_start_dt,
x_target_days,
x_sequence_ind,
x_business_days_ind,
x_originator_person_id,
x_s_created_ind,
x_override_offset_clc_ind,
x_completion_due_dt,
x_publish_ind,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login,
x_org_id
);
IF (p_action = 'INSERT') THEN
beforerowinsertupdate1 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
beforerowinsertupdate1 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
check_child_existance;
ELSIF (p_action = 'VALIDATE_INSERT') THEN
beforerowinsertupdate1 ( p_inserting => TRUE );
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
beforerowinsertupdate1 ( p_updating => TRUE );
ELSIF (p_action = 'VALIDATE_DELETE') THEN
check_child_existance;
IF (p_action = 'INSERT') THEN
afterrowinsertupdatedelete2 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
afterrowinsertupdatedelete2 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
afterrowinsertupdatedelete2 ( p_deleting => TRUE );
PROCEDURE insert_row (
x_rowid IN OUT NOCOPY VARCHAR2,
x_tracking_id IN NUMBER,
x_tracking_status IN VARCHAR2,
x_tracking_type IN VARCHAR2,
x_source_person_id IN NUMBER,
x_start_dt IN DATE,
x_target_days IN NUMBER,
x_sequence_ind IN VARCHAR2,
x_business_days_ind IN VARCHAR2,
x_originator_person_id IN NUMBER,
x_s_created_ind IN VARCHAR2,
x_override_offset_clc_ind IN VARCHAR2 DEFAULT 'N',
x_completion_due_dt IN DATE DEFAULT NULL,
x_publish_ind IN VARCHAR2 DEFAULT 'N',
x_mode IN VARCHAR2 DEFAULT 'R',
x_org_id IN NUMBER
) AS
CURSOR c IS
SELECT ROWID
FROM igs_tr_item_all
WHERE tracking_id = x_tracking_id;
x_last_update_date DATE;
x_last_updated_by NUMBER;
x_last_update_login NUMBER;
x_program_update_date DATE;
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;
x_program_update_date := NULL;
x_program_update_date := SYSDATE;
before_dml(p_action =>'INSERT',
x_rowid =>x_rowid,
x_tracking_id =>x_tracking_id,
x_tracking_status=>x_tracking_status,
x_tracking_type =>x_tracking_type,
x_source_person_id=>x_source_person_id,
x_start_dt=>x_start_dt,
x_target_days =>x_target_days,
x_sequence_ind=>NVL(x_sequence_ind,'N'),
x_business_days_ind=>NVL(x_business_days_ind,'N'),
x_originator_person_id=>x_originator_person_id,
x_s_created_ind =>NVL(x_s_created_ind,'N'),
x_override_offset_clc_ind => NVL(x_override_offset_clc_ind,'N'),
x_completion_due_dt => x_completion_due_dt,
x_publish_ind => NVL(x_publish_ind,'N'),
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,
x_org_id => igs_ge_gen_003.get_org_id
);
INSERT INTO igs_tr_item_all (
tracking_id,
tracking_status,
tracking_type,
source_person_id,
start_dt,
target_days,
sequence_ind,
business_days_ind,
originator_person_id,
s_created_ind,
override_offset_clc_ind,
completion_due_dt,
publish_ind,
org_id,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login,
request_id,
program_id,
program_application_id,
program_update_date
) VALUES (
new_references.tracking_id,
new_references.tracking_status,
new_references.tracking_type,
new_references.source_person_id,
new_references.start_dt,
new_references.target_days,
new_references.sequence_ind,
new_references.business_days_ind,
new_references.originator_person_id,
new_references.s_created_ind,
new_references.override_offset_clc_ind,
new_references.completion_due_dt,
new_references.publish_ind,
new_references.org_id,
x_last_update_date,
x_last_updated_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login,
x_request_id,
x_program_id,
x_program_application_id,
x_program_update_date
);
p_action =>'INSERT',
x_rowid => x_rowid
);
END insert_row;
SELECT tracking_status, tracking_type, source_person_id, start_dt, target_days,
sequence_ind, business_days_ind, originator_person_id, s_created_ind,
override_offset_clc_ind, completion_due_dt, publish_ind
FROM igs_tr_item_all
WHERE ROWID = x_rowid
FOR UPDATE NOWAIT;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
PROCEDURE update_row (
x_rowid IN VARCHAR2,
x_tracking_id IN NUMBER,
x_tracking_status IN VARCHAR2,
x_tracking_type IN VARCHAR2,
x_source_person_id IN NUMBER,
x_start_dt IN DATE,
x_target_days IN NUMBER,
x_sequence_ind IN VARCHAR2,
x_business_days_ind IN VARCHAR2,
x_originator_person_id IN NUMBER,
x_s_created_ind IN VARCHAR2,
x_override_offset_clc_ind IN VARCHAR2 DEFAULT 'N',
x_completion_due_dt IN DATE DEFAULT NULL,
x_publish_ind IN VARCHAR2 DEFAULT 'N',
x_mode IN VARCHAR2 DEFAULT 'R'
) AS
x_last_update_date DATE;
x_last_updated_by NUMBER;
x_last_update_login NUMBER;
x_program_update_date DATE;
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;
before_dml(p_action =>'UPDATE',
x_rowid =>x_rowid,
x_tracking_id =>x_tracking_id,
x_tracking_status=>x_tracking_status,
x_tracking_type =>x_tracking_type,
x_source_person_id=>x_source_person_id,
x_start_dt=>x_start_dt,
x_target_days =>x_target_days,
x_sequence_ind=>x_sequence_ind,
x_business_days_ind=>x_business_days_ind,
x_originator_person_id=>x_originator_person_id,
x_s_created_ind =>x_s_created_ind,
x_override_offset_clc_ind => x_override_offset_clc_ind,
x_completion_due_dt => x_completion_due_dt,
x_publish_ind => x_publish_ind,
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
);
x_program_update_date := SYSDATE;
UPDATE igs_tr_item_all SET
tracking_status = new_references.tracking_status,
tracking_type = new_references.tracking_type,
source_person_id = new_references.source_person_id,
start_dt = new_references.start_dt,
target_days = new_references.target_days,
sequence_ind = new_references.sequence_ind,
business_days_ind = new_references.business_days_ind,
originator_person_id = new_references.originator_person_id,
s_created_ind = new_references.s_created_ind,
override_offset_clc_ind = new_references.override_offset_clc_ind,
completion_due_dt = new_references.completion_due_dt,
publish_ind = new_references.publish_ind,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by,
last_update_login = x_last_update_login,
request_id = x_request_id,
program_id = x_program_id,
program_application_id = x_program_application_id,
program_update_date = x_program_update_date
WHERE ROWID = x_rowid;
p_action =>'UPDATE',
x_rowid => x_rowid
);
END update_row;
SELECT ROWID
FROM igs_tr_item_all
WHERE tracking_id = x_tracking_id;
insert_row (
x_rowid,
x_tracking_id,
x_tracking_status,
x_tracking_type,
x_source_person_id,
x_start_dt,
x_target_days,
x_sequence_ind,
x_business_days_ind,
x_originator_person_id,
x_s_created_ind,
x_override_offset_clc_ind,
x_completion_due_dt,
x_publish_ind,
x_mode,
x_org_id
);
update_row (
x_rowid,
x_tracking_id,
x_tracking_status,
x_tracking_type,
x_source_person_id,
x_start_dt,
x_target_days,
x_sequence_ind,
x_business_days_ind,
x_originator_person_id,
x_s_created_ind,
x_override_offset_clc_ind,
x_completion_due_dt,
x_publish_ind,
x_mode
);
PROCEDURE delete_row (
x_rowid IN VARCHAR2
) AS
BEGIN
before_dml(
p_action =>'DELETE',
x_rowid => x_rowid
);
DELETE FROM igs_tr_item_all WHERE ROWID = x_rowid;
p_action =>'DELETE',
x_rowid => x_rowid
);
END delete_row;