APPS.HZ_CUST_CLASS_DENORM dependencies on HZ_CUST_CLASS_DENORM

Line 1: PACKAGE BODY HZ_CUST_CLASS_DENORM AS

1: PACKAGE BODY HZ_CUST_CLASS_DENORM AS
2: /* $Header: ARHCLDPB.pls 120.11 2005/10/30 04:17:50 appldev noship $ */
3:
4: --
5: -- HISTORY

Line 185: FOR I IN 2 ..HZ_CUST_CLASS_DENORM.G_CODE_LEVEL LOOP

181: AND CCR.CLASS_CATEGORY = LT.LOOKUP_TYPE
182: AND sysdate between ccr.start_date_active and nvl(ccr.end_date_active,sysdate));
183:
184: --Loop insert nodes in increasing level order starting from level 2 exit when no data found
185: FOR I IN 2 ..HZ_CUST_CLASS_DENORM.G_CODE_LEVEL LOOP
186: BEGIN
187:
188: INSERT INTO HZ_CLASS_CODE_DENORM (
189: CLASS_CATEGORY,

Line 423: FOR I IN 2 ..HZ_CUST_CLASS_DENORM.G_CODE_LEVEL LOOP

419: AND sysdate between ccr.start_date_active and nvl(ccr.end_date_active,sysdate));
420:
421:
422: --Loop insert nodes in increasing level order starting from level 2 exit when no data found
423: FOR I IN 2 ..HZ_CUST_CLASS_DENORM.G_CODE_LEVEL LOOP
424: BEGIN
425:
426: INSERT INTO HZ_CLASS_CODE_DENORM (
427: CLASS_CATEGORY,

Line 677: ERRBUF := ERRBUF||'Error in HZ_CUST_CLASS_DENORM.Main:'||to_char(sqlcode)||sqlerrm;

673: END IF;
674:
675: Write_Log(G_DEBUG_CONCURRENT, 1, 'Process Completed @: '||to_char(sysdate,'DD-MON-RRRR:HH:MI:SS'));
676: EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
677: ERRBUF := ERRBUF||'Error in HZ_CUST_CLASS_DENORM.Main:'||to_char(sqlcode)||sqlerrm;
678: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
679: Write_Log(G_DEBUG_CONCURRENT, 1,'Error in HZ_CUST_CLASS_DENORM.Main');
680: Write_Log(G_DEBUG_CONCURRENT, 1,sqlerrm);
681: ROLLBACK to main;

Line 679: Write_Log(G_DEBUG_CONCURRENT, 1,'Error in HZ_CUST_CLASS_DENORM.Main');

675: Write_Log(G_DEBUG_CONCURRENT, 1, 'Process Completed @: '||to_char(sysdate,'DD-MON-RRRR:HH:MI:SS'));
676: EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
677: ERRBUF := ERRBUF||'Error in HZ_CUST_CLASS_DENORM.Main:'||to_char(sqlcode)||sqlerrm;
678: RETCODE := FND_API.G_RET_STS_UNEXP_ERROR ;
679: Write_Log(G_DEBUG_CONCURRENT, 1,'Error in HZ_CUST_CLASS_DENORM.Main');
680: Write_Log(G_DEBUG_CONCURRENT, 1,sqlerrm);
681: ROLLBACK to main;
682: l_status := fnd_concurrent.set_completion_status('ERROR',sqlerrm);
683: IF l_status = TRUE THEN

Line 687: ERRBUF := ERRBUF||'Error in HZ_CUST_CLASS_DENORM.Main:'||to_char(sqlcode)||sqlerrm;

683: IF l_status = TRUE THEN
684: Write_Log(G_DEBUG_CONCURRENT, 1, 'Error, can not complete Concurrent Program') ;
685: END IF;
686: WHEN OTHERS THEN
687: ERRBUF := ERRBUF||'Error in HZ_CUST_CLASS_DENORM.Main:'||to_char(sqlcode)||sqlerrm;
688: RETCODE := '2';
689: Write_Log(G_DEBUG_CONCURRENT, 1,'Error in HZ_CUST_CLASS_DENORM.Main');
690: Write_Log(G_DEBUG_CONCURRENT, 1,sqlerrm);
691: ROLLBACK to main;

Line 689: Write_Log(G_DEBUG_CONCURRENT, 1,'Error in HZ_CUST_CLASS_DENORM.Main');

685: END IF;
686: WHEN OTHERS THEN
687: ERRBUF := ERRBUF||'Error in HZ_CUST_CLASS_DENORM.Main:'||to_char(sqlcode)||sqlerrm;
688: RETCODE := '2';
689: Write_Log(G_DEBUG_CONCURRENT, 1,'Error in HZ_CUST_CLASS_DENORM.Main');
690: Write_Log(G_DEBUG_CONCURRENT, 1,sqlerrm);
691: ROLLBACK to main;
692: l_status := fnd_concurrent.set_completion_status('ERROR',sqlerrm);
693: IF l_status = TRUE THEN

Line 700: End HZ_CUST_CLASS_DENORM;

696:
697: end Main;
698:
699:
700: End HZ_CUST_CLASS_DENORM;