eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.IBC_DATA_SECURITY_PVT dependencies on FND_API

Line 416: IF NOT FND_API.Compatible_API_Call (

412: SAVEPOINT svpt_set_inheritance_type;
413:
414: -- ******* Standard Begins ********
415: -- Standard call to check for call compatibility.
416: IF NOT FND_API.Compatible_API_Call (
417: l_api_version,
418: p_api_version,
419: l_api_name,
420: G_PKG_NAME)

Line 422: x_return_status := FND_API.G_RET_STS_ERROR;

418: p_api_version,
419: l_api_name,
420: G_PKG_NAME)
421: THEN
422: x_return_status := FND_API.G_RET_STS_ERROR;
423: FND_MSG_PUB.ADD;
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 424: RAISE FND_API.G_EXC_ERROR;

420: G_PKG_NAME)
421: THEN
422: x_return_status := FND_API.G_RET_STS_ERROR;
423: FND_MSG_PUB.ADD;
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426: -- Initialize message list if p_init_msg_list is set to TRUE.
427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
428: FND_MSG_PUB.initialize;

Line 427: IF FND_API.to_Boolean( p_init_msg_list ) THEN

423: FND_MSG_PUB.ADD;
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426: -- Initialize message list if p_init_msg_list is set to TRUE.
427: IF FND_API.to_Boolean( p_init_msg_list ) THEN
428: FND_MSG_PUB.initialize;
429: END IF;
430:
431: -- Initialize API return status to success

Line 432: x_return_status := FND_API.G_RET_STS_SUCCESS;

428: FND_MSG_PUB.initialize;
429: END IF;
430:
431: -- Initialize API return status to success
432: x_return_status := FND_API.G_RET_STS_SUCCESS;
433:
434: -- Begin
435:
436: -- Fetch object's grant group Info

Line 483: IF (p_commit = FND_API.g_true) THEN

479: CLOSE c_ogg;
480: END IF;
481:
482: -- COMMIT?
483: IF (p_commit = FND_API.g_true) THEN
484: COMMIT;
485: END IF;
486:
487: -- Standard call to get message count and if count=1, get the message

Line 491: WHEN FND_API.G_EXC_ERROR THEN

487: -- Standard call to get message count and if count=1, get the message
488: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
489: p_data => x_msg_data);
490: EXCEPTION
491: WHEN FND_API.G_EXC_ERROR THEN
492: ROLLBACK TO svpt_set_inheritance_type;
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
495: p_data => x_msg_data);

Line 493: x_return_status := FND_API.G_RET_STS_ERROR;

489: p_data => x_msg_data);
490: EXCEPTION
491: WHEN FND_API.G_EXC_ERROR THEN
492: ROLLBACK TO svpt_set_inheritance_type;
493: x_return_status := FND_API.G_RET_STS_ERROR;
494: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
495: p_data => x_msg_data);
496: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
497: P_API_NAME => L_API_NAME

Line 507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

503: ,X_MSG_COUNT => X_MSG_COUNT
504: ,X_MSG_DATA => X_MSG_DATA
505: ,X_RETURN_STATUS => X_RETURN_STATUS
506: );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO svpt_set_inheritance_type;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
511: p_data => x_msg_data);

Line 509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

505: ,X_RETURN_STATUS => X_RETURN_STATUS
506: );
507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
508: ROLLBACK TO svpt_set_inheritance_type;
509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
510: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
511: p_data => x_msg_data);
512: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
513: P_API_NAME => L_API_NAME

Line 525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

521: ,X_RETURN_STATUS => X_RETURN_STATUS
522: );
523: WHEN OTHERS THEN
524: ROLLBACK TO svpt_set_inheritance_type;
525: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
526: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
527: THEN
528: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
529: END IF;

Line 607: IF NOT FND_API.Compatible_API_Call (

603: SAVEPOINT svpt_remove_instance;
604:
605: -- ******* Standard Begins ********
606: -- Standard call to check for call compatibility.
607: IF NOT FND_API.Compatible_API_Call (
608: l_api_version,
609: p_api_version,
610: l_api_name,
611: G_PKG_NAME)

Line 613: x_return_status := FND_API.G_RET_STS_ERROR;

609: p_api_version,
610: l_api_name,
611: G_PKG_NAME)
612: THEN
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_ERROR;
616: END IF;
617: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 615: RAISE FND_API.G_EXC_ERROR;

611: G_PKG_NAME)
612: THEN
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_ERROR;
616: END IF;
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
619: FND_MSG_PUB.initialize;

Line 618: IF FND_API.to_Boolean( p_init_msg_list ) THEN

614: FND_MSG_PUB.ADD;
615: RAISE FND_API.G_EXC_ERROR;
616: END IF;
617: -- Initialize message list if p_init_msg_list is set to TRUE.
618: IF FND_API.to_Boolean( p_init_msg_list ) THEN
619: FND_MSG_PUB.initialize;
620: END IF;
621:
622: -- Initialize API return status to success

Line 623: x_return_status := FND_API.G_RET_STS_SUCCESS;

619: FND_MSG_PUB.initialize;
620: END IF;
621:
622: -- Initialize API return status to success
623: x_return_status := FND_API.G_RET_STS_SUCCESS;
624:
625: -- Begin
626:
627: -- Fetch object's grant group Info

Line 659: EXIT WHEN x_return_status <> FND_API.G_RET_STS_SUCCESS;

655: ,x_return_status => x_return_status
656: ,x_msg_count => x_msg_count
657: ,x_msg_data => x_msg_data
658: );
659: EXIT WHEN x_return_status <> FND_API.G_RET_STS_SUCCESS;
660: END LOOP;
661:
662: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
663: IF l_inherited_flag = 'N' THEN

Line 662: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN

658: );
659: EXIT WHEN x_return_status <> FND_API.G_RET_STS_SUCCESS;
660: END LOOP;
661:
662: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
663: IF l_inherited_flag = 'N' THEN
664: -- Removing grants and grant group if not inheriting
665: DELETE FROM ibc_grants WHERE grant_group_id = l_grant_group_id;
666: DELETE FROM ibc_grant_groups WHERE grant_group_id = l_grant_group_id;

Line 675: IF (p_commit = FND_API.g_true AND x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

671:
672: END IF;
673:
674: -- COMMIT?
675: IF (p_commit = FND_API.g_true AND x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
676: COMMIT;
677: END IF;
678:
679: -- Standard call to get message count and if count=1, get the message

Line 683: WHEN FND_API.G_EXC_ERROR THEN

679: -- Standard call to get message count and if count=1, get the message
680: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
681: p_data => x_msg_data);
682: EXCEPTION
683: WHEN FND_API.G_EXC_ERROR THEN
684: ROLLBACK TO svpt_remove_instance;
685: x_return_status := FND_API.G_RET_STS_ERROR;
686: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
687: p_data => x_msg_data);

Line 685: x_return_status := FND_API.G_RET_STS_ERROR;

681: p_data => x_msg_data);
682: EXCEPTION
683: WHEN FND_API.G_EXC_ERROR THEN
684: ROLLBACK TO svpt_remove_instance;
685: x_return_status := FND_API.G_RET_STS_ERROR;
686: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
687: p_data => x_msg_data);
688: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
689: P_API_NAME => L_API_NAME

Line 699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

695: ,X_MSG_COUNT => X_MSG_COUNT
696: ,X_MSG_DATA => X_MSG_DATA
697: ,X_RETURN_STATUS => X_RETURN_STATUS
698: );
699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
700: ROLLBACK TO svpt_remove_instance;
701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
702: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
703: p_data => x_msg_data);

Line 701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

697: ,X_RETURN_STATUS => X_RETURN_STATUS
698: );
699: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
700: ROLLBACK TO svpt_remove_instance;
701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
702: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
703: p_data => x_msg_data);
704: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
705: P_API_NAME => L_API_NAME

Line 717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

713: ,X_RETURN_STATUS => X_RETURN_STATUS
714: );
715: WHEN OTHERS THEN
716: ROLLBACK TO svpt_remove_instance;
717: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
718: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
719: THEN
720: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
721: END IF;

Line 824: IF NOT FND_API.Compatible_API_Call (

820: SAVEPOINT svpt_establish_inheritance;
821:
822: -- ******* Standard Begins ********
823: -- Standard call to check for call compatibility.
824: IF NOT FND_API.Compatible_API_Call (
825: l_api_version,
826: p_api_version,
827: l_api_name,
828: G_PKG_NAME)

Line 830: x_return_status := FND_API.G_RET_STS_ERROR;

826: p_api_version,
827: l_api_name,
828: G_PKG_NAME)
829: THEN
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: FND_MSG_PUB.ADD;
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 832: RAISE FND_API.G_EXC_ERROR;

828: G_PKG_NAME)
829: THEN
830: x_return_status := FND_API.G_RET_STS_ERROR;
831: FND_MSG_PUB.ADD;
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: -- Initialize message list if p_init_msg_list is set to TRUE.
835: IF FND_API.to_Boolean( p_init_msg_list ) THEN
836: FND_MSG_PUB.initialize;

Line 835: IF FND_API.to_Boolean( p_init_msg_list ) THEN

831: FND_MSG_PUB.ADD;
832: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: -- Initialize message list if p_init_msg_list is set to TRUE.
835: IF FND_API.to_Boolean( p_init_msg_list ) THEN
836: FND_MSG_PUB.initialize;
837: END IF;
838:
839: -- Initialize API return status to success

Line 840: x_return_status := FND_API.G_RET_STS_SUCCESS;

836: FND_MSG_PUB.initialize;
837: END IF;
838:
839: -- Initialize API return status to success
840: x_return_status := FND_API.G_RET_STS_SUCCESS;
841:
842: -- Begin
843:
844: -- Fetch object's grant group Info

Line 932: RAISE FND_API.G_EXC_ERROR;

928: THEN
929: -- Error Inheritance Type not compatible with containers
930: FND_MESSAGE.Set_Name('IBC', 'IBC_INCOMPATIBLE_INHERITANCE_TYPE');
931: FND_MSG_PUB.ADD;
932: RAISE FND_API.G_EXC_ERROR;
933: END IF;
934:
935: -- Defaulting inheritance type based on container's inheritance type
936: IF p_inheritance_type IS NULL THEN

Line 986: RAISE FND_API.G_EXC_ERROR;

982: THEN
983: -- Error Inheritance Type not compatible with containers
984: FND_MESSAGE.Set_Name('IBC', 'IBC_INCOMPATIBLE_INHERITANCE_TYPE');
985: FND_MSG_PUB.ADD;
986: RAISE FND_API.G_EXC_ERROR;
987: END IF;
988:
989: -- Actual UPDATE
990: -- *****

Line 993: p_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM,

989: -- Actual UPDATE
990: -- *****
991: Ibc_Object_Grant_Groups_Pkg.UPDATE_ROW (
992: P_OBJECT_GRANT_GROUP_ID => l_object_grant_group_id,
993: p_OBJECT_VERSION_NUMBER => FND_API.G_MISS_NUM,
994: P_GRANT_GROUP_ID => l_grant_group_id,
995: P_OBJECT_ID => p_instance_object_id,
996: P_INHERITED_FLAG => l_inherited_flag,
997: P_INHERITED_FROM => l_inherited_from,

Line 1006: IF p_inheritance_type = 'WSFOLDER' AND l_inherited_flag = FND_API.G_FALSE THEN

1002: P_INSTANCE_PK5_VALUE => p_instance_pk5_value,
1003: P_INHERITANCE_TYPE => p_inheritance_type
1004: );
1005:
1006: IF p_inheritance_type = 'WSFOLDER' AND l_inherited_flag = FND_API.G_FALSE THEN
1007: -- Removing all permissions for grant group if it's WSFOLDER and it's not inheriting
1008: DELETE FROM ibc_grants
1009: WHERE grant_group_id = l_grant_group_id;
1010: -- Remove grant group

Line 1052: ,p_commit => FND_API.g_false

1048: ,p_container_pk3_value => p_instance_pk3_value
1049: ,p_container_pk4_value => p_instance_pk4_value
1050: ,p_container_pk5_value => p_instance_pk5_value
1051: ,p_inheritance_type => l_default_inheritance_type
1052: ,p_commit => FND_API.g_false
1053: ,p_api_version => 1.0
1054: ,p_init_msg_list => FND_API.g_false
1055: ,x_return_status => x_return_status
1056: ,x_msg_count => x_msg_count

Line 1054: ,p_init_msg_list => FND_API.g_false

1050: ,p_container_pk5_value => p_instance_pk5_value
1051: ,p_inheritance_type => l_default_inheritance_type
1052: ,p_commit => FND_API.g_false
1053: ,p_api_version => 1.0
1054: ,p_init_msg_list => FND_API.g_false
1055: ,x_return_status => x_return_status
1056: ,x_msg_count => x_msg_count
1057: ,x_msg_data => x_msg_data
1058: );

Line 1060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1056: ,x_msg_count => x_msg_count
1057: ,x_msg_data => x_msg_data
1058: );
1059:
1060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063:
1064: END LOOP;

Line 1061: RAISE FND_API.G_EXC_ERROR;

1057: ,x_msg_data => x_msg_data
1058: );
1059:
1060: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1061: RAISE FND_API.G_EXC_ERROR;
1062: END IF;
1063:
1064: END LOOP;
1065: ELSE

Line 1074: IF (p_commit = FND_API.g_true) THEN

1070: END IF;
1071: END IF;
1072:
1073: -- COMMIT?
1074: IF (p_commit = FND_API.g_true) THEN
1075: COMMIT;
1076: END IF;
1077:
1078: -- Standard call to get message count and if count=1, get the message

Line 1082: WHEN FND_API.G_EXC_ERROR THEN

1078: -- Standard call to get message count and if count=1, get the message
1079: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1080: p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: ROLLBACK TO svpt_establish_inheritance;
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1086: p_data => x_msg_data);

Line 1084: x_return_status := FND_API.G_RET_STS_ERROR;

1080: p_data => x_msg_data);
1081: EXCEPTION
1082: WHEN FND_API.G_EXC_ERROR THEN
1083: ROLLBACK TO svpt_establish_inheritance;
1084: x_return_status := FND_API.G_RET_STS_ERROR;
1085: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1086: p_data => x_msg_data);
1087: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
1088: P_API_NAME => L_API_NAME

Line 1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1094: ,X_MSG_COUNT => X_MSG_COUNT
1095: ,X_MSG_DATA => X_MSG_DATA
1096: ,X_RETURN_STATUS => X_RETURN_STATUS
1097: );
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: ROLLBACK TO svpt_establish_inheritance;
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1102: p_data => x_msg_data);

Line 1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1096: ,X_RETURN_STATUS => X_RETURN_STATUS
1097: );
1098: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1099: ROLLBACK TO svpt_establish_inheritance;
1100: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1101: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1102: p_data => x_msg_data);
1103: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
1104: P_API_NAME => L_API_NAME

Line 1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1112: ,X_RETURN_STATUS => X_RETURN_STATUS
1113: );
1114: WHEN OTHERS THEN
1115: ROLLBACK TO svpt_establish_inheritance;
1116: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1117: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1118: THEN
1119: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1120: END IF;

Line 1247: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_false

1243: ,p_instance_pk2_value IN VARCHAR2 DEFAULT NULL
1244: ,p_instance_pk3_value IN VARCHAR2 DEFAULT NULL
1245: ,p_instance_pk4_value IN VARCHAR2 DEFAULT NULL
1246: ,p_instance_pk5_value IN VARCHAR2 DEFAULT NULL
1247: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1248: ,p_api_version IN NUMBER DEFAULT 1.0
1249: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
1250: ,x_return_status OUT NOCOPY VARCHAR2
1251: ,x_msg_count OUT NOCOPY NUMBER

Line 1249: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false

1245: ,p_instance_pk4_value IN VARCHAR2 DEFAULT NULL
1246: ,p_instance_pk5_value IN VARCHAR2 DEFAULT NULL
1247: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1248: ,p_api_version IN NUMBER DEFAULT 1.0
1249: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
1250: ,x_return_status OUT NOCOPY VARCHAR2
1251: ,x_msg_count OUT NOCOPY NUMBER
1252: ,x_msg_data OUT NOCOPY VARCHAR2
1253: ) AS

Line 1272: IF NOT FND_API.Compatible_API_Call (

1268: SAVEPOINT svpt_reset_permissions;
1269:
1270: -- ******* Standard Begins ********
1271: -- Standard call to check for call compatibility.
1272: IF NOT FND_API.Compatible_API_Call (
1273: l_api_version,
1274: p_api_version,
1275: l_api_name,
1276: G_PKG_NAME)

Line 1278: x_return_status := FND_API.G_RET_STS_ERROR;

1274: p_api_version,
1275: l_api_name,
1276: G_PKG_NAME)
1277: THEN
1278: x_return_status := FND_API.G_RET_STS_ERROR;
1279: FND_MSG_PUB.ADD;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1280: RAISE FND_API.G_EXC_ERROR;

1276: G_PKG_NAME)
1277: THEN
1278: x_return_status := FND_API.G_RET_STS_ERROR;
1279: FND_MSG_PUB.ADD;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282: -- Initialize message list if p_init_msg_list is set to TRUE.
1283: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1284: FND_MSG_PUB.initialize;

Line 1283: IF FND_API.to_Boolean( p_init_msg_list ) THEN

1279: FND_MSG_PUB.ADD;
1280: RAISE FND_API.G_EXC_ERROR;
1281: END IF;
1282: -- Initialize message list if p_init_msg_list is set to TRUE.
1283: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1284: FND_MSG_PUB.initialize;
1285: END IF;
1286:
1287: -- Initialize API return status to success

Line 1288: x_return_status := FND_API.G_RET_STS_SUCCESS;

1284: FND_MSG_PUB.initialize;
1285: END IF;
1286:
1287: -- Initialize API return status to success
1288: x_return_status := FND_API.G_RET_STS_SUCCESS;
1289:
1290: -- Begin
1291:
1292: IF IBC_DEBUG_PVT.debug_enabled THEN

Line 1352: IF (p_commit = FND_API.g_true) THEN

1348: WHERE grant_group_id = l_grant_group_id);
1349: END IF;
1350:
1351: -- COMMIT?
1352: IF (p_commit = FND_API.g_true) THEN
1353: COMMIT;
1354: END IF;
1355:
1356: -- Standard call to get message count and if count=1, get the message

Line 1374: WHEN FND_API.G_EXC_ERROR THEN

1370: );
1371: END IF;
1372:
1373: EXCEPTION
1374: WHEN FND_API.G_EXC_ERROR THEN
1375: ROLLBACK TO svpt_reset_permissions;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1378: p_data => x_msg_data);

Line 1376: x_return_status := FND_API.G_RET_STS_ERROR;

1372:
1373: EXCEPTION
1374: WHEN FND_API.G_EXC_ERROR THEN
1375: ROLLBACK TO svpt_reset_permissions;
1376: x_return_status := FND_API.G_RET_STS_ERROR;
1377: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1378: p_data => x_msg_data);
1379: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
1380: P_API_NAME => L_API_NAME

Line 1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1398: )
1399: )
1400: );
1401: END IF;
1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1403: ROLLBACK TO svpt_reset_permissions;
1404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1405: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1406: p_data => x_msg_data);

Line 1404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1400: );
1401: END IF;
1402: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1403: ROLLBACK TO svpt_reset_permissions;
1404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1405: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1406: p_data => x_msg_data);
1407: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
1408: P_API_NAME => L_API_NAME

Line 1432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1428: );
1429: END IF;
1430: WHEN OTHERS THEN
1431: ROLLBACK TO svpt_reset_permissions;
1432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1433: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1434: THEN
1435: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1436: END IF;

Line 1498: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_false

1494: ,p_instance_pk2_value IN VARCHAR2 DEFAULT NULL
1495: ,p_instance_pk3_value IN VARCHAR2 DEFAULT NULL
1496: ,p_instance_pk4_value IN VARCHAR2 DEFAULT NULL
1497: ,p_instance_pk5_value IN VARCHAR2 DEFAULT NULL
1498: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1499: ,p_api_version IN NUMBER DEFAULT 1.0
1500: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
1501: ,x_return_status OUT NOCOPY VARCHAR2
1502: ,x_msg_count OUT NOCOPY NUMBER

