908: -- initialize the return status to SUCCESS
909: x_return_status := FND_API.G_RET_STS_SUCCESS;
910:
911: -- if the sql_statement is passed in and if its NOT NULL then
912: -- validate the sql_statement by parsing it using the dbms_sql
913: -- package.
914: IF (( p_sql_stmnt IS NOT NULL ) and
915: ( p_sql_stmnt <> FND_API.G_MISS_CHAR )) THEN
916: l_sql_cur_hdl := DBMS_SQL.OPEN_CURSOR;
912: -- validate the sql_statement by parsing it using the dbms_sql
913: -- package.
914: IF (( p_sql_stmnt IS NOT NULL ) and
915: ( p_sql_stmnt <> FND_API.G_MISS_CHAR )) THEN
916: l_sql_cur_hdl := DBMS_SQL.OPEN_CURSOR;
917: DBMS_SQL.PARSE( l_sql_cur_hdl, p_sql_stmnt, DBMS_SQL.NATIVE );
918: DBMS_SQL.CLOSE_CURSOR( l_sql_cur_hdl );
919: END IF;
920: EXCEPTION
913: -- package.
914: IF (( p_sql_stmnt IS NOT NULL ) and
915: ( p_sql_stmnt <> FND_API.G_MISS_CHAR )) THEN
916: l_sql_cur_hdl := DBMS_SQL.OPEN_CURSOR;
917: DBMS_SQL.PARSE( l_sql_cur_hdl, p_sql_stmnt, DBMS_SQL.NATIVE );
918: DBMS_SQL.CLOSE_CURSOR( l_sql_cur_hdl );
919: END IF;
920: EXCEPTION
921: WHEN OTHERS THEN
914: IF (( p_sql_stmnt IS NOT NULL ) and
915: ( p_sql_stmnt <> FND_API.G_MISS_CHAR )) THEN
916: l_sql_cur_hdl := DBMS_SQL.OPEN_CURSOR;
917: DBMS_SQL.PARSE( l_sql_cur_hdl, p_sql_stmnt, DBMS_SQL.NATIVE );
918: DBMS_SQL.CLOSE_CURSOR( l_sql_cur_hdl );
919: END IF;
920: EXCEPTION
921: WHEN OTHERS THEN
922: IF DBMS_SQL.IS_OPEN( l_Sql_cur_hdl ) THEN
918: DBMS_SQL.CLOSE_CURSOR( l_sql_cur_hdl );
919: END IF;
920: EXCEPTION
921: WHEN OTHERS THEN
922: IF DBMS_SQL.IS_OPEN( l_Sql_cur_hdl ) THEN
923: DBMS_SQL.CLOSE_CURSOR(l_Sql_cur_hdl );
924: END IF;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: END Validate_Sql_Stmnt;
919: END IF;
920: EXCEPTION
921: WHEN OTHERS THEN
922: IF DBMS_SQL.IS_OPEN( l_Sql_cur_hdl ) THEN
923: DBMS_SQL.CLOSE_CURSOR(l_Sql_cur_hdl );
924: END IF;
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
926: END Validate_Sql_Stmnt;
927: