The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_update IN VARCHAR2
) IS
/*
|| Created By : bkkumar
|| Created On : 26-MAY-2003
|| Purpose : This process gets the records from the pl/sql table and print in the log file
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| (reverse chronological order - newest change first)
*/
l_count NUMBER(5) := g_log_tab.COUNT;
l_update VARCHAR2(80);
SELECT lookup_code ,
meaning
FROM igf_lookups_view
WHERE lookup_type = cp_lookup_type
AND lookup_code IN ('PARAMETER_PASS','PERSON_ID_GROUP','REL_CODE','START_DATE','UPDATE');
ELSIF l_get_meaning.lookup_code = 'UPDATE' THEN
l_update := l_get_meaning.meaning;
l_yes_no := igf_ap_gen.get_lookup_meaning('IGF_AP_YES_NO',p_update);
fnd_file.put_line(fnd_file.log,RPAD(l_update,30) || ' : ' || l_yes_no);
SELECT tdi.ROWID row_id,
tdi.*
FROM igf_ap_td_item_inst_all tdi,
igf_ap_td_item_mst_all tdm,
igf_ap_fa_base_rec_all fa
WHERE fa.person_id = cp_person_id
AND tdi.item_sequence_number = tdm.todo_number
AND fa.base_id = tdi.base_id
AND tdm.system_todo_type_code = 'PREFLEND'
AND NVL(tdi.inactive_flag,'Y') = 'N'
AND tdi.status IN ('INC','REQ');
igf_ap_td_item_inst_pkg.update_row(
x_rowid => l_todo.row_id,
x_base_id => l_todo.base_id,
x_item_sequence_number => l_todo.item_sequence_number,
x_status => 'COM',
x_status_date => TRUNC(SYSDATE),
x_add_date => l_todo.add_date,
x_corsp_date => l_todo.corsp_date,
x_corsp_count => l_todo.corsp_count,
x_inactive_flag => l_todo.inactive_flag,
x_freq_attempt => l_todo.freq_attempt,
x_max_attempt => l_todo.max_attempt,
x_required_for_application => l_todo.required_for_application,
x_mode => 'R',
x_legacy_record_flag => l_todo.legacy_record_flag,
x_clprl_id => l_todo.clprl_id
);
p_update IN VARCHAR2
)
IS
/*
|| Created By : bkkumar
|| Created On : 01-SEP-2003
|| Purpose : Main process which assigns a preferred lender to a student.
||
|| Known limitations, enhancements or remarks :
|| Change History :
|| Who When What
|| ridas 08-Feb-2006 Bug #5021084. Added new parameter 'lv_group_type' in call to igf_ap_ss_pkg.get_pid
|| tsailaja 15/Jan/2006 Bug 4947880 Added invocation of igf_aw_gen.set_org_id(NULL);
SELECT relationship_cd
FROM igf_sl_cl_recipient
WHERE relationship_cd = cp_rel_code
AND enabled = 'Y';
SELECT group_cd
FROM igs_pe_persid_group_all
WHERE group_id = cp_perid_grp
AND closed_ind = cp_closed_ind
AND create_dt <= SYSDATE;
SELECT ROWID row_id,
clprl_id,
relationship_cd,
start_date,
end_date
FROM igf_sl_cl_pref_lenders
WHERE person_id = cp_person_id
AND end_date IS NULL;
print_log_process(l_start_date,l_chk_perid_grp.group_cd,p_rel_code,p_update);
OPEN c_get_persons FOR ' SELECT party_id person_id, party_number person_number FROM hz_parties WHERE party_id IN (' || l_list || ') ' USING p_pergrp_id;
OPEN c_get_persons FOR ' SELECT party_id person_id, party_number person_number FROM hz_parties WHERE party_id IN (' || l_list || ') ';
igf_sl_cl_pref_lenders_pkg.insert_row (
x_mode => 'R',
x_clprl_id => l_clprl_id,
x_rowid => lv_row_id,
x_msg_count => l_msg_count,
x_msg_data => l_msg_number,
x_return_status => l_return_status,
x_person_id => l_person_id,
x_start_date => l_start_date,
x_relationship_cd => p_rel_code,
x_end_date => NULL
);
IF p_update = 'N' THEN
-- log a message that existing relationship cannot be updated
fnd_message.set_name('IGF','IGF_SL_CL_LEND_NOT_ADD');
l_debug_str := l_debug_str || ' Previous record has to be updated';
igf_sl_cl_pref_lenders_pkg.update_row (
x_mode => 'R',
x_clprl_id => l_chk_pref_lender.clprl_id,
x_rowid => l_chk_pref_lender.row_id,
x_msg_count => l_msg_count,
x_msg_data => l_msg_number,
x_return_status => l_return_status,
x_person_id => l_person_id,
x_start_date => l_chk_pref_lender.start_date,
x_relationship_cd => l_chk_pref_lender.relationship_cd,
x_end_date => TRUNC(l_start_date-1)
);
igf_sl_cl_pref_lenders_pkg.insert_row (
x_mode => 'R',
x_rowid => lv_row_id,
x_clprl_id => l_clprl_id,
x_msg_count => l_msg_count,
x_msg_data => l_msg_number,
x_return_status => l_return_status,
x_person_id => l_person_id,
x_start_date => l_start_date,
x_relationship_cd => p_rel_code,
x_end_date => NULL
);
print_log_process(l_start_date,l_chk_perid_grp.group_cd,p_rel_code,p_update);