337: l_debug_str := 'Exception: '||SQLERRM;
338: fnd_log.string_with_context( fnd_log.level_procedure,l_label,l_debug_str, NULL,NULL,NULL,NULL,NULL,NULL);
339: END IF;
340:
341: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
342:
343: RETURN FALSE;
344:
345: END check_grant_text;
425:
426: x_return_status := FND_API.G_RET_STS_SUCCESS;
427:
428: IF FND_API.to_Boolean (p_init_msg_list) THEN
429: FND_MSG_PUB.initialize;
430: END IF;
431:
432: -- API body
433: OPEN c_grants;
452: COMMIT WORK;
453: END IF;
454:
455: -- Standard call to get message count and if count is 1, get message info.
456: FND_MSG_PUB.Count_And_Get
457: ( p_count => x_msg_count ,
458: p_data => x_msg_data
459: );
460:
462: WHEN FND_API.G_EXC_ERROR THEN
463:
464: ROLLBACK TO construct_grant;
465: x_return_status := FND_API.G_RET_STS_ERROR;
466: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
467: p_data => x_msg_data );
468:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470:
469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
470:
471: ROLLBACK TO construct_grant;
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
474: p_data => x_msg_data );
475:
476: WHEN OTHERS THEN
477:
477:
478: ROLLBACK TO construct_grant;
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480:
481: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
482: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
483: END IF;
484: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
485: p_data => x_msg_data );
478: ROLLBACK TO construct_grant;
479: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
480:
481: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
482: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
483: END IF;
484: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
485: p_data => x_msg_data );
486:
480:
481: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
482: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
483: END IF;
484: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
485: p_data => x_msg_data );
486:
487:
488: END construct_grant;
527:
528: x_return_status := FND_API.G_RET_STS_SUCCESS;
529:
530: IF FND_API.to_Boolean (p_init_msg_list) THEN
531: FND_MSG_PUB.initialize;
532: END IF;
533:
534: x_where_clause:= generate_grant (
535: p_object_name => p_object_name,
552: COMMIT WORK;
553: END IF;
554:
555: -- Standard call to get message count and if count is 1, get message info.
556: FND_MSG_PUB.Count_And_Get
557: ( p_count => x_msg_count ,
558: p_data => x_msg_data
559: );
560:
561: EXCEPTION
562: WHEN FND_API.G_EXC_ERROR THEN
563:
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
566: p_data => x_msg_data );
567:
568: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
569: l_label := 'igs.plsql.igs_sc_grants_pvt.generate_grant.ex_error';
574:
575: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
576:
577: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
578: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
579: p_data => x_msg_data );
580:
581: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
582: l_label := 'igs.plsql.igs_sc_grants_pvt.generate_grant.ex_un';
588: WHEN OTHERS THEN
589:
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591:
592: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
593: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
594: END IF;
595: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
596: p_data => x_msg_data );
589:
590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
591:
592: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
593: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
594: END IF;
595: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
596: p_data => x_msg_data );
597:
591:
592: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
593: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
594: END IF;
595: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
596: p_data => x_msg_data );
597:
598: IF fnd_log.test(fnd_log.level_procedure,l_prog_label) THEN
599: l_label := 'igs.plsql.igs_sc_grants_pvt.generate_grant.ex_other';
690: close c_obj_attrib;
691: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_MTHD_NOT_FOUND');
692: FND_MESSAGE.SET_TOKEN('ATTRIB_ID', l_grant_cond(c_grant_cond_rec.grant_cond_num).obj_attrib_id);
693: FND_MESSAGE.SET_TOKEN('TABLE_NAME',p_group_rec.table_name );
694: FND_MSG_PUB.Add;
695:
696: RAISE FND_API.G_EXC_ERROR;
697:
698: ELSIF l_obj_attrib.NULL_ALLOW_FLAG IN ('Y','N') THEN
746: CLOSE c_obj_attrib;
747: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_MTHD_NOT_FOUND');
748: FND_MESSAGE.SET_TOKEN('ATTRIB_ID', l_grant_cond(c_grant_cond_rec.grant_cond_num).obj_attrib_id);
749: FND_MESSAGE.SET_TOKEN('TABLE_NAME',p_group_rec.table_name );
750: FND_MSG_PUB.Add;
751: RAISE FND_API.G_EXC_ERROR;
752:
753: END IF;
754:
835: ELSE -- F
836:
837: -- Not supported combination
838: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_NOT_SPRT_COMB');
839: FND_MSG_PUB.Add;
840: RAISE FND_API.G_EXC_ERROR;
841:
842: END IF;
843:
1147:
1148: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_GRNT_TXT_ERR');
1149: FND_MESSAGE.SET_TOKEN('OBJ_NAME',p_group_rec.table_name );
1150: FND_MESSAGE.SET_TOKEN('GRNT_TEXT', l_statment);
1151: FND_MSG_PUB.Add;
1152: RAISE FND_API.G_EXC_ERROR;
1153:
1154: END IF;
1155:
1290: -- Object is not found - return exception
1291: CLOSE c_group;
1292:
1293: FND_MESSAGE.SET_NAME('IGS', 'IGS_SC_NO_OBJECT_FOUND');
1294: FND_MSG_PUB.Add;
1295:
1296: -- Return nothing ofr a table
1297: RAISE FND_API.G_EXC_ERROR;
1298:
1472:
1473: x_return_status := FND_API.G_RET_STS_SUCCESS;
1474:
1475: IF FND_API.to_Boolean (p_init_msg_list) THEN
1476: FND_MSG_PUB.initialize;
1477: END IF;
1478:
1479: -- API body
1480:
1546: COMMIT WORK;
1547: END IF;
1548:
1549: -- Standard call to get message count and if count is 1, get message info.
1550: FND_MSG_PUB.Count_And_Get
1551: ( p_count => x_msg_count ,
1552: p_data => x_msg_data
1553: );
1554:
1556: WHEN FND_API.G_EXC_ERROR THEN
1557:
1558: ROLLBACK TO populate_user_attrib;
1559: x_return_status := FND_API.G_RET_STS_ERROR;
1560: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1561: p_data => x_msg_data );
1562:
1563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1564:
1563: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1564:
1565: ROLLBACK TO populate_user_attrib;
1566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1567: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1568: p_data => x_msg_data );
1569:
1570: WHEN OTHERS THEN
1571:
1571:
1572: ROLLBACK TO populate_user_attrib;
1573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1574:
1575: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1577: END IF;
1578: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1579: p_data => x_msg_data );
1572: ROLLBACK TO populate_user_attrib;
1573: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1574:
1575: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1577: END IF;
1578: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1579: p_data => x_msg_data );
1580:
1574:
1575: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1576: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1577: END IF;
1578: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1579: p_data => x_msg_data );
1580:
1581: END populate_user_attrib;
1582:
1681: l_msg_data VARCHAR2(2000);
1682:
1683: BEGIN
1684:
1685: FND_MSg_PUB.Count_And_Get ( p_count => l_msg_count,
1686: p_data => l_msg_data );
1687:
1688: IF (l_msg_count > 0) THEN
1689:
1690: l_msg_data := '';
1691:
1692: FOR l_cur IN 1..l_msg_count LOOP
1693:
1694: l_msg_data := FND_MSg_PUB.GET(l_cur, FND_API.g_FALSE);
1695: Put_Log_Msg(l_msg_data,1);
1696: END LOOP;
1697:
1698: ELSE
1790:
1791: x_return_status := FND_API.G_RET_STS_SUCCESS;
1792:
1793: IF FND_API.to_Boolean (p_init_msg_list) THEN
1794: FND_MSG_PUB.initialize;
1795: END IF;
1796:
1797: -- API body
1798:
1826: COMMIT WORK;
1827: END IF;
1828:
1829: -- Standard call to get message count and if count is 1, get message info.
1830: FND_MSG_PUB.Count_And_Get
1831: ( p_count => x_msg_count ,
1832: p_data => x_msg_data
1833: );
1834:
1836: WHEN FND_API.G_EXC_ERROR THEN
1837:
1838: ROLLBACK TO unlock_all_grants;
1839: x_return_status := FND_API.G_RET_STS_ERROR;
1840: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1841: p_data => x_msg_data );
1842:
1843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1844:
1843: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1844:
1845: ROLLBACK TO unlock_all_grants;
1846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1847: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1848: p_data => x_msg_data );
1849:
1850: WHEN OTHERS THEN
1851:
1851:
1852: ROLLBACK TO unlock_all_grants;
1853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1854:
1855: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1856: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1857: END IF;
1858: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1859: p_data => x_msg_data );
1852: ROLLBACK TO unlock_all_grants;
1853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1854:
1855: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1856: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1857: END IF;
1858: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1859: p_data => x_msg_data );
1860:
1854:
1855: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1856: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1857: END IF;
1858: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1859: p_data => x_msg_data );
1860:
1861: END unlock_all_grants;
1862:
1904:
1905: x_return_status := FND_API.G_RET_STS_SUCCESS;
1906:
1907: IF FND_API.to_Boolean (p_init_msg_list) THEN
1908: FND_MSG_PUB.initialize;
1909: END IF;
1910:
1911: -- API body
1912:
1933: COMMIT WORK;
1934: END IF;
1935:
1936: -- Standard call to get message count and if count is 1, get message info.
1937: FND_MSG_PUB.Count_And_Get
1938: ( p_count => x_msg_count ,
1939: p_data => x_msg_data
1940: );
1941:
1943: WHEN FND_API.G_EXC_ERROR THEN
1944:
1945: ROLLBACK TO lock_all_grants;
1946: x_return_status := FND_API.G_RET_STS_ERROR;
1947: FND_MSG_PUB.Count_And_Get (p_count => x_msg_count,
1948: p_data => x_msg_data );
1949:
1950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1951:
1950: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1951:
1952: ROLLBACK TO lock_all_grants;
1953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1954: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1955: p_data => x_msg_data );
1956:
1957: WHEN OTHERS THEN
1958:
1958:
1959: ROLLBACK TO lock_all_grants;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1961:
1962: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1963: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1964: END IF;
1965: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1966: p_data => x_msg_data );
1959: ROLLBACK TO lock_all_grants;
1960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1961:
1962: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1963: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1964: END IF;
1965: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1966: p_data => x_msg_data );
1967: END lock_all_grants;
1961:
1962: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) THEN
1963: FND_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, l_api_name);
1964: END IF;
1965: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
1966: p_data => x_msg_data );
1967: END lock_all_grants;
1968:
1969: