DBA Data[Home] [Help]

APPS.FII_COM_MAINTAIN_PKG dependencies on FII_COM_MAINTAIN_PKG

Line 1: PACKAGE BODY FII_COM_MAINTAIN_PKG AS

1: PACKAGE BODY FII_COM_MAINTAIN_PKG AS
2: /* $Header: FIICOCMB.pls 120.2 2006/09/26 12:36:00 arcdixit ship $ */
3:
4:
5: G_MASTER_VALUE_SET_ID NUMBER(15) := NULL;

Line 150: FII_UTIL.initialize('FII_COM_MAINTAIN_PKG.log',

146: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
147: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
148: -- the log files and output files are written to
149: ----------------------------------------------------------------
150: FII_UTIL.initialize('FII_COM_MAINTAIN_PKG.log',
151: 'FII_COM_MAINTAIN_PKG.out',l_dir,'FII_COM_MAINTAIN_PKG');
152:
153: -- --------------------------------------------------------
154: -- Check source ledger setup for DBI

Line 151: 'FII_COM_MAINTAIN_PKG.out',l_dir,'FII_COM_MAINTAIN_PKG');

147: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
148: -- the log files and output files are written to
149: ----------------------------------------------------------------
150: FII_UTIL.initialize('FII_COM_MAINTAIN_PKG.log',
151: 'FII_COM_MAINTAIN_PKG.out',l_dir,'FII_COM_MAINTAIN_PKG');
152:
153: -- --------------------------------------------------------
154: -- Check source ledger setup for DBI
155: -- --------------------------------------------------------

Line 317: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Initialize : '|| 'User defined error');

313: --Let the main program handle this
314: raise;
315:
316: When CODIM_fatal_err then
317: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Initialize : '|| 'User defined error');
318: FND_CONCURRENT.Af_Rollback;
319: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Initialize');
320: raise;
321:

Line 319: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Initialize');

315:
316: When CODIM_fatal_err then
317: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Initialize : '|| 'User defined error');
318: FND_CONCURRENT.Af_Rollback;
319: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Initialize');
320: raise;
321:
322: When others then
323: FII_UTIL.Write_Log ('Unexpected error when calling Initialize...');

Line 356: FII_MESSAGE.Func_Ent ('FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

352:
353: BEGIN
354:
355: IF (FIIDIM_Debug) THEN
356: FII_MESSAGE.Func_Ent ('FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
357: END IF;
358:
359: --First, insert records for the master value set
360: g_phase := 'insert records for the master value set';

Line 457: FII_MESSAGE.Func_Succ ('FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

453: (ownname => g_schema_name,
454: tabname => 'FII_DIM_NORM_HIER_GT');
455:
456: IF (FIIDIM_Debug) THEN
457: FII_MESSAGE.Func_Succ ('FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
458: END IF;
459:
460: Exception
461:

Line 463: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||

459:
460: Exception
461:
462: When CODIM_fatal_err then
463: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||
464:
465:
466: 'User defined error');
467: FND_CONCURRENT.Af_Rollback;

Line 468: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

464:
465:
466: 'User defined error');
467: FND_CONCURRENT.Af_Rollback;
468: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
469: raise;
470:
471: When others then
472: FII_UTIL.Write_Log ('Unexpected error when calling Get_NORM_HIERARCHY_TMP.');

Line 518: FII_MESSAGE.Func_Ent ('FII_COM_MAINTAIN_PKG.Detect_Diamond_Shape');

514:
515: BEGIN
516:
517: IF (FIIDIM_Debug) THEN
518: FII_MESSAGE.Func_Ent ('FII_COM_MAINTAIN_PKG.Detect_Diamond_Shape');
519: END IF;
520:
521: -- check whole TMP hierarhy table: if there is a diamond
522: -- report and raise an exception

Line 561: FII_MESSAGE.Func_Succ ('FII_COM_MAINTAIN_PKG.Detect_Diamond_Shape');

557:
558: END LOOP;
559:
560: IF (FIIDIM_Debug) THEN
561: FII_MESSAGE.Func_Succ ('FII_COM_MAINTAIN_PKG.Detect_Diamond_Shape');
562: END IF;
563:
564: IF l_count > 0 THEN
565: RAISE CODIM_MULT_PAR_err;

Line 571: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Detect_Diamond_Shape: '||

567:
568: Exception
569:
570: When CODIM_MULT_PAR_err then
571: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Detect_Diamond_Shape: '||
572: 'diamond shape detected!');
573: RAISE;
574:
575: When others then

Line 687: (func_name => 'FII_COM_MAINTAIN_PKG.Insert_Imm_Child_Nodes');

683: EXCEPTION
684: WHEN NO_DATA_FOUND Then
685: FII_UTIL.Write_Log ('Insert Immediate child: No Data Found');
686: FII_MESSAGE.Func_Fail
687: (func_name => 'FII_COM_MAINTAIN_PKG.Insert_Imm_Child_Nodes');
688: RAISE;
689:
690: WHEN OTHERS Then
691: FII_UTIL.Write_Log (substr(SQLERRM,1,180));

Line 693: (func_name => 'FII_COM_MAINTAIN_PKG.INSERT_IMM_CHILD_NODES');

689:
690: WHEN OTHERS Then
691: FII_UTIL.Write_Log (substr(SQLERRM,1,180));
692: FII_MESSAGE.Func_Fail
693: (func_name => 'FII_COM_MAINTAIN_PKG.INSERT_IMM_CHILD_NODES');
694: RAISE;
695:
696: END INSERT_IMM_CHILD_NODES;
697:

Line 715: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.'||

711:
712: BEGIN
713:
714: IF (FIIDIM_Debug) THEN
715: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.'||
716: 'Flatten_CO_Dim_Hier');
717: END IF;
718: g_phase := 'Truncate table FII_COMPANY_HIER_GT';
719: FII_UTIL.truncate_table ('FII_COMPANY_HIER_GT', 'FII', g_retcode);

Line 925: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||

921: EXCEPTION
922:
923: WHEN NO_DATA_FOUND THEN
924: FII_UTIL.Write_Log ('Flatten_COM_Dim_Hier: No Data Found');
925: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||
926: 'Flatten_CO_Dim_Hier');
927: raise;
928:
929: WhEN CODIM_MULT_PAR_err THEN

Line 937: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||

933: raise;
934:
935: WHEN OTHERS THEN
936: FII_UTIL.Write_Log ('Flatten_CO_Dim_Hier: '|| substr(sqlerrm,1,180));
937: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||
938: 'Flatten_CO_Dim_Hier');
939: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
940: raise;
941:

Line 1017: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.'||

1013:
1014: Begin
1015:
1016: IF (FIIDIM_Debug) THEN
1017: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.'||
1018: 'Get_Pruned_CO_GT');
1019: END IF;
1020: --Delete from FII_company_HIER_GT for child value set not equal to
1021: --the master value set and not equal to the UNASSIGNED value set.

Line 1069: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.'||

1065: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in FII_COMPANY_HIER_GT');
1066: END IF;
1067:
1068: IF (FIIDIM_Debug) THEN
1069: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.'||
1070: 'Get_Pruned_CO_GT');
1071: END IF;
1072: EXCEPTION
1073:

Line 1077: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||

1073:
1074: WHEN OTHERS THEN
1075: FII_UTIL.Write_Log ('Get_Pruned_CO_GT -> phase: '|| g_phase);
1076: FII_UTIL.Write_Log ('Get_Pruned_CO_GT: '|| substr(sqlerrm,1,180));
1077: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||
1078: 'Get_Pruned_CO_GT');
1079: raise;
1080:
1081: END Get_Pruned_CO_GT;

Line 1094: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.'||

1090:
1091: Begin
1092:
1093: IF (FIIDIM_Debug) THEN
1094: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.'||
1095: 'Handle_Unenabled_DIM');
1096: END IF;
1097: -- Bug 4147558.
1098: g_phase := 'Check if the dimension was already disabled';

Line 1197: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.'||

1193: commit;
1194: END IF;
1195:
1196: IF (FIIDIM_Debug) THEN
1197: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.'||
1198: 'Handle_Unenabled_DIM');
1199: END IF;
1200: EXCEPTION
1201:

Line 1204: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||

1200: EXCEPTION
1201:
1202: WHEN OTHERS THEN
1203: FII_UTIL.Write_Log ('Handle_Unenabled_DIM: '|| substr(sqlerrm,1,180));
1204: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.'||
1205: 'Handle_Unenabled_DIM');
1206: raise;
1207:
1208: END Handle_Unenabled_DIM;

Line 1222: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

1218:
1219: BEGIN
1220:
1221: IF (FIIDIM_Debug) THEN
1222: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');
1223: END IF;
1224:
1225: g_load_mode := 'INIT';
1226:

Line 1370: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

1366:
1367: FND_CONCURRENT.Af_Commit;
1368:
1369: IF (FIIDIM_Debug) THEN
1370: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');
1371: END IF;
1372:
1373: -- Exception handling
1374:

Line 1379: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Init_Load: '||

1375: EXCEPTION
1376:
1377: WHEN CODIM_fatal_err THEN
1378:
1379: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Init_Load: '||
1380: 'User defined error');
1381:
1382: FND_CONCURRENT.Af_Rollback;
1383: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

Line 1383: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

1379: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Init_Load: '||
1380: 'User defined error');
1381:
1382: FND_CONCURRENT.Af_Rollback;
1383: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');
1384: retcode := sqlcode;
1385: ret_val := FND_CONCURRENT.Set_Completion_Status
1386: (status => 'ERROR', message => substr(sqlerrm,1,180));
1387:

Line 1389: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Init_Load: '||

1385: ret_val := FND_CONCURRENT.Set_Completion_Status
1386: (status => 'ERROR', message => substr(sqlerrm,1,180));
1387:
1388: WHEN CODIM_MULT_PAR_err THEN
1389: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Init_Load: '||
1390: 'Diamond Shape Detected');
1391:
1392: FND_CONCURRENT.Af_Rollback;
1393: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

Line 1393: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

1389: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Init_Load: '||
1390: 'Diamond Shape Detected');
1391:
1392: FND_CONCURRENT.Af_Rollback;
1393: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');
1394: retcode := sqlcode;
1395: ret_val := FND_CONCURRENT.Set_Completion_Status
1396: (status => 'ERROR', message => substr(sqlerrm,1,180));
1397:

Line 1410: 'Other error in FII_COM_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));

1406:
1407: WHEN OTHERS THEN
1408: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
1409: FII_UTIL.Write_Log (
1410: 'Other error in FII_COM_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));
1411:
1412:
1413: FND_CONCURRENT.Af_Rollback;
1414: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

Line 1414: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');

1410: 'Other error in FII_COM_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));
1411:
1412:
1413: FND_CONCURRENT.Af_Rollback;
1414: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Init_Load');
1415: retcode := sqlcode;
1416: ret_val := FND_CONCURRENT.Set_Completion_Status
1417: (status => 'ERROR', message => substr(sqlerrm,1,180));
1418:

Line 1434: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

1430:
1431: BEGIN
1432:
1433: IF (FIIDIM_Debug) THEN
1434: FII_MESSAGE.Func_Ent(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');
1435: END IF;
1436:
1437: g_load_mode := 'INCR';
1438:

Line 1643: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

1639:
1640: FND_CONCURRENT.Af_Commit;
1641:
1642: IF (FIIDIM_Debug) THEN
1643: FII_MESSAGE.Func_Succ(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');
1644: END IF;
1645:
1646: -- Exception handling
1647:

Line 1650: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Incre_Update'||

1646: -- Exception handling
1647:
1648: EXCEPTION
1649: WHEN CODIM_fatal_err THEN
1650: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Incre_Update'||
1651: 'User defined error');
1652:
1653: FND_CONCURRENT.Af_Rollback;
1654: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

Line 1654: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

1650: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Incre_Update'||
1651: 'User defined error');
1652:
1653: FND_CONCURRENT.Af_Rollback;
1654: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');
1655: retcode := sqlcode;
1656: ret_val := FND_CONCURRENT.Set_Completion_Status
1657: (status => 'ERROR', message => substr(sqlerrm,1,180));
1658:

Line 1660: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Incre_Update: '||

1656: ret_val := FND_CONCURRENT.Set_Completion_Status
1657: (status => 'ERROR', message => substr(sqlerrm,1,180));
1658:
1659: WHEN CODIM_MULT_PAR_err THEN
1660: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Incre_Update: '||
1661: 'Diamond Shape Detected');
1662:
1663: FND_CONCURRENT.Af_Rollback;
1664: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

Line 1664: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

1660: FII_UTIL.Write_Log ('FII_COM_MAINTAIN_PKG.Incre_Update: '||
1661: 'Diamond Shape Detected');
1662:
1663: FND_CONCURRENT.Af_Rollback;
1664: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');
1665: retcode := sqlcode;
1666: ret_val := FND_CONCURRENT.Set_Completion_Status
1667: (status => 'ERROR', message => substr(sqlerrm,1,180));
1668:

Line 1681: 'Other error in FII_COM_MAINTAIN_PKG.Incre_Update: ' || substr(sqlerrm,1,180));

1677:
1678: WHEN OTHERS THEN
1679: FII_UTIL.Write_Log ('Incre_Update -> phase: '|| g_phase);
1680: FII_UTIL.Write_Log (
1681: 'Other error in FII_COM_MAINTAIN_PKG.Incre_Update: ' || substr(sqlerrm,1,180));
1682:
1683:
1684: FND_CONCURRENT.Af_Rollback;
1685: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

Line 1685: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');

1681: 'Other error in FII_COM_MAINTAIN_PKG.Incre_Update: ' || substr(sqlerrm,1,180));
1682:
1683:
1684: FND_CONCURRENT.Af_Rollback;
1685: FII_MESSAGE.Func_Fail(func_name => 'FII_COM_MAINTAIN_PKG.Incre_Update');
1686: retcode := sqlcode;
1687: ret_val := FND_CONCURRENT.Set_Completion_Status
1688: (status => 'ERROR', message => substr(sqlerrm,1,180));
1689:

Line 1692: END FII_COM_MAINTAIN_PKG;

1688: (status => 'ERROR', message => substr(sqlerrm,1,180));
1689:
1690: END Incre_Update;
1691:
1692: END FII_COM_MAINTAIN_PKG;