103: ln_ld_sequence_number := TO_NUMBER(SUBSTR(p_term,11));
104: lv_status := 'S'; /*Defaulted to 'S' and the function will return 'F' in case of failure */
105:
106:
107: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
108: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_award_year:'||p_award_year);
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
104: lv_status := 'S'; /*Defaulted to 'S' and the function will return 'F' in case of failure */
105:
106:
107: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
108: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_award_year:'||p_award_year);
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
105:
106:
107: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
108: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_award_year:'||p_award_year);
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_item_code:'||p_item_code);
106:
107: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
108: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_award_year:'||p_award_year);
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_item_code:'||p_item_code);
114: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_term:'||p_term);
107: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
108: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_award_year:'||p_award_year);
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_item_code:'||p_item_code);
114: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_term:'||p_term);
115: END IF;
108: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_award_year:'||p_award_year);
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_item_code:'||p_item_code);
114: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_term:'||p_term);
115: END IF;
116:
109: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_type:'||p_run_type);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_item_code:'||p_item_code);
114: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_term:'||p_term);
115: END IF;
116:
117: fnd_file.new_line(fnd_file.log,1);
110: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_pid_group:'||p_pid_group);
111: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_base_id:'||p_base_id);
112: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_run_mode:'||p_run_mode);
113: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_item_code:'||p_item_code);
114: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','p_term:'||p_term);
115: END IF;
116:
117: fnd_file.new_line(fnd_file.log,1);
118:
169: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
170: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(p_base_id));
171: fnd_file.put_line(fnd_file.log,fnd_message.get);
172:
173: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
174: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Starting Run_Type=S with base_id:'||p_base_id);
175: END IF;
176:
177: IF p_run_mode = 'L' THEN
170: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(p_base_id));
171: fnd_file.put_line(fnd_file.log,fnd_message.get);
172:
173: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
174: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Starting Run_Type=S with base_id:'||p_base_id);
175: END IF;
176:
177: IF p_run_mode = 'L' THEN
178: lv_return_flag := igf_aw_coa_gen.dolock(p_base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
179: ELSIF p_run_mode = 'U' THEN
180: lv_return_flag := igf_aw_coa_gen.dounlock(p_base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
181: END IF;
182:
183: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
184: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Run_Type=S done');
185: END IF;
186:
187: --COMPUTATION FOR AWARD YEAR ONLY
180: lv_return_flag := igf_aw_coa_gen.dounlock(p_base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
181: END IF;
182:
183: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
184: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Run_Type=S done');
185: END IF;
186:
187: --COMPUTATION FOR AWARD YEAR ONLY
188: ELSIF p_run_type = 'Y' AND (p_pid_group IS NULL) AND (p_base_id IS NULL) THEN
192: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
193: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(l_per_awd_rec.base_id));
194: fnd_file.put_line(fnd_file.log,fnd_message.get);
195:
196: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
197: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Starting Run_Type=Y with base_id:'||l_per_awd_rec.base_id);
198: END IF;
199:
200: IF p_run_mode = 'L' THEN
193: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(l_per_awd_rec.base_id));
194: fnd_file.put_line(fnd_file.log,fnd_message.get);
195:
196: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
197: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Starting Run_Type=Y with base_id:'||l_per_awd_rec.base_id);
198: END IF;
199:
200: IF p_run_mode = 'L' THEN
201: lv_return_flag := igf_aw_coa_gen.dolock(l_per_awd_rec.base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
204: END IF;
205:
206: END LOOP;
207:
208: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
209: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Run_Type=Y done');
210: END IF;
211:
212: --COMPUTATION FOR ALL PERSONS IN THE PERSON ID GROUP
205:
206: END LOOP;
207:
208: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
209: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Run_Type=Y done');
210: END IF;
211:
212: --COMPUTATION FOR ALL PERSONS IN THE PERSON ID GROUP
213: ELSIF (p_run_type = 'P' AND p_pid_group IS NOT NULL) THEN
253: fnd_message.set_name('IGF','IGF_AW_PROC_STUD');
254: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(ln_base_id));
255: fnd_file.put_line(fnd_file.log,fnd_message.get);
256:
257: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
258: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Starting Run_Type=P with base_id:'||ln_base_id);
259: END IF;
260:
261: IF p_run_mode = 'L' THEN
254: fnd_message.set_token('STDNT',igf_gr_gen.get_per_num(ln_base_id));
255: fnd_file.put_line(fnd_file.log,fnd_message.get);
256:
257: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
258: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Starting Run_Type=P with base_id:'||ln_base_id);
259: END IF;
260:
261: IF p_run_mode = 'L' THEN
262: lv_return_flag := igf_aw_coa_gen.dolock(ln_base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
263: ELSIF p_run_mode = 'U' THEN
264: lv_return_flag := igf_aw_coa_gen.dounlock(ln_base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
265: END IF;
266:
267: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
268: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Run_Type=P done');
269: END IF;
270:
271: ELSE
264: lv_return_flag := igf_aw_coa_gen.dounlock(ln_base_id,p_item_code,lv_ld_cal_type,ln_ld_sequence_number);
265: END IF;
266:
267: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
268: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_aw_lock_assgn_pkg.main.debug','Run_Type=P done');
269: END IF;
270:
271: ELSE
272: OPEN c_person_no(per_grp_rec.person_id);