85: --| procedure Retrieve_AR_TRXs for bug 5224923
86: --| 12/06/2006 Shujuan Yan Modify the procedure
87: --| Retrieve_AR_TRXs, Get line_number from
88: --| ra_customer_trx_lines_all, Change Change
89: --| the token value by "fnd_message.set_token
90: --| ('NUM', l_customer_trx_line_number)"
91: --| instead of "fnd_message.set_token('NUM',
92: --| l_customer_trx_line_id)" for bug 5230712
93: --| 12/06/2006 Shujuan Yan Modify the procedure Retrieve
87: --| Retrieve_AR_TRXs, Get line_number from
88: --| ra_customer_trx_lines_all, Change Change
89: --| the token value by "fnd_message.set_token
90: --| ('NUM', l_customer_trx_line_number)"
91: --| instead of "fnd_message.set_token('NUM',
92: --| l_customer_trx_line_id)" for bug 5230712
93: --| 12/06/2006 Shujuan Yan Modify the procedure Retrieve
94: --| _AR_TRXs, Change the token value by
95: --| "fnd_message.set_token('ITEM', l_inventory
91: --| instead of "fnd_message.set_token('NUM',
92: --| l_customer_trx_line_id)" for bug 5230712
93: --| 12/06/2006 Shujuan Yan Modify the procedure Retrieve
94: --| _AR_TRXs, Change the token value by
95: --| "fnd_message.set_token('ITEM', l_inventory
96: --| _item_name )" instead of "fnd_message.set
97: --| _token('ITEM', l_inventory_item_id)" for
98: -- bug 5230712
99: --| 29/06/2006 Shujuan Yan Modify the procedure Retrieve
92: --| l_customer_trx_line_id)" for bug 5230712
93: --| 12/06/2006 Shujuan Yan Modify the procedure Retrieve
94: --| _AR_TRXs, Change the token value by
95: --| "fnd_message.set_token('ITEM', l_inventory
96: --| _item_name )" instead of "fnd_message.set
97: --| _token('ITEM', l_inventory_item_id)" for
98: -- bug 5230712
99: --| 29/06/2006 Shujuan Yan Modify the procedure Retrieve
100: --| _AR_TRXs,Add if l_ctt_class = 'CM' clause,
103: --| corresponding invoice for bug 5263131
104: --| 29/06/2006 Shujuan Yan Modify the procedure Retrieve
105: --| _AR_TRXs, Get line_number from ra_customer
106: --| _trx_lines_all, Change the token value by
107: --| "fnd_message.set_token('NUM', l_customer_
108: --| trx_line_number)" instead of "fnd_message
109: --| .set_token('NUM', l_customer_trx_line_id)"
110: --| for bug 5258522
111: --| 29/06/2006 Shujuan Yan Modify Retrieve_AR_TRXs, get l_
104: --| 29/06/2006 Shujuan Yan Modify the procedure Retrieve
105: --| _AR_TRXs, Get line_number from ra_customer
106: --| _trx_lines_all, Change the token value by
107: --| "fnd_message.set_token('NUM', l_customer_
108: --| trx_line_number)" instead of "fnd_message
109: --| .set_token('NUM', l_customer_trx_line_id)"
110: --| for bug 5258522
111: --| 29/06/2006 Shujuan Yan Modify Retrieve_AR_TRXs, get l_
112: --| tax_curr_unit_price from procedure Get_Info
1164:
1165: /* EXCEPTION
1166: -- no data found , raise a data error
1167: WHEN no_data_found THEN
1168: fnd_message.SET_NAME('AR', 'AR_GTA_RULE_MISSING_ERROR');
1169: l_error_string := fnd_message.get();
1170: -- output error
1171: fnd_file.put_line(fnd_file.output, '
1172:
1165: /* EXCEPTION
1166: -- no data found , raise a data error
1167: WHEN no_data_found THEN
1168: fnd_message.SET_NAME('AR', 'AR_GTA_RULE_MISSING_ERROR');
1169: l_error_string := fnd_message.get();
1170: -- output error
1171: fnd_file.put_line(fnd_file.output, '
1172:
1173:
1206: EXCEPTION
1207:
1208: -- no data found, raise a data error
1209: WHEN no_data_found THEN
1210: fnd_message.SET_NAME('AR', 'AR_GTA_TRX_TYP_MAP_MISSING');
1211: l_error_string := fnd_message.get();
1212: -- output error
1213: fnd_file.put_line(fnd_file.output,
1214: '
1207:
1208: -- no data found, raise a data error
1209: WHEN no_data_found THEN
1210: fnd_message.SET_NAME('AR', 'AR_GTA_TRX_TYP_MAP_MISSING');
1211: l_error_string := fnd_message.get();
1212: -- output error
1213: fnd_file.put_line(fnd_file.output,
1214: '
1215:
1840: WHERE rule.rule_header_id = p_transfer_id;
1841: EXCEPTION
1842: -- no data found , raise a data error
1843: WHEN no_data_found THEN
1844: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_ERROR');
1845: l_error_string := fnd_message.get();
1846:
1847: -- output error
1848: fnd_file.put_line(fnd_file.output,
1841: EXCEPTION
1842: -- no data found , raise a data error
1843: WHEN no_data_found THEN
1844: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_ERROR');
1845: l_error_string := fnd_message.get();
1846:
1847: -- output error
1848: fnd_file.put_line(fnd_file.output,
1849: '
1871: WHERE op.org_id = p_ORG_ID;
1872: EXCEPTION
1873: -- no data found , raise a data error
1874: WHEN no_data_found THEN
1875: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
1876: fnd_message.set_token('Tax_Regis_Number', ' ');
1877: l_error_string := fnd_message.get();
1878:
1879: -- output error
1872: EXCEPTION
1873: -- no data found , raise a data error
1874: WHEN no_data_found THEN
1875: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
1876: fnd_message.set_token('Tax_Regis_Number', ' ');
1877: l_error_string := fnd_message.get();
1878:
1879: -- output error
1880: fnd_file.put_line(fnd_file.output,
1873: -- no data found , raise a data error
1874: WHEN no_data_found THEN
1875: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
1876: fnd_message.set_token('Tax_Regis_Number', ' ');
1877: l_error_string := fnd_message.get();
1878:
1879: -- output error
1880: fnd_file.put_line(fnd_file.output,
1881: '
2267:
2268: EXCEPTION
2269: WHEN no_data_found THEN
2270: --report AR_GTA_MISSING_ERROR
2271: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2272: fnd_message.set_token('Tax_Regis_Number', ' ');
2273: l_error_string := fnd_message.get();
2274: -- output this error
2275: fnd_file.put_line(fnd_file.output,
2268: EXCEPTION
2269: WHEN no_data_found THEN
2270: --report AR_GTA_MISSING_ERROR
2271: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2272: fnd_message.set_token('Tax_Regis_Number', ' ');
2273: l_error_string := fnd_message.get();
2274: -- output this error
2275: fnd_file.put_line(fnd_file.output,
2276: '
2269: WHEN no_data_found THEN
2270: --report AR_GTA_MISSING_ERROR
2271: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2272: fnd_message.set_token('Tax_Regis_Number', ' ');
2273: l_error_string := fnd_message.get();
2274: -- output this error
2275: fnd_file.put_line(fnd_file.output,
2276: '
2277:
2299: WHERE ar_gta_rule_headers_all.rule_header_id = p_transfer_id;
2300: EXCEPTION
2301: -- no data found , raise a data error
2302: WHEN no_data_found THEN
2303: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2304: fnd_message.set_token('Tax_Regis_Number', ' ');
2305: l_error_string := fnd_message.get();
2306: -- output error
2307: fnd_file.put_line(fnd_file.output,
2300: EXCEPTION
2301: -- no data found , raise a data error
2302: WHEN no_data_found THEN
2303: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2304: fnd_message.set_token('Tax_Regis_Number', ' ');
2305: l_error_string := fnd_message.get();
2306: -- output error
2307: fnd_file.put_line(fnd_file.output,
2308: '
2301: -- no data found , raise a data error
2302: WHEN no_data_found THEN
2303: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
2304: fnd_message.set_token('Tax_Regis_Number', ' ');
2305: l_error_string := fnd_message.get();
2306: -- output error
2307: fnd_file.put_line(fnd_file.output,
2308: '
2309:
3000: --If the discount rate is different for the invoice line amount and tax amount, an exception will appear
3001: IF --ABS(l_discount_rate-l_discount_tax_rate)>0.001 delete for bug#8920239
3002: ABS(l_discount_tax_amount -
3003: l_discount_tax_rate * l_tax_amount) > 0.01 THEN
3004: fnd_message.SET_NAME('AR', 'AR_GTA_DIF_DIS_RATE');
3005: l_error_string := fnd_message.GET();
3006: -- begin log
3007: IF (FND_LOG.LEVEL_PROCEDURE >=
3008: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3001: IF --ABS(l_discount_rate-l_discount_tax_rate)>0.001 delete for bug#8920239
3002: ABS(l_discount_tax_amount -
3003: l_discount_tax_rate * l_tax_amount) > 0.01 THEN
3004: fnd_message.SET_NAME('AR', 'AR_GTA_DIF_DIS_RATE');
3005: l_error_string := fnd_message.GET();
3006: -- begin log
3007: IF (FND_LOG.LEVEL_PROCEDURE >=
3008: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3009: log(FND_LOG.LEVEL_PROCEDURE,
3051: IF l_uom_code IS NULL
3052: OR (l_quantity_invoiced IS NULL AND l_quantity_credited IS NULL)
3053: THEN
3054:
3055: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_FIELD');
3056: --fnd_message.set_token('NUM', l_customer_trx_line_id);
3057: l_error_string := fnd_message.GET();
3058:
3059: -- begin log
3052: OR (l_quantity_invoiced IS NULL AND l_quantity_credited IS NULL)
3053: THEN
3054:
3055: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_FIELD');
3056: --fnd_message.set_token('NUM', l_customer_trx_line_id);
3057: l_error_string := fnd_message.GET();
3058:
3059: -- begin log
3060: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3053: THEN
3054:
3055: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_FIELD');
3056: --fnd_message.set_token('NUM', l_customer_trx_line_id);
3057: l_error_string := fnd_message.GET();
3058:
3059: -- begin log
3060: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3061: THEN
3262: INTO l_gt_invoice_number, l_gt_invoice_class
3263: FROM AR_Gta_Trx_Headers_All
3264: WHERE ra_trx_id = l_pre_cus_trxid
3265: AND source = 'GT';
3266: fnd_message.SET_NAME('AR',
3267: 'AR_GTA_CREDMEMO_EXPORT_IV');
3268: l_cm_desc1 := fnd_message.GET();
3269: fnd_message.SET_NAME('AR',
3270: 'AR_GTA_CREDMEMO_EXPORT_NR');
3264: WHERE ra_trx_id = l_pre_cus_trxid
3265: AND source = 'GT';
3266: fnd_message.SET_NAME('AR',
3267: 'AR_GTA_CREDMEMO_EXPORT_IV');
3268: l_cm_desc1 := fnd_message.GET();
3269: fnd_message.SET_NAME('AR',
3270: 'AR_GTA_CREDMEMO_EXPORT_NR');
3271: l_cm_desc2 := fnd_message.GET();
3272: l_trx_header.description := l_cm_desc1 ||
3265: AND source = 'GT';
3266: fnd_message.SET_NAME('AR',
3267: 'AR_GTA_CREDMEMO_EXPORT_IV');
3268: l_cm_desc1 := fnd_message.GET();
3269: fnd_message.SET_NAME('AR',
3270: 'AR_GTA_CREDMEMO_EXPORT_NR');
3271: l_cm_desc2 := fnd_message.GET();
3272: l_trx_header.description := l_cm_desc1 ||
3273: l_gt_invoice_class || ' ' ||
3267: 'AR_GTA_CREDMEMO_EXPORT_IV');
3268: l_cm_desc1 := fnd_message.GET();
3269: fnd_message.SET_NAME('AR',
3270: 'AR_GTA_CREDMEMO_EXPORT_NR');
3271: l_cm_desc2 := fnd_message.GET();
3272: l_trx_header.description := l_cm_desc1 ||
3273: l_gt_invoice_class || ' ' ||
3274: l_cm_desc2 ||
3275: l_gt_invoice_number;
3283:
3284: IF (l_cm_warn = TRUE OR l_cm_warn2 = TRUE) THEN
3285: --if credit memo not associated with any AR inv or associated with multi AR inv
3286: IF l_cm_warn = TRUE THEN
3287: fnd_message.SET_NAME('AR', 'AR_GTA_CRMEMO_DES_NULL');
3288: l_error_string := fnd_message.GET();
3289: IF (FND_LOG.LEVEL_UNEXPECTED >=
3290: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3291: log(FND_LOG.LEVEL_PROCEDURE,
3284: IF (l_cm_warn = TRUE OR l_cm_warn2 = TRUE) THEN
3285: --if credit memo not associated with any AR inv or associated with multi AR inv
3286: IF l_cm_warn = TRUE THEN
3287: fnd_message.SET_NAME('AR', 'AR_GTA_CRMEMO_DES_NULL');
3288: l_error_string := fnd_message.GET();
3289: IF (FND_LOG.LEVEL_UNEXPECTED >=
3290: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3291: log(FND_LOG.LEVEL_PROCEDURE,
3292: G_MODULE_PREFIX || l_procedure_name,
3300: END IF;
3301: END IF; --l_cm_warn = TRUE
3302:
3303: IF l_cm_warn2 = TRUE THEN
3304: fnd_message.SET_NAME('AR', 'AR_GTA_TRS_NO_GT_INV');
3305: l_error_string := fnd_message.GET();
3306: IF (FND_LOG.LEVEL_UNEXPECTED >=
3307: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3308: log(FND_LOG.LEVEL_PROCEDURE,
3301: END IF; --l_cm_warn = TRUE
3302:
3303: IF l_cm_warn2 = TRUE THEN
3304: fnd_message.SET_NAME('AR', 'AR_GTA_TRS_NO_GT_INV');
3305: l_error_string := fnd_message.GET();
3306: IF (FND_LOG.LEVEL_UNEXPECTED >=
3307: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3308: log(FND_LOG.LEVEL_PROCEDURE,
3309: G_MODULE_PREFIX || l_procedure_name,
3354:
3355: IF (l_gt_inv_excep = true or l_ar_inv_excep = true) THEN
3356: --if credit memo associated with AR and in GTA but not VAT generated for non-common VAT
3357: --rasie correspoding AR transation not in GT warning.
3358: fnd_message.SET_NAME('AR', 'AR_GTA_CRMEMO_MISSING_GTINV');
3359: l_error_string := fnd_message.GET();
3360: IF (FND_LOG.LEVEL_UNEXPECTED >=
3361: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3362: log(FND_LOG.LEVEL_PROCEDURE,
3355: IF (l_gt_inv_excep = true or l_ar_inv_excep = true) THEN
3356: --if credit memo associated with AR and in GTA but not VAT generated for non-common VAT
3357: --rasie correspoding AR transation not in GT warning.
3358: fnd_message.SET_NAME('AR', 'AR_GTA_CRMEMO_MISSING_GTINV');
3359: l_error_string := fnd_message.GET();
3360: IF (FND_LOG.LEVEL_UNEXPECTED >=
3361: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3362: log(FND_LOG.LEVEL_PROCEDURE,
3363: G_MODULE_PREFIX || l_procedure_name,
3471: AND rct.org_id = rctt.org_id(+)
3472: AND rct.customer_trx_id = l_customer_trx_id
3473: AND rct.org_id = p_org_id;
3474:
3475: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3476: --Yao Zhang Comment for bug 14580597
3477: --fnd_message.set_token('TRX_TYP', l_trx_typ);
3478: --fnd_message.set_token('TAX_REG_NUM',
3479: -- l_fp_registration_number);
3473: AND rct.org_id = p_org_id;
3474:
3475: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3476: --Yao Zhang Comment for bug 14580597
3477: --fnd_message.set_token('TRX_TYP', l_trx_typ);
3478: --fnd_message.set_token('TAX_REG_NUM',
3479: -- l_fp_registration_number);
3480: l_error_string := fnd_message.GET();
3481: -- begin log
3474:
3475: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3476: --Yao Zhang Comment for bug 14580597
3477: --fnd_message.set_token('TRX_TYP', l_trx_typ);
3478: --fnd_message.set_token('TAX_REG_NUM',
3479: -- l_fp_registration_number);
3480: l_error_string := fnd_message.GET();
3481: -- begin log
3482: IF (FND_LOG.LEVEL_PROCEDURE >=
3476: --Yao Zhang Comment for bug 14580597
3477: --fnd_message.set_token('TRX_TYP', l_trx_typ);
3478: --fnd_message.set_token('TAX_REG_NUM',
3479: -- l_fp_registration_number);
3480: l_error_string := fnd_message.GET();
3481: -- begin log
3482: IF (FND_LOG.LEVEL_PROCEDURE >=
3483: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3484: log(FND_LOG.LEVEL_PROCEDURE,
3487: l_proce_error_buffer);
3488: END IF;
3489: -- end log
3490: ELSIF l_proce_error_buffer = 'AR_GTA_TAX_ERROR_RECYCLE' THEN
3491: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3492: l_error_string := fnd_message.GET();
3493: -- begin log
3494: IF (FND_LOG.LEVEL_PROCEDURE >=
3495: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3488: END IF;
3489: -- end log
3490: ELSIF l_proce_error_buffer = 'AR_GTA_TAX_ERROR_RECYCLE' THEN
3491: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3492: l_error_string := fnd_message.GET();
3493: -- begin log
3494: IF (FND_LOG.LEVEL_PROCEDURE >=
3495: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3496: log(FND_LOG.LEVEL_PROCEDURE,
3499: l_proce_error_buffer);
3500: END IF;
3501: -- end log
3502: ELSE
3503: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3504: fnd_message.set_token('NUM', l_customer_trx_line_number);
3505: fnd_message.set_token('TAXTYPE', l_vat_tax_type);
3506: l_error_string := fnd_message.GET();
3507:
3500: END IF;
3501: -- end log
3502: ELSE
3503: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3504: fnd_message.set_token('NUM', l_customer_trx_line_number);
3505: fnd_message.set_token('TAXTYPE', l_vat_tax_type);
3506: l_error_string := fnd_message.GET();
3507:
3508: -- begin log
3501: -- end log
3502: ELSE
3503: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3504: fnd_message.set_token('NUM', l_customer_trx_line_number);
3505: fnd_message.set_token('TAXTYPE', l_vat_tax_type);
3506: l_error_string := fnd_message.GET();
3507:
3508: -- begin log
3509: IF (FND_LOG.LEVEL_PROCEDURE >=
3502: ELSE
3503: fnd_message.SET_NAME('AR', l_proce_error_buffer);
3504: fnd_message.set_token('NUM', l_customer_trx_line_number);
3505: fnd_message.set_token('TAXTYPE', l_vat_tax_type);
3506: l_error_string := fnd_message.GET();
3507:
3508: -- begin log
3509: IF (FND_LOG.LEVEL_PROCEDURE >=
3510: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3524: END IF;
3525: CLOSE c_ra_lines;
3526: RAISE l_normal_exception;
3527: ELSIF l_status = 2 THEN
3528: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
3529: fnd_message.set_token('Tax_Regis_Number',
3530: l_fp_registration_number);
3531: l_error_string := fnd_message.get();
3532:
3525: CLOSE c_ra_lines;
3526: RAISE l_normal_exception;
3527: ELSIF l_status = 2 THEN
3528: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
3529: fnd_message.set_token('Tax_Regis_Number',
3530: l_fp_registration_number);
3531: l_error_string := fnd_message.get();
3532:
3533: -- begin log
3527: ELSIF l_status = 2 THEN
3528: fnd_message.SET_NAME('AR', 'AR_GTA_SYS_CONFIG_MISSING');
3529: fnd_message.set_token('Tax_Regis_Number',
3530: l_fp_registration_number);
3531: l_error_string := fnd_message.get();
3532:
3533: -- begin log
3534: IF (FND_LOG.LEVEL_PROCEDURE >=
3535: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3584: 0)) / l_quantity_invoiced;
3585:
3586: IF ABS(l_actual_unit_price) > l_max_amount THEN
3587: --Yao add end for bug9045187
3588: fnd_message.SET_NAME('AR', 'AR_GTA_UNITPRICE_EXCEED');
3589: fnd_message.set_token('NUM',
3590: l_customer_trx_line_number);
3591: l_error_string := fnd_message.GET();
3592:
3585:
3586: IF ABS(l_actual_unit_price) > l_max_amount THEN
3587: --Yao add end for bug9045187
3588: fnd_message.SET_NAME('AR', 'AR_GTA_UNITPRICE_EXCEED');
3589: fnd_message.set_token('NUM',
3590: l_customer_trx_line_number);
3591: l_error_string := fnd_message.GET();
3592:
3593: -- begin log
3587: --Yao add end for bug9045187
3588: fnd_message.SET_NAME('AR', 'AR_GTA_UNITPRICE_EXCEED');
3589: fnd_message.set_token('NUM',
3590: l_customer_trx_line_number);
3591: l_error_string := fnd_message.GET();
3592:
3593: -- begin log
3594: IF (FND_LOG.LEVEL_PROCEDURE >=
3595: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3617: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3618: G_MODULE_PREFIX || l_procedure_name,
3619: 'no data found');
3620: END IF;
3621: fnd_message.set_name('AR', 'AR_GTA_SYS_CONFIG_MISSING');
3622:
3623: IF (FND_LOG.LEVEL_UNEXPECTED >=
3624: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3625: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3623: IF (FND_LOG.LEVEL_UNEXPECTED >=
3624: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3625: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
3626: G_MODULE_PREFIX || l_procedure_name,
3627: fnd_message.get());
3628:
3629: END IF;
3630: RAISE;
3631: RETURN;
3638: IF (l_item_name_source_flag = 'R') THEN
3639: -- if the description of AR is null then report a error
3640: IF (l_description IS NULL) THEN
3641: --report AR_GTA_AR_DESC_MISS
3642: fnd_message.set_name('AR', 'AR_GTA_MISSING_FIELD');
3643: fnd_message.set_token('NUM', l_customer_trx_line_number);
3644: fnd_message.set_token('TrxNum',
3645: l_trx_header.gta_trx_header_id);
3646: l_error_string := fnd_message.get();
3639: -- if the description of AR is null then report a error
3640: IF (l_description IS NULL) THEN
3641: --report AR_GTA_AR_DESC_MISS
3642: fnd_message.set_name('AR', 'AR_GTA_MISSING_FIELD');
3643: fnd_message.set_token('NUM', l_customer_trx_line_number);
3644: fnd_message.set_token('TrxNum',
3645: l_trx_header.gta_trx_header_id);
3646: l_error_string := fnd_message.get();
3647:
3640: IF (l_description IS NULL) THEN
3641: --report AR_GTA_AR_DESC_MISS
3642: fnd_message.set_name('AR', 'AR_GTA_MISSING_FIELD');
3643: fnd_message.set_token('NUM', l_customer_trx_line_number);
3644: fnd_message.set_token('TrxNum',
3645: l_trx_header.gta_trx_header_id);
3646: l_error_string := fnd_message.get();
3647:
3648: -- begin log
3642: fnd_message.set_name('AR', 'AR_GTA_MISSING_FIELD');
3643: fnd_message.set_token('NUM', l_customer_trx_line_number);
3644: fnd_message.set_token('TrxNum',
3645: l_trx_header.gta_trx_header_id);
3646: l_error_string := fnd_message.get();
3647:
3648: -- begin log
3649: IF (FND_LOG.LEVEL_PROCEDURE >=
3650: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3682: WHERE org_id = p_org_id
3683: AND parameter_code = 'MASTER_ORGANIZATION_ID';
3684: EXCEPTION
3685: WHEN no_data_found THEN
3686: fnd_message.set_name('AR',
3687: 'AR_GTA_MISSING_CROSS_REF');
3688: fnd_message.set_token('NUM',
3689: l_customer_trx_line_number);
3690: l_error_string := fnd_message.get();
3684: EXCEPTION
3685: WHEN no_data_found THEN
3686: fnd_message.set_name('AR',
3687: 'AR_GTA_MISSING_CROSS_REF');
3688: fnd_message.set_token('NUM',
3689: l_customer_trx_line_number);
3690: l_error_string := fnd_message.get();
3691: -- log
3692: IF (fnd_log.level_exception >=
3686: fnd_message.set_name('AR',
3687: 'AR_GTA_MISSING_CROSS_REF');
3688: fnd_message.set_token('NUM',
3689: l_customer_trx_line_number);
3690: l_error_string := fnd_message.get();
3691: -- log
3692: IF (fnd_log.level_exception >=
3693: fnd_log.g_current_runtime_level) THEN
3694: fnd_log.STRING(fnd_log.level_exception,
3739: AND inventory_item_id = l_inventory_item_id;
3740:
3741: EXCEPTION
3742: WHEN no_data_found THEN
3743: fnd_message.set_name('AR',
3744: 'AR_GTA_MISSING_CROSS_REF');
3745: fnd_message.set_token('NUM',
3746: l_customer_trx_line_number);
3747: l_error_string := fnd_message.get();
3741: EXCEPTION
3742: WHEN no_data_found THEN
3743: fnd_message.set_name('AR',
3744: 'AR_GTA_MISSING_CROSS_REF');
3745: fnd_message.set_token('NUM',
3746: l_customer_trx_line_number);
3747: l_error_string := fnd_message.get();
3748:
3749: -- log
3743: fnd_message.set_name('AR',
3744: 'AR_GTA_MISSING_CROSS_REF');
3745: fnd_message.set_token('NUM',
3746: l_customer_trx_line_number);
3747: l_error_string := fnd_message.get();
3748:
3749: -- log
3750: IF (FND_LOG.LEVEL_EXCEPTION >=
3751: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3759: END;
3760: --multi-lines cross reference and setup not allow it
3761: IF (l_latest_ref_default_flag = 'N' AND l_cross_rows > 1) THEN
3762: --report AR_GTA_MISSING_CROSS_REF
3763: fnd_message.SET_NAME('AR', 'AR_GTA_MULTIPLE_REF');
3764: fnd_message.SET_TOKEN('NUM',
3765: l_customer_trx_line_number);
3766: l_error_string := fnd_message.get();
3767: -- log
3760: --multi-lines cross reference and setup not allow it
3761: IF (l_latest_ref_default_flag = 'N' AND l_cross_rows > 1) THEN
3762: --report AR_GTA_MISSING_CROSS_REF
3763: fnd_message.SET_NAME('AR', 'AR_GTA_MULTIPLE_REF');
3764: fnd_message.SET_TOKEN('NUM',
3765: l_customer_trx_line_number);
3766: l_error_string := fnd_message.get();
3767: -- log
3768: IF (FND_LOG.LEVEL_EXCEPTION >=
3762: --report AR_GTA_MISSING_CROSS_REF
3763: fnd_message.SET_NAME('AR', 'AR_GTA_MULTIPLE_REF');
3764: fnd_message.SET_TOKEN('NUM',
3765: l_customer_trx_line_number);
3766: l_error_string := fnd_message.get();
3767: -- log
3768: IF (FND_LOG.LEVEL_EXCEPTION >=
3769: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3770: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3780: IF (l_MASTER_ITEM_DEFAULT_FLAG = 'Y') THEN
3781: l_trx_line.item_description := l_inventory_item_name;
3782: ELSE
3783: /*(l_MASTER_ITEM_DEFAULT_FLAG = 'Y') */
3784: fnd_message.SET_NAME('AR',
3785: 'AR_GTA_MISSING_CROSS_REF');
3786: fnd_message.SET_TOKEN('NUM',
3787: l_customer_trx_line_number);
3788: l_error_string := fnd_message.get();
3782: ELSE
3783: /*(l_MASTER_ITEM_DEFAULT_FLAG = 'Y') */
3784: fnd_message.SET_NAME('AR',
3785: 'AR_GTA_MISSING_CROSS_REF');
3786: fnd_message.SET_TOKEN('NUM',
3787: l_customer_trx_line_number);
3788: l_error_string := fnd_message.get();
3789: -- log
3790: IF (FND_LOG.LEVEL_EXCEPTION >=
3784: fnd_message.SET_NAME('AR',
3785: 'AR_GTA_MISSING_CROSS_REF');
3786: fnd_message.SET_TOKEN('NUM',
3787: l_customer_trx_line_number);
3788: l_error_string := fnd_message.get();
3789: -- log
3790: IF (FND_LOG.LEVEL_EXCEPTION >=
3791: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3792: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3808: -- should be assigned the value of AR transaction line description.
3809: l_trx_line.item_description := l_description;
3810: --11/06/2006 deleted by Shujuan Yan for bug 5224923
3811: /* ELSE /*l_inventory_item_id IS NOT NULL*/
3812: /* fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_CROSS_REF');
3813: fnd_message.set_token('NUM', l_customer_trx_line_number);
3814: l_error_string := fnd_message.get;
3815:
3816: -- log
3809: l_trx_line.item_description := l_description;
3810: --11/06/2006 deleted by Shujuan Yan for bug 5224923
3811: /* ELSE /*l_inventory_item_id IS NOT NULL*/
3812: /* fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_CROSS_REF');
3813: fnd_message.set_token('NUM', l_customer_trx_line_number);
3814: l_error_string := fnd_message.get;
3815:
3816: -- log
3817: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3810: --11/06/2006 deleted by Shujuan Yan for bug 5224923
3811: /* ELSE /*l_inventory_item_id IS NOT NULL*/
3812: /* fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_CROSS_REF');
3813: fnd_message.set_token('NUM', l_customer_trx_line_number);
3814: l_error_string := fnd_message.get;
3815:
3816: -- log
3817: IF(FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
3818: THEN
3838: l_attribute_category IS NULL THEN
3839: IF l_inventory_attribute_category <>
3840: l_inv_item_context_code THEN
3841: --report AR_GTA_ARTRX_FLEX_MISSING
3842: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3843: fnd_message.set_token('NUM', l_customer_trx_line_number);
3844: fnd_message.set_token('ITEM', l_inventory_item_name);
3845: l_error_string := fnd_message.get();
3846:
3839: IF l_inventory_attribute_category <>
3840: l_inv_item_context_code THEN
3841: --report AR_GTA_ARTRX_FLEX_MISSING
3842: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3843: fnd_message.set_token('NUM', l_customer_trx_line_number);
3844: fnd_message.set_token('ITEM', l_inventory_item_name);
3845: l_error_string := fnd_message.get();
3846:
3847: -- log
3840: l_inv_item_context_code THEN
3841: --report AR_GTA_ARTRX_FLEX_MISSING
3842: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3843: fnd_message.set_token('NUM', l_customer_trx_line_number);
3844: fnd_message.set_token('ITEM', l_inventory_item_name);
3845: l_error_string := fnd_message.get();
3846:
3847: -- log
3848: IF (FND_LOG.LEVEL_EXCEPTION >=
3841: --report AR_GTA_ARTRX_FLEX_MISSING
3842: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3843: fnd_message.set_token('NUM', l_customer_trx_line_number);
3844: fnd_message.set_token('ITEM', l_inventory_item_name);
3845: l_error_string := fnd_message.get();
3846:
3847: -- log
3848: IF (FND_LOG.LEVEL_EXCEPTION >=
3849: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3856: RAISE l_normal_exception;
3857: ELSE
3858: /*l_interface_line_context <> l_inv_item_context_code*/
3859: IF l_inv_model_attribute_column IS NULL THEN
3860: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3861: fnd_message.set_token('NUM',
3862: l_customer_trx_line_number);
3863: fnd_message.set_token('ITEM', l_inventory_item_name);
3864: l_error_string := fnd_message.get;
3857: ELSE
3858: /*l_interface_line_context <> l_inv_item_context_code*/
3859: IF l_inv_model_attribute_column IS NULL THEN
3860: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3861: fnd_message.set_token('NUM',
3862: l_customer_trx_line_number);
3863: fnd_message.set_token('ITEM', l_inventory_item_name);
3864: l_error_string := fnd_message.get;
3865:
3859: IF l_inv_model_attribute_column IS NULL THEN
3860: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3861: fnd_message.set_token('NUM',
3862: l_customer_trx_line_number);
3863: fnd_message.set_token('ITEM', l_inventory_item_name);
3864: l_error_string := fnd_message.get;
3865:
3866: -- log
3867: IF (FND_LOG.LEVEL_EXCEPTION >=
3860: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3861: fnd_message.set_token('NUM',
3862: l_customer_trx_line_number);
3863: fnd_message.set_token('ITEM', l_inventory_item_name);
3864: l_error_string := fnd_message.get;
3865:
3866: -- log
3867: IF (FND_LOG.LEVEL_EXCEPTION >=
3868: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3883: END IF; /*l_inv_model_attribute_column IS NULL*/
3884:
3885: /* Commented for Enhancement 12424456 on 2011-07-25
3886: IF l_inv_tax_attribute_column IS NULL THEN
3887: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3888: fnd_message.set_token('NUM', l_customer_trx_line_number);
3889: fnd_message.set_token('ITEM', l_inventory_item_name);
3890: l_error_string := fnd_message.get();
3891: -- log
3884:
3885: /* Commented for Enhancement 12424456 on 2011-07-25
3886: IF l_inv_tax_attribute_column IS NULL THEN
3887: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3888: fnd_message.set_token('NUM', l_customer_trx_line_number);
3889: fnd_message.set_token('ITEM', l_inventory_item_name);
3890: l_error_string := fnd_message.get();
3891: -- log
3892: IF (FND_LOG.LEVEL_PROCEDURE >=
3885: /* Commented for Enhancement 12424456 on 2011-07-25
3886: IF l_inv_tax_attribute_column IS NULL THEN
3887: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3888: fnd_message.set_token('NUM', l_customer_trx_line_number);
3889: fnd_message.set_token('ITEM', l_inventory_item_name);
3890: l_error_string := fnd_message.get();
3891: -- log
3892: IF (FND_LOG.LEVEL_PROCEDURE >=
3893: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3886: IF l_inv_tax_attribute_column IS NULL THEN
3887: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3888: fnd_message.set_token('NUM', l_customer_trx_line_number);
3889: fnd_message.set_token('ITEM', l_inventory_item_name);
3890: l_error_string := fnd_message.get();
3891: -- log
3892: IF (FND_LOG.LEVEL_PROCEDURE >=
3893: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3894: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE,
3933:
3934: IF l_trx_line.item_model IS NULL THEN
3935: IF l_inventory_attribute_category <>
3936: l_inv_item_context_code THEN
3937: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3938: fnd_message.set_token('NUM',
3939: l_customer_trx_line_number);
3940: fnd_message.set_token('ITEM', l_inventory_item_name);
3941: l_error_string := fnd_message.get();
3934: IF l_trx_line.item_model IS NULL THEN
3935: IF l_inventory_attribute_category <>
3936: l_inv_item_context_code THEN
3937: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3938: fnd_message.set_token('NUM',
3939: l_customer_trx_line_number);
3940: fnd_message.set_token('ITEM', l_inventory_item_name);
3941: l_error_string := fnd_message.get();
3942: -- log
3936: l_inv_item_context_code THEN
3937: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3938: fnd_message.set_token('NUM',
3939: l_customer_trx_line_number);
3940: fnd_message.set_token('ITEM', l_inventory_item_name);
3941: l_error_string := fnd_message.get();
3942: -- log
3943: IF (FND_LOG.LEVEL_EXCEPTION >=
3944: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3937: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_MODEL');
3938: fnd_message.set_token('NUM',
3939: l_customer_trx_line_number);
3940: fnd_message.set_token('ITEM', l_inventory_item_name);
3941: l_error_string := fnd_message.get();
3942: -- log
3943: IF (FND_LOG.LEVEL_EXCEPTION >=
3944: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3945: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
3983:
3984: /*Commented for Enhancement 12424456 on 2011-07-25
3985: IF l_inventory_attribute_category <>
3986: l_inv_item_context_code THEN
3987: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3988: fnd_message.set_token('NUM', l_customer_trx_line_number);
3989: fnd_message.set_token('ITEM', l_inventory_item_name);
3990: l_error_string := fnd_message.get();
3991: -- log
3984: /*Commented for Enhancement 12424456 on 2011-07-25
3985: IF l_inventory_attribute_category <>
3986: l_inv_item_context_code THEN
3987: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3988: fnd_message.set_token('NUM', l_customer_trx_line_number);
3989: fnd_message.set_token('ITEM', l_inventory_item_name);
3990: l_error_string := fnd_message.get();
3991: -- log
3992: IF (FND_LOG.LEVEL_EXCEPTION >=
3985: IF l_inventory_attribute_category <>
3986: l_inv_item_context_code THEN
3987: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3988: fnd_message.set_token('NUM', l_customer_trx_line_number);
3989: fnd_message.set_token('ITEM', l_inventory_item_name);
3990: l_error_string := fnd_message.get();
3991: -- log
3992: IF (FND_LOG.LEVEL_EXCEPTION >=
3993: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3986: l_inv_item_context_code THEN
3987: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
3988: fnd_message.set_token('NUM', l_customer_trx_line_number);
3989: fnd_message.set_token('ITEM', l_inventory_item_name);
3990: l_error_string := fnd_message.get();
3991: -- log
3992: IF (FND_LOG.LEVEL_EXCEPTION >=
3993: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3994: fnd_log.STRING(fnd_log.LEVEL_EXCEPTION,
4025: -- Should display line number and item name instead of line id and item id.
4026: IF l_trx_line.item_tax_denomination IS NULL THEN
4027: l_trx_line.item_tax_denomination := '0';
4028: /*Commented for Enhancement 12424456 on 2011-07-25
4029: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
4030: fnd_message.set_token('NUM', l_customer_trx_line_number);
4031: fnd_message.set_token('ITEM', l_inventory_item_name);
4032: l_error_string := fnd_message.get();
4033: -- log
4026: IF l_trx_line.item_tax_denomination IS NULL THEN
4027: l_trx_line.item_tax_denomination := '0';
4028: /*Commented for Enhancement 12424456 on 2011-07-25
4029: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
4030: fnd_message.set_token('NUM', l_customer_trx_line_number);
4031: fnd_message.set_token('ITEM', l_inventory_item_name);
4032: l_error_string := fnd_message.get();
4033: -- log
4034: IF (FND_LOG.LEVEL_UNEXPECTED >=
4027: l_trx_line.item_tax_denomination := '0';
4028: /*Commented for Enhancement 12424456 on 2011-07-25
4029: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
4030: fnd_message.set_token('NUM', l_customer_trx_line_number);
4031: fnd_message.set_token('ITEM', l_inventory_item_name);
4032: l_error_string := fnd_message.get();
4033: -- log
4034: IF (FND_LOG.LEVEL_UNEXPECTED >=
4035: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4028: /*Commented for Enhancement 12424456 on 2011-07-25
4029: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_TAX_DENOM');
4030: fnd_message.set_token('NUM', l_customer_trx_line_number);
4031: fnd_message.set_token('ITEM', l_inventory_item_name);
4032: l_error_string := fnd_message.get();
4033: -- log
4034: IF (FND_LOG.LEVEL_UNEXPECTED >=
4035: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4036: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
4042:
4043: END IF; /*l_trx_lline.itme_tax_denomination IS NULL*/
4044:
4045: IF l_trx_line.item_description IS NULL THEN
4046: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_CROSS_REF');
4047: fnd_message.set_token('NUM', l_customer_trx_line_number);
4048: l_error_string := fnd_message.get();
4049: -- log
4050: IF (FND_LOG.LEVEL_UNEXPECTED >=
4043: END IF; /*l_trx_lline.itme_tax_denomination IS NULL*/
4044:
4045: IF l_trx_line.item_description IS NULL THEN
4046: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_CROSS_REF');
4047: fnd_message.set_token('NUM', l_customer_trx_line_number);
4048: l_error_string := fnd_message.get();
4049: -- log
4050: IF (FND_LOG.LEVEL_UNEXPECTED >=
4051: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4044:
4045: IF l_trx_line.item_description IS NULL THEN
4046: fnd_message.SET_NAME('AR', 'AR_GTA_MISSING_CROSS_REF');
4047: fnd_message.set_token('NUM', l_customer_trx_line_number);
4048: l_error_string := fnd_message.get();
4049: -- log
4050: IF (FND_LOG.LEVEL_UNEXPECTED >=
4051: FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4052: fnd_log.STRING(fnd_log.LEVEL_UNEXPECTED,
4172: WHILE l_trx_line_index IS NOT NULL LOOP
4173: l_tp_regi_number := l_trx_lines(l_trx_line_index)
4174: .tp_tax_registration_number;
4175: IF l_tp_regi_number <> l_tp_regi_number_first THEN
4176: fnd_message.SET_NAME('AR', 'AR_GTA_MULTI_TP_TAXREG');
4177: l_error_string := fnd_message.get;
4178: RAISE l_normal_exception;
4179: END IF; /*l_tp_regi_number <> l_tp_regi_number_first*/
4180:
4173: l_tp_regi_number := l_trx_lines(l_trx_line_index)
4174: .tp_tax_registration_number;
4175: IF l_tp_regi_number <> l_tp_regi_number_first THEN
4176: fnd_message.SET_NAME('AR', 'AR_GTA_MULTI_TP_TAXREG');
4177: l_error_string := fnd_message.get;
4178: RAISE l_normal_exception;
4179: END IF; /*l_tp_regi_number <> l_tp_regi_number_first*/
4180:
4181: l_trx_line_index := l_trx_lines.NEXT(l_trx_line_index);