17: l_xsiv_rec xsiv_rec_type;
18: l_data VARCHAR2(100);
19: l_api_name CONSTANT VARCHAR2(30) := 'Get_REC_FEEDER';
20: l_count NUMBER ;
21: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: l_trx_date_from DATE;
23: l_trx_date_to DATE;
24:
25: BEGIN
22: l_trx_date_from DATE;
23: l_trx_date_to DATE;
24:
25: BEGIN
26: x_return_status := FND_API.G_RET_STS_SUCCESS;
27:
28: -- l_xsiv_rec := p_xsiv_rec;
29: l_trx_date_from := p_trx_date_from;
30: l_trx_date_to := p_trx_date_to;
41: p_trx_date_from => l_trx_date_from,
42: p_trx_date_to => l_trx_date_to,
43: p_assigned_process => p_assigned_process);
44:
45: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46: RAISE FND_API.G_EXC_ERROR;
47: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
48: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49: END IF;
42: p_trx_date_to => l_trx_date_to,
43: p_assigned_process => p_assigned_process);
44:
45: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46: RAISE FND_API.G_EXC_ERROR;
47: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
48: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49: END IF;
50:
43: p_assigned_process => p_assigned_process);
44:
45: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46: RAISE FND_API.G_EXC_ERROR;
47: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
48: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49: END IF;
50:
51: /* re-assign local record structure using output record from pvt api */
44:
45: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
46: RAISE FND_API.G_EXC_ERROR;
47: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
48: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49: END IF;
50:
51: /* re-assign local record structure using output record from pvt api */
52: -- l_xsiv_rec := x_xsiv_rec;
53:
54:
55:
56: EXCEPTION
57: WHEN FND_API.G_EXC_ERROR THEN
58: FND_FILE.put_line(fnd_file.log,'ERROR (OKL_ARIntf_PUB.Get_REC_FEEDER): '||SQLERRM );
59: -- -------------------------------------------
60: -- Purge data from the Parallel process Table
61: -- -------------------------------------------
65: COMMIT;
66: END IF;
67:
68: -- notify caller of an UNEXPECTED error
69: x_return_status := FND_API.G_RET_STS_ERROR;
70:
71: -- store SQL error message on message stack for caller
72: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
73: p_count => x_msg_count,
72: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
73: p_count => x_msg_count,
74: p_data => x_msg_data);
75:
76: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77:
78: FND_FILE.put_line(fnd_file.log,'ERROR (OKL_ARIntf_PUB.Get_REC_FEEDER): '||SQLERRM );
79: -- -------------------------------------------
80: -- Purge data from the Parallel process Table
85: COMMIT;
86: END IF;
87:
88: -- notify caller of an UNEXPECTED error
89: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
90:
91: -- store SQL error message on message stack for caller
92: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
93: p_count => x_msg_count,
105: COMMIT;
106: END IF;
107:
108: -- notify caller of an UNEXPECTED error
109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110: FND_MSG_PUB.ADD_EXC_MSG('OKL_ARIntf_PUB','Get_REC_FEEDER');
111:
112: -- store SQL error message on message stack for caller
113: FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,