The following lines contain the word 'select', 'insert', 'update' or 'delete':
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
FND_MSG_PUB.DELETE_MSG (l_msg_count);
p_selection_dt => p_susa_rec.selection_dt) THEN
-- Add excep to stack
FND_MESSAGE.SET_NAME('IGS','IGS_EN_STU_USA_EXIST');
p_selection_dt => p_susa_rec.selection_dt,
p_message_name => l_message_name,
p_legacy => l_legacy);
p_selection_dt => p_susa_rec.selection_dt,
p_end_dt => p_susa_rec.end_dt,
p_rqrmnts_complete_ind => p_susa_rec.rqrmnts_complete_ind,
p_message_name => l_message_name,
p_legacy => l_legacy);
IF p_susa_rec.selection_dt IS NOT NULL THEN
-- Check the condition that unit sets with category of 'pre-enrollment year' cannot
-- overlap selection/completion dates
l_message_name := NULL;
p_selection_dt => p_susa_rec.selection_dt,
p_rqrmnts_complete_dt => p_susa_rec.rqrmnts_complete_dt,
p_end_dt => p_susa_rec.end_dt,
p_sequence_number => p_sequence_number,
p_unit_set_cd => p_susa_rec.unit_set_cd,
p_us_version_number => p_susa_rec.us_version_number,
p_message_name => l_message_name) THEN
-- Add excep to stack
FND_MESSAGE.SET_NAME('IGS',l_message_name);
SELECT
igs_as_su_setatmpt_seq_num_s.NEXTVAL
FROM dual;
l_insert_flag BOOLEAN := TRUE;
l_last_update_date igs_as_su_setatmpt.last_update_date%TYPE;
l_last_updated_by igs_as_su_setatmpt.last_updated_by%TYPE;
l_last_update_login igs_as_su_setatmpt.last_update_login%TYPE;
l_program_update_date igs_as_su_setatmpt.program_update_date%TYPE;
l_insert_flag := FALSE;
IF l_insert_flag THEN
l_person_id := igs_ge_gen_003.get_person_id (p_person_number => p_susa_rec.person_number);
l_insert_flag := FALSE;
IF l_insert_flag THEN
IF p_susa_rec.parent_unit_set_cd IS NOT NULL THEN
igs_ge_gen_003.get_susa_sequence_num (p_person_id => l_person_id,
p_program_cd => p_susa_rec.program_cd,
p_unit_set_cd => p_susa_rec.parent_unit_set_cd,
p_us_version_number => l_us_version_number,
p_sequence_number => l_parent_seq_number);
l_insert_flag := FALSE;
l_insert_flag := FALSE;
l_insert_flag := FALSE;
l_insert_flag := FALSE;
IF l_insert_flag THEN
l_ret_val := validate_db_cons (p_person_id => l_person_id,
p_parent_seq_number => l_parent_seq_number,
p_susa_rec => p_susa_rec);
l_insert_flag := FALSE;
l_insert_flag := FALSE;
IF l_insert_flag THEN
-- Unit Set attempt is not yet created, hence passing zero
-- for sequence number
IF NOT validate_unit_set_atmpt (p_person_id => l_person_id,
p_sequence_number => 0,
p_parent_seq_number => l_parent_seq_number,
p_auth_person_id => l_auth_person_id,
p_susa_rec => p_susa_rec) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
l_insert_flag := FALSE;
IF l_insert_flag THEN
l_creation_date := SYSDATE;
l_last_update_date := SYSDATE;
l_last_updated_by := FND_GLOBAL.USER_ID;
l_last_update_login :=FND_GLOBAL.LOGIN_ID;
IF l_last_updated_by IS NULL THEN
l_last_updated_by := -1;
IF l_last_update_login IS NULL THEN
l_last_update_login := -1;
l_program_update_date := NULL;
l_program_update_date := SYSDATE;
INSERT INTO igs_as_su_setatmpt (
person_id,
course_cd,
unit_set_cd,
us_version_number,
sequence_number,
selection_dt,
student_confirmed_ind,
end_dt,
parent_unit_set_cd,
parent_sequence_number,
primary_set_ind,
voluntary_end_ind,
authorised_person_id,
authorised_on,
override_title,
rqrmnts_complete_ind,
rqrmnts_complete_dt,
s_completed_source_type,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login,
request_id,
program_application_id,
program_id,
program_update_date,
catalog_cal_type,
catalog_seq_num,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute16,
attribute17,
attribute18,
attribute19,
attribute20)
VALUES (
l_person_id,
p_susa_rec.program_cd,
p_susa_rec.unit_set_cd,
p_susa_rec.us_version_number,
l_seqval,
trunc(p_susa_rec.selection_dt),
NVL(p_susa_rec.student_confirmed_ind,'N'),
trunc(p_susa_rec.end_dt),
p_susa_rec.parent_unit_set_cd,
l_parent_seq_number,
NVL(p_susa_rec.primary_set_ind,'N'),
NVL(p_susa_rec.voluntary_end_ind,'N'),
l_auth_person_id,
p_susa_rec.authorised_on,
p_susa_rec.override_title,
NVL(p_susa_rec.rqrmnts_complete_ind,'N'),
trunc(p_susa_rec.rqrmnts_complete_dt),
p_susa_rec.s_completed_source_type,
l_created_by,
l_creation_date,
l_last_updated_by,
l_last_update_date,
l_last_update_login,
l_request_id,
l_program_appl_id,
l_program_id,
l_program_update_date,
l_cal_type,
l_ci_sequence_number,
p_susa_rec.attribute_category,
p_susa_rec.attribute1,
p_susa_rec.attribute2,
p_susa_rec.attribute3,
p_susa_rec.attribute4,
p_susa_rec.attribute5,
p_susa_rec.attribute6,
p_susa_rec.attribute7,
p_susa_rec.attribute8,
p_susa_rec.attribute9,
p_susa_rec.attribute10,
p_susa_rec.attribute11,
p_susa_rec.attribute12,
p_susa_rec.attribute13,
p_susa_rec.attribute14,
p_susa_rec.attribute15,
p_susa_rec.attribute16,
p_susa_rec.attribute17,
p_susa_rec.attribute18,
p_susa_rec.attribute19,
p_susa_rec.attribute20);
IF ( (FND_API.TO_BOOLEAN(p_commit)) AND (l_insert_flag) ) THEN
COMMIT WORK;