[Home] [Help]
32: p_from_uom_code IN VARCHAR2,
33: p_to_uom_code IN VARCHAR2) RETURN NUMBER
34: IS
35: l_conversion_rate NUMBER;
36: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
37:
38: BEGIN
39: IF (p_from_uom_code = p_to_uom_code) THEN
40: -- No conversion necessary
104: IS
105:
106:
107: -- cursor to fetch pick sequence rule info
108: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
109: CURSOR pick_seq_rule(v_psr_id NUMBER) IS
110: SELECT NAME,
111: NVL(ORDER_ID_PRIORITY, 999999999),
112: DECODE(ORDER_ID_SORT, 'A', 'ASC', 'D', 'DESC', ''),
263: -- So that rules engine can allocate destination locator of the
264: -- IDENTIFIED sub based on available capacity
265:
266: L_INDEX NUMBER;
267: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
268:
269: BEGIN
270: x_return_status := fnd_api.g_ret_sts_success;
271:
336: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
337:
338: l_msg_count NUMBER;
339: l_msg_data VARCHAR2(1000);
340: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
341:
342: -- for backordering
343: l_out_rows WSH_UTIL_CORE.ID_TAB_TYPE;
344: l_backorder_deliv_tab WSH_UTIL_CORE.ID_TAB_TYPE;
453: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
454: l_detail_info_tab WSH_INTERFACE_EXT_GRP.delivery_details_Attr_tbl_Type;
455: l_in_rec WSH_INTERFACE_EXT_GRP.detailInRecType;
456: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
457: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
458:
459: l_msg_count NUMBER;
460: l_msg_data VARCHAR2(1000);
461:
571: )
572: IS
573:
574: l_deliv_detail_id_tab num_tab;
575: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
576: l_detail_info_tab WSH_INTERFACE_EXT_GRP.delivery_details_Attr_tbl_Type;
577: l_in_rec WSH_INTERFACE_EXT_GRP.detailInRecType;
578: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
579:
683: PROCEDURE Backorder_wdd_for_repl( x_return_status OUT NOCOPY VARCHAR2
684: )
685: IS
686: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
687: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
688: l_out_rows WSH_UTIL_CORE.ID_TAB_TYPE;
689: BEGIN
690:
691: IF (l_debug = 1) THEN
752: l_att NUMBER;
753: l_atr NUMBER;
754: l_msg_count NUMBER;
755: l_msg_data VARCHAR2(1000);
756: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
757:
758: l_is_revision_ctrl BOOLEAN;
759: l_is_lot_ctrl BOOLEAN;
760: l_is_serial_ctrl BOOLEAN;
1416: x_msg_data OUT NOCOPY VARCHAR2)
1417: IS
1418:
1419: l_return_value BOOLEAN;
1420: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1421: l_consol_item_repl_tbl CONSOL_ITEM_REPL_TBL;
1422:
1423: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
1424: BEGIN
1642: x_msg_data OUT NOCOPY VARCHAR2)
1643: IS
1644: l_return_value BOOLEAN;
1645: l_consol_item_repl_tbl CONSOL_ITEM_REPL_TBL;
1646: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1647:
1648: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
1649: BEGIN
1650:
1855: -- Note: This procedure/concurrent program will be launced for a
1856: -- specific organization. All demand lines for same organizations should be together but here it
1857: -- will not matter (for dynamic repl,it will be ordered by org_id as well
1858:
1859: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1860:
1861: L_ORDER_ID_SORT VARCHAR2(4) := NULL;
1862: L_INVOICE_VALUE_SORT VARCHAR2(4) := NULL;
1863: L_SCHEDULE_DATE_SORT VARCHAR2(4) := NULL;
2595: x_return_status OUT nocopy VARCHAR2,
2596: x_msg_count OUT nocopy NUMBER,
2597: x_msg_data OUT nocopy VARCHAR2)
2598: IS
2599: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2600: l_repl_level NUMBER := p_repl_level;
2601: l_create_qty NUMBER := 0; -- 0 to signify it was not created
2602: l_source_sub_atr NUMBER := x_source_sub_atr;
2603: l_pending_mo_qty NUMBER;
2781: l_repl_to_sub_code_tb char_tab;
2782: l_repl_UOM_CODE_tb uom_tab;
2783: l_total_demand_qty_tb num_tab;
2784: l_consol_item_repl_tbl consol_item_repl_tbl;
2785: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2786:
2787: l_msg_count NUMBER;
2788: l_msg_data VARCHAR2(1000);
2789:
2930: x_msg_data OUT NOCOPY
2931: VARCHAR2)
2932: IS
2933:
2934: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2935: l_temp_cnt NUMBER; -- for debugging only
2936: l_repl_level NUMBER;
2937: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
2938:
3223: l_rsv_temp_rec inv_reservation_global.mtl_reservation_rec_type;
3224: l_rsv_temp_rec_2 inv_reservation_global.mtl_reservation_rec_type;
3225: l_line_num NUMBER ;
3226:
3227: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3228:
3229: l_index NUMBER;
3230: l_prev_org_id NUMBER;
3231: l_MAX_MINMAX_QUANTITY NUMBER;
4357:
4358: l_mtl_reservation_count NUMBER;
4359: l_error_code NUMBER;
4360: l_conversion_rate NUMBER;
4361: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4362:
4363:
4364: l_repl_level NUMBER;
4365: l_repl_type NUMBER;
4880: x_msg_data OUT NOCOPY VARCHAR2)
4881: IS
4882:
4883:
4884: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
4885: l_demand_header_id NUMBER;
4886: l_demand_type_id NUMBER;
4887: l_sequence_id NUMBER;
4888: l_demand_line_id NUMBER;
5797:
5798:
5799: l_demand_expected_time DATE := null;
5800:
5801: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5802:
5803:
5804: CURSOR wdd_rec_cursor IS
5805: SELECT NVL(wts.planned_departure_date,
5895: GROUP BY wnd.organization_id, wnd.delivery_id, wts.stop_id;
5896:
5897:
5898: l_planned_departure_date date;
5899: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5900:
5901: BEGIN
5902:
5903: -- <
5945:
5946: FUNCTION GET_SORT_INVOICE_VALUE(P_SOURCE_HEADER_ID NUMBER, P_INVOICE_VALUE_SORT VARCHAR2)
5947: RETURN NUMBER
5948: IS
5949: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5950: BEGIN
5951:
5952:
5953: IF P_INVOICE_VALUE_SORT = 'ASC' THEN
5985: p_transaction_quantity IN NUMBER)
5986: RETURN NUMBER
5987:
5988: IS
5989: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5990: l_possible_quantity NUMBER;
5991: l_sec_possible_quantity NUMBER;
5992:
5993: BEGIN
6137: AND MISI.ORGANIZATION_ID = MSIB.ORGANIZATION_ID
6138: ORDER BY CONVERSION_RATE DESC, MSI.PICKING_ORDER) X
6139: WHERE ROWNUM = 1;
6140:
6141: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6142:
6143:
6144: BEGIN
6145:
6232: L_INVOICE_VALUE_SORT VARCHAR2(4) := NULL;
6233: L_SCHEDULE_DATE_SORT VARCHAR2(4) := NULL;
6234: L_TRIP_STOP_DATE_SORT VARCHAR2(4) := NULL;
6235: L_SHIPMENT_PRI_SORT VARCHAR2(4) := NULL;
6236: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6237:
6238: CURSOR c_dynamic_repl_demand IS
6239: SELECT wdd.inventory_item_id as item_id,
6240: inv_salesorder.get_salesorder_for_oeheader(wdd.source_header_id) AS header_id,
6909: IS
6910:
6911:
6912:
6913: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6914:
6915: L_LOC_ID NUMBER;
6916:
6917: l_prev_to_sub VARCHAR2(10);
7431: x_return_status OUT NOCOPY VARCHAR2
7432: )
7433:
7434: IS
7435: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7436: l_orig_pri_qty NUMBER;
7437:
7438: l_source_header_id NUMBER;
7439: l_source_line_id NUMBER;