17: l_copy_rec copy_header_rec_type;
18: l_data VARCHAR2(100);
19: l_api_name CONSTANT VARCHAR2(30) := 'copy_contract';
20: l_count NUMBER ;
21: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: l_contract_id NUMBER;
23: BEGIN
24: x_return_status := FND_API.G_RET_STS_SUCCESS;
25: l_copy_rec := p_copy_rec;
20: l_count NUMBER ;
21: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: l_contract_id NUMBER;
23: BEGIN
24: x_return_status := FND_API.G_RET_STS_SUCCESS;
25: l_copy_rec := p_copy_rec;
26:
27:
28:
36: p_copy_rec => l_copy_rec,
37: x_new_contract_id => l_contract_id);
38:
39:
40: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41: RAISE FND_API.G_EXC_ERROR;
42: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
37: x_new_contract_id => l_contract_id);
38:
39:
40: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41: RAISE FND_API.G_EXC_ERROR;
42: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
45:
38:
39:
40: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41: RAISE FND_API.G_EXC_ERROR;
42: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
45:
46: --fmiao add for copy vendor programs--
39:
40: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41: RAISE FND_API.G_EXC_ERROR;
42: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
43: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
44: END IF;
45:
46: --fmiao add for copy vendor programs--
47: x_new_contract_id := l_contract_id;
49:
50:
51:
52: EXCEPTION
53: WHEN FND_API.G_EXC_ERROR THEN
54: -- notify caller of an UNEXPECTED error
55: x_return_status := FND_API.G_RET_STS_ERROR;
56:
57: -- store SQL error message on message stack for caller
51:
52: EXCEPTION
53: WHEN FND_API.G_EXC_ERROR THEN
54: -- notify caller of an UNEXPECTED error
55: x_return_status := FND_API.G_RET_STS_ERROR;
56:
57: -- store SQL error message on message stack for caller
58: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
59: p_count => x_msg_count,
58: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
59: p_count => x_msg_count,
60: p_data => x_msg_data);
61:
62: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
63: -- notify caller of an UNEXPECTED error
64: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65:
66: -- store SQL error message on message stack for caller
60: p_data => x_msg_data);
61:
62: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
63: -- notify caller of an UNEXPECTED error
64: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
65:
66: -- store SQL error message on message stack for caller
67: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
68: p_count => x_msg_count,
69: p_data => x_msg_data);
70:
71: WHEN OTHERS THEN
72: -- notify caller of an UNEXPECTED error
73: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
74: FND_MSG_PUB.ADD_EXC_MSG('OKL_VP_COPY_CONTRACT_PUB','copy_contract');
75:
76: -- store SQL error message on message stack for caller
77: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,