[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPRODUCTS_PUB
Source
1 PACKAGE BODY OKL_SETUPPRODUCTS_PUB AS
2 /* $Header: OKLPSPDB.pls 115.9 2004/04/14 13:07:14 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.SETUP.PRODUCTS';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9
10 ---------------------------------------------------------------------------
11 -- PROCEDURE get_rec for: OKL_PRODUCTS_V
12 ---------------------------------------------------------------------------
13 PROCEDURE get_rec(p_pdtv_rec IN pdtv_rec_type,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_data OUT NOCOPY VARCHAR2,
16 x_no_data_found OUT NOCOPY BOOLEAN,
17 x_pdtv_rec OUT NOCOPY pdtv_rec_type) IS
18 l_pdtv_rec pdtv_rec_type;
19 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
20 l_no_data_found BOOLEAN;
21 BEGIN
22
23 l_pdtv_rec := p_pdtv_rec;
24 x_return_status := FND_API.G_RET_STS_SUCCESS;
25 x_no_data_found := TRUE;
26
27 -- Start of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.get_rec
28 IF(L_DEBUG_ENABLED='Y') THEN
29 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
30 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
31 END IF;
32 IF(IS_DEBUG_PROCEDURE_ON) THEN
33 BEGIN
34 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSPDB.pls call okl_setupproducts_pvt.get_rec ');
35 END;
36 END IF;
37 okl_setupproducts_pvt.get_rec(p_pdtv_rec => l_pdtv_rec,
38 x_return_status => l_return_status,
39 x_no_data_found => l_no_data_found,
40 x_pdtv_rec => x_pdtv_rec);
41 IF(IS_DEBUG_PROCEDURE_ON) THEN
42 BEGIN
43 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSPDB.pls call okl_setupproducts_pvt.get_rec ');
44 END;
45 END IF;
46 -- End of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.get_rec
47
48 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50 END IF;
51
52 EXCEPTION
53 WHEN OTHERS THEN
54 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
55 x_no_data_found := FALSE;
56 FND_MESSAGE.set_name(application => G_APP_NAME,
57 name => G_UNEXPECTED_ERROR);
58 x_msg_data := FND_MESSAGE.get;
59 END get_rec;
60
61
62 ---------------------------------------------------------------------------
63 -- PROCEDURE Getpdt_parameters for: OKL_PRODUCTS_V
64 ---------------------------------------------------------------------------
65 PROCEDURE Getpdt_parameters(p_api_version IN NUMBER,
66 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
67 x_return_status OUT NOCOPY VARCHAR2,
68 x_no_data_found OUT NOCOPY BOOLEAN,
69 x_msg_count OUT NOCOPY NUMBER,
70 x_msg_data OUT NOCOPY VARCHAR2,
71 p_pdtv_rec IN pdtv_rec_type,
72 p_product_date IN DATE DEFAULT SYSDATE,
73 p_pdt_parameter_rec OUT NOCOPY pdt_parameters_rec_type) IS
74
75 l_pdtv_rec pdtv_rec_type;
76 l_product_date DATE;
77 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
78 l_no_data_found BOOLEAN;
79
80
81 BEGIN
82
83 l_pdtv_rec := p_pdtv_rec;
84 l_product_date := p_product_date;
85 x_return_status := FND_API.G_RET_STS_SUCCESS;
86 x_no_data_found := TRUE;
87
88 -- Start of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.Getpdt_parameters
89 IF(L_DEBUG_ENABLED='Y') THEN
90 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
91 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
92 END IF;
93 IF(IS_DEBUG_PROCEDURE_ON) THEN
94 BEGIN
95 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSPDB.pls call okl_setupproducts_pvt.Getpdt_parameters ');
96 END;
97 END IF;
98 okl_setupproducts_pvt.Getpdt_parameters(p_api_version => p_api_version,
99 p_init_msg_list => p_init_msg_list,
100 x_return_status => l_return_status,
101 x_no_data_found => l_no_data_found,
102 x_msg_count => x_msg_count,
103 x_msg_data => x_msg_data,
104 p_pdtv_rec => l_pdtv_rec,
105 p_product_date => l_product_date,
106 p_pdt_parameter_rec => p_pdt_parameter_rec);
107 IF(IS_DEBUG_PROCEDURE_ON) THEN
108 BEGIN
109 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSPDB.pls call okl_setupproducts_pvt.Getpdt_parameters ');
110 END;
111 END IF;
112 -- End of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.Getpdt_parameters
113
114 IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
115 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
116 END IF;
117
118 EXCEPTION
119 WHEN OTHERS THEN
120 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
121 FND_MESSAGE.set_name(application => G_APP_NAME,
122 name => G_UNEXPECTED_ERROR);
123 x_msg_data := FND_MESSAGE.get;
124 END Getpdt_parameters;
125
126 ---------------------------------------------------------------------------
127 -- PROCEDURE insert_products
128 -- Public wrapper for insert_products process api
129 ---------------------------------------------------------------------------
130 PROCEDURE insert_products(p_api_version IN NUMBER,
131 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
132 x_return_status OUT NOCOPY VARCHAR2,
133 x_msg_count OUT NOCOPY NUMBER,
134 x_msg_data OUT NOCOPY VARCHAR2,
135 p_pdtv_rec IN pdtv_rec_type,
136 x_pdtv_rec OUT NOCOPY pdtv_rec_type) IS
137 l_pdtv_rec pdtv_rec_type;
138 l_data VARCHAR2(100);
139 l_api_name CONSTANT VARCHAR2(30) := 'insert_products';
140 l_count NUMBER ;
141 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
142 BEGIN
143 x_return_status := FND_API.G_RET_STS_SUCCESS;
144 SAVEPOINT sp_insert_products;
145 l_pdtv_rec := p_pdtv_rec;
146
147 -- call process api to insert products
148 -- Start of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.insert_products
149 IF(L_DEBUG_ENABLED='Y') THEN
150 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
151 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
152 END IF;
153 IF(IS_DEBUG_PROCEDURE_ON) THEN
154 BEGIN
155 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSPDB.pls call okl_setupproducts_pvt.insert_products ');
156 END;
157 END IF;
158 okl_setupproducts_pvt.insert_products(p_api_version => p_api_version,
159 p_init_msg_list => p_init_msg_list,
160 x_return_status => l_return_status,
161 x_msg_count => x_msg_count,
162 x_msg_data => x_msg_data,
163 p_pdtv_rec => l_pdtv_rec,
164 x_pdtv_rec => x_pdtv_rec);
165 IF(IS_DEBUG_PROCEDURE_ON) THEN
166 BEGIN
167 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSPDB.pls call okl_setupproducts_pvt.insert_products ');
168 END;
169 END IF;
170 -- End of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.insert_products
171
172 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
173 RAISE FND_API.G_EXC_ERROR;
174 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
175 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
176 END IF;
177
178 /* re-assign local record structure using output record from pvt api */
179 l_pdtv_rec := x_pdtv_rec;
180
181
182 EXCEPTION
183 WHEN FND_API.G_EXC_ERROR THEN
184 ROLLBACK TO sp_insert_products;
185 -- notify caller of an UNEXPECTED error
186 x_return_status := FND_API.G_RET_STS_ERROR;
187
188 -- store SQL error message on message stack for caller
189 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
190 p_count => x_msg_count,
191 p_data => x_msg_data);
192
193 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
194 ROLLBACK TO sp_insert_products;
195 -- notify caller of an UNEXPECTED error
196 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
197
198 -- store SQL error message on message stack for caller
199 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
200 p_count => x_msg_count,
201 p_data => x_msg_data);
202
203 WHEN OTHERS THEN
204 -- notify caller of an UNEXPECTED error
205 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
206 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPRODUCTS_PUB','insert_products');
207
208 -- store SQL error message on message stack for caller
209 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
210 p_count => x_msg_count,
211 p_data => x_msg_data);
212 END insert_products;
213
214 ---------------------------------------------------------------------------
215 -- PROCEDURE update_products
216 -- Public wrapper for update_products process api
217 ---------------------------------------------------------------------------
218 PROCEDURE update_products(p_api_version IN NUMBER,
219 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
220 x_return_status OUT NOCOPY VARCHAR2,
221 x_msg_count OUT NOCOPY NUMBER,
222 x_msg_data OUT NOCOPY VARCHAR2,
223 p_pdtv_rec IN pdtv_rec_type,
224 x_pdtv_rec OUT NOCOPY pdtv_rec_type) IS
225 l_pdtv_rec pdtv_rec_type;
226 l_data VARCHAR2(100);
227 l_count NUMBER ;
228 l_api_name CONSTANT VARCHAR2(30) := 'update_products';
229 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
230 BEGIN
231 x_return_status := FND_API.G_RET_STS_SUCCESS;
232 SAVEPOINT sp_update_products;
233 l_pdtv_rec := p_pdtv_rec;
234
235
236 -- call process api to update products
237 -- Start of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.update_products
238 IF(L_DEBUG_ENABLED='Y') THEN
239 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
240 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
241 END IF;
242 IF(IS_DEBUG_PROCEDURE_ON) THEN
243 BEGIN
244 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPSPDB.pls call okl_setupproducts_pvt.update_products ');
245 END;
246 END IF;
247 okl_setupproducts_pvt.update_products(p_api_version => p_api_version,
248 p_init_msg_list => p_init_msg_list,
249 x_return_status => l_return_status,
250 x_msg_count => x_msg_count,
251 x_msg_data => x_msg_data,
252 p_pdtv_rec => l_pdtv_rec,
253 x_pdtv_rec => x_pdtv_rec);
254 IF(IS_DEBUG_PROCEDURE_ON) THEN
255 BEGIN
256 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPSPDB.pls call okl_setupproducts_pvt.update_products ');
257 END;
258 END IF;
259 -- End of wraper code generated automatically by Debug code generator for okl_setupproducts_pvt.update_products
260
261 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
262 RAISE FND_API.G_EXC_ERROR;
263 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
264 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
265 END IF;
266
267 /* re-assign local record structure using output record from pvt api */
268 l_pdtv_rec := x_pdtv_rec;
269
270
271 EXCEPTION
272 WHEN FND_API.G_EXC_ERROR THEN
273 ROLLBACK TO sp_update_products;
274 -- notify caller of an UNEXPECTED error
275 x_return_status := FND_API.G_RET_STS_ERROR;
276
277 -- store SQL error message on message stack for caller
278 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
279 p_count => x_msg_count,
280 p_data => x_msg_data);
281
282 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
283 ROLLBACK TO sp_update_products;
284 -- notify caller of an UNEXPECTED error
285 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
286
287 -- store SQL error message on message stack for caller
288 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
289 p_count => x_msg_count,
290 p_data => x_msg_data);
291
292 WHEN OTHERS THEN
293 -- notify caller of an UNEXPECTED error
294 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295 FND_MSG_PUB.ADD_EXC_MSG('OKL_SETUPPRODUCTS_PUB','update_products');
296
297 -- store SQL error message on message stack for caller
298 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE,
299 p_count => x_msg_count,
300 p_data => x_msg_data);
301 END update_products;
302
303 END OKL_SETUPPRODUCTS_PUB;