4889: END;
4890: END IF;
4891: l_return_status := x_return_status;
4892: -- End of wraper code generated automatically by Debug code generator for Rebook_manual_invoice
4893: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
4894: RAISE Fnd_Api.G_EXC_ERROR;
4895: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
4896: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4897: END IF;
4890: END IF;
4891: l_return_status := x_return_status;
4892: -- End of wraper code generated automatically by Debug code generator for Rebook_manual_invoice
4893: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
4894: RAISE Fnd_Api.G_EXC_ERROR;
4895: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
4896: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4897: END IF;
4898: END IF ;
4891: l_return_status := x_return_status;
4892: -- End of wraper code generated automatically by Debug code generator for Rebook_manual_invoice
4893: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
4894: RAISE Fnd_Api.G_EXC_ERROR;
4895: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
4896: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4897: END IF;
4898: END IF ;
4899: ------------------------------------------
4892: -- End of wraper code generated automatically by Debug code generator for Rebook_manual_invoice
4893: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
4894: RAISE Fnd_Api.G_EXC_ERROR;
4895: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
4896: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
4897: END IF;
4898: END IF ;
4899: ------------------------------------------
4900: --- PAY or clawback from vendor
5000: p_refund_amount =>l_cust_refund_amount,
5001: p_src_trx_id => p_src_trx_id
5002: );
5003:
5004: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5005: RAISE Fnd_Api.G_EXC_ERROR;
5006: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5007: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5008: END IF;
5001: p_src_trx_id => p_src_trx_id
5002: );
5003:
5004: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5005: RAISE Fnd_Api.G_EXC_ERROR;
5006: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5007: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5008: END IF;
5009: ------------------------------------------
5002: );
5003:
5004: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5005: RAISE Fnd_Api.G_EXC_ERROR;
5006: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5007: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5008: END IF;
5009: ------------------------------------------
5010: --- Expense Adjustment
5003:
5004: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5005: RAISE Fnd_Api.G_EXC_ERROR;
5006: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5007: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5008: END IF;
5009: ------------------------------------------
5010: --- Expense Adjustment
5011: ------------------------------------------
5017: p_ipyv_rec =>l_ipyv_rec,
5018: lp_vendor_refund_amount =>l_vendor_refund_amount,
5019: p_src_trx_id => p_src_trx_id
5020: );
5021: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5022: RAISE Fnd_Api.G_EXC_ERROR;
5023: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5024: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5025: END IF;
5018: lp_vendor_refund_amount =>l_vendor_refund_amount,
5019: p_src_trx_id => p_src_trx_id
5020: );
5021: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5022: RAISE Fnd_Api.G_EXC_ERROR;
5023: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5024: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5025: END IF;
5026: l_ipyv_rec.iss_code := 'CANCELED';
5019: p_src_trx_id => p_src_trx_id
5020: );
5021: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5022: RAISE Fnd_Api.G_EXC_ERROR;
5023: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5024: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5025: END IF;
5026: l_ipyv_rec.iss_code := 'CANCELED';
5027: -- Create entry for adjustment
5020: );
5021: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
5022: RAISE Fnd_Api.G_EXC_ERROR;
5023: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
5024: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
5025: END IF;
5026: l_ipyv_rec.iss_code := 'CANCELED';
5027: -- Create entry for adjustment
5028: --Update Policy
7279: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_MERGE');
7280: --
7281: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_MERGE()+');
7282:
7283: x_return_status := FND_API.G_RET_STS_SUCCESS;
7284:
7285:
7286: --
7287: select merge_reason_code
7337: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
7338: 'OKL_INS_POLICIES for = '|| p_from_id));
7339: --
7340: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
7341: x_return_status := FND_API.G_RET_STS_ERROR;
7342: end;
7343: end if;
7344: END OKL_INSURANCE_PARTY_MERGE ;
7345:
7366: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_SITE_MERGE');
7367: --
7368: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_PARTY_SITE_MERGE()+');
7369:
7370: x_return_status := FND_API.G_RET_STS_SUCCESS;
7371:
7372:
7373: --
7374: select merge_reason_code
7424: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
7425: 'OKL_INS_POLICIES for = '|| p_from_id));
7426: --
7427: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
7428: x_return_status := FND_API.G_RET_STS_ERROR;
7429: end;
7430: end if;
7431: END OKL_INSURANCE_PARTY_SITE_MERGE ;
7432:
7452: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_MERGE');
7453: --
7454: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_MERGE()+');
7455:
7456: x_return_status := FND_API.G_RET_STS_SUCCESS;
7457:
7458:
7459: --
7460: select merge_reason_code
7510: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
7511: 'OKL_INS_POLICIES for = '|| p_from_id));
7512: --
7513: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
7514: x_return_status := FND_API.G_RET_STS_ERROR;
7515: end;
7516: end if;
7517: END OKL_INSURANCE_AGENT_MERGE ;
7518: -----------------------------------------------------------------------------
7537: fnd_file.put_line(fnd_file.log, 'OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_SITE_MERGE');
7538: --
7539: arp_message.set_line('OKL_INSURANCE_POLICIES_PVT.OKL_INSURANCE_AGENT_SITE_MERGE()+');
7540:
7541: x_return_status := FND_API.G_RET_STS_SUCCESS;
7542:
7543:
7544: --
7545: select merge_reason_code
7595: fnd_file.put_line(fnd_file.log,(G_PKG_NAME || '.' || l_api_name ||
7596: 'OKL_INS_POLICIES for = '|| p_from_id));
7597: --
7598: fnd_file.put_line(fnd_file.log, G_PKG_NAME||'.'||l_api_name||':'||sqlerrm);
7599: x_return_status := FND_API.G_RET_STS_ERROR;
7600: end;
7601: end if;
7602: END OKL_INSURANCE_AGENT_SITE_MERGE ;
7603: