412: --x_rslt_par_tab := tab_genealogy();
413: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
414: IF l_debug_on IS NULL
415: THEN
416: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
417: END IF;
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.push(l_module_name);
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
415: THEN
416: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
417: END IF;
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.push(l_module_name);
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
421: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
422: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
423: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
416: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
417: END IF;
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.push(l_module_name);
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
421: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
422: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
423: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
424: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
417: END IF;
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.push(l_module_name);
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
421: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
422: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
423: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
424: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
425: END IF;
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.push(l_module_name);
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
421: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
422: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
423: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
424: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
425: END IF;
426:
419: WSH_DEBUG_SV.push(l_module_name);
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
421: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
422: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
423: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
424: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
425: END IF;
426:
427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
420: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
421: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
422: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
423: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
424: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
425: END IF;
426:
427: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
428: l_stmt_no := 0;
473: FROM mtl_parameters
474: WHERE organization_id = p_organization_id;
475: ----dbms_output.put_line(v_wms_enabled);
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.log(l_module_name, 'WMS_ENABLED_FLAG', v_wms_enabled);
478: END IF;
479: IF v_wms_enabled = 1 THEN
480: g_object_id := p_gen_object_id;
481: ----dbms_output.put_line(p_gen_object_id);
491: --
492: -- v_make_items := check_for_itemgenealogy(p_delivery_detail_id,p_organization_id);
493: v_make_items := 'Y';
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY EXIST OR NOT', v_make_items);
496: END IF;
497: IF v_make_items = 'N' THEN
498: ----dbms_output.put_line(p_delivery_detail_id);
499: OPEN c_sub_main(p_delivery_detail_id, p_organization_id);
2144: WHERE mtd.object_id = v_top(i).object_id
2145: AND mmt.transaction_id = mtd.transaction_id + 0
2146: AND wnd.delivery_id = mmt.trx_source_delivery_id + 0;
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', v_delivery_id);
2149: END IF;
2150: ----dbms_output.put_line(v_delivery_id);
2151: EXCEPTION
2152: WHEN no_data_found THEN
2151: EXCEPTION
2152: WHEN no_data_found THEN
2153: v_delivery_id := 0;
2154: IF l_debug_on THEN
2155: WSH_DEBUG_SV.logmsg(l_module_name,'No Data Found error has occured. Oracle error message is '|| substr(SQLERRM, 1, 200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2156: END IF;
2157: END;
2158: v_top(i).delivery_id := v_delivery_id;
2159: ELSE
2167: WHERE mtd.object_id = v_top(i).object_id
2168: AND mmt.transaction_id = mtd.transaction_id + 0
2169: AND wnd.delivery_id = mmt.trx_source_delivery_id + 0;
2170: IF l_debug_on THEN
2171: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID1', v_delivery_id);
2172: END IF;
2173: ----dbms_output.put_line(v_delivery_id1);
2174: EXCEPTION
2175: WHEN no_data_found THEN
2174: EXCEPTION
2175: WHEN no_data_found THEN
2176: v_delivery_id1 := 0;
2177: IF l_debug_on THEN
2178: WSH_DEBUG_SV.logmsg(l_module_name,'No Data Found error has occured. Oracle error message is '|| substr(SQLERRM, 1, 200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2179: END IF;
2180: END;
2181: IF v_delivery_id1 <> 0 THEN
2182: ----dbms_output.put_line(106);
2744:
2745: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2746: IF l_debug_on IS NULL
2747: THEN
2748: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2749: END IF;
2750: IF l_debug_on THEN
2751: WSH_DEBUG_SV.push(l_module_name);
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2747: THEN
2748: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2749: END IF;
2750: IF l_debug_on THEN
2751: WSH_DEBUG_SV.push(l_module_name);
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2753: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
2754: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
2755: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
2748: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2749: END IF;
2750: IF l_debug_on THEN
2751: WSH_DEBUG_SV.push(l_module_name);
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2753: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
2754: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
2755: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
2756: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
2749: END IF;
2750: IF l_debug_on THEN
2751: WSH_DEBUG_SV.push(l_module_name);
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2753: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
2754: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
2755: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
2756: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
2757: END IF;
2750: IF l_debug_on THEN
2751: WSH_DEBUG_SV.push(l_module_name);
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2753: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
2754: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
2755: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
2756: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
2757: END IF;
2758:
2751: WSH_DEBUG_SV.push(l_module_name);
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2753: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
2754: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
2755: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
2756: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
2757: END IF;
2758:
2759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2752: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY OBJECT ID', p_gen_object_id);
2753: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', p_delivery_id);
2754: WSH_DEBUG_SV.log(l_module_name,'ORGANIZATION ID', p_organization_id);
2755: WSH_DEBUG_SV.log(l_module_name,'FROM SERIAL NUMBER', p_frm_serial);
2756: WSH_DEBUG_SV.log(l_module_name,'TO SERIAL NUMBER', p_to_serial);
2757: END IF;
2758:
2759: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
2760: l_stmt_no := 0;
2805: FROM mtl_parameters
2806: WHERE organization_id = p_organization_id;
2807: ----dbms_output.put_line(v_wms_enabled);
2808: IF l_debug_on THEN
2809: WSH_DEBUG_SV.log(l_module_name, 'WMS_ENABLED_FLAG', v_wms_enabled);
2810: END IF;
2811: IF v_wms_enabled = 1 THEN
2812: g_object_id := p_gen_object_id;
2813: ----dbms_output.put_line(p_gen_object_id);
2823: --
2824: -- v_make_items := check_for_itemgenealogy(p_delivery_detail_id,p_organization_id);
2825: v_make_items := 'Y';
2826: IF l_debug_on THEN
2827: WSH_DEBUG_SV.log(l_module_name,'GENEALOGY EXIST OR NOT', v_make_items);
2828: END IF;
2829: IF v_make_items = 'N' THEN
2830: ----dbms_output.put_line(p_delivery_detail_id);
2831: OPEN c_sub_main(p_delivery_detail_id, p_organization_id);
4370: WHERE mtd.object_id = v_top(i).object_id
4371: AND mmt.transaction_id = mtd.transaction_id + 0
4372: AND wnd.delivery_id = mmt.trx_source_delivery_id + 0;
4373: IF l_debug_on THEN
4374: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID', v_delivery_id);
4375: END IF;
4376: ----dbms_output.put_line(v_delivery_id);
4377: EXCEPTION
4378: WHEN no_data_found THEN
4377: EXCEPTION
4378: WHEN no_data_found THEN
4379: v_delivery_id := 0;
4380: IF l_debug_on THEN
4381: WSH_DEBUG_SV.logmsg(l_module_name,'No Data Found error has occured. Oracle error message is '|| substr(SQLERRM, 1, 200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4382: END IF;
4383: END;
4384: v_top(i).delivery_id := v_delivery_id;
4385: ELSE
4393: WHERE mtd.object_id = v_top(i).object_id
4394: AND mmt.transaction_id = mtd.transaction_id + 0
4395: AND wnd.delivery_id = mmt.trx_source_delivery_id + 0;
4396: IF l_debug_on THEN
4397: WSH_DEBUG_SV.log(l_module_name,'DELIVERY ID1', v_delivery_id);
4398: END IF;
4399: ----dbms_output.put_line(v_delivery_id1);
4400: EXCEPTION
4401: WHEN no_data_found THEN
4400: EXCEPTION
4401: WHEN no_data_found THEN
4402: v_delivery_id1 := 0;
4403: IF l_debug_on THEN
4404: WSH_DEBUG_SV.logmsg(l_module_name,'No Data Found error has occured. Oracle error message is '|| substr(SQLERRM, 1, 200), WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4405: END IF;
4406: END;
4407: IF v_delivery_id1 <> 0 THEN
4408: ----dbms_output.put_line(106);