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