[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUP_STREAMTYPES_PUB
Source
1 PACKAGE BODY OKL_SETUP_STREAMTYPES_PUB AS
2 /* $Header: OKLPSMTB.pls 115.5 2004/04/13 11:18:05 rnaik noship $ */
3
4 ---------------------------------------------------------------------------
5 -- PROCEDURE create_stream_type for: OKL_STRM_TYPE_V
6 -- Public Wrapper for create_stream_type Process API
7 ---------------------------------------------------------------------------
8 PROCEDURE create_stream_type( p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
10 x_return_status OUT NOCOPY VARCHAR2,
11 x_msg_count OUT NOCOPY NUMBER,
12 x_msg_data OUT NOCOPY VARCHAR2,
13 p_styv_rec IN styv_rec_type,
14 x_styv_rec OUT NOCOPY styv_rec_type
15 ) IS
16 l_api_name CONSTANT VARCHAR2(30) := 'create_stream_type';
17 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
18 l_styv_rec styv_rec_type;
19 l_data VARCHAR2(100);
20 l_count NUMBER ;
21 l_api_version CONSTANT NUMBER := 1;
22 BEGIN
23 x_return_status := G_RET_STS_SUCCESS;
24
25 l_styv_rec := p_styv_rec;
26
27 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
28 p_pkg_name => G_PKG_NAME,
29 p_init_msg_list => p_init_msg_list,
30 l_api_version => l_api_version,
31 p_api_version => p_api_version,
32 p_api_type => G_API_TYPE,
33 x_return_status => l_return_status);
34 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
35 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
36 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
37 RAISE G_EXCEPTION_ERROR;
38 END IF;
39
40
41
42 -- call process api to create_stream_type
43 okl_setup_streamtypes_pvt.create_stream_type(p_api_version => p_api_version,
44 p_init_msg_list => p_init_msg_list,
45 x_return_status => l_return_status,
46 x_msg_count => x_msg_count,
47 x_msg_data => x_msg_data,
48 p_styv_rec => l_styv_rec,
49 x_styv_rec => x_styv_rec);
50
51 IF l_return_status = G_RET_STS_ERROR THEN
52 RAISE G_EXCEPTION_ERROR;
53 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
54 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
55 END IF;
56
57 /* re-assign local record structure using output record from pvt api */
58 l_styv_rec := x_styv_rec;
59
60
61
62 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
63 x_msg_data => x_msg_data);
64 x_return_status := l_return_status;
65
66 EXCEPTION
67 WHEN G_EXCEPTION_ERROR THEN
68 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
69 p_pkg_name => G_PKG_NAME,
70 p_exc_name => G_EXC_NAME_ERROR,
71 x_msg_count => x_msg_count,
72 x_msg_data => x_msg_data,
73 p_api_type => G_API_TYPE);
74 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
75 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
76 p_pkg_name => G_PKG_NAME,
77 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
78 x_msg_count => x_msg_count,
79 x_msg_data => x_msg_data,
80 p_api_type => G_API_TYPE);
81 WHEN OTHERS THEN
82 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
83 p_pkg_name => G_PKG_NAME,
84 p_exc_name => G_EXC_NAME_OTHERS,
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data,
87 p_api_type => G_API_TYPE);
88 END create_stream_type;
89
90 ---------------------------------------------------------------------------
91 -- PROCEDURE update_stream_type for: OKL_STRM_TYPE_V
92 -- Public Wrapper for Process API
93 ---------------------------------------------------------------------------
94 PROCEDURE update_stream_type(p_api_version IN NUMBER,
95 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
96 x_return_status OUT NOCOPY VARCHAR2,
97 x_msg_count OUT NOCOPY NUMBER,
98 x_msg_data OUT NOCOPY VARCHAR2,
99 p_styv_rec IN styv_rec_type,
100 x_styv_rec OUT NOCOPY styv_rec_type
101 ) IS
102
103 l_api_name CONSTANT VARCHAR2(30) := 'update_stream_type';
104 l_api_version CONSTANT NUMBER := 1;
105 l_styv_rec styv_rec_type;
106 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
107 l_data VARCHAR2(100);
108 l_count NUMBER ;
109 BEGIN
110 x_return_status := G_RET_STS_SUCCESS;
111 l_styv_rec := p_styv_rec;
112
113 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
114 p_pkg_name => G_PKG_NAME,
115 p_init_msg_list => p_init_msg_list,
116 l_api_version => l_api_version,
117 p_api_version => p_api_version,
118 p_api_type => G_API_TYPE,
119 x_return_status => l_return_status);
120 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
121 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
122 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
123 RAISE G_EXCEPTION_ERROR;
124 END IF;
125
126
127
128 -- call process api to update formulae
129 okl_setup_streamtypes_pvt.update_stream_type(p_api_version => p_api_version,
130 p_init_msg_list => p_init_msg_list,
131 x_return_status => l_return_status,
132 x_msg_count => x_msg_count,
133 x_msg_data => x_msg_data,
134 p_styv_rec => l_styv_rec,
135 x_styv_rec => x_styv_rec);
136
137 IF l_return_status = G_RET_STS_ERROR THEN
138 RAISE G_EXCEPTION_ERROR;
139 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
140 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
141 END IF;
142
143 /* re-assign local record structure using output record from pvt api */
144 l_styv_rec := x_styv_rec;
145
146
147
148 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
149 x_msg_data => x_msg_data);
150 x_return_status := l_return_status;
151 EXCEPTION
152 WHEN G_EXCEPTION_ERROR THEN
153 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
154 p_pkg_name => G_PKG_NAME,
155 p_exc_name => G_EXC_NAME_ERROR,
156 x_msg_count => x_msg_count,
157 x_msg_data => x_msg_data,
158 p_api_type => G_API_TYPE);
159 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
160 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
161 p_pkg_name => G_PKG_NAME,
162 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
163 x_msg_count => x_msg_count,
164 x_msg_data => x_msg_data,
165 p_api_type => G_API_TYPE);
166 WHEN OTHERS THEN
167 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
168 p_pkg_name => G_PKG_NAME,
169 p_exc_name => G_EXC_NAME_OTHERS,
170 x_msg_count => x_msg_count,
171 x_msg_data => x_msg_data,
172 p_api_type => G_API_TYPE);
173 END update_stream_type;
174
175 PROCEDURE create_stream_type(
176 p_api_version IN NUMBER,
177 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
178 x_return_status OUT NOCOPY VARCHAR2,
179 x_msg_count OUT NOCOPY NUMBER,
180 x_msg_data OUT NOCOPY VARCHAR2,
181 p_styv_tbl IN styv_tbl_type,
182 x_styv_tbl OUT NOCOPY styv_tbl_type)
183 IS
184 l_api_name CONSTANT VARCHAR2(30) := 'create_stream_type_tbl';
185 rec_num INTEGER := 0;
186 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
187 l_api_version CONSTANT NUMBER := 1;
188 BEGIN
189 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
190 p_pkg_name => G_PKG_NAME,
191 p_init_msg_list => p_init_msg_list,
192 l_api_version => l_api_version,
193 p_api_version => p_api_version,
194 p_api_type => G_API_TYPE,
195 x_return_status => l_return_status);
196 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
197 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
198 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
199 RAISE G_EXCEPTION_ERROR;
200 END IF;
201
202 FOR rec_num IN 1..p_styv_tbl.COUNT
203 LOOP
204 create_stream_type(
205 p_api_version => p_api_version,
206 p_init_msg_list => p_init_msg_list,
207 x_return_status => l_return_status,
208 x_msg_count => x_msg_count,
209 x_msg_data => x_msg_data,
210 p_styv_rec => p_styv_tbl(rec_num),
211 x_styv_rec => x_styv_tbl(rec_num) );
212
213 IF l_return_status = G_RET_STS_ERROR THEN
214 RAISE G_EXCEPTION_ERROR;
215 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
216 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
217 END IF;
218
219 END LOOP;
220 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
221 x_msg_data => x_msg_data);
222 x_return_status := l_return_status;
223 EXCEPTION
224 WHEN G_EXCEPTION_ERROR THEN
225 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
226 p_pkg_name => G_PKG_NAME,
227 p_exc_name => G_EXC_NAME_ERROR,
228 x_msg_count => x_msg_count,
229 x_msg_data => x_msg_data,
230 p_api_type => G_API_TYPE);
231 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
232 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
233 p_pkg_name => G_PKG_NAME,
234 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
235 x_msg_count => x_msg_count,
236 x_msg_data => x_msg_data,
237 p_api_type => G_API_TYPE);
238 WHEN OTHERS THEN
239 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
240 p_pkg_name => G_PKG_NAME,
241 p_exc_name => G_EXC_NAME_OTHERS,
242 x_msg_count => x_msg_count,
243 x_msg_data => x_msg_data,
244 p_api_type => G_API_TYPE);
245
246 END create_stream_type;
247
248
249 PROCEDURE update_stream_type(
250 p_api_version IN NUMBER,
251 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
252 x_return_status OUT NOCOPY VARCHAR2,
253 x_msg_count OUT NOCOPY NUMBER,
254 x_msg_data OUT NOCOPY VARCHAR2,
255 p_styv_tbl IN styv_tbl_type,
256 x_styv_tbl OUT NOCOPY styv_tbl_type)
257 IS
258 l_api_name CONSTANT VARCHAR2(30) := 'update_stream_type_tbl';
259 rec_num INTEGER := 0;
260 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
261 l_api_version CONSTANT NUMBER := 1;
262 BEGIN
263 l_return_status := OKL_API.START_ACTIVITY(p_api_name => l_api_name,
264 p_pkg_name => G_PKG_NAME,
265 p_init_msg_list => p_init_msg_list,
266 l_api_version => l_api_version,
267 p_api_version => p_api_version,
268 p_api_type => G_API_TYPE,
269 x_return_status => l_return_status);
270 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
271 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
272 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
273 RAISE G_EXCEPTION_ERROR;
274 END IF;
275
276 FOR rec_num IN 1.. p_styv_tbl.COUNT
277 LOOP
278 update_stream_type(
279 p_api_version => p_api_version,
280 p_init_msg_list => p_init_msg_list,
281 x_return_status => l_return_status,
282 x_msg_count => x_msg_count,
283 x_msg_data => x_msg_data,
284 p_styv_rec => p_styv_tbl(rec_num),
285 x_styv_rec => x_styv_tbl(rec_num) );
286
287 IF l_return_status = G_RET_STS_ERROR THEN
288 RAISE G_EXCEPTION_ERROR;
289 ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
290 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
291 END IF;
292
293 END LOOP;
294 OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,
295 x_msg_data => x_msg_data);
296 x_return_status := l_return_status;
297 EXCEPTION
298 WHEN G_EXCEPTION_ERROR THEN
299 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
300 p_pkg_name => G_PKG_NAME,
301 p_exc_name => G_EXC_NAME_ERROR,
302 x_msg_count => x_msg_count,
303 x_msg_data => x_msg_data,
304 p_api_type => G_API_TYPE);
305 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
306 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
307 p_pkg_name => G_PKG_NAME,
308 p_exc_name => G_EXC_NAME_UNEXP_ERROR,
309 x_msg_count => x_msg_count,
310 x_msg_data => x_msg_data,
311 p_api_type => G_API_TYPE);
312 WHEN OTHERS THEN
313 x_return_status := OKL_API.HANDLE_EXCEPTIONS(p_api_name => l_api_name,
314 p_pkg_name => G_PKG_NAME,
315 p_exc_name => G_EXC_NAME_OTHERS,
316 x_msg_count => x_msg_count,
317 x_msg_data => x_msg_data,
318 p_api_type => G_API_TYPE);
319
320 END update_stream_type;
321
322 END OKL_SETUP_STREAMTYPES_PUB;