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
CURSOR cur_old_ref_values IS
SELECT *
FROM IGS_PE_PERS_PREFS_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');
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 BeforeRowInsertUpdateDelete2(
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 AND
new_references.allow_stnd_req_ind <> 'N') OR
(p_updating AND
new_references.allow_stnd_req_ind <> old_references.allow_stnd_req_ind) THEN
Fnd_Message.Set_Name('IGS', 'IGS_AV_INSUFICIENT_PRIV');
END BeforeRowInsertUpdateDelete2;
Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
SELECT rowid
FROM IGS_PE_PERS_PREFS_ALL
WHERE person_id = x_person_id
FOR UPDATE NOWAIT;
SELECT rowid
FROM IGS_PE_PERS_PREFS_ALL
WHERE 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
) AS
BEGIN
Set_Column_Values (
p_action,
x_rowid,
x_server_printer_dflt,
x_allow_stnd_req_ind,
x_enq_adm_cal_type,
x_enq_adm_ci_sequence_number,
x_enq_acad_cal_type,
x_enq_acad_ci_sequence_number,
x_person_id,
x_enr_acad_cal_type,
x_enr_acad_sequence_number,
x_enr_enrolment_cat,
x_enr_enr_method_type,
x_adm_acad_cal_type,
x_adm_acad_ci_sequence_number,
x_adm_adm_cal_type,
x_adm_adm_ci_sequence_number,
x_adm_admission_cat,
x_adm_s_admission_process_type,
x_org_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.
BeforeRowInsertUpdatedelete2 ( p_inserting => TRUE );
ELSIF (p_action = 'UPDATE') THEN
-- Call all the procedures related to Before Update.
BeforeRowInsertUpdatedelete2 ( p_updating => TRUE );
ELSIF (p_action = 'DELETE') THEN
-- Call all the procedures related to Before Delete.
BeforeRowInsertUpdatedelete2( p_deleting => TRUE );
ELSIF (p_action = 'VALIDATE_INSERT') THEN
IF Get_PK_For_Validation (
new_references.person_id ) THEN
Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
ELSIF (p_action = 'VALIDATE_UPDATE') THEN
Check_Constraints; -- if procedure present
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;
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_PERSON_ID in NUMBER,
X_ENR_ACAD_CAL_TYPE in VARCHAR2,
X_ENR_ACAD_SEQUENCE_NUMBER in NUMBER,
X_ENR_ENROLMENT_CAT in VARCHAR2,
X_ENR_ENR_METHOD_TYPE in VARCHAR2,
X_ADM_ACAD_CAL_TYPE in VARCHAR2,
X_ADM_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
X_ADM_ADM_CAL_TYPE in VARCHAR2,
X_ADM_ADM_CI_SEQUENCE_NUMBER in NUMBER,
X_ADM_ADMISSION_CAT in VARCHAR2,
X_ADM_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
X_ENQ_ACAD_CAL_TYPE in VARCHAR2,
X_ENQ_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
X_ENQ_ADM_CAL_TYPE in VARCHAR2,
X_ENQ_ADM_CI_SEQUENCE_NUMBER in NUMBER,
X_SERVER_PRINTER_DFLT in VARCHAR2,
X_ALLOW_STND_REQ_IND in VARCHAR2,
X_ORG_ID in NUMBER,
X_MODE in VARCHAR2 default 'R'
) AS
cursor C is select ROWID from IGS_PE_PERS_PREFS_ALL
where PERSON_ID = X_PERSON_ID;
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_adm_acad_cal_type=>X_ADM_ACAD_CAL_TYPE,
x_adm_acad_ci_sequence_number=>X_ADM_ACAD_CI_SEQUENCE_NUMBER,
x_adm_adm_cal_type=>X_ADM_ADM_CAL_TYPE,
x_adm_adm_ci_sequence_number=>X_ADM_ADM_CI_SEQUENCE_NUMBER,
x_adm_admission_cat=>X_ADM_ADMISSION_CAT,
x_adm_s_admission_process_type=>X_ADM_S_ADMISSION_PROCESS_TYPE,
x_allow_stnd_req_ind=> NVL(X_ALLOW_STND_REQ_IND,'N'),
x_enq_acad_cal_type=>X_ENQ_ACAD_CAL_TYPE,
x_enq_acad_ci_sequence_number=>X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
x_enq_adm_cal_type=>X_ENQ_ADM_CAL_TYPE,
x_enq_adm_ci_sequence_number=>X_ENQ_ADM_CI_SEQUENCE_NUMBER,
x_enr_acad_cal_type=>X_ENR_ACAD_CAL_TYPE,
x_enr_acad_sequence_number=>X_ENR_ACAD_SEQUENCE_NUMBER,
x_enr_enr_method_type=>X_ENR_ENR_METHOD_TYPE,
x_enr_enrolment_cat=>X_ENR_ENROLMENT_CAT,
x_person_id=>X_PERSON_ID,
x_server_printer_dflt=>X_SERVER_PRINTER_DFLT,
x_org_id => igs_ge_gen_003.get_org_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_PE_PERS_PREFS_ALL (
PERSON_ID,
ENR_ACAD_CAL_TYPE,
ENR_ACAD_SEQUENCE_NUMBER,
ENR_ENROLMENT_CAT,
ENR_ENR_METHOD_TYPE,
ADM_ACAD_CAL_TYPE,
ADM_ACAD_CI_SEQUENCE_NUMBER,
ADM_ADM_CAL_TYPE,
ADM_ADM_CI_SEQUENCE_NUMBER,
ADM_ADMISSION_CAT,
ADM_S_ADMISSION_PROCESS_TYPE,
ENQ_ACAD_CAL_TYPE,
ENQ_ACAD_CI_SEQUENCE_NUMBER,
ENQ_ADM_CAL_TYPE,
ENQ_ADM_CI_SEQUENCE_NUMBER,
SERVER_PRINTER_DFLT,
ALLOW_STND_REQ_IND,
ORG_ID,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
NEW_REFERENCES.PERSON_ID,
NEW_REFERENCES.ENR_ACAD_CAL_TYPE,
NEW_REFERENCES.ENR_ACAD_SEQUENCE_NUMBER,
NEW_REFERENCES.ENR_ENROLMENT_CAT,
NEW_REFERENCES.ENR_ENR_METHOD_TYPE,
NEW_REFERENCES.ADM_ACAD_CAL_TYPE,
NEW_REFERENCES.ADM_ACAD_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ADM_ADM_CAL_TYPE,
NEW_REFERENCES.ADM_ADM_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ADM_ADMISSION_CAT,
NEW_REFERENCES.ADM_S_ADMISSION_PROCESS_TYPE,
NEW_REFERENCES.ENQ_ACAD_CAL_TYPE,
NEW_REFERENCES.ENQ_ACAD_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.ENQ_ADM_CAL_TYPE,
NEW_REFERENCES.ENQ_ADM_CI_SEQUENCE_NUMBER,
NEW_REFERENCES.SERVER_PRINTER_DFLT,
NEW_REFERENCES.ALLOW_STND_REQ_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
);
p_action => 'INSERT',
x_rowid => X_ROWID
);
end INSERT_ROW;
cursor c1 is select
ENR_ACAD_CAL_TYPE,
ENR_ACAD_SEQUENCE_NUMBER,
ENR_ENROLMENT_CAT,
ENR_ENR_METHOD_TYPE,
ADM_ACAD_CAL_TYPE,
ADM_ACAD_CI_SEQUENCE_NUMBER,
ADM_ADM_CAL_TYPE,
ADM_ADM_CI_SEQUENCE_NUMBER,
ADM_ADMISSION_CAT,
ADM_S_ADMISSION_PROCESS_TYPE,
ENQ_ACAD_CAL_TYPE,
ENQ_ACAD_CI_SEQUENCE_NUMBER,
ENQ_ADM_CAL_TYPE,
ENQ_ADM_CI_SEQUENCE_NUMBER,
SERVER_PRINTER_DFLT,
ALLOW_STND_REQ_IND
from IGS_PE_PERS_PREFS_ALL
where ROWID = X_ROWID
for update nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_ROWID in VARCHAR2,
X_PERSON_ID in NUMBER,
X_ENR_ACAD_CAL_TYPE in VARCHAR2,
X_ENR_ACAD_SEQUENCE_NUMBER in NUMBER,
X_ENR_ENROLMENT_CAT in VARCHAR2,
X_ENR_ENR_METHOD_TYPE in VARCHAR2,
X_ADM_ACAD_CAL_TYPE in VARCHAR2,
X_ADM_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
X_ADM_ADM_CAL_TYPE in VARCHAR2,
X_ADM_ADM_CI_SEQUENCE_NUMBER in NUMBER,
X_ADM_ADMISSION_CAT in VARCHAR2,
X_ADM_S_ADMISSION_PROCESS_TYPE in VARCHAR2,
X_ENQ_ACAD_CAL_TYPE in VARCHAR2,
X_ENQ_ACAD_CI_SEQUENCE_NUMBER in NUMBER,
X_ENQ_ADM_CAL_TYPE in VARCHAR2,
X_ENQ_ADM_CI_SEQUENCE_NUMBER in NUMBER,
X_SERVER_PRINTER_DFLT in VARCHAR2,
X_ALLOW_STND_REQ_IND in VARCHAR2,
X_MODE in VARCHAR2 default 'R'
) 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_adm_acad_cal_type=>X_ADM_ACAD_CAL_TYPE,
x_adm_acad_ci_sequence_number=>X_ADM_ACAD_CI_SEQUENCE_NUMBER,
x_adm_adm_cal_type=>X_ADM_ADM_CAL_TYPE,
x_adm_adm_ci_sequence_number=>X_ADM_ADM_CI_SEQUENCE_NUMBER,
x_adm_admission_cat=>X_ADM_ADMISSION_CAT,
x_adm_s_admission_process_type=>X_ADM_S_ADMISSION_PROCESS_TYPE,
x_allow_stnd_req_ind=>X_ALLOW_STND_REQ_IND,
x_enq_acad_cal_type=>X_ENQ_ACAD_CAL_TYPE,
x_enq_acad_ci_sequence_number=>X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
x_enq_adm_cal_type=>X_ENQ_ADM_CAL_TYPE,
x_enq_adm_ci_sequence_number=>X_ENQ_ADM_CI_SEQUENCE_NUMBER,
x_enr_acad_cal_type=>X_ENR_ACAD_CAL_TYPE,
x_enr_acad_sequence_number=>X_ENR_ACAD_SEQUENCE_NUMBER,
x_enr_enr_method_type=>X_ENR_ENR_METHOD_TYPE,
x_enr_enrolment_cat=>X_ENR_ENROLMENT_CAT,
x_person_id=>X_PERSON_ID,
x_server_printer_dflt=>X_SERVER_PRINTER_DFLT,
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_PE_PERS_PREFS_ALL set
ENR_ACAD_CAL_TYPE = NEW_REFERENCES.ENR_ACAD_CAL_TYPE,
ENR_ACAD_SEQUENCE_NUMBER = NEW_REFERENCES.ENR_ACAD_SEQUENCE_NUMBER,
ENR_ENROLMENT_CAT = NEW_REFERENCES.ENR_ENROLMENT_CAT,
ENR_ENR_METHOD_TYPE = NEW_REFERENCES.ENR_ENR_METHOD_TYPE,
ADM_ACAD_CAL_TYPE = NEW_REFERENCES.ADM_ACAD_CAL_TYPE,
ADM_ACAD_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ADM_ACAD_CI_SEQUENCE_NUMBER,
ADM_ADM_CAL_TYPE = NEW_REFERENCES.ADM_ADM_CAL_TYPE,
ADM_ADM_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ADM_ADM_CI_SEQUENCE_NUMBER,
ADM_ADMISSION_CAT = NEW_REFERENCES.ADM_ADMISSION_CAT,
ADM_S_ADMISSION_PROCESS_TYPE = NEW_REFERENCES.ADM_S_ADMISSION_PROCESS_TYPE,
ENQ_ACAD_CAL_TYPE = NEW_REFERENCES.ENQ_ACAD_CAL_TYPE,
ENQ_ACAD_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ENQ_ACAD_CI_SEQUENCE_NUMBER,
ENQ_ADM_CAL_TYPE = NEW_REFERENCES.ENQ_ADM_CAL_TYPE,
ENQ_ADM_CI_SEQUENCE_NUMBER = NEW_REFERENCES.ENQ_ADM_CI_SEQUENCE_NUMBER,
SERVER_PRINTER_DFLT = NEW_REFERENCES.SERVER_PRINTER_DFLT,
ALLOW_STND_REQ_IND = NEW_REFERENCES.ALLOW_STND_REQ_IND,
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;
cursor c1 is select rowid from IGS_PE_PERS_PREFS_ALL
where PERSON_ID = X_PERSON_ID
;
INSERT_ROW (
X_ROWID,
X_PERSON_ID,
X_ENR_ACAD_CAL_TYPE,
X_ENR_ACAD_SEQUENCE_NUMBER,
X_ENR_ENROLMENT_CAT,
X_ENR_ENR_METHOD_TYPE,
X_ADM_ACAD_CAL_TYPE,
X_ADM_ACAD_CI_SEQUENCE_NUMBER,
X_ADM_ADM_CAL_TYPE,
X_ADM_ADM_CI_SEQUENCE_NUMBER,
X_ADM_ADMISSION_CAT,
X_ADM_S_ADMISSION_PROCESS_TYPE,
X_ENQ_ACAD_CAL_TYPE,
X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
X_ENQ_ADM_CAL_TYPE,
X_ENQ_ADM_CI_SEQUENCE_NUMBER,
X_SERVER_PRINTER_DFLT,
X_ALLOW_STND_REQ_IND,
X_ORG_ID,
X_MODE);
UPDATE_ROW (
X_ROWID,
X_PERSON_ID,
X_ENR_ACAD_CAL_TYPE,
X_ENR_ACAD_SEQUENCE_NUMBER,
X_ENR_ENROLMENT_CAT,
X_ENR_ENR_METHOD_TYPE,
X_ADM_ACAD_CAL_TYPE,
X_ADM_ACAD_CI_SEQUENCE_NUMBER,
X_ADM_ADM_CAL_TYPE,
X_ADM_ADM_CI_SEQUENCE_NUMBER,
X_ADM_ADMISSION_CAT,
X_ADM_S_ADMISSION_PROCESS_TYPE,
X_ENQ_ACAD_CAL_TYPE,
X_ENQ_ACAD_CI_SEQUENCE_NUMBER,
X_ENQ_ADM_CAL_TYPE,
X_ENQ_ADM_CI_SEQUENCE_NUMBER,
X_SERVER_PRINTER_DFLT,
X_ALLOW_STND_REQ_IND,
X_MODE);
procedure DELETE_ROW (
X_ROWID in VARCHAR2
) AS
begin
Before_DML(
p_action => 'DELETE',
x_rowid => X_ROWID
);
delete from IGS_PE_PERS_PREFS_ALL
where ROWID = X_ROWID;
p_action => 'DELETE',
x_rowid => X_ROWID
);
end DELETE_ROW;