DBA Data[Home] [Help]

APPS.FII_CC_MAINTAIN_PKG dependencies on FII_CC_MAINTAIN_PKG

Line 1: PACKAGE BODY FII_CC_MAINTAIN_PKG AS

1: PACKAGE BODY FII_CC_MAINTAIN_PKG AS
2: /* $Header: FIICCCMB.pls 120.2 2006/09/26 12:39:03 arcdixit ship $ */
3:
4:
5: G_MASTER_VALUE_SET_ID NUMBER(15) := NULL;

Line 148: FII_UTIL.initialize('FII_CC_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_CC_MAINTAIN_PKG.log',
149: 'FII_CC_MAINTAIN_PKG.out',l_dir,'FII_CC_MAINTAIN_PKG' );
150:
151: -- --------------------------------------------------------
152: -- Check source ledger setup for DBI

Line 149: 'FII_CC_MAINTAIN_PKG.out',l_dir,'FII_CC_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_CC_MAINTAIN_PKG.log',
149: 'FII_CC_MAINTAIN_PKG.out',l_dir,'FII_CC_MAINTAIN_PKG' );
150:
151: -- --------------------------------------------------------
152: -- Check source ledger setup for DBI
153: -- --------------------------------------------------------

Line 313: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Initialize : '|| 'User defined error');

309: --Let the main program handle this
310: raise;
311:
312: When CCDIM_fatal_err then
313: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Initialize : '|| 'User defined error');
314: FND_CONCURRENT.Af_Rollback;
315: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Initialize');
316: raise;
317:

Line 315: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Initialize');

311:
312: When CCDIM_fatal_err then
313: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Initialize : '|| 'User defined error');
314: FND_CONCURRENT.Af_Rollback;
315: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Initialize');
316: raise;
317:
318: When others then
319: FII_UTIL.Write_Log ('Unexpected error when calling Initialize...');

Line 352: FII_MESSAGE.Func_Ent ('FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

348:
349: BEGIN
350:
351: IF (FIIDIM_Debug) THEN
352: FII_MESSAGE.Func_Ent ('FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
353: END IF;
354: --First, insert records for the master value set
355: g_phase := 'insert records for the master value set';
356:

Line 452: FII_MESSAGE.Func_Succ ('FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

448: (ownname => g_schema_name,
449: tabname => 'FII_DIM_NORM_HIER_GT');
450:
451: IF (FIIDIM_Debug) THEN
452: FII_MESSAGE.Func_Succ ('FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
453: END IF;
454: Exception
455:
456: When CCDIM_fatal_err then

Line 457: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||

453: END IF;
454: Exception
455:
456: When CCDIM_fatal_err then
457: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP: '||
458:
459:
460: 'User defined error');
461: FND_CONCURRENT.Af_Rollback;

Line 462: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');

458:
459:
460: 'User defined error');
461: FND_CONCURRENT.Af_Rollback;
462: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Get_NORM_HIERARCHY_TMP');
463: raise;
464:
465: When others then
466: FII_UTIL.Write_Log ('Unexpected error when calling Get_NORM_HIERARCHY_TMP.');

Line 512: FII_MESSAGE.Func_Ent ('FII_CC_MAINTAIN_PKG.Detect_Diamond_Shape');

508:
509: BEGIN
510:
511: IF (FIIDIM_Debug) THEN
512: FII_MESSAGE.Func_Ent ('FII_CC_MAINTAIN_PKG.Detect_Diamond_Shape');
513: END IF;
514: -- check whole TMP hierarhy table: if there is a diamond
515: -- report and raise an exception
516: g_phase := 'check all value sets for diamonds';

Line 555: FII_MESSAGE.Func_Succ ('FII_CC_MAINTAIN_PKG.Detect_Diamond_Shape');

551:
552: END LOOP;
553:
554: IF (FIIDIM_Debug) THEN
555: FII_MESSAGE.Func_Succ ('FII_CC_MAINTAIN_PKG.Detect_Diamond_Shape');
556: END IF;
557: IF l_count > 0 THEN
558: RAISE CCDIM_MULT_PAR_err;
559: END IF;

Line 564: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Detect_Diamond_Shape: '||

560:
561: Exception
562:
563: When CCDIM_MULT_PAR_err then
564: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Detect_Diamond_Shape: '||
565: 'diamond shape detected!');
566: RAISE;
567:
568: When others then

Line 678: (func_name => 'FII_CC_MAINTAIN_PKG.Insert_Imm_Child_Nodes');

674: EXCEPTION
675: WHEN NO_DATA_FOUND Then
676: FII_UTIL.Write_Log ('Insert Immediate child: No Data Found');
677: FII_MESSAGE.Func_Fail
678: (func_name => 'FII_CC_MAINTAIN_PKG.Insert_Imm_Child_Nodes');
679: RAISE;
680:
681: WHEN OTHERS Then
682: FII_UTIL.Write_Log (substr(SQLERRM,1,180));

Line 684: (func_name => 'FII_CC_MAINTAIN_PKG.INSERT_IMM_CHILD_NODES');

680:
681: WHEN OTHERS Then
682: FII_UTIL.Write_Log (substr(SQLERRM,1,180));
683: FII_MESSAGE.Func_Fail
684: (func_name => 'FII_CC_MAINTAIN_PKG.INSERT_IMM_CHILD_NODES');
685: RAISE;
686:
687: END INSERT_IMM_CHILD_NODES;
688:

Line 706: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.'||

702:
703: BEGIN
704:
705: IF (FIIDIM_Debug) THEN
706: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.'||
707: 'Flatten_CC_Dim_Hier');
708: END IF;
709: g_phase := 'Truncate table FII_CC_HIER_GT';
710: FII_UTIL.truncate_table ('FII_COST_CTR_HIER_GT', 'FII', g_retcode);

Line 907: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.'||

903: -- for the full hierarchy since it's not used anywhere
904: ----------------------------------------------------------------------
905:
906: IF (FIIDIM_Debug) THEN
907: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.'||
908: 'Flatten_CC_Dim_Hier');
909: END IF;
910:
911: EXCEPTION

Line 915: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||

911: EXCEPTION
912:
913: WHEN NO_DATA_FOUND THEN
914: FII_UTIL.Write_Log ('Flatten_CC_Dim_Hier: No Data Found');
915: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||
916: 'Flatten_CC_Dim_Hier');
917: raise;
918:
919: WHEN CCDIM_MULT_PAR_err THEN

Line 927: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||

923: raise;
924:
925: WHEN OTHERS THEN
926: FII_UTIL.Write_Log ('Flatten_CC_Dim_Hier: '|| substr(sqlerrm,1,180));
927: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||
928: 'Flatten_CC_Dim_Hier');
929: FII_UTIL.Write_Log ( 'G_PHASE: ' || G_PHASE);
930: raise;
931:

Line 1009: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.'||

1005:
1006: Begin
1007:
1008: IF (FIIDIM_Debug) THEN
1009: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.'||
1010: 'Get_Pruned_CC_GT');
1011: END IF;
1012: --Delete from FII_CC_HIER_GT for child value set not equal to
1013: --the master value set and not equal to the UNASSIGNED value set.

Line 1061: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.'||

1057: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in fii_COST_CTR_hier_gt');
1058: END IF;
1059:
1060: IF (FIIDIM_Debug) THEN
1061: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.'||
1062: 'Get_Pruned_CC_GT');
1063: END IF;
1064: EXCEPTION
1065:

Line 1069: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||

1065:
1066: WHEN OTHERS THEN
1067: FII_UTIL.Write_Log ('Get_Pruned_CC_GT -> phase: '|| g_phase);
1068: FII_UTIL.Write_Log ('Get_Pruned_CC_GT: '|| substr(sqlerrm,1,180));
1069: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||
1070: 'Get_Pruned_CC_GT');
1071: raise;
1072:
1073: END Get_Pruned_CC_GT;

Line 1086: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.'||

1082:
1083: Begin
1084:
1085: IF (FIIDIM_Debug) THEN
1086: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.'||
1087: 'Handle_Unenabled_DIM');
1088: END IF;
1089: -- Bug 4147558.
1090: g_phase := 'Check if the dimension was already disabled';

Line 1188: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.'||

1184: commit;
1185: END IF;
1186:
1187: IF (FIIDIM_Debug) THEN
1188: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.'||
1189: 'Handle_Unenabled_DIM');
1190: END IF;
1191:
1192: EXCEPTION

Line 1196: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||

1192: EXCEPTION
1193:
1194: WHEN OTHERS THEN
1195: FII_UTIL.Write_Log ('Handle_Unenabled_DIM: '|| substr(sqlerrm,1,180));
1196: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.'||
1197: 'Handle_Unenabled_DIM');
1198: raise;
1199:
1200: END Handle_Unenabled_DIM;

Line 1214: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

1210:
1211: BEGIN
1212:
1213: IF (FIIDIM_Debug) THEN
1214: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');
1215: END IF;
1216:
1217: --First do the initialization
1218:

Line 1360: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

1356:
1357: FND_CONCURRENT.Af_Commit;
1358:
1359: IF (FIIDIM_Debug) THEN
1360: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');
1361: end if;
1362:
1363: -- Exception handling
1364:

Line 1369: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Init_Load: '||

1365: EXCEPTION
1366:
1367: WHEN CCDIM_fatal_err THEN
1368:
1369: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Init_Load: '||
1370: 'User defined error');
1371:
1372: FND_CONCURRENT.Af_Rollback;
1373: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

Line 1373: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

1369: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Init_Load: '||
1370: 'User defined error');
1371:
1372: FND_CONCURRENT.Af_Rollback;
1373: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');
1374: retcode := sqlcode;
1375: ret_val := FND_CONCURRENT.Set_Completion_Status
1376: (status => 'ERROR', message => substr(sqlerrm,1,180));
1377:

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

1375: ret_val := FND_CONCURRENT.Set_Completion_Status
1376: (status => 'ERROR', message => substr(sqlerrm,1,180));
1377:
1378: WHEN CCDIM_MULT_PAR_err THEN
1379: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Init_Load: '||
1380: 'Diamond Shape Detected');
1381:
1382: FND_CONCURRENT.Af_Rollback;
1383: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

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

1379: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Init_Load: '||
1380: 'Diamond Shape Detected');
1381:
1382: FND_CONCURRENT.Af_Rollback;
1383: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_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 1400: 'Other error in FII_CC_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));

1396:
1397: WHEN OTHERS THEN
1398: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
1399: FII_UTIL.Write_Log (
1400: 'Other error in FII_CC_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));
1401:
1402:
1403: FND_CONCURRENT.Af_Rollback;
1404: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

Line 1404: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');

1400: 'Other error in FII_CC_MAINTAIN_PKG.Init_Load: ' || substr(sqlerrm,1,180));
1401:
1402:
1403: FND_CONCURRENT.Af_Rollback;
1404: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Init_Load');
1405: retcode := sqlcode;
1406: ret_val := FND_CONCURRENT.Set_Completion_Status
1407: (status => 'ERROR', message => substr(sqlerrm,1,180));
1408:

Line 1424: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

1420:
1421: BEGIN
1422:
1423: IF (FIIDIM_Debug) THEN
1424: FII_MESSAGE.Func_Ent(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');
1425: END IF;
1426:
1427: --First do the initialization
1428:

Line 1630: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

1626:
1627: FND_CONCURRENT.Af_Commit;
1628:
1629: IF (FIIDIM_Debug) THEN
1630: FII_MESSAGE.Func_Succ(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');
1631: END IF;
1632:
1633: -- Exception handling
1634:

Line 1637: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Incre_Update'||

1633: -- Exception handling
1634:
1635: EXCEPTION
1636: WHEN CCDIM_fatal_err THEN
1637: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Incre_Update'||
1638: 'User defined error');
1639:
1640: FND_CONCURRENT.Af_Rollback;
1641: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

Line 1641: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

1637: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Incre_Update'||
1638: 'User defined error');
1639:
1640: FND_CONCURRENT.Af_Rollback;
1641: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');
1642: retcode := sqlcode;
1643: ret_val := FND_CONCURRENT.Set_Completion_Status
1644: (status => 'ERROR', message => substr(sqlerrm,1,180));
1645:

Line 1647: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Incre_Update: '||

1643: ret_val := FND_CONCURRENT.Set_Completion_Status
1644: (status => 'ERROR', message => substr(sqlerrm,1,180));
1645:
1646: WHEN CCDIM_MULT_PAR_err THEN
1647: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Incre_Update: '||
1648: 'Diamond Shape Detected');
1649:
1650: FND_CONCURRENT.Af_Rollback;
1651: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

Line 1651: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

1647: FII_UTIL.Write_Log ('FII_CC_MAINTAIN_PKG.Incre_Update: '||
1648: 'Diamond Shape Detected');
1649:
1650: FND_CONCURRENT.Af_Rollback;
1651: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');
1652: retcode := sqlcode;
1653: ret_val := FND_CONCURRENT.Set_Completion_Status
1654: (status => 'ERROR', message => substr(sqlerrm,1,180));
1655:

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

1664:
1665: WHEN OTHERS THEN
1666: FII_UTIL.Write_Log ('Incre_Update -> phase: '|| g_phase);
1667: FII_UTIL.Write_Log (
1668: 'Other error in FII_CC_MAINTAIN_PKG.Incre_Update: ' || substr(sqlerrm,1,180));
1669:
1670:
1671: FND_CONCURRENT.Af_Rollback;
1672: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

Line 1672: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');

1668: 'Other error in FII_CC_MAINTAIN_PKG.Incre_Update: ' || substr(sqlerrm,1,180));
1669:
1670:
1671: FND_CONCURRENT.Af_Rollback;
1672: FII_MESSAGE.Func_Fail(func_name => 'FII_CC_MAINTAIN_PKG.Incre_Update');
1673: retcode := sqlcode;
1674: ret_val := FND_CONCURRENT.Set_Completion_Status
1675: (status => 'ERROR', message => substr(sqlerrm,1,180));
1676:

Line 1679: END FII_CC_MAINTAIN_PKG;

1675: (status => 'ERROR', message => substr(sqlerrm,1,180));
1676:
1677: END Incre_Update;
1678:
1679: END FII_CC_MAINTAIN_PKG;