6: --
7: -- MODIFICATION HISTORY
8: -- Person Date Comments
9: -- Liang Xia 3/26/2002 created
10: -- Liang Xia 3/18/2003 Fixed bug 2852915. DBMS_SQL.VARIABLE_VALUE
11: -- Liang Xia 11/1/2004 Fixed bug 3982076. Valid procedure name for 'TEST'
12: -- Liang Xia 04/06/2005 Fixed GSCC sql.46 ( bug 4256769 )
13: -- --------- ------ ------------------------------------------
14:
308:
309: l_ProcCall := 'Begin '|| l_proc_name || '(IEM_TAG_RUN_PROC_PVT.G_key_value, :' ||l_para_out_name||'); END;';
310:
311: --Open the cursor and parse the statement.
312: l_Cursor := DBMS_SQL.OPEN_CURSOR;
313: DBMS_SQL.PARSE(l_Cursor, l_ProcCall, DBMS_SQL.native);
314:
315: DBMS_SQL.BIND_VARIABLE(l_Cursor,l_para_out_name,
316: l_result, 500);
309: l_ProcCall := 'Begin '|| l_proc_name || '(IEM_TAG_RUN_PROC_PVT.G_key_value, :' ||l_para_out_name||'); END;';
310:
311: --Open the cursor and parse the statement.
312: l_Cursor := DBMS_SQL.OPEN_CURSOR;
313: DBMS_SQL.PARSE(l_Cursor, l_ProcCall, DBMS_SQL.native);
314:
315: DBMS_SQL.BIND_VARIABLE(l_Cursor,l_para_out_name,
316: l_result, 500);
317:
311: --Open the cursor and parse the statement.
312: l_Cursor := DBMS_SQL.OPEN_CURSOR;
313: DBMS_SQL.PARSE(l_Cursor, l_ProcCall, DBMS_SQL.native);
314:
315: DBMS_SQL.BIND_VARIABLE(l_Cursor,l_para_out_name,
316: l_result, 500);
317:
318: --Execute the procedure.
319: l_NumRows := DBMS_SQL.EXECUTE(l_Cursor);
315: DBMS_SQL.BIND_VARIABLE(l_Cursor,l_para_out_name,
316: l_result, 500);
317:
318: --Execute the procedure.
319: l_NumRows := DBMS_SQL.EXECUTE(l_Cursor);
320:
321: DBMS_SQL.VARIABLE_VALUE(l_Cursor, l_para_out_name, l_result);
322:
323: x_result := l_result;
317:
318: --Execute the procedure.
319: l_NumRows := DBMS_SQL.EXECUTE(l_Cursor);
320:
321: DBMS_SQL.VARIABLE_VALUE(l_Cursor, l_para_out_name, l_result);
322:
323: x_result := l_result;
324:
325: DBMS_SQL.close_cursor( l_Cursor );
321: DBMS_SQL.VARIABLE_VALUE(l_Cursor, l_para_out_name, l_result);
322:
323: x_result := l_result;
324:
325: DBMS_SQL.close_cursor( l_Cursor );
326:
327: -- Standard Check Of p_commit.
328: IF FND_API.To_Boolean(p_commit) THEN
329: COMMIT WORK;