2245:
2246: EXCEPTION
2247: WHEN no_data_found THEN
2248: --report AR_GTA_MISSING_ERROR
2249: fnd_message.set_name('AR', 'AR_GTA_MISSING_ERROR');
2250: l_error_string := fnd_message.get();
2251: -- output this error
2252: fnd_file.put_line(fnd_file.output, '
2253:
2246: EXCEPTION
2247: WHEN no_data_found THEN
2248: --report AR_GTA_MISSING_ERROR
2249: fnd_message.set_name('AR', 'AR_GTA_MISSING_ERROR');
2250: l_error_string := fnd_message.get();
2251: -- output this error
2252: fnd_file.put_line(fnd_file.output, '
2253:
2254:
2600:
2601: EXCEPTION
2602: WHEN no_data_found THEN
2603: --report AR_GTA_MISSING_ERROR
2604: fnd_message.set_name('AR', 'AR_GTA_MISSING_ERROR');
2605: l_error_string := fnd_message.get();
2606: -- output this error
2607: fnd_file.put_line(fnd_file.output, '
2608:
2601: EXCEPTION
2602: WHEN no_data_found THEN
2603: --report AR_GTA_MISSING_ERROR
2604: fnd_message.set_name('AR', 'AR_GTA_MISSING_ERROR');
2605: l_error_string := fnd_message.get();
2606: -- output this error
2607: fnd_file.put_line(fnd_file.output, '
2608:
2609:
3228:
3229: EXCEPTION
3230: WHEN no_data_found THEN
3231: --report AR_GTA_MISSING_ERROR
3232: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
3233: l_error_string := fnd_message.get();
3234: -- output this error
3235: fnd_file.put_line(fnd_file.output,'
3236:
3229: EXCEPTION
3230: WHEN no_data_found THEN
3231: --report AR_GTA_MISSING_ERROR
3232: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
3233: l_error_string := fnd_message.get();
3234: -- output this error
3235: fnd_file.put_line(fnd_file.output,'
3236:
3237:
3456:
3457: EXCEPTION
3458: /* WHEN tax_error_for_recycle THEN --added by subba for R12.1
3459:
3460: fnd_message.SET_NAME('AR', 'AR_GTA_TAX_ERROR_RECYCLE');
3461: l_error_string := fnd_message.get();
3462: -- begin log
3463: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3464: THEN
3457: EXCEPTION
3458: /* WHEN tax_error_for_recycle THEN --added by subba for R12.1
3459:
3460: fnd_message.SET_NAME('AR', 'AR_GTA_TAX_ERROR_RECYCLE');
3461: l_error_string := fnd_message.get();
3462: -- begin log
3463: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3464: THEN
3465: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
4390: AND org_id = p_org_id;
4391:
4392: COMMIT;
4393:
4394: fnd_message.set_name('AR', 'AR_GTA_INV_TYPE_INIT');
4395: fnd_message.set_token('ORG_NAME',get_operatingunit(p_org_id));
4396: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4397:
4398: --logging for debug
4391:
4392: COMMIT;
4393:
4394: fnd_message.set_name('AR', 'AR_GTA_INV_TYPE_INIT');
4395: fnd_message.set_token('ORG_NAME',get_operatingunit(p_org_id));
4396: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4397:
4398: --logging for debug
4399: IF (l_proc_level >= l_dbg_level)
4392: COMMIT;
4393:
4394: fnd_message.set_name('AR', 'AR_GTA_INV_TYPE_INIT');
4395: fnd_message.set_token('ORG_NAME',get_operatingunit(p_org_id));
4396: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4397:
4398: --logging for debug
4399: IF (l_proc_level >= l_dbg_level)
4400: THEN
4531: ,'Enter procedure');
4532: END IF; --l_proc_level>=l_dbg_level)
4533:
4534: -- log for successfully updated invoice numbers
4535: fnd_message.set_name('AR', 'AR_GTA_UPG_TRANSACTION_S');
4536: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4537:
4538: OPEN c_all_inv_updated;
4539: LOOP
4532: END IF; --l_proc_level>=l_dbg_level)
4533:
4534: -- log for successfully updated invoice numbers
4535: fnd_message.set_name('AR', 'AR_GTA_UPG_TRANSACTION_S');
4536: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4537:
4538: OPEN c_all_inv_updated;
4539: LOOP
4540: FETCH c_all_inv_updated
4653: COMMIT;
4654:
4655: /* commented by Allen Yang 26-Aug-2009 for bug 8839141.
4656: -- log for invoice type populating exceptions
4657: fnd_message.set_name('AR', 'AR_GTA_INV_TYPE_EXC_REASON');
4658: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4659: */
4660:
4661: -- added by Allen Yang 26-Aug-2009 for bug 8839141.
4654:
4655: /* commented by Allen Yang 26-Aug-2009 for bug 8839141.
4656: -- log for invoice type populating exceptions
4657: fnd_message.set_name('AR', 'AR_GTA_INV_TYPE_EXC_REASON');
4658: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4659: */
4660:
4661: -- added by Allen Yang 26-Aug-2009 for bug 8839141.
4662: OPEN c_cm_inv_type_different;
4662: OPEN c_cm_inv_type_different;
4663: FETCH c_cm_inv_type_different INTO l_gta_trx_number, l_source;
4664: IF c_cm_inv_type_different%FOUND
4665: THEN
4666: fnd_message.set_name('AR', 'AR_GTA_UPG_DIF_INVOICE_TYPE');
4667: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4668: END IF; --c_cm_inv_type_different%FOUND
4669: WHILE c_cm_inv_type_different%FOUND
4670: LOOP
4663: FETCH c_cm_inv_type_different INTO l_gta_trx_number, l_source;
4664: IF c_cm_inv_type_different%FOUND
4665: THEN
4666: fnd_message.set_name('AR', 'AR_GTA_UPG_DIF_INVOICE_TYPE');
4667: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4668: END IF; --c_cm_inv_type_different%FOUND
4669: WHILE c_cm_inv_type_different%FOUND
4670: LOOP
4671: fnd_file.put_line(fnd_file.OUTPUT, l_gta_trx_number||'('||l_source||')');
4678: FETCH c_inv_trx_type_no_inv_type INTO l_gta_trx_number, l_source;
4679: IF c_inv_trx_type_no_inv_type%FOUND
4680: THEN
4681: -- modified by Allen Yang 26-Aug-2009 for bug 8839141
4682: --fnd_message.set_name('AR', 'AR_GTA_TRX_TYPE_NOT_ASS');
4683: fnd_message.set_name('AR', 'AR_GTA_UPG_NO_INVOICE_TYPE');
4684: -- end modified by Allen Yang
4685: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4686: END IF; --c_inv_trx_type_no_inv_type%FOUND
4679: IF c_inv_trx_type_no_inv_type%FOUND
4680: THEN
4681: -- modified by Allen Yang 26-Aug-2009 for bug 8839141
4682: --fnd_message.set_name('AR', 'AR_GTA_TRX_TYPE_NOT_ASS');
4683: fnd_message.set_name('AR', 'AR_GTA_UPG_NO_INVOICE_TYPE');
4684: -- end modified by Allen Yang
4685: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4686: END IF; --c_inv_trx_type_no_inv_type%FOUND
4687: WHILE c_inv_trx_type_no_inv_type%FOUND
4681: -- modified by Allen Yang 26-Aug-2009 for bug 8839141
4682: --fnd_message.set_name('AR', 'AR_GTA_TRX_TYPE_NOT_ASS');
4683: fnd_message.set_name('AR', 'AR_GTA_UPG_NO_INVOICE_TYPE');
4684: -- end modified by Allen Yang
4685: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4686: END IF; --c_inv_trx_type_no_inv_type%FOUND
4687: WHILE c_inv_trx_type_no_inv_type%FOUND
4688: LOOP
4689: fnd_file.put_line(fnd_file.OUTPUT, l_gta_trx_number||'('||l_source||')');
4695: FETCH c_recycle_tax_amount_not_zero INTO l_gta_trx_number, l_source;
4696: IF c_recycle_tax_amount_not_zero%FOUND
4697: THEN
4698: -- modified by Allen Yang 26-Aug-2009 for bug 8839141
4699: --fnd_message.set_name('AR', 'AR_GTA_REC_TAX_NOT_ZERO');
4700: fnd_message.set_name('AR', 'AR_GTA_UPG_NOZERO_TAX_R');
4701: -- end modified by Allen Yang
4702: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4703: END IF; --c_recycle_tax_amount_not_zero%FOUND
4696: IF c_recycle_tax_amount_not_zero%FOUND
4697: THEN
4698: -- modified by Allen Yang 26-Aug-2009 for bug 8839141
4699: --fnd_message.set_name('AR', 'AR_GTA_REC_TAX_NOT_ZERO');
4700: fnd_message.set_name('AR', 'AR_GTA_UPG_NOZERO_TAX_R');
4701: -- end modified by Allen Yang
4702: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4703: END IF; --c_recycle_tax_amount_not_zero%FOUND
4704: WHILE c_recycle_tax_amount_not_zero%FOUND
4698: -- modified by Allen Yang 26-Aug-2009 for bug 8839141
4699: --fnd_message.set_name('AR', 'AR_GTA_REC_TAX_NOT_ZERO');
4700: fnd_message.set_name('AR', 'AR_GTA_UPG_NOZERO_TAX_R');
4701: -- end modified by Allen Yang
4702: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4703: END IF; --c_recycle_tax_amount_not_zero%FOUND
4704: WHILE c_recycle_tax_amount_not_zero%FOUND
4705: LOOP
4706: fnd_file.put_line(fnd_file.OUTPUT, l_gta_trx_number||'('||l_source||')');
4712: OPEN c_cm_inv_type_different;
4713: FETCH c_cm_inv_type_different INTO l_gta_trx_number, l_source;
4714: IF c_cm_inv_type_different%FOUND
4715: THEN
4716: fnd_message.set_name('AR', 'AR_GTA_CM_INV_TYPE_DIFF');
4717: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4718: END IF; --c_cm_inv_type_different%FOUND
4719: WHILE c_cm_inv_type_different%FOUND
4720: LOOP
4713: FETCH c_cm_inv_type_different INTO l_gta_trx_number, l_source;
4714: IF c_cm_inv_type_different%FOUND
4715: THEN
4716: fnd_message.set_name('AR', 'AR_GTA_CM_INV_TYPE_DIFF');
4717: fnd_file.put_line(fnd_file.OUTPUT, fnd_message.get());
4718: END IF; --c_cm_inv_type_different%FOUND
4719: WHILE c_cm_inv_type_different%FOUND
4720: LOOP
4721: fnd_file.put_line(fnd_file.OUTPUT, l_gta_trx_number||'('||l_source||')');