[Home] [Help]
PACKAGE BODY: APPS.ASG_CUSTOM_PUB
Source
1 PACKAGE BODY ASG_CUSTOM_PUB as
2 /* $Header: asgpcstb.pls 120.1 2005/08/12 02:49:55 saradhak noship $ */
3
4 PROCEDURE customize_pub_item(
5 p_api_version_number IN NUMBER,
6 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
7 p_pub_item_name IN VARCHAR2,
8 p_base_table_name IN VARCHAR2,
9 p_primary_key_columns IN VARCHAR2,
10 p_data_columns IN VARCHAR2,
11 p_additional_filter IN VARCHAR2,
12 x_msg_count OUT NOCOPY NUMBER,
13 x_return_status OUT NOCOPY VARCHAR2,
14 x_error_message OUT NOCOPY VARCHAR2
15 )
16 IS
17 l_api_name CONSTANT VARCHAR2(30) := 'Customize_pub_item';
18 l_api_version_number CONSTANT NUMBER := 1.0;
19 l_return_status VARCHAR2(10);
20 BEGIN
21 -- Standard Start of API savepoint
22 SAVEPOINT customize_pub_item_PUB;
23
24 -- Standard call to check for call compatibility.
25 if NOT FND_API.Compatible_API_Call
26 (
27 l_api_version_number,
28 p_api_version_number,
29 l_api_name,
30 G_PKG_NAME
31 )
32 then
33 raise FND_API.G_EXC_UNEXPECTED_ERROR;
34 end if;
35
36 -- Initialize message list if p_init_msg_list is set to TRUE.
37 if FND_API.to_Boolean( p_init_msg_list)
38 then
39 fND_MSG_PUB.initialize;
40 end if;
41
42 -- Check the input parameters
43 -- p_pub_item_name, p_base_table_name, p_primary_key_columns
44 -- should not be NULL
45 if ( p_pub_item_name is NULL OR
46 p_base_table_name is NULL OR
47 p_primary_key_columns is NULL )
48 then
49 raise FND_API.G_EXC_ERROR;
50 END IF;
51
52 -- Initialize API return status to success
53 x_return_status := FND_API.G_RET_STS_SUCCESS;
54 asg_custom_pvt.customize_pub_item (
55 p_api_version_number => p_api_version_number,
56 p_init_msg_list => p_init_msg_list,
57 p_pub_item_name => upper(p_pub_item_name),
58 p_base_table_name => upper(p_base_table_name),
59 p_primary_key_columns => upper(p_primary_key_columns),
60 p_data_columns => upper(p_data_columns),
61 p_additional_filter => upper(p_additional_filter),
62 x_msg_count => x_msg_count,
63 x_return_status => l_return_status,
64 x_error_message => x_error_message);
65
66 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
67 -- the API exception handler.
68
69 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
70 then
71
72 -- Unexpected error, abort processing.
73
74 raise FND_API.G_EXC_UNEXPECTED_ERROR;
75
76 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
77
78 -- Error, abort processing
79
80 raise FND_API.G_EXC_ERROR;
81
82 end if;
83
84 EXCEPTION
85 WHEN FND_API.G_EXC_ERROR THEN
86 Rollback to customize_pub_item_PUB;
87 x_return_status := FND_API.G_RET_STS_ERROR;
88 FND_MSG_PUB.Count_And_Get
89 (
90 p_count => x_msg_count,
91 p_data => x_error_message
92 );
93 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
94 Rollback to customize_pub_item_PUB;
95 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96 FND_MSG_PUB.Count_And_Get
97 (
98 p_count => x_msg_count,
99 p_data => x_error_message
100 );
101 WHEN OTHERS THEN
102 Rollback to customize_pub_item_PUB;
103 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104 if FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
105 then
106 FND_MSG_PUB.Add_Exc_Msg
107 (
108 G_PKG_NAME,
109 l_api_name,
110 sqlerrm
111 );
112 end if;
113 FND_MSG_PUB.Count_And_Get
114 (
115 p_count => x_msg_count,
116 p_data => x_error_message
117 );
118
119
120 END customize_pub_item ;
121
122
123 PROCEDURE mark_dirty (
124 p_api_version_number IN NUMBER,
125 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
126 p_pub_item IN VARCHAR2,
127 p_accessList IN asg_download.access_list,
128 p_userid_list IN asg_download.user_list,
129 p_dmlList IN asg_download.dml_list,
130 p_timestamp IN DATE,
131 x_return_status OUT NOCOPY VARCHAR2
132 )
133 IS
134
135 l_api_version_number CONSTANT NUMBER := 1.0;
136 l_api_name CONSTANT VARCHAR2(30) := 'MARK_DIRTY1' ;
137 l_return_status VARCHAR2(10);
138
139 BEGIN
140 -- Standard Start of API savepoint
141 SAVEPOINT mark_dirty1;
142
143 -- Standard call to check for call compatibility.
144 if NOT FND_API.Compatible_API_Call
145 (
146 l_api_version_number,
147 p_api_version_number,
148 l_api_name,
149 G_PKG_NAME
150 )
151 then
152 raise FND_API.G_EXC_UNEXPECTED_ERROR;
153 end if;
154
155 -- Initialize message list if p_init_msg_list is set to TRUE.
156 if FND_API.to_Boolean( p_init_msg_list)
157 then
158 FND_MSG_PUB.initialize;
159 end if;
160
161 -- Initialize API return status to success
162 x_return_status := FND_API.G_RET_STS_SUCCESS;
163
164 asg_custom_pvt.mark_dirty(
165 p_api_version_number => p_api_version_number,
166 p_init_msg_list => p_init_msg_list,
167 p_pub_item => upper(p_pub_item),
168 p_accessList => p_accessList,
169 p_userid_list => p_userid_list,
170 p_dmlList => p_dmlList,
171 p_timestamp => p_timestamp,
172 x_return_status => l_return_status);
173
174 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
175 -- the API exception handler.
176
177 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
178 then
179
180 -- Unexpected error, abort processing.
181
182 raise FND_API.G_EXC_UNEXPECTED_ERROR;
183
184 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
185
186 -- Error, abort processing
187
188 raise FND_API.G_EXC_ERROR;
189
190 end if;
191
192 EXCEPTION
193 WHEN FND_API.G_EXC_ERROR THEN
194 Rollback to mark_dirty1;
195 x_return_status := FND_API.G_RET_STS_ERROR;
196
197 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
198 Rollback to mark_dirty1;
199 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
200
201 WHEN OTHERS THEN
202 Rollback to mark_dirty1;
203 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204
205 END ;
206
207
208 PROCEDURE mark_dirty (
209 p_api_version_number IN NUMBER,
210 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
211 p_pub_item IN VARCHAR2,
212 p_accessList IN asg_download.access_list,
213 p_userid_list IN asg_download.user_list,
214 p_dml_type IN CHAR,
215 p_timestamp IN DATE,
216 x_return_status OUT NOCOPY VARCHAR2
217 ) IS
218
219 l_api_version_number CONSTANT NUMBER := 1.0;
220 l_api_name CONSTANT VARCHAR2(30) := 'MARK_DIRTY2' ;
221 l_return_status VARCHAR2(10);
222
223 BEGIN
224 -- Standard Start of API savepoint
225 SAVEPOINT mark_dirty2;
226
227 -- Standard call to check for call compatibility.
228 if NOT FND_API.Compatible_API_Call
229 (
230 l_api_version_number,
231 p_api_version_number,
232 l_api_name,
233 G_PKG_NAME
234 )
235 then
236 raise FND_API.G_EXC_UNEXPECTED_ERROR;
237 end if;
238
239 -- Initialize message list if p_init_msg_list is set to TRUE.
240 if FND_API.to_Boolean( p_init_msg_list)
241 then
242 FND_MSG_PUB.initialize;
243 end if;
244 -- Initialize API return status to success
245 x_return_status := FND_API.G_RET_STS_SUCCESS;
246
247 asg_custom_pvt.mark_dirty(
248 p_api_version_number => p_api_version_number,
249 p_init_msg_list => p_init_msg_list,
250 p_pub_item => upper(p_pub_item),
251 p_accessList => p_accessList,
252 p_userid_list => p_userid_list,
253 p_dml_type => p_dml_type,
254 p_timestamp => p_timestamp,
255 x_return_status => l_return_status);
256
257 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
258 -- the API exception handler.
259
260 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
261 then
262
263 -- Unexpected error, abort processing.
264
265 raise FND_API.G_EXC_UNEXPECTED_ERROR;
266
267 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
268
269 -- Error, abort processing
270
271 raise FND_API.G_EXC_ERROR;
272
273 end if;
274
275
276 EXCEPTION
277 WHEN FND_API.G_EXC_ERROR THEN
278 Rollback to mark_dirty2;
279 x_return_status := FND_API.G_RET_STS_ERROR;
280
281 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
282 Rollback to mark_dirty2;
283 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
284
285 WHEN OTHERS THEN
286 Rollback to mark_dirty2;
287 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288
289 END ;
290
291
292 PROCEDURE mark_dirty (
293 p_api_version_number IN NUMBER,
294 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
295 p_pub_item IN VARCHAR2,
296 p_accessid IN NUMBER,
297 p_userid IN NUMBER,
298 p_dml IN CHAR,
299 p_timestamp IN DATE,
300 x_return_status OUT NOCOPY VARCHAR2
301 ) IS
302 l_api_version_number CONSTANT NUMBER := 1.0;
303 l_api_name CONSTANT VARCHAR2(30) := 'MARK_DIRTY3';
304 l_return_status VARCHAR2(10);
305
306 BEGIN
307 -- Standard Start of API savepoint
308 SAVEPOINT mark_dirty3;
309
310 -- Standard call to check for call compatibility.
311 if NOT FND_API.Compatible_API_Call
312 (
313 l_api_version_number,
314 p_api_version_number,
315 l_api_name,
316 G_PKG_NAME
317 )
318 then
319 raise FND_API.G_EXC_UNEXPECTED_ERROR;
320 end if;
321
322 -- Initialize message list if p_init_msg_list is set to TRUE.
323 if FND_API.to_Boolean( p_init_msg_list)
324 then
325 FND_MSG_PUB.initialize;
326 end if;
327
328 -- Initialize API return status to success
329 x_return_status := FND_API.G_RET_STS_SUCCESS;
330
331 asg_custom_pvt.mark_dirty(
332 p_api_version_number => p_api_version_number,
333 p_init_msg_list => p_init_msg_list,
334 p_pub_item => upper(p_pub_item),
335 p_accessid => p_accessid,
336 p_userid => p_userid,
337 p_dml => p_dml,
338 p_timestamp => p_timestamp,
339 x_return_status => l_return_status);
340
341 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
342 -- the API exception handler.
343
344 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
345 then
346
347 -- Unexpected error, abort processing.
348
349 raise FND_API.G_EXC_UNEXPECTED_ERROR;
350
351 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
352
353 -- Error, abort processing
354
355 raise FND_API.G_EXC_ERROR;
356
357 end if;
358
359
360 EXCEPTION
361 WHEN FND_API.G_EXC_ERROR THEN
362 Rollback to mark_dirty3;
363 x_return_status := FND_API.G_RET_STS_ERROR;
364
365 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
366 Rollback to mark_dirty3;
367 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
368
369 WHEN OTHERS THEN
370 Rollback to mark_dirty3;
371 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
372
373 END ;
374
375 PROCEDURE mark_dirty (
376 p_api_version_number IN NUMBER,
377 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
378 p_pub_item IN VARCHAR2,
379 p_accessid IN NUMBER,
380 p_userid IN NUMBER,
381 p_dml IN CHAR,
382 p_timestamp IN DATE,
383 p_pkvalues IN asg_download.pk_list,
384 x_return_status OUT NOCOPY VARCHAR2
385 )
386 IS
387 l_api_version_number CONSTANT NUMBER := 1.0;
388 l_api_name CONSTANT VARCHAR2(30) := 'MARK_DIRTY4';
389 l_return_status VARCHAR2(10);
390
391 BEGIN
392
393 -- Standard Start of API savepoint
394 SAVEPOINT mark_dirty4;
395
396 -- Standard call to check for call compatibility.
397 if NOT FND_API.Compatible_API_Call
398 (
399 l_api_version_number,
400 p_api_version_number,
401 l_api_name,
402 G_PKG_NAME
403 )
404 then
405 raise FND_API.G_EXC_UNEXPECTED_ERROR;
406 end if;
407
408 -- Initialize message list if p_init_msg_list is set to TRUE.
409 if FND_API.to_Boolean( p_init_msg_list)
410 then
411 FND_MSG_PUB.initialize;
412 end if;
413
414 -- Initialize API return status to success
415 x_return_status := FND_API.G_RET_STS_SUCCESS;
416
417 asg_custom_pvt.mark_dirty(
418 p_api_version_number => p_api_version_number,
419 p_init_msg_list => p_init_msg_list,
420 p_pub_item => upper(p_pub_item),
421 p_accessid => p_accessid,
422 p_userid => p_userid,
423 p_dml => p_dml,
424 p_timestamp => p_timestamp,
425 p_pkvalues => p_pkvalues,
426 x_return_status => l_return_status);
427
428 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
429 -- the API exception handler.
430
431 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
432 then
433
434 -- Unexpected error, abort processing.
435
436 raise FND_API.G_EXC_UNEXPECTED_ERROR;
437
438 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
439
440 -- Error, abort processing
441
442 raise FND_API.G_EXC_ERROR;
443
444 end if;
445
449 Rollback to mark_dirty4;
446
447 EXCEPTION
448 WHEN FND_API.G_EXC_ERROR THEN
450 x_return_status := FND_API.G_RET_STS_ERROR;
451
452 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
453 Rollback to mark_dirty4;
454 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
455
456 WHEN OTHERS THEN
457 Rollback to mark_dirty4;
458 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
459
460 END ;
461
462
463 PROCEDURE mark_dirty (
464 p_api_version_number IN NUMBER,
465 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
466 p_pub_item IN VARCHAR2,
467 p_accessList IN asg_download.access_list,
468 p_userid_list IN asg_download.user_list,
469 p_dml_type IN CHAR,
470 p_timestamp IN DATE,
471 p_bulk_flag IN BOOLEAN,
472 x_return_status OUT NOCOPY VARCHAR2
473 )
474 IS
475 l_return_status VARCHAR2(10);
476 l_api_version_number CONSTANT NUMBER := 1.0;
477 l_api_name CONSTANT VARCHAR2(30) := 'MARK_DIRTY5';
478 BEGIN
479 -- Standard Start of API savepoint
480 SAVEPOINT mark_dirty5;
481
482 -- Standard call to check for call compatibility.
483 if NOT FND_API.Compatible_API_Call
484 (
485 l_api_version_number,
486 p_api_version_number,
487 l_api_name,
488 G_PKG_NAME
489 )
490 then
491 raise FND_API.G_EXC_UNEXPECTED_ERROR;
492 end if;
493
494 -- Initialize message list if p_init_msg_list is set to TRUE.
495 if FND_API.to_Boolean( p_init_msg_list)
496 then
497 FND_MSG_PUB.initialize;
498 end if;
499
500 -- Initialize API return status to success
501 x_return_status := FND_API.G_RET_STS_SUCCESS;
502
503 asg_custom_pvt.mark_dirty(
504 p_api_version_number => p_api_version_number,
505 p_init_msg_list => p_init_msg_list,
506 p_pub_item => upper(p_pub_item),
507 p_accessList => p_accessList,
508 p_userid_list => p_userid_list,
509 p_dml_type => p_dml_type,
510 p_timestamp => p_timestamp,
511 p_bulk_flag => p_bulk_flag,
512 x_return_status => l_return_status);
516
513
514 -- Both G_EXC_ERROR and G_EXC_UNEXPECTED_ERROR are handled in
515 -- the API exception handler.
517 if l_return_status = FND_API.G_RET_STS_UNEXP_ERROR
518 then
519
520 -- Unexpected error, abort processing.
521
522 raise FND_API.G_EXC_UNEXPECTED_ERROR;
523
524 elsif l_return_status = FND_API.G_RET_STS_ERROR THEN
525
526 -- Error, abort processing
527
528 raise FND_API.G_EXC_ERROR;
529
530 end if;
531
532
533 EXCEPTION
534 WHEN FND_API.G_EXC_ERROR THEN
535 Rollback to mark_dirty5;
536 x_return_status := FND_API.G_RET_STS_ERROR;
537
538 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
539 Rollback to mark_dirty5;
540 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541
542 WHEN OTHERS THEN
543 Rollback to mark_dirty5;
544 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
545
546 END ;
547
548
549
550
551 END ASG_CUSTOM_PUB;