Line 1500: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false

1496: ,p_instance_pk4_value IN VARCHAR2 DEFAULT NULL
1497: ,p_instance_pk5_value IN VARCHAR2 DEFAULT NULL
1498: ,p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1499: ,p_api_version IN NUMBER DEFAULT 1.0
1500: ,p_init_msg_list IN VARCHAR2 DEFAULT fnd_api.g_false
1501: ,x_return_status OUT NOCOPY VARCHAR2
1502: ,x_msg_count OUT NOCOPY NUMBER
1503: ,x_msg_data OUT NOCOPY VARCHAR2
1504: ) AS

Line 1552: IF NOT FND_API.Compatible_API_Call (

1548: SAVEPOINT svpt_override_permissions;
1549:
1550: -- ******* Standard Begins ********
1551: -- Standard call to check for call compatibility.
1552: IF NOT FND_API.Compatible_API_Call (
1553: l_api_version,
1554: p_api_version,
1555: l_api_name,
1556: G_PKG_NAME)

Line 1558: x_return_status := FND_API.G_RET_STS_ERROR;

1554: p_api_version,
1555: l_api_name,
1556: G_PKG_NAME)
1557: THEN
1558: x_return_status := FND_API.G_RET_STS_ERROR;
1559: FND_MSG_PUB.ADD;
1560: RAISE FND_API.G_EXC_ERROR;
1561: END IF;
1562: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1560: RAISE FND_API.G_EXC_ERROR;

1556: G_PKG_NAME)
1557: THEN
1558: x_return_status := FND_API.G_RET_STS_ERROR;
1559: FND_MSG_PUB.ADD;
1560: RAISE FND_API.G_EXC_ERROR;
1561: END IF;
1562: -- Initialize message list if p_init_msg_list is set to TRUE.
1563: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1564: FND_MSG_PUB.initialize;

Line 1563: IF FND_API.to_Boolean( p_init_msg_list ) THEN

1559: FND_MSG_PUB.ADD;
1560: RAISE FND_API.G_EXC_ERROR;
1561: END IF;
1562: -- Initialize message list if p_init_msg_list is set to TRUE.
1563: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1564: FND_MSG_PUB.initialize;
1565: END IF;
1566:
1567: -- Initialize API return status to success

Line 1568: x_return_status := FND_API.G_RET_STS_SUCCESS;

1564: FND_MSG_PUB.initialize;
1565: END IF;
1566:
1567: -- Initialize API return status to success
1568: x_return_status := FND_API.G_RET_STS_SUCCESS;
1569:
1570: -- Begin
1571:
1572: IF IBC_DEBUG_PVT.debug_enabled THEN

Line 1714: IF (p_commit = FND_API.g_true) THEN

1710:
1711: END IF;
1712:
1713: -- COMMIT?
1714: IF (p_commit = FND_API.g_true) THEN
1715: COMMIT;
1716: END IF;
1717:
1718: -- Standard call to get message count and if count=1, get the message

Line 1736: WHEN FND_API.G_EXC_ERROR THEN

1732: );
1733: END IF;
1734:
1735: EXCEPTION
1736: WHEN FND_API.G_EXC_ERROR THEN
1737: ROLLBACK TO svpt_override_permissions;
1738: x_return_status := FND_API.G_RET_STS_ERROR;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1740: p_data => x_msg_data);

Line 1738: x_return_status := FND_API.G_RET_STS_ERROR;

1734:
1735: EXCEPTION
1736: WHEN FND_API.G_EXC_ERROR THEN
1737: ROLLBACK TO svpt_override_permissions;
1738: x_return_status := FND_API.G_RET_STS_ERROR;
1739: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1740: p_data => x_msg_data);
1741: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
1742: P_API_NAME => L_API_NAME

Line 1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

1760: )
1761: )
1762: );
1763: END IF;
1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1765: ROLLBACK TO svpt_override_permissions;
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1768: p_data => x_msg_data);

Line 1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1762: );
1763: END IF;
1764: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1765: ROLLBACK TO svpt_override_permissions;
1766: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1767: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1768: p_data => x_msg_data);
1769: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
1770: P_API_NAME => L_API_NAME

Line 1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

1790: );
1791: END IF;
1792: WHEN OTHERS THEN
1793: ROLLBACK TO svpt_override_permissions;
1794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1795: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1796: THEN
1797: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1798: END IF;

Line 1960: IF NOT FND_API.Compatible_API_Call (

1956: BEGIN
1957: SAVEPOINT svpt_grant_permission;
1958: -- ******* Standard Begins ********
1959: -- Standard call to check for call compatibility.
1960: IF NOT FND_API.Compatible_API_Call (
1961: l_api_version,
1962: p_api_version,
1963: l_api_name,
1964: G_PKG_NAME)

Line 1966: x_return_status := FND_API.G_RET_STS_ERROR;

1962: p_api_version,
1963: l_api_name,
1964: G_PKG_NAME)
1965: THEN
1966: x_return_status := FND_API.G_RET_STS_ERROR;
1967: FND_MSG_PUB.ADD;
1968: RAISE FND_API.G_EXC_ERROR;
1969: END IF;
1970: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 1968: RAISE FND_API.G_EXC_ERROR;

1964: G_PKG_NAME)
1965: THEN
1966: x_return_status := FND_API.G_RET_STS_ERROR;
1967: FND_MSG_PUB.ADD;
1968: RAISE FND_API.G_EXC_ERROR;
1969: END IF;
1970: -- Initialize message list if p_init_msg_list is set to TRUE.
1971: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1972: FND_MSG_PUB.initialize;

Line 1971: IF FND_API.to_Boolean( p_init_msg_list ) THEN

1967: FND_MSG_PUB.ADD;
1968: RAISE FND_API.G_EXC_ERROR;
1969: END IF;
1970: -- Initialize message list if p_init_msg_list is set to TRUE.
1971: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1972: FND_MSG_PUB.initialize;
1973: END IF;
1974:
1975: -- Initialize API return status to success

Line 1976: x_return_status := FND_API.G_RET_STS_SUCCESS;

1972: FND_MSG_PUB.initialize;
1973: END IF;
1974:
1975: -- Initialize API return status to success
1976: x_return_status := FND_API.G_RET_STS_SUCCESS;
1977:
1978: -- Begin
1979:
1980:

Line 2023: RAISE FND_API.G_EXC_ERROR;

2019: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2020: FND_MESSAGE.Set_Name('IBC', 'INVALID_PERMISSION_ACTION');
2021: FND_MSG_PUB.ADD;
2022: END IF;
2023: RAISE FND_API.G_EXC_ERROR;
2024: END IF;
2025:
2026: -- Validate permission code for a particular object
2027: OPEN c_chk_permission_code(get_perms_lookup_type(p_permission_object_id),

Line 2038: RAISE FND_API.G_EXC_ERROR;

2034: FND_MESSAGE.Set_token('PERMISSION_CODE', p_permission_code);
2035: FND_MESSAGE.Set_token('PERMISSION_OBJECT_ID', p_permission_object_id);
2036: FND_MSG_PUB.ADD;
2037: END IF;
2038: RAISE FND_API.G_EXC_ERROR;
2039: END IF;
2040: CLOSE c_chk_permission_code;
2041:
2042: -- Fetch object's grant group Info

Line 2063: RAISE FND_API.G_EXC_ERROR;

2059: -- it needs to be done at the container WORKSPACE
2060: IF l_inheritance_type = 'WSFOLDER' THEN
2061: FND_MESSAGE.Set_Name('IBC', 'IBC_WSFOLDER_NO_GRANT_ALLOWED');
2062: FND_MSG_PUB.ADD;
2063: RAISE FND_API.G_EXC_ERROR;
2064: END IF;
2065:
2066: IF l_object_grant_group_id IS NULL OR
2067: l_inherited_flag = 'Y'

Line 2105: RAISE FND_API.G_EXC_ERROR;

2101: -- it needs to be done at the container WORKSPACE
2102: IF l_c_inheritance_type IN ('WORKSPACE', 'WSFOLDER') THEN
2103: FND_MESSAGE.Set_Name('IBC', 'IBC_WSFOLDER_NO_GRANT_ALLOWED');
2104: FND_MSG_PUB.ADD;
2105: RAISE FND_API.G_EXC_ERROR;
2106: END IF;
2107:
2108: -- Copy all rows from container object
2109: -- It doesn't check for cascading at this point

Line 2304: IF (p_commit = FND_API.g_true) THEN

2300:
2301: CLOSE c_chk_data;
2302:
2303: -- COMMIT?
2304: IF (p_commit = FND_API.g_true) THEN
2305: COMMIT;
2306: END IF;
2307:
2308: -- Standard call to get message count and if count=1, get the message

Line 2326: WHEN FND_API.G_EXC_ERROR THEN

2322: );
2323: END IF;
2324:
2325: EXCEPTION
2326: WHEN FND_API.G_EXC_ERROR THEN
2327: ROLLBACK TO svpt_grant_permission;
2328: x_return_status := FND_API.G_RET_STS_ERROR;
2329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2330: p_data => x_msg_data);

Line 2328: x_return_status := FND_API.G_RET_STS_ERROR;

2324:
2325: EXCEPTION
2326: WHEN FND_API.G_EXC_ERROR THEN
2327: ROLLBACK TO svpt_grant_permission;
2328: x_return_status := FND_API.G_RET_STS_ERROR;
2329: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2330: p_data => x_msg_data);
2331: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
2332: P_API_NAME => L_API_NAME

Line 2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

2350: )
2351: )
2352: );
2353: END IF;
2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2355: ROLLBACK TO svpt_grant_permission;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2358: p_data => x_msg_data);

Line 2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2352: );
2353: END IF;
2354: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2355: ROLLBACK TO svpt_grant_permission;
2356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2357: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2358: p_data => x_msg_data);
2359: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
2360: P_API_NAME => L_API_NAME

Line 2384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2380: );
2381: END IF;
2382: WHEN OTHERS THEN
2383: ROLLBACK TO svpt_grant_permission;
2384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2385: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2386: THEN
2387: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2388: END IF;

Line 2714: IF NOT FND_API.Compatible_API_Call (

2710: BEGIN
2711: SAVEPOINT svpt_revoke_permission;
2712: -- ******* Standard Begins ********
2713: -- Standard call to check for call compatibility.
2714: IF NOT FND_API.Compatible_API_Call (
2715: l_api_version,
2716: p_api_version,
2717: l_api_name,
2718: G_PKG_NAME)

Line 2720: x_return_status := FND_API.G_RET_STS_ERROR;

2716: p_api_version,
2717: l_api_name,
2718: G_PKG_NAME)
2719: THEN
2720: x_return_status := FND_API.G_RET_STS_ERROR;
2721: FND_MSG_PUB.ADD;
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 2722: RAISE FND_API.G_EXC_ERROR;

2718: G_PKG_NAME)
2719: THEN
2720: x_return_status := FND_API.G_RET_STS_ERROR;
2721: FND_MSG_PUB.ADD;
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724: -- Initialize message list if p_init_msg_list is set to TRUE.
2725: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2726: FND_MSG_PUB.initialize;

Line 2725: IF FND_API.to_Boolean( p_init_msg_list ) THEN

2721: FND_MSG_PUB.ADD;
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724: -- Initialize message list if p_init_msg_list is set to TRUE.
2725: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2726: FND_MSG_PUB.initialize;
2727: END IF;
2728:
2729: -- Initialize API return status to success

Line 2730: x_return_status := FND_API.G_RET_STS_SUCCESS;

2726: FND_MSG_PUB.initialize;
2727: END IF;
2728:
2729: -- Initialize API return status to success
2730: x_return_status := FND_API.G_RET_STS_SUCCESS;
2731:
2732: -- Begin
2733:
2734:

Line 3014: IF (p_commit = FND_API.g_true) THEN

3010: END IF;
3011: END LOOP;
3012: END IF;
3013: -- COMMIT?
3014: IF (p_commit = FND_API.g_true) THEN
3015: COMMIT;
3016: END IF;
3017:
3018: -- Standard call to get message count and if count=1, get the message

Line 3036: WHEN FND_API.G_EXC_ERROR THEN

3032: );
3033: END IF;
3034:
3035: EXCEPTION
3036: WHEN FND_API.G_EXC_ERROR THEN
3037: ROLLBACK TO svpt_revoke_permission;
3038: x_return_status := FND_API.G_RET_STS_ERROR;
3039: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3040: p_data => x_msg_data);

Line 3038: x_return_status := FND_API.G_RET_STS_ERROR;

3034:
3035: EXCEPTION
3036: WHEN FND_API.G_EXC_ERROR THEN
3037: ROLLBACK TO svpt_revoke_permission;
3038: x_return_status := FND_API.G_RET_STS_ERROR;
3039: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3040: p_data => x_msg_data);
3041: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
3042: P_API_NAME => L_API_NAME

Line 3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3060: )
3061: )
3062: );
3063: END IF;
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO svpt_revoke_permission;
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3068: p_data => x_msg_data);

Line 3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3062: );
3063: END IF;
3064: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3065: ROLLBACK TO svpt_revoke_permission;
3066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3067: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3068: p_data => x_msg_data);
3069: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
3070: P_API_NAME => L_API_NAME

Line 3094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3090: );
3091: END IF;
3092: WHEN OTHERS THEN
3093: ROLLBACK TO svpt_revoke_permission;
3094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3095: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3096: THEN
3097: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3098: END IF;

Line 3292: * @return Whether user has (FND_API.g_true) or not (FND_API.g_false) such

3288: * @param p_container_pk3_value value 3 for container's primary key
3289: * @param p_container_pk4_value value 4 for container's primary key
3290: * @param p_container_pk5_value value 5 for container's primary key
3291: * @param p_current_user_id Current User Id
3292: * @return Whether user has (FND_API.g_true) or not (FND_API.g_false) such
3293: * permission
3294: *
3295: * @rep:displayname has_permission
3296: *

Line 3380: l_result := FND_API.g_false;

3376: END IF;
3377:
3378:
3379: IF Fnd_Profile.Value_specific('IBC_USE_ACCESS_CONTROL',-999,-999,-999) = 'Y' THEN
3380: l_result := FND_API.g_false;
3381: -- Fetch object's grant group Info
3382: get_object_grant_group_info(
3383: p_instance_object_id => p_instance_object_id
3384: ,p_instance_pk1_value => p_instance_pk1_value

Line 3416: l_result := FND_API.g_true;

3412: ,x_inheritance_type => l_inheritance_type
3413: );
3414: END IF;
3415: IF l_inheritance_type = 'HIDDEN-FOLDER' THEN
3416: l_result := FND_API.g_true;
3417: ELSE
3418: IF l_object_grant_group_rowid IS NOT NULL THEN
3419: OPEN c_permission(l_grant_group_id, l_inherited_flag, l_inheritance_type);
3420: FETCH c_permission INTO l_action;

Line 3422: l_result := FND_API.g_true;

3418: IF l_object_grant_group_rowid IS NOT NULL THEN
3419: OPEN c_permission(l_grant_group_id, l_inherited_flag, l_inheritance_type);
3420: FETCH c_permission INTO l_action;
3421: IF c_permission%FOUND AND l_action = 'ALLOW' THEN
3422: l_result := FND_API.g_true;
3423: END IF;
3424: CLOSE c_permission;
3425: END IF;
3426: END IF;

Line 3430: l_result := FND_API.g_true;

3426: END IF;
3427: ELSE
3428: -- Returns TRUE because IBC_USE_ACCESS_CONTROL profile is either
3429: -- not set or not set to 'Y'
3430: l_result := FND_API.g_true;
3431: END IF;
3432:
3433: IF IBC_DEBUG_PVT.debug_enabled THEN
3434: IBC_DEBUG_PVT.end_process(

Line 3448: l_result := FND_API.g_false;

3444: RETURN l_result;
3445:
3446: EXCEPTION
3447: WHEN OTHERS THEN
3448: l_result := FND_API.g_false;
3449:
3450: IF IBC_DEBUG_PVT.debug_enabled THEN
3451: IBC_DEBUG_PVT.end_process(
3452: IBC_DEBUG_PVT.make_parameter_list(

Line 3795: IF NOT FND_API.Compatible_API_Call (

3791: BEGIN
3792: -- ******* Standard Begins ********
3793:
3794: -- Standard call to check for call compatibility.
3795: IF NOT FND_API.Compatible_API_Call (
3796: l_api_version,
3797: p_api_version,
3798: l_api_name,
3799: G_PKG_NAME)

Line 3801: x_return_status := FND_API.G_RET_STS_ERROR;

3797: p_api_version,
3798: l_api_name,
3799: G_PKG_NAME)
3800: THEN
3801: x_return_status := FND_API.G_RET_STS_ERROR;
3802: FND_MSG_PUB.ADD;
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 3803: RAISE FND_API.G_EXC_ERROR;

3799: G_PKG_NAME)
3800: THEN
3801: x_return_status := FND_API.G_RET_STS_ERROR;
3802: FND_MSG_PUB.ADD;
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805: -- Initialize message list if p_init_msg_list is set to TRUE.
3806: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3807: FND_MSG_PUB.initialize;

Line 3806: IF FND_API.to_Boolean( p_init_msg_list ) THEN

3802: FND_MSG_PUB.ADD;
3803: RAISE FND_API.G_EXC_ERROR;
3804: END IF;
3805: -- Initialize message list if p_init_msg_list is set to TRUE.
3806: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3807: FND_MSG_PUB.initialize;
3808: END IF;
3809:
3810: -- Initialize API return status to success

Line 3811: x_return_status := FND_API.G_RET_STS_SUCCESS;

3807: FND_MSG_PUB.initialize;
3808: END IF;
3809:
3810: -- Initialize API return status to success
3811: x_return_status := FND_API.G_RET_STS_SUCCESS;
3812:
3813: -- Begin
3814:
3815: l_count := 0;

Line 3897: WHEN FND_API.G_EXC_ERROR THEN

3893: -- Standard call to get message count and if count=1, get the message
3894: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3895: p_data => x_msg_data);
3896: EXCEPTION
3897: WHEN FND_API.G_EXC_ERROR THEN
3898: x_return_status := FND_API.G_RET_STS_ERROR;
3899: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3900: p_data => x_msg_data);
3901: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 3898: x_return_status := FND_API.G_RET_STS_ERROR;

3894: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
3895: p_data => x_msg_data);
3896: EXCEPTION
3897: WHEN FND_API.G_EXC_ERROR THEN
3898: x_return_status := FND_API.G_RET_STS_ERROR;
3899: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3900: p_data => x_msg_data);
3901: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
3902: P_API_NAME => L_API_NAME

Line 3912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

3908: ,X_MSG_COUNT => X_MSG_COUNT
3909: ,X_MSG_DATA => X_MSG_DATA
3910: ,X_RETURN_STATUS => X_RETURN_STATUS
3911: );
3912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3915: p_data => x_msg_data);
3916: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 3913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3909: ,X_MSG_DATA => X_MSG_DATA
3910: ,X_RETURN_STATUS => X_RETURN_STATUS
3911: );
3912: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3914: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
3915: p_data => x_msg_data);
3916: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
3917: P_API_NAME => L_API_NAME

Line 3928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

3924: ,X_MSG_DATA => X_MSG_DATA
3925: ,X_RETURN_STATUS => X_RETURN_STATUS
3926: );
3927: WHEN OTHERS THEN
3928: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3929: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3930: THEN
3931: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
3932: END IF;

Line 4107: l_granted_to_all VARCHAR2(1) := FND_API.g_false;

4103: l_result VARCHAR2(4096);
4104:
4105: -- Variable to know if a grant ALLOW was given to everybody
4106: -- not used for the moment, but could be used in the future.
4107: l_granted_to_all VARCHAR2(1) := FND_API.g_false;
4108:
4109: -- IBC_object_grant_groups
4110: l_object_grant_group_rowid ROWID;
4111: l_object_grant_group_id NUMBER;

Line 4148: IF NOT FND_API.Compatible_API_Call (

4144: BEGIN
4145: -- ******* Standard Begins ********
4146:
4147: -- Standard call to check for call compatibility.
4148: IF NOT FND_API.Compatible_API_Call (
4149: l_api_version,
4150: p_api_version,
4151: l_api_name,
4152: G_PKG_NAME)

Line 4154: x_return_status := FND_API.G_RET_STS_ERROR;

4150: p_api_version,
4151: l_api_name,
4152: G_PKG_NAME)
4153: THEN
4154: x_return_status := FND_API.G_RET_STS_ERROR;
4155: FND_MSG_PUB.ADD;
4156: RAISE FND_API.G_EXC_ERROR;
4157: END IF;
4158: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 4156: RAISE FND_API.G_EXC_ERROR;

4152: G_PKG_NAME)
4153: THEN
4154: x_return_status := FND_API.G_RET_STS_ERROR;
4155: FND_MSG_PUB.ADD;
4156: RAISE FND_API.G_EXC_ERROR;
4157: END IF;
4158: -- Initialize message list if p_init_msg_list is set to TRUE.
4159: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4160: FND_MSG_PUB.initialize;

Line 4159: IF FND_API.to_Boolean( p_init_msg_list ) THEN

4155: FND_MSG_PUB.ADD;
4156: RAISE FND_API.G_EXC_ERROR;
4157: END IF;
4158: -- Initialize message list if p_init_msg_list is set to TRUE.
4159: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4160: FND_MSG_PUB.initialize;
4161: END IF;
4162:
4163: -- Initialize API return status to success

Line 4164: x_return_status := FND_API.G_RET_STS_SUCCESS;

4160: FND_MSG_PUB.initialize;
4161: END IF;
4162:
4163: -- Initialize API return status to success
4164: x_return_status := FND_API.G_RET_STS_SUCCESS;
4165:
4166: -- Begin
4167:
4168: IF IBC_DEBUG_PVT.debug_enabled THEN

Line 4195: l_granted_to_all := FND_API.g_false;

4191: END IF;
4192:
4193:
4194: l_result := NULL;
4195: l_granted_to_all := FND_API.g_false;
4196:
4197: get_object_grant_group_info(
4198: p_instance_object_id => p_instance_object_id
4199: ,p_instance_pk1_value => p_instance_pk1_value

Line 4239: l_granted_to_all := FND_API.g_true;

4235: p_user_id_tbl => l_user_id_tbl);
4236: ELSIF r_base_grants.grantee_user_id IS NOT NULL THEN
4237: Add_to_user_table(r_base_grants.grantee_user_id, l_user_id_tbl);
4238: ELSIF r_base_grants.grantee_resource_id IS NULL THEN
4239: l_granted_to_all := FND_API.g_true;
4240: END IF;
4241: END LOOP;
4242: -- Set output result
4243: FOR I IN 1..l_user_id_tbl.COUNT LOOP

Line 4263: p_current_user_id => l_user_id_tbl(I)) = FND_API.g_true

4259: p_container_pk2_value => p_container_pk2_value,
4260: p_container_pk3_value => p_container_pk3_value,
4261: p_container_pk4_value => p_container_pk4_value,
4262: p_container_pk5_value => p_container_pk5_value,
4263: p_current_user_id => l_user_id_tbl(I)) = FND_API.g_true
4264: THEN
4265: */
4266: OPEN c_user_name(l_user_id_tbl(I));
4267: FETCH c_user_name INTO l_user_name;

Line 4277: IF l_granted_to_all = FND_API.g_true AND p_include_global = FND_API.g_true THEN

4273: END IF;
4274: --END IF;
4275: END LOOP;
4276:
4277: IF l_granted_to_all = FND_API.g_true AND p_include_global = FND_API.g_true THEN
4278: IF l_result IS NULL THEN
4279: l_result := NVL(p_global_value, 'All');
4280: ELSE
4281: l_result := l_result || ',' || NVL(p_global_value, 'All');

Line 4306: WHEN FND_API.G_EXC_ERROR THEN

4302: );
4303: END IF;
4304:
4305: EXCEPTION
4306: WHEN FND_API.G_EXC_ERROR THEN
4307: x_return_status := FND_API.G_RET_STS_ERROR;
4308: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4309: p_data => x_msg_data);
4310: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 4307: x_return_status := FND_API.G_RET_STS_ERROR;

4303: END IF;
4304:
4305: EXCEPTION
4306: WHEN FND_API.G_EXC_ERROR THEN
4307: x_return_status := FND_API.G_RET_STS_ERROR;
4308: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4309: p_data => x_msg_data);
4310: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
4311: P_API_NAME => L_API_NAME

Line 4333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4329: )
4330: )
4331: );
4332: END IF;
4333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4335: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4336: p_data => x_msg_data);
4337: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 4334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4330: )
4331: );
4332: END IF;
4333: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4335: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4336: p_data => x_msg_data);
4337: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
4338: P_API_NAME => L_API_NAME

Line 4361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4357: )
4358: );
4359: END IF;
4360: WHEN OTHERS THEN
4361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4362: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4363: THEN
4364: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4365: END IF;

Line 4454: l_granted_to_all VARCHAR2(1) := FND_API.g_false;

4450: l_result t_user_id_tbl;
4451:
4452: -- Variable to know if a grant ALLOW was given to everybody
4453: -- not used for the moment, but could be used in the future.
4454: l_granted_to_all VARCHAR2(1) := FND_API.g_false;
4455:
4456: -- IBC_object_grant_groups
4457: l_object_grant_group_rowid ROWID;
4458: l_object_grant_group_id NUMBER;

Line 4493: IF NOT FND_API.Compatible_API_Call (

4489: BEGIN
4490: -- ******* Standard Begins ********
4491:
4492: -- Standard call to check for call compatibility.
4493: IF NOT FND_API.Compatible_API_Call (
4494: l_api_version,
4495: p_api_version,
4496: l_api_name,
4497: G_PKG_NAME)

Line 4499: x_return_status := FND_API.G_RET_STS_ERROR;

4495: p_api_version,
4496: l_api_name,
4497: G_PKG_NAME)
4498: THEN
4499: x_return_status := FND_API.G_RET_STS_ERROR;
4500: FND_MSG_PUB.ADD;
4501: RAISE FND_API.G_EXC_ERROR;
4502: END IF;
4503: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 4501: RAISE FND_API.G_EXC_ERROR;

4497: G_PKG_NAME)
4498: THEN
4499: x_return_status := FND_API.G_RET_STS_ERROR;
4500: FND_MSG_PUB.ADD;
4501: RAISE FND_API.G_EXC_ERROR;
4502: END IF;
4503: -- Initialize message list if p_init_msg_list is set to TRUE.
4504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4505: FND_MSG_PUB.initialize;

Line 4504: IF FND_API.to_Boolean( p_init_msg_list ) THEN

4500: FND_MSG_PUB.ADD;
4501: RAISE FND_API.G_EXC_ERROR;
4502: END IF;
4503: -- Initialize message list if p_init_msg_list is set to TRUE.
4504: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4505: FND_MSG_PUB.initialize;
4506: END IF;
4507:
4508: -- Initialize API return status to success

Line 4509: x_return_status := FND_API.G_RET_STS_SUCCESS;

4505: FND_MSG_PUB.initialize;
4506: END IF;
4507:
4508: -- Initialize API return status to success
4509: x_return_status := FND_API.G_RET_STS_SUCCESS;
4510:
4511: -- Begin
4512:
4513: l_granted_to_all := FND_API.g_false;

Line 4513: l_granted_to_all := FND_API.g_false;

4509: x_return_status := FND_API.G_RET_STS_SUCCESS;
4510:
4511: -- Begin
4512:
4513: l_granted_to_all := FND_API.g_false;
4514:
4515: get_object_grant_group_info(
4516: p_instance_object_id => p_instance_object_id
4517: ,p_instance_pk1_value => p_instance_pk1_value

Line 4557: l_granted_to_all := FND_API.g_true;

4553: p_user_id_tbl => l_user_id_tbl);
4554: ELSIF r_base_grants.grantee_user_id IS NOT NULL THEN
4555: Add_to_user_table(r_base_grants.grantee_user_id, l_user_id_tbl);
4556: ELSIF r_base_grants.grantee_resource_id IS NULL THEN
4557: l_granted_to_all := FND_API.g_true;
4558: END IF;
4559: END LOOP;
4560: -- Set output result
4561: l_count := 0;

Line 4577: p_current_user_id => l_user_id_tbl(I)) = FND_API.g_true

4573: p_container_pk2_value => p_container_pk2_value,
4574: p_container_pk3_value => p_container_pk3_value,
4575: p_container_pk4_value => p_container_pk4_value,
4576: p_container_pk5_value => p_container_pk5_value,
4577: p_current_user_id => l_user_id_tbl(I)) = FND_API.g_true
4578: THEN
4579: l_count := l_count + 1;
4580: l_result(l_count) := l_user_id_tbl(I);
4581: END IF;

Line 4597: WHEN FND_API.G_EXC_ERROR THEN

4593: -- Standard call to get message count and if count=1, get the message
4594: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4595: p_data => x_msg_data);
4596: EXCEPTION
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: x_return_status := FND_API.G_RET_STS_ERROR;
4599: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4600: p_data => x_msg_data);
4601: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 4598: x_return_status := FND_API.G_RET_STS_ERROR;

4594: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4595: p_data => x_msg_data);
4596: EXCEPTION
4597: WHEN FND_API.G_EXC_ERROR THEN
4598: x_return_status := FND_API.G_RET_STS_ERROR;
4599: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4600: p_data => x_msg_data);
4601: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
4602: P_API_NAME => L_API_NAME

Line 4612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4608: ,X_MSG_COUNT => X_MSG_COUNT
4609: ,X_MSG_DATA => X_MSG_DATA
4610: ,X_RETURN_STATUS => X_RETURN_STATUS
4611: );
4612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4614: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4615: p_data => x_msg_data);
4616: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 4613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4609: ,X_MSG_DATA => X_MSG_DATA
4610: ,X_RETURN_STATUS => X_RETURN_STATUS
4611: );
4612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4614: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4615: p_data => x_msg_data);
4616: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
4617: P_API_NAME => L_API_NAME

Line 4628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4624: ,X_MSG_DATA => X_MSG_DATA
4625: ,X_RETURN_STATUS => X_RETURN_STATUS
4626: );
4627: WHEN OTHERS THEN
4628: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4629: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4630: THEN
4631: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4632: END IF;

Line 4716: IF NOT FND_API.Compatible_API_Call (

4712:
4713: -- ******* Standard Begins ********
4714:
4715: -- Standard call to check for call compatibility.
4716: IF NOT FND_API.Compatible_API_Call (
4717: l_api_version,
4718: p_api_version,
4719: l_api_name,
4720: G_PKG_NAME)

Line 4722: x_return_status := FND_API.G_RET_STS_ERROR;

4718: p_api_version,
4719: l_api_name,
4720: G_PKG_NAME)
4721: THEN
4722: x_return_status := FND_API.G_RET_STS_ERROR;
4723: FND_MSG_PUB.ADD;
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4726: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 4724: RAISE FND_API.G_EXC_ERROR;

4720: G_PKG_NAME)
4721: THEN
4722: x_return_status := FND_API.G_RET_STS_ERROR;
4723: FND_MSG_PUB.ADD;
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4726: -- Initialize message list if p_init_msg_list is set to TRUE.
4727: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4728: FND_MSG_PUB.initialize;

Line 4727: IF FND_API.to_Boolean( p_init_msg_list ) THEN

4723: FND_MSG_PUB.ADD;
4724: RAISE FND_API.G_EXC_ERROR;
4725: END IF;
4726: -- Initialize message list if p_init_msg_list is set to TRUE.
4727: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4728: FND_MSG_PUB.initialize;
4729: END IF;
4730:
4731: -- Initialize API return status to success

Line 4732: x_return_status := FND_API.G_RET_STS_SUCCESS;

4728: FND_MSG_PUB.initialize;
4729: END IF;
4730:
4731: -- Initialize API return status to success
4732: x_return_status := FND_API.G_RET_STS_SUCCESS;
4733:
4734: -- Begin
4735:
4736: get_object_grant_group_info(

Line 4776: WHEN FND_API.G_EXC_ERROR THEN

4772: -- Standard call to get message count and if count=1, get the message
4773: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4774: p_data => x_msg_data);
4775: EXCEPTION
4776: WHEN FND_API.G_EXC_ERROR THEN
4777: x_return_status := FND_API.G_RET_STS_ERROR;
4778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4779: p_data => x_msg_data);
4780: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 4777: x_return_status := FND_API.G_RET_STS_ERROR;

4773: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
4774: p_data => x_msg_data);
4775: EXCEPTION
4776: WHEN FND_API.G_EXC_ERROR THEN
4777: x_return_status := FND_API.G_RET_STS_ERROR;
4778: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4779: p_data => x_msg_data);
4780: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
4781: P_API_NAME => L_API_NAME

Line 4791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4787: ,X_MSG_COUNT => X_MSG_COUNT
4788: ,X_MSG_DATA => X_MSG_DATA
4789: ,X_RETURN_STATUS => X_RETURN_STATUS
4790: );
4791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4793: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4794: p_data => x_msg_data);
4795: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(

Line 4792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4788: ,X_MSG_DATA => X_MSG_DATA
4789: ,X_RETURN_STATUS => X_RETURN_STATUS
4790: );
4791: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4793: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4794: p_data => x_msg_data);
4795: IBC_UTILITIES_PVT.HANDLE_EXCEPTIONS(
4796: P_API_NAME => L_API_NAME

Line 4807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4803: ,X_MSG_DATA => X_MSG_DATA
4804: ,X_RETURN_STATUS => X_RETURN_STATUS
4805: );
4806: WHEN OTHERS THEN
4807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4808: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4809: THEN
4810: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
4811: END IF;