PACKAGE BODY: APPS.OKL_LPO_STRM_PUB

Source

1 PACKAGE BODY OKL_LPO_STRM_PUB AS
2 /* $Header: OKLPLSXB.pls 115.6 2004/04/13 11:42:27 rnaik noship $ */
3 
4   PROCEDURE create_lpo_streams(
5      p_api_version                  IN  NUMBER
6     ,p_init_msg_list                IN  VARCHAR2 DEFAULT Okc_Api.G_FALSE
7     ,x_return_status                OUT NOCOPY VARCHAR2
8     ,x_msg_count                    OUT NOCOPY NUMBER
9     ,x_msg_data                     OUT NOCOPY VARCHAR2
10     ,p_lpo_id						IN  NUMBER)
11 IS
12 
13 l_api_version NUMBER ;
14 l_init_msg_list VARCHAR2(1) ;
15 l_return_status VARCHAR2(1);
16 l_msg_count NUMBER ;
17 l_msg_data VARCHAR2(2000);
18 
19 BEGIN
20 
21 
22 
23 
24 
25   OKL_LPO_STRM_Pvt.create_lpo_streams(
26      p_api_version
27 	,p_init_msg_list
28     ,x_return_status
29     ,x_msg_count
30     ,x_msg_data
31     ,p_lpo_id
32 	);
33 
34 IF ( l_return_status = Fnd_Api.G_RET_STS_ERROR )  THEN
35 	RAISE Fnd_Api.G_EXC_ERROR;
36 ELSIF (l_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
37 	RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
38 END IF;
39 
40 
41 
42 
43 
44 EXCEPTION
45     WHEN OTHERS THEN
46 --      ROLLBACK TO cnsld_ar_hdrs_insert;
47       x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
48       x_msg_count := l_msg_count ;
49       x_msg_data := l_msg_data ;
50       Fnd_Msg_Pub.ADD_EXC_MSG('OKL_LPO_STRM_PUB','internal_to_external');
51       Fnd_Msg_Pub.count_and_get(
52              p_count   => x_msg_count
53             ,p_data    => x_msg_data);
54 END create_lpo_streams;
55 
56 END OKL_LPO_STRM_PUB;