1627: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1628: raise FND_API.G_EXC_ERROR;
1629: end if;
1630:
1631: PSB_MESSAGE_S.Print_Success;
1632: retcode := 0 ;
1633:
1634: COMMIT WORK;
1635:
1645: p_concurrency_entity_name => 'WORKSHEET',
1646: p_concurrency_entity_id => p_worksheet_id);
1647:
1648:
1649: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1650: p_print_header => FND_API.G_TRUE );
1651: retcode := 2 ;
1652: COMMIT WORK ;
1653: --
1660: p_concurrency_class => 'WORKSHEET_CREATION',
1661: p_concurrency_entity_name => 'WORKSHEET',
1662: p_concurrency_entity_id => p_worksheet_id);
1663:
1664: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1665: p_print_header => FND_API.G_TRUE );
1666: retcode := 2 ;
1667: COMMIT WORK ;
1668: --
1681: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1682: l_api_name ) ;
1683: END IF ;
1684: --
1685: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1686: p_print_header => FND_API.G_TRUE );
1687: --
1688: retcode := 2 ;
1689: COMMIT WORK ;
1764: raise FND_API.G_EXC_ERROR;
1765:
1766: end if;
1767:
1768: PSB_MESSAGE_S.Print_Success;
1769: retcode := 0 ;
1770:
1771: COMMIT WORK;
1772:
1773: EXCEPTION
1774:
1775: WHEN FND_API.G_EXC_ERROR THEN
1776:
1777: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1778: p_print_header => FND_API.G_TRUE );
1779: retcode := 2 ;
1780: COMMIT WORK ;
1781: --
1780: COMMIT WORK ;
1781: --
1782: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1783:
1784: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1785: p_print_header => FND_API.G_TRUE );
1786: retcode := 2 ;
1787: COMMIT WORK ;
1788: --
1793: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1794: l_api_name ) ;
1795: END IF ;
1796: --
1797: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1798: p_print_header => FND_API.G_TRUE );
1799: --
1800: retcode := 2 ;
1801: COMMIT WORK ;
1858: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1859: raise FND_API.G_EXC_ERROR;
1860: end if;
1861:
1862: PSB_MESSAGE_S.Print_Success;
1863: retcode := 0 ;
1864: --
1865: COMMIT WORK;
1866: --
1867: EXCEPTION
1868:
1869: WHEN FND_API.G_EXC_ERROR THEN
1870:
1871: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1872: p_print_header => FND_API.G_TRUE );
1873: retcode := 2 ;
1874: COMMIT WORK ;
1875:
1874: COMMIT WORK ;
1875:
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1877:
1878: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1879: p_print_header => FND_API.G_TRUE );
1880: retcode := 2 ;
1881: COMMIT WORK ;
1882:
1887: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1888: l_api_name ) ;
1889: END IF ;
1890: --
1891: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1892: p_print_header => FND_API.G_TRUE );
1893: --
1894: retcode := 2 ;
1895: COMMIT WORK ;
1952: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1953: raise FND_API.G_EXC_ERROR;
1954: end if;
1955:
1956: PSB_MESSAGE_S.Print_Success;
1957: retcode := 0 ;
1958: --
1959: COMMIT WORK;
1960: --
1961: EXCEPTION
1962:
1963: WHEN FND_API.G_EXC_ERROR THEN
1964:
1965: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1966: p_print_header => FND_API.G_TRUE );
1967: retcode := 2 ;
1968: COMMIT WORK ;
1969:
1968: COMMIT WORK ;
1969:
1970: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1971:
1972: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1973: p_print_header => FND_API.G_TRUE );
1974: retcode := 2 ;
1975: COMMIT WORK ;
1976:
1981: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME ,
1982: l_api_name ) ;
1983: END IF ;
1984: --
1985: PSB_MESSAGE_S.Print_Error ( p_mode => FND_FILE.LOG ,
1986: p_print_header => FND_API.G_TRUE );
1987: --
1988: retcode := 2 ;
1989: COMMIT WORK ;