36: ,p_from_date => p_from_date
37: ,p_to_date => p_to_date
38: ,p_contract_number => p_contract_number);
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: ,p_to_date => p_to_date
38: ,p_contract_number => p_contract_number);
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: ,p_contract_number => p_contract_number);
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:
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:
47:
48:
49:
50: EXCEPTION
51:
52: WHEN Fnd_Api.G_EXC_ERROR THEN
53: ROLLBACK TO auto_disbursement;
54: x_return_status := Fnd_Api.G_RET_STS_ERROR;
55: x_msg_count := l_msg_count ;
56: x_msg_data := l_msg_data ;
50: EXCEPTION
51:
52: WHEN Fnd_Api.G_EXC_ERROR THEN
53: ROLLBACK TO auto_disbursement;
54: x_return_status := Fnd_Api.G_RET_STS_ERROR;
55: x_msg_count := l_msg_count ;
56: x_msg_data := l_msg_data ;
57: Fnd_Msg_Pub.count_and_get(
58: p_count => x_msg_count
56: x_msg_data := l_msg_data ;
57: Fnd_Msg_Pub.count_and_get(
58: p_count => x_msg_count
59: ,p_data => x_msg_data);
60: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
61: ROLLBACK TO auto_disbursement;
62: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
63: x_msg_count := l_msg_count ;
64: x_msg_data := l_msg_data ;
58: p_count => x_msg_count
59: ,p_data => x_msg_data);
60: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
61: ROLLBACK TO auto_disbursement;
62: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
63: x_msg_count := l_msg_count ;
64: x_msg_data := l_msg_data ;
65: Fnd_Msg_Pub.count_and_get(
66: p_count => x_msg_count
66: p_count => x_msg_count
67: ,p_data => x_msg_data);
68: WHEN OTHERS THEN
69: ROLLBACK TO auto_disbursement;
70: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
71: x_msg_count := l_msg_count ;
72: x_msg_data := l_msg_data ;
73: Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_INVOICES_DISB_PUB','AUTO_DISBURSEMENT');
74: Fnd_Msg_Pub.count_and_get(