1120: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1121: RAISE FND_API.g_exc_unexpected_error;
1122: END IF;
1123:
1124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rec.claim_number);
1125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Reopened. ');
1126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1127:
1128: IF OZF_DEBUG_HIGH_ON THEN
1121: RAISE FND_API.g_exc_unexpected_error;
1122: END IF;
1123:
1124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rec.claim_number);
1125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Reopened. ');
1126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1127:
1128: IF OZF_DEBUG_HIGH_ON THEN
1129: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
1122: END IF;
1123:
1124: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rec.claim_number);
1125: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Reopened. ');
1126: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
1127:
1128: IF OZF_DEBUG_HIGH_ON THEN
1129: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
1130: END IF;
2440: l_rma_cm_total_amount := NVL(l_rma_cm_line_amount,0) + NVL(l_rma_cm_tax_amount,0) + NVL(l_rma_cm_freight_amount,0);
2441:
2442: l_difference_amount := p_claim_setl_rec.amount_settled + l_rma_cm_total_amount;
2443:
2444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||p_claim_setl_rec.amount_settled);
2445: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||p_claim_setl_rec.amount_remaining);
2446:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2441:
2442: l_difference_amount := p_claim_setl_rec.amount_settled + l_rma_cm_total_amount;
2443:
2444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||p_claim_setl_rec.amount_settled);
2445: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||p_claim_setl_rec.amount_remaining);
2446:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2443:
2444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||p_claim_setl_rec.amount_settled);
2445: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||p_claim_setl_rec.amount_remaining);
2446:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo freight amount = '||l_rma_cm_freight_amount);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2444: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||p_claim_setl_rec.amount_settled);
2445: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||p_claim_setl_rec.amount_remaining);
2446:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo freight amount = '||l_rma_cm_freight_amount);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2445: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||p_claim_setl_rec.amount_remaining);
2446:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo freight amount = '||l_rma_cm_freight_amount);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2453:
2446:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo freight amount = '||l_rma_cm_freight_amount);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2453:
2454:
2447: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo total amount = '||l_rma_cm_total_amount);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo freight amount = '||l_rma_cm_freight_amount);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2453:
2454:
2455: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || p_claim_setl_rec.amount_settled);
2448: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo amount = '||l_rma_cm_line_amount);
2449: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo tax amount = '||l_rma_cm_tax_amount);
2450: FND_FILE.PUT_LINE(FND_FILE.LOG, 'RMA Credit Memo freight amount = '||l_rma_cm_freight_amount);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2453:
2454:
2455: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || p_claim_setl_rec.amount_settled);
2456: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || p_claim_setl_rec.amount_remaining);
2451: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2453:
2454:
2455: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || p_claim_setl_rec.amount_settled);
2456: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || p_claim_setl_rec.amount_remaining);
2457: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' RMA Total Amount : ' || l_rma_cm_total_amount);
2458:
2459:
2452: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
2453:
2454:
2455: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || p_claim_setl_rec.amount_settled);
2456: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || p_claim_setl_rec.amount_remaining);
2457: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' RMA Total Amount : ' || l_rma_cm_total_amount);
2458:
2459:
2460:
2453:
2454:
2455: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || p_claim_setl_rec.amount_settled);
2456: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || p_claim_setl_rec.amount_remaining);
2457: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' RMA Total Amount : ' || l_rma_cm_total_amount);
2458:
2459:
2460:
2461: -- OVERPAYMENT and CHARGE claim_class cannot be settled by RMA
2510: l_upd_claim_rec.amount_remaining := l_upd_claim_rec.amount - l_upd_claim_rec.amount_adjusted -
2511: l_upd_claim_rec.amount_settled -
2512: l_upd_claim_rec.tax_amount;
2513:
2514: fnd_file.put_line(fnd_file.log, 'Tax Amount '||l_upd_claim_rec.tax_amount);
2515: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_upd_claim_rec.amount_remaining);
2516: Update_Claim_Tax_Amount(
2517: p_claim_rec => l_upd_claim_rec
2518: ,x_return_status => l_return_status
2511: l_upd_claim_rec.amount_settled -
2512: l_upd_claim_rec.tax_amount;
2513:
2514: fnd_file.put_line(fnd_file.log, 'Tax Amount '||l_upd_claim_rec.tax_amount);
2515: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_upd_claim_rec.amount_remaining);
2516: Update_Claim_Tax_Amount(
2517: p_claim_rec => l_upd_claim_rec
2518: ,x_return_status => l_return_status
2519: ,x_msg_data => x_msg_data
2565: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2566: RAISE FND_API.g_exc_unexpected_error;
2567: END IF;
2568:
2569: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
2570: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
2571:
2572: END IF;
2573:
2566: RAISE FND_API.g_exc_unexpected_error;
2567: END IF;
2568:
2569: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
2570: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
2571:
2572: END IF;
2573:
2574: -- re-query claim here because amount_remaining is changed
2586: -- Bug3951827: Settlement Amount is recalculated.
2587: -- Bug4365819: Calculate settlement amount before write off
2588: l_settlement_amount :=( NVL(l_claim_rec.amount_settled, 0) + NVL(l_claim_rec.tax_amount, 0)) ;
2589:
2590: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Recalculated Settlement Amount = '||l_settlement_amount);
2591:
2592:
2593: -- -----------------------------------------------
2594: -- Bug4087329: Write Off
2611: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2612: RAISE FND_API.g_exc_unexpected_error;
2613: END IF;
2614:
2615: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Write Off ');
2616:
2617: -- re-query claim here because amount_remaining is changed
2618: OZF_AR_PAYMENT_PVT.Query_Claim(
2619: p_claim_id => p_claim_setl_rec.claim_id
2711:
2712: END IF;
2713:
2714:
2715: FND_FILE.PUT_LINE(FND_FILE.LOG, p_claim_setl_rec.claim_number||' --> Success.');
2716: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||p_claim_setl_rec.claim_number||' -------------*/');
2717:
2718: IF OZF_DEBUG_HIGH_ON THEN
2719: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2712: END IF;
2713:
2714:
2715: FND_FILE.PUT_LINE(FND_FILE.LOG, p_claim_setl_rec.claim_number||' --> Success.');
2716: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||p_claim_setl_rec.claim_number||' -------------*/');
2717:
2718: IF OZF_DEBUG_HIGH_ON THEN
2719: OZF_Utility_PVT.debug_message(l_full_name||' : end');
2720: END IF;
2957: l_claim_csr_stmt := FND_DSQL.get_text(FALSE);
2958:
2959: l_stmt_debug := fnd_dsql.get_text(TRUE);
2960:
2961: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QUERY CLAIM SQL :: ' || l_stmt_debug);
2962:
2963: DBMS_SQL.parse(l_claim_csr_id, l_claim_csr_stmt, DBMS_SQL.native);
2964: DBMS_SQL.define_column(l_claim_csr_id, 1, l_claim_rec.claim_id);
2965: DBMS_SQL.define_column_char(l_claim_csr_id, 2, l_claim_rec.claim_number, 30);
3026: FETCH csr_rma_status INTO l_rma_status;
3027: CLOSE csr_rma_status;
3028:
3029: IF l_rma_status = 'CANCELLED' THEN
3030: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3031: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Status is Cancelled ' );
3032:
3033: Process_Cancelled_Setl_Doc(
3034: p_claim_id => l_claim_rma_fetch(i).claim_id
3027: CLOSE csr_rma_status;
3028:
3029: IF l_rma_status = 'CANCELLED' THEN
3030: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3031: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Status is Cancelled ' );
3032:
3033: Process_Cancelled_Setl_Doc(
3034: p_claim_id => l_claim_rma_fetch(i).claim_id
3035: ,x_return_status => l_return_status
3062: IF j IS NOT NULL THEN
3063: LOOP
3064: IF l_settlement_doc_tbl(j).settlement_id IS NOT NULL AND
3065: l_settlement_doc_tbl(j).settlement_id <> FND_API.g_miss_num THEN
3066: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AR Transactinn# = ' || l_settlement_doc_tbl(j).settlement_number);
3067: Create_Settlement_Doc(
3068: p_api_version_number => l_api_version,
3069: p_init_msg_list => FND_API.g_false,
3070: p_commit => FND_API.g_false,
3129:
3130: EXCEPTION
3131: WHEN FND_API.G_EXC_ERROR THEN
3132: ROLLBACK TO RMA_CR_FETCH;
3133: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3134: OZF_UTILITY_PVT.write_conc_log;
3135: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3136:
3137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3131: WHEN FND_API.G_EXC_ERROR THEN
3132: ROLLBACK TO RMA_CR_FETCH;
3133: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3134: OZF_UTILITY_PVT.write_conc_log;
3135: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3136:
3137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3138: ROLLBACK TO RMA_CR_FETCH;
3139: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3135: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3136:
3137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3138: ROLLBACK TO RMA_CR_FETCH;
3139: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3140: OZF_UTILITY_PVT.write_conc_log;
3141: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3142:
3143: WHEN OTHERS THEN
3137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3138: ROLLBACK TO RMA_CR_FETCH;
3139: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3140: OZF_UTILITY_PVT.write_conc_log;
3141: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3142:
3143: WHEN OTHERS THEN
3144: ROLLBACK TO RMA_CR_FETCH;
3145: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3141: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3142:
3143: WHEN OTHERS THEN
3144: ROLLBACK TO RMA_CR_FETCH;
3145: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3146: OZF_UTILITY_PVT.write_conc_log;
3147: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3148:
3149: END;
3143: WHEN OTHERS THEN
3144: ROLLBACK TO RMA_CR_FETCH;
3145: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_fetch(i).claim_number||' --> Failed in Fetch.');
3146: OZF_UTILITY_PVT.write_conc_log;
3147: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_fetch(i).claim_number||' --------------*/');
3148:
3149: END;
3150: END LOOP;
3151: END IF; -- end if l_claim_rma_fetch.count > 0
3166: l_claim_csr_stmt := FND_DSQL.get_text(FALSE);
3167:
3168: l_stmt_debug := fnd_dsql.get_text(TRUE);
3169:
3170: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QUERY CLAIM SQL :: ' || l_stmt_debug);
3171:
3172: DBMS_SQL.parse(l_claim_csr_id, l_claim_csr_stmt, DBMS_SQL.native);
3173: DBMS_SQL.define_column(l_claim_csr_id, 1, l_claim_rec.claim_id);
3174: DBMS_SQL.define_column_char(l_claim_csr_id, 2, l_claim_rec.claim_number, 30);
3232: WHEN OTHERS THEN
3233: RAISE LOCK_EXCEPTION;
3234: END;
3235:
3236: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3237: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rma_setl(i).claim_number);
3238:
3239: Get_RMA_Setl_Doc_Tbl(
3240: p_claim_id => l_claim_rma_setl(i).claim_id,
3233: RAISE LOCK_EXCEPTION;
3234: END;
3235:
3236: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3237: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_rma_setl(i).claim_number);
3238:
3239: Get_RMA_Setl_Doc_Tbl(
3240: p_claim_id => l_claim_rma_setl(i).claim_id,
3241: x_settlement_doc_tbl => l_settlement_doc_tbl,
3272: RAISE FND_API.g_exc_error;
3273: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3274: RAISE FND_API.g_exc_unexpected_error;
3275: END IF;
3276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
3277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3278: l_successful_claims := l_successful_claims + 1;
3279: END IF; -- end if l_claim_rma_setl.claim_id is not null and g_miss_num
3280: EXCEPTION
3273: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3274: RAISE FND_API.g_exc_unexpected_error;
3275: END IF;
3276: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
3277: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3278: l_successful_claims := l_successful_claims + 1;
3279: END IF; -- end if l_claim_rma_setl.claim_id is not null and g_miss_num
3280: EXCEPTION
3281: WHEN FND_API.G_EXC_ERROR THEN
3279: END IF; -- end if l_claim_rma_setl.claim_id is not null and g_miss_num
3280: EXCEPTION
3281: WHEN FND_API.G_EXC_ERROR THEN
3282: ROLLBACK TO RMA_SETL;
3283: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3282: ROLLBACK TO RMA_SETL;
3283: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3283: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3291:
3284: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3291:
3292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3285: OZF_UTILITY_PVT.write_conc_log;
3286: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3287: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3288: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3289: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3290: l_failed_claims := l_failed_claims + 1;
3291:
3292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3293: ROLLBACK TO RMA_SETL;
3290: l_failed_claims := l_failed_claims + 1;
3291:
3292: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3293: ROLLBACK TO RMA_SETL;
3294: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3293: ROLLBACK TO RMA_SETL;
3294: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3299: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3301: l_failed_claims := l_failed_claims + 1;
3294: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3299: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3301: l_failed_claims := l_failed_claims + 1;
3302:
3295: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3299: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3301: l_failed_claims := l_failed_claims + 1;
3302:
3303: WHEN OTHERS THEN
3296: OZF_UTILITY_PVT.write_conc_log;
3297: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3298: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3299: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3300: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3301: l_failed_claims := l_failed_claims + 1;
3302:
3303: WHEN OTHERS THEN
3304: ROLLBACK TO RMA_SETL;
3301: l_failed_claims := l_failed_claims + 1;
3302:
3303: WHEN OTHERS THEN
3304: ROLLBACK TO RMA_SETL;
3305: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3306: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3307: OZF_UTILITY_PVT.write_conc_log;
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3304: ROLLBACK TO RMA_SETL;
3305: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3306: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3307: OZF_UTILITY_PVT.write_conc_log;
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3310: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3311: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3312: l_failed_claims := l_failed_claims + 1;
3305: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_rma_setl(i).claim_number||' --> Failed in Settlement.');
3306: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3307: OZF_UTILITY_PVT.write_conc_log;
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3310: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3311: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3312: l_failed_claims := l_failed_claims + 1;
3313:
3306: --OZF_UTILITY_PVT.debug_message(l_claim_rma_setl(i).claim_number||' --> Failed.');
3307: OZF_UTILITY_PVT.write_conc_log;
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3310: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3311: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3312: l_failed_claims := l_failed_claims + 1;
3313:
3314: END;
3307: OZF_UTILITY_PVT.write_conc_log;
3308: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_rma_setl(i).claim_number||' --------------*/');
3309: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3310: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3311: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3312: l_failed_claims := l_failed_claims + 1;
3313:
3314: END;
3315: END LOOP;
3323: END IF;
3324: IF OZF_DEBUG_HIGH_ON THEN
3325: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
3326: END IF;
3327: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for RMA Settlement : ' || l_successful_claims);
3328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for RMA Settlement : ' || l_failed_claims);
3329: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for RMA Settlement : ' || l_reopened_claims);
3330:
3331: EXCEPTION
3324: IF OZF_DEBUG_HIGH_ON THEN
3325: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
3326: END IF;
3327: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for RMA Settlement : ' || l_successful_claims);
3328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for RMA Settlement : ' || l_failed_claims);
3329: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for RMA Settlement : ' || l_reopened_claims);
3330:
3331: EXCEPTION
3332: WHEN OTHERS THEN
3325: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
3326: END IF;
3327: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for RMA Settlement : ' || l_successful_claims);
3328: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for RMA Settlement : ' || l_failed_claims);
3329: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for RMA Settlement : ' || l_reopened_claims);
3330:
3331: EXCEPTION
3332: WHEN OTHERS THEN
3333: ROLLBACK TO Get_RMA_Settlement;
3339: p_encoded => FND_API.g_false,
3340: p_count => x_msg_count,
3341: p_data => x_msg_data
3342: );
3343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement Failed.');
3344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
3345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3346: End Get_RMA_Settlement;
3347:
3340: p_count => x_msg_count,
3341: p_data => x_msg_data
3342: );
3343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement Failed.');
3344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
3345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3346: End Get_RMA_Settlement;
3347:
3348:
3341: p_data => x_msg_data
3342: );
3343: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement Failed.');
3344: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
3345: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3346: End Get_RMA_Settlement;
3347:
3348:
3349: ---------------------------------------------------------------------
3478: l_claim_csr_stmt := FND_DSQL.get_text(FALSE);
3479:
3480: l_stmt_debug := fnd_dsql.get_text(TRUE);
3481:
3482: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QUERY CLAIM SQL :: ' || l_stmt_debug);
3483:
3484: DBMS_SQL.parse(l_claim_csr_id, l_claim_csr_stmt, DBMS_SQL.native);
3485: DBMS_SQL.define_column(l_claim_csr_id, 1, l_claim_rec.claim_id);
3486: DBMS_SQL.define_column_char(l_claim_csr_id, 2, l_claim_rec.claim_number, 30);
3563: END IF;
3564:
3565: IF l_settlement_doc_tbl.count > 0 THEN
3566:
3567: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- '||l_claim_id_ver(i).claim_number||' --------------');
3568: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_id_ver(i).claim_number);
3569:
3570: -- ----------------
3571: -- 1. Query Claim
3564:
3565: IF l_settlement_doc_tbl.count > 0 THEN
3566:
3567: FND_FILE.PUT_LINE(FND_FILE.LOG, '-------------- '||l_claim_id_ver(i).claim_number||' --------------');
3568: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_id_ver(i).claim_number);
3569:
3570: -- ----------------
3571: -- 1. Query Claim
3572: -- ----------------
3623: l_cm_dm_total_amount := l_cm_dm_amount + l_cm_dm_tax_amount + l_cm_dm_freight_amount;
3624:
3625: l_difference_amount := l_claim_rec.amount_settled + l_cm_dm_total_amount;
3626:
3627: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||l_claim_rec.amount_settled);
3628: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||l_claim_rec.amount_remaining);
3629:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3624:
3625: l_difference_amount := l_claim_rec.amount_settled + l_cm_dm_total_amount;
3626:
3627: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||l_claim_rec.amount_settled);
3628: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||l_claim_rec.amount_remaining);
3629:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3626:
3627: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||l_claim_rec.amount_settled);
3628: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||l_claim_rec.amount_remaining);
3629:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3633: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo freight amount = '||l_cm_dm_freight_amount);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3627: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount settled = '||l_claim_rec.amount_settled);
3628: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||l_claim_rec.amount_remaining);
3629:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3633: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo freight amount = '||l_cm_dm_freight_amount);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3628: FND_FILE.PUT_LINE(FND_FILE.LOG, 'claim amount remaining = '||l_claim_rec.amount_remaining);
3629:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3633: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo freight amount = '||l_cm_dm_freight_amount);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3636:
3629:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3633: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo freight amount = '||l_cm_dm_freight_amount);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3636:
3637:
3630: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo total amount = '||l_cm_dm_total_amount);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3633: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo freight amount = '||l_cm_dm_freight_amount);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3636:
3637:
3638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || l_claim_rec.amount_settled);
3631: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo line amount = '||l_cm_dm_amount);
3632: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo tax amount = '||l_cm_dm_tax_amount);
3633: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Credit/Debit Memo freight amount = '||l_cm_dm_freight_amount);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3636:
3637:
3638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || l_claim_rec.amount_settled);
3639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || l_claim_rec.amount_remaining);
3634: FND_FILE.PUT_LINE(FND_FILE.LOG, ' ----');
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3636:
3637:
3638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || l_claim_rec.amount_settled);
3639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || l_claim_rec.amount_remaining);
3640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Credit/Debit Amount : ' || l_cm_dm_total_amount);
3641:
3642: -- Bug3805485: Tax Amount Calculation
3635: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference Amount = '||l_difference_amount);
3636:
3637:
3638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || l_claim_rec.amount_settled);
3639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || l_claim_rec.amount_remaining);
3640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Credit/Debit Amount : ' || l_cm_dm_total_amount);
3641:
3642: -- Bug3805485: Tax Amount Calculation
3643: IF ABS(l_difference_amount) > 0 AND Is_Tax_Inclusive(l_deduction_type,l_claim_rec.org_id) THEN
3636:
3637:
3638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Settled : ' || l_claim_rec.amount_settled);
3639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Amount Remaining : ' || l_claim_rec.amount_remaining);
3640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Credit/Debit Amount : ' || l_cm_dm_total_amount);
3641:
3642: -- Bug3805485: Tax Amount Calculation
3643: IF ABS(l_difference_amount) > 0 AND Is_Tax_Inclusive(l_deduction_type,l_claim_rec.org_id) THEN
3644:
3661: l_upd_claim_rec.amount_remaining := l_upd_claim_rec.amount - l_upd_claim_rec.amount_adjusted -
3662: l_upd_claim_rec.amount_settled - l_upd_claim_rec.tax_amount;
3663:
3664:
3665: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Tax Amount = '||l_claim_rec.tax_amount);
3666: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Remaining Amount = '||l_claim_rec.amount_remaining);
3667:
3668: Update_Claim_Tax_Amount(
3669: p_claim_rec => l_claim_rec
3662: l_upd_claim_rec.amount_settled - l_upd_claim_rec.tax_amount;
3663:
3664:
3665: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Tax Amount = '||l_claim_rec.tax_amount);
3666: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Remaining Amount = '||l_claim_rec.amount_remaining);
3667:
3668: Update_Claim_Tax_Amount(
3669: p_claim_rec => l_claim_rec
3670: ,x_return_status => l_return_status
3720: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723:
3724: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
3725: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
3726:
3727: END IF;
3728:
3721: RAISE FND_API.g_exc_unexpected_error;
3722: END IF;
3723:
3724: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
3725: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
3726:
3727: END IF;
3728:
3729: -- re-query claim here becasue amount_remaining is changed
3742: -- Bug4087329: Settlement Amount is recalculated.
3743: -- Bug4365819: Calculate settlement amount before doing a write off
3744: l_settlement_doc_tbl(1).settlement_amount :=( NVL(l_claim_rec.amount_settled, 0) +
3745: NVL(l_claim_rec.tax_amount, 0)) * -1 ;
3746: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Recalculated Settlement Amount = '||l_settlement_doc_tbl(1).settlement_amount);
3747:
3748:
3749: -- -----------------------------------------------
3750: -- Bug4087329: Write Off
3766: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
3767: RAISE FND_API.g_exc_unexpected_error;
3768: END IF;
3769:
3770: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Write Off ');
3771:
3772: -- re-query claim here becasue amount_remaining is changed
3773: OZF_AR_PAYMENT_PVT.Query_Claim(
3774: p_claim_id => l_claim_id_ver(i).claim_id
3903: END IF; -- end if l_upd_claim_status
3904: END IF; -- end if l_claim_id_ver(i).claim_class IN ('DEDUCTION', 'OVERPAYMENT')
3905:
3906:
3907: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
3908:
3909: l_successful_claims := l_successful_claims + 1;
3910:
3911: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3907: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
3908:
3909: l_successful_claims := l_successful_claims + 1;
3910:
3911: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3912: END IF; -- end if l_settlement_doc_tbl.count > 0
3913: END IF; -- end if l_claim_id_ver.claim_id is not null and g_miss_num
3914:
3915: EXCEPTION
3914:
3915: EXCEPTION
3916: WHEN FND_API.G_EXC_ERROR THEN
3917: ROLLBACK TO AR_SETTLEMENT;
3918: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3916: WHEN FND_API.G_EXC_ERROR THEN
3917: ROLLBACK TO AR_SETTLEMENT;
3918: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3918: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3925:
3926: l_failed_claims := l_failed_claims + 1;
3919: OZF_UTILITY_PVT.write_conc_log;
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3925:
3926: l_failed_claims := l_failed_claims + 1;
3927:
3920: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3921:
3922: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3923: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3924: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3925:
3926: l_failed_claims := l_failed_claims + 1;
3927:
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3926: l_failed_claims := l_failed_claims + 1;
3927:
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: ROLLBACK TO AR_SETTLEMENT;
3930: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3928: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3929: ROLLBACK TO AR_SETTLEMENT;
3930: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3930: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3937:
3938: l_failed_claims := l_failed_claims + 1;
3931: OZF_UTILITY_PVT.write_conc_log;
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3937:
3938: l_failed_claims := l_failed_claims + 1;
3939:
3932: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3933:
3934: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3935: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
3936: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3937:
3938: l_failed_claims := l_failed_claims + 1;
3939:
3940: WHEN LOCK_EXCEPTION THEN
3937:
3938: l_failed_claims := l_failed_claims + 1;
3939:
3940: WHEN LOCK_EXCEPTION THEN
3941: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' cannot be proceed again.');
3942: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3943:
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3945: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : Claim is locked and cannot be processed.');
3938: l_failed_claims := l_failed_claims + 1;
3939:
3940: WHEN LOCK_EXCEPTION THEN
3941: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' cannot be proceed again.');
3942: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3943:
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3945: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : Claim is locked and cannot be processed.');
3946: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3940: WHEN LOCK_EXCEPTION THEN
3941: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' cannot be proceed again.');
3942: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3943:
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3945: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : Claim is locked and cannot be processed.');
3946: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3947:
3948: l_failed_claims := l_failed_claims + 1;
3941: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' cannot be proceed again.');
3942: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3943:
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3945: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : Claim is locked and cannot be processed.');
3946: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3947:
3948: l_failed_claims := l_failed_claims + 1;
3949:
3942: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3943:
3944: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3945: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : Claim is locked and cannot be processed.');
3946: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3947:
3948: l_failed_claims := l_failed_claims + 1;
3949:
3950: WHEN OTHERS THEN
3948: l_failed_claims := l_failed_claims + 1;
3949:
3950: WHEN OTHERS THEN
3951: ROLLBACK TO AR_SETTLEMENT;
3952: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3953: OZF_UTILITY_PVT.write_conc_log;
3954: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3955:
3956: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3950: WHEN OTHERS THEN
3951: ROLLBACK TO AR_SETTLEMENT;
3952: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3953: OZF_UTILITY_PVT.write_conc_log;
3954: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3955:
3956: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3952: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
3953: OZF_UTILITY_PVT.write_conc_log;
3954: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3955:
3956: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3959:
3960: l_failed_claims := l_failed_claims + 1;
3953: OZF_UTILITY_PVT.write_conc_log;
3954: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3955:
3956: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3959:
3960: l_failed_claims := l_failed_claims + 1;
3961: END;
3954: FND_FILE.PUT_LINE(FND_FILE.LOG, '---------------- '||l_claim_id_ver(i).claim_number||' ----------------');
3955:
3956: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
3957: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
3958: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3959:
3960: l_failed_claims := l_failed_claims + 1;
3961: END;
3962:
3971: IF OZF_DEBUG_HIGH_ON THEN
3972: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
3973: END IF;
3974:
3975: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for AR Settlement : ' || l_successful_claims);
3976: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for AR Settlement : ' || l_failed_claims);
3977:
3978: EXCEPTION
3979: WHEN OTHERS THEN
3972: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
3973: END IF;
3974:
3975: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for AR Settlement : ' || l_successful_claims);
3976: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for AR Settlement : ' || l_failed_claims);
3977:
3978: EXCEPTION
3979: WHEN OTHERS THEN
3980: ROLLBACK TO Get_Receivable_Settlement;
3986: p_encoded => FND_API.g_false,
3987: p_count => x_msg_count,
3988: p_data => x_msg_data
3989: );
3990: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement Failed.');
3991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
3992: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3993: End Get_Receivable_Settlement;
3994:
3987: p_count => x_msg_count,
3988: p_data => x_msg_data
3989: );
3990: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement Failed.');
3991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
3992: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3993: End Get_Receivable_Settlement;
3994:
3995:
3988: p_data => x_msg_data
3989: );
3990: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement Failed.');
3991: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
3992: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
3993: End Get_Receivable_Settlement;
3994:
3995:
3996: ---------------------------------------------------------------------
4142: l_claim_csr_stmt := FND_DSQL.get_text(FALSE);
4143:
4144: l_stmt_debug := fnd_dsql.get_text(TRUE);
4145:
4146: FND_FILE.PUT_LINE(FND_FILE.LOG, 'QUERY CLAIM SQL :: ' || l_stmt_debug);
4147:
4148: DBMS_SQL.parse(l_claim_csr_id, l_claim_csr_stmt, DBMS_SQL.native);
4149: DBMS_SQL.define_column(l_claim_csr_id, 1, l_claim_rec.claim_id);
4150: DBMS_SQL.define_column_char(l_claim_csr_id, 2, l_claim_rec.claim_number, 30);
4193: BEGIN
4194: SAVEPOINT AP_SETTLEMENT;
4195: FND_MSG_PUB.initialize;
4196:
4197: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_id_ver(i).claim_number);
4199:
4200: -- set to 0 for next claim in loop
4201: l_total_pay_amount := 0;
4194: SAVEPOINT AP_SETTLEMENT;
4195: FND_MSG_PUB.initialize;
4196:
4197: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claim Number : ' || l_claim_id_ver(i).claim_number);
4199:
4200: -- set to 0 for next claim in loop
4201: l_total_pay_amount := 0;
4202: l_pay_clear_flag := NULL;
4208: CLOSE csr_inv_status;
4209:
4210: IF l_cancelled_date IS NOT NULL THEN
4211:
4212: FND_FILE.PUT_LINE(FND_FILE.LOG, ' AP Document is Cancelled ' );
4213:
4214: -- R12: Handle Document Cancellation
4215: Process_Cancelled_Setl_Doc(
4216: p_claim_id => l_claim_id_ver(i).claim_id
4223: RAISE FND_API.g_exc_unexpected_error;
4224: END IF;
4225:
4226: IF l_claim_id_ver(i).payment_method IN ( 'CHECK','EFT','WIRE','AP_DEFAULT') THEN
4227: FND_FILE.PUT_LINE(FND_FILE.LOG, ' Deleting settlement docs ' );
4228: DELETE FROM ozf_settlement_docs_all
4229: WHERE claim_id = l_claim_id_ver(i).claim_id;
4230: END IF;
4231: l_reopened_claims := l_reopened_claims + 1;
4256: END IF;
4257:
4258:
4259: l_difference_amount := l_gross_amt - l_claim_rec.amount_settled ;
4260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Settled = '||l_claim_rec.amount_settled);
4261: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Remaining = '||l_claim_rec.amount_remaining);
4262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Document Gross amount = '||l_gross_amt );
4263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference amount = '||l_difference_amount);
4264:
4257:
4258:
4259: l_difference_amount := l_gross_amt - l_claim_rec.amount_settled ;
4260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Settled = '||l_claim_rec.amount_settled);
4261: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Remaining = '||l_claim_rec.amount_remaining);
4262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Document Gross amount = '||l_gross_amt );
4263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference amount = '||l_difference_amount);
4264:
4265: l_settlement_amount := l_claim_rec.amount_settled;
4258:
4259: l_difference_amount := l_gross_amt - l_claim_rec.amount_settled ;
4260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Settled = '||l_claim_rec.amount_settled);
4261: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Remaining = '||l_claim_rec.amount_remaining);
4262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Document Gross amount = '||l_gross_amt );
4263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference amount = '||l_difference_amount);
4264:
4265: l_settlement_amount := l_claim_rec.amount_settled;
4266: l_tax_included_flag := FALSE;
4259: l_difference_amount := l_gross_amt - l_claim_rec.amount_settled ;
4260: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Settled = '||l_claim_rec.amount_settled);
4261: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Claim Amount Remaining = '||l_claim_rec.amount_remaining);
4262: FND_FILE.PUT_LINE(FND_FILE.LOG, 'AP Document Gross amount = '||l_gross_amt );
4263: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Difference amount = '||l_difference_amount);
4264:
4265: l_settlement_amount := l_claim_rec.amount_settled;
4266: l_tax_included_flag := FALSE;
4267: IF ABS(l_difference_amount) <> 0 AND Is_Tax_Inclusive(l_claim_rec.claim_class,l_claim_rec.org_id)
4339: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4340: RAISE FND_API.g_exc_unexpected_error;
4341: END IF;
4342:
4343: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Update settlement doc :: settlement_doc_id='||l_settlement_doc_tbl(j).settlement_id);
4344: END IF;
4345: ELSE
4346: Create_Settlement_Doc(
4347: p_api_version_number => 1.0,
4359: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4360: RAISE FND_API.g_exc_unexpected_error;
4361: END IF;
4362:
4363: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Create settlement doc :: settlement_doc_id = '||l_settlement_doc_id);
4364:
4365: END IF; -- l_settle_doc_id IS NOT NULL
4366:
4367: END LOOP;
4365: END IF; -- l_settle_doc_id IS NOT NULL
4366:
4367: END LOOP;
4368:
4369: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice amount ='||l_invoice_amount);
4370: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Total payment ='||l_total_pay_amount);
4371: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Invoice Amount : ' || l_invoice_amount);
4372: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Total Payment : ' || l_total_pay_amount);
4373:
4366:
4367: END LOOP;
4368:
4369: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice amount ='||l_invoice_amount);
4370: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Total payment ='||l_total_pay_amount);
4371: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Invoice Amount : ' || l_invoice_amount);
4372: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Total Payment : ' || l_total_pay_amount);
4373:
4374: ------------------------------------------------
4367: END LOOP;
4368:
4369: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice amount ='||l_invoice_amount);
4370: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Total payment ='||l_total_pay_amount);
4371: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Invoice Amount : ' || l_invoice_amount);
4372: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Total Payment : ' || l_total_pay_amount);
4373:
4374: ------------------------------------------------
4375: -- R12: Consider Tax and Split ------
4368:
4369: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Invoice amount ='||l_invoice_amount);
4370: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Total payment ='||l_total_pay_amount);
4371: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Invoice Amount : ' || l_invoice_amount);
4372: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Total Payment : ' || l_total_pay_amount);
4373:
4374: ------------------------------------------------
4375: -- R12: Consider Tax and Split ------
4376: ------------------------------------------------
4387: END IF;
4388: l_claim_rec.amount_remaining := l_claim_rec.amount - l_claim_rec.amount_settled - l_claim_rec.amount_adjusted -
4389: l_claim_rec.tax_amount;
4390:
4391: fnd_file.put_line(fnd_file.log, 'Tax Amount '||l_claim_rec.tax_amount);
4392: fnd_file.put_line(fnd_file.log, 'Amount Remaining '||l_claim_rec.amount_remaining);
4393: Update_Claim_Tax_Amount(
4394: p_claim_rec => l_claim_rec
4395: ,x_return_status => l_return_status
4388: l_claim_rec.amount_remaining := l_claim_rec.amount - l_claim_rec.amount_settled - l_claim_rec.amount_adjusted -
4389: l_claim_rec.tax_amount;
4390:
4391: fnd_file.put_line(fnd_file.log, 'Tax Amount '||l_claim_rec.tax_amount);
4392: fnd_file.put_line(fnd_file.log, 'Amount Remaining '||l_claim_rec.amount_remaining);
4393: Update_Claim_Tax_Amount(
4394: p_claim_rec => l_claim_rec
4395: ,x_return_status => l_return_status
4396: ,x_msg_data => x_msg_data
4428: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4429: RAISE FND_API.g_exc_unexpected_error;
4430: END IF;
4431:
4432: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
4433: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
4434: END IF;
4435:
4436: OZF_AR_PAYMENT_PVT.Query_Claim(
4429: RAISE FND_API.g_exc_unexpected_error;
4430: END IF;
4431:
4432: fnd_file.put_line(fnd_file.log, 'Amount Remaning '||l_claim_rec.amount_remaining);
4433: fnd_file.put_line(fnd_file.log, ' Amount Remaining --> Split');
4434: END IF;
4435:
4436: OZF_AR_PAYMENT_PVT.Query_Claim(
4437: p_claim_id => l_claim_id_ver(i).claim_id
4459: p_payment_status => 'PAID'
4460: );
4461: IF l_return_status = FND_API.g_ret_sts_error THEN
4462: RAISE FND_API.g_exc_error;
4463: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4466: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4467: END IF;
4462: RAISE FND_API.g_exc_error;
4463: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4466: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4467: END IF;
4468: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
4469:
4470: ELSE
4464: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4465: RAISE FND_API.g_exc_unexpected_error;
4466: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4467: END IF;
4468: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
4469:
4470: ELSE
4471: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> is not CLOSED because amount settled is not fully paid.');
4472: END IF; -- Close Claim
4467: END IF;
4468: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Success.');
4469:
4470: ELSE
4471: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> is not CLOSED because amount settled is not fully paid.');
4472: END IF; -- Close Claim
4473:
4474:
4475: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4471: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> is not CLOSED because amount settled is not fully paid.');
4472: END IF; -- Close Claim
4473:
4474:
4475: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4476: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
4477: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4478: l_successful_claims := l_successful_claims + 1;
4479:
4472: END IF; -- Close Claim
4473:
4474:
4475: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4476: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
4477: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4478: l_successful_claims := l_successful_claims + 1;
4479:
4480: END IF; -- l_settlement_doc_tbl.count > 0
4473:
4474:
4475: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4476: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Success. ');
4477: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4478: l_successful_claims := l_successful_claims + 1;
4479:
4480: END IF; -- l_settlement_doc_tbl.count > 0
4481: END IF; -- Camcelled;
4482:
4483: EXCEPTION
4484: WHEN FND_API.G_EXC_ERROR THEN
4485: ROLLBACK TO AP_SETTLEMENT;
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4484: WHEN FND_API.G_EXC_ERROR THEN
4485: ROLLBACK TO AP_SETTLEMENT;
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4485: ROLLBACK TO AP_SETTLEMENT;
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4493:
4486: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4493:
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4487: OZF_UTILITY_PVT.write_conc_log;
4488: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4489: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4490: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4492: l_failed_claims := l_failed_claims + 1;
4493:
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4495: ROLLBACK TO AP_SETTLEMENT;
4492: l_failed_claims := l_failed_claims + 1;
4493:
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4495: ROLLBACK TO AP_SETTLEMENT;
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4494: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4495: ROLLBACK TO AP_SETTLEMENT;
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4502: l_failed_claims := l_failed_claims + 1;
4495: ROLLBACK TO AP_SETTLEMENT;
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4502: l_failed_claims := l_failed_claims + 1;
4503:
4496: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4502: l_failed_claims := l_failed_claims + 1;
4503:
4504: WHEN OTHERS THEN
4497: OZF_UTILITY_PVT.write_conc_log;
4498: FND_FILE.PUT_LINE(FND_FILE.LOG, '/*-------------- '||l_claim_id_ver(i).claim_number||' --------------*/');
4499: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4500: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4501: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4502: l_failed_claims := l_failed_claims + 1;
4503:
4504: WHEN OTHERS THEN
4505: ROLLBACK TO AP_SETTLEMENT;
4502: l_failed_claims := l_failed_claims + 1;
4503:
4504: WHEN OTHERS THEN
4505: ROLLBACK TO AP_SETTLEMENT;
4506: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4507: OZF_UTILITY_PVT.write_conc_log;
4508: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4509: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
4510: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4504: WHEN OTHERS THEN
4505: ROLLBACK TO AP_SETTLEMENT;
4506: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4507: OZF_UTILITY_PVT.write_conc_log;
4508: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4509: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
4510: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4511: l_failed_claims := l_failed_claims + 1;
4512: END;
4505: ROLLBACK TO AP_SETTLEMENT;
4506: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4507: OZF_UTILITY_PVT.write_conc_log;
4508: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4509: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
4510: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4511: l_failed_claims := l_failed_claims + 1;
4512: END;
4513:
4506: FND_FILE.PUT_LINE(FND_FILE.LOG, l_claim_id_ver(i).claim_number||' --> Failed.');
4507: OZF_UTILITY_PVT.write_conc_log;
4508: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Status : Failed.');
4509: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Error : ' || SQLCODE || ' : ' || SQLERRM);
4510: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4511: l_failed_claims := l_failed_claims + 1;
4512: END;
4513:
4514: END LOOP;
4526:
4527: IF OZF_DEBUG_HIGH_ON THEN
4528: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
4529: END IF;
4530: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for AP Settlement : ' || l_successful_claims);
4531: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for AP Settlement : ' || l_failed_claims);
4532: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for AP Settlement : ' || l_reopened_claims);
4533:
4534: EXCEPTION
4527: IF OZF_DEBUG_HIGH_ON THEN
4528: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
4529: END IF;
4530: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for AP Settlement : ' || l_successful_claims);
4531: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for AP Settlement : ' || l_failed_claims);
4532: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for AP Settlement : ' || l_reopened_claims);
4533:
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4528: OZF_UTILITY_PVT.debug_message(l_full_name ||': end');
4529: END IF;
4530: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims successfully fetched for AP Settlement : ' || l_successful_claims);
4531: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims failed to be fetched for AP Settlement : ' || l_failed_claims);
4532: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Claims reopened for AP Settlement : ' || l_reopened_claims);
4533:
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4534: EXCEPTION
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4535: WHEN FND_API.G_EXC_ERROR THEN
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4543: p_count => x_msg_count,
4536: ROLLBACK TO Get_Payable_Settlement;
4537: x_return_status := FND_API.g_ret_sts_error;
4538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4539: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4540: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4541: FND_MSG_PUB.Count_And_Get(
4542: p_encoded => FND_API.g_false,
4543: p_count => x_msg_count,
4544: p_data => x_msg_data
4546:
4547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4547: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4555: p_count => x_msg_count,
4548: ROLLBACK TO Get_Payable_Settlement;
4549: x_return_status := FND_API.g_ret_sts_unexp_error;
4550: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || FND_MSG_PUB.get(FND_MSG_PUB.Count_Msg, FND_API.g_false));
4552: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4553: FND_MSG_PUB.Count_And_Get(
4554: p_encoded => FND_API.g_false,
4555: p_count => x_msg_count,
4556: p_data => x_msg_data
4561: x_return_status := FND_API.g_ret_sts_unexp_error;
4562: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4568: FND_MSG_PUB.Count_And_Get(
4569: p_encoded => FND_API.g_false,
4562: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
4563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4568: FND_MSG_PUB.Count_And_Get(
4569: p_encoded => FND_API.g_false,
4570: p_count => x_msg_count,
4563: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
4564: END IF;
4565: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement Failed.');
4566: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error : ' || SQLCODE || ' : ' || SQLERRM);
4567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '');
4568: FND_MSG_PUB.Count_And_Get(
4569: p_encoded => FND_API.g_false,
4570: p_count => x_msg_count,
4571: p_data => x_msg_data
4665: IF (l_org_id.COUNT > 0) THEN
4666: FOR m IN l_org_id.FIRST..l_org_id.LAST LOOP
4667: MO_GLOBAL.set_policy_context('S',l_org_id(m));
4668: -- Write OU info to OUT file
4669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
4671: -- Write OU info to LOG file
4672: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4673: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
4666: FOR m IN l_org_id.FIRST..l_org_id.LAST LOOP
4667: MO_GLOBAL.set_policy_context('S',l_org_id(m));
4668: -- Write OU info to OUT file
4669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
4671: -- Write OU info to LOG file
4672: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4673: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
4674:
4668: -- Write OU info to OUT file
4669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
4671: -- Write OU info to LOG file
4672: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4673: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
4674:
4675: IF p_claim_class IS NOT NULL THEN
4676: OPEN csr_claim_class_name(p_claim_class);
4669: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4670: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '-----------------------------------------------------');
4671: -- Write OU info to LOG file
4672: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Operating Unit: ' || MO_GLOBAL.get_ou_name(l_org_id(m)));
4673: FND_FILE.PUT_LINE(FND_FILE.LOG, '-----------------------------------------------------');
4674:
4675: IF p_claim_class IS NOT NULL THEN
4676: OPEN csr_claim_class_name(p_claim_class);
4677: FETCH csr_claim_class_name INTO l_claim_class_name;
4697: FETCH csr_reason_name INTO l_reason_name;
4698: CLOSE csr_reason_name;
4699: END IF;
4700:
4701: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------ Claims Settlement Fetcher Execution Report -------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4698: CLOSE csr_reason_name;
4699: END IF;
4700:
4701: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------ Claims Settlement Fetcher Execution Report -------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4699: END IF;
4700:
4701: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------ Claims Settlement Fetcher Execution Report -------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4700:
4701: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------ Claims Settlement Fetcher Execution Report -------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4701: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------ Claims Settlement Fetcher Execution Report -------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4702: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------ Claims Settlement Fetcher Execution Report -------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4703: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement : ');
4704: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement : ');
4712:
4705: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Class', 40, ' ') || ': ' || l_claim_class_name);
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement : ');
4712:
4713: IF p_payment_method IS NULL OR p_payment_method IN ( 'CREDIT_MEMO', 'DEBIT_MEMO') THEN
4706: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Settlement Method', 40, ' ') || ': ' || l_settlement_method_name);
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement : ');
4712:
4713: IF p_payment_method IS NULL OR p_payment_method IN ( 'CREDIT_MEMO', 'DEBIT_MEMO') THEN
4714: Get_Receivable_Settlement(
4707: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Customer', 40, ' ') || ': ' || l_customer_name);
4708: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Claim Type', 40, ' ') || ': ' || l_claim_type_name);
4709: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad('Reason Code', 40, ' ') || ': ' || l_reason_name);
4710: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4711: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Receivable Settlement : ');
4712:
4713: IF p_payment_method IS NULL OR p_payment_method IN ( 'CREDIT_MEMO', 'DEBIT_MEMO') THEN
4714: Get_Receivable_Settlement(
4715: p_api_version_number => 1.0,
4736: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4737: RAISE FND_API.g_exc_unexpected_error;
4738: END IF;
4739:
4740: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement : ');
4743: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4744: --OZF_UTILITY_PVT.debug_message('== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
4737: RAISE FND_API.g_exc_unexpected_error;
4738: END IF;
4739:
4740: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement : ');
4743: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4744: --OZF_UTILITY_PVT.debug_message('== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
4745: END IF;
4738: END IF;
4739:
4740: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement : ');
4743: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4744: --OZF_UTILITY_PVT.debug_message('== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
4745: END IF;
4746:
4739:
4740: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AR settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4742: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for Account Payable Settlement : ');
4743: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4744: --OZF_UTILITY_PVT.debug_message('== START: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
4745: END IF;
4746:
4747: IF p_payment_method IS NULL OR p_payment_method IN ( 'CHECK','EFT','WIRE','AP_DEFAULT','AP_DEBIT') THEN
4770: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4771: RAISE FND_API.g_exc_unexpected_error;
4772: END IF;
4773:
4774: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement : ');
4777: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4778: END IF;
4771: RAISE FND_API.g_exc_unexpected_error;
4772: END IF;
4773:
4774: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement : ');
4777: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4778: END IF;
4779:
4772: END IF;
4773:
4774: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement : ');
4777: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4778: END IF;
4779:
4780: IF p_payment_method IS NULL OR p_payment_method = 'RMA' THEN
4773:
4774: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching AP settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4775: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4776: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Fetching for RMA Settlement : ');
4777: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== START: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =====');
4778: END IF;
4779:
4780: IF p_payment_method IS NULL OR p_payment_method = 'RMA' THEN
4781: Get_RMA_Settlement(
4804: RAISE FND_API.g_exc_unexpected_error;
4805: END IF;
4806: /*
4807: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4808: FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_RETURN_STATUS ');
4809: END IF;
4810: */
4811:
4812: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4808: FND_FILE.PUT_LINE(FND_FILE.LOG,'OZF_RETURN_STATUS ');
4809: END IF;
4810: */
4811:
4812: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4814: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
4815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4816: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4809: END IF;
4810: */
4811:
4812: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4814: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
4815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4816: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4817: END IF;
4810: */
4811:
4812: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4814: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
4815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4816: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4817: END IF;
4818:
4811:
4812: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4814: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
4815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4816: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4817: END IF;
4818:
4819: --OZF_UTILITY_PVT.write_conc_log;
4812: FND_FILE.PUT_LINE(FND_FILE.LOG, '===== END: fetching RMA settlement -- time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS')||' =======');
4813: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4814: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
4815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4816: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4817: END IF;
4818:
4819: --OZF_UTILITY_PVT.write_conc_log;
4820: END LOOP;
4825: ROLLBACK TO Populate_Settlement_Data;
4826: OZF_UTILITY_PVT.write_conc_log;
4827: ERRBUF := l_msg_data;
4828: RETCODE := 2;
4829: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4830: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4832:
4833: WHEN FND_API.g_exc_unexpected_error THEN
4826: OZF_UTILITY_PVT.write_conc_log;
4827: ERRBUF := l_msg_data;
4828: RETCODE := 2;
4829: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4830: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4832:
4833: WHEN FND_API.g_exc_unexpected_error THEN
4834: ROLLBACK TO Populate_Settlement_Data;
4827: ERRBUF := l_msg_data;
4828: RETCODE := 2;
4829: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4830: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4831: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4832:
4833: WHEN FND_API.g_exc_unexpected_error THEN
4834: ROLLBACK TO Populate_Settlement_Data;
4835: OZF_UTILITY_PVT.write_conc_log;
4834: ROLLBACK TO Populate_Settlement_Data;
4835: OZF_UTILITY_PVT.write_conc_log;
4836: ERRBUF := l_msg_data;
4837: RETCODE := 2;
4838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4839: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4840: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4841:
4842: WHEN OTHERS THEN
4835: OZF_UTILITY_PVT.write_conc_log;
4836: ERRBUF := l_msg_data;
4837: RETCODE := 2;
4838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4839: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4840: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4841:
4842: WHEN OTHERS THEN
4843: ROLLBACK TO Populate_Settlement_Data;
4836: ERRBUF := l_msg_data;
4837: RETCODE := 2;
4838: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || l_msg_data ||')');
4839: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4840: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4841:
4842: WHEN OTHERS THEN
4843: ROLLBACK TO Populate_Settlement_Data;
4844: OZF_UTILITY_PVT.write_conc_log;
4843: ROLLBACK TO Populate_Settlement_Data;
4844: OZF_UTILITY_PVT.write_conc_log;
4845: ERRBUF := substr(sqlerrm, 1, 80);
4846: RETCODE := 2;
4847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' ||SQLCODE||SQLERRM || ')');
4848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4850:
4851: End Populate_Settlement_Data;
4844: OZF_UTILITY_PVT.write_conc_log;
4845: ERRBUF := substr(sqlerrm, 1, 80);
4846: RETCODE := 2;
4847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' ||SQLCODE||SQLERRM || ')');
4848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4850:
4851: End Populate_Settlement_Data;
4852:
4845: ERRBUF := substr(sqlerrm, 1, 80);
4846: RETCODE := 2;
4847: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' ||SQLCODE||SQLERRM || ')');
4848: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
4849: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*---------------------------------------------------------------------------------------------*');
4850:
4851: End Populate_Settlement_Data;
4852:
4853: