145: l_error := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','ERROR');
146:
147: l_chk_profile := igf_ap_gen.check_profile;
148: IF l_chk_profile = 'N' THEN
149: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
150: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
151: RETURN;
152: END IF;
153:
146:
147: l_chk_profile := igf_ap_gen.check_profile;
148: IF l_chk_profile = 'N' THEN
149: fnd_message.set_name('IGF','IGF_AP_LGCY_PROC_NOT_RUN');
150: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
151: RETURN;
152: END IF;
153:
154: l_person_number := igf_ap_gen.get_lookup_meaning('IGF_AW_LOOKUPS_MSG','PERSON_NUMBER');
167: FETCH c_get_alternate_code INTO l_get_alternate_code;
168: CLOSE c_get_alternate_code;
169:
170: -- HERE THE INPUT PARAMETERS ARE TO BE LOGGED TO THE LOG FILE
171: fnd_message.set_name('IGS','IGS_DA_JOB');
172: fnd_file.put_line(fnd_file.log,fnd_message.get);
173: fnd_file.put_line(fnd_file.log,l_batch_id || ' : ' || p_batch_id || ' - ' || l_batch_desc);
174: fnd_file.put_line(fnd_file.log,l_award_yr || ' : ' || l_get_alternate_code.alternate_code);
175: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
168: CLOSE c_get_alternate_code;
169:
170: -- HERE THE INPUT PARAMETERS ARE TO BE LOGGED TO THE LOG FILE
171: fnd_message.set_name('IGS','IGS_DA_JOB');
172: fnd_file.put_line(fnd_file.log,fnd_message.get);
173: fnd_file.put_line(fnd_file.log,l_batch_id || ' : ' || p_batch_id || ' - ' || l_batch_desc);
174: fnd_file.put_line(fnd_file.log,l_award_yr || ' : ' || l_get_alternate_code.alternate_code);
175: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
176: fnd_file.put_line(fnd_file.log,fnd_message.get || ' : ' || l_yes_no);
171: fnd_message.set_name('IGS','IGS_DA_JOB');
172: fnd_file.put_line(fnd_file.log,fnd_message.get);
173: fnd_file.put_line(fnd_file.log,l_batch_id || ' : ' || p_batch_id || ' - ' || l_batch_desc);
174: fnd_file.put_line(fnd_file.log,l_award_yr || ' : ' || l_get_alternate_code.alternate_code);
175: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
176: fnd_file.put_line(fnd_file.log,fnd_message.get || ' : ' || l_yes_no);
177: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------------');
178:
179: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'AWG');
172: fnd_file.put_line(fnd_file.log,fnd_message.get);
173: fnd_file.put_line(fnd_file.log,l_batch_id || ' : ' || p_batch_id || ' - ' || l_batch_desc);
174: fnd_file.put_line(fnd_file.log,l_award_yr || ' : ' || l_get_alternate_code.alternate_code);
175: fnd_message.set_name('IGS','IGS_GE_ASK_DEL_REC');
176: fnd_file.put_line(fnd_file.log,fnd_message.get || ' : ' || l_yes_no);
177: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------------');
178:
179: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'AWG');
180: IF l_chk_batch = 'N' THEN
177: fnd_file.put_line(fnd_file.log,'------------------------------------------------------------------------------');
178:
179: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'AWG');
180: IF l_chk_batch = 'N' THEN
181: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
182: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
183: RETURN;
184: END IF;
185:
178:
179: l_chk_batch := igf_ap_gen.check_batch(p_batch_id,'AWG');
180: IF l_chk_batch = 'N' THEN
181: fnd_message.set_name('IGF','IGF_GR_BATCH_DOES_NOT_EXIST');
182: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
183: RETURN;
184: END IF;
185:
186: OPEN c_award_det(l_cal_type,l_seq_number);
187: FETCH c_award_det INTO l_award_det;
188: CLOSE c_award_det;
189:
190: IF l_award_det.award_year_status_code NOT IN('LA','LE') THEN
191: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
192: fnd_message.set_token('AWARD_STATUS',l_award_det.award_year_status_code);
193: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
194: RETURN;
195: END IF;
188: CLOSE c_award_det;
189:
190: IF l_award_det.award_year_status_code NOT IN('LA','LE') THEN
191: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
192: fnd_message.set_token('AWARD_STATUS',l_award_det.award_year_status_code);
193: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
194: RETURN;
195: END IF;
196:
189:
190: IF l_award_det.award_year_status_code NOT IN('LA','LE') THEN
191: fnd_message.set_name('IGF','IGF_AP_LG_INVALID_STAT');
192: fnd_message.set_token('AWARD_STATUS',l_award_det.award_year_status_code);
193: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
194: RETURN;
195: END IF;
196:
197: -- NOW ONLY PERSON LEVEL MESSGAES WILL BE LOGGED
203: OPEN c_fund_exists(l_cal_type,l_seq_number,l_interface.fund_code);
204: FETCH c_fund_exists INTO l_fund_id;
205: CLOSE c_fund_exists;
206: IF l_fund_id.fund_id IS NULL THEN
207: fnd_message.set_name('IGF','IGF_AW_PK_FUND_NOT_EXIST');
208: fnd_message.set_token('FUND_ID',l_interface.fund_code);
209: g_log_tab_index := g_log_tab_index + 1;
210: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
211: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
204: FETCH c_fund_exists INTO l_fund_id;
205: CLOSE c_fund_exists;
206: IF l_fund_id.fund_id IS NULL THEN
207: fnd_message.set_name('IGF','IGF_AW_PK_FUND_NOT_EXIST');
208: fnd_message.set_token('FUND_ID',l_interface.fund_code);
209: g_log_tab_index := g_log_tab_index + 1;
210: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
211: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
212: l_error_flag := TRUE;
207: fnd_message.set_name('IGF','IGF_AW_PK_FUND_NOT_EXIST');
208: fnd_message.set_token('FUND_ID',l_interface.fund_code);
209: g_log_tab_index := g_log_tab_index + 1;
210: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
211: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
212: l_error_flag := TRUE;
213: END IF;
214: l_debug_str := 'Agrint_id is:' || l_interface.agrint_id || 'Fund exists passed';
215: lv_base_id := NULL;
216: lv_person_id := NULL;
217: --HERE CALL TO THE GENERIC WRAPPER IS BEING MADE TO CHEHK THE VALIDITY OF THE PEROSN AND BASE ID
218: igf_ap_gen.check_person(l_interface.person_number,l_cal_type,l_seq_number,lv_person_id,lv_base_id);
219: IF lv_person_id IS NULL THEN
220: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
221: g_log_tab_index := g_log_tab_index + 1;
222: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
223: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
224: l_error_flag := TRUE;
219: IF lv_person_id IS NULL THEN
220: fnd_message.set_name('IGF','IGF_AP_PE_NOT_EXIST');
221: g_log_tab_index := g_log_tab_index + 1;
222: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
223: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
224: l_error_flag := TRUE;
225: ELSE
226: l_debug_str := l_debug_str || ' Pesron ID exists passed';
227: IF lv_base_id IS NULL THEN
224: l_error_flag := TRUE;
225: ELSE
226: l_debug_str := l_debug_str || ' Pesron ID exists passed';
227: IF lv_base_id IS NULL THEN
228: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
229: g_log_tab_index := g_log_tab_index + 1;
230: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
231: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
232: l_error_flag := TRUE;
227: IF lv_base_id IS NULL THEN
228: fnd_message.set_name('IGF','IGF_AP_FABASE_NOT_FOUND');
229: g_log_tab_index := g_log_tab_index + 1;
230: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
231: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
232: l_error_flag := TRUE;
233: ELSE -- IF THE BASE ID IS NOT NULL
234: l_debug_str := l_debug_str || ' Base ID exists passed';
235: IF l_fund_id.fund_id IS NOT NULL THEN
238: FETCH c_award_exists INTO l_award_id;
239: CLOSE c_award_exists;
240: -- here check whether any amount if exists is negative then just skip that record
241: IF l_interface.offrd_amt < 0 OR (l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt < 0) OR (l_interface.paid_amt IS NOT NULL AND l_interface.paid_amt < 0) THEN
242: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
243: fnd_message.set_token('TOKEN',l_interface.fund_code);
244: l_message_str := RPAD(l_error,12) || fnd_message.get;
245: fnd_message.set_name('IGS','IGS_AD_SS_NO_NEGATIVE');
246: g_log_tab_index := g_log_tab_index + 1;
239: CLOSE c_award_exists;
240: -- here check whether any amount if exists is negative then just skip that record
241: IF l_interface.offrd_amt < 0 OR (l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt < 0) OR (l_interface.paid_amt IS NOT NULL AND l_interface.paid_amt < 0) THEN
242: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
243: fnd_message.set_token('TOKEN',l_interface.fund_code);
244: l_message_str := RPAD(l_error,12) || fnd_message.get;
245: fnd_message.set_name('IGS','IGS_AD_SS_NO_NEGATIVE');
246: g_log_tab_index := g_log_tab_index + 1;
247: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
240: -- here check whether any amount if exists is negative then just skip that record
241: IF l_interface.offrd_amt < 0 OR (l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt < 0) OR (l_interface.paid_amt IS NOT NULL AND l_interface.paid_amt < 0) THEN
242: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
243: fnd_message.set_token('TOKEN',l_interface.fund_code);
244: l_message_str := RPAD(l_error,12) || fnd_message.get;
245: fnd_message.set_name('IGS','IGS_AD_SS_NO_NEGATIVE');
246: g_log_tab_index := g_log_tab_index + 1;
247: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
248: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
241: IF l_interface.offrd_amt < 0 OR (l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt < 0) OR (l_interface.paid_amt IS NOT NULL AND l_interface.paid_amt < 0) THEN
242: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
243: fnd_message.set_token('TOKEN',l_interface.fund_code);
244: l_message_str := RPAD(l_error,12) || fnd_message.get;
245: fnd_message.set_name('IGS','IGS_AD_SS_NO_NEGATIVE');
246: g_log_tab_index := g_log_tab_index + 1;
247: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
248: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
249: l_message_str := NULL;
244: l_message_str := RPAD(l_error,12) || fnd_message.get;
245: fnd_message.set_name('IGS','IGS_AD_SS_NO_NEGATIVE');
246: g_log_tab_index := g_log_tab_index + 1;
247: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
248: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
249: l_message_str := NULL;
250: l_error_flag := TRUE;
251: END IF;
252: IF l_interface.offrd_amt = 0 THEN
249: l_message_str := NULL;
250: l_error_flag := TRUE;
251: END IF;
252: IF l_interface.offrd_amt = 0 THEN
253: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
254: fnd_message.set_token('TOKEN',l_interface.fund_code);
255: l_message_str := RPAD(l_error,12) || fnd_message.get;
256: fnd_message.set_name('IGF','IGF_AW_OFF_AMT_NO_ZERO');
257: g_log_tab_index := g_log_tab_index + 1;
250: l_error_flag := TRUE;
251: END IF;
252: IF l_interface.offrd_amt = 0 THEN
253: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
254: fnd_message.set_token('TOKEN',l_interface.fund_code);
255: l_message_str := RPAD(l_error,12) || fnd_message.get;
256: fnd_message.set_name('IGF','IGF_AW_OFF_AMT_NO_ZERO');
257: g_log_tab_index := g_log_tab_index + 1;
258: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
251: END IF;
252: IF l_interface.offrd_amt = 0 THEN
253: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
254: fnd_message.set_token('TOKEN',l_interface.fund_code);
255: l_message_str := RPAD(l_error,12) || fnd_message.get;
256: fnd_message.set_name('IGF','IGF_AW_OFF_AMT_NO_ZERO');
257: g_log_tab_index := g_log_tab_index + 1;
258: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
259: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
252: IF l_interface.offrd_amt = 0 THEN
253: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
254: fnd_message.set_token('TOKEN',l_interface.fund_code);
255: l_message_str := RPAD(l_error,12) || fnd_message.get;
256: fnd_message.set_name('IGF','IGF_AW_OFF_AMT_NO_ZERO');
257: g_log_tab_index := g_log_tab_index + 1;
258: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
259: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
260: l_message_str := NULL;
255: l_message_str := RPAD(l_error,12) || fnd_message.get;
256: fnd_message.set_name('IGF','IGF_AW_OFF_AMT_NO_ZERO');
257: g_log_tab_index := g_log_tab_index + 1;
258: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
259: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
260: l_message_str := NULL;
261: l_error_flag := TRUE;
262: END IF;
263: -- IF ACCEPTED IS GREATER THAN OFFERED THEN LOG A MESSAGE
261: l_error_flag := TRUE;
262: END IF;
263: -- IF ACCEPTED IS GREATER THAN OFFERED THEN LOG A MESSAGE
264: IF l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt > l_interface.offrd_amt THEN
265: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
266: fnd_message.set_token('TOKEN',l_interface.fund_code);
267: l_message_str := RPAD(l_error,12) || fnd_message.get;
268: fnd_message.set_name('IGF','IGF_AW_CHECK_OFFR_ACCEP');
269: g_log_tab_index := g_log_tab_index + 1;
262: END IF;
263: -- IF ACCEPTED IS GREATER THAN OFFERED THEN LOG A MESSAGE
264: IF l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt > l_interface.offrd_amt THEN
265: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
266: fnd_message.set_token('TOKEN',l_interface.fund_code);
267: l_message_str := RPAD(l_error,12) || fnd_message.get;
268: fnd_message.set_name('IGF','IGF_AW_CHECK_OFFR_ACCEP');
269: g_log_tab_index := g_log_tab_index + 1;
270: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
263: -- IF ACCEPTED IS GREATER THAN OFFERED THEN LOG A MESSAGE
264: IF l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt > l_interface.offrd_amt THEN
265: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
266: fnd_message.set_token('TOKEN',l_interface.fund_code);
267: l_message_str := RPAD(l_error,12) || fnd_message.get;
268: fnd_message.set_name('IGF','IGF_AW_CHECK_OFFR_ACCEP');
269: g_log_tab_index := g_log_tab_index + 1;
270: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
271: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
264: IF l_interface.accpt_amt IS NOT NULL AND l_interface.accpt_amt > l_interface.offrd_amt THEN
265: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
266: fnd_message.set_token('TOKEN',l_interface.fund_code);
267: l_message_str := RPAD(l_error,12) || fnd_message.get;
268: fnd_message.set_name('IGF','IGF_AW_CHECK_OFFR_ACCEP');
269: g_log_tab_index := g_log_tab_index + 1;
270: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
271: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
272: l_message_str := NULL;
267: l_message_str := RPAD(l_error,12) || fnd_message.get;
268: fnd_message.set_name('IGF','IGF_AW_CHECK_OFFR_ACCEP');
269: g_log_tab_index := g_log_tab_index + 1;
270: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
271: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
272: l_message_str := NULL;
273: l_error_flag := TRUE;
274: END IF;
275: -- IF PAID AMT IS GREATER THAN ACCEPTED AMT THEN LOG A MESSAGE
273: l_error_flag := TRUE;
274: END IF;
275: -- IF PAID AMT IS GREATER THAN ACCEPTED AMT THEN LOG A MESSAGE
276: IF NVL(l_interface.paid_amt,0) > NVL(l_interface.accpt_amt,0) THEN
277: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
278: fnd_message.set_token('TOKEN',l_interface.fund_code);
279: l_message_str := RPAD(l_error,12) || fnd_message.get;
280: fnd_message.set_name('IGF','IGF_AW_CHECK_ACCEP_PAID');
281: g_log_tab_index := g_log_tab_index + 1;
274: END IF;
275: -- IF PAID AMT IS GREATER THAN ACCEPTED AMT THEN LOG A MESSAGE
276: IF NVL(l_interface.paid_amt,0) > NVL(l_interface.accpt_amt,0) THEN
277: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
278: fnd_message.set_token('TOKEN',l_interface.fund_code);
279: l_message_str := RPAD(l_error,12) || fnd_message.get;
280: fnd_message.set_name('IGF','IGF_AW_CHECK_ACCEP_PAID');
281: g_log_tab_index := g_log_tab_index + 1;
282: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
275: -- IF PAID AMT IS GREATER THAN ACCEPTED AMT THEN LOG A MESSAGE
276: IF NVL(l_interface.paid_amt,0) > NVL(l_interface.accpt_amt,0) THEN
277: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
278: fnd_message.set_token('TOKEN',l_interface.fund_code);
279: l_message_str := RPAD(l_error,12) || fnd_message.get;
280: fnd_message.set_name('IGF','IGF_AW_CHECK_ACCEP_PAID');
281: g_log_tab_index := g_log_tab_index + 1;
282: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
283: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
276: IF NVL(l_interface.paid_amt,0) > NVL(l_interface.accpt_amt,0) THEN
277: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
278: fnd_message.set_token('TOKEN',l_interface.fund_code);
279: l_message_str := RPAD(l_error,12) || fnd_message.get;
280: fnd_message.set_name('IGF','IGF_AW_CHECK_ACCEP_PAID');
281: g_log_tab_index := g_log_tab_index + 1;
282: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
283: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
284: l_message_str := NULL;
279: l_message_str := RPAD(l_error,12) || fnd_message.get;
280: fnd_message.set_name('IGF','IGF_AW_CHECK_ACCEP_PAID');
281: g_log_tab_index := g_log_tab_index + 1;
282: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
283: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
284: l_message_str := NULL;
285: l_error_flag := TRUE;
286: END IF;
287: IF l_award_id.award_id IS NULL THEN
285: l_error_flag := TRUE;
286: END IF;
287: IF l_award_id.award_id IS NULL THEN
288: IF NVL(l_interface.import_record_type,'X') = 'U' THEN -- AS THE AWARD DOES NOT EXIST SO IT CAN NOT BE UPDATED
289: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
290: fnd_message.set_token('TOKEN',l_interface.fund_code);
291: l_message_str := RPAD(l_error,12) || fnd_message.get;
292: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
293: g_log_tab_index := g_log_tab_index + 1;
286: END IF;
287: IF l_award_id.award_id IS NULL THEN
288: IF NVL(l_interface.import_record_type,'X') = 'U' THEN -- AS THE AWARD DOES NOT EXIST SO IT CAN NOT BE UPDATED
289: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
290: fnd_message.set_token('TOKEN',l_interface.fund_code);
291: l_message_str := RPAD(l_error,12) || fnd_message.get;
292: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
293: g_log_tab_index := g_log_tab_index + 1;
294: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
287: IF l_award_id.award_id IS NULL THEN
288: IF NVL(l_interface.import_record_type,'X') = 'U' THEN -- AS THE AWARD DOES NOT EXIST SO IT CAN NOT BE UPDATED
289: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
290: fnd_message.set_token('TOKEN',l_interface.fund_code);
291: l_message_str := RPAD(l_error,12) || fnd_message.get;
292: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
293: g_log_tab_index := g_log_tab_index + 1;
294: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
295: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
288: IF NVL(l_interface.import_record_type,'X') = 'U' THEN -- AS THE AWARD DOES NOT EXIST SO IT CAN NOT BE UPDATED
289: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
290: fnd_message.set_token('TOKEN',l_interface.fund_code);
291: l_message_str := RPAD(l_error,12) || fnd_message.get;
292: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
293: g_log_tab_index := g_log_tab_index + 1;
294: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
295: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
296: l_error_flag := TRUE;
291: l_message_str := RPAD(l_error,12) || fnd_message.get;
292: fnd_message.set_name('IGF','IGF_AP_ORIG_REC_NOT_FOUND');
293: g_log_tab_index := g_log_tab_index + 1;
294: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
295: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
296: l_error_flag := TRUE;
297: ELSE
298: -- THE RECORD HAS TO BE INSERTED IN THE AWARD TABLE AS THE AWARD DOES NOT EXIST
299: IF l_error_flag = FALSE THEN
403: l_debug_str := l_debug_str || ' Record Updated';
404: END IF;
405: ELSE
406: -- AS THE AWARD ALREADY EXISTS SO IT CAN NOT BE UPDATED
407: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
408: fnd_message.set_token('TOKEN',l_interface.fund_code);
409: l_message_str := RPAD(l_error,12) || fnd_message.get;
410: fnd_message.set_name('IGF','IGF_AW_AWARD_EXISTS');
411: g_log_tab_index := g_log_tab_index + 1;
404: END IF;
405: ELSE
406: -- AS THE AWARD ALREADY EXISTS SO IT CAN NOT BE UPDATED
407: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
408: fnd_message.set_token('TOKEN',l_interface.fund_code);
409: l_message_str := RPAD(l_error,12) || fnd_message.get;
410: fnd_message.set_name('IGF','IGF_AW_AWARD_EXISTS');
411: g_log_tab_index := g_log_tab_index + 1;
412: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
405: ELSE
406: -- AS THE AWARD ALREADY EXISTS SO IT CAN NOT BE UPDATED
407: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
408: fnd_message.set_token('TOKEN',l_interface.fund_code);
409: l_message_str := RPAD(l_error,12) || fnd_message.get;
410: fnd_message.set_name('IGF','IGF_AW_AWARD_EXISTS');
411: g_log_tab_index := g_log_tab_index + 1;
412: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
413: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
406: -- AS THE AWARD ALREADY EXISTS SO IT CAN NOT BE UPDATED
407: fnd_message.set_name('IGF','IGF_SE_FUND_CODE');
408: fnd_message.set_token('TOKEN',l_interface.fund_code);
409: l_message_str := RPAD(l_error,12) || fnd_message.get;
410: fnd_message.set_name('IGF','IGF_AW_AWARD_EXISTS');
411: g_log_tab_index := g_log_tab_index + 1;
412: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
413: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
414: l_error_flag := TRUE;
409: l_message_str := RPAD(l_error,12) || fnd_message.get;
410: fnd_message.set_name('IGF','IGF_AW_AWARD_EXISTS');
411: g_log_tab_index := g_log_tab_index + 1;
412: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
413: g_log_tab(g_log_tab_index).message_text := l_message_str || ' ' || fnd_message.get;
414: l_error_flag := TRUE;
415: END IF;
416: END IF; -- for the award id check
417: END IF; -- for the fund id check
450: WHEN others THEN
451: l_message_str := NULL;
452: l_debug_str := NULL;
453: l_error_flag := FALSE;
454: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
455: fnd_message.set_token('NAME','IGF_AP_MK_ISIR_ACT_PKG.LG_MAKE_ACTIVE_ISIR');
456: g_log_tab_index := g_log_tab_index + 1;
457: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
458: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
451: l_message_str := NULL;
452: l_debug_str := NULL;
453: l_error_flag := FALSE;
454: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
455: fnd_message.set_token('NAME','IGF_AP_MK_ISIR_ACT_PKG.LG_MAKE_ACTIVE_ISIR');
456: g_log_tab_index := g_log_tab_index + 1;
457: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
458: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
459:
454: fnd_message.set_name('IGS','IGS_GE_UNHANDLED_EXP');
455: fnd_message.set_token('NAME','IGF_AP_MK_ISIR_ACT_PKG.LG_MAKE_ACTIVE_ISIR');
456: g_log_tab_index := g_log_tab_index + 1;
457: g_log_tab(g_log_tab_index).person_number := l_interface.person_number;
458: g_log_tab(g_log_tab_index).message_text := RPAD(l_error,12) || fnd_message.get;
459:
460: ROLLBACK TO sp1;
461: END;
462: COMMIT;
462: COMMIT;
463: END LOOP;
464:
465: IF l_success_record_cnt = 0 AND l_error_record_cnt = 0 THEN
466: fnd_message.set_name('IGS','IGS_FI_NO_RECORD_AVAILABLE');
467: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
468: RETURN;
469: END IF;
470:
463: END LOOP;
464:
465: IF l_success_record_cnt = 0 AND l_error_record_cnt = 0 THEN
466: fnd_message.set_name('IGS','IGS_FI_NO_RECORD_AVAILABLE');
467: fnd_file.put_line(fnd_file.log,RPAD(l_error,12) || fnd_message.get);
468: RETURN;
469: END IF;
470:
471: -- CALL THE PRINT LOG PROCESS
470:
471: -- CALL THE PRINT LOG PROCESS
472: print_log_process(l_person_number,l_error);
473: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
474: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
475: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
476: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
477: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
478: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
471: -- CALL THE PRINT LOG PROCESS
472: print_log_process(l_person_number,l_error);
473: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
474: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
475: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
476: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
477: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
478: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
479: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
472: print_log_process(l_person_number,l_error);
473: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
474: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
475: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
476: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
477: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
478: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
479: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
480:
473: l_total_record_cnt := l_success_record_cnt + l_error_record_cnt;
474: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
475: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
476: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
477: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
478: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
479: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
480:
481: EXCEPTION
474: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_PROCESSED');
475: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
476: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
477: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
478: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
479: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
480:
481: EXCEPTION
482: WHEN others THEN
475: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' ' || l_total_record_cnt);
476: fnd_message.set_name('IGS','IGS_AD_SUCC_IMP_OFR_RESP_REC');
477: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_success_record_cnt);
478: fnd_message.set_name('IGS','IGS_GE_TOTAL_REC_FAILED');
479: fnd_file.put_line(fnd_file.OUTPUT,fnd_message.get || ' : ' || l_error_record_cnt);
480:
481: EXCEPTION
482: WHEN others THEN
483: --CALL TO THE COMMON LOGGING FRAMEWORK FOR DEBUG MESSAGES
483: --CALL TO THE COMMON LOGGING FRAMEWORK FOR DEBUG MESSAGES
484: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
485: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_li_awards_pkg.main_import_process.exception','Exception: '||SQLERRM);
486: END IF;
487: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
488: fnd_message.set_token('NAME','IGF_AP_LI_AWARDS_PKG.MAIN_IMPORT_PROCESS');
489: errbuf := fnd_message.get;
490: igs_ge_msg_stack.conc_exception_hndl;
491:
484: IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
485: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_li_awards_pkg.main_import_process.exception','Exception: '||SQLERRM);
486: END IF;
487: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
488: fnd_message.set_token('NAME','IGF_AP_LI_AWARDS_PKG.MAIN_IMPORT_PROCESS');
489: errbuf := fnd_message.get;
490: igs_ge_msg_stack.conc_exception_hndl;
491:
492: END main_import_process;
485: fnd_log.string(fnd_log.level_exception,'igf.plsql.igf_ap_li_awards_pkg.main_import_process.exception','Exception: '||SQLERRM);
486: END IF;
487: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
488: fnd_message.set_token('NAME','IGF_AP_LI_AWARDS_PKG.MAIN_IMPORT_PROCESS');
489: errbuf := fnd_message.get;
490: igs_ge_msg_stack.conc_exception_hndl;
491:
492: END main_import_process;
493: