2788: -- Clear the table
2789: release_table.delete;
2790:
2791: -- Set flag to indicate that fetching is not completed for an organization
2792: x_done_flag := FND_API.G_FALSE;
2793:
2794: -- Set the mode for Init_Cursor
2795: -- If Single process, mode is Null, otherwise Worker
2796: IF WSH_PICK_LIST.G_PICK_REL_PARALLEL THEN
2893: IF v_CursorID IS NOT NULL THEN
2894: DBMS_SQL.Close_Cursor(v_CursorID);
2895: v_CursorID := NULL;
2896: END IF;
2897: x_done_flag := FND_API.G_TRUE;
2898: EXIT;
2899: ELSE
2900: --{
2901: IF l_debug_on THEN
2940: --}
2941:
2942: -- No more lines to process, then Exit ; otherwise check if worker record
2943: -- was locked and update worker record
2944: IF x_done_flag = FND_API.G_TRUE THEN
2945: -- Reinitialize the first line marker since we have
2946: -- fetched all rows
2947: first_line.source_header_id := -1;
2948:
3161: ELSE
3162: first_line := release_table(g_rel_current_line - 1);
3163: release_table.delete(g_rel_current_line - 1);
3164: g_rel_current_line := g_rel_current_line - 1;
3165: x_done_flag := FND_API.G_FALSE;
3166: --If exceed MAX_LINES and not broken ship set or model
3167: EXIT;
3168: END IF;
3169: --}