[Home] [Help]
PACKAGE BODY: APPS.OKL_LTE_PLCY_WRAP_PUB
Source
1 Package BODY OKL_LTE_PLCY_WRAP_PUB AS
2 /* $Header: OKLPLPWB.pls 115.1 2004/04/13 10:52:30 rnaik noship $ */
3
4 PROCEDURE create_late_policies(
5 p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_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_lpov_rec IN lpov_rec_type
11 ,x_lpov_rec OUT NOCOPY lpov_rec_type) IS
12
13
14 l_api_version NUMBER ;
15 l_init_msg_list VARCHAR2(1) ;
16 l_return_status VARCHAR2(1);
17 l_msg_count NUMBER ;
18 l_msg_data VARCHAR2(2000);
19 lp_lpov_rec lpov_rec_type;
20 lx_lpov_rec lpov_rec_type;
21
22 BEGIN
23
24 SAVEPOINT late_policies_create;
25
26
27 l_api_version := p_api_version ;
28 l_init_msg_list := p_init_msg_list ;
29 l_return_status := x_return_status ;
30 l_msg_count := x_msg_count ;
31 l_msg_data := x_msg_data ;
32 lp_lpov_rec := p_lpov_rec;
33 lx_lpov_rec := x_lpov_rec;
34
35
36
37 Okl_Late_Policies_Pub.insert_late_policies(
38 p_api_version => l_api_version
39 ,p_init_msg_list => l_init_msg_list
40 ,x_return_status => l_return_status
41 ,x_msg_count => l_msg_count
42 ,x_msg_data => l_msg_data
43 ,p_lpov_rec => lp_lpov_rec
44 ,x_lpov_rec => lx_lpov_rec);
45
46
47 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
48 RAISE FND_API.G_EXC_ERROR;
49 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
50 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
51 END IF;
52
53 --Copy value of OUT variable in the IN record type
54 lp_lpov_rec := lx_lpov_rec;
55
56
57
58 OKL_LPO_STRM_PUB.create_lpo_streams(
59 p_api_version => l_api_version
60 ,p_init_msg_list => l_init_msg_list
61 ,x_return_status => l_return_status
62 ,x_msg_count => l_msg_count
63 ,x_msg_data => l_msg_data
64 ,p_lpo_id => lp_lpov_rec.id);
65
66
67 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
68 RAISE FND_API.G_EXC_ERROR;
69 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
70 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71 END IF;
72
73 --Assign value to OUT variables
74 x_lpov_rec := lx_lpov_rec;
75 x_return_status := l_return_status ;
76 x_msg_count := l_msg_count ;
77 x_msg_data := l_msg_data ;
78
79 EXCEPTION
80
81 WHEN FND_API.G_EXC_ERROR THEN
82 ROLLBACK TO late_policies_create;
83 x_return_status := FND_API.G_RET_STS_ERROR;
84 x_msg_count := l_msg_count ;
85 x_msg_data := l_msg_data ;
86 Fnd_Msg_Pub.count_and_get(
87 p_count => x_msg_count
88 ,p_data => x_msg_data);
89 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
90 ROLLBACK TO late_policies_create;
91 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92 x_msg_count := l_msg_count ;
93 x_msg_data := l_msg_data ;
94 Fnd_Msg_Pub.count_and_get(
95 p_count => x_msg_count
96 ,p_data => x_msg_data);
97 WHEN OTHERS THEN
98 ROLLBACK TO late_policies_create;
99 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
100 x_msg_count := l_msg_count ;
101 x_msg_data := l_msg_data ;
102 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_LTE_PLCY_WRAP_PUB','create_late_policies');
103 Fnd_Msg_Pub.count_and_get(
104 p_count => x_msg_count
105 ,p_data => x_msg_data);
106 END create_late_policies;
107
108 PROCEDURE create_late_policies(
109 p_api_version IN NUMBER
110 ,p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE
111 ,x_return_status OUT NOCOPY VARCHAR2
112 ,x_msg_count OUT NOCOPY NUMBER
113 ,x_msg_data OUT NOCOPY VARCHAR2
114 ,p_lpov_tbl IN lpov_tbl_type
115 ,x_lpov_tbl OUT NOCOPY lpov_tbl_type) IS
116
117 l_api_version NUMBER;
118 l_init_msg_list VARCHAR2(1) ;
119 l_msg_data VARCHAR2(2000);
120 l_msg_count NUMBER ;
121 l_return_status VARCHAR2(1);
122 lp_lpov_tbl lpov_tbl_type;
123 lx_lpov_tbl lpov_tbl_type;
124
125 i NUMBER := 0;
126
127 BEGIN
128
129 SAVEPOINT late_policies_create;
130
131
132 l_api_version := p_api_version ;
133 l_init_msg_list := p_init_msg_list ;
134 l_return_status := x_return_status ;
135 l_msg_count := x_msg_count ;
136 l_msg_data := x_msg_data ;
137 lp_lpov_tbl := p_lpov_tbl;
138 lx_lpov_tbl := x_lpov_tbl;
139
140
141
142 IF (lp_lpov_tbl.COUNT > 0) THEN
143 i := lp_lpov_tbl.FIRST;
144 LOOP
145 create_late_policies (
146 p_api_version => l_api_version,
147 p_init_msg_list => l_init_msg_list,
148 x_return_status => l_return_status,
149 x_msg_count => l_msg_count,
150 x_msg_data => l_msg_data,
151 p_lpov_rec => lp_lpov_tbl(i),
152 x_lpov_rec => lx_lpov_tbl(i));
153
154 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
155 RAISE FND_API.G_EXC_ERROR;
156 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
157 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
158 END IF;
159
160 EXIT WHEN (i = lp_lpov_tbl.LAST);
161 i := lp_lpov_tbl.NEXT(i);
162 END LOOP;
163 END IF;
164
165
166
167 --Copy value of OUT variable in the IN record type
168 lp_lpov_tbl := lx_lpov_tbl;
169
170
171
172 --Assign value to OUT variables
173 x_lpov_tbl := lx_lpov_tbl;
174 x_return_status := l_return_status ;
175 x_msg_count := l_msg_count ;
176 x_msg_data := l_msg_data ;
177
178
179 EXCEPTION
180
181 WHEN FND_API.G_EXC_ERROR THEN
182 ROLLBACK TO late_policies_create;
183 x_return_status := FND_API.G_RET_STS_ERROR;
184 x_msg_count := l_msg_count ;
185 x_msg_data := l_msg_data ;
186 Fnd_Msg_Pub.count_and_get(
187 p_count => x_msg_count
188 ,p_data => x_msg_data);
189 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
190 ROLLBACK TO late_policies_create;
191 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
192 x_msg_count := l_msg_count ;
193 x_msg_data := l_msg_data ;
194 Fnd_Msg_Pub.count_and_get(
195 p_count => x_msg_count
196 ,p_data => x_msg_data);
197 WHEN OTHERS THEN
198 ROLLBACK TO late_policies_create;
199 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200 x_msg_count := l_msg_count ;
201 x_msg_data := l_msg_data ;
202 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_LTE_PLCY_WRAP_PUB','create_late_policies');
203 Fnd_Msg_Pub.count_and_get(
204 p_count => x_msg_count
205 ,p_data => x_msg_data);
206 END create_late_policies;
207
208 END OKL_LTE_PLCY_WRAP_PUB;