[Home] [Help]
PACKAGE BODY: APPS.HZ_STYLE_FMT_LOCALE_V2PUB
Source
1 PACKAGE BODY HZ_STYLE_FMT_LOCALE_V2PUB AS
2 /*$Header: ARH2SLSB.pls 115.3 2003/12/22 14:33:59 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_fmt_locale(
19 p_style_fmt_locale_rec IN OUT NOCOPY style_fmt_locale_rec_type,
20 x_return_status IN OUT NOCOPY VARCHAR2
21 );
22
23 PROCEDURE do_update_style_fmt_locale(
24 p_style_fmt_locale_rec IN OUT NOCOPY style_fmt_locale_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_fmt_locale
93 *
94 * DESCRIPTION
95 * create style fmt locale
96
97 * 07-23-2001 Kate Shan o Created.
98 *
99 */
100
101 PROCEDURE do_create_style_fmt_locale(
102 p_style_fmt_locale_rec IN OUT NOCOPY style_fmt_locale_rec_type,
103 x_return_status IN OUT NOCOPY VARCHAR2
104 ) IS
105 l_rowid ROWID := null;
106 l_debug_prefix VARCHAR2(30) := '';
107
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_fmt_locale (+)',
113 p_prefix=>l_debug_prefix,
114 p_msg_level=>fnd_log.level_procedure);
115 END IF;
116
117 -- start_date_active default to sysdate
118 IF p_style_fmt_locale_rec.start_date_active is null OR
119 p_style_fmt_locale_rec.start_date_active = FND_API.G_MISS_DATE
120 THEN
121 p_style_fmt_locale_rec.start_date_active := sysdate;
122 END IF;
123
124 -- validate the input record
125 HZ_NAME_ADDRESS_FMT_VALIDATE.validate_style_fmt_locale(
126 'C',
127 p_style_fmt_locale_rec,
128 l_rowid,
129 x_return_status
130 );
131
132 IF x_return_status = fnd_api.g_ret_sts_error THEN
133 RAISE fnd_api.g_exc_error;
134 END IF;
135
136 -- Debug info.
137 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
138 hz_utility_v2pub.debug(p_message=>'hz_style_fmt_locales_pkg.insert_row (+)',
139 p_prefix=>l_debug_prefix,
140 p_msg_level=>fnd_log.level_procedure);
141 END IF;
142
143 HZ_STYLE_FMT_LOCALES_PKG.insert_row (
144 X_ROWID => l_rowid,
145 X_STYLE_FMT_LOCALE_ID => p_style_fmt_locale_rec.style_fmt_locale_id,
146 X_STYLE_FORMAT_CODE => p_style_fmt_locale_rec.style_format_code,
147 X_LANGUAGE_CODE => p_style_fmt_locale_rec.language_code,
148 X_TERRITORY_CODE => p_style_fmt_locale_rec.territory_code,
149 X_START_DATE_ACTIVE => p_style_fmt_locale_rec.start_date_active,
150 X_END_DATE_ACTIVE => p_style_fmt_locale_rec.end_date_active,
151 X_OBJECT_VERSION_NUMBER => 1
152 );
153
154 -- Debug info.
155 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
156 hz_utility_v2pub.debug(p_message=>'hz_style_fmt_locales_pkg.insert_row (-) ' ||
157 'p_style_fmt_locale_rec.style_fmt_locale_id = ' || p_style_fmt_locale_rec.style_fmt_locale_id,
158 p_prefix=>l_debug_prefix,
159 p_msg_level=>fnd_log.level_procedure);
160 hz_utility_v2pub.debug(p_message=>'do_create_style_fmt_locale (-)',
161 p_prefix=>l_debug_prefix,
162 p_msg_level=>fnd_log.level_procedure);
163
164 END IF;
165
166 END do_create_style_fmt_locale;
167
168 /**
169 * PRIVATE PROCEDURE do_update_style_fmt_locale
170 *
171 * DESCRIPTION
172 * update style format locale
173
174 * 07-23-2001 Kate Shan o Created.
175 *
176 */
177
178
179 PROCEDURE do_update_style_fmt_locale(
180 p_style_fmt_locale_rec IN OUT NOCOPY style_fmt_locale_rec_type,
181 p_object_version_number IN OUT NOCOPY NUMBER,
182 x_return_status IN OUT NOCOPY VARCHAR2
183 ) IS
184 l_object_version_number NUMBER;
185 l_debug_prefix VARCHAR2(30) := '';
186 l_rowid ROWID;
187
188 BEGIN
189
190 -- Debug info.
191 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
192 hz_utility_v2pub.debug(p_message=>'do_update_style_fmt_locale (+)',
193 p_prefix=>l_debug_prefix,
194 p_msg_level=>fnd_log.level_procedure);
195 END IF;
196
197 -- check whether record has been updated by another user
198 BEGIN
199 -- check last update date.
200 SELECT object_version_number, rowid
201 INTO l_object_version_number, l_rowid
202 FROM HZ_STYLE_FMT_LOCALES
203 WHERE style_fmt_locale_id = p_style_fmt_locale_rec.style_fmt_locale_id
204 FOR UPDATE of style_fmt_locale_id NOWAIT;
205
206 IF NOT (
207 ( p_object_version_number IS NULL AND l_object_version_number IS NULL ) OR
208 ( p_object_version_number IS NOT NULL AND
209 l_object_version_number IS NOT NULL AND
210 p_object_version_number = l_object_version_number ) )
211 THEN
212 FND_MESSAGE.SET_NAME('AR', 'HZ_API_RECORD_CHANGED');
213 FND_MESSAGE.SET_TOKEN('TABLE', 'hz_style_fmt_locales');
214 FND_MSG_PUB.ADD;
215 RAISE FND_API.G_EXC_ERROR;
216 END IF;
217
218 p_object_version_number := nvl(l_object_version_number, 1) + 1;
219
220 EXCEPTION WHEN NO_DATA_FOUND THEN
221 FND_MESSAGE.SET_NAME('AR', 'HZ_API_NO_RECORD');
222 FND_MESSAGE.SET_TOKEN('RECORD', 'style format locale');
223 FND_MESSAGE.SET_TOKEN('VALUE', NVL(( p_style_fmt_locale_rec.style_fmt_locale_id), 'null'));
224 FND_MSG_PUB.ADD;
225 RAISE FND_API.G_EXC_ERROR;
226 END;
227
228 -- validate style format locale record
229 HZ_NAME_ADDRESS_FMT_VALIDATE.validate_style_fmt_locale(
230 'U',
231 p_style_fmt_locale_rec,
232 l_rowid,
233 x_return_status);
234
235 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
236 RAISE FND_API.G_EXC_ERROR;
237 END IF;
238
239 -- Debug info.
240 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
241 hz_utility_v2pub.debug(p_message=>'HZ_STYLE_FMT_LOCALES_PKG.Update_Row (+)',
242 p_prefix=>l_debug_prefix,
243 p_msg_level=>fnd_log.level_procedure);
244 END IF;
245
246 -- call table handler to update a row
247 HZ_STYLE_FMT_LOCALES_PKG.Update_Row (
248 X_STYLE_FMT_LOCALE_ID => p_style_fmt_locale_rec.style_fmt_locale_id,
249 X_STYLE_FORMAT_CODE => p_style_fmt_locale_rec.style_format_code,
250 X_LANGUAGE_CODE => p_style_fmt_locale_rec.language_code,
251 X_TERRITORY_CODE => p_style_fmt_locale_rec.territory_code,
252 X_START_DATE_ACTIVE => p_style_fmt_locale_rec.start_date_active,
253 X_END_DATE_ACTIVE => p_style_fmt_locale_rec.end_date_active,
254 X_OBJECT_VERSION_NUMBER=> p_object_version_number
255 );
256
257 -- Debug info.
258 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
259 hz_utility_v2pub.debug(p_message=>'HZ_STYLE_FMT_LOCALES_PKG.Update_Row (-)',
260 p_prefix=>l_debug_prefix,
261 p_msg_level=>fnd_log.level_procedure);
262 END IF;
263
264 -- Debug info.
265 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
266 hz_utility_v2pub.debug(p_message=>'do_update_style_fmt_locale (-)',
267 p_prefix=>l_debug_prefix,
268 p_msg_level=>fnd_log.level_procedure);
269 END IF;
270
271 END do_update_style_fmt_locale;
272
273
274 --------------------------------------
275 -- declaration of public procedures and functions
276 --------------------------------------
277
278 /**
279 * PROCEDURE create_style_fmt_locale
280 *
281 * DESCRIPTION
282 * Creates style_fmt_locale.
283 *
284 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
285 *
286 * ARGUMENTS
287 * IN:
288 * p_init_msg_list Initialize message stack if it is set to
289 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
290 * p_style_fmt_locale_rec Style format locale record.
291 * IN/OUT:
292 * OUT:
293 * p_style_fmt_locale_id style_fmt_locale id
294 * x_return_status Return status after the call. The status can
295 * be FND_API.G_RET_STS_SUCCESS (success),
296 * FND_API.G_RET_STS_ERROR (error),
297 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
298 * x_msg_count Number of messages in message stack.
299 * x_msg_data Message text if x_msg_count is 1.
300 *
301 * NOTES
302 *
303 * MODIFICATION HISTORY
304 *
305 * 17-Jul-2002 Kate Shan o Created.
306 *
307 */
308
309 PROCEDURE create_style_fmt_locale (
310 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
311 p_style_fmt_locale_rec IN STYLE_FMT_LOCALE_REC_TYPE,
312 p_style_fmt_locale_id OUT NOCOPY NUMBER,
313 x_return_status OUT NOCOPY VARCHAR2,
314 x_msg_count OUT NOCOPY NUMBER,
315 x_msg_data OUT NOCOPY VARCHAR2
316 )IS
317 l_style_fmt_locale_rec STYLE_FMT_LOCALE_REC_TYPE := p_style_fmt_locale_rec;
318 l_debug_prefix VARCHAR2(30) := '';
319
320 BEGIN
321
322 -- standard start of API savepoint
323 SAVEPOINT create_style_fmt_locale;
324
325 -- Check if API is called in debug mode. If yes, enable debug.
326 --enable_debug;
327
328 -- Debug info.
329 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
330 hz_utility_v2pub.debug(p_message=>'create_style_fmt_locale (+)',
331 p_prefix=>l_debug_prefix,
332 p_msg_level=>fnd_log.level_procedure);
333 END IF;
334
335 -- initialize message list if p_init_msg_list is set to TRUE.
336 IF FND_API.to_Boolean(p_init_msg_list) THEN
337 FND_MSG_PUB.initialize;
338 END IF;
339
340 -- initialize API return status to success.
341 x_return_status := FND_API.G_RET_STS_SUCCESS;
342
343 -- call to business logic.
344 do_create_style_fmt_locale(
345 l_style_fmt_locale_rec,
346 x_return_status);
347
348 p_style_fmt_locale_id := l_style_fmt_locale_rec.style_fmt_locale_id;
349
350 -- standard call to get message count and if count is 1, get message info.
351 FND_MSG_PUB.Count_And_Get(
352 p_encoded => FND_API.G_FALSE,
353 p_count => x_msg_count,
354 p_data => x_msg_data);
355 -- Debug info.
356 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
357 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
358 p_msg_data=>x_msg_data,
359 p_msg_type=>'WARNING',
360 p_msg_level=>fnd_log.level_exception);
361 END IF;
362 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
363 hz_utility_v2pub.debug(p_message=>'create_style_fmt_locale (-)',
364 p_prefix=>l_debug_prefix,
365 p_msg_level=>fnd_log.level_procedure);
366 END IF;
367
368 -- Check if API is called in debug mode. If yes, disable debug.
369 --disable_debug;
370
371 EXCEPTION
372 WHEN FND_API.G_EXC_ERROR THEN
373 ROLLBACK TO create_style_fmt_locale;
374 x_return_status := FND_API.G_RET_STS_ERROR;
375 FND_MSG_PUB.Count_And_Get(
376 p_encoded => FND_API.G_FALSE,
377 p_count => x_msg_count,
378 p_data => x_msg_data);
379
380 -- Debug info.
381 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
382 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
383 p_msg_data=>x_msg_data,
384 p_msg_type=>'ERROR',
385 p_msg_level=>fnd_log.level_error);
386 END IF;
387 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
388 hz_utility_v2pub.debug(p_message=>'create_style_fmt_locale (-)',
389 p_prefix=>l_debug_prefix,
390 p_msg_level=>fnd_log.level_procedure);
391 END IF;
392
393 -- Check if API is called in debug mode. If yes, disable debug.
394 --disable_debug;
395
396 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
397 ROLLBACK TO create_style_fmt_locale;
398 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399 FND_MSG_PUB.Count_And_Get(
400 p_encoded => FND_API.G_FALSE,
401 p_count => x_msg_count,
402 p_data => x_msg_data);
403
404 -- Debug info.
405 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
406 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
407 p_msg_data=>x_msg_data,
408 p_msg_type=>'UNEXPECTED ERROR',
409 p_msg_level=>fnd_log.level_error);
410 END IF;
411 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
412 hz_utility_v2pub.debug(p_message=>'create_style_fmt_locale (-)',
413 p_prefix=>l_debug_prefix,
414 p_msg_level=>fnd_log.level_procedure);
415 END IF;
416
417 -- Check if API is called in debug mode. If yes, disable debug.
418 --disable_debug;
419
420 WHEN OTHERS THEN
421 ROLLBACK TO create_style_fmt_locale;
422 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
423
424 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
425 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
426 FND_MSG_PUB.ADD;
427
428 FND_MSG_PUB.Count_And_Get(
429 p_encoded => FND_API.G_FALSE,
430 p_count => x_msg_count,
431 p_data => x_msg_data);
432
433 -- Debug info.
434 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
435 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
436 p_msg_data=>x_msg_data,
437 p_msg_type=>'SQL ERROR',
438 p_msg_level=>fnd_log.level_error);
439 END IF;
440 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
441 hz_utility_v2pub.debug(p_message=>'create_style_fmt_locale (-)',
442 p_prefix=>l_debug_prefix,
443 p_msg_level=>fnd_log.level_procedure);
444 END IF;
445
446 -- Check if API is called in debug mode. If yes, disable debug.
447 --disable_debug;
448
449
450 END create_style_fmt_locale;
451
452
453 /**
454 * PROCEDURE update_style_fmt_locale
455 *
456 * DESCRIPTION
457 * Updates style_fmt_locale.
458 *
459 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
460 *
461 * ARGUMENTS
462 * IN:
463 * p_init_msg_list Initialize message stack if it is set to
464 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
465 * p_style_fmt_locale_rec Style format locale record.
466 * IN/OUT:
467 * p_object_version_number Used for locking the being updated record.
468 * OUT:
469 * x_return_status Return status after the call. The status can
470 * be FND_API.G_RET_STS_SUCCESS (success),
471 * FND_API.G_RET_STS_ERROR (error),
472 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
473 * x_msg_count Number of messages in message stack.
474 * x_msg_data Message text if x_msg_count is 1.
475 *
476 * NOTES
477 *
478 * MODIFICATION HISTORY
479 *
480 * 17-Jul-2002 Kate Shan o Created.
481 *
482 */
483
484 PROCEDURE update_style_fmt_locale (
485 p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
486 p_style_fmt_locale_rec IN STYLE_FMT_LOCALE_REC_TYPE,
487 p_object_version_number IN OUT NOCOPY NUMBER,
488 x_return_status OUT NOCOPY VARCHAR2,
489 x_msg_count OUT NOCOPY NUMBER,
490 x_msg_data OUT NOCOPY VARCHAR2
491 )IS
492
493 l_style_fmt_locale_rec STYLE_FMT_LOCALE_REC_TYPE := p_style_fmt_locale_rec;
494 l_old_style_fmt_locale_rec STYLE_FMT_LOCALE_REC_TYPE;
495 l_debug_prefix VARCHAR2(30) := '';
496
497 BEGIN
498
499 -- standard start of API savepoint
500 SAVEPOINT update_style_fmt_locale;
501
502 -- Check if API is called in debug mode. If yes, enable debug.
503 --enable_debug;
504
505 -- Debug info.
506 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
507 hz_utility_v2pub.debug(p_message=>'update_style_fmt_locale (+)',
508 p_prefix=>l_debug_prefix,
509 p_msg_level=>fnd_log.level_procedure);
510 END IF;
511
512 -- initialize message list if p_init_msg_list is set to TRUE.
513 IF FND_API.to_Boolean(p_init_msg_list) THEN
514 FND_MSG_PUB.initialize;
515 END IF;
516
517 -- initialize API return status to success.
518 x_return_status := FND_API.G_RET_STS_SUCCESS;
519
520 -- call to business logic.
521 do_update_style_fmt_locale(
522 l_style_fmt_locale_rec,
523 p_object_version_number,
524 x_return_status);
525
526 -- standard call to get message count and if count is 1, get message info.
527 FND_MSG_PUB.Count_And_Get(
528 p_encoded => FND_API.G_FALSE,
529 p_count => x_msg_count,
530 p_data => x_msg_data);
531
532 -- Debug info.
533 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
534 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
535 p_msg_data=>x_msg_data,
536 p_msg_type=>'WARNING',
537 p_msg_level=>fnd_log.level_exception);
538 END IF;
539 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
540 hz_utility_v2pub.debug(p_message=>'update_style_fmt_locale (-)',
541 p_prefix=>l_debug_prefix,
542 p_msg_level=>fnd_log.level_procedure);
543 END IF;
544
545 -- Check if API is called in debug mode. If yes, disable debug.
546 --disable_debug;
547
548 EXCEPTION
549 WHEN FND_API.G_EXC_ERROR THEN
550 ROLLBACK TO update_style_fmt_locale;
551 x_return_status := FND_API.G_RET_STS_ERROR;
552 FND_MSG_PUB.Count_And_Get(
553 p_encoded => FND_API.G_FALSE,
554 p_count => x_msg_count,
555 p_data => x_msg_data);
556
557 -- Debug info.
558 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
559 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
560 p_msg_data=>x_msg_data,
561 p_msg_type=>'ERROR',
562 p_msg_level=>fnd_log.level_error);
563 END IF;
564 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
565 hz_utility_v2pub.debug(p_message=>'update_style_fmt_locale (-)',
566 p_prefix=>l_debug_prefix,
567 p_msg_level=>fnd_log.level_procedure);
568 END IF;
569
570 -- Check if API is called in debug mode. If yes, disable debug.
571 --disable_debug;
572
573 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
574 ROLLBACK TO update_style_fmt_locale;
575 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
576 FND_MSG_PUB.Count_And_Get(
577 p_encoded => FND_API.G_FALSE,
578 p_count => x_msg_count,
579 p_data => x_msg_data);
580
581 -- Debug info.
582 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
583 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
584 p_msg_data=>x_msg_data,
585 p_msg_type=>'UNEXPECTED ERROR',
586 p_msg_level=>fnd_log.level_error);
587 END IF;
588 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
589 hz_utility_v2pub.debug(p_message=>'update_style_fmt_locale (-)',
590 p_prefix=>l_debug_prefix,
591 p_msg_level=>fnd_log.level_procedure);
592 END IF;
593
594 -- Check if API is called in debug mode. If yes, disable debug.
595 --disable_debug;
596
597 WHEN OTHERS THEN
598 ROLLBACK TO update_style_fmt_locale;
599 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600
601 FND_MESSAGE.SET_NAME('AR', 'HZ_API_OTHERS_EXCEP');
602 FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
603 FND_MSG_PUB.ADD;
604
605 FND_MSG_PUB.Count_And_Get(
606 p_encoded => FND_API.G_FALSE,
607 p_count => x_msg_count,
608 p_data => x_msg_data);
609
610 -- Debug info.
611 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
612 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
613 p_msg_data=>x_msg_data,
614 p_msg_type=>'SQL ERROR',
615 p_msg_level=>fnd_log.level_error);
616 END IF;
617 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
618 hz_utility_v2pub.debug(p_message=>'update_style_fmt_locale (-)',
619 p_prefix=>l_debug_prefix,
620 p_msg_level=>fnd_log.level_procedure);
621 END IF;
622
623 -- Check if API is called in debug mode. If yes, disable debug.
624 --disable_debug;
625
626
627 END update_style_fmt_locale;
628
629
630 /**
631 * PROCEDURE get_style_fmt_locale_rec
632 *
633 * DESCRIPTION
634 * Gets style_fmt_locale record.
635 *
636 * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
637 *
638 * ARGUMENTS
639 * IN:
640 * p_init_msg_list Initialize message stack if it is set to
641 * FND_API.G_TRUE. Default is FND_API.G_FALSE.
642 * p_style_fmt_locale_id Style format locale id.
643 * IN/OUT:
644 * OUT:
645 * x_style_fmt_locale_rec Style format locale record.
646 * x_return_status Return status after the call. The status can
647 * be FND_API.G_RET_STS_SUCCESS (success),
648 * FND_API.G_RET_STS_ERROR (error),
649 * FND_API.G_RET_STS_UNEXP_ERROR (unexpected error).
650 * x_msg_count Number of messages in message stack.
651 * x_msg_data Message text if x_msg_count is 1.
652 *
653 * NOTES
654 *
655 * MODIFICATION HISTORY
656 *
657 * 17-Jul-2002 Kate Shan o Created.
658 *
659 */
660
661 PROCEDURE get_style_fmt_locale_rec (
662 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
663 p_style_fmt_locale_id IN NUMBER,
664 x_style_fmt_locale_rec OUT NOCOPY STYLE_FMT_LOCALE_REC_TYPE,
665 x_return_status OUT NOCOPY VARCHAR2,
666 x_msg_count OUT NOCOPY NUMBER,
667 x_msg_data OUT NOCOPY VARCHAR2
668 )IS
669 l_debug_prefix VARCHAR2(30) := '';
670 BEGIN
671 -- Check if API is called in debug mode. If yes, enable debug.
672 --enable_debug;
673
674 -- Debug info.
675 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
676 hz_utility_v2pub.debug(p_message=>'get_style_fmt_locale_rec (+)',
677 p_prefix=>l_debug_prefix,
678 p_msg_level=>fnd_log.level_procedure);
679 END IF;
680
681 -- Initialize message list if p_init_msg_list is set to TRUE.
682 IF fnd_api.to_boolean(p_init_msg_list) THEN
683 fnd_msg_pub.initialize;
684 END IF;
685
686 -- Initialize API return status to success.
687 x_return_status := fnd_api.g_ret_sts_success;
688
689 -- Check whether primary key has been passed in.
690 IF p_style_fmt_locale_id IS NULL OR
691 p_style_fmt_locale_id = fnd_api.g_miss_num THEN
692 fnd_message.set_name('AR', 'HZ_API_MISSING_COLUMN');
693 fnd_message.set_token('COLUMN', 'style_fmt_locale_id');
694 fnd_msg_pub.add;
695 RAISE fnd_api.g_exc_error;
696 END IF;
697
698 x_style_fmt_locale_rec.style_fmt_locale_id := p_style_fmt_locale_id;
699
700 -- Debug info.
701 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
702 hz_utility_v2pub.debug(p_message=>'hz_style_fmt_locales_pkg.Select_Row (+)',
703 p_prefix=>l_debug_prefix,
704 p_msg_level=>fnd_log.level_procedure);
705 END IF;
706
707 hz_style_fmt_locales_pkg.select_row (
708 X_STYLE_FMT_LOCALE_ID => x_style_fmt_locale_rec.style_fmt_locale_id,
709 X_STYLE_FORMAT_CODE => x_style_fmt_locale_rec.style_format_code,
710 X_LANGUAGE_CODE => x_style_fmt_locale_rec.language_code,
711 X_TERRITORY_CODE => x_style_fmt_locale_rec.territory_code,
712 X_START_DATE_ACTIVE => x_style_fmt_locale_rec.start_date_active,
713 X_END_DATE_ACTIVE => x_style_fmt_locale_rec.end_date_active
714 );
715
716 -- Debug info.
717 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
718 hz_utility_v2pub.debug(p_message=>'hz_style_fmt_locales_pkg.select_row (-)',
719 p_prefix=>l_debug_prefix,
720 p_msg_level=>fnd_log.level_procedure);
721 END IF;
722
723 --Standard call to get message count and if count is 1, get message info.
724 fnd_msg_pub.count_and_get(
725 p_encoded => fnd_api.g_false,
726 p_count => x_msg_count,
727 p_data => x_msg_data
728 );
729
730 -- Debug info.
731 IF fnd_log.level_exception>=fnd_log.g_current_runtime_level THEN
732 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
733 p_msg_data=>x_msg_data,
734 p_msg_type=>'WARNING',
735 p_msg_level=>fnd_log.level_exception);
736 END IF;
737 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
738 hz_utility_v2pub.debug(p_message=>'get_style_fmt_locale_rec (-)',
739 p_prefix=>l_debug_prefix,
740 p_msg_level=>fnd_log.level_procedure);
741 END IF;
742
743
744 -- Check if API is called in debug mode. If yes, disable debug.
745 --disable_debug;
746 EXCEPTION
747 WHEN fnd_api.g_exc_error THEN
748 x_return_status := fnd_api.g_ret_sts_error;
749 fnd_msg_pub.count_and_get(
750 p_encoded => fnd_api.g_false,
751 p_count => x_msg_count,
752 p_data => x_msg_data
753 );
754
755 -- Debug info.
756 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
757 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
758 p_msg_data=>x_msg_data,
759 p_msg_type=>'ERROR',
760 p_msg_level=>fnd_log.level_error);
761 END IF;
762 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
763 hz_utility_v2pub.debug(p_message=>'get_style_fmt_locale_rec (-)',
764 p_prefix=>l_debug_prefix,
765 p_msg_level=>fnd_log.level_procedure);
766 END IF;
767
768 -- Check if API is called in debug mode. If yes, disable debug.
769 --disable_debug;
770
771 WHEN fnd_api.g_exc_unexpected_error THEN
772 x_return_status := fnd_api.g_ret_sts_unexp_error;
773
774 fnd_msg_pub.count_and_get(
775 p_encoded => fnd_api.g_false,
776 p_count => x_msg_count,
777 p_data => x_msg_data
778 );
779
780 -- Debug info.
781 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
782 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
783 p_msg_data=>x_msg_data,
784 p_msg_type=>'UNEXPECTED ERROR',
785 p_msg_level=>fnd_log.level_error);
786 END IF;
787 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
788 hz_utility_v2pub.debug(p_message=>'get_style_fmt_locale_rec (-)',
789 p_prefix=>l_debug_prefix,
790 p_msg_level=>fnd_log.level_procedure);
791 END IF;
792
793 -- Check if API is called in debug mode. If yes, disable debug.
794 --disable_debug;
795
796 WHEN OTHERS THEN
797 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
798
799 fnd_message.set_name('AR', 'HZ_API_OTHERS_EXCEP');
800 fnd_message.set_token('ERROR' ,SQLERRM);
801 fnd_msg_pub.add;
802
803 fnd_msg_pub.count_and_get(
804 p_encoded => fnd_api.g_false,
805 p_count => x_msg_count,
806 p_data => x_msg_data
807 );
808
809 -- Debug info.
810 IF fnd_log.level_error>=fnd_log.g_current_runtime_level THEN
811 hz_utility_v2pub.debug_return_messages(p_msg_count=>x_msg_count,
812 p_msg_data=>x_msg_data,
813 p_msg_type=>'SQL ERROR',
814 p_msg_level=>fnd_log.level_error);
815 END IF;
816 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
817 hz_utility_v2pub.debug(p_message=>'get_style_fmt_locale_rec (-)',
818 p_prefix=>l_debug_prefix,
819 p_msg_level=>fnd_log.level_procedure);
820 END IF;
821
822 -- Check if API is called in debug mode. If yes, disable debug.
823 --disable_debug;
824
825 END get_style_fmt_locale_rec;
826
827 END HZ_STYLE_FMT_LOCALE_V2PUB;