DBA Data[Home] [Help]

APPS.FII_LOB_MAINTAIN_PKG dependencies on FII_LOB_MAINTAIN_PKG

Line 1: PACKAGE BODY FII_LOB_MAINTAIN_PKG AS

1: PACKAGE BODY FII_LOB_MAINTAIN_PKG AS
2: /* $Header: FIILBCMB.pls 120.2 2006/02/06 20:16:04 vkazhipu noship $ */
3:
4: G_MASTER_VALUE_SET_ID NUMBER(15) := NULL;
5: G_TOP_NODE_ID NUMBER(15) := NULL;

Line 148: FII_UTIL.initialize('FII_LOB_MAINTAIN_PKG.log',

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

Line 149: 'FII_LOB_MAINTAIN_PKG.out',l_dir, 'FII_LOB_MAINTAIN_PKG');

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

Line 338: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Initialize : '|| 'User defined error');

334: --Let the main program handle this
335: raise;
336:
337: When LOBDIM_fatal_err then
338: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Initialize : '|| 'User defined error');
339: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
340: FND_CONCURRENT.Af_Rollback;
341: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Initialize');
342: raise;

Line 341: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Initialize');

337: When LOBDIM_fatal_err then
338: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Initialize : '|| 'User defined error');
339: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
340: FND_CONCURRENT.Af_Rollback;
341: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Initialize');
342: raise;
343:
344: When others then
345: FII_UTIL.Write_Log ('Unexpected error when calling Initialize...');

Line 378: FII_MESSAGE.Func_Ent ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

374:
375: BEGIN
376:
377: IF (FIIDIM_Debug) THEN
378: FII_MESSAGE.Func_Ent ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
379: END IF;
380:
381: --First, insert records for the master value set
382: g_phase := 'insert records for the master value set';

Line 487: FII_MESSAGE.Func_Succ ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

483:
484: END IF;
485:
486: IF (FIIDIM_Debug) THEN
487: FII_MESSAGE.Func_Succ ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
488: END IF;
489:
490: Exception
491:

Line 493: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||

489:
490: Exception
491:
492: When LOBDIM_fatal_err then
493: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||
494: 'User defined error');
495: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
496: FND_CONCURRENT.Af_Rollback;
497: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

Line 497: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

493: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||
494: 'User defined error');
495: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
496: FND_CONCURRENT.Af_Rollback;
497: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
498: raise;
499:
500: When others then
501: FII_UTIL.Write_Log ('Unexpected error when calling Get_NORM_HIERARCHY_TMP.');

Line 547: FII_MESSAGE.Func_Ent ('FII_LOB_MAINTAIN_PKG.Detect_Diamond_Shape');

543:
544: BEGIN
545:
546: IF (FIIDIM_Debug) THEN
547: FII_MESSAGE.Func_Ent ('FII_LOB_MAINTAIN_PKG.Detect_Diamond_Shape');
548: END IF;
549:
550: -- check whole TMP hierarhy table: if there is a diamond
551: -- report and raise an exception

Line 589: FII_MESSAGE.Func_Succ ('FII_LOB_MAINTAIN_PKG.Detect_Diamond_Shape');

585:
586: END LOOP;
587:
588: IF (FIIDIM_Debug) THEN
589: FII_MESSAGE.Func_Succ ('FII_LOB_MAINTAIN_PKG.Detect_Diamond_Shape');
590: END IF;
591:
592: IF l_count > 0 THEN
593: RAISE LOBDIM_MULT_PAR_err;

Line 599: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Detect_Diamond_Shape: '||

595:
596: Exception
597:
598: When LOBDIM_MULT_PAR_err then
599: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Detect_Diamond_Shape: '||
600: 'diamond shape detected!');
601: RAISE;
602:
603: When others then

Line 707: (func_name => 'FII_LOB_MAINTAIN_PKG.Insert_Imm_Child_Nodes');

703: EXCEPTION
704: WHEN NO_DATA_FOUND Then
705: FII_UTIL.Write_Log ('Insert Immediate child: No Data Found');
706: FII_MESSAGE.Func_Fail
707: (func_name => 'FII_LOB_MAINTAIN_PKG.Insert_Imm_Child_Nodes');
708: RAISE;
709:
710: WHEN OTHERS Then
711: FII_UTIL.Write_Log (substr(SQLERRM,1,180));

Line 713: (func_name => 'FII_LOB_MAINTAIN_PKG.INSERT_IMM_CHILD_NODES');

709:
710: WHEN OTHERS Then
711: FII_UTIL.Write_Log (substr(SQLERRM,1,180));
712: FII_MESSAGE.Func_Fail
713: (func_name => 'FII_LOB_MAINTAIN_PKG.INSERT_IMM_CHILD_NODES');
714: RAISE;
715:
716: END INSERT_IMM_CHILD_NODES;
717:

Line 731: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||

727:
728: BEGIN
729:
730: IF (FIIDIM_Debug) THEN
731: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||
732: 'Flatten_LOB_Dim_Hier');
733: END IF;
734:
735: g_phase := 'Truncate table FII_LOB_HIER_GT';

Line 1012: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1008: -- and next_level_is_leaf = 'Y';
1009:
1010:
1011: IF (FIIDIM_Debug) THEN
1012: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1013: 'Flatten_LOB_Dim_Hier');
1014: END IF;
1015:
1016: EXCEPTION

Line 1020: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1016: EXCEPTION
1017:
1018: WHEN NO_DATA_FOUND THEN
1019: FII_UTIL.Write_Log ('Flatten_LOB_Dim_Hier: No Data Found');
1020: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1021: 'Flatten_LOB_Dim_Hier');
1022: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
1023: raise;
1024:

Line 1034: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1030: raise;
1031:
1032: WHEN OTHERS THEN
1033: FII_UTIL.Write_Log ('Flatten_LOB_Dim_Hier: '|| substr(sqlerrm,1,180));
1034: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1035: 'Flatten_LOB_Dim_Hier');
1036: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
1037: raise;
1038:

Line 1052: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||'Get_Sort_Order');

1048:
1049: BEGIN
1050:
1051: IF (FIIDIM_Debug) THEN
1052: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||'Get_Sort_Order');
1053: END IF;
1054:
1055: g_phase := 'Update next_level_lob_sort_order for fii_lob_hier_gt ';
1056:

Line 1070: FII_MESSAGE.Func_Succ(func_name=>'FII_LOB_MAINTAIN_PKG.'||'Get_Sort_Order');

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

Line 1078: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||'Get_Sort_Order');

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

Line 1093: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1089:
1090: Begin
1091:
1092: IF (FIIDIM_Debug) THEN
1093: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1094: 'Get_Pruned_LOB_GT');
1095: END IF;
1096:
1097: --Delete from FII_LOB_HIER_GT for child value set not equal to

Line 1166: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1162: End if;
1163: --------------------------------------------------------------
1164:
1165: IF (FIIDIM_Debug) THEN
1166: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1167: 'Get_Pruned_LOB_GT');
1168: END IF;
1169:
1170: EXCEPTION

Line 1175: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1171:
1172: WHEN OTHERS THEN
1173: FII_UTIL.Write_Log ('Get_Pruned_LOB_GT -> phase: '|| g_phase);
1174: FII_UTIL.Write_Log ('Get_Pruned_LOB_GT: '|| substr(sqlerrm,1,180));
1175: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1176: 'Get_Pruned_LOB_GT');
1177: raise;
1178:
1179: END Get_Pruned_LOB_GT;

Line 1190: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1186:
1187: Begin
1188:
1189: IF (FIIDIM_Debug) THEN
1190: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1191: 'Handle_Unenabled_DIM');
1192: END IF;
1193:
1194: g_phase := 'Truncate tables';

Line 1280: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1276:
1277: commit;
1278:
1279: IF (FIIDIM_Debug) THEN
1280: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1281: 'Handle_Unenabled_DIM');
1282: END IF;
1283:
1284: EXCEPTION

Line 1289: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||

1285:
1286: WHEN OTHERS THEN
1287: FII_UTIL.Write_Log ('Handle_Unenabled_DIM -> phase: '|| g_phase);
1288: FII_UTIL.Write_Log ('Handle_Unenabled_DIM: '|| substr(sqlerrm,1,180));
1289: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.'||
1290: 'Handle_Unenabled_DIM');
1291: raise;
1292:
1293: END Handle_Unenabled_DIM;

Line 1307: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');

1303:
1304: BEGIN
1305:
1306: IF (FIIDIM_Debug) THEN
1307: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');
1308: END IF;
1309:
1310: --First do the initialization
1311:

Line 1445: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');

1441:
1442: FND_CONCURRENT.Af_Commit;
1443:
1444: IF (FIIDIM_Debug) THEN
1445: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');
1446: END IF;
1447:
1448: -- ret_val := FND_CONCURRENT.Set_Completion_Status
1449: -- (status => 'NORMAL', message => NULL);

Line 1457: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Init_Load: '||

1453: EXCEPTION
1454:
1455: WHEN LOBDIM_fatal_err THEN
1456: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
1457: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Init_Load: '||
1458: 'User defined error');
1459: -- Rollback
1460: FND_CONCURRENT.Af_Rollback;
1461: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');

Line 1461: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');

1457: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Init_Load: '||
1458: 'User defined error');
1459: -- Rollback
1460: FND_CONCURRENT.Af_Rollback;
1461: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');
1462: retcode := sqlcode;
1463: ret_val := FND_CONCURRENT.Set_Completion_Status
1464: (status => 'ERROR', message => substr(sqlerrm,1,180));
1465:

Line 1468: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Init_Load: '||

1464: (status => 'ERROR', message => substr(sqlerrm,1,180));
1465:
1466: WHEN LOBDIM_MULT_PAR_err THEN
1467: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
1468: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Init_Load: '||
1469: 'Diamond Shape Detected');
1470: -- Rollback
1471: FND_CONCURRENT.Af_Rollback;
1472: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');

Line 1472: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');

1468: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Init_Load: '||
1469: 'Diamond Shape Detected');
1470: -- Rollback
1471: FND_CONCURRENT.Af_Rollback;
1472: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Init_Load');
1473: retcode := sqlcode;
1474: ret_val := FND_CONCURRENT.Set_Completion_Status
1475: (status => 'ERROR', message => substr(sqlerrm,1,180));
1476:

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

1486:
1487: WHEN OTHERS THEN
1488: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
1489: FII_UTIL.Write_Log (
1490: 'Other error in FII_LOB_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));
1491:
1492: -- Rollback
1493: FND_CONCURRENT.Af_Rollback;
1494: FII_MESSAGE.Func_Fail(func_name => 'II_LOB_MAINTAIN_PKG.Init_Load');

Line 1523: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Load');

1519: END IF;
1520: -----------------------------------------------------------------------------
1521:
1522: IF (FIIDIM_Debug) THEN
1523: FII_MESSAGE.Func_Ent(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Load');
1524: END IF;
1525:
1526: --First do the initialization
1527:

Line 1756: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Load');

1752:
1753: FND_CONCURRENT.Af_Commit;
1754:
1755: IF (FIIDIM_Debug) THEN
1756: FII_MESSAGE.Func_Succ(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Load');
1757: END IF;
1758:
1759: -- ret_val := FND_CONCURRENT.Set_Completion_Status
1760: -- (status => 'COMPLETE', message => NULL);

Line 1767: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Incre_Update'||

1763:
1764: EXCEPTION
1765: WHEN LOBDIM_fatal_err THEN
1766: FII_UTIL.Write_Log ('Incre_Update -> phase: '|| g_phase);
1767: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Incre_Update'||
1768: 'User defined error');
1769: -- Rollback
1770: FND_CONCURRENT.Af_Rollback;
1771: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Update');

Line 1771: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Update');

1767: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Incre_Update'||
1768: 'User defined error');
1769: -- Rollback
1770: FND_CONCURRENT.Af_Rollback;
1771: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Update');
1772: retcode := sqlcode;
1773: ret_val := FND_CONCURRENT.Set_Completion_Status
1774: (status => 'ERROR', message => substr(sqlerrm,1,180));
1775:

Line 1778: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Incre_Update: '||

1774: (status => 'ERROR', message => substr(sqlerrm,1,180));
1775:
1776: WHEN LOBDIM_MULT_PAR_err THEN
1777: FII_UTIL.Write_Log ('Incre_Update -> phase: '|| g_phase);
1778: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Incre_Update: '||
1779: 'Diamond Shape Detected');
1780: -- Rollback
1781: FND_CONCURRENT.Af_Rollback;
1782: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Update');

Line 1782: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Update');

1778: FII_UTIL.Write_Log ('FII_LOB_MAINTAIN_PKG.Incre_Update: '||
1779: 'Diamond Shape Detected');
1780: -- Rollback
1781: FND_CONCURRENT.Af_Rollback;
1782: FII_MESSAGE.Func_Fail(func_name => 'FII_LOB_MAINTAIN_PKG.Incre_Update');
1783: retcode := sqlcode;
1784: ret_val := FND_CONCURRENT.Set_Completion_Status
1785: (status => 'ERROR', message => substr(sqlerrm,1,180));
1786:

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

1796:
1797: WHEN OTHERS THEN
1798: FII_UTIL.Write_Log ('Incre_Update -> phase: '|| g_phase);
1799: FII_UTIL.Write_Log (
1800: 'Other error in FII_LOB_MAINTAIN_PKG.Incre_Update: ' || substr(sqlerrm,1,180));
1801:
1802: -- Rollback
1803: FND_CONCURRENT.Af_Rollback;
1804: FII_MESSAGE.Func_Fail(func_name => 'II_LOB_MAINTAIN_PKG.Incre_Update');

Line 1811: END FII_LOB_MAINTAIN_PKG;

1807: (status => 'ERROR', message => substr(sqlerrm,1,180));
1808:
1809: END Incre_Update;
1810:
1811: END FII_LOB_MAINTAIN_PKG;