256: l_org_id := NULL;
257: igs_ge_gen_003.set_org_id(l_org_id);
258: EXCEPTION
259: WHEN OTHERS THEN
260: fnd_file.put_line (fnd_file.log, fnd_message.get);
261: retcode:=2;
262: RETURN;
263: END;
264: retcode := 0;
272:
273: -- If Manage Accounts <> 'Other' then this process is not available.
274: IF (l_v_manage_acc <> 'OTHER') OR (l_v_manage_acc IS NULL) THEN
275: fnd_message.set_name('IGS','IGS_FI_MANAGE_ACC_PRC_OTH');
276: fnd_file.put_line(fnd_file.log,fnd_message.get());
277: fnd_file.new_line(fnd_file.log);
278: retcode := 2;
279: RETURN;
280: END IF;
273: -- If Manage Accounts <> 'Other' then this process is not available.
274: IF (l_v_manage_acc <> 'OTHER') OR (l_v_manage_acc IS NULL) THEN
275: fnd_message.set_name('IGS','IGS_FI_MANAGE_ACC_PRC_OTH');
276: fnd_file.put_line(fnd_file.log,fnd_message.get());
277: fnd_file.new_line(fnd_file.log);
278: retcode := 2;
279: RETURN;
280: END IF;
281:
280: END IF;
281:
282: -- This message is always logged irrespective of error records being found or not
283: fnd_message.set_name('IGS','IGS_FI_LOG_ERR_TRX');
284: fnd_file.put_line(fnd_file.log,fnd_message.get());
285: fnd_file.put_line(FND_FILE.LOG,' ');
286:
287: -- Obtain the meaning of the lookup codes to log the details.
288: l_v_party := igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PARTY');
281:
282: -- This message is always logged irrespective of error records being found or not
283: fnd_message.set_name('IGS','IGS_FI_LOG_ERR_TRX');
284: fnd_file.put_line(fnd_file.log,fnd_message.get());
285: fnd_file.put_line(FND_FILE.LOG,' ');
286:
287: -- Obtain the meaning of the lookup codes to log the details.
288: l_v_party := igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','PARTY');
289: l_v_charge_number := igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','CHARGE_NUMBER');
307: IF l_n_last_person_id = l_rec_charges.person_id THEN
308: NULL;
309: ELSE
310: -- Log the details of the party with error_account = 'Y'
311: fnd_file.put_line(fnd_file.log,l_v_party||': '||get_party_number(l_rec_charges.person_id));
312: l_n_last_person_id := l_rec_charges.person_id;
313: END IF;
314:
315: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_number||': '||l_rec_charges.charge_number);
311: fnd_file.put_line(fnd_file.log,l_v_party||': '||get_party_number(l_rec_charges.person_id));
312: l_n_last_person_id := l_rec_charges.person_id;
313: END IF;
314:
315: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_number||': '||l_rec_charges.charge_number);
316: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_s_fee_type ||': '||l_rec_charges.s_fee_type);
317: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_fee_type ||': '||l_rec_charges.fee_type);
318: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_amt ||': '||l_rec_charges.charge_amount);
319: fnd_file.new_line(fnd_file.log);
312: l_n_last_person_id := l_rec_charges.person_id;
313: END IF;
314:
315: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_number||': '||l_rec_charges.charge_number);
316: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_s_fee_type ||': '||l_rec_charges.s_fee_type);
317: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_fee_type ||': '||l_rec_charges.fee_type);
318: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_amt ||': '||l_rec_charges.charge_amount);
319: fnd_file.new_line(fnd_file.log);
320:
313: END IF;
314:
315: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_number||': '||l_rec_charges.charge_number);
316: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_s_fee_type ||': '||l_rec_charges.s_fee_type);
317: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_fee_type ||': '||l_rec_charges.fee_type);
318: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_amt ||': '||l_rec_charges.charge_amount);
319: fnd_file.new_line(fnd_file.log);
320:
321: -- Skip the record and move to the next record from Step 2
314:
315: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_number||': '||l_rec_charges.charge_number);
316: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_s_fee_type ||': '||l_rec_charges.s_fee_type);
317: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_fee_type ||': '||l_rec_charges.fee_type);
318: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_amt ||': '||l_rec_charges.charge_amount);
319: fnd_file.new_line(fnd_file.log);
320:
321: -- Skip the record and move to the next record from Step 2
322: RAISE skip_record;
315: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_number||': '||l_rec_charges.charge_number);
316: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_s_fee_type ||': '||l_rec_charges.s_fee_type);
317: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_fee_type ||': '||l_rec_charges.fee_type);
318: fnd_file.put_line(fnd_file.log,g_v_space ||l_v_charge_amt ||': '||l_rec_charges.charge_amount);
319: fnd_file.new_line(fnd_file.log);
320:
321: -- Skip the record and move to the next record from Step 2
322: RAISE skip_record;
323:
444: g_b_data_found := TRUE;
445: -- Process ends with a warning status
446: retcode := 1;
447: ROLLBACK TO sp_charges;
448: fnd_file.put_line(fnd_file.log,l_v_charge_number||' - '||l_rec_charges.invoice_id || ': '||SQLERRM);
449: fnd_file.new_line(fnd_file.log);
450: END;
451: END LOOP; -- End of Step 2 - Loop across all Charges
452:
445: -- Process ends with a warning status
446: retcode := 1;
447: ROLLBACK TO sp_charges;
448: fnd_file.put_line(fnd_file.log,l_v_charge_number||' - '||l_rec_charges.invoice_id || ': '||SQLERRM);
449: fnd_file.new_line(fnd_file.log);
450: END;
451: END LOOP; -- End of Step 2 - Loop across all Charges
452:
453: -- Commit transactions after charges are processed
537: -- Record with some error encountered, so set flag to TRUE
538: g_b_data_found := TRUE;
539: -- Process ends with a warning status
540: retcode := 1;
541: fnd_file.put_line(fnd_file.log,l_v_credit_number||' - '||l_rec_credits.credit_id || ': '||SQLERRM);
542: fnd_file.new_line(fnd_file.log);
543: ROLLBACK TO sp_credits;
544: END;
545:
538: g_b_data_found := TRUE;
539: -- Process ends with a warning status
540: retcode := 1;
541: fnd_file.put_line(fnd_file.log,l_v_credit_number||' - '||l_rec_credits.credit_id || ': '||SQLERRM);
542: fnd_file.new_line(fnd_file.log);
543: ROLLBACK TO sp_credits;
544: END;
545:
546: END LOOP; -- End of looping across Credits in IGS_FI_CREDITS table (Step 6)
550: -- (b) All the data transferred successfully without any error records
551:
552: IF (NOT g_b_data_found) THEN
553: fnd_message.set_name('IGS','IGS_GE_NO_DATA_FOUND');
554: fnd_file.put_line(fnd_file.log, fnd_message.get);
555: fnd_file.put_line(fnd_file.log,' ');
556: RETURN;
557: END IF;
558:
551:
552: IF (NOT g_b_data_found) THEN
553: fnd_message.set_name('IGS','IGS_GE_NO_DATA_FOUND');
554: fnd_file.put_line(fnd_file.log, fnd_message.get);
555: fnd_file.put_line(fnd_file.log,' ');
556: RETURN;
557: END IF;
558:
559: -- Step 10: Commit the transactions
561:
562: EXCEPTION
563: WHEN e_resource_busy THEN
564: fnd_message.set_name('IGS','IGS_FI_RFND_REC_LOCK');
565: fnd_file.put_line(fnd_file.log,fnd_message.get());
566: fnd_file.new_line(fnd_file.log);
567: retcode := 2;
568:
569: WHEN OTHERS THEN
562: EXCEPTION
563: WHEN e_resource_busy THEN
564: fnd_message.set_name('IGS','IGS_FI_RFND_REC_LOCK');
565: fnd_file.put_line(fnd_file.log,fnd_message.get());
566: fnd_file.new_line(fnd_file.log);
567: retcode := 2;
568:
569: WHEN OTHERS THEN
570: ROLLBACK;