482: WSH_UTIL_CORE.println(l_sub_str);
483: i := i + 80;
484: END LOOP;
485:
486: l_CursorID := DBMS_SQL.Open_Cursor;
487: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
488: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
489: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
490:
483: i := i + 80;
484: END LOOP;
485:
486: l_CursorID := DBMS_SQL.Open_Cursor;
487: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
488: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
489: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
490:
491: IF p_party_type IS NOT NULL THEN
484: END LOOP;
485:
486: l_CursorID := DBMS_SQL.Open_Cursor;
487: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
488: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
489: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
490:
491: IF p_party_type IS NOT NULL THEN
492: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
485:
486: l_CursorID := DBMS_SQL.Open_Cursor;
487: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
488: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
489: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
490:
491: IF p_party_type IS NOT NULL THEN
492: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
493: END IF;
488: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
489: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
490:
491: IF p_party_type IS NOT NULL THEN
492: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
493: END IF;
494:
495: IF p_party_id IS NOT NULL THEN
496: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
492: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
493: END IF;
494:
495: IF p_party_id IS NOT NULL THEN
496: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
497: END IF;
498:
499: IF p_reference_id IS NOT NULL THEN
500: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
496: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
497: END IF;
498:
499: IF p_reference_id IS NOT NULL THEN
500: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
501: END IF;
502:
503: IF p_reference_line_id IS NOT NULL THEN
504: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
500: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
501: END IF;
502:
503: IF p_reference_line_id IS NOT NULL THEN
504: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
505: END IF;
506:
507: l_ignore := DBMS_SQL.Execute(l_CursorID);
508: --}
503: IF p_reference_line_id IS NOT NULL THEN
504: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
505: END IF;
506:
507: l_ignore := DBMS_SQL.Execute(l_CursorID);
508: --}
509: else
510: open Get_Unprocessed_Records_1_ship;
511: WSH_UTIL_CORE.println('Start The processing for Shipping Records :');
565: WSH_UTIL_CORE.println(l_sub_str);
566: i := i + 80;
567: END LOOP;
568:
569: l_CursorID := DBMS_SQL.Open_Cursor;
570: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
571: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
572: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
573:
566: i := i + 80;
567: END LOOP;
568:
569: l_CursorID := DBMS_SQL.Open_Cursor;
570: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
571: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
572: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
573:
574: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
567: END LOOP;
568:
569: l_CursorID := DBMS_SQL.Open_Cursor;
570: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
571: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
572: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
573:
574: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
575: IF p_party_type IS NOT NULL THEN
568:
569: l_CursorID := DBMS_SQL.Open_Cursor;
570: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
571: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
572: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
573:
574: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
575: IF p_party_type IS NOT NULL THEN
576: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
570: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
571: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
572: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
573:
574: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
575: IF p_party_type IS NOT NULL THEN
576: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
577: END IF;
578:
572: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
573:
574: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
575: IF p_party_type IS NOT NULL THEN
576: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
577: END IF;
578:
579: IF p_party_id IS NOT NULL THEN
580: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
576: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
577: END IF;
578:
579: IF p_party_id IS NOT NULL THEN
580: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
581: END IF;
582:
583: IF p_reference_id IS NOT NULL THEN
584: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
580: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
581: END IF;
582:
583: IF p_reference_id IS NOT NULL THEN
584: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
585: END IF;
586:
587: IF p_reference_line_id IS NOT NULL THEN
588: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
584: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
585: END IF;
586:
587: IF p_reference_line_id IS NOT NULL THEN
588: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
589: END IF;
590:
591: l_ignore := DBMS_SQL.Execute(l_CursorID);
592: else
587: IF p_reference_line_id IS NOT NULL THEN
588: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
589: END IF;
590:
591: l_ignore := DBMS_SQL.Execute(l_CursorID);
592: else
593: open Get_UNprocessed_Records_2_ship;
594: if p_override_type= null and p_reference_id is not null then
595: l_flag := 1;
600:
601: LOOP
602: If p_vendor_id is NULL THEN
603: if p_application_id=660 then
604: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
605: DBMS_SQL.Close_Cursor(l_cursorID);
606: EXIT;
607: ELSE
608: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
601: LOOP
602: If p_vendor_id is NULL THEN
603: if p_application_id=660 then
604: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
605: DBMS_SQL.Close_Cursor(l_cursorID);
606: EXIT;
607: ELSE
608: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
609: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
604: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
605: DBMS_SQL.Close_Cursor(l_cursorID);
606: EXIT;
607: ELSE
608: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
609: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
610: END IF;
611: else
612:
605: DBMS_SQL.Close_Cursor(l_cursorID);
606: EXIT;
607: ELSE
608: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
609: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
610: END IF;
611: else
612:
613: EXIT WHEN l_flag=1;
621:
622: end if;
623: Else
624: if p_application_id=660 then
625: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
626: DBMS_SQL.Close_Cursor(l_cursorID);
627: EXIT;
628: ELSE
629: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
622: end if;
623: Else
624: if p_application_id=660 then
625: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
626: DBMS_SQL.Close_Cursor(l_cursorID);
627: EXIT;
628: ELSE
629: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
630: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
625: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
626: DBMS_SQL.Close_Cursor(l_cursorID);
627: EXIT;
628: ELSE
629: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
630: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
631: END IF;
632: else
633: EXIT WHEN l_flag=1;
626: DBMS_SQL.Close_Cursor(l_cursorID);
627: EXIT;
628: ELSE
629: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
630: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
631: END IF;
632: else
633: EXIT WHEN l_flag=1;
634: Fetch Get_Unprocessed_Records_2_ship into
680: END LOOP;
681:
682: If p_vendor_id is NULL THEN
683: if p_application_id=660 then
684: IF DBMS_SQL.IS_Open(l_cursorID) THEN
685: DBMS_SQL.Close_Cursor(l_cursorID);
686: END IF;
687: else
688: close Get_Unprocessed_Records_1_ship;
681:
682: If p_vendor_id is NULL THEN
683: if p_application_id=660 then
684: IF DBMS_SQL.IS_Open(l_cursorID) THEN
685: DBMS_SQL.Close_Cursor(l_cursorID);
686: END IF;
687: else
688: close Get_Unprocessed_Records_1_ship;
689: end if;
688: close Get_Unprocessed_Records_1_ship;
689: end if;
690: ELSE
691: if p_application_id=660 then
692: IF DBMS_SQL.IS_Open(l_cursorID) THEN
693: DBMS_SQL.Close_Cursor(l_cursorID);
694: END IF;
695: else
696: close Get_Unprocessed_Records_2_ship;
689: end if;
690: ELSE
691: if p_application_id=660 then
692: IF DBMS_SQL.IS_Open(l_cursorID) THEN
693: DBMS_SQL.Close_Cursor(l_cursorID);
694: END IF;
695: else
696: close Get_Unprocessed_Records_2_ship;
697: end if;
811: WSH_UTIL_CORE.println(l_sub_str);
812: i := i + 80;
813: END LOOP;
814:
815: l_CursorID := DBMS_SQL.Open_Cursor;
816: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
817: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
818: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
819:
812: i := i + 80;
813: END LOOP;
814:
815: l_CursorID := DBMS_SQL.Open_Cursor;
816: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
817: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
818: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
819:
820: IF p_party_type IS NOT NULL THEN
813: END LOOP;
814:
815: l_CursorID := DBMS_SQL.Open_Cursor;
816: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
817: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
818: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
819:
820: IF p_party_type IS NOT NULL THEN
821: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
814:
815: l_CursorID := DBMS_SQL.Open_Cursor;
816: DBMS_SQL.Parse(l_CursorID, l_sql_string, DBMS_SQL.v7 );
817: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
818: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
819:
820: IF p_party_type IS NOT NULL THEN
821: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
822: END IF;
817: DBMS_SQL.Define_Column(l_CursorID, 1, l_request_control_id);
818: DBMS_SQL.Define_Column(l_CursorID, 2, l_request_set_id);
819:
820: IF p_party_type IS NOT NULL THEN
821: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
822: END IF;
823:
824: IF p_party_id IS NOT NULL THEN
825: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
821: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_type', p_party_type);
822: END IF;
823:
824: IF p_party_id IS NOT NULL THEN
825: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
826: END IF;
827:
828: IF p_vendor_id IS NOT NULL THEN
829: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
825: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_party_id', p_party_id);
826: END IF;
827:
828: IF p_vendor_id IS NOT NULL THEN
829: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
830: END IF;
831:
832: IF p_error_type IS NOT NULL THEN
833: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_type', p_error_type);
829: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_vendor_id', p_vendor_id);
830: END IF;
831:
832: IF p_error_type IS NOT NULL THEN
833: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_type', p_error_type);
834: END IF;
835:
836: IF p_error_code IS NOT NULL THEN
837: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_code', p_error_code);
833: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_type', p_error_type);
834: END IF;
835:
836: IF p_error_code IS NOT NULL THEN
837: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_code', p_error_code);
838: END IF;
839:
840: IF p_reference_id IS NOT NULL THEN
841: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
837: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_error_code', p_error_code);
838: END IF;
839:
840: IF p_reference_id IS NOT NULL THEN
841: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
842: END IF;
843:
844: IF p_reference_line_id IS NOT NULL THEN
845: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
841: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_id', p_reference_id);
842: END IF;
843:
844: IF p_reference_line_id IS NOT NULL THEN
845: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
846: END IF;
847:
848: l_ignore := DBMS_SQL.Execute(l_CursorID);
849: -- }
844: IF p_reference_line_id IS NOT NULL THEN
845: DBMS_SQL.BIND_VARIABLE(l_CursorID, ':x_reference_line_id', p_reference_line_id);
846: END IF;
847:
848: l_ignore := DBMS_SQL.Execute(l_CursorID);
849: -- }
850: ELSE
851: open Get_Request_Control_ship;
852: END IF;
853:
854: LOOP
855: IF p_application_id = 660 THEN
856: --{
857: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
858: DBMS_SQL.Close_Cursor(l_cursorID);
859: EXIT;
860: ELSE
861: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
854: LOOP
855: IF p_application_id = 660 THEN
856: --{
857: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
858: DBMS_SQL.Close_Cursor(l_cursorID);
859: EXIT;
860: ELSE
861: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
862: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
857: IF DBMS_SQL.Fetch_Rows(l_cursorID) = 0 THEN
858: DBMS_SQL.Close_Cursor(l_cursorID);
859: EXIT;
860: ELSE
861: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
862: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
863: END IF;
864: -- }
865: ELSE
858: DBMS_SQL.Close_Cursor(l_cursorID);
859: EXIT;
860: ELSE
861: DBMS_SQL.Column_Value(l_CursorID, 1, l_request_control_id);
862: DBMS_SQL.Column_Value(l_CursorID, 2, l_request_set_id);
863: END IF;
864: -- }
865: ELSE
866: fetch Get_Request_Control_ship into l_request_control_id,l_request_set_id;
955: END;
956: END IF ;
957: END LOOP;
958: IF p_application_id=660 THEN
959: IF DBMS_SQL.IS_Open(l_cursorID) THEN
960: DBMS_SQL.Close_Cursor(l_cursorID);
961: END IF;
962: ELSE
963: close Get_Request_Control_ship;
956: END IF ;
957: END LOOP;
958: IF p_application_id=660 THEN
959: IF DBMS_SQL.IS_Open(l_cursorID) THEN
960: DBMS_SQL.Close_Cursor(l_cursorID);
961: END IF;
962: ELSE
963: close Get_Request_Control_ship;
964: END IF;