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);
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
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;
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;
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;
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;
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;
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;
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;
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: --}
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;
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);
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);
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;
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;
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;
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;
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;