The following lines contain the word 'select', 'insert', 'update' or 'delete':
x_logical_delete_dt IN DATE DEFAULT NULL,
x_message IN VARCHAR2 DEFAULT NULL,
x_progression_rule_cat IN VARCHAR2 DEFAULT NULL,
x_sequence_number IN NUMBER DEFAULT NULL,
x_s_relation_type IN VARCHAR2 DEFAULT NULL,
x_progression_rule_cd IN VARCHAR2 DEFAULT NULL,
x_reference_cd IN VARCHAR2 DEFAULT NULL,
x_rul_sequence_number IN NUMBER DEFAULT NULL,
x_attendance_type IN VARCHAR2 DEFAULT NULL,
x_ou_org_unit_cd IN VARCHAR2 DEFAULT NULL,
x_ou_start_dt IN DATE DEFAULT NULL,
x_course_type IN VARCHAR2 DEFAULT NULL,
x_crv_course_cd IN VARCHAR2 DEFAULT NULL,
x_crv_version_number IN NUMBER DEFAULT NULL,
x_sca_person_id IN NUMBER DEFAULT NULL,
x_creation_date IN DATE DEFAULT NULL,
x_created_by IN NUMBER DEFAULT NULL,
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,
x_min_cp IN NUMBER DEFAULT NULL,
x_max_cp IN NUMBER DEFAULT NULL,
x_igs_pr_class_std_id IN NUMBER DEFAULT NULL
) AS
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_PR_RU_APPL_ALL
WHERE rowid = x_rowid;
IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
new_references.logical_delete_dt := x_logical_delete_dt;
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
(p_updating AND NVL(new_references.course_type, 'NULL') <>
NVL(old_references.course_type,'NULL')) THEN
IF IGS_as_VAL_acot.crsp_val_cty_closed (
new_references.course_type,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF p_inserting OR
(p_updating AND (NVL(new_references.crv_course_cd, 'NULL') <>
NVL(old_references.crv_course_cd,'NULL') OR
NVL(new_references.crv_version_number, 0) <>
NVL(old_references.crv_version_number,0))) THEN
IF IGS_PR_VAL_PRA.crsp_val_crv_active (
new_references.crv_course_cd,
new_references.crv_version_number,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF p_inserting OR
(p_updating AND (NVL(new_references.ou_org_unit_cd, 'NULL') <>
NVL(old_references.ou_org_unit_cd,'NULL') OR
NVL((fnd_date.date_to_canonical(new_references.ou_start_dt)), '1900/01/01') <>
NVL((fnd_date.date_to_canonical(old_references.ou_start_dt)), '1900/01/01'))) THEN
IF IGS_PR_VAL_SOPC.prgp_val_ou_active (
new_references.ou_org_unit_cd,
new_references.ou_start_dt,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF p_inserting THEN
IF IGS_PR_VAL_PRA.prgp_val_prgc_closed (
new_references.progression_rule_cat,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF new_references.progression_rule_cd IS NOT NULL AND (p_inserting OR
(p_updating AND NVL(new_references.progression_rule_cd, 'NULL') <>
NVL(old_references.progression_rule_cd,'NULL'))) THEN
IF IGS_PR_VAL_PRA.prgp_val_prr_closed (
new_references.progression_rule_cd,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF new_references.attendance_type IS NOT NULL AND (p_inserting OR
(p_updating AND NVL(new_references.attendance_type, 'NULL') <>
NVL(old_references.attendance_type, 'NULL'))) THEN
--
-- bug id : 1956374
-- sjadhav , 28-aug-2001
-- change igs_pr_val_pra.enrp_val_att_closed
-- to igs_en_val_pee.enrp_val_att_closed
--
IF IGS_EN_VAL_PEE.enrp_val_att_closed (
new_references.attendance_type,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
IF p_inserting OR p_updating THEN
IF IGS_PR_VAL_PRA.prgp_val_pra_rqrd (
new_references.s_relation_type,
new_references.progression_rule_cd,
new_references.rul_sequence_number,
new_references.ou_org_unit_cd,
new_references.ou_start_dt,
new_references.course_type,
new_references.crv_course_cd,
new_references.crv_version_number,
new_references.sca_person_id,
new_references.sca_course_cd,
new_references.pro_progression_rule_cat,
new_references.pro_pra_sequence_number,
new_references.pro_sequence_number,
new_references.spo_person_id,
new_references.spo_course_cd,
new_references.spo_sequence_number,
v_message_name) = FALSE THEN
Fnd_Message.Set_Name('IGS',v_message_name);
END BeforeRowInsertUpdate1;
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');
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_PR_RU_APPL_ALL
WHERE progression_rule_cat = x_progression_rule_cat
AND sequence_number = x_sequence_number
FOR UPDATE NOWAIT;
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE igs_pr_class_std_id = x_igs_pr_class_std_id;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_PCS_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE attendance_type = x_attendance_type ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null ) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_ATT_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE crv_course_cd = x_course_cd
AND crv_version_number = x_version_number ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_CRV_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE ou_org_unit_cd = x_org_unit_cd
AND ou_start_dt = x_start_dt ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_OU_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE progression_rule_cat = x_progression_rule_cat ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_PRGC_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE pro_progression_rule_cat = x_progression_rule_cat
AND pro_pra_sequence_number = x_pra_sequence_number
AND pro_sequence_number = x_sequence_number ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_PRO_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE progression_rule_cat = x_progression_rule_cat
AND progression_rule_cd = x_progression_rule_cd ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_PRR_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE sca_person_id = x_person_id
AND sca_course_cd = x_course_cd ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_SCA_FK');
SELECT rowid,logical_delete_dt
FROM IGS_PR_RU_APPL_ALL
WHERE spo_person_id = x_person_id
AND spo_course_cd = x_course_cd
AND spo_sequence_number = x_sequence_number ;
IF (cur_rowid%FOUND and lv_rowid.logical_delete_dt is null) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_PR_PRA_SPO_FK');
PROCEDURE BeforeInsertUpdate( p_action VARCHAR2 ) AS
/*
|| Created By : anilk
|| Created On : 25-FEB-2003
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
CURSOR c_parent (
cp_progression_rule_cat IGS_PR_RU_OU.progression_rule_cat%TYPE,
cp_pra_sequence_number IGS_PR_RU_OU.pra_sequence_number%TYPE,
cp_sequence_number IGS_PR_RU_OU.sequence_number%TYPE ) IS
SELECT 1
FROM IGS_PR_RU_OU pro
WHERE pro.progression_rule_cat = cp_progression_rule_cat AND
pro.pra_sequence_number = cp_pra_sequence_number AND
pro.sequence_number = cp_sequence_number AND
pro.logical_delete_dt is NULL;
IF (p_action = 'INSERT') AND new_references.pro_progression_rule_cat IS NOT NULL
AND new_references.pro_pra_sequence_number IS NOT NULL
AND new_references.pro_sequence_number IS NOT NULL THEN
OPEN c_parent( new_references.pro_progression_rule_cat, new_references.pro_pra_sequence_number, new_references.pro_sequence_number );
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
ELSIF(p_action = 'UPDATE') THEN
IF NVL(new_references.pro_progression_rule_cat,'1') <> NVL(old_references.pro_progression_rule_cat,'1') OR
NVL(new_references.pro_pra_sequence_number,1) <> NVL(old_references.pro_pra_sequence_number,1) OR
NVL(new_references.pro_sequence_number,1) <> NVL(old_references.pro_sequence_number,1) THEN
OPEN c_parent( new_references.pro_progression_rule_cat, new_references.pro_pra_sequence_number, new_references.pro_sequence_number );
FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
END BeforeInsertUpdate;
x_logical_delete_dt IN DATE DEFAULT NULL,
x_message IN VARCHAR2 DEFAULT NULL,
x_progression_rule_cat IN VARCHAR2 DEFAULT NULL,
x_sequence_number IN NUMBER DEFAULT NULL,
x_s_relation_type IN VARCHAR2 DEFAULT NULL,
x_progression_rule_cd IN VARCHAR2 DEFAULT NULL,
x_reference_cd IN VARCHAR2 DEFAULT NULL,
x_rul_sequence_number IN NUMBER DEFAULT NULL,
x_attendance_type IN VARCHAR2 DEFAULT NULL,
x_ou_org_unit_cd IN VARCHAR2 DEFAULT NULL,
x_ou_start_dt IN DATE DEFAULT NULL,
x_course_type IN VARCHAR2 DEFAULT NULL,
x_crv_course_cd IN VARCHAR2 DEFAULT NULL,
x_crv_version_number IN NUMBER DEFAULT NULL,
x_sca_person_id IN NUMBER DEFAULT NULL,
x_creation_date IN DATE DEFAULT NULL,
x_created_by IN NUMBER DEFAULT NULL,
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,
x_min_cp IN NUMBER DEFAULT NULL,
x_max_cp IN NUMBER DEFAULT NULL,
x_igs_pr_class_std_id IN NUMBER DEFAULT NULL
)
/*****************************************************************************************************************************
--
-- Changed History
-- Who When What
-- Aiyer 16-Apr-2002 Modified for the bug #2274631 Call to BeforeRowInsertUpdate1 from before_dml in case of update
-- needs to happen only for those a records which have not been logically deleted.
--
*********************************************************************************************************************************/
AS
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_sca_course_cd,
x_pro_progression_rule_cat,
x_pro_pra_sequence_number,
x_pro_sequence_number,
x_spo_person_id,
x_spo_course_cd,
x_spo_sequence_number,
x_logical_delete_dt,
x_message,
x_progression_rule_cat,
x_sequence_number,
x_s_relation_type,
x_progression_rule_cd,
x_reference_cd,
x_rul_sequence_number,
x_attendance_type,
x_ou_org_unit_cd,
x_ou_start_dt,
x_course_type,
x_crv_course_cd,
x_crv_version_number,
x_sca_person_id,
x_creation_date,
x_created_by,
x_last_update_date,
x_last_updated_by,
x_last_update_login ,
x_org_id,
x_min_cp,
x_max_cp,
x_igs_pr_class_std_id
);
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to Before Insert.
BeforeRowInsertUpdate1 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
-- Modified by aiyer for the bug #2274631
-- Call BeforeRowInsertUpdate1 procedure
-- only for those a records which have not been logically deleted
IF x_logical_delete_dt IS NULL THEN
BeforeRowInsertUpdate1 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to Before Delete.
Check_Child_Existance;
ELSIF (p_action = 'VALIDATE_INSERT') THEN
IF Get_PK_For_Validation (
new_references.progression_rule_cat,
new_references.sequence_number
) THEN
Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
CHECK_CONSTRAINTS;
ELSIF (p_action = 'VALIDATE_DELETE') THEN
Check_Child_Existance;
BeforeInsertUpdate(p_action);
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_PROGRESSION_RULE_CAT in VARCHAR2,
X_SEQUENCE_NUMBER in NUMBER,
X_S_RELATION_TYPE in VARCHAR2,
X_PROGRESSION_RULE_CD in VARCHAR2,
X_REFERENCE_CD in VARCHAR2,
X_RUL_SEQUENCE_NUMBER in NUMBER,
X_ATTENDANCE_TYPE in VARCHAR2,
X_OU_ORG_UNIT_CD in VARCHAR2,
X_OU_START_DT in DATE,
X_COURSE_TYPE in VARCHAR2,
X_CRV_COURSE_CD in VARCHAR2,
X_CRV_VERSION_NUMBER in NUMBER,
X_SCA_PERSON_ID in NUMBER,
X_SCA_COURSE_CD in VARCHAR2,
X_PRO_PROGRESSION_RULE_CAT in VARCHAR2,
X_PRO_PRA_SEQUENCE_NUMBER in NUMBER,
X_PRO_SEQUENCE_NUMBER in NUMBER,
X_SPO_PERSON_ID in NUMBER,
X_SPO_COURSE_CD in VARCHAR2,
X_SPO_SEQUENCE_NUMBER in NUMBER,
X_LOGICAL_DELETE_DT in DATE,
X_MESSAGE in VARCHAR2,
X_MODE in VARCHAR2 default 'R',
X_ORG_ID IN NUMBER,
X_MIN_CP IN NUMBER DEFAULT NULL,
X_MAX_CP IN NUMBER DEFAULT NULL,
X_IGS_PR_CLASS_STD_ID IN NUMBER DEFAULT NULL
) AS
cursor C is select ROWID from IGS_PR_RU_APPL_ALL
where PROGRESSION_RULE_CAT = X_PROGRESSION_RULE_CAT
and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER;
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 => 'INSERT',
x_rowid => x_rowid ,
x_sca_course_cd => x_sca_course_cd ,
x_pro_progression_rule_cat => x_pro_progression_rule_cat ,
x_pro_pra_sequence_number => x_pro_pra_sequence_number ,
x_pro_sequence_number => x_pro_sequence_number ,
x_spo_person_id => x_spo_person_id ,
x_spo_course_cd => x_spo_course_cd ,
x_spo_sequence_number => x_spo_sequence_number ,
x_logical_delete_dt => x_logical_delete_dt ,
x_message => x_message ,
x_progression_rule_cat => x_progression_rule_cat ,
x_sequence_number => x_sequence_number ,
x_s_relation_type => x_s_relation_type ,
x_progression_rule_cd => x_progression_rule_cd ,
x_reference_cd => x_reference_cd ,
x_rul_sequence_number => x_rul_sequence_number ,
x_attendance_type => x_attendance_type ,
x_ou_org_unit_cd => x_ou_org_unit_cd ,
x_ou_start_dt => x_ou_start_dt ,
x_course_type => x_course_type ,
x_crv_course_cd => x_crv_course_cd ,
x_crv_version_number => x_crv_version_number ,
x_sca_person_id => x_sca_person_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 ,
x_org_id => igs_ge_gen_003.get_org_id,
x_min_cp => x_min_cp,
x_max_cp => x_max_cp,
x_igs_pr_class_std_id => x_igs_pr_class_std_id
);
insert into IGS_PR_RU_APPL_ALL (
PROGRESSION_RULE_CAT,
SEQUENCE_NUMBER,
S_RELATION_TYPE,
PROGRESSION_RULE_CD,
REFERENCE_CD,
RUL_SEQUENCE_NUMBER,
ATTENDANCE_TYPE,
OU_ORG_UNIT_CD,
OU_START_DT,
COURSE_TYPE,
CRV_COURSE_CD,
CRV_VERSION_NUMBER,
SCA_PERSON_ID,
SCA_COURSE_CD,
PRO_PROGRESSION_RULE_CAT,
PRO_PRA_SEQUENCE_NUMBER,
PRO_SEQUENCE_NUMBER,
SPO_PERSON_ID,
SPO_COURSE_CD,
SPO_SEQUENCE_NUMBER,
LOGICAL_DELETE_DT,
MESSAGE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
ORG_ID,
MIN_CP,
MAX_CP,
IGS_PR_CLASS_STD_ID
) values (
NEW_REFERENCES.PROGRESSION_RULE_CAT,
NEW_REFERENCES.SEQUENCE_NUMBER,
NEW_REFERENCES.S_RELATION_TYPE,
NEW_REFERENCES.PROGRESSION_RULE_CD,
NEW_REFERENCES.REFERENCE_CD,
NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
NEW_REFERENCES.ATTENDANCE_TYPE,
NEW_REFERENCES.OU_ORG_UNIT_CD,
NEW_REFERENCES.OU_START_DT,
NEW_REFERENCES.COURSE_TYPE,
NEW_REFERENCES.CRV_COURSE_CD,
NEW_REFERENCES.CRV_VERSION_NUMBER,
NEW_REFERENCES.SCA_PERSON_ID,
NEW_REFERENCES.SCA_COURSE_CD,
NEW_REFERENCES.PRO_PROGRESSION_RULE_CAT,
NEW_REFERENCES.PRO_PRA_SEQUENCE_NUMBER,
NEW_REFERENCES.PRO_SEQUENCE_NUMBER,
NEW_REFERENCES.SPO_PERSON_ID,
NEW_REFERENCES.SPO_COURSE_CD,
NEW_REFERENCES.SPO_SEQUENCE_NUMBER,
NEW_REFERENCES.LOGICAL_DELETE_DT,
NEW_REFERENCES.MESSAGE,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
NEW_REFERENCES.ORG_ID,
NEW_REFERENCES.MIN_CP,
NEW_REFERENCES.MAX_CP,
NEW_REFERENCES.IGS_PR_CLASS_STD_ID
);
end INSERT_ROW;
X_LOGICAL_DELETE_DT in DATE,
X_MESSAGE in VARCHAR2,
X_MIN_CP IN NUMBER DEFAULT NULL,
X_MAX_CP IN NUMBER DEFAULT NULL,
X_IGS_PR_CLASS_STD_ID IN NUMBER DEFAULT NULL
) AS
cursor c1 is select
S_RELATION_TYPE,
PROGRESSION_RULE_CD,
REFERENCE_CD,
RUL_SEQUENCE_NUMBER,
ATTENDANCE_TYPE,
OU_ORG_UNIT_CD,
OU_START_DT,
COURSE_TYPE,
CRV_COURSE_CD,
CRV_VERSION_NUMBER,
SCA_PERSON_ID,
SCA_COURSE_CD,
PRO_PROGRESSION_RULE_CAT,
PRO_PRA_SEQUENCE_NUMBER,
PRO_SEQUENCE_NUMBER,
SPO_PERSON_ID,
SPO_COURSE_CD,
SPO_SEQUENCE_NUMBER,
LOGICAL_DELETE_DT,
MESSAGE,
MIN_CP,
MAX_CP,
IGS_PR_CLASS_STD_ID
from IGS_PR_RU_APPL_ALL
where ROWID = X_ROWID for update nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
AND ((tlinfo.LOGICAL_DELETE_DT = X_LOGICAL_DELETE_DT)
OR ((tlinfo.LOGICAL_DELETE_DT is null)
AND (X_LOGICAL_DELETE_DT is null)))
AND ((tlinfo.MIN_CP = X_MIN_CP)
OR ((tlinfo.MIN_CP is null)
AND (X_MIN_CP is null)))
AND ((tlinfo.MAX_CP = X_MAX_CP)
OR ((tlinfo.MAX_CP is null)
AND (X_MAX_CP is null)))
AND ((tlinfo.IGS_PR_CLASS_STD_ID = X_IGS_PR_CLASS_STD_ID)
OR ((tlinfo.IGS_PR_CLASS_STD_ID is null)
AND (X_IGS_PR_CLASS_STD_ID is null)))
AND ((tlinfo.MESSAGE = X_MESSAGE)
OR ((tlinfo.MESSAGE is null)
AND (X_MESSAGE is null)))
) then
null;
procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
X_PROGRESSION_RULE_CAT in VARCHAR2,
X_SEQUENCE_NUMBER in NUMBER,
X_S_RELATION_TYPE in VARCHAR2,
X_PROGRESSION_RULE_CD in VARCHAR2,
X_REFERENCE_CD in VARCHAR2,
X_RUL_SEQUENCE_NUMBER in NUMBER,
X_ATTENDANCE_TYPE in VARCHAR2,
X_OU_ORG_UNIT_CD in VARCHAR2,
X_OU_START_DT in DATE,
X_COURSE_TYPE in VARCHAR2,
X_CRV_COURSE_CD in VARCHAR2,
X_CRV_VERSION_NUMBER in NUMBER,
X_SCA_PERSON_ID in NUMBER,
X_SCA_COURSE_CD in VARCHAR2,
X_PRO_PROGRESSION_RULE_CAT in VARCHAR2,
X_PRO_PRA_SEQUENCE_NUMBER in NUMBER,
X_PRO_SEQUENCE_NUMBER in NUMBER,
X_SPO_PERSON_ID in NUMBER,
X_SPO_COURSE_CD in VARCHAR2,
X_SPO_SEQUENCE_NUMBER in NUMBER,
X_LOGICAL_DELETE_DT in DATE,
X_MESSAGE in VARCHAR2,
X_MODE in VARCHAR2 default 'R',
X_MIN_CP IN NUMBER DEFAULT NULL,
X_MAX_CP IN NUMBER DEFAULT NULL,
X_IGS_PR_CLASS_STD_ID IN NUMBER DEFAULT NULL
) AS
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_sca_course_cd => x_sca_course_cd,
x_pro_progression_rule_cat => x_pro_progression_rule_cat ,
x_pro_pra_sequence_number => x_pro_pra_sequence_number ,
x_pro_sequence_number => x_pro_sequence_number ,
x_spo_person_id => x_spo_person_id ,
x_spo_course_cd => x_spo_course_cd ,
x_spo_sequence_number => x_spo_sequence_number ,
x_logical_delete_dt => x_logical_delete_dt ,
x_message => x_message ,
x_progression_rule_cat => x_progression_rule_cat ,
x_sequence_number => x_sequence_number ,
x_s_relation_type => x_s_relation_type ,
x_progression_rule_cd => x_progression_rule_cd ,
x_reference_cd => x_reference_cd ,
x_rul_sequence_number => x_rul_sequence_number ,
x_attendance_type => x_attendance_type ,
x_ou_org_unit_cd => x_ou_org_unit_cd ,
x_ou_start_dt => x_ou_start_dt ,
x_course_type => x_course_type ,
x_crv_course_cd => x_crv_course_cd ,
x_crv_version_number => x_crv_version_number ,
x_sca_person_id => x_sca_person_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,
x_min_cp => x_min_cp,
x_max_cp => x_max_cp,
x_igs_pr_class_std_id => x_igs_pr_class_std_id
);
update IGS_PR_RU_APPL_ALL set
S_RELATION_TYPE = NEW_REFERENCES.S_RELATION_TYPE,
PROGRESSION_RULE_CD = NEW_REFERENCES.PROGRESSION_RULE_CD,
REFERENCE_CD = NEW_REFERENCES.REFERENCE_CD,
RUL_SEQUENCE_NUMBER = NEW_REFERENCES.RUL_SEQUENCE_NUMBER,
ATTENDANCE_TYPE = NEW_REFERENCES.ATTENDANCE_TYPE,
OU_ORG_UNIT_CD = NEW_REFERENCES.OU_ORG_UNIT_CD,
OU_START_DT = NEW_REFERENCES.OU_START_DT,
COURSE_TYPE = NEW_REFERENCES.COURSE_TYPE,
CRV_COURSE_CD = NEW_REFERENCES.CRV_COURSE_CD,
CRV_VERSION_NUMBER = NEW_REFERENCES.CRV_VERSION_NUMBER,
SCA_PERSON_ID = NEW_REFERENCES.SCA_PERSON_ID,
SCA_COURSE_CD = NEW_REFERENCES.SCA_COURSE_CD,
PRO_PROGRESSION_RULE_CAT = NEW_REFERENCES.PRO_PROGRESSION_RULE_CAT,
PRO_PRA_SEQUENCE_NUMBER = NEW_REFERENCES.PRO_PRA_SEQUENCE_NUMBER,
PRO_SEQUENCE_NUMBER = NEW_REFERENCES.PRO_SEQUENCE_NUMBER,
SPO_PERSON_ID = NEW_REFERENCES.SPO_PERSON_ID,
SPO_COURSE_CD = NEW_REFERENCES.SPO_COURSE_CD,
SPO_SEQUENCE_NUMBER = NEW_REFERENCES.SPO_SEQUENCE_NUMBER,
LOGICAL_DELETE_DT = NEW_REFERENCES.LOGICAL_DELETE_DT,
MESSAGE = NEW_REFERENCES.MESSAGE,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
MIN_CP = NEW_REFERENCES.MIN_CP,
MAX_CP = NEW_REFERENCES.MAX_CP,
IGS_PR_CLASS_STD_ID = NEW_REFERENCES.IGS_PR_CLASS_STD_ID
where ROWID = X_ROWID ;
end UPDATE_ROW;
X_LOGICAL_DELETE_DT in DATE,
X_MESSAGE in VARCHAR2,
X_MODE in VARCHAR2 default 'R',
X_ORG_ID IN NUMBER,
X_MIN_CP IN NUMBER DEFAULT NULL,
X_MAX_CP IN NUMBER DEFAULT NULL,
X_IGS_PR_CLASS_STD_ID IN NUMBER DEFAULT NULL
) AS
cursor c1 is select rowid from IGS_PR_RU_APPL_ALL
where PROGRESSION_RULE_CAT = X_PROGRESSION_RULE_CAT
and SEQUENCE_NUMBER = X_SEQUENCE_NUMBER ;
INSERT_ROW (
X_ROWID,
X_PROGRESSION_RULE_CAT,
X_SEQUENCE_NUMBER,
X_S_RELATION_TYPE,
X_PROGRESSION_RULE_CD,
X_REFERENCE_CD,
X_RUL_SEQUENCE_NUMBER,
X_ATTENDANCE_TYPE,
X_OU_ORG_UNIT_CD,
X_OU_START_DT,
X_COURSE_TYPE,
X_CRV_COURSE_CD,
X_CRV_VERSION_NUMBER,
X_SCA_PERSON_ID,
X_SCA_COURSE_CD,
X_PRO_PROGRESSION_RULE_CAT,
X_PRO_PRA_SEQUENCE_NUMBER,
X_PRO_SEQUENCE_NUMBER,
X_SPO_PERSON_ID,
X_SPO_COURSE_CD,
X_SPO_SEQUENCE_NUMBER,
X_LOGICAL_DELETE_DT,
X_MESSAGE,
X_MODE,
X_ORG_ID,
X_MIN_CP,
X_MAX_CP,
X_IGS_PR_CLASS_STD_ID);
UPDATE_ROW (
X_ROWID,
X_PROGRESSION_RULE_CAT,
X_SEQUENCE_NUMBER,
X_S_RELATION_TYPE,
X_PROGRESSION_RULE_CD,
X_REFERENCE_CD,
X_RUL_SEQUENCE_NUMBER,
X_ATTENDANCE_TYPE,
X_OU_ORG_UNIT_CD,
X_OU_START_DT,
X_COURSE_TYPE,
X_CRV_COURSE_CD,
X_CRV_VERSION_NUMBER,
X_SCA_PERSON_ID,
X_SCA_COURSE_CD,
X_PRO_PROGRESSION_RULE_CAT,
X_PRO_PRA_SEQUENCE_NUMBER,
X_PRO_SEQUENCE_NUMBER,
X_SPO_PERSON_ID,
X_SPO_COURSE_CD,
X_SPO_SEQUENCE_NUMBER,
X_LOGICAL_DELETE_DT,
X_MESSAGE,
X_MODE,
X_MIN_CP,
X_MAX_CP,
X_IGS_PR_CLASS_STD_ID);
procedure DELETE_ROW (
X_ROWID in VARCHAR2
) is
begin
Before_DML (
p_action => 'DELETE',
x_rowid => X_ROWID
);
delete from IGS_PR_RU_APPL_ALL
where ROWID = X_ROWID;
end DELETE_ROW;