29: ,x_msg_data => x_msg_data
30: ,p_investor_agreement => p_investor_agreement
31: ,p_to_date => px_to_date);
32:
33: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
34: RAISE Fnd_Api.G_EXC_ERROR;
35: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
36: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
37: END IF;
30: ,p_investor_agreement => p_investor_agreement
31: ,p_to_date => px_to_date);
32:
33: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
34: RAISE Fnd_Api.G_EXC_ERROR;
35: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
36: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
37: END IF;
38:
31: ,p_to_date => px_to_date);
32:
33: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
34: RAISE Fnd_Api.G_EXC_ERROR;
35: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
36: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
37: END IF;
38:
39: EXCEPTION
32:
33: IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
34: RAISE Fnd_Api.G_EXC_ERROR;
35: ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
36: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
37: END IF;
38:
39: EXCEPTION
40:
37: END IF;
38:
39: EXCEPTION
40:
41: WHEN Fnd_Api.G_EXC_ERROR THEN
42: ROLLBACK TO OKL_INVESTOR_DISBURSEMENT;
43: x_return_status := Fnd_Api.G_RET_STS_ERROR;
44: x_msg_count := l_msg_count ;
45: x_msg_data := l_msg_data ;
39: EXCEPTION
40:
41: WHEN Fnd_Api.G_EXC_ERROR THEN
42: ROLLBACK TO OKL_INVESTOR_DISBURSEMENT;
43: x_return_status := Fnd_Api.G_RET_STS_ERROR;
44: x_msg_count := l_msg_count ;
45: x_msg_data := l_msg_data ;
46: Fnd_Msg_Pub.count_and_get(
47: p_count => x_msg_count
45: x_msg_data := l_msg_data ;
46: Fnd_Msg_Pub.count_and_get(
47: p_count => x_msg_count
48: ,p_data => x_msg_data);
49: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
50: ROLLBACK TO OKL_INVESTOR_DISBURSEMENT;
51: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
52: x_msg_count := l_msg_count ;
53: x_msg_data := l_msg_data ;
47: p_count => x_msg_count
48: ,p_data => x_msg_data);
49: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
50: ROLLBACK TO OKL_INVESTOR_DISBURSEMENT;
51: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
52: x_msg_count := l_msg_count ;
53: x_msg_data := l_msg_data ;
54: Fnd_Msg_Pub.count_and_get(
55: p_count => x_msg_count
55: p_count => x_msg_count
56: ,p_data => x_msg_data);
57: WHEN OTHERS THEN
58: ROLLBACK TO OKL_INVESTOR_DISBURSEMENT;
59: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
60: x_msg_count := l_msg_count ;
61: x_msg_data := l_msg_data ;
62: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_INVESTOR_INVOICE_DISB_PUB',
63: 'OKL_INVESTOR_DISBURSEMENT');