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