The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_term_tab(x_term_id IN NUMBER);
SELECT DISTINCT 1
FROM igs_ad_acad_history_v hist, igs_ad_transcript_v trans, igs_ad_term_details_v term
WHERE hist.education_id = trans.education_id
AND trans.transcript_id = term.transcript_id
AND term.term_details_id = cp_term_details_id
AND hist.status = 'I';
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 : Kamalakar N.
Date Created By : 15/May/2000
Purpose :
Know limitations, enhancements or remarks
Change History
Who When What
(reverse chronological order - newest change first)
***************************************************************/
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_AD_TERM_UNITDTLS
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;
SELECT rowid
FROM igs_ad_term_unitdtls
WHERE unit_details_id = x_unit_details_id
FOR UPDATE NOWAIT;
SELECT rowid
FROM igs_ad_term_unitdtls
WHERE unit = x_unit
AND term_details_id = x_term_details_id and ((l_rowid is null) or (rowid <> l_rowid))
;
SELECT rowid
FROM igs_ad_term_unitdtls
WHERE unit_difficulty = x_code_id ;
SELECT rowid
FROM igs_ad_term_unitdtls
WHERE term_details_id = x_term_details_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 : Kamalakar N.
Date Created By : 15/May/2000
Purpose :
Know limitations, enhancements or remarks
Change History
Who When What
(reverse chronological order - newest change first)
***************************************************************/
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_unit_details_id,
x_term_details_id,
x_unit,
x_unit_difficulty,
x_unit_name,
x_cp_attempted,
x_cp_earned,
x_grade,
x_unit_grade_points,
x_deg_aud_detail_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.
Check_Child_Existance;
ELSIF (p_action = 'VALIDATE_INSERT') THEN
-- Call all the procedures related to Before Insert.
IF Get_PK_For_Validation (
new_references.unit_details_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
Check_Child_Existance;
IF (p_action = 'INSERT') THEN
-- Call all the procedures related to After Insert.
update_term_tab( x_term_id => NEW_REFERENCES.TERM_DETAILS_ID );
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to After Update.
update_term_tab( x_term_id => NEW_REFERENCES.TERM_DETAILS_ID );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to After Delete.
update_term_tab( x_term_id => OLD_REFERENCES.TERM_DETAILS_ID );
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
x_UNIT_DETAILS_ID IN OUT NOCOPY NUMBER,
x_TERM_DETAILS_ID IN NUMBER,
x_UNIT IN VARCHAR2,
x_UNIT_DIFFICULTY IN NUMBER,
x_UNIT_NAME IN VARCHAR2,
x_CP_ATTEMPTED IN NUMBER,
x_CP_EARNED IN NUMBER,
x_GRADE IN VARCHAR2,
x_UNIT_GRADE_POINTS IN NUMBER,
x_DEG_AUD_DETAIL_ID IN NUMBER DEFAULT NULL,
X_MODE in VARCHAR2 default 'R'
) AS
/*************************************************************
Created By : Kamalakar N.
Date Created By : 15/May/2000
Purpose :
Know limitations, enhancements or remarks
Change History
Who When What
(reverse chronological order - newest change first)
***************************************************************/
cursor C is select ROWID from IGS_AD_TERM_UNITDTLS
where UNIT_DETAILS_ID= X_UNIT_DETAILS_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;
p_action=>'INSERT',
x_rowid=>X_ROWID,
x_unit_details_id=>X_UNIT_DETAILS_ID,
x_term_details_id=>X_TERM_DETAILS_ID,
x_unit=>X_UNIT,
x_unit_difficulty=>X_UNIT_DIFFICULTY,
x_unit_name=>X_UNIT_NAME,
x_cp_attempted=>X_CP_ATTEMPTED,
x_cp_earned=>X_CP_EARNED,
x_grade=>X_GRADE,
x_unit_grade_points=>X_UNIT_GRADE_POINTS,
x_deg_aud_detail_id => X_DEG_AUD_DETAIL_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);
insert into IGS_AD_TERM_UNITDTLS (
UNIT_DETAILS_ID
,TERM_DETAILS_ID
,UNIT
,UNIT_DIFFICULTY
,UNIT_NAME
,CP_ATTEMPTED
,CP_EARNED
,GRADE
,UNIT_GRADE_POINTS
,DEG_AUD_DETAIL_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 (
IGS_AD_TERM_UNITDTLS_S.NEXTVAL
,NEW_REFERENCES.TERM_DETAILS_ID
,NEW_REFERENCES.UNIT
,NEW_REFERENCES.UNIT_DIFFICULTY
,NEW_REFERENCES.UNIT_NAME
,NEW_REFERENCES.CP_ATTEMPTED
,NEW_REFERENCES.CP_EARNED
,NEW_REFERENCES.GRADE
,NEW_REFERENCES.UNIT_GRADE_POINTS
,NEW_REFERENCES.DEG_AUD_DETAIL_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
)RETURNING UNIT_DETAILS_ID INTO X_UNIT_DETAILS_ID ;
p_action => 'INSERT' ,
x_rowid => X_ROWID );
end INSERT_ROW;
cursor c1 is select
TERM_DETAILS_ID
, UNIT
, UNIT_DIFFICULTY
, UNIT_NAME
, CP_ATTEMPTED
, CP_EARNED
, GRADE
, UNIT_GRADE_POINTS
, DEG_AUD_DETAIL_ID
from IGS_AD_TERM_UNITDTLS
where ROWID = X_ROWID
for update nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
Procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
x_UNIT_DETAILS_ID IN NUMBER,
x_TERM_DETAILS_ID IN NUMBER,
x_UNIT IN VARCHAR2,
x_UNIT_DIFFICULTY IN NUMBER,
x_UNIT_NAME IN VARCHAR2,
x_CP_ATTEMPTED IN NUMBER,
x_CP_EARNED IN NUMBER,
x_GRADE IN VARCHAR2,
x_UNIT_GRADE_POINTS IN NUMBER,
x_DEG_AUD_DETAIL_ID IN NUMBER DEFAULT NULL,
X_MODE in VARCHAR2 default 'R'
) AS
/*************************************************************
Created By : Kamalakar N.
Date Created By : 15/May/2000
Purpose :
Know 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_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;
p_action=>'UPDATE',
x_rowid=>X_ROWID,
x_unit_details_id=>X_UNIT_DETAILS_ID,
x_term_details_id=>X_TERM_DETAILS_ID,
x_unit=>X_UNIT,
x_unit_difficulty=>X_UNIT_DIFFICULTY,
x_unit_name=>X_UNIT_NAME,
x_cp_attempted=>X_CP_ATTEMPTED,
x_cp_earned=>X_CP_EARNED,
x_grade=>X_GRADE,
x_unit_grade_points=>X_UNIT_GRADE_POINTS,
x_deg_aud_detail_id => X_DEG_AUD_DETAIL_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_PROGRAM_UPDATE_DATE := OLD_REFERENCES.PROGRAM_UPDATE_DATE;
X_PROGRAM_UPDATE_DATE := SYSDATE;
UPDATE IGS_AD_TERM_UNITDTLS SET
TERM_DETAILS_ID = NEW_REFERENCES.TERM_DETAILS_ID,
UNIT = NEW_REFERENCES.UNIT,
UNIT_DIFFICULTY = NEW_REFERENCES.UNIT_DIFFICULTY,
UNIT_NAME = NEW_REFERENCES.UNIT_NAME,
CP_ATTEMPTED = NEW_REFERENCES.CP_ATTEMPTED,
CP_EARNED = NEW_REFERENCES.CP_EARNED,
GRADE = NEW_REFERENCES.GRADE,
UNIT_GRADE_POINTS = NEW_REFERENCES.UNIT_GRADE_POINTS,
DEG_AUD_DETAIL_ID = NEW_REFERENCES.DEG_AUD_DETAIL_ID,
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 = PROGRAM_APPLICATION_ID,
PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE
where ROWID = X_ROWID;
p_action => 'UPDATE' ,
x_rowid => X_ROWID
);
end UPDATE_ROW;
cursor c1 is select ROWID from IGS_AD_TERM_UNITDTLS
where UNIT_DETAILS_ID= X_UNIT_DETAILS_ID
;
INSERT_ROW (
X_ROWID,
X_UNIT_DETAILS_ID,
X_TERM_DETAILS_ID,
X_UNIT,
X_UNIT_DIFFICULTY,
X_UNIT_NAME,
X_CP_ATTEMPTED,
X_CP_EARNED,
X_GRADE,
X_UNIT_GRADE_POINTS,
X_DEG_AUD_DETAIL_ID,
X_MODE );
UPDATE_ROW (
X_ROWID,
X_UNIT_DETAILS_ID,
X_TERM_DETAILS_ID,
X_UNIT,
X_UNIT_DIFFICULTY,
X_UNIT_NAME,
X_CP_ATTEMPTED,
X_CP_EARNED,
X_GRADE,
X_UNIT_GRADE_POINTS,
X_DEG_AUD_DETAIL_ID,
X_MODE );
procedure DELETE_ROW (
X_ROWID in VARCHAR2,
x_mode IN VARCHAR2
) AS
/*************************************************************
Created By : Kamalakar N.
Date Created By : 15/May/2000
Purpose :
Know limitations, enhancements or remarks
Change History
Who When What
(reverse chronological order - newest change first)
***************************************************************/
begin
Before_DML (
p_action => 'DELETE',
x_rowid => X_ROWID
);
delete from IGS_AD_TERM_UNITDTLS
where ROWID = X_ROWID;
p_action => 'DELETE',
x_rowid => X_ROWID
);
end DELETE_ROW;
PROCEDURE update_term_tab(x_term_id IN NUMBER)
AS
/*************************************************************
Created By : TRAY
Date Created By : 18-JUN-2003
Purpose : For updating term details table, build 2864699
Know limitations, enhancements or remarks
Change History
Who When What
akadam 31-jul-2003 Bug No:3003149 the calculation in for loop was not checking NULL values
(reverse chronological order - newest change first)
***************************************************************/
CURSOR c_get_data IS
SELECT SUM(NVL(cp_attempted,0)) tcpa, SUM(NVL(cp_earned,0)) tcpe,SUM(NVL(unit_grade_points,0)) tugp
FROM igs_ad_term_unitdtls
WHERE term_details_id = x_term_id
GROUP BY term_details_id;
UPDATE igs_ad_term_details SET total_cp_attempted=l_cp_attempted_total
,total_cp_earned=l_cp_earned_total
,total_unit_gp=l_unit_grade_points_total
WHERE term_details_id = x_term_id ;
END update_term_tab;