[Home] [Help]
PACKAGE BODY: APPS.HZ_STYLE_FORMAT_V2PUB
Source
1 PACKAGE BODY HZ_STYLE_FORMAT_V2PUB AS
2 /*$Header: ARH2SFSB.pls 115.3 2003/12/22 14:33:23 rchanamo noship $ */
3
4 --------------------------------------
5 -- declaration of private global varibles
6 --------------------------------------
7 g_debug_count NUMBER := 0;
8 --g_debug BOOLEAN := FALSE;
9
10 --------------------------------------
11 -- declaration of private procedures and functions
12 --------------------------------------
13 /*PROCEDURE enable_debug;
14
15 PROCEDURE disable_debug;
16 */
17
18 PROCEDURE do_create_style_format(
19 p_style_format_rec IN OUT NOCOPY style_format_rec_type,
20 x_return_status IN OUT NOCOPY VARCHAR2
21 );
22
23 PROCEDURE do_update_style_format(
24 p_style_format_rec IN OUT NOCOPY style_format_rec_type,
25 p_object_version_number IN OUT NOCOPY NUMBER,
26 x_return_status IN OUT NOCOPY VARCHAR2
27 );
28
29 --------------------------------------
30 -- private procedures and functions
31 --------------------------------------
32
33 /**
34 * PRIVATE PROCEDURE enable_debug
35 *
36 * DESCRIPTION
37 * Turn on debug mode.
38 *
39 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
40 * HZ_UTILITY_V2PUB.enable_debug
41 *
42 * MODIFICATION HISTORY
43 *
44 * 18-Jul-2001 Kate Shan o Created.
45 *
46 */
47
48 /*PROCEDURE enable_debug IS
49 BEGIN
50 g_debug_count := g_debug_count + 1;
51
52 IF g_debug_count = 1 THEN
53 IF fnd_profile.value('HZ_API_FILE_DEBUG_ON') = 'Y' OR
54 fnd_profile.value('HZ_API_DBMS_DEBUG_ON') = 'Y'
55 THEN
56 hz_utility_v2pub.enable_debug;
57 g_debug := TRUE;
58 END IF;
59 END IF;
60 END enable_debug;
61 */
62
63 /**
64 * PRIVATE PROCEDURE disable_debug
65 *
66 * DESCRIPTION
67 * Turn off debug mode.
68 *
69 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
70 * HZ_UTILITY_V2PUB.disable_debug
71 *
72 * MODIFICATION HISTORY
73 *
74 * 18-Jul-2001 Kate Shan o Created.
75 *
76 */
77
78 /*PROCEDURE disable_debug IS
79 BEGIN
80 IF g_debug THEN
81 g_debug_count := g_debug_count - 1;
82 IF g_debug_count = 0 THEN
83 hz_utility_v2pub.disable_debug;
84 g_debug := FALSE;
85 END IF;
86 END IF;
87 END disable_debug;
88 */
89
90
91 /**
92 * PRIVATE PROCEDURE do_create_style_format
93 *
94 * DESCRIPTION
95 * create style format
96
97 * 07-23-2001 Kate Shan o Created.
98 *
99 */
100
101 PROCEDURE do_create_style_format(
102 p_style_format_rec IN OUT NOCOPY style_format_rec_type,
103 x_return_status IN OUT NOCOPY VARCHAR2
104 ) IS
105 l_rowid ROWID := null;
106 l_default_rowid ROWID := null;
107 l_debug_prefix VARCHAR2(30) := '';
108 BEGIN
109
110 -- Debug info.
111 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
112 hz_utility_v2pub.debug(p_message=>'do_create_style_format (+)',
113 p_prefix=>l_debug_prefix,
114 p_msg_level=>fnd_log.level_procedure);
115 END IF;
116
117 -- validate the input record
118 HZ_NAME_ADDRESS_FMT_VALIDATE.validate_style_format(
119 'C',
120 p_style_format_rec,
121 l_rowid,
122 x_return_status
123 );
124
125 IF x_return_status = fnd_api.g_ret_sts_error THEN
126 RAISE fnd_api.g_exc_error;
127 END IF;
128
129 BEGIN
130 -- find the original default style
131 select rowid into l_default_rowid
132 from HZ_STYLE_FORMATS_B
133 where style_code = p_style_format_rec.style_code AND
134 default_flag = 'Y';
135
136 -- unset the original default record before create a new default record for a particular style_format_code
137 IF p_style_format_rec.default_flag = 'Y' THEN
138 update HZ_STYLE_FORMATS_B
139 set default_flag = 'N'
140 where rowid = l_default_rowid;
141 END IF;
142
143 EXCEPTION
144 WHEN NO_DATA_FOUND THEN
145 -- if there is no default style, set the new record as default
146 IF p_style_format_rec.default_flag = 'N' THEN
147 p_style_format_rec.default_flag := 'Y';
148 END IF;
149 END;
150
151
152 -- Debug info.
153 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
154 hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.insert_row (+)',
155 p_prefix=>l_debug_prefix,
156 p_msg_level=>fnd_log.level_procedure);
157 END IF;
158
159 HZ_STYLE_FORMATS_PKG.insert_row (
160 X_ROWID => l_rowid,
161 X_STYLE_FORMAT_CODE => p_style_format_rec.style_format_code,
162 X_STYLE_CODE => p_style_format_rec.style_code,
163 X_DEFAULT_FLAG => p_style_format_rec.default_flag,
164 X_STYLE_FORMAT_NAME => p_style_format_rec.style_format_name,
165 X_DESCRIPTION => p_style_format_rec.description,
166 x_object_version_number => 1
167 );
168
169 -- Debug info.
170 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
171 hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.insert_row (-) ' ||
172 'p_style_format_rec.style_format_code = ' || p_style_format_rec.style_format_code,
173 p_prefix=>l_debug_prefix,
174 p_msg_level=>fnd_log.level_procedure);
175 hz_utility_v2pub.debug(p_message=>'do_create_style_format (-)',
176 p_prefix=>l_debug_prefix,
177 p_msg_level=>fnd_log.level_procedure);
178
179 END IF;
180 END do_create_style_format;
181
182 /**
183 * PRIVATE PROCEDURE do_update_style_format
184 *
185 * DESCRIPTION
186 * update style format
187
188 * 07-23-2001 Kate Shan o Created.
189 *
190 */
191
192
193 PROCEDURE do_update_style_format(
194 p_style_format_rec IN OUT NOCOPY style_format_rec_type,
195 p_object_version_number IN OUT NOCOPY NUMBER,
196 x_return_status IN OUT NOCOPY VARCHAR2
197 ) IS
198 l_object_version_number NUMBER;
199 l_debug_prefix VARCHAR2(30) := '';
200 l_rowid ROWID;
201 l_default_rowid ROWID := null;
202 l_default_flag HZ_STYLE_FORMATS_B.default_flag%TYPE;
203 l_style_code HZ_STYLE_FORMATS_B.style_code%TYPE;
204 BEGIN
205
206 -- Debug info.
207
208 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
209 hz_utility_v2pub.debug(p_message=>'do_update_style_format (+)',
210 p_prefix=>l_debug_prefix,
211 p_msg_level=>fnd_log.level_procedure);
212 END IF;
213
214 -- check whether record has been updated by another user
215 BEGIN
216 -- check last update date.
217 SELECT object_version_number, default_flag, style_code, rowid
218 INTO l_object_version_number, l_default_flag, l_style_code, l_rowid
219 FROM HZ_STYLE_FORMATS_B
220 WHERE style_format_code = p_style_format_rec.style_format_code
221 FOR UPDATE of style_format_code NOWAIT;
222
223 IF NOT (
224 ( p_object_version_number IS NULL AND l_object_version_number IS NULL ) OR
225 ( p_object_version_number IS NOT NULL AND
226 l_object_version_number IS NOT NULL AND
227 p_object_version_number = l_object_version_number ) )
228 THEN
229 FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
230 FND_MESSAGE.SET_TOKEN('TABLE', 'hz_style_formats');
231 FND_MSG_PUB.ADD;
232 RAISE FND_API.G_EXC_ERROR;
233 END IF;
234
235 p_object_version_number := nvl(l_object_version_number, 1) + 1;
236
237 EXCEPTION WHEN NO_DATA_FOUND THEN
238 FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
239 FND_MESSAGE.SET_TOKEN('RECORD', 'style format');
240 FND_MESSAGE.SET_TOKEN('VALUE', NVL(( p_style_format_rec.style_format_code), 'null'));
241 FND_MSG_PUB.ADD;
242 RAISE FND_API.G_EXC_ERROR;
243 END;
244
245 -- validate style format record
246 HZ_NAME_ADDRESS_FMT_VALIDATE.validate_style_format(
247 'U',
248 p_style_format_rec,
249 l_rowid,
250 x_return_status);
251
252 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
253 RAISE FND_API.G_EXC_ERROR;
254 END IF;
255
256 -- default_flag cannot be set from 'Y' to 'N'
257 IF p_style_format_rec.default_flag = 'Y' AND
258 l_default_flag = 'N'
259 THEN
260 BEGIN
261 -- find the default style record
262 select rowid into l_default_rowid
263 from HZ_STYLE_FORMATS_B
264 where style_code = l_style_code AND
265 default_flag = 'Y';
266
267 -- unset the original default record before create a new default record for a particular style_format_code
268 update HZ_STYLE_FORMATS_B
269 set default_flag = 'N'
270 where rowid = l_default_rowid;
271 EXCEPTION
272 WHEN NO_DATA_FOUND THEN
273 NULL;
274 END;
275 ELSE
276 -- ignore the value of default flag if the flag
277 -- has been set to 'N' or NULL or FND_API.G_MISS_CHAR.
278 -- user can not unset a primary address flag by passing
279 -- value 'N' or NULL. to unset a default flag, he/she
280 -- needs to select another style format as primary. this
281 -- style format will be unmarked automatically.
282
283 p_style_format_rec.default_flag := NULL;
284
285 END IF;
286
287 -- Debug info.
288 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
289 hz_utility_v2pub.debug(p_message=>'HZ_STYLE_FORMATS_PKG.Update_Row (+)',
290 p_prefix=>l_debug_prefix,
291 p_msg_level=>fnd_log.level_procedure);
292 END IF;
293
294 -- call table handler to update a row
295 HZ_STYLE_FORMATS_PKG.Update_Row (
296 X_STYLE_FORMAT_CODE => p_style_format_rec.style_format_code,
297 X_STYLE_CODE => p_style_format_rec.style_code,
298 X_DEFAULT_FLAG => p_style_format_rec.default_flag,
299 X_STYLE_FORMAT_NAME => p_style_format_rec.style_format_name,
300 X_DESCRIPTION => p_style_format_rec.description,
301 X_OBJECT_VERSION_NUMBER => p_object_version_number
302 );
303
304 -- Debug info.
305 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
306 hz_utility_v2pub.debug(p_message=>'HZ_STYLE_FORMATS_PKG.Update_Row (-)',
307 p_prefix=>l_debug_prefix,
308 p_msg_level=>fnd_log.level_procedure);
309 END IF;
310
311 -- Debug info.
312 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
316 END IF;
313 hz_utility_v2pub.debug(p_message=>'do_update_style_format (-)',
314 p_prefix=>l_debug_prefix,
315 p_msg_level=>fnd_log.level_procedure);
317
318 END do_update_style_format;
319
320 --------------------------------------
321 -- declaration of public procedures and functions
322 --------------------------------------
323
324 /**
325 * PROCEDURE create_style_format
326 *
327 * DESCRIPTION
328 * Creates style_format.
329 *
330 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
331 *
332 * ARGUMENTS
333 * IN:
334 * p_init_msg_list Initialize message stack if it is set to
335 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
336 * p_style_format_rec Style format record.
337 * IN/OUT:
338 * OUT:
339 * x_return_status Return status after the call. The status can
340 * be FND_API.G_RET_STS_SUCCESS (success),
341 * FND_API.G_RET_STS_ERROR (error),
342 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
343 * x_msg_count Number of messages in message stack.
344 * x_msg_data Message text if x_msg_count is 1.
345 *
346 * NOTES
347 *
348 * MODIFICATION HISTORY
349 *
350 * 17-Jul-2002 Kate Shan o Created.
351 *
352 */
353
354 PROCEDURE create_style_format (
355 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
356 p_style_format_rec IN STYLE_FORMAT_REC_TYPE,
357 x_return_status OUT NOCOPY VARCHAR2,
358 x_msg_count OUT NOCOPY NUMBER,
359 x_msg_data OUT NOCOPY VARCHAR2
360 ) IS
361 l_style_format_rec STYLE_FORMAT_REC_TYPE := p_style_format_rec;
362 l_debug_prefix VARCHAR2(30) := '';
363
364 BEGIN
365
366 -- standard start of API savepoint
367 SAVEPOINT create_style_format;
368
369 -- Check if API is called in debug mode. If yes, enable debug.
370 --enable_debug;
371
372 -- Debug info.
373 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
374 hz_utility_v2pub.debug(p_message=>'create_style_format (+)',
375 p_prefix=>l_debug_prefix,
376 p_msg_level=>fnd_log.level_procedure);
377 END IF;
378
379 -- initialize message list if p_init_msg_list is set to TRUE.
380 IF FND_API.to_Boolean(p_init_msg_list) THEN
381 FND_MSG_PUB.initialize;
382 END IF;
383
384 -- initialize API return status to success.
385 x_return_status := FND_API.G_RET_STS_SUCCESS;
386
387 -- call to business logic.
388 do_create_style_format(
389 l_style_format_rec,
390 x_return_status);
391
392 -- standard call to get message count and if count is 1, get message info.
393 FND_MSG_PUB.Count_And_Get(
394 p_encoded => FND_API.G_FALSE,
395 p_count => x_msg_count,
396 p_data => x_msg_data);
397 -- Debug info.
398 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
399 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
400 p_msg_data=>x_msg_data,
401 p_msg_type=>'WARNING',
402 p_msg_level=>fnd_log.level_exception);
403 END IF;
404 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
405 hz_utility_v2pub.debug(p_message=>'create_style_format (-)',
406 p_prefix=>l_debug_prefix,
407 p_msg_level=>fnd_log.level_procedure);
408 END IF;
409
410 -- Check if API is called in debug mode. If yes, disable debug.
411 --disable_debug;
412
413 EXCEPTION
414 WHEN FND_API.G_EXC_ERROR THEN
415 ROLLBACK TO create_style_format;
416 x_return_status := FND_API.G_RET_STS_ERROR;
417 FND_MSG_PUB.Count_And_Get(
418 p_encoded => FND_API.G_FALSE,
419 p_count => x_msg_count,
420 p_data => x_msg_data);
421
422 -- Debug info.
423 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
424 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
425 p_msg_data=>x_msg_data,
426 p_msg_type=>'ERROR',
427 p_msg_level=>fnd_log.level_error);
428 END IF;
429 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
430 hz_utility_v2pub.debug(p_message=>'create_style_format (-)',
431 p_prefix=>l_debug_prefix,
432 p_msg_level=>fnd_log.level_procedure);
433 END IF;
434
435 -- Check if API is called in debug mode. If yes, disable debug.
436 --disable_debug;
437
438 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439 ROLLBACK TO create_style_format;
440 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
441 FND_MSG_PUB.Count_And_Get(
442 p_encoded => FND_API.G_FALSE,
443 p_count => x_msg_count,
444 p_data => x_msg_data);
445
446 -- Debug info.
447 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
448 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
449 p_msg_data=>x_msg_data,
450 p_msg_type=>'UNEXPECTED ERROR',
451 p_msg_level=>fnd_log.level_error);
452 END IF;
453 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
457 END IF;
454 hz_utility_v2pub.debug(p_message=>'create_style_format (-)',
455 p_prefix=>l_debug_prefix,
456 p_msg_level=>fnd_log.level_procedure);
458
459 -- Check if API is called in debug mode. If yes, disable debug.
460 --disable_debug;
461
462 WHEN OTHERS THEN
463 ROLLBACK TO create_style_format;
464 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465
466 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
467 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
468 FND_MSG_PUB.ADD;
469
470 FND_MSG_PUB.Count_And_Get(
471 p_encoded => FND_API.G_FALSE,
472 p_count => x_msg_count,
473 p_data => x_msg_data);
474
475 -- Debug info.
476 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
477 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
478 p_msg_data=>x_msg_data,
479 p_msg_type=>'SQL ERROR',
480 p_msg_level=>fnd_log.level_error);
481 END IF;
482 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
483 hz_utility_v2pub.debug(p_message=>'create_style_format (-)',
484 p_prefix=>l_debug_prefix,
485 p_msg_level=>fnd_log.level_procedure);
486 END IF;
487
488 -- Check if API is called in debug mode. If yes, disable debug.
489 --disable_debug;
490
491
492 END create_style_format;
493
494 /**
495 * PROCEDURE update_style_format
496 *
497 * DESCRIPTION
498 * Updates style_format.
499 *
500 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
501 *
502 * ARGUMENTS
503 * IN:
504 * p_init_msg_list Initialize message stack if it is set to
505 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
506 * p_style_format_rec Style record.
507 * IN/OUT:
508 * p_object_version_number Used for locking the being updated record.
509 * OUT:
510 * x_return_status Return status after the call. The status can
511 * be FND_API.G_RET_STS_SUCCESS (success),
512 * FND_API.G_RET_STS_ERROR (error),
513 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
514 * x_msg_count Number of messages in message stack.
515 * x_msg_data Message text if x_msg_count is 1.
516 *
517 * NOTES
518 *
519 * MODIFICATION HISTORY
520 *
521 * 17-Jul-2002 Kate Shan o Created.
522 *
523 */
524
525 PROCEDURE update_style_format (
526 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
527 p_style_format_rec IN STYLE_FORMAT_REC_TYPE,
528 p_object_version_number IN OUT NOCOPY NUMBER,
529 x_return_status OUT NOCOPY VARCHAR2,
530 x_msg_count OUT NOCOPY NUMBER,
531 x_msg_data OUT NOCOPY VARCHAR2
532 )IS
533
534 l_style_format_rec STYLE_FORMAT_REC_TYPE := p_style_format_rec;
535 l_old_style_format_rec STYLE_FORMAT_REC_TYPE;
536 l_debug_prefix VARCHAR2(30) := '';
537
538 BEGIN
539
540 -- standard start of API savepoint
541 SAVEPOINT update_style_format;
542
543 -- Check if API is called in debug mode. If yes, enable debug.
544 --enable_debug;
545
546 -- Debug info.
547 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
548 hz_utility_v2pub.debug(p_message=>'update_style_format (+)',
549 p_prefix=>l_debug_prefix,
550 p_msg_level=>fnd_log.level_procedure);
551 END IF;
552
553 -- initialize message list if p_init_msg_list is set to TRUE.
554 IF FND_API.to_Boolean(p_init_msg_list) THEN
555 FND_MSG_PUB.initialize;
556 END IF;
557
558 -- initialize API return status to success.
559 x_return_status := FND_API.G_RET_STS_SUCCESS;
560
561 -- call to business logic.
562 do_update_style_format(
563 l_style_format_rec,
564 p_object_version_number,
565 x_return_status);
566
567 -- standard call to get message count and if count is 1, get message info.
568 FND_MSG_PUB.Count_And_Get(
569 p_encoded => FND_API.G_FALSE,
570 p_count => x_msg_count,
571 p_data => x_msg_data);
572
573 -- Debug info.
574 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
575 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
576 p_msg_data=>x_msg_data,
577 p_msg_type=>'WARNING',
578 p_msg_level=>fnd_log.level_exception);
579 END IF;
580 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
581 hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
582 p_prefix=>l_debug_prefix,
583 p_msg_level=>fnd_log.level_procedure);
584 END IF;
585
586 -- Check if API is called in debug mode. If yes, disable debug.
587 --disable_debug;
588
589 EXCEPTION
590 WHEN FND_API.G_EXC_ERROR THEN
591 ROLLBACK TO update_style_format;
592 x_return_status := FND_API.G_RET_STS_ERROR;
593 FND_MSG_PUB.Count_And_Get(
594 p_encoded => FND_API.G_FALSE,
595 p_count => x_msg_count,
596 p_data => x_msg_data);
597
601 p_msg_data=>x_msg_data,
598 -- Debug info.
599 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
600 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
602 p_msg_type=>'ERROR',
603 p_msg_level=>fnd_log.level_error);
604 END IF;
605 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
606 hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
607 p_prefix=>l_debug_prefix,
608 p_msg_level=>fnd_log.level_procedure);
609 END IF;
610
611 -- Check if API is called in debug mode. If yes, disable debug.
612 --disable_debug;
613
614 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
615 ROLLBACK TO update_style_format;
616 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
617 FND_MSG_PUB.Count_And_Get(
618 p_encoded => FND_API.G_FALSE,
619 p_count => x_msg_count,
620 p_data => x_msg_data);
621
622 -- Debug info.
623 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
624 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
625 p_msg_data=>x_msg_data,
626 p_msg_type=>'UNEXPECTED ERROR',
627 p_msg_level=>fnd_log.level_error);
628 END IF;
629 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
630 hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
631 p_prefix=>l_debug_prefix,
632 p_msg_level=>fnd_log.level_procedure);
633 END IF;
634
635 -- Check if API is called in debug mode. If yes, disable debug.
636 --disable_debug;
637
638 WHEN OTHERS THEN
639 ROLLBACK TO update_style_format;
640 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
641
642 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
643 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
644 FND_MSG_PUB.ADD;
645
646 FND_MSG_PUB.Count_And_Get(
647 p_encoded => FND_API.G_FALSE,
648 p_count => x_msg_count,
649 p_data => x_msg_data);
650
651 -- Debug info.
652 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
653 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
654 p_msg_data=>x_msg_data,
655 p_msg_type=>'SQL ERROR',
656 p_msg_level=>fnd_log.level_error);
657 END IF;
658 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
659 hz_utility_v2pub.debug(p_message=>'update_style_format (-)',
660 p_prefix=>l_debug_prefix,
661 p_msg_level=>fnd_log.level_procedure);
662 END IF;
663
664 -- Check if API is called in debug mode. If yes, disable debug.
665 --disable_debug;
666
667
668 END update_style_format;
669
670
671 /**
672 * PROCEDURE get_style_format_rec
673 *
674 * DESCRIPTION
675 * Gets style_format record.
676 *
677 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
678 *
679 * ARGUMENTS
680 * IN:
681 * p_init_msg_list Initialize message stack if it is set to
682 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
683 * p_style_format_code Style Code.
684 * IN/OUT:
685 * OUT:
686 * x_style_format_rec Style record.
687 * x_return_status Return status after the call. The status can
688 * be FND_API.G_RET_STS_SUCCESS (success),
689 * FND_API.G_RET_STS_ERROR (error),
690 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
691 * x_msg_count Number of messages in message stack.
692 * x_msg_data Message text if x_msg_count is 1.
693 *
694 * NOTES
695 *
696 * MODIFICATION HISTORY
697 *
698 * 17-Jul-2002 Kate Shan o Created.
699 *
700 */
701
702 PROCEDURE get_style_format_rec (
703 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
704 p_style_format_code IN VARCHAR2,
705 x_style_format_rec OUT NOCOPY STYLE_FORMAT_REC_TYPE,
706 x_return_status OUT NOCOPY VARCHAR2,
707 x_msg_count OUT NOCOPY NUMBER,
708 x_msg_data OUT NOCOPY VARCHAR2
709 )IS
710 l_debug_prefix VARCHAR2(30) := '';
711 BEGIN
712 -- Check if API is called in debug mode. If yes, enable debug.
713 --enable_debug;
714
715 -- Debug info.
716 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
717 hz_utility_v2pub.debug(p_message=>'get_style_format_rec (+)',
718 p_prefix=>l_debug_prefix,
719 p_msg_level=>fnd_log.level_procedure);
720 END IF;
721
722 -- Initialize message list if p_init_msg_list is set to TRUE.
723 IF fnd_api.to_boolean(p_init_msg_list) THEN
724 fnd_msg_pub.initialize;
725 END IF;
726
727 -- Initialize API return status to success.
728 x_return_status := fnd_api.g_ret_sts_success;
729
730 -- Check whether primary key has been passed in.
731 IF p_style_format_code IS NULL OR
732 p_style_format_code = fnd_api.g_miss_char THEN
733 fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
734 fnd_message.set_token('COLUMN', 'style_format_code');
735 fnd_msg_pub.add;
736 RAISE fnd_api.g_exc_error;
737 END IF;
738
739 x_style_format_rec.style_format_code := p_style_format_code;
740
741 -- Debug info.
742 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
743 hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.Select_Row (+)',
744 p_prefix=>l_debug_prefix,
745 p_msg_level=>fnd_log.level_procedure);
746 END IF;
747
748 hz_style_formats_pkg.select_row (
749 X_STYLE_FORMAT_CODE => x_style_format_rec.style_format_code,
750 X_STYLE_CODE => x_style_format_rec.style_code,
751 X_DEFAULT_FLAG => x_style_format_rec.default_flag,
752 X_STYLE_FORMAT_NAME => x_style_format_rec.style_format_name,
753 X_DESCRIPTION => x_style_format_rec.description
754 );
755
756 -- Debug info.
757 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
758 hz_utility_v2pub.debug(p_message=>'hz_style_formats_pkg.select_row (-)',
759 p_prefix=>l_debug_prefix,
760 p_msg_level=>fnd_log.level_procedure);
761 END IF;
762
763 --Standard call to get message count and if count is 1, get message info.
764 fnd_msg_pub.count_and_get(
765 p_encoded => fnd_api.g_false,
766 p_count => x_msg_count,
767 p_data => x_msg_data
768 );
769
770 -- Debug info.
771 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
772 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
773 p_msg_data=>x_msg_data,
774 p_msg_type=>'WARNING',
775 p_msg_level=>fnd_log.level_exception);
776 END IF;
777 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
778 hz_utility_v2pub.debug(p_message=>'get_style_format_rec (-)',
779 p_prefix=>l_debug_prefix,
780 p_msg_level=>fnd_log.level_procedure);
781 END IF;
782
783 -- Check if API is called in debug mode. If yes, disable debug.
784 --disable_debug;
785 EXCEPTION
786 WHEN fnd_api.g_exc_error THEN
787 x_return_status := fnd_api.g_ret_sts_error;
788 fnd_msg_pub.count_and_get(
789 p_encoded => fnd_api.g_false,
790 p_count => x_msg_count,
791 p_data => x_msg_data
792 );
793
794 -- Debug info.
795 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
796 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
797 p_msg_data=>x_msg_data,
798 p_msg_type=>'ERROR',
799 p_msg_level=>fnd_log.level_error);
800 END IF;
801 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
802 hz_utility_v2pub.debug(p_message=>'get_style_format_rec (-)',
803 p_prefix=>l_debug_prefix,
804 p_msg_level=>fnd_log.level_procedure);
805 END IF;
806
807 -- Check if API is called in debug mode. If yes, disable debug.
808 --disable_debug;
809
810 WHEN fnd_api.g_exc_unexpected_error THEN
811 x_return_status := fnd_api.g_ret_sts_unexp_error;
812
813 fnd_msg_pub.count_and_get(
814 p_encoded => fnd_api.g_false,
815 p_count => x_msg_count,
816 p_data => x_msg_data
817 );
818
819 -- Debug info.
820 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
821 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
822 p_msg_data=>x_msg_data,
823 p_msg_type=>'UNEXPECTED ERROR',
824 p_msg_level=>fnd_log.level_error);
825 END IF;
826 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
827 hz_utility_v2pub.debug(p_message=>'get_style_format_rec (-)',
828 p_prefix=>l_debug_prefix,
829 p_msg_level=>fnd_log.level_procedure);
830 END IF;
831
832
833 -- Check if API is called in debug mode. If yes, disable debug.
834 --disable_debug;
835
836 WHEN OTHERS THEN
837 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
838
839 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
840 fnd_message.set_token('ERROR' ,SQLERRM);
841 fnd_msg_pub.add;
842
843 fnd_msg_pub.count_and_get(
844 p_encoded => fnd_api.g_false,
845 p_count => x_msg_count,
846 p_data => x_msg_data
847 );
848
849 -- Debug info.
850 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
851 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
852 p_msg_data=>x_msg_data,
853 p_msg_type=>'SQL ERROR',
854 p_msg_level=>fnd_log.level_error);
855 END IF;
856 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
857 hz_utility_v2pub.debug(p_message=>'get_style_format_rec (-)',
858 p_prefix=>l_debug_prefix,
859 p_msg_level=>fnd_log.level_procedure);
860 END IF;
861
862 -- Check if API is called in debug mode. If yes, disable debug.
863 --disable_debug;
864
865 END get_style_format_rec;
866
867
868 END HZ_STYLE_FORMAT_V2PUB;