[Home] [Help]
379: /* ----------------------------------------------------------------------- */
380:
381: PROCEDURE Check_Budget_Group_Freeze
382: ( p_api_version IN NUMBER,
383: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
385: p_return_status OUT NOCOPY VARCHAR2,
386: p_msg_count OUT NOCOPY NUMBER,
387: p_msg_data OUT NOCOPY VARCHAR2,
380:
381: PROCEDURE Check_Budget_Group_Freeze
382: ( p_api_version IN NUMBER,
383: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
384: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
385: p_return_status OUT NOCOPY VARCHAR2,
386: p_msg_count OUT NOCOPY NUMBER,
387: p_msg_data OUT NOCOPY VARCHAR2,
388: p_budget_group_id IN NUMBER
401: BEGIN
402:
403: -- Standard call to check for call compatibility
404:
405: if not FND_API.Compatible_API_Call (l_api_version,
406: p_api_version,
407: l_api_name,
408: G_PKG_NAME)
409: then
406: p_api_version,
407: l_api_name,
408: G_PKG_NAME)
409: then
410: raise FND_API.G_EXC_UNEXPECTED_ERROR;
411: end if;
412:
413: for c_FreezeFlag_Rec in c_FreezeFlag loop
414: l_freeze_flag := c_FreezeFlag_Rec.freeze_hierarchy_flag;
414: l_freeze_flag := c_FreezeFlag_Rec.freeze_hierarchy_flag;
415: end loop;
416:
417: if ((l_freeze_flag is null) or (l_freeze_flag = 'N')) then
418: raise FND_API.G_EXC_ERROR;
419: end if;
420:
421:
422: -- Standard call to get message count and if count is 1, get message info
426:
427:
428: -- Initialize API Return Status to Success
429:
430: p_return_status := FND_API.G_RET_STS_SUCCESS;
431:
432:
433: EXCEPTION
434:
431:
432:
433: EXCEPTION
434:
435: when FND_API.G_EXC_ERROR then
436: p_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
438: p_data => p_msg_data);
439:
432:
433: EXCEPTION
434:
435: when FND_API.G_EXC_ERROR then
436: p_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
438: p_data => p_msg_data);
439:
440: when FND_API.G_EXC_UNEXPECTED_ERROR then
436: p_return_status := FND_API.G_RET_STS_ERROR;
437: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
438: p_data => p_msg_data);
439:
440: when FND_API.G_EXC_UNEXPECTED_ERROR then
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
443: p_data => p_msg_data);
444:
437: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
438: p_data => p_msg_data);
439:
440: when FND_API.G_EXC_UNEXPECTED_ERROR then
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
443: p_data => p_msg_data);
444:
445: when OTHERS then
442: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
443: p_data => p_msg_data);
444:
445: when OTHERS then
446: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
447:
448: if FND_MSG_PUB.Check_Msg_Level
449: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
450: then
507: if (c_AccSet_Rec.effective_start_date < p_effective_start_date) then
508: message_token('ACCOUNT_SET', c_AccSet_Rec.name);
509: message_token('BUDGET_GROUP', p_budget_group_name);
510: add_message('PSB', 'ACCSET_EFF_DATE_OUT_OF_RANGE');
511: raise FND_API.G_EXC_ERROR;
512: end if;
513:
514: else
515:
517: and p_effective_end_date) then
518: message_token('ACCOUNT_SET', c_AccSet_Rec.name);
519: message_token('BUDGET_GROUP', p_budget_group_name);
520: add_message('PSB', 'ACCSET_EFF_DATE_OUT_OF_RANGE');
521: raise FND_API.G_EXC_ERROR;
522: end if;
523:
524: if (nvl(c_AccSet_Rec.effective_end_date, p_effective_end_date) not between
525: p_effective_start_date and p_effective_end_date) then
525: p_effective_start_date and p_effective_end_date) then
526: message_token('ACCOUNT_SET', c_AccSet_Rec.name);
527: message_token('BUDGET_GROUP', p_budget_group_name);
528: add_message('PSB', 'ACCSET_EFF_DATE_OUT_OF_RANGE');
529: raise FND_API.G_EXC_ERROR;
530: end if;
531:
532: end if;
533:
536: c_AccSet_Rec.effective_end_date) loop
537: message_token('ACCOUNT_SET', c_AccSet_Rec.name);
538: message_token('BUDGET_GROUP', p_budget_group_name);
539: add_message('PSB', 'ACCSET_BG_OVERLAP');
540: raise FND_API.G_EXC_ERROR;
541: end loop;
542:
543: end loop;
544:
544:
545:
546: -- Initialize API Return Status to Success
547:
548: p_return_status := FND_API.G_RET_STS_SUCCESS;
549:
550:
551: EXCEPTION
552:
549:
550:
551: EXCEPTION
552:
553: when FND_API.G_EXC_ERROR then
554: p_return_status := FND_API.G_RET_STS_ERROR;
555:
556: when FND_API.G_EXC_UNEXPECTED_ERROR then
557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550:
551: EXCEPTION
552:
553: when FND_API.G_EXC_ERROR then
554: p_return_status := FND_API.G_RET_STS_ERROR;
555:
556: when FND_API.G_EXC_UNEXPECTED_ERROR then
557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558:
552:
553: when FND_API.G_EXC_ERROR then
554: p_return_status := FND_API.G_RET_STS_ERROR;
555:
556: when FND_API.G_EXC_UNEXPECTED_ERROR then
557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558:
559: when OTHERS then
560: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
553: when FND_API.G_EXC_ERROR then
554: p_return_status := FND_API.G_RET_STS_ERROR;
555:
556: when FND_API.G_EXC_UNEXPECTED_ERROR then
557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558:
559: when OTHERS then
560: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561:
556: when FND_API.G_EXC_UNEXPECTED_ERROR then
557: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
558:
559: when OTHERS then
560: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561:
562: END Val_Budget_Group;
563:
564: /* ----------------------------------------------------------------------- */
564: /* ----------------------------------------------------------------------- */
565:
566: PROCEDURE Val_Budget_Group_Hierarchy
567: ( p_api_version IN NUMBER,
568: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
569: p_commit IN VARCHAR2 := FND_API.G_FALSE,
570: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
571: p_return_status OUT NOCOPY VARCHAR2,
572: p_msg_count OUT NOCOPY NUMBER,
565:
566: PROCEDURE Val_Budget_Group_Hierarchy
567: ( p_api_version IN NUMBER,
568: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
569: p_commit IN VARCHAR2 := FND_API.G_FALSE,
570: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
571: p_return_status OUT NOCOPY VARCHAR2,
572: p_msg_count OUT NOCOPY NUMBER,
573: p_msg_data OUT NOCOPY VARCHAR2,
566: PROCEDURE Val_Budget_Group_Hierarchy
567: ( p_api_version IN NUMBER,
568: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
569: p_commit IN VARCHAR2 := FND_API.G_FALSE,
570: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
571: p_return_status OUT NOCOPY VARCHAR2,
572: p_msg_count OUT NOCOPY NUMBER,
573: p_msg_data OUT NOCOPY VARCHAR2,
574: p_budget_group_id IN NUMBER,
572: p_msg_count OUT NOCOPY NUMBER,
573: p_msg_data OUT NOCOPY VARCHAR2,
574: p_budget_group_id IN NUMBER,
575: p_budget_by_position IN VARCHAR2 := 'N',
576: p_validate_ranges IN VARCHAR2 := FND_API.G_TRUE,
577: p_force_freeze IN VARCHAR2 := 'N',
578: p_check_missing_acct IN VARCHAR2 := FND_API.G_TRUE
579: ) AS
580:
574: p_budget_group_id IN NUMBER,
575: p_budget_by_position IN VARCHAR2 := 'N',
576: p_validate_ranges IN VARCHAR2 := FND_API.G_TRUE,
577: p_force_freeze IN VARCHAR2 := 'N',
578: p_check_missing_acct IN VARCHAR2 := FND_API.G_TRUE
579: ) AS
580:
581: l_api_name CONSTANT VARCHAR2(30) := 'Val_Budget_Group_Hierarchy';
582: l_api_version CONSTANT NUMBER := 1.0;
618:
619:
620: -- Standard call to check for call compatibility
621:
622: if not FND_API.Compatible_API_Call (l_api_version,
623: p_api_version,
624: l_api_name,
625: G_PKG_NAME)
626: then
623: p_api_version,
624: l_api_name,
625: G_PKG_NAME)
626: then
627: raise FND_API.G_EXC_UNEXPECTED_ERROR;
628: end if;
629:
630: -- Initialize message list if p_init_msg_list is set to TRUE.
631:
628: end if;
629:
630: -- Initialize message list if p_init_msg_list is set to TRUE.
631:
632: if FND_API.to_Boolean (p_init_msg_list) then
633: FND_MSG_PUB.initialize;
634: end if;
635:
636:
662: p_effective_start_date => c_BudgetGroup_Rec.effective_start_date,
663: p_effective_end_date => c_BudgetGroup_Rec.effective_end_date,
664: p_return_status => l_return_status);
665:
666: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
667: message_token('BUDGET_GROUP', c_BudgetGroup_Rec.name);
668: add_message('PSB', 'PSB_INVALID_BUDGET_GROUP');
669: l_budget_group_error := 'Y';
670: end if;
700: add_message('PSB', 'CCID_OVERLAP');
701: l_budget_group_error := 'Y';
702: end loop;
703:
704: if FND_API.to_Boolean(p_validate_ranges) then
705: begin
706:
707: l_account_range_overlap_flag := 'N';
708:
793: add_message('PSB', 'ACCSET_BGH_OVERLAP');
794: l_budget_group_error := 'Y';
795: end loop;
796:
797: if FND_API.to_Boolean(p_validate_ranges) then
798: begin
799:
800: l_account_range_overlap_flag := 'N';
801:
835:
836: --
837: -- validate psb accounts vs gl accounts
838: --
839: if FND_API.to_Boolean(p_check_missing_acct) then
840:
841: Validate_PSB_Accounts_And_GL
842: (p_top_budget_group_id => p_budget_group_id,
843: p_flex_code => l_flex_code,
842: (p_top_budget_group_id => p_budget_group_id,
843: p_flex_code => l_flex_code,
844: p_return_status => l_return_status);
845:
846: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
847:
848: l_missing_ccid_flag := 'Y';
849:
850: -- flag indicates there was error
867: p_nps_account_set_id => l_nps_account_set_id,
868: p_flex_code => l_flex_code,
869: p_return_status => l_return_status);
870:
871: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
872: -- this will fail... ws creation will fail it too
873:
874: l_budget_group_error := 'Y';
875:
879: Validate_BG_Organization
880: (p_top_budget_group_id => p_budget_group_id,
881: p_return_status => l_return_status);
882:
883: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
884:
885: l_missing_ccid_flag := 'Y';
886: -- soft validation only
887: end if;
895: update PSB_BUDGET_GROUPS
896: set freeze_hierarchy_flag = 'Y'
897: where budget_group_id = p_budget_group_id;
898:
899: p_return_status := FND_API.G_RET_STS_SUCCESS;
900: ELSE
901: p_return_status := FND_API.G_RET_STS_ERROR ;
902: END IF;
903:
897: where budget_group_id = p_budget_group_id;
898:
899: p_return_status := FND_API.G_RET_STS_SUCCESS;
900: ELSE
901: p_return_status := FND_API.G_RET_STS_ERROR ;
902: END IF;
903:
904: -- add final messages to error file
905: -- reverse order b/c insert error will insert it in desc order
958: END IF;
959:
960: -- Standard check of p_commit
961:
962: if FND_API.to_Boolean(p_commit) then
963: commit work;
964: end if;
965:
966: -- Standard call to get message count and if count is 1, get message info
970:
971:
972: -- Initialize API Return Status to Success
973: --
974: -- p_return_status := FND_API.G_RET_STS_SUCCESS;
975:
976:
977: EXCEPTION
978:
975:
976:
977: EXCEPTION
978:
979: when FND_API.G_EXC_ERROR then
980: rollback to Val_Budget_Group_Hierarchy_Pvt;
981: p_return_status := FND_API.G_RET_STS_ERROR ;
982: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
983: p_data => p_msg_data);
977: EXCEPTION
978:
979: when FND_API.G_EXC_ERROR then
980: rollback to Val_Budget_Group_Hierarchy_Pvt;
981: p_return_status := FND_API.G_RET_STS_ERROR ;
982: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
983: p_data => p_msg_data);
984:
985: when FND_API.G_EXC_UNEXPECTED_ERROR then
981: p_return_status := FND_API.G_RET_STS_ERROR ;
982: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
983: p_data => p_msg_data);
984:
985: when FND_API.G_EXC_UNEXPECTED_ERROR then
986: rollback to Val_Budget_Group_Hierarchy_Pvt;
987: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
989: p_data => p_msg_data);
983: p_data => p_msg_data);
984:
985: when FND_API.G_EXC_UNEXPECTED_ERROR then
986: rollback to Val_Budget_Group_Hierarchy_Pvt;
987: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
988: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
989: p_data => p_msg_data);
990:
991: when OTHERS then
989: p_data => p_msg_data);
990:
991: when OTHERS then
992: rollback to Val_Budget_Group_Hierarchy_Pvt;
993: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
994:
995: if FND_MSG_PUB.Check_Msg_Level
996: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
997:
1009: /* ----------------------------------------------------------------------- */
1010:
1011: PROCEDURE INSERT_ROW (
1012: p_api_version in number,
1013: p_init_msg_list in varchar2 := fnd_api.g_false,
1014: p_commit in varchar2 := fnd_api.g_false,
1015: p_validation_level in number := fnd_api.g_valid_level_full,
1016: p_return_status OUT NOCOPY varchar2,
1017: p_msg_count OUT NOCOPY number,
1010:
1011: PROCEDURE INSERT_ROW (
1012: p_api_version in number,
1013: p_init_msg_list in varchar2 := fnd_api.g_false,
1014: p_commit in varchar2 := fnd_api.g_false,
1015: p_validation_level in number := fnd_api.g_valid_level_full,
1016: p_return_status OUT NOCOPY varchar2,
1017: p_msg_count OUT NOCOPY number,
1018: p_msg_data OUT NOCOPY varchar2,
1011: PROCEDURE INSERT_ROW (
1012: p_api_version in number,
1013: p_init_msg_list in varchar2 := fnd_api.g_false,
1014: p_commit in varchar2 := fnd_api.g_false,
1015: p_validation_level in number := fnd_api.g_valid_level_full,
1016: p_return_status OUT NOCOPY varchar2,
1017: p_msg_count OUT NOCOPY number,
1018: p_msg_data OUT NOCOPY varchar2,
1019: p_rowid in OUT NOCOPY varchar2,
1095: BEGIN
1096: --
1097: SAVEPOINT Insert_Row ;
1098: --
1099: if FND_API.to_Boolean (p_init_msg_list) then
1100: FND_MSG_PUB.initialize;
1101: end if;
1102: --
1103: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1099: if FND_API.to_Boolean (p_init_msg_list) then
1100: FND_MSG_PUB.initialize;
1101: end if;
1102: --
1103: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1104: --
1105: P_LAST_UPDATE_DATE := SYSDATE;
1106: if(P_MODE = 'I') then
1107: P_LAST_UPDATED_BY := 1;
1117: end if;
1118: else
1119: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1120: FND_MSG_PUB.Add ;
1121: raise FND_API.G_EXC_ERROR ;
1122: end if;
1123:
1124: insert into PSB_BUDGET_GROUPS (
1125: budget_group_id,
1260: open c;
1261: fetch c into P_ROWID;
1262: if (c%notfound) then
1263: close c;
1264: raise FND_API.G_EXC_ERROR ;
1265: end if;
1266: close c;
1267:
1268: --
1266: close c;
1267:
1268: --
1269: -- Standard check of p_commit.
1270: if FND_API.to_Boolean (p_commit) then
1271: commit work;
1272: end if;
1273: -- Standard call to get message count and if count is 1, get message info.
1274: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1276: --
1277:
1278: EXCEPTION
1279: --
1280: when FND_API.G_EXC_ERROR then
1281: --
1282: rollback to INSERT_ROW ;
1283: p_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1279: --
1280: when FND_API.G_EXC_ERROR then
1281: --
1282: rollback to INSERT_ROW ;
1283: p_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1285: p_data => p_msg_data);
1286: --
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1283: p_return_status := FND_API.G_RET_STS_ERROR;
1284: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1285: p_data => p_msg_data);
1286: --
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: --
1289: rollback to INSERT_ROW ;
1290: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1286: --
1287: when FND_API.G_EXC_UNEXPECTED_ERROR then
1288: --
1289: rollback to INSERT_ROW ;
1290: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1291: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1292: p_data => p_msg_data);
1293: --
1294: when OTHERS then
1293: --
1294: when OTHERS then
1295: --
1296: rollback to INSERT_ROW ;
1297: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1298: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1299: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1300: l_api_name);
1301: END if;
1307: /*---------------------------------------------------------------*/
1308:
1309: PROCEDURE LOCK_ROW (
1310: p_api_version in number,
1311: p_init_msg_list in varchar2 := FND_API.G_FALSE,
1312: p_commit in varchar2 := FND_API.G_FALSE,
1313: p_validation_level in number := FND_API.G_VALID_LEVEL_FULL,
1314: p_return_status OUT NOCOPY varchar2,
1315: p_msg_count OUT NOCOPY number,
1308:
1309: PROCEDURE LOCK_ROW (
1310: p_api_version in number,
1311: p_init_msg_list in varchar2 := FND_API.G_FALSE,
1312: p_commit in varchar2 := FND_API.G_FALSE,
1313: p_validation_level in number := FND_API.G_VALID_LEVEL_FULL,
1314: p_return_status OUT NOCOPY varchar2,
1315: p_msg_count OUT NOCOPY number,
1316: p_msg_data OUT NOCOPY varchar2,
1309: PROCEDURE LOCK_ROW (
1310: p_api_version in number,
1311: p_init_msg_list in varchar2 := FND_API.G_FALSE,
1312: p_commit in varchar2 := FND_API.G_FALSE,
1313: p_validation_level in number := FND_API.G_VALID_LEVEL_FULL,
1314: p_return_status OUT NOCOPY varchar2,
1315: p_msg_count OUT NOCOPY number,
1316: p_msg_data OUT NOCOPY varchar2,
1317: p_lock_row OUT NOCOPY varchar2,
1634: AND ((tlinfo.CONTEXT = P_CONTEXT)
1635: OR ((tlinfo.CONTEXT is null)
1636: AND (P_CONTEXT is null)))
1637: ) then
1638: p_lock_row := FND_API.G_TRUE;
1639: else
1640: FND_MESSAGE.Set_name('FND', 'FORM_RECORD_CHANGED');
1641: app_exception.raise_exception ;
1642: end if;
1640: FND_MESSAGE.Set_name('FND', 'FORM_RECORD_CHANGED');
1641: app_exception.raise_exception ;
1642: end if;
1643:
1644: p_return_status := FND_API.G_RET_STS_SUCCESS;
1645:
1646: EXCEPTION
1647: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1648: ROLLBACK TO Lock_Row ;
1645:
1646: EXCEPTION
1647: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1648: ROLLBACK TO Lock_Row ;
1649: p_lock_row := FND_API.G_FALSE;
1650: p_return_status := FND_API.G_RET_STS_ERROR;
1651: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1652: p_data => p_msg_data );
1653:
1646: EXCEPTION
1647: WHEN APP_EXCEPTION.RECORD_LOCK_EXCEPTION THEN
1648: ROLLBACK TO Lock_Row ;
1649: p_lock_row := FND_API.G_FALSE;
1650: p_return_status := FND_API.G_RET_STS_ERROR;
1651: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1652: p_data => p_msg_data );
1653:
1654: END LOCK_ROW;
1656: /*---------------------------------------------------------------*/
1657:
1658: PROCEDURE UPDATE_ROW (
1659: p_api_version in number,
1660: p_init_msg_list in varchar2 := fnd_api.g_false,
1661: p_commit in varchar2 := fnd_api.g_false,
1662: p_validation_level in number := fnd_api.g_valid_level_full,
1663: p_return_status OUT NOCOPY varchar2,
1664: p_msg_count OUT NOCOPY number,
1657:
1658: PROCEDURE UPDATE_ROW (
1659: p_api_version in number,
1660: p_init_msg_list in varchar2 := fnd_api.g_false,
1661: p_commit in varchar2 := fnd_api.g_false,
1662: p_validation_level in number := fnd_api.g_valid_level_full,
1663: p_return_status OUT NOCOPY varchar2,
1664: p_msg_count OUT NOCOPY number,
1665: p_msg_data OUT NOCOPY varchar2,
1658: PROCEDURE UPDATE_ROW (
1659: p_api_version in number,
1660: p_init_msg_list in varchar2 := fnd_api.g_false,
1661: p_commit in varchar2 := fnd_api.g_false,
1662: p_validation_level in number := fnd_api.g_valid_level_full,
1663: p_return_status OUT NOCOPY varchar2,
1664: p_msg_count OUT NOCOPY number,
1665: p_msg_data OUT NOCOPY varchar2,
1666:
1738: BEGIN
1739: --
1740: SAVEPOINT Update_Row ;
1741: --
1742: if FND_API.to_Boolean (p_init_msg_list) then
1743: FND_MSG_PUB.initialize;
1744: end if;
1745:
1746: -- Initialize API return status to success
1744: end if;
1745:
1746: -- Initialize API return status to success
1747:
1748: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1749:
1750: --
1751:
1752: P_LAST_UPDATE_DATE := SYSDATE;
1764: end if;
1765: else
1766: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1767: FND_MSG_PUB.Add ;
1768: raise FND_API.G_EXC_ERROR ;
1769: end if;
1770:
1771:
1772: update PSB_BUDGET_GROUPS set
1836: where BUDGET_GROUP_ID = P_BUDGET_GROUP_ID
1837: ;
1838:
1839: if (sql%notfound) then
1840: raise FND_API.G_EXC_ERROR;
1841: end if;
1842:
1843: --
1844: -- Standard check of p_commit.
1841: end if;
1842:
1843: --
1844: -- Standard check of p_commit.
1845: if FND_API.to_Boolean (p_commit) then
1846: commit work;
1847: end if;
1848: -- Standard call to get message count and if count is 1, get message info.
1849: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1852:
1853:
1854: EXCEPTION
1855: --
1856: when FND_API.G_EXC_ERROR then
1857: --
1858: rollback to UPDATE_ROW ;
1859: p_return_status := FND_API.G_RET_STS_ERROR;
1860: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1855: --
1856: when FND_API.G_EXC_ERROR then
1857: --
1858: rollback to UPDATE_ROW ;
1859: p_return_status := FND_API.G_RET_STS_ERROR;
1860: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1861: p_data => p_msg_data);
1862: --
1863: when FND_API.G_EXC_UNEXPECTED_ERROR then
1859: p_return_status := FND_API.G_RET_STS_ERROR;
1860: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1861: p_data => p_msg_data);
1862: --
1863: when FND_API.G_EXC_UNEXPECTED_ERROR then
1864: --
1865: rollback to UPDATE_ROW ;
1866: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1862: --
1863: when FND_API.G_EXC_UNEXPECTED_ERROR then
1864: --
1865: rollback to UPDATE_ROW ;
1866: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1867: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
1868: p_data => p_msg_data);
1869: --
1870: when OTHERS then
1869: --
1870: when OTHERS then
1871: --
1872: rollback to UPDATE_ROW ;
1873: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1874: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
1875: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
1876: l_api_name);
1877: END if;
1885: /*---------------------------------------------------------------*/
1886:
1887: PROCEDURE ADD_ROW (
1888: p_api_version in number,
1889: p_init_msg_list in varchar2 := fnd_api.g_false,
1890: p_commit in varchar2 := fnd_api.g_false,
1891: p_validation_level in number := fnd_api.g_valid_level_full,
1892: p_return_status OUT NOCOPY varchar2,
1893: p_msg_count OUT NOCOPY number,
1886:
1887: PROCEDURE ADD_ROW (
1888: p_api_version in number,
1889: p_init_msg_list in varchar2 := fnd_api.g_false,
1890: p_commit in varchar2 := fnd_api.g_false,
1891: p_validation_level in number := fnd_api.g_valid_level_full,
1892: p_return_status OUT NOCOPY varchar2,
1893: p_msg_count OUT NOCOPY number,
1894: p_msg_data OUT NOCOPY varchar2,
1887: PROCEDURE ADD_ROW (
1888: p_api_version in number,
1889: p_init_msg_list in varchar2 := fnd_api.g_false,
1890: p_commit in varchar2 := fnd_api.g_false,
1891: p_validation_level in number := fnd_api.g_valid_level_full,
1892: p_return_status OUT NOCOPY varchar2,
1893: p_msg_count OUT NOCOPY number,
1894: p_msg_data OUT NOCOPY varchar2,
1895: p_rowid in OUT NOCOPY varchar2,
1970: SAVEPOINT Add_Row ;
1971: --
1972: -- Initialize message list if p_init_msg_list is set to TRUE.
1973: --
1974: if FND_API.to_Boolean (p_init_msg_list) then
1975: FND_MSG_PUB.initialize;
1976: end if;
1977: --
1978: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1974: if FND_API.to_Boolean (p_init_msg_list) then
1975: FND_MSG_PUB.initialize;
1976: end if;
1977: --
1978: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1979: --
1980: open c1;
1981: fetch c1 into dummy;
1982: if (c1%notfound) then
2128: p_mode);
2129:
2130: --
2131: -- Standard check of p_commit.
2132: if FND_API.to_Boolean (p_commit) then
2133: commit work;
2134: end if;
2135: -- Standard call to get message count and if count is 1, get message info.
2136: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2138: --
2139:
2140: EXCEPTION
2141: --
2142: when FND_API.G_EXC_ERROR then
2143: --
2144: rollback to ADD_ROW ;
2145: p_return_status := FND_API.G_RET_STS_ERROR;
2146: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2141: --
2142: when FND_API.G_EXC_ERROR then
2143: --
2144: rollback to ADD_ROW ;
2145: p_return_status := FND_API.G_RET_STS_ERROR;
2146: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2147: p_data => p_msg_data);
2148: --
2149: when FND_API.G_EXC_UNEXPECTED_ERROR then
2145: p_return_status := FND_API.G_RET_STS_ERROR;
2146: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2147: p_data => p_msg_data);
2148: --
2149: when FND_API.G_EXC_UNEXPECTED_ERROR then
2150: --
2151: rollback to ADD_ROW ;
2152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2153: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2148: --
2149: when FND_API.G_EXC_UNEXPECTED_ERROR then
2150: --
2151: rollback to ADD_ROW ;
2152: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2153: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2154: p_data => p_msg_data);
2155: --
2156: when OTHERS then
2155: --
2156: when OTHERS then
2157: --
2158: rollback to ADD_ROW ;
2159: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2160: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2161: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2162: l_api_name);
2163: END if;
2169: /*---------------------------------------------------------------*/
2170:
2171: PROCEDURE DELETE_ROW (
2172: p_api_version in number,
2173: p_init_msg_list in varchar2 := fnd_api.g_false,
2174: p_commit in varchar2 := fnd_api.g_false,
2175: p_validation_level in number := fnd_api.g_valid_level_full,
2176: p_return_status OUT NOCOPY varchar2,
2177: p_msg_count OUT NOCOPY number,
2170:
2171: PROCEDURE DELETE_ROW (
2172: p_api_version in number,
2173: p_init_msg_list in varchar2 := fnd_api.g_false,
2174: p_commit in varchar2 := fnd_api.g_false,
2175: p_validation_level in number := fnd_api.g_valid_level_full,
2176: p_return_status OUT NOCOPY varchar2,
2177: p_msg_count OUT NOCOPY number,
2178: p_msg_data OUT NOCOPY varchar2,
2171: PROCEDURE DELETE_ROW (
2172: p_api_version in number,
2173: p_init_msg_list in varchar2 := fnd_api.g_false,
2174: p_commit in varchar2 := fnd_api.g_false,
2175: p_validation_level in number := fnd_api.g_valid_level_full,
2176: p_return_status OUT NOCOPY varchar2,
2177: p_msg_count OUT NOCOPY number,
2178: p_msg_data OUT NOCOPY varchar2,
2179: p_budget_group_id in number,
2198: (SELECT 1
2199: FROM PSB_POSITION_ACCOUNTS
2200: WHERE budget_group_id = l_budget_group_id
2201: );
2202: l_p1_exists VARCHAR2(1) := FND_API.G_FALSE;
2203:
2204: CURSOR c_p2 IS
2205: SELECT 'PSB_ACCOUNT_POSITION_SETS'
2206: FROM dual
2208: (SELECT 1
2209: FROM PSB_ACCOUNT_POSITION_SETS
2210: WHERE budget_group_id = l_budget_group_id
2211: );
2212: l_p2_exists VARCHAR2(1) := FND_API.G_FALSE;
2213: CURSOR c_p3 IS
2214: SELECT 'PSB_BUDGET_REVISIONS'
2215: FROM dual
2216: WHERE exists
2217: (SELECT 1
2218: FROM PSB_BUDGET_REVISIONS
2219: WHERE budget_group_id = l_budget_group_id
2220: );
2221: l_p3_exists VARCHAR2(1) := FND_API.G_FALSE;
2222: CURSOR c_p4 IS
2223: SELECT 'PSB_BUDGET_REVISION_POSITIONS'
2224: FROM dual
2225: WHERE exists
2226: (SELECT 1
2227: FROM PSB_BUDGET_REVISION_POSITIONS
2228: WHERE budget_group_id = l_budget_group_id
2229: );
2230: l_p4_exists VARCHAR2(1) := FND_API.G_FALSE;
2231: CURSOR c_p5 IS
2232: SELECT 'PSB_BUDGET_REVISION_ACCOUNTS'
2233: FROM dual
2234: WHERE exists
2235: (SELECT 1
2236: FROM PSB_BUDGET_REVISION_ACCOUNTS
2237: WHERE budget_group_id = l_budget_group_id
2238: );
2239: l_p5_exists VARCHAR2(1) := FND_API.G_FALSE;
2240: CURSOR c_p6 IS
2241: SELECT 'PSB_BUDGET_WORKFLOW_RULES'
2242: FROM dual
2243: WHERE exists
2244: (SELECT 1
2245: FROM PSB_BUDGET_WORKFLOW_RULES
2246: WHERE budget_group_id = l_budget_group_id
2247: );
2248: l_p6_exists VARCHAR2(1) := FND_API.G_FALSE;
2249: CURSOR c_p7 IS
2250: SELECT 'PSB_DATA_EXTRACTS'
2251: FROM dual
2252: WHERE exists
2253: (SELECT 1
2254: FROM PSB_DATA_EXTRACTS
2255: WHERE budget_group_id = l_budget_group_id
2256: );
2257: l_p7_exists VARCHAR2(1) := FND_API.G_FALSE;
2258:
2259: CURSOR c_p8 IS
2260: SELECT 'PSB_WS_POSITION_LINES'
2261: FROM dual
2263: (SELECT 1
2264: FROM PSB_WS_POSITION_LINES
2265: WHERE budget_group_id = l_budget_group_id
2266: );
2267: l_p8_exists VARCHAR2(1) := FND_API.G_FALSE;
2268: CURSOR c_p9 IS
2269: SELECT 'PSB_POSITIONS'
2270: FROM dual
2271: WHERE exists
2272: (SELECT 1
2273: FROM PSB_POSITIONS
2274: WHERE budget_group_id = l_budget_group_id
2275: );
2276: l_p9_exists VARCHAR2(1) := FND_API.G_FALSE;
2277:
2278: CURSOR c_p10 IS
2279: SELECT 'PSB_ENTITY_SET'
2280: FROM dual
2282: (SELECT 1
2283: FROM PSB_ENTITY_SET
2284: WHERE budget_group_id = l_budget_group_id
2285: );
2286: l_p10_exists VARCHAR2(1) := FND_API.G_FALSE;
2287:
2288: CURSOR c_p11 IS
2289: SELECT 'PSB_ENTITY'
2290: FROM dual
2292: (SELECT 1
2293: FROM PSB_ENTITY
2294: WHERE budget_group_id = l_budget_group_id
2295: );
2296: l_p11_exists VARCHAR2(1) := FND_API.G_FALSE;
2297:
2298: CURSOR c_p12 IS
2299: SELECT 'PSB_WS_DISTRIBUTION_RULE_LINES'
2300: FROM dual
2302: (SELECT 1
2303: FROM PSB_WS_DISTRIBUTION_RULE_LINES
2304: WHERE budget_group_id = l_budget_group_id
2305: );
2306: l_p12_exists VARCHAR2(1) := FND_API.G_FALSE;
2307:
2308: CURSOR c_p13 IS
2309: SELECT 'PSB_WS_DISTRIBUTION_RULES'
2310: FROM dual
2312: (SELECT 1
2313: FROM PSB_WS_DISTRIBUTION_RULES
2314: WHERE budget_group_id = l_budget_group_id
2315: );
2316: l_p13_exists VARCHAR2(1) := FND_API.G_FALSE;
2317:
2318: CURSOR c_p14 IS
2319: SELECT 'PSB_WS_LINE_BALANCES_I'
2320: FROM dual
2322: (SELECT 1
2323: FROM PSB_WS_LINE_BALANCES_I
2324: WHERE budget_group_id = l_budget_group_id
2325: );
2326: l_p14_exists VARCHAR2(1) := FND_API.G_FALSE;
2327:
2328: CURSOR c_p15 IS
2329: SELECT 'PSB_WORKSHEETS'
2330: FROM dual
2332: (SELECT 1
2333: FROM PSB_WORKSHEETS
2334: WHERE budget_group_id = l_budget_group_id
2335: );
2336: l_p15_exists VARCHAR2(1) := FND_API.G_FALSE;
2337:
2338: CURSOR c_p16 IS
2339: SELECT 'PSB_WS_ACCOUNT_LINES'
2340: FROM dual
2342: (SELECT 1
2343: FROM PSB_WS_ACCOUNT_LINES
2344: WHERE budget_group_id = l_budget_group_id
2345: );
2346: l_p16_exists VARCHAR2(1) := FND_API.G_FALSE;
2347:
2348:
2349: BEGIN
2350:
2353: SAVEPOINT Delete_Row;
2354:
2355: -- Standard call to check for call compatibility.
2356:
2357: if not FND_API.Compatible_API_Call (l_api_version,
2358: p_api_version,
2359: l_api_name,
2360: G_PKG_NAME)
2361: then
2358: p_api_version,
2359: l_api_name,
2360: G_PKG_NAME)
2361: then
2362: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2363: end if;
2364:
2365: -- Initialize message list if p_init_msg_list is set to TRUE.
2366:
2363: end if;
2364:
2365: -- Initialize message list if p_init_msg_list is set to TRUE.
2366:
2367: if FND_API.to_Boolean (p_init_msg_list) then
2368: FND_MSG_PUB.initialize;
2369: end if;
2370:
2371: -- Initialize API return status to success
2369: end if;
2370:
2371: -- Initialize API return status to success
2372:
2373: p_return_status := FND_API.G_RET_STS_SUCCESS;
2374:
2375: -- API body
2376:
2377:
2381: l_budget_group_id := c1rec.budget_group_id;
2382:
2383: -- integrity check
2384: for c_p1_rec in c_p1 loop
2385: l_p1_exists := FND_API.G_TRUE;
2386: end loop;
2387:
2388: IF FND_API.to_Boolean(l_p1_exists) THEN
2389: rollback to Delete_Row;
2384: for c_p1_rec in c_p1 loop
2385: l_p1_exists := FND_API.G_TRUE;
2386: end loop;
2387:
2388: IF FND_API.to_Boolean(l_p1_exists) THEN
2389: rollback to Delete_Row;
2390: message_token('TABLE','PSB_POSITION_ACCOUNTS' );
2391: message_token('BUDGET_GROUP', c1rec.short_name);
2392: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2390: message_token('TABLE','PSB_POSITION_ACCOUNTS' );
2391: message_token('BUDGET_GROUP', c1rec.short_name);
2392: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2393: p_delete := 'NO_DELETE';
2394: raise FND_API.G_EXC_ERROR;
2395: end if;
2396:
2397: for c_p2_rec in c_p2 loop
2398: l_p2_exists := FND_API.G_TRUE;
2394: raise FND_API.G_EXC_ERROR;
2395: end if;
2396:
2397: for c_p2_rec in c_p2 loop
2398: l_p2_exists := FND_API.G_TRUE;
2399: end loop;
2400:
2401: IF FND_API.to_Boolean(l_p2_exists) THEN
2402: rollback to Delete_Row;
2397: for c_p2_rec in c_p2 loop
2398: l_p2_exists := FND_API.G_TRUE;
2399: end loop;
2400:
2401: IF FND_API.to_Boolean(l_p2_exists) THEN
2402: rollback to Delete_Row;
2403: message_token('TABLE','PSB_ACCOUNT_POSITION_SETS' );
2404: message_token('BUDGET_GROUP', c1rec.short_name);
2405: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2403: message_token('TABLE','PSB_ACCOUNT_POSITION_SETS' );
2404: message_token('BUDGET_GROUP', c1rec.short_name);
2405: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2406: p_delete := 'NO_DELETE';
2407: raise FND_API.G_EXC_ERROR;
2408: end if;
2409:
2410: for c_p3_rec in c_p3 loop
2411: l_p3_exists := FND_API.G_TRUE;
2407: raise FND_API.G_EXC_ERROR;
2408: end if;
2409:
2410: for c_p3_rec in c_p3 loop
2411: l_p3_exists := FND_API.G_TRUE;
2412: end loop;
2413:
2414: IF FND_API.to_Boolean(l_p3_exists) THEN
2415: rollback to Delete_Row;
2410: for c_p3_rec in c_p3 loop
2411: l_p3_exists := FND_API.G_TRUE;
2412: end loop;
2413:
2414: IF FND_API.to_Boolean(l_p3_exists) THEN
2415: rollback to Delete_Row;
2416: message_token('TABLE','PSB_BUDGET_REVISIONS' );
2417: message_token('BUDGET_GROUP', c1rec.short_name);
2418: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2416: message_token('TABLE','PSB_BUDGET_REVISIONS' );
2417: message_token('BUDGET_GROUP', c1rec.short_name);
2418: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2419: p_delete := 'NO_DELETE';
2420: raise FND_API.G_EXC_ERROR;
2421: end if;
2422:
2423: for c_p4_rec in c_p4 loop
2424: l_p4_exists := FND_API.G_TRUE;
2420: raise FND_API.G_EXC_ERROR;
2421: end if;
2422:
2423: for c_p4_rec in c_p4 loop
2424: l_p4_exists := FND_API.G_TRUE;
2425: end loop;
2426:
2427: IF FND_API.to_Boolean(l_p4_exists) THEN
2428: rollback to Delete_Row;
2423: for c_p4_rec in c_p4 loop
2424: l_p4_exists := FND_API.G_TRUE;
2425: end loop;
2426:
2427: IF FND_API.to_Boolean(l_p4_exists) THEN
2428: rollback to Delete_Row;
2429: message_token('TABLE','PSB_BUDGET_REVISION_POSITIONS' );
2430: message_token('BUDGET_GROUP', c1rec.short_name);
2431: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2429: message_token('TABLE','PSB_BUDGET_REVISION_POSITIONS' );
2430: message_token('BUDGET_GROUP', c1rec.short_name);
2431: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2432: p_delete := 'NO_DELETE';
2433: raise FND_API.G_EXC_ERROR;
2434: end if;
2435:
2436: for c_p5_rec in c_p5 loop
2437: l_p5_exists := FND_API.G_TRUE;
2433: raise FND_API.G_EXC_ERROR;
2434: end if;
2435:
2436: for c_p5_rec in c_p5 loop
2437: l_p5_exists := FND_API.G_TRUE;
2438: end loop;
2439:
2440: IF FND_API.to_Boolean(l_p5_exists) THEN
2441: rollback to Delete_Row;
2436: for c_p5_rec in c_p5 loop
2437: l_p5_exists := FND_API.G_TRUE;
2438: end loop;
2439:
2440: IF FND_API.to_Boolean(l_p5_exists) THEN
2441: rollback to Delete_Row;
2442: message_token('TABLE','PSB_BUDGET_REVISION_ACCOUNTS' );
2443: message_token('BUDGET_GROUP', c1rec.short_name);
2444: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2442: message_token('TABLE','PSB_BUDGET_REVISION_ACCOUNTS' );
2443: message_token('BUDGET_GROUP', c1rec.short_name);
2444: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2445: p_delete := 'NO_DELETE';
2446: raise FND_API.G_EXC_ERROR;
2447: end if;
2448:
2449: for c_p6_rec in c_p6 loop
2450: l_p6_exists := FND_API.G_TRUE;
2446: raise FND_API.G_EXC_ERROR;
2447: end if;
2448:
2449: for c_p6_rec in c_p6 loop
2450: l_p6_exists := FND_API.G_TRUE;
2451: end loop;
2452:
2453: IF FND_API.to_Boolean(l_p6_exists) THEN
2454: rollback to Delete_Row;
2449: for c_p6_rec in c_p6 loop
2450: l_p6_exists := FND_API.G_TRUE;
2451: end loop;
2452:
2453: IF FND_API.to_Boolean(l_p6_exists) THEN
2454: rollback to Delete_Row;
2455: message_token('TABLE','PSB_BUDGET_WORKFLOW_RULES' );
2456: message_token('BUDGET_GROUP', c1rec.short_name);
2457: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2455: message_token('TABLE','PSB_BUDGET_WORKFLOW_RULES' );
2456: message_token('BUDGET_GROUP', c1rec.short_name);
2457: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2458: p_delete := 'NO_DELETE';
2459: raise FND_API.G_EXC_ERROR;
2460: end if;
2461:
2462: for c_p7_rec in c_p7 loop
2463: l_p7_exists := FND_API.G_TRUE;
2459: raise FND_API.G_EXC_ERROR;
2460: end if;
2461:
2462: for c_p7_rec in c_p7 loop
2463: l_p7_exists := FND_API.G_TRUE;
2464: end loop;
2465:
2466: IF FND_API.to_Boolean(l_p7_exists) THEN
2467: rollback to Delete_Row;
2462: for c_p7_rec in c_p7 loop
2463: l_p7_exists := FND_API.G_TRUE;
2464: end loop;
2465:
2466: IF FND_API.to_Boolean(l_p7_exists) THEN
2467: rollback to Delete_Row;
2468: message_token('TABLE','PSB_DATA_EXTRACTS' );
2469: message_token('BUDGET_GROUP', c1rec.short_name);
2470: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2468: message_token('TABLE','PSB_DATA_EXTRACTS' );
2469: message_token('BUDGET_GROUP', c1rec.short_name);
2470: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2471: p_delete := 'NO_DELETE';
2472: raise FND_API.G_EXC_ERROR;
2473: end if;
2474:
2475: for c_p8_rec in c_p8 loop
2476: l_p8_exists := FND_API.G_TRUE;
2472: raise FND_API.G_EXC_ERROR;
2473: end if;
2474:
2475: for c_p8_rec in c_p8 loop
2476: l_p8_exists := FND_API.G_TRUE;
2477: end loop;
2478:
2479: IF FND_API.to_Boolean(l_p8_exists) THEN
2480: rollback to Delete_Row;
2475: for c_p8_rec in c_p8 loop
2476: l_p8_exists := FND_API.G_TRUE;
2477: end loop;
2478:
2479: IF FND_API.to_Boolean(l_p8_exists) THEN
2480: rollback to Delete_Row;
2481: message_token('TABLE','PSB_WS_POSITION_LINES' );
2482: message_token('BUDGET_GROUP', c1rec.short_name);
2483: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2481: message_token('TABLE','PSB_WS_POSITION_LINES' );
2482: message_token('BUDGET_GROUP', c1rec.short_name);
2483: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2484: p_delete := 'NO_DELETE';
2485: raise FND_API.G_EXC_ERROR;
2486: end if;
2487:
2488: for c_p9_rec in c_p9 loop
2489: l_p9_exists := FND_API.G_TRUE;
2485: raise FND_API.G_EXC_ERROR;
2486: end if;
2487:
2488: for c_p9_rec in c_p9 loop
2489: l_p9_exists := FND_API.G_TRUE;
2490: end loop;
2491:
2492: IF FND_API.to_Boolean(l_p9_exists) THEN
2493: rollback to Delete_Row;
2488: for c_p9_rec in c_p9 loop
2489: l_p9_exists := FND_API.G_TRUE;
2490: end loop;
2491:
2492: IF FND_API.to_Boolean(l_p9_exists) THEN
2493: rollback to Delete_Row;
2494: message_token('TABLE','PSB_POSITIONS' );
2495: message_token('BUDGET_GROUP', c1rec.short_name);
2496: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2494: message_token('TABLE','PSB_POSITIONS' );
2495: message_token('BUDGET_GROUP', c1rec.short_name);
2496: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2497: p_delete := 'NO_DELETE';
2498: raise FND_API.G_EXC_ERROR;
2499: end if;
2500:
2501: for c_p10_rec in c_p10 loop
2502: l_p10_exists := FND_API.G_TRUE;
2498: raise FND_API.G_EXC_ERROR;
2499: end if;
2500:
2501: for c_p10_rec in c_p10 loop
2502: l_p10_exists := FND_API.G_TRUE;
2503: end loop;
2504:
2505: IF FND_API.to_Boolean(l_p10_exists) THEN
2506: rollback to Delete_Row;
2501: for c_p10_rec in c_p10 loop
2502: l_p10_exists := FND_API.G_TRUE;
2503: end loop;
2504:
2505: IF FND_API.to_Boolean(l_p10_exists) THEN
2506: rollback to Delete_Row;
2507: message_token('TABLE','PSB_ENTITY_SET' );
2508: message_token('BUDGET_GROUP', c1rec.short_name);
2509: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2507: message_token('TABLE','PSB_ENTITY_SET' );
2508: message_token('BUDGET_GROUP', c1rec.short_name);
2509: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2510: p_delete := 'NO_DELETE';
2511: raise FND_API.G_EXC_ERROR;
2512: end if;
2513:
2514: for c_p11_rec in c_p11 loop
2515: l_p11_exists := FND_API.G_TRUE;
2511: raise FND_API.G_EXC_ERROR;
2512: end if;
2513:
2514: for c_p11_rec in c_p11 loop
2515: l_p11_exists := FND_API.G_TRUE;
2516: end loop;
2517:
2518: IF FND_API.to_Boolean(l_p11_exists) THEN
2519: rollback to Delete_Row;
2514: for c_p11_rec in c_p11 loop
2515: l_p11_exists := FND_API.G_TRUE;
2516: end loop;
2517:
2518: IF FND_API.to_Boolean(l_p11_exists) THEN
2519: rollback to Delete_Row;
2520: message_token('TABLE','PSB_ENTITY' );
2521: message_token('BUDGET_GROUP', c1rec.short_name);
2522: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2520: message_token('TABLE','PSB_ENTITY' );
2521: message_token('BUDGET_GROUP', c1rec.short_name);
2522: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2523: p_delete := 'NO_DELETE';
2524: raise FND_API.G_EXC_ERROR;
2525: end if;
2526:
2527: for c_p12_rec in c_p12 loop
2528: l_p12_exists := FND_API.G_TRUE;
2524: raise FND_API.G_EXC_ERROR;
2525: end if;
2526:
2527: for c_p12_rec in c_p12 loop
2528: l_p12_exists := FND_API.G_TRUE;
2529: end loop;
2530:
2531: IF FND_API.to_Boolean(l_p12_exists) THEN
2532: rollback to Delete_Row;
2527: for c_p12_rec in c_p12 loop
2528: l_p12_exists := FND_API.G_TRUE;
2529: end loop;
2530:
2531: IF FND_API.to_Boolean(l_p12_exists) THEN
2532: rollback to Delete_Row;
2533: message_token('TABLE','PSB_WS_DISTRIBUTION_RULE_LINES' );
2534: message_token('BUDGET_GROUP', c1rec.short_name);
2535: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2533: message_token('TABLE','PSB_WS_DISTRIBUTION_RULE_LINES' );
2534: message_token('BUDGET_GROUP', c1rec.short_name);
2535: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2536: p_delete := 'NO_DELETE';
2537: raise FND_API.G_EXC_ERROR;
2538: end if;
2539:
2540: for c_p13_rec in c_p13 loop
2541: l_p13_exists := FND_API.G_TRUE;
2537: raise FND_API.G_EXC_ERROR;
2538: end if;
2539:
2540: for c_p13_rec in c_p13 loop
2541: l_p13_exists := FND_API.G_TRUE;
2542: end loop;
2543:
2544: IF FND_API.to_Boolean(l_p13_exists) THEN
2545: rollback to Delete_Row;
2540: for c_p13_rec in c_p13 loop
2541: l_p13_exists := FND_API.G_TRUE;
2542: end loop;
2543:
2544: IF FND_API.to_Boolean(l_p13_exists) THEN
2545: rollback to Delete_Row;
2546: message_token('TABLE','PSB_WS_DISTRIBUTION_RULES' );
2547: message_token('BUDGET_GROUP', c1rec.short_name);
2548: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2546: message_token('TABLE','PSB_WS_DISTRIBUTION_RULES' );
2547: message_token('BUDGET_GROUP', c1rec.short_name);
2548: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2549: p_delete := 'NO_DELETE';
2550: raise FND_API.G_EXC_ERROR;
2551: end if;
2552:
2553: for c_p14_rec in c_p14 loop
2554: l_p14_exists := FND_API.G_TRUE;
2550: raise FND_API.G_EXC_ERROR;
2551: end if;
2552:
2553: for c_p14_rec in c_p14 loop
2554: l_p14_exists := FND_API.G_TRUE;
2555: end loop;
2556:
2557: IF FND_API.to_Boolean(l_p14_exists) THEN
2558: rollback to Delete_Row;
2553: for c_p14_rec in c_p14 loop
2554: l_p14_exists := FND_API.G_TRUE;
2555: end loop;
2556:
2557: IF FND_API.to_Boolean(l_p14_exists) THEN
2558: rollback to Delete_Row;
2559: message_token('TABLE','PSB_WS_LINE_BALANCES_I' );
2560: message_token('BUDGET_GROUP', c1rec.short_name);
2561: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2559: message_token('TABLE','PSB_WS_LINE_BALANCES_I' );
2560: message_token('BUDGET_GROUP', c1rec.short_name);
2561: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2562: p_delete := 'NO_DELETE';
2563: raise FND_API.G_EXC_ERROR;
2564: end if;
2565:
2566: for c_p15_rec in c_p15 loop
2567: l_p15_exists := FND_API.G_TRUE;
2563: raise FND_API.G_EXC_ERROR;
2564: end if;
2565:
2566: for c_p15_rec in c_p15 loop
2567: l_p15_exists := FND_API.G_TRUE;
2568: end loop;
2569:
2570: IF FND_API.to_Boolean(l_p15_exists) THEN
2571: rollback to Delete_Row;
2566: for c_p15_rec in c_p15 loop
2567: l_p15_exists := FND_API.G_TRUE;
2568: end loop;
2569:
2570: IF FND_API.to_Boolean(l_p15_exists) THEN
2571: rollback to Delete_Row;
2572: message_token('TABLE','PSB_WORKSHEETS' );
2573: message_token('BUDGET_GROUP', c1rec.short_name);
2574: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2572: message_token('TABLE','PSB_WORKSHEETS' );
2573: message_token('BUDGET_GROUP', c1rec.short_name);
2574: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2575: p_delete := 'NO_DELETE';
2576: raise FND_API.G_EXC_ERROR;
2577: end if;
2578:
2579: for c_p16_rec in c_p16 loop
2580: l_p16_exists := FND_API.G_TRUE;
2576: raise FND_API.G_EXC_ERROR;
2577: end if;
2578:
2579: for c_p16_rec in c_p16 loop
2580: l_p16_exists := FND_API.G_TRUE;
2581: end loop;
2582:
2583: IF FND_API.to_Boolean(l_p16_exists) THEN
2584: rollback to Delete_Row;
2579: for c_p16_rec in c_p16 loop
2580: l_p16_exists := FND_API.G_TRUE;
2581: end loop;
2582:
2583: IF FND_API.to_Boolean(l_p16_exists) THEN
2584: rollback to Delete_Row;
2585: message_token('TABLE','PSB_WS_ACCOUNT_LINES' );
2586: message_token('BUDGET_GROUP', c1rec.short_name);
2587: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2585: message_token('TABLE','PSB_WS_ACCOUNT_LINES' );
2586: message_token('BUDGET_GROUP', c1rec.short_name);
2587: add_message('PSB', 'PSB_BG_CANNOT_BE_DELETED');
2588: p_delete := 'NO_DELETE';
2589: raise FND_API.G_EXC_ERROR;
2590: end if;
2591:
2592:
2593:
2623: null;
2624: end if;
2625:
2626: p_delete := 'DELETE';
2627: p_return_status := FND_API.G_RET_STS_SUCCESS;
2628:
2629: -- End of API body.
2630:
2631: -- Standard check of p_commit.
2629: -- End of API body.
2630:
2631: -- Standard check of p_commit.
2632:
2633: if FND_API.to_Boolean (p_commit) then
2634: commit work;
2635: end if;
2636:
2637: -- Standard call to get message count and if count is 1, get message info.
2640: p_data => p_msg_data);
2641:
2642: EXCEPTION
2643:
2644: when FND_API.G_EXC_ERROR then
2645:
2646: rollback to Delete_Row;
2647:
2648: p_return_status := FND_API.G_RET_STS_ERROR;
2644: when FND_API.G_EXC_ERROR then
2645:
2646: rollback to Delete_Row;
2647:
2648: p_return_status := FND_API.G_RET_STS_ERROR;
2649:
2650: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2651: p_data => p_msg_data);
2652:
2650: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2651: p_data => p_msg_data);
2652:
2653:
2654: when FND_API.G_EXC_UNEXPECTED_ERROR then
2655:
2656: rollback to Delete_Row;
2657:
2658: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2654: when FND_API.G_EXC_UNEXPECTED_ERROR then
2655:
2656: rollback to Delete_Row;
2657:
2658: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2659:
2660: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2661: p_data => p_msg_data);
2662:
2664: when OTHERS then
2665:
2666: rollback to Delete_Row;
2667:
2668: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2669:
2670: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2671:
2672: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2679: END Delete_Row;
2680:
2681: PROCEDURE Delete_Review_Group (
2682: p_api_version in number,
2683: p_init_msg_list in varchar2 := fnd_api.g_false,
2684: p_commit in varchar2 := fnd_api.g_false,
2685: p_validation_level in number := fnd_api.g_valid_level_full,
2686: p_return_status OUT NOCOPY varchar2,
2687: p_msg_count OUT NOCOPY number,
2680:
2681: PROCEDURE Delete_Review_Group (
2682: p_api_version in number,
2683: p_init_msg_list in varchar2 := fnd_api.g_false,
2684: p_commit in varchar2 := fnd_api.g_false,
2685: p_validation_level in number := fnd_api.g_valid_level_full,
2686: p_return_status OUT NOCOPY varchar2,
2687: p_msg_count OUT NOCOPY number,
2688: p_msg_data OUT NOCOPY varchar2,
2681: PROCEDURE Delete_Review_Group (
2682: p_api_version in number,
2683: p_init_msg_list in varchar2 := fnd_api.g_false,
2684: p_commit in varchar2 := fnd_api.g_false,
2685: p_validation_level in number := fnd_api.g_valid_level_full,
2686: p_return_status OUT NOCOPY varchar2,
2687: p_msg_count OUT NOCOPY number,
2688: p_msg_data OUT NOCOPY varchar2,
2689:
2698: SAVEPOINT Delete_Review_Group ;
2699: --
2700: -- Initialize message list if p_init_msg_list is set to TRUE.
2701: --
2702: if FND_API.to_Boolean (p_init_msg_list) then
2703: FND_MSG_PUB.initialize;
2704: end if;
2705: --
2706: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2702: if FND_API.to_Boolean (p_init_msg_list) then
2703: FND_MSG_PUB.initialize;
2704: end if;
2705: --
2706: p_return_status := FND_API.G_RET_STS_SUCCESS ;
2707: --
2708: delete from PSB_BUDGET_GROUPS
2709: where BUDGET_GROUP_ID = P_BUDGET_GROUP_ID;
2710: if (sql%notfound) then
2707: --
2708: delete from PSB_BUDGET_GROUPS
2709: where BUDGET_GROUP_ID = P_BUDGET_GROUP_ID;
2710: if (sql%notfound) then
2711: raise FND_API.G_EXC_ERROR ;
2712: end if;
2713:
2714: delete psb_budget_group_resp where budget_group_id = P_BUDGET_GROUP_ID;
2715: if (sql%notfound) then
2716: null;
2717: end if;
2718: --
2719: -- Standard check of p_commit.
2720: if FND_API.to_Boolean (p_commit) then
2721: commit work;
2722: end if;
2723: -- Standard call to get message count and if count is 1, get message info.
2724: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2726: --
2727:
2728: EXCEPTION
2729: --
2730: when FND_API.G_EXC_ERROR then
2731: --
2732: rollback to Delete_Review_Group ;
2733: p_return_status := FND_API.G_RET_STS_ERROR;
2734: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2729: --
2730: when FND_API.G_EXC_ERROR then
2731: --
2732: rollback to Delete_Review_Group ;
2733: p_return_status := FND_API.G_RET_STS_ERROR;
2734: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2735: p_data => p_msg_data);
2736: --
2737: when FND_API.G_EXC_UNEXPECTED_ERROR then
2733: p_return_status := FND_API.G_RET_STS_ERROR;
2734: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2735: p_data => p_msg_data);
2736: --
2737: when FND_API.G_EXC_UNEXPECTED_ERROR then
2738: --
2739: rollback to Delete_Review_Group ;
2740: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2741: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2736: --
2737: when FND_API.G_EXC_UNEXPECTED_ERROR then
2738: --
2739: rollback to Delete_Review_Group ;
2740: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2741: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
2742: p_data => p_msg_data);
2743: --
2744: when OTHERS then
2743: --
2744: when OTHERS then
2745: --
2746: rollback to DELETE_ROW ;
2747: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2748: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
2749: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
2750: l_api_name);
2751: END if;
2758: /*---------------------------------------------------------------*/
2759:
2760: PROCEDURE Copy_Budget_Group
2761: ( p_api_version IN NUMBER,
2762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2765: p_src_budget_group_id IN NUMBER,
2766: p_curr_budget_group_id IN NUMBER,
2759:
2760: PROCEDURE Copy_Budget_Group
2761: ( p_api_version IN NUMBER,
2762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2765: p_src_budget_group_id IN NUMBER,
2766: p_curr_budget_group_id IN NUMBER,
2767: p_return_status OUT NOCOPY VARCHAR2,
2760: PROCEDURE Copy_Budget_Group
2761: ( p_api_version IN NUMBER,
2762: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2763: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2764: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2765: p_src_budget_group_id IN NUMBER,
2766: p_curr_budget_group_id IN NUMBER,
2767: p_return_status OUT NOCOPY VARCHAR2,
2768: p_msg_count OUT NOCOPY NUMBER,
2921: SAVEPOINT Copy_Budget_Group;
2922:
2923: -- Standard call to check for call compatibility.
2924:
2925: if not FND_API.Compatible_API_Call (l_api_version,
2926: p_api_version,
2927: l_api_name,
2928: G_PKG_NAME)
2929: then
2926: p_api_version,
2927: l_api_name,
2928: G_PKG_NAME)
2929: then
2930: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2931: end if;
2932:
2933: -- Initialize message list if p_init_msg_list is set to TRUE.
2934:
2931: end if;
2932:
2933: -- Initialize message list if p_init_msg_list is set to TRUE.
2934:
2935: if FND_API.to_Boolean (p_init_msg_list) then
2936: FND_MSG_PUB.initialize;
2937: end if;
2938:
2939: -- Initialize API return status to success
2937: end if;
2938:
2939: -- Initialize API return status to success
2940:
2941: p_return_status := FND_API.G_RET_STS_SUCCESS;
2942:
2943: l_last_update_date := sysdate;
2944: l_last_updated_by := FND_GLOBAL.USER_ID;
2945: l_last_update_login :=FND_GLOBAL.LOGIN_ID;
3134:
3135: PSB_Account_Position_Set_PVT.Insert_Row
3136: (
3137: p_api_version => 1.0,
3138: p_init_msg_list => FND_API.G_TRUE,
3139: p_commit => FND_API.G_FALSE,
3140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3141: p_return_status => l_return_status,
3142: p_msg_count => l_msg_count,
3135: PSB_Account_Position_Set_PVT.Insert_Row
3136: (
3137: p_api_version => 1.0,
3138: p_init_msg_list => FND_API.G_TRUE,
3139: p_commit => FND_API.G_FALSE,
3140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3141: p_return_status => l_return_status,
3142: p_msg_count => l_msg_count,
3143: p_msg_data => l_msg_data,
3136: (
3137: p_api_version => 1.0,
3138: p_init_msg_list => FND_API.G_TRUE,
3139: p_commit => FND_API.G_FALSE,
3140: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3141: p_return_status => l_return_status,
3142: p_msg_count => l_msg_count,
3143: p_msg_data => l_msg_data,
3144: p_row_id => l_row_id,
3157: p_creation_date => l_creation_date,
3158: p_use_in_budget_group_flag => Bgsr_Rec.use_in_budget_group_flag
3159: );
3160:
3161: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3162: --
3163: FND_MSG_PUB.Get( p_msg_index => 1 ,
3164: p_encoded => FND_API.G_FALSE ,
3165: p_data => l_msg_data ,
3160:
3161: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3162: --
3163: FND_MSG_PUB.Get( p_msg_index => 1 ,
3164: p_encoded => FND_API.G_FALSE ,
3165: p_data => l_msg_data ,
3166: p_msg_index_out => l_msg_count
3167: );
3168: --debug(l_msg_data);
3171:
3172: PSB_Set_Relation_PVT.Insert_Row
3173: (
3174: p_api_version => 1.0,
3175: p_init_msg_list => FND_API.G_TRUE,
3176: p_commit => FND_API.G_FALSE,
3177: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3178: p_return_status => l_return_status1,
3179: p_msg_count => l_msg_count1,
3172: PSB_Set_Relation_PVT.Insert_Row
3173: (
3174: p_api_version => 1.0,
3175: p_init_msg_list => FND_API.G_TRUE,
3176: p_commit => FND_API.G_FALSE,
3177: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3178: p_return_status => l_return_status1,
3179: p_msg_count => l_msg_count1,
3180: p_msg_data => l_msg_data1,
3173: (
3174: p_api_version => 1.0,
3175: p_init_msg_list => FND_API.G_TRUE,
3176: p_commit => FND_API.G_FALSE,
3177: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3178: p_return_status => l_return_status1,
3179: p_msg_count => l_msg_count1,
3180: p_msg_data => l_msg_data1,
3181: p_Row_Id => l_row_id1,
3200: p_created_by => l_created_by,
3201: p_creation_date => l_creation_date
3202: );
3203:
3204: if l_return_status1 <> FND_API.G_RET_STS_SUCCESS then
3205: --
3206: FND_MSG_PUB.Get( p_msg_index => 1 ,
3207: p_encoded => FND_API.G_FALSE ,
3208: p_data => l_msg_data1 ,
3203:
3204: if l_return_status1 <> FND_API.G_RET_STS_SUCCESS then
3205: --
3206: FND_MSG_PUB.Get( p_msg_index => 1 ,
3207: p_encoded => FND_API.G_FALSE ,
3208: p_data => l_msg_data1 ,
3209: p_msg_index_out => l_msg_count1
3210: );
3211: --debug(l_msg_data1);
3233:
3234: PSB_Acct_Pos_Set_Line_I_PVT.Insert_Row
3235: (
3236: p_api_version => 1.0,
3237: p_init_msg_list => FND_API.G_TRUE,
3238: p_commit => FND_API.G_FALSE,
3239: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3240: p_return_status => l_return_status2,
3241: p_msg_count => l_msg_count2,
3234: PSB_Acct_Pos_Set_Line_I_PVT.Insert_Row
3235: (
3236: p_api_version => 1.0,
3237: p_init_msg_list => FND_API.G_TRUE,
3238: p_commit => FND_API.G_FALSE,
3239: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3240: p_return_status => l_return_status2,
3241: p_msg_count => l_msg_count2,
3242: p_msg_data => l_msg_data2,
3235: (
3236: p_api_version => 1.0,
3237: p_init_msg_list => FND_API.G_TRUE,
3238: p_commit => FND_API.G_FALSE,
3239: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3240: p_return_status => l_return_status2,
3241: p_msg_count => l_msg_count2,
3242: p_msg_data => l_msg_data2,
3243: p_Row_Id => l_row_id2,
3323: p_last_update_login => l_last_update_login,
3324: p_created_by => l_created_by,
3325: p_creation_date => l_creation_date
3326: );
3327: if l_return_status2 <> FND_API.G_RET_STS_SUCCESS then
3328: --
3329: FND_MSG_PUB.Get( p_msg_index => 1 ,
3330: p_encoded => FND_API.G_FALSE ,
3331: p_data => l_msg_data2 ,
3326: );
3327: if l_return_status2 <> FND_API.G_RET_STS_SUCCESS then
3328: --
3329: FND_MSG_PUB.Get( p_msg_index => 1 ,
3330: p_encoded => FND_API.G_FALSE ,
3331: p_data => l_msg_data2 ,
3332: p_msg_index_out => l_msg_count2
3333: );
3334: --debug(l_msg_data2);
3353: -- End of API body.
3354:
3355: -- Standard check of p_commit.
3356:
3357: if FND_API.to_Boolean (p_commit) then
3358: commit work;
3359: end if;
3360:
3361: -- Standard call to get message count and if count is 1, get message info.
3364: p_data => p_msg_data);
3365:
3366: EXCEPTION
3367:
3368: when FND_API.G_EXC_ERROR then
3369:
3370: rollback to Copy_Budget_Group;
3371:
3372: p_return_status := FND_API.G_RET_STS_ERROR;
3368: when FND_API.G_EXC_ERROR then
3369:
3370: rollback to Copy_Budget_Group;
3371:
3372: p_return_status := FND_API.G_RET_STS_ERROR;
3373:
3374: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3375: p_data => p_msg_data);
3376:
3374: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3375: p_data => p_msg_data);
3376:
3377:
3378: when FND_API.G_EXC_UNEXPECTED_ERROR then
3379:
3380: rollback to Copy_Budget_Group;
3381:
3382: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3378: when FND_API.G_EXC_UNEXPECTED_ERROR then
3379:
3380: rollback to Copy_Budget_Group;
3381:
3382: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3383:
3384: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3385: p_data => p_msg_data);
3386:
3388: when OTHERS then
3389:
3390: rollback to Copy_Budget_Group;
3391:
3392: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3393:
3394: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3395:
3396: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3405: /* ----------------------------------------------------------------------- */
3406:
3407: PROCEDURE Account_Overlap_Validation
3408: ( p_api_version IN NUMBER,
3409: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3410: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3411: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3412: p_return_status OUT NOCOPY VARCHAR2,
3413: p_msg_count OUT NOCOPY NUMBER,
3406:
3407: PROCEDURE Account_Overlap_Validation
3408: ( p_api_version IN NUMBER,
3409: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3410: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3411: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3412: p_return_status OUT NOCOPY VARCHAR2,
3413: p_msg_count OUT NOCOPY NUMBER,
3414: p_msg_data OUT NOCOPY VARCHAR2,
3407: PROCEDURE Account_Overlap_Validation
3408: ( p_api_version IN NUMBER,
3409: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3410: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3411: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3412: p_return_status OUT NOCOPY VARCHAR2,
3413: p_msg_count OUT NOCOPY NUMBER,
3414: p_msg_data OUT NOCOPY VARCHAR2,
3415: p_budget_group_id IN NUMBER
3442: SAVEPOINT Account_Overlap_Validation;
3443:
3444: -- Standard call to check for call compatibility.
3445:
3446: if not FND_API.Compatible_API_Call (l_api_version,
3447: p_api_version,
3448: l_api_name,
3449: G_PKG_NAME)
3450: then
3447: p_api_version,
3448: l_api_name,
3449: G_PKG_NAME)
3450: then
3451: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3452: end if;
3453:
3454:
3455: -- Initialize message list if p_init_msg_list is set to TRUE.
3453:
3454:
3455: -- Initialize message list if p_init_msg_list is set to TRUE.
3456:
3457: if FND_API.to_Boolean (p_init_msg_list) then
3458: FND_MSG_PUB.initialize;
3459: end if;
3460:
3461: -- Initialize API return status to success
3459: end if;
3460:
3461: -- Initialize API return status to success
3462:
3463: p_return_status := FND_API.G_RET_STS_SUCCESS;
3464:
3465: /* --- S T A R T OF A P I */
3466:
3467: FOR c_top_level_bg_rec in c_top_level_bg LOOP
3521: ( p_top_budget_group_id => p_budget_group_id,
3522: p_flex_code => l_flex_code,
3523: p_return_status => l_return_status);
3524:
3525: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3526: l_error_flag := 'Y';
3527: end if;
3528:
3529: END LOOP;
3540: -- End of API body.
3541:
3542: -- Standard check of p_commit.
3543:
3544: if FND_API.to_Boolean (p_commit) then
3545: commit work;
3546: end if;
3547:
3548: -- Standard call to get message count and if count is 1, get message info.
3551: p_data => p_msg_data);
3552:
3553: EXCEPTION
3554:
3555: when FND_API.G_EXC_ERROR then
3556:
3557: rollback to Account_Overlap_Validation;
3558: p_return_status := FND_API.G_RET_STS_ERROR;
3559: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3554:
3555: when FND_API.G_EXC_ERROR then
3556:
3557: rollback to Account_Overlap_Validation;
3558: p_return_status := FND_API.G_RET_STS_ERROR;
3559: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3560: p_data => p_msg_data);
3561:
3562:
3559: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3560: p_data => p_msg_data);
3561:
3562:
3563: when FND_API.G_EXC_UNEXPECTED_ERROR then
3564:
3565: rollback to Account_Overlap_Validation;
3566: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3567: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3562:
3563: when FND_API.G_EXC_UNEXPECTED_ERROR then
3564:
3565: rollback to Account_Overlap_Validation;
3566: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3567: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3568: p_data => p_msg_data);
3569:
3570:
3570:
3571: when OTHERS then
3572:
3573: rollback to Account_Overlap_Validation;
3574: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3575: if FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) then
3576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME,
3577: l_api_name);
3578: end if;
3589: p_return_status OUT NOCOPY VARCHAR2
3590: ) AS
3591:
3592: l_concat VARCHAR2(2000);
3593: l_error_flag VARCHAR2(1) := FND_API.G_FALSE;
3594: l_error_count NUMBER := 0;
3595:
3596: /* start bug 4030864 */
3597: l_count NUMBER := 0;
3655:
3656: message_token('CCID', l_concat);
3657: add_message('PSB', 'PSB_MISSING_BUDGET_ACCOUNTS');
3658:
3659: l_error_flag := FND_API.G_TRUE;
3660:
3661: end loop;
3662:
3663: /* Start bug no 4030864 */
3667: PSB_MESSAGE_S.BATCH_INSERT_ERROR('VALIDATE_BUDGET_HIERARCHY',
3668: p_top_budget_group_id);
3669:
3670: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
3671: p_print_header => FND_API.G_TRUE) ;
3672:
3673: fnd_msg_pub.initialize;
3674: END IF;
3675: /* End bug no 4030864 */
3679: end loop;
3680: close c_Missing_Accounts;
3681: /*For Bug No : 2519314 End*/
3682:
3683: if FND_API.to_Boolean(l_error_flag) then
3684: raise FND_API.G_EXC_ERROR;
3685: end if;
3686:
3687:
3680: close c_Missing_Accounts;
3681: /*For Bug No : 2519314 End*/
3682:
3683: if FND_API.to_Boolean(l_error_flag) then
3684: raise FND_API.G_EXC_ERROR;
3685: end if;
3686:
3687:
3688: EXCEPTION
3686:
3687:
3688: EXCEPTION
3689:
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: if c_Missing_Accounts%ISOPEN then
3692: close c_Missing_Accounts;
3693: end if;
3694: p_return_status := FND_API.G_RET_STS_ERROR;
3690: WHEN FND_API.G_EXC_ERROR THEN
3691: if c_Missing_Accounts%ISOPEN then
3692: close c_Missing_Accounts;
3693: end if;
3694: p_return_status := FND_API.G_RET_STS_ERROR;
3695:
3696: when FND_API.G_EXC_UNEXPECTED_ERROR then
3697: if c_Missing_Accounts%ISOPEN then
3698: close c_Missing_Accounts;
3692: close c_Missing_Accounts;
3693: end if;
3694: p_return_status := FND_API.G_RET_STS_ERROR;
3695:
3696: when FND_API.G_EXC_UNEXPECTED_ERROR then
3697: if c_Missing_Accounts%ISOPEN then
3698: close c_Missing_Accounts;
3699: end if;
3700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3696: when FND_API.G_EXC_UNEXPECTED_ERROR then
3697: if c_Missing_Accounts%ISOPEN then
3698: close c_Missing_Accounts;
3699: end if;
3700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3701:
3702: WHEN OTHERS THEN
3703: if c_Missing_Accounts%ISOPEN then
3704: close c_Missing_Accounts;
3702: WHEN OTHERS THEN
3703: if c_Missing_Accounts%ISOPEN then
3704: close c_Missing_Accounts;
3705: end if;
3706: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3707: --
3708: END Validate_PSB_Accounts_And_GL;
3709:
3710:
3718: p_return_status OUT NOCOPY VARCHAR2
3719: ) AS
3720:
3721: l_concat VARCHAR2(2000);
3722: l_error_flag VARCHAR2(1) := FND_API.G_FALSE;
3723: l_error_count NUMBER := 0;
3724:
3725: cursor c_Missing_Accounts IS
3726: SELECT a.code_combination_id ccid,b.name bg_name ,s.name set_name
3750: message_token('ACCSET', c_Missing_Accounts_Rec.set_name);
3751: message_token('BGID', c_Missing_Accounts_Rec.set_name);
3752: add_message('PSB', 'PSB_CCID_NOT_IN_PS_NPS');
3753:
3754: l_error_flag := FND_API.G_TRUE;
3755:
3756: end loop;
3757:
3758: if FND_API.to_Boolean(l_error_flag) then
3754: l_error_flag := FND_API.G_TRUE;
3755:
3756: end loop;
3757:
3758: if FND_API.to_Boolean(l_error_flag) then
3759: raise FND_API.G_EXC_ERROR;
3760: end if;
3761:
3762:
3755:
3756: end loop;
3757:
3758: if FND_API.to_Boolean(l_error_flag) then
3759: raise FND_API.G_EXC_ERROR;
3760: end if;
3761:
3762:
3763: EXCEPTION
3761:
3762:
3763: EXCEPTION
3764:
3765: WHEN FND_API.G_EXC_ERROR THEN
3766: p_return_status := FND_API.G_RET_STS_ERROR;
3767:
3768: when FND_API.G_EXC_UNEXPECTED_ERROR then
3769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3762:
3763: EXCEPTION
3764:
3765: WHEN FND_API.G_EXC_ERROR THEN
3766: p_return_status := FND_API.G_RET_STS_ERROR;
3767:
3768: when FND_API.G_EXC_UNEXPECTED_ERROR then
3769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770:
3764:
3765: WHEN FND_API.G_EXC_ERROR THEN
3766: p_return_status := FND_API.G_RET_STS_ERROR;
3767:
3768: when FND_API.G_EXC_UNEXPECTED_ERROR then
3769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770:
3771: WHEN OTHERS THEN
3772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3765: WHEN FND_API.G_EXC_ERROR THEN
3766: p_return_status := FND_API.G_RET_STS_ERROR;
3767:
3768: when FND_API.G_EXC_UNEXPECTED_ERROR then
3769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770:
3771: WHEN OTHERS THEN
3772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3773: --
3768: when FND_API.G_EXC_UNEXPECTED_ERROR then
3769: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3770:
3771: WHEN OTHERS THEN
3772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3773: --
3774: END Validate_BGCCID_vs_PS_NPS;
3775:
3776: --++ procedure is called by api needing a validation of organization for budget group hier
3776: --++ procedure is called by api needing a validation of organization for budget group hier
3777:
3778: PROCEDURE Validate_Budget_Group_Org
3779: ( p_api_version IN NUMBER,
3780: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3781: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
3782: p_return_status OUT NOCOPY VARCHAR2,
3783: p_msg_count OUT NOCOPY NUMBER,
3784: p_msg_data OUT NOCOPY VARCHAR2,
3777:
3778: PROCEDURE Validate_Budget_Group_Org
3779: ( p_api_version IN NUMBER,
3780: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3781: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_NONE,
3782: p_return_status OUT NOCOPY VARCHAR2,
3783: p_msg_count OUT NOCOPY NUMBER,
3784: p_msg_data OUT NOCOPY VARCHAR2,
3785: p_top_budget_group_id IN NUMBER
3794: BEGIN
3795:
3796: -- Standard call to check for call compatibility
3797:
3798: if not FND_API.Compatible_API_Call (l_api_version,
3799: p_api_version,
3800: l_api_name,
3801: G_PKG_NAME)
3802: then
3799: p_api_version,
3800: l_api_name,
3801: G_PKG_NAME)
3802: then
3803: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3804: end if;
3805:
3806:
3807: Validate_BG_ORGANIZATION(p_top_budget_group_id => p_top_budget_group_id,
3806:
3807: Validate_BG_ORGANIZATION(p_top_budget_group_id => p_top_budget_group_id,
3808: p_return_status => l_return_status);
3809:
3810: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3811: raise FND_API.G_EXC_ERROR;
3812: END IF;
3813:
3814: -- Standard call to get message count and if count is 1, get message info
3807: Validate_BG_ORGANIZATION(p_top_budget_group_id => p_top_budget_group_id,
3808: p_return_status => l_return_status);
3809:
3810: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
3811: raise FND_API.G_EXC_ERROR;
3812: END IF;
3813:
3814: -- Standard call to get message count and if count is 1, get message info
3815:
3818:
3819:
3820: -- Initialize API Return Status to Success
3821:
3822: p_return_status := FND_API.G_RET_STS_SUCCESS;
3823:
3824:
3825: EXCEPTION
3826:
3823:
3824:
3825: EXCEPTION
3826:
3827: when FND_API.G_EXC_ERROR then
3828: p_return_status := FND_API.G_RET_STS_ERROR;
3829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3830: p_data => p_msg_data);
3831:
3824:
3825: EXCEPTION
3826:
3827: when FND_API.G_EXC_ERROR then
3828: p_return_status := FND_API.G_RET_STS_ERROR;
3829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3830: p_data => p_msg_data);
3831:
3832: when FND_API.G_EXC_UNEXPECTED_ERROR then
3828: p_return_status := FND_API.G_RET_STS_ERROR;
3829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3830: p_data => p_msg_data);
3831:
3832: when FND_API.G_EXC_UNEXPECTED_ERROR then
3833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3835: p_data => p_msg_data);
3836:
3829: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3830: p_data => p_msg_data);
3831:
3832: when FND_API.G_EXC_UNEXPECTED_ERROR then
3833: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3834: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3835: p_data => p_msg_data);
3836:
3837: when OTHERS then
3834: FND_MSG_PUB.Count_And_Get (p_count => p_msg_count,
3835: p_data => p_msg_data);
3836:
3837: when OTHERS then
3838: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3839:
3840: if FND_MSG_PUB.Check_Msg_Level
3841: (p_message_level => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3842: then
3854: ( p_top_budget_group_id IN NUMBER,
3855: p_return_status OUT NOCOPY VARCHAR2
3856: ) AS
3857:
3858: l_error_flag VARCHAR2(1) := FND_API.G_FALSE;
3859: l_error_count NUMBER := 0;
3860:
3861:
3862: cursor c_Missing_org IS
3891: for c_Missing_Org_Rec in c_Missing_Org loop
3892:
3893: message_token('BG_NAME', c_Missing_Org_Rec.short_name);
3894: add_message('PSB', 'PSB_BG_MISSING_ORG');
3895: l_error_flag := FND_API.G_TRUE;
3896:
3897: end loop;
3898:
3899: for c_Missing_Top_org_rec in c_Missing_Top_org loop
3900:
3901: message_token('BGNAME', c_Missing_Top_Org_Rec.short_name);
3902: add_message('PSB', 'PSB_BG_TOPBG_MISSING_ORG');
3903:
3904: l_error_flag := FND_API.G_TRUE;
3905:
3906: end loop;
3907:
3908: for c_Invalid_Org_Rec in c_Invalid_Org loop
3909:
3910: message_token('BGNAME', c_Invalid_Org_Rec.short_name);
3911: add_message('PSB', 'PSB_BG_INVALID_ORG');
3912:
3913: l_error_flag := FND_API.G_TRUE;
3914:
3915: end loop;
3916:
3917: if FND_API.to_Boolean(l_error_flag) then
3913: l_error_flag := FND_API.G_TRUE;
3914:
3915: end loop;
3916:
3917: if FND_API.to_Boolean(l_error_flag) then
3918: raise FND_API.G_EXC_ERROR;
3919: end if;
3920:
3921:
3914:
3915: end loop;
3916:
3917: if FND_API.to_Boolean(l_error_flag) then
3918: raise FND_API.G_EXC_ERROR;
3919: end if;
3920:
3921:
3922: EXCEPTION
3920:
3921:
3922: EXCEPTION
3923:
3924: WHEN FND_API.G_EXC_ERROR THEN
3925: p_return_status := FND_API.G_RET_STS_ERROR;
3926:
3927: when FND_API.G_EXC_UNEXPECTED_ERROR then
3928: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3921:
3922: EXCEPTION
3923:
3924: WHEN FND_API.G_EXC_ERROR THEN
3925: p_return_status := FND_API.G_RET_STS_ERROR;
3926:
3927: when FND_API.G_EXC_UNEXPECTED_ERROR then
3928: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3929:
3923:
3924: WHEN FND_API.G_EXC_ERROR THEN
3925: p_return_status := FND_API.G_RET_STS_ERROR;
3926:
3927: when FND_API.G_EXC_UNEXPECTED_ERROR then
3928: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3929:
3930: WHEN OTHERS THEN
3931: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3924: WHEN FND_API.G_EXC_ERROR THEN
3925: p_return_status := FND_API.G_RET_STS_ERROR;
3926:
3927: when FND_API.G_EXC_UNEXPECTED_ERROR then
3928: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3929:
3930: WHEN OTHERS THEN
3931: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3932: --
3927: when FND_API.G_EXC_UNEXPECTED_ERROR then
3928: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3929:
3930: WHEN OTHERS THEN
3931: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3932: --
3933: END Validate_BG_ORGANIZATION ;
3934:
3935: /* ----------------------------------------------------------------------- */
4026: PSB_MESSAGE_S.Insert_Error ( p_source_process => 'VALIDATE_BUDGET_HIERARCHY',
4027: p_process_id => p_budget_group_id,
4028: p_msg_count => l_msg_count,
4029: p_msg_data => l_msg_buf,
4030: p_desc_sequence => FND_API.G_TRUE) ;
4031: ELSE
4032: PSB_MESSAGE_S.BATCH_INSERT_ERROR ( p_source_process => 'VALIDATE_BUDGET_HIERARCHY',
4033: p_process_id => p_budget_group_id);
4034:
4110: --
4111:
4112: PSB_BUDGET_GROUPS_PVT.Val_Budget_Group_Hierarchy
4113: (p_api_version => 1.0,
4114: p_init_msg_list => FND_API.G_TRUE,
4115: p_commit => FND_API.G_TRUE,
4116: p_return_status => l_return_status,
4117: p_msg_count => l_msg_count,
4118: p_msg_data => l_msg_data,
4111:
4112: PSB_BUDGET_GROUPS_PVT.Val_Budget_Group_Hierarchy
4113: (p_api_version => 1.0,
4114: p_init_msg_list => FND_API.G_TRUE,
4115: p_commit => FND_API.G_TRUE,
4116: p_return_status => l_return_status,
4117: p_msg_count => l_msg_count,
4118: p_msg_data => l_msg_data,
4119: p_budget_group_id => p_budget_group_id,
4118: p_msg_data => l_msg_data,
4119: p_budget_group_id => p_budget_group_id,
4120: p_force_freeze => p_force_freeze);
4121:
4122: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4123: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4124: p_print_header => FND_API.G_TRUE) ;
4125: raise FND_API.G_EXC_ERROR;
4126: elsif (l_msg_count > 0) THEN
4120: p_force_freeze => p_force_freeze);
4121:
4122: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4123: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4124: p_print_header => FND_API.G_TRUE) ;
4125: raise FND_API.G_EXC_ERROR;
4126: elsif (l_msg_count > 0) THEN
4127: -- informational message
4128: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4121:
4122: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4123: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4124: p_print_header => FND_API.G_TRUE) ;
4125: raise FND_API.G_EXC_ERROR;
4126: elsif (l_msg_count > 0) THEN
4127: -- informational message
4128: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4129: p_print_header => FND_API.G_FALSE) ;
4125: raise FND_API.G_EXC_ERROR;
4126: elsif (l_msg_count > 0) THEN
4127: -- informational message
4128: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4129: p_print_header => FND_API.G_FALSE) ;
4130:
4131: /* Start Bug No. 2322856 */
4132: -- PSB_MESSAGE_S.Print_Success;
4133: /* End Bug No. 2322856 */
4147: --
4148: EXCEPTION
4149: --
4150:
4151: WHEN FND_API.G_EXC_ERROR THEN
4152: --
4153: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4154: p_print_header => FND_API.G_TRUE ) ;
4155: retcode := 2 ;
4150:
4151: WHEN FND_API.G_EXC_ERROR THEN
4152: --
4153: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4154: p_print_header => FND_API.G_TRUE ) ;
4155: retcode := 2 ;
4156: --
4157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4158: --
4153: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4154: p_print_header => FND_API.G_TRUE ) ;
4155: retcode := 2 ;
4156: --
4157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4158: --
4159: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4160: p_print_header => FND_API.G_TRUE ) ;
4161: retcode := 2 ;
4156: --
4157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4158: --
4159: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4160: p_print_header => FND_API.G_TRUE ) ;
4161: retcode := 2 ;
4162: --
4163:
4164: WHEN OTHERS THEN
4169: l_api_name ) ;
4170: END IF ;
4171: --
4172: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4173: p_print_header => FND_API.G_TRUE ) ;
4174: retcode := 2 ;
4175: --
4176: END Val_Budget_Group_Hierarchy_CP ;
4177:
4209: --
4210:
4211: PSB_BUDGET_GROUPS_PVT.DELETE_ROW
4212: (p_api_version => 1.0,
4213: p_init_msg_list => FND_API.G_TRUE,
4214: p_return_status => l_return_status,
4215: p_msg_count => l_msg_count,
4216: p_msg_data => l_msg_data,
4217: p_budget_group_id => p_budget_group_id,
4219:
4220:
4221: if l_delete <> 'DELETE' THEN
4222: FND_FILE.put_line(FND_FILE.LOG,'The Budget Group Cannot Be Deleted');
4223: raise FND_API.G_EXC_ERROR;
4224: end if;
4225:
4226:
4227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4223: raise FND_API.G_EXC_ERROR;
4224: end if;
4225:
4226:
4227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4228: RAISE FND_API.G_EXC_ERROR;
4229: END IF;
4230: --
4231: /* Start Bug No. 2322856 */
4224: end if;
4225:
4226:
4227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4228: RAISE FND_API.G_EXC_ERROR;
4229: END IF;
4230: --
4231: /* Start Bug No. 2322856 */
4232: -- PSB_MESSAGE_S.Print_Success;
4237: --
4238: EXCEPTION
4239: --
4240:
4241: WHEN FND_API.G_EXC_ERROR THEN
4242: --
4243: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4244: p_print_header => FND_API.G_TRUE ) ;
4245: retcode := 2 ;
4240:
4241: WHEN FND_API.G_EXC_ERROR THEN
4242: --
4243: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4244: p_print_header => FND_API.G_TRUE ) ;
4245: retcode := 2 ;
4246: --
4247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4248: --
4243: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4244: p_print_header => FND_API.G_TRUE ) ;
4245: retcode := 2 ;
4246: --
4247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4248: --
4249: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4250: p_print_header => FND_API.G_TRUE ) ;
4251: retcode := 2 ;
4246: --
4247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4248: --
4249: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4250: p_print_header => FND_API.G_TRUE ) ;
4251: retcode := 2 ;
4252: --
4253: WHEN OTHERS THEN
4254: --
4258: l_api_name ) ;
4259: END IF ;
4260: --
4261: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4262: p_print_header => FND_API.G_TRUE ) ;
4263: retcode := 2 ;
4264: --
4265: END Delete_Row_CP ;
4266:
4292: BEGIN
4293: --
4294: PSB_BUDGET_GROUPS_PVT.Account_Overlap_Validation
4295: (p_api_version => 1.0,
4296: p_init_msg_list => FND_API.G_TRUE,
4297: p_return_status => l_return_status,
4298: p_msg_count => l_msg_count,
4299: p_msg_data => l_msg_data,
4300: p_budget_group_id => p_budget_group_id);
4298: p_msg_count => l_msg_count,
4299: p_msg_data => l_msg_data,
4300: p_budget_group_id => p_budget_group_id);
4301:
4302: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4303: raise FND_API.G_EXC_ERROR;
4304: elsif (l_msg_count > 0) THEN
4305: -- informational message --
4306: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4299: p_msg_data => l_msg_data,
4300: p_budget_group_id => p_budget_group_id);
4301:
4302: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4303: raise FND_API.G_EXC_ERROR;
4304: elsif (l_msg_count > 0) THEN
4305: -- informational message --
4306: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4307: p_print_header => FND_API.G_FALSE) ;
4303: raise FND_API.G_EXC_ERROR;
4304: elsif (l_msg_count > 0) THEN
4305: -- informational message --
4306: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.OUTPUT ,
4307: p_print_header => FND_API.G_FALSE) ;
4308:
4309: /* Start Bug No. 2322856 */
4310: -- PSB_MESSAGE_S.Print_Success;
4311: /* End Bug No. 2322856 */
4323: --
4324: EXCEPTION
4325: --
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: --
4329: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4330: p_print_header => FND_API.G_TRUE ) ;
4331: retcode := 2 ;
4326:
4327: WHEN FND_API.G_EXC_ERROR THEN
4328: --
4329: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4330: p_print_header => FND_API.G_TRUE ) ;
4331: retcode := 2 ;
4332: --
4333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4334: --
4329: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4330: p_print_header => FND_API.G_TRUE ) ;
4331: retcode := 2 ;
4332: --
4333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4334: --
4335: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4336: p_print_header => FND_API.G_TRUE ) ;
4337: retcode := 2 ;
4332: --
4333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4334: --
4335: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4336: p_print_header => FND_API.G_TRUE ) ;
4337: retcode := 2 ;
4338: --
4339: WHEN OTHERS THEN
4340: --
4344: l_api_name ) ;
4345: END IF ;
4346: --
4347: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
4348: p_print_header => FND_API.G_TRUE ) ;
4349: retcode := 2 ;
4350: --
4351: END Account_Overlap_Validation_CP ;
4352: