95: -- Validate Group Id does not exist.
96: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
97: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
98: if l_count <> 0 then
99: FND_MESSAGE.SET_NAME('BSC','BSC_GROUP_ID_EXISTS');
100: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
101: FND_MSG_PUB.ADD;
102: RAISE FND_API.G_EXC_ERROR;
103: end if;
96: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
97: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
98: if l_count <> 0 then
99: FND_MESSAGE.SET_NAME('BSC','BSC_GROUP_ID_EXISTS');
100: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
101: FND_MSG_PUB.ADD;
102: RAISE FND_API.G_EXC_ERROR;
103: end if;
104: else
101: FND_MSG_PUB.ADD;
102: RAISE FND_API.G_EXC_ERROR;
103: end if;
104: else
105: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
106: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
107: FND_MSG_PUB.ADD;
108: RAISE FND_API.G_EXC_ERROR;
109: end if;
102: RAISE FND_API.G_EXC_ERROR;
103: end if;
104: else
105: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
106: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
107: FND_MSG_PUB.ADD;
108: RAISE FND_API.G_EXC_ERROR;
109: end if;
110:
202: WHEN OTHERS THEN
203: ROLLBACK TO CreateBSCDimGrpPVT;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: if (SQLCODE = -01400) then
206: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
207: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
208: FND_MSG_PUB.ADD;
209: RAISE FND_API.G_EXC_ERROR;
210: end if;
203: ROLLBACK TO CreateBSCDimGrpPVT;
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: if (SQLCODE = -01400) then
206: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
207: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
208: FND_MSG_PUB.ADD;
209: RAISE FND_API.G_EXC_ERROR;
210: end if;
211: IF (x_msg_data IS NOT NULL) THEN
313: -- Check that valid dimension group id was entered.
314: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
315: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
316: if l_count = 0 then
317: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
318: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
319: FND_MSG_PUB.ADD;
320: RAISE FND_API.G_EXC_ERROR;
321: end if;
314: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
315: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
316: if l_count = 0 then
317: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
318: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
319: FND_MSG_PUB.ADD;
320: RAISE FND_API.G_EXC_ERROR;
321: end if;
322: -- if id is null then check for short name name is not null
326: END IF;
327: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
328: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
329: IF (c_dim_lvls_by_group%NOTFOUND) THEN
330: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
331: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
332: FND_MSG_PUB.ADD;
333: RAISE FND_API.G_EXC_ERROR;
334: END IF;
327: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
328: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
329: IF (c_dim_lvls_by_group%NOTFOUND) THEN
330: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
331: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
332: FND_MSG_PUB.ADD;
333: RAISE FND_API.G_EXC_ERROR;
334: END IF;
335: CLOSE c_dim_lvls_by_group;
333: RAISE FND_API.G_EXC_ERROR;
334: END IF;
335: CLOSE c_dim_lvls_by_group;
336: else
337: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
338: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
339: FND_MSG_PUB.ADD;
340: RAISE FND_API.G_EXC_ERROR;
341: end if;
334: END IF;
335: CLOSE c_dim_lvls_by_group;
336: else
337: FND_MESSAGE.SET_NAME('BSC','BSC_NO_GROUP_ID_ENTERED');
338: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
339: FND_MSG_PUB.ADD;
340: RAISE FND_API.G_EXC_ERROR;
341: end if;
342:
455:
456: if l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
457: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
458: if l_count = 0 then
459: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
460: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
461: FND_MSG_PUB.ADD;
462: RAISE FND_API.G_EXC_ERROR;
463: end if;
456: if l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
457: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
458: if l_count = 0 then
459: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
460: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
461: FND_MSG_PUB.ADD;
462: RAISE FND_API.G_EXC_ERROR;
463: end if;
464: -- if id is null then check that short name is not null
468: END IF;
469: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
470: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
471: IF (c_dim_lvls_by_group%NOTFOUND) THEN
472: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
473: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
474: FND_MSG_PUB.ADD;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
469: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
470: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
471: IF (c_dim_lvls_by_group%NOTFOUND) THEN
472: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
473: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
474: FND_MSG_PUB.ADD;
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477: CLOSE c_dim_lvls_by_group;
482: into l_count
483: from BSC_SYS_DIM_GROUPS_TL
484: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
485: if l_count = 0 then
486: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
487: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_ERROR;
490: else -- get id for this name
483: from BSC_SYS_DIM_GROUPS_TL
484: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
485: if l_count = 0 then
486: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
487: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
488: FND_MSG_PUB.ADD;
489: RAISE FND_API.G_EXC_ERROR;
490: else -- get id for this name
491: select distinct dim_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');
498: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
499: FND_MSG_PUB.ADD;
500: RAISE FND_API.G_EXC_ERROR;
501: end if;
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');
498: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
499: FND_MSG_PUB.ADD;
500: RAISE FND_API.G_EXC_ERROR;
501: end if;
502: end if;
606: -- Check that the group id is valid or that the name is valid.
607: if l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
608: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
609: if l_count = 0 then
610: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
611: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
612: FND_MSG_PUB.ADD;
613: RAISE FND_API.G_EXC_ERROR;
614: end if;
607: if l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
608: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
609: if l_count = 0 then
610: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
611: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
612: FND_MSG_PUB.ADD;
613: RAISE FND_API.G_EXC_ERROR;
614: end if;
615: -- if id is null then check that short name is not null
619: END IF;
620: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
621: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
622: IF (c_dim_lvls_by_group%NOTFOUND) THEN
623: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
624: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
625: FND_MSG_PUB.ADD;
626: RAISE FND_API.G_EXC_ERROR;
627: END IF;
620: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
621: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
622: IF (c_dim_lvls_by_group%NOTFOUND) THEN
623: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
624: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
625: FND_MSG_PUB.ADD;
626: RAISE FND_API.G_EXC_ERROR;
627: END IF;
628: CLOSE c_dim_lvls_by_group;
633: into l_count
634: from BSC_SYS_DIM_GROUPS_TL
635: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
636: if l_count = 0 then
637: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
638: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_ERROR;
641: else -- get id for this name
634: from BSC_SYS_DIM_GROUPS_TL
635: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
636: if l_count = 0 then
637: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
638: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
639: FND_MSG_PUB.ADD;
640: RAISE FND_API.G_EXC_ERROR;
641: else -- get id for this name
642: select distinct dim_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');
649: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
650: FND_MSG_PUB.ADD;
651: RAISE FND_API.G_EXC_ERROR;
652: end if;
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');
649: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
650: FND_MSG_PUB.ADD;
651: RAISE FND_API.G_EXC_ERROR;
652: end if;
653: end if;
655: -- Check Dimension level id is valid.
656: if l_Dim_Grp_Rec.Bsc_Level_Id is not null then
657: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Dim_Level_Id(l_Dim_Grp_Rec.Bsc_Level_Id);
658: if l_count = 0 then
659: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
660: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
661: FND_MSG_PUB.ADD;
662: RAISE FND_API.G_EXC_ERROR;
663: end if;
656: if l_Dim_Grp_Rec.Bsc_Level_Id is not null then
657: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Dim_Level_Id(l_Dim_Grp_Rec.Bsc_Level_Id);
658: if l_count = 0 then
659: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
660: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
661: FND_MSG_PUB.ADD;
662: RAISE FND_API.G_EXC_ERROR;
663: end if;
664: else
661: FND_MSG_PUB.ADD;
662: RAISE FND_API.G_EXC_ERROR;
663: end if;
664: else
665: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
666: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
667: FND_MSG_PUB.ADD;
668: RAISE FND_API.G_EXC_ERROR;
669: end if;
662: RAISE FND_API.G_EXC_ERROR;
663: end if;
664: else
665: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
666: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
667: FND_MSG_PUB.ADD;
668: RAISE FND_API.G_EXC_ERROR;
669: end if;
670:
757: RAISE;
758: WHEN OTHERS THEN
759: ROLLBACK TO CreateBSCDimLevInGrpPVT;
760: if (SQLCODE = -01400) then
761: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
762: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
763: FND_MSG_PUB.ADD;
764: RAISE FND_API.G_EXC_ERROR;
765: end if;
758: WHEN OTHERS THEN
759: ROLLBACK TO CreateBSCDimLevInGrpPVT;
760: if (SQLCODE = -01400) then
761: FND_MESSAGE.SET_NAME('BSC','BSC_TABLE_NULL_VALUE');
762: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
763: FND_MSG_PUB.ADD;
764: RAISE FND_API.G_EXC_ERROR;
765: end if;
766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
834: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count
835: ,p_data => x_msg_data);
836: WHEN NO_DATA_FOUND THEN
837: FND_MSG_PUB.Initialize;
838: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
839: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
840: FND_MSG_PUB.ADD;
841: RAISE FND_API.G_EXC_ERROR;
842: WHEN OTHERS THEN
835: ,p_data => x_msg_data);
836: WHEN NO_DATA_FOUND THEN
837: FND_MSG_PUB.Initialize;
838: FND_MESSAGE.SET_NAME('BSC','BSC_NO_VALUE_FOUND');
839: FND_MESSAGE.SET_TOKEN('BSC_OBJECT', g_db_object);
840: FND_MSG_PUB.ADD;
841: RAISE FND_API.G_EXC_ERROR;
842: WHEN OTHERS THEN
843: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
876: -- Check that the group id is valid or that the name is valid.
877: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
878: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
879: if l_count = 0 then
880: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
881: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
882: FND_MSG_PUB.ADD;
883: RAISE FND_API.G_EXC_ERROR;
884: end if;
877: if p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
878: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
879: if l_count = 0 then
880: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
881: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
882: FND_MSG_PUB.ADD;
883: RAISE FND_API.G_EXC_ERROR;
884: end if;
885: -- if id is null then check that short name is not null
889: END IF;
890: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Short_Name);
891: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Id;
892: IF (c_dim_lvls_by_group%NOTFOUND) THEN
893: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
894: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Short_Name);
895: FND_MSG_PUB.ADD;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
890: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Short_Name);
891: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Id;
892: IF (c_dim_lvls_by_group%NOTFOUND) THEN
893: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
894: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec_in.Bsc_Dim_Level_Group_Short_Name);
895: FND_MSG_PUB.ADD;
896: RAISE FND_API.G_EXC_ERROR;
897: END IF;
898: CLOSE c_dim_lvls_by_group;
903: into l_count
904: from BSC_SYS_DIM_GROUPS_TL
905: where name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
906: if l_count = 0 then
907: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
908: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
909: FND_MSG_PUB.ADD;
910: RAISE FND_API.G_EXC_ERROR;
911: else -- get id for this name
904: from BSC_SYS_DIM_GROUPS_TL
905: where name = p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
906: if l_count = 0 then
907: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
908: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
909: FND_MSG_PUB.ADD;
910: RAISE FND_API.G_EXC_ERROR;
911: else -- get id for this name
912: select distinct dim_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');
919: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
920: FND_MSG_PUB.ADD;
921: RAISE FND_API.G_EXC_ERROR;
922: end if;
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');
919: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', p_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
920: FND_MSG_PUB.ADD;
921: RAISE FND_API.G_EXC_ERROR;
922: end if;
923: end if;
925: -- Check Dimension level id is valid.
926: if p_Dim_Grp_Rec.Bsc_Level_Id is not null then
927: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Dim_Level_Id(p_Dim_Grp_Rec.Bsc_Level_Id);
928: if l_count = 0 then
929: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
930: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);
931: FND_MSG_PUB.ADD;
932: RAISE FND_API.G_EXC_ERROR;
933: end if;
926: if p_Dim_Grp_Rec.Bsc_Level_Id is not null then
927: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Dim_Level_Id(p_Dim_Grp_Rec.Bsc_Level_Id);
928: if l_count = 0 then
929: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
930: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);
931: FND_MSG_PUB.ADD;
932: RAISE FND_API.G_EXC_ERROR;
933: end if;
934: else
931: FND_MSG_PUB.ADD;
932: RAISE FND_API.G_EXC_ERROR;
933: end if;
934: else
935: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
936: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);
937: FND_MSG_PUB.ADD;
938: RAISE FND_API.G_EXC_ERROR;
939: end if;
932: RAISE FND_API.G_EXC_ERROR;
933: end if;
934: else
935: FND_MESSAGE.SET_NAME('BSC','BSC_NO_LEVEL_ID_ENTERED');
936: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', p_Dim_Grp_Rec.Bsc_Level_Id);
937: FND_MSG_PUB.ADD;
938: RAISE FND_API.G_EXC_ERROR;
939: end if;
940:
1084: -- Check that the group id is valid or that the name is valid.
1085: if l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
1086: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
1087: if l_count = 0 then
1088: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
1089: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
1090: FND_MSG_PUB.ADD;
1091: RAISE FND_API.G_EXC_ERROR;
1092: end if;
1085: if l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id is not null then
1086: l_count := BSC_DIMENSION_GROUPS_PVT.Validate_Dim_Group_Id(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
1087: if l_count = 0 then
1088: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_ID');
1089: FND_MESSAGE.SET_TOKEN('BSC_GROUP_ID', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id);
1090: FND_MSG_PUB.ADD;
1091: RAISE FND_API.G_EXC_ERROR;
1092: end if;
1093: -- if id is null then check for short name name is not null
1097: END IF;
1098: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
1099: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
1100: IF (c_dim_lvls_by_group%NOTFOUND) THEN
1101: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
1102: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
1103: FND_MSG_PUB.ADD;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1098: OPEN c_dim_lvls_by_group(l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
1099: FETCH c_dim_lvls_by_group INTO l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Id;
1100: IF (c_dim_lvls_by_group%NOTFOUND) THEN
1101: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_SHORT_NAME');
1102: FND_MESSAGE.SET_TOKEN('BSC_GROUP_SHORT_NAME',l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Short_Name);
1103: FND_MSG_PUB.ADD;
1104: RAISE FND_API.G_EXC_ERROR;
1105: END IF;
1106: CLOSE c_dim_lvls_by_group;
1111: into l_count
1112: from BSC_SYS_DIM_GROUPS_TL
1113: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
1114: if l_count = 0 then
1115: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
1116: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
1117: FND_MSG_PUB.ADD;
1118: RAISE FND_API.G_EXC_ERROR;
1119: else -- get id for this name
1112: from BSC_SYS_DIM_GROUPS_TL
1113: where name = l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name;
1114: if l_count = 0 then
1115: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_GROUP_NAME');
1116: FND_MESSAGE.SET_TOKEN('BSC_GROUP_NAME', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
1117: FND_MSG_PUB.ADD;
1118: RAISE FND_API.G_EXC_ERROR;
1119: else -- get id for this name
1120: select distinct dim_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');
1127: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
1128: FND_MSG_PUB.ADD;
1129: RAISE FND_API.G_EXC_ERROR;
1130: end if;
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');
1127: FND_MESSAGE.SET_TOKEN('BSC_NO_GROUP', l_Dim_Grp_Rec.Bsc_Dim_Level_Group_Name);
1128: FND_MSG_PUB.ADD;
1129: RAISE FND_API.G_EXC_ERROR;
1130: end if;
1131: end if;
1133: -- Check Dimension level id is valid.
1134: if l_Dim_Grp_Rec.Bsc_Level_Id is not null then
1135: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Dim_Level_Id(l_Dim_Grp_Rec.Bsc_Level_Id);
1136: if l_count = 0 then
1137: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
1138: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
1139: FND_MSG_PUB.ADD;
1140: RAISE FND_API.G_EXC_ERROR;
1141: end if;
1134: if l_Dim_Grp_Rec.Bsc_Level_Id is not null then
1135: l_count := BSC_DIMENSION_LEVELS_PVT.Validate_Dim_Level_Id(l_Dim_Grp_Rec.Bsc_Level_Id);
1136: if l_count = 0 then
1137: FND_MESSAGE.SET_NAME('BSC','BSC_INVALID_LEVEL_ID');
1138: FND_MESSAGE.SET_TOKEN('BSC_LEVEL_ID', l_Dim_Grp_Rec.Bsc_Level_Id);
1139: FND_MSG_PUB.ADD;
1140: RAISE FND_API.G_EXC_ERROR;
1141: end if;
1142: