DBA Data[Home] [Help]

APPS.WSH_ITM_RESUBMIT dependencies on DBMS_SQL

Line 391: l_CursorID := DBMS_SQL.Open_Cursor;

387: WSH_UTIL_CORE.println(l_sub_str);
388: i := i + 80;
389: END LOOP;
390:
391: l_CursorID := DBMS_SQL.Open_Cursor;
392:
393: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
394:
395: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);

Line 393: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );

389: END LOOP;
390:
391: l_CursorID := DBMS_SQL.Open_Cursor;
392:
393: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
394:
395: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
396:
397: IF p_party_type IS NOT NULL THEN

Line 395: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);

391: l_CursorID := DBMS_SQL.Open_Cursor;
392:
393: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
394:
395: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
396:
397: IF p_party_type IS NOT NULL THEN
398: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_type', p_party_type);
399: END IF;

Line 398: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_type', p_party_type);

394:
395: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
396:
397: IF p_party_type IS NOT NULL THEN
398: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_type', p_party_type);
399: END IF;
400: IF p_party_id IS NOT NULL THEN
401: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_id', p_party_id);
402: END IF;

Line 401: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_id', p_party_id);

397: IF p_party_type IS NOT NULL THEN
398: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_type', p_party_type);
399: END IF;
400: IF p_party_id IS NOT NULL THEN
401: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_id', p_party_id);
402: END IF;
403: IF p_vendor_id IS NOT NULL THEN
404: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_vendor_id', p_vendor_id);
405: END IF;

Line 404: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_vendor_id', p_vendor_id);

400: IF p_party_id IS NOT NULL THEN
401: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_party_id', p_party_id);
402: END IF;
403: IF p_vendor_id IS NOT NULL THEN
404: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_vendor_id', p_vendor_id);
405: END IF;
406: IF p_error_type IS NOT NULL THEN
407: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_type', p_error_type);
408: END IF;

Line 407: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_type', p_error_type);

403: IF p_vendor_id IS NOT NULL THEN
404: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_vendor_id', p_vendor_id);
405: END IF;
406: IF p_error_type IS NOT NULL THEN
407: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_type', p_error_type);
408: END IF;
409: IF p_error_code IS NOT NULL THEN
410: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_code', p_error_code);
411: END IF;

Line 410: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_code', p_error_code);

406: IF p_error_type IS NOT NULL THEN
407: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_type', p_error_type);
408: END IF;
409: IF p_error_code IS NOT NULL THEN
410: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_code', p_error_code);
411: END IF;
412: IF p_reference_id IS NOT NULL THEN
413: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_id', p_reference_id);
414: END IF;

Line 413: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_id', p_reference_id);

409: IF p_error_code IS NOT NULL THEN
410: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_error_code', p_error_code);
411: END IF;
412: IF p_reference_id IS NOT NULL THEN
413: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_id', p_reference_id);
414: END IF;
415: IF p_reference_line_id IS NOT NULL THEN
416: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_line_id', p_reference_line_id);
417: END IF;

Line 416: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_line_id', p_reference_line_id);

412: IF p_reference_id IS NOT NULL THEN
413: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_id', p_reference_id);
414: END IF;
415: IF p_reference_line_id IS NOT NULL THEN
416: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_line_id', p_reference_line_id);
417: END IF;
418:
419: l_ignore := DBMS_SQL.Execute(l_CursorID);
420: --}

Line 419: l_ignore := DBMS_SQL.Execute(l_CursorID);

415: IF p_reference_line_id IS NOT NULL THEN
416: DBMS_SQL.BIND_VARIABLE(l_CursorID,':x_reference_line_id', p_reference_line_id);
417: END IF;
418:
419: l_ignore := DBMS_SQL.Execute(l_CursorID);
420: --}
421: ELSE
422: OPEN Get_Request_Control_ship;
423: END IF;

Line 431: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN

427: --Issue a Savepoint
428: SAVEPOINT WSH_ITM_RESUBMIT;
429:
430: IF p_application_id = 660 THEN
431: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
432: DBMS_SQL.Close_Cursor(l_cursorID);
433: EXIT;
434: ELSE
435: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);

Line 432: DBMS_SQL.Close_Cursor(l_cursorID);

428: SAVEPOINT WSH_ITM_RESUBMIT;
429:
430: IF p_application_id = 660 THEN
431: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
432: DBMS_SQL.Close_Cursor(l_cursorID);
433: EXIT;
434: ELSE
435: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
436: WSH_UTIL_CORE.println('Request Control Id is' || l_request_control_id);

Line 435: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);

431: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
432: DBMS_SQL.Close_Cursor(l_cursorID);
433: EXIT;
434: ELSE
435: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
436: WSH_UTIL_CORE.println('Request Control Id is' || l_request_control_id);
437: END IF;
438: ELSE
439: fetch Get_Request_Control_ship into l_request_control_id;

Line 521: IF DBMS_SQL.IS_Open(l_cursorID) THEN

517:
518: END LOOP; --}
519:
520: IF p_application_id=660 THEN
521: IF DBMS_SQL.IS_Open(l_cursorID) THEN
522: DBMS_SQL.Close_Cursor(l_cursorID);
523: END IF;
524: ELSE
525: CLOSE Get_Request_Control_ship;

Line 522: DBMS_SQL.Close_Cursor(l_cursorID);

518: END LOOP; --}
519:
520: IF p_application_id=660 THEN
521: IF DBMS_SQL.IS_Open(l_cursorID) THEN
522: DBMS_SQL.Close_Cursor(l_cursorID);
523: END IF;
524: ELSE
525: CLOSE Get_Request_Control_ship;
526: END IF;

Line 539: IF DBMS_SQL.IS_Open(l_cursorID) THEN

535:
536: WHEN OTHERS THEN
537:
538: ROLLBACK TO WSH_ITM_RESUBMIT;
539: IF DBMS_SQL.IS_Open(l_cursorID) THEN
540: DBMS_SQL.Close_Cursor(l_cursorID);
541: END IF;
542: IF Get_Request_Control_ship%ISOPEN THEN
543: CLOSE Get_Request_Control_ship;

Line 540: DBMS_SQL.Close_Cursor(l_cursorID);

536: WHEN OTHERS THEN
537:
538: ROLLBACK TO WSH_ITM_RESUBMIT;
539: IF DBMS_SQL.IS_Open(l_cursorID) THEN
540: DBMS_SQL.Close_Cursor(l_cursorID);
541: END IF;
542: IF Get_Request_Control_ship%ISOPEN THEN
543: CLOSE Get_Request_Control_ship;
544: END IF;