663: h_sql := 'SELECT DISTINCT M.MENU_NAME, M.USER_MENU_NAME, T.LINK_ID'||
664: ' FROM BSC_TAB_VIEW_LABELS_B T, FND_MENUS_VL@'||x_src_db_link||' M'||
665: ' WHERE T.LABEL_TYPE = 2 AND NVL(T.LINK_ID, -1) <> -1 AND T.LINK_ID = M.MENU_ID';
666:
667: h_cursor := DBMS_SQL.OPEN_CURSOR;
668: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
669: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_name, 30);
670: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_user_menu_name, 80);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
664: ' FROM BSC_TAB_VIEW_LABELS_B T, FND_MENUS_VL@'||x_src_db_link||' M'||
665: ' WHERE T.LABEL_TYPE = 2 AND NVL(T.LINK_ID, -1) <> -1 AND T.LINK_ID = M.MENU_ID';
666:
667: h_cursor := DBMS_SQL.OPEN_CURSOR;
668: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
669: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_name, 30);
670: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_user_menu_name, 80);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
672:
665: ' WHERE T.LABEL_TYPE = 2 AND NVL(T.LINK_ID, -1) <> -1 AND T.LINK_ID = M.MENU_ID';
666:
667: h_cursor := DBMS_SQL.OPEN_CURSOR;
668: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
669: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_name, 30);
670: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_user_menu_name, 80);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
672:
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
666:
667: h_cursor := DBMS_SQL.OPEN_CURSOR;
668: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
669: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_name, 30);
670: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_user_menu_name, 80);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
672:
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
674:
667: h_cursor := DBMS_SQL.OPEN_CURSOR;
668: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
669: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_name, 30);
670: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_user_menu_name, 80);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
672:
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
674:
675: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
669: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_name, 30);
670: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_user_menu_name, 80);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
672:
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
674:
675: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
676: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_name);
677: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_user_menu_name);
671: DBMS_SQL.DEFINE_COLUMN(h_cursor, 3, h_menu_id_src);
672:
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
674:
675: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
676: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_name);
677: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_user_menu_name);
678: DBMS_SQL.COLUMN_VALUE(h_cursor, 3, h_menu_id_src);
679:
672:
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
674:
675: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
676: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_name);
677: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_user_menu_name);
678: DBMS_SQL.COLUMN_VALUE(h_cursor, 3, h_menu_id_src);
679:
680: -- Get the menu id in the target
673: h_ret := DBMS_SQL.EXECUTE(h_cursor);
674:
675: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
676: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_name);
677: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_user_menu_name);
678: DBMS_SQL.COLUMN_VALUE(h_cursor, 3, h_menu_id_src);
679:
680: -- Get the menu id in the target
681: OPEN c_menu_id;
674:
675: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
676: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_name);
677: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_user_menu_name);
678: DBMS_SQL.COLUMN_VALUE(h_cursor, 3, h_menu_id_src);
679:
680: -- Get the menu id in the target
681: OPEN c_menu_id;
682: FETCH c_menu_id INTO h_menu_id;
713: ' WHERE menu_name =:1';
714: /* ' WHERE menu_name = '''||h_menu_name||'''';*/
715:
716:
717: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
718: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
719: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_menu_type, 30);
720: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_description, 240);
721: DBMS_SQL.BIND_VARIABLE(h_cursor1,':1',h_menu_name);
714: /* ' WHERE menu_name = '''||h_menu_name||'''';*/
715:
716:
717: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
718: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
719: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_menu_type, 30);
720: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_description, 240);
721: DBMS_SQL.BIND_VARIABLE(h_cursor1,':1',h_menu_name);
722: --DBMS_OUTPUT.PUT_LINE('DYNAMIC SQL --------------> '|| h_cursor1);
715:
716:
717: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
718: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
719: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_menu_type, 30);
720: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_description, 240);
721: DBMS_SQL.BIND_VARIABLE(h_cursor1,':1',h_menu_name);
722: --DBMS_OUTPUT.PUT_LINE('DYNAMIC SQL --------------> '|| h_cursor1);
723: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
716:
717: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
718: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
719: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_menu_type, 30);
720: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_description, 240);
721: DBMS_SQL.BIND_VARIABLE(h_cursor1,':1',h_menu_name);
722: --DBMS_OUTPUT.PUT_LINE('DYNAMIC SQL --------------> '|| h_cursor1);
723: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
724:
717: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
718: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
719: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_menu_type, 30);
720: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_description, 240);
721: DBMS_SQL.BIND_VARIABLE(h_cursor1,':1',h_menu_name);
722: --DBMS_OUTPUT.PUT_LINE('DYNAMIC SQL --------------> '|| h_cursor1);
723: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
724:
725: -- We know that the menu exists in the source
719: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_menu_type, 30);
720: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_description, 240);
721: DBMS_SQL.BIND_VARIABLE(h_cursor1,':1',h_menu_name);
722: --DBMS_OUTPUT.PUT_LINE('DYNAMIC SQL --------------> '|| h_cursor1);
723: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
724:
725: -- We know that the menu exists in the source
726: IF DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 THEN
727: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_menu_type);
722: --DBMS_OUTPUT.PUT_LINE('DYNAMIC SQL --------------> '|| h_cursor1);
723: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
724:
725: -- We know that the menu exists in the source
726: IF DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 THEN
727: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_menu_type);
728: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_description);
729: END IF;
730: DBMS_SQL.CLOSE_CURSOR(h_cursor1);
723: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
724:
725: -- We know that the menu exists in the source
726: IF DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 THEN
727: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_menu_type);
728: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_description);
729: END IF;
730: DBMS_SQL.CLOSE_CURSOR(h_cursor1);
731:
724:
725: -- We know that the menu exists in the source
726: IF DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 THEN
727: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_menu_type);
728: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_description);
729: END IF;
730: DBMS_SQL.CLOSE_CURSOR(h_cursor1);
731:
732: -- call the api to create the menu
726: IF DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 THEN
727: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_menu_type);
728: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_description);
729: END IF;
730: DBMS_SQL.CLOSE_CURSOR(h_cursor1);
731:
732: -- call the api to create the menu
733: FND_MENUS_PKG.INSERT_ROW(
734: X_ROWID => h_row_id,
761: ' SELECT TF.FUNCTION_NAME FROM FND_MENU_ENTRIES TE, FND_FORM_FUNCTIONS TF'||
762: ' WHERE TE.MENU_ID = :2 AND TE.FUNCTION_ID = TF.FUNCTION_ID AND TF.APPLICATION_ID = 271)';
763: /*' WHERE TE.MENU_ID = '||h_menu_id||' AND TE.FUNCTION_ID = TF.FUNCTION_ID AND TF.APPLICATION_ID = 271)';*/
764:
765: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
766: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
762: ' WHERE TE.MENU_ID = :2 AND TE.FUNCTION_ID = TF.FUNCTION_ID AND TF.APPLICATION_ID = 271)';
763: /*' WHERE TE.MENU_ID = '||h_menu_id||' AND TE.FUNCTION_ID = TF.FUNCTION_ID AND TF.APPLICATION_ID = 271)';*/
764:
765: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
766: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
763: /*' WHERE TE.MENU_ID = '||h_menu_id||' AND TE.FUNCTION_ID = TF.FUNCTION_ID AND TF.APPLICATION_ID = 271)';*/
764:
765: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
766: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
764:
765: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
766: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
765: h_cursor1 := DBMS_SQL.OPEN_CURSOR;
766: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
766: DBMS_SQL.PARSE(h_cursor1, h_sql, DBMS_SQL.NATIVE);
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
767: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 1, h_function_name, 480);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
775: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_function_name);
768: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 2, h_user_function_name, 80);
769: DBMS_SQL.DEFINE_COLUMN(h_cursor1, 3, h_function_id_src);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
775: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_function_name);
776: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_user_function_name);
770: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':1', h_menu_id_src);
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
775: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_function_name);
776: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_user_function_name);
777: DBMS_SQL.COLUMN_VALUE(h_cursor1, 3, h_function_id_src);
778:
771: DBMS_SQL.BIND_VARIABLE(h_cursor1, ':2', h_menu_id);
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
775: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_function_name);
776: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_user_function_name);
777: DBMS_SQL.COLUMN_VALUE(h_cursor1, 3, h_function_id_src);
778:
779: -- Check if the function exists
772: h_ret1 := DBMS_SQL.EXECUTE(h_cursor1);
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
775: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_function_name);
776: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_user_function_name);
777: DBMS_SQL.COLUMN_VALUE(h_cursor1, 3, h_function_id_src);
778:
779: -- Check if the function exists
780: OPEN c_function_id;
773:
774: WHILE DBMS_SQL.FETCH_ROWS(h_cursor1) > 0 LOOP
775: DBMS_SQL.COLUMN_VALUE(h_cursor1, 1, h_function_name);
776: DBMS_SQL.COLUMN_VALUE(h_cursor1, 2, h_user_function_name);
777: DBMS_SQL.COLUMN_VALUE(h_cursor1, 3, h_function_id_src);
778:
779: -- Check if the function exists
780: OPEN c_function_id;
781: FETCH c_function_id INTO h_function_id;
823: ' FROM fnd_form_functions_vl@'||x_src_db_link||
824: ' WHERE function_name = :1';
825: /*' WHERE function_name = '''||h_function_name||'''';*/
826:
827: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
824: ' WHERE function_name = :1';
825: /*' WHERE function_name = '''||h_function_name||'''';*/
826:
827: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
825: /*' WHERE function_name = '''||h_function_name||'''';*/
826:
827: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
826:
827: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
827: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
828: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
829: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_web_host_name, 80);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
830: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_web_agent_name, 80);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
831: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_web_html_call, 240);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
832: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_web_encrypt_parameters, 1);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
833: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 5, h_web_secured, 1);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
834: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 6, h_web_icon, 30);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
835: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 7, h_object_id);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
836: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 8, h_region_application_id);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
837: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 9, h_region_code, 30);
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
845:
838: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 10, h_application_id);
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
845:
846: -- We know that the menu exists in the source
839: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 11, h_form_id);
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
845:
846: -- We know that the menu exists in the source
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
840: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 12, h_parameters, 2000);
841: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 13, h_type, 30);
842: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 14, h_description, 240);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
845:
846: -- We know that the menu exists in the source
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
843: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_function_name);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
845:
846: -- We know that the menu exists in the source
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
844: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
845:
846: -- We know that the menu exists in the source
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
845:
846: -- We know that the menu exists in the source
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
846: -- We know that the menu exists in the source
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
847: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
848: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_web_host_name);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
849: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_web_agent_name);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
850: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_web_html_call);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
851: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_web_encrypt_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
852: DBMS_SQL.COLUMN_VALUE(h_cursor2, 5, h_web_secured);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
853: DBMS_SQL.COLUMN_VALUE(h_cursor2, 6, h_web_icon);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
861: DBMS_SQL.COLUMN_VALUE(h_cursor2, 14, h_description);
854: DBMS_SQL.COLUMN_VALUE(h_cursor2, 7, h_object_id);
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
861: DBMS_SQL.COLUMN_VALUE(h_cursor2, 14, h_description);
862: END IF;
855: DBMS_SQL.COLUMN_VALUE(h_cursor2, 8, h_region_application_id);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
861: DBMS_SQL.COLUMN_VALUE(h_cursor2, 14, h_description);
862: END IF;
863: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
856: DBMS_SQL.COLUMN_VALUE(h_cursor2, 9, h_region_code);
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
861: DBMS_SQL.COLUMN_VALUE(h_cursor2, 14, h_description);
862: END IF;
863: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
864:
857: DBMS_SQL.COLUMN_VALUE(h_cursor2, 10, h_application_id);
858: DBMS_SQL.COLUMN_VALUE(h_cursor2, 11, h_form_id);
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
861: DBMS_SQL.COLUMN_VALUE(h_cursor2, 14, h_description);
862: END IF;
863: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
864:
865: -- call the api to create the function
859: DBMS_SQL.COLUMN_VALUE(h_cursor2, 12, h_parameters);
860: DBMS_SQL.COLUMN_VALUE(h_cursor2, 13, h_type);
861: DBMS_SQL.COLUMN_VALUE(h_cursor2, 14, h_description);
862: END IF;
863: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
864:
865: -- call the api to create the function
866: FND_FORM_FUNCTIONS_PKG.INSERT_ROW(
867: X_ROWID => h_row_id,
909: ' WHERE menu_id = :1 AND function_id = :2';
910: /*' WHERE menu_id = '||h_menu_id_src||' AND function_id = '||h_function_id_src;*/
911:
912:
913: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
914: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
910: /*' WHERE menu_id = '||h_menu_id_src||' AND function_id = '||h_function_id_src;*/
911:
912:
913: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
914: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
911:
912:
913: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
914: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
912:
913: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
914: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
913: h_cursor2 := DBMS_SQL.OPEN_CURSOR;
914: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
914: DBMS_SQL.PARSE(h_cursor2, h_sql, DBMS_SQL.NATIVE);
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
922:
915: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 1, h_sub_menu_id);
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
922:
923: -- We know that the menu entry exists in the source
916: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 2, h_grant_flag, 1);
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
922:
923: -- We know that the menu entry exists in the source
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
917: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 3, h_prompt, 60);
918: DBMS_SQL.DEFINE_COLUMN(h_cursor2, 4, h_description, 240);
919: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':1', h_menu_id_src);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
922:
923: -- We know that the menu entry exists in the source
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
925: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_sub_menu_id);
920: DBMS_SQL.BIND_VARIABLE(h_cursor2, ':2', h_function_id_src);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
922:
923: -- We know that the menu entry exists in the source
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
925: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_sub_menu_id);
926: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_grant_flag);
927: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_prompt);
928: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_description);
921: h_ret2 := DBMS_SQL.EXECUTE(h_cursor2);
922:
923: -- We know that the menu entry exists in the source
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
925: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_sub_menu_id);
926: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_grant_flag);
927: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_prompt);
928: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_description);
929: END IF;
922:
923: -- We know that the menu entry exists in the source
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
925: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_sub_menu_id);
926: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_grant_flag);
927: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_prompt);
928: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_description);
929: END IF;
930: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
923: -- We know that the menu entry exists in the source
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
925: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_sub_menu_id);
926: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_grant_flag);
927: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_prompt);
928: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_description);
929: END IF;
930: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
931:
924: IF DBMS_SQL.FETCH_ROWS(h_cursor2) > 0 THEN
925: DBMS_SQL.COLUMN_VALUE(h_cursor2, 1, h_sub_menu_id);
926: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_grant_flag);
927: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_prompt);
928: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_description);
929: END IF;
930: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
931:
932: -- Create the menu entry
926: DBMS_SQL.COLUMN_VALUE(h_cursor2, 2, h_grant_flag);
927: DBMS_SQL.COLUMN_VALUE(h_cursor2, 3, h_prompt);
928: DBMS_SQL.COLUMN_VALUE(h_cursor2, 4, h_description);
929: END IF;
930: DBMS_SQL.CLOSE_CURSOR(h_cursor2);
931:
932: -- Create the menu entry
933: FND_MENU_ENTRIES_PKG.INSERT_ROW (
934: X_ROWID => h_row_id,
945: X_LAST_UPDATED_BY => h_user_id,
946: X_LAST_UPDATE_LOGIN => 0
947: );
948: END LOOP;
949: DBMS_SQL.CLOSE_CURSOR(h_cursor1);
950:
951: END IF;
952: END IF;
953:
951: END IF;
952: END IF;
953:
954: END LOOP;
955: DBMS_SQL.CLOSE_CURSOR(h_cursor);
956:
957:
958: -- Now that all the menus have been migrated we can
959: -- update the link_id in BSC_TAB_VIEW_LABLES_B with the menu_id in the target
1031: ' FROM FND_RESPONSIBILITY_VL@'||x_src_db_link||
1032: /*' WHERE RESPONSIBILITY_ID = '||x_src_resp;*/
1033: ' WHERE RESPONSIBILITY_ID = :1';
1034:
1035: h_cursor := DBMS_SQL.OPEN_CURSOR;
1036: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1037: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_top_menu_id_src);
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1032: /*' WHERE RESPONSIBILITY_ID = '||x_src_resp;*/
1033: ' WHERE RESPONSIBILITY_ID = :1';
1034:
1035: h_cursor := DBMS_SQL.OPEN_CURSOR;
1036: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1037: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_top_menu_id_src);
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1040:
1033: ' WHERE RESPONSIBILITY_ID = :1';
1034:
1035: h_cursor := DBMS_SQL.OPEN_CURSOR;
1036: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1037: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_top_menu_id_src);
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1040:
1041: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1034:
1035: h_cursor := DBMS_SQL.OPEN_CURSOR;
1036: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1037: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_top_menu_id_src);
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1040:
1041: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1042: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_top_menu_id_src);
1035: h_cursor := DBMS_SQL.OPEN_CURSOR;
1036: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1037: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_top_menu_id_src);
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1040:
1041: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1042: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_top_menu_id_src);
1043: ELSE
1037: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_top_menu_id_src);
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1040:
1041: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1042: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_top_menu_id_src);
1043: ELSE
1044: -- The source responsibility does not have a top menu
1045: RAISE e_no_migrate;
1038: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', x_src_resp);
1039: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1040:
1041: IF DBMS_SQL.FETCH_ROWS(h_cursor) > 0 THEN
1042: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_top_menu_id_src);
1043: ELSE
1044: -- The source responsibility does not have a top menu
1045: RAISE e_no_migrate;
1046: END IF;
1043: ELSE
1044: -- The source responsibility does not have a top menu
1045: RAISE e_no_migrate;
1046: END IF;
1047: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1048:
1049:
1050: -- Get the top menu id of the target responsibiity
1051: OPEN c_top_menu_id;
1087: /* ' WHERE MENU_ID = '||h_top_menu_id_src||' AND SUB_MENU_ID IS NOT NULL)';*/
1088:
1089:
1090:
1091: h_cursor := DBMS_SQL.OPEN_CURSOR;
1092: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1088:
1089:
1090:
1091: h_cursor := DBMS_SQL.OPEN_CURSOR;
1092: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1089:
1090:
1091: h_cursor := DBMS_SQL.OPEN_CURSOR;
1092: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1090:
1091: h_cursor := DBMS_SQL.OPEN_CURSOR;
1092: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1091: h_cursor := DBMS_SQL.OPEN_CURSOR;
1092: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1099: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
1092: DBMS_SQL.PARSE(h_cursor, h_sql, DBMS_SQL.NATIVE);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1099: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
1100: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_id);
1093: DBMS_SQL.DEFINE_COLUMN(h_cursor, 1, h_menu_id);
1094: DBMS_SQL.DEFINE_COLUMN(h_cursor, 2, h_description, 240);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1099: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
1100: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_id);
1101: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_description);
1095: DBMS_SQL.BIND_VARIABLE(h_cursor, ':1', h_top_menu_id);
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1099: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
1100: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_id);
1101: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_description);
1102:
1103: -- Get the maximum entry sequence
1096: DBMS_SQL.BIND_VARIABLE(h_cursor, ':2', h_top_menu_id_src);
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1099: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
1100: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_id);
1101: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_description);
1102:
1103: -- Get the maximum entry sequence
1104: SELECT nvl(max(entry_sequence)+1, 1) INTO h_entry_sequence
1097: h_ret := DBMS_SQL.EXECUTE(h_cursor);
1098:
1099: WHILE DBMS_SQL.FETCH_ROWS(h_cursor) > 0 LOOP
1100: DBMS_SQL.COLUMN_VALUE(h_cursor, 1, h_menu_id);
1101: DBMS_SQL.COLUMN_VALUE(h_cursor, 2, h_description);
1102:
1103: -- Get the maximum entry sequence
1104: SELECT nvl(max(entry_sequence)+1, 1) INTO h_entry_sequence
1105: FROM fnd_menu_entries
1121: X_LAST_UPDATED_BY => h_user_id,
1122: X_LAST_UPDATE_LOGIN => 0
1123: );
1124: END LOOP;
1125: DBMS_SQL.CLOSE_CURSOR(h_cursor);
1126:
1127: RETURN TRUE;
1128:
1129: EXCEPTION