DBA Data[Home] [Help]

APPS.WSH_ITM_OVERRIDE dependencies on DBMS_SQL

Line 503: l_CursorID := DBMS_SQL.Open_Cursor;

499: WSH_UTIL_CORE.println(l_sub_str);
500: i := i + 80;
501: END LOOP;
502:
503: l_CursorID := DBMS_SQL.Open_Cursor;
504: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
505: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
506: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
507:

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

500: i := i + 80;
501: END LOOP;
502:
503: l_CursorID := DBMS_SQL.Open_Cursor;
504: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
505: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
506: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
507:
508: IF p_party_type IS NOT NULL THEN

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

501: END LOOP;
502:
503: l_CursorID := DBMS_SQL.Open_Cursor;
504: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
505: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
506: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
507:
508: IF p_party_type IS NOT NULL THEN
509: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);

Line 506: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);

502:
503: l_CursorID := DBMS_SQL.Open_Cursor;
504: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
505: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
506: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
507:
508: IF p_party_type IS NOT NULL THEN
509: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
510: END IF;

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

505: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
506: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
507:
508: IF p_party_type IS NOT NULL THEN
509: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
510: END IF;
511:
512: IF p_party_id IS NOT NULL THEN
513: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);

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

509: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
510: END IF;
511:
512: IF p_party_id IS NOT NULL THEN
513: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
514: END IF;
515:
516: IF p_reference_id IS NOT NULL THEN
517: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);

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

513: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
514: END IF;
515:
516: IF p_reference_id IS NOT NULL THEN
517: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
518: END IF;
519:
520: IF p_reference_line_id IS NOT NULL THEN
521: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);

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

517: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
518: END IF;
519:
520: IF p_reference_line_id IS NOT NULL THEN
521: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
522: END IF;
523:
524: l_ignore := DBMS_SQL.Execute(l_CursorID);
525: --}

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

520: IF p_reference_line_id IS NOT NULL THEN
521: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
522: END IF;
523:
524: l_ignore := DBMS_SQL.Execute(l_CursorID);
525: --}
526: else
527: open Get_Unprocessed_Records_1_ship;
528: WSH_UTIL_CORE.println('Start The processing for Shipping Records :');

Line 586: l_CursorID := DBMS_SQL.Open_Cursor;

582: WSH_UTIL_CORE.println(l_sub_str);
583: i := i + 80;
584: END LOOP;
585:
586: l_CursorID := DBMS_SQL.Open_Cursor;
587: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
588: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
590:

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

583: i := i + 80;
584: END LOOP;
585:
586: l_CursorID := DBMS_SQL.Open_Cursor;
587: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
588: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
590:
591: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);

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

584: END LOOP;
585:
586: l_CursorID := DBMS_SQL.Open_Cursor;
587: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
588: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
590:
591: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
592: IF p_party_type IS NOT NULL THEN

Line 589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);

585:
586: l_CursorID := DBMS_SQL.Open_Cursor;
587: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
588: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
590:
591: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
592: IF p_party_type IS NOT NULL THEN
593: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);

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

587: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
588: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
590:
591: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
592: IF p_party_type IS NOT NULL THEN
593: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
594: END IF;
595:

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

589: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
590:
591: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
592: IF p_party_type IS NOT NULL THEN
593: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
594: END IF;
595:
596: IF p_party_id IS NOT NULL THEN
597: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);

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

593: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
594: END IF;
595:
596: IF p_party_id IS NOT NULL THEN
597: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
598: END IF;
599:
600: IF p_reference_id IS NOT NULL THEN
601: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);

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

597: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
598: END IF;
599:
600: IF p_reference_id IS NOT NULL THEN
601: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
602: END IF;
603:
604: IF p_reference_line_id IS NOT NULL THEN
605: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);

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

601: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
602: END IF;
603:
604: IF p_reference_line_id IS NOT NULL THEN
605: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
606: END IF;
607:
608: l_ignore := DBMS_SQL.Execute(l_CursorID);
609: else

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

604: IF p_reference_line_id IS NOT NULL THEN
605: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
606: END IF;
607:
608: l_ignore := DBMS_SQL.Execute(l_CursorID);
609: else
610: open Get_UNprocessed_Records_2_ship;
611: if p_override_type= null and p_reference_id is not null then
612: l_flag := 1;

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

617:
618: LOOP
619: If p_vendor_id is NULL THEN
620: if p_application_id=660 then
621: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
622: DBMS_SQL.Close_Cursor(l_cursorID);
623: EXIT;
624: ELSE
625: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);

Line 622: DBMS_SQL.Close_Cursor(l_cursorID);

618: LOOP
619: If p_vendor_id is NULL THEN
620: if p_application_id=660 then
621: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
622: DBMS_SQL.Close_Cursor(l_cursorID);
623: EXIT;
624: ELSE
625: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
626: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);

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

621: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
622: DBMS_SQL.Close_Cursor(l_cursorID);
623: EXIT;
624: ELSE
625: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
626: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
627: END IF;
628: else
629:

Line 626: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);

622: DBMS_SQL.Close_Cursor(l_cursorID);
623: EXIT;
624: ELSE
625: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
626: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
627: END IF;
628: else
629:
630: EXIT WHEN l_flag=1;

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

638:
639: end if;
640: Else
641: if p_application_id=660 then
642: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
643: DBMS_SQL.Close_Cursor(l_cursorID);
644: EXIT;
645: ELSE
646: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);

Line 643: DBMS_SQL.Close_Cursor(l_cursorID);

639: end if;
640: Else
641: if p_application_id=660 then
642: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
643: DBMS_SQL.Close_Cursor(l_cursorID);
644: EXIT;
645: ELSE
646: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
647: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);

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

642: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
643: DBMS_SQL.Close_Cursor(l_cursorID);
644: EXIT;
645: ELSE
646: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
647: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
648: END IF;
649: else
650: EXIT WHEN l_flag=1;

Line 647: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);

643: DBMS_SQL.Close_Cursor(l_cursorID);
644: EXIT;
645: ELSE
646: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
647: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
648: END IF;
649: else
650: EXIT WHEN l_flag=1;
651: Fetch Get_Unprocessed_Records_2_ship into

Line 701: IF DBMS_SQL.IS_Open(l_cursorID) THEN

697: END LOOP;
698:
699: If p_vendor_id is NULL THEN
700: if p_application_id=660 then
701: IF DBMS_SQL.IS_Open(l_cursorID) THEN
702: DBMS_SQL.Close_Cursor(l_cursorID);
703: END IF;
704: else
705: close Get_Unprocessed_Records_1_ship;

Line 702: DBMS_SQL.Close_Cursor(l_cursorID);

698:
699: If p_vendor_id is NULL THEN
700: if p_application_id=660 then
701: IF DBMS_SQL.IS_Open(l_cursorID) THEN
702: DBMS_SQL.Close_Cursor(l_cursorID);
703: END IF;
704: else
705: close Get_Unprocessed_Records_1_ship;
706: end if;

Line 709: IF DBMS_SQL.IS_Open(l_cursorID) THEN

705: close Get_Unprocessed_Records_1_ship;
706: end if;
707: ELSE
708: if p_application_id=660 then
709: IF DBMS_SQL.IS_Open(l_cursorID) THEN
710: DBMS_SQL.Close_Cursor(l_cursorID);
711: END IF;
712: else
713: close Get_Unprocessed_Records_2_ship;

Line 710: DBMS_SQL.Close_Cursor(l_cursorID);

706: end if;
707: ELSE
708: if p_application_id=660 then
709: IF DBMS_SQL.IS_Open(l_cursorID) THEN
710: DBMS_SQL.Close_Cursor(l_cursorID);
711: END IF;
712: else
713: close Get_Unprocessed_Records_2_ship;
714: end if;

Line 832: l_CursorID := DBMS_SQL.Open_Cursor;

828: WSH_UTIL_CORE.println(l_sub_str);
829: i := i + 80;
830: END LOOP;
831:
832: l_CursorID := DBMS_SQL.Open_Cursor;
833: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
834: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
835: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
836:

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

829: i := i + 80;
830: END LOOP;
831:
832: l_CursorID := DBMS_SQL.Open_Cursor;
833: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
834: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
835: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
836:
837: IF p_party_type IS NOT NULL THEN

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

830: END LOOP;
831:
832: l_CursorID := DBMS_SQL.Open_Cursor;
833: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
834: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
835: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
836:
837: IF p_party_type IS NOT NULL THEN
838: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);

Line 835: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);

831:
832: l_CursorID := DBMS_SQL.Open_Cursor;
833: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
834: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
835: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
836:
837: IF p_party_type IS NOT NULL THEN
838: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
839: END IF;

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

834: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
835: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
836:
837: IF p_party_type IS NOT NULL THEN
838: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
839: END IF;
840:
841: IF p_party_id IS NOT NULL THEN
842: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);

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

838: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
839: END IF;
840:
841: IF p_party_id IS NOT NULL THEN
842: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
843: END IF;
844:
845: IF p_vendor_id IS NOT NULL THEN
846: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);

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

842: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
843: END IF;
844:
845: IF p_vendor_id IS NOT NULL THEN
846: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
847: END IF;
848:
849: IF p_error_type IS NOT NULL THEN
850: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_type', p_error_type);

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

846: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
847: END IF;
848:
849: IF p_error_type IS NOT NULL THEN
850: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_type', p_error_type);
851: END IF;
852:
853: IF p_error_code IS NOT NULL THEN
854: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_code', p_error_code);

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

850: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_type', p_error_type);
851: END IF;
852:
853: IF p_error_code IS NOT NULL THEN
854: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_code', p_error_code);
855: END IF;
856:
857: IF p_reference_id IS NOT NULL THEN
858: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);

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

854: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_code', p_error_code);
855: END IF;
856:
857: IF p_reference_id IS NOT NULL THEN
858: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
859: END IF;
860:
861: IF p_reference_line_id IS NOT NULL THEN
862: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);

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

858: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
859: END IF;
860:
861: IF p_reference_line_id IS NOT NULL THEN
862: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
863: END IF;
864:
865: l_ignore := DBMS_SQL.Execute(l_CursorID);
866: -- }

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

861: IF p_reference_line_id IS NOT NULL THEN
862: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
863: END IF;
864:
865: l_ignore := DBMS_SQL.Execute(l_CursorID);
866: -- }
867: ELSE
868: open Get_Request_Control_ship;
869: END IF;

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

870:
871: LOOP
872: IF p_application_id = 660 THEN
873: --{
874: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
875: DBMS_SQL.Close_Cursor(l_cursorID);
876: EXIT;
877: ELSE
878: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);

Line 875: DBMS_SQL.Close_Cursor(l_cursorID);

871: LOOP
872: IF p_application_id = 660 THEN
873: --{
874: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
875: DBMS_SQL.Close_Cursor(l_cursorID);
876: EXIT;
877: ELSE
878: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
879: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);

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

874: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
875: DBMS_SQL.Close_Cursor(l_cursorID);
876: EXIT;
877: ELSE
878: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
879: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
880: END IF;
881: -- }
882: ELSE

Line 879: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);

875: DBMS_SQL.Close_Cursor(l_cursorID);
876: EXIT;
877: ELSE
878: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
879: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
880: END IF;
881: -- }
882: ELSE
883: fetch Get_Request_Control_ship into l_request_control_id,l_request_set_id;

Line 976: IF DBMS_SQL.IS_Open(l_cursorID) THEN

972: END;
973: END IF ;
974: END LOOP;
975: IF p_application_id=660 THEN
976: IF DBMS_SQL.IS_Open(l_cursorID) THEN
977: DBMS_SQL.Close_Cursor(l_cursorID);
978: END IF;
979: ELSE
980: close Get_Request_Control_ship;

Line 977: DBMS_SQL.Close_Cursor(l_cursorID);

973: END IF ;
974: END LOOP;
975: IF p_application_id=660 THEN
976: IF DBMS_SQL.IS_Open(l_cursorID) THEN
977: DBMS_SQL.Close_Cursor(l_cursorID);
978: END IF;
979: ELSE
980: close Get_Request_Control_ship;
981: END IF;