[Home] [Help]
19: | This package creates a Dimension Group. |
20: | |
21: | History: |
22: | 04-MAR-2003 PAJOHRI MLS Bug #2721899 |
23: | Changed BSC_SYS_DIM_GROUPS_TL to BSC_SYS_DIM_GROUPS_VL in |
24: | select query. |
25: | 29-MAY-03 All Enhancement Phase I- Functions user group short_name if no id |
26: | 07-JUN-03 mahrao Modified for ALL enhancement |
27: | 13-JUN-03 ADEULGAO modified for BUG# 2878840 |
53: BEGIN
54:
55: SELECT count(dim_group_id)
56: INTO l_count
57: FROM BSC_SYS_DIM_GROUPS_VL
58: WHERE dim_group_id = p_dim_group_id;
59:
60: RETURN l_count;
61: EXCEPTION
235: FND_MSG_PUB.Initialize;
236: x_return_status := FND_API.G_RET_STS_SUCCESS;
237: select distinct name
238: into x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name
239: from BSC_SYS_DIM_GROUPS_VL
240: where dim_group_id = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
241:
242: if (p_commit = FND_API.G_TRUE) then
243: commit;
489: RAISE FND_API.G_EXC_ERROR;
490: else -- get id for this name
491: select distinct dim_group_id
492: into l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
493: from BSC_SYS_DIM_GROUPS_VL
494: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
495: end if;
496: else
497: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
640: RAISE FND_API.G_EXC_ERROR;
641: else -- get id for this name
642: select distinct dim_group_id
643: into l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
644: from BSC_SYS_DIM_GROUPS_VL
645: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
646: end if;
647: else
648: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
910: RAISE FND_API.G_EXC_ERROR;
911: else -- get id for this name
912: select distinct dim_group_id
913: into l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Id
914: from BSC_SYS_DIM_GROUPS_VL
915: where name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
916: end if;
917: else
918: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
1118: RAISE FND_API.G_EXC_ERROR;
1119: else -- get id for this name
1120: select distinct dim_group_id
1121: into l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
1122: from BSC_SYS_DIM_GROUPS_VL
1123: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
1124: end if;
1125: else
1126: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_NAME_ENTERED');
1325: INTO
1326: x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name
1327: ,x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id
1328: ,x_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name
1329: FROM BSC_SYS_DIM_GROUPS_VL
1330: WHERE short_name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name;
1331:
1332: EXCEPTION
1333: WHEN FND_API.G_EXC_ERROR THEN