[Home] [Help]
29: p_from_uom_code IN VARCHAR2,
30: p_to_uom_code IN VARCHAR2) RETURN NUMBER
31: IS
32: l_conversion_rate NUMBER;
33: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
34:
35: BEGIN
36: IF (p_from_uom_code = p_to_uom_code) THEN
37: -- No conversion necessary
101: IS
102:
103:
104: -- cursor to fetch pick sequence rule info
105: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
106: CURSOR pick_seq_rule(v_psr_id NUMBER) IS
107: SELECT NAME,
108: NVL(ORDER_ID_PRIORITY, 999999999),
109: DECODE(ORDER_ID_SORT, 'A', 'ASC', 'D', 'DESC', ''),
260: -- So that rules engine can allocate destination locator of the
261: -- IDENTIFIED sub based on available capacity
262:
263: L_INDEX NUMBER;
264: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
265:
266: BEGIN
267: x_return_status := fnd_api.g_ret_sts_success;
268:
333: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
334:
335: l_msg_count NUMBER;
336: l_msg_data VARCHAR2(1000);
337: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
338:
339: -- for backordering
340: l_out_rows WSH_UTIL_CORE.ID_TAB_TYPE;
341: l_backorder_deliv_tab WSH_UTIL_CORE.ID_TAB_TYPE;
454: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
455: l_detail_info_tab WSH_INTERFACE_EXT_GRP.delivery_details_Attr_tbl_Type;
456: l_in_rec WSH_INTERFACE_EXT_GRP.detailInRecType;
457: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
458: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
459:
460: l_msg_count NUMBER;
461: l_msg_data VARCHAR2(1000);
462:
574: )
575: IS
576:
577: l_deliv_detail_id_tab num_tab;
578: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
579: l_detail_info_tab WSH_INTERFACE_EXT_GRP.delivery_details_Attr_tbl_Type;
580: l_in_rec WSH_INTERFACE_EXT_GRP.detailInRecType;
581: l_out_rec WSH_INTERFACE_EXT_GRP.detailOutRecType;
582:
688: PROCEDURE Backorder_wdd_for_repl( x_return_status OUT NOCOPY VARCHAR2
689: )
690: IS
691: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
692: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
693: l_out_rows WSH_UTIL_CORE.ID_TAB_TYPE;
694: BEGIN
695:
696: IF (l_debug = 1) THEN
757: l_att NUMBER;
758: l_atr NUMBER;
759: l_msg_count NUMBER;
760: l_msg_data VARCHAR2(1000);
761: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
762:
763: l_is_revision_ctrl BOOLEAN;
764: l_is_lot_ctrl BOOLEAN;
765: l_is_serial_ctrl BOOLEAN;
1479: x_msg_data OUT NOCOPY VARCHAR2)
1480: IS
1481:
1482: l_return_value BOOLEAN;
1483: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1484: l_consol_item_repl_tbl CONSOL_ITEM_REPL_TBL;
1485:
1486: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
1487: BEGIN
1704: x_msg_data OUT NOCOPY VARCHAR2)
1705: IS
1706: l_return_value BOOLEAN;
1707: l_consol_item_repl_tbl CONSOL_ITEM_REPL_TBL;
1708: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1709:
1710: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
1711: BEGIN
1712:
1916: -- Note: This procedure/concurrent program will be launced for a
1917: -- specific organization. All demand lines for same organizations should be together but here it
1918: -- will not matter (for dynamic repl,it will be ordered by org_id as well
1919:
1920: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1921:
1922: L_ORDER_ID_SORT VARCHAR2(4) := NULL;
1923: L_INVOICE_VALUE_SORT VARCHAR2(4) := NULL;
1924: L_SCHEDULE_DATE_SORT VARCHAR2(4) := NULL;
2663: x_return_status OUT nocopy VARCHAR2,
2664: x_msg_count OUT nocopy NUMBER,
2665: x_msg_data OUT nocopy VARCHAR2)
2666: IS
2667: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2668: l_repl_level NUMBER := p_repl_level;
2669: l_create_qty NUMBER := 0; -- 0 to signify it was not created
2670: l_source_sub_atr NUMBER := x_source_sub_atr;
2671: l_pending_mo_qty NUMBER;
2867: l_repl_to_sub_code_tb char_tab;
2868: l_repl_UOM_CODE_tb uom_tab;
2869: l_total_demand_qty_tb num_tab;
2870: l_consol_item_repl_tbl consol_item_repl_tbl;
2871: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2872:
2873: l_msg_count NUMBER;
2874: l_msg_data VARCHAR2(1000);
2875:
3018: x_msg_data OUT NOCOPY
3019: VARCHAR2)
3020: IS
3021:
3022: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3023: l_temp_cnt NUMBER; -- for debugging only
3024: l_repl_level NUMBER;
3025: l_return_status VARCHAR2(3) := fnd_api.g_ret_sts_success;
3026:
3311: l_rsv_temp_rec inv_reservation_global.mtl_reservation_rec_type;
3312: l_rsv_temp_rec_2 inv_reservation_global.mtl_reservation_rec_type;
3313: l_line_num NUMBER ;
3314:
3315: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
3316:
3317: l_index NUMBER;
3318: l_prev_org_id NUMBER;
3319: l_MAX_MINMAX_QUANTITY NUMBER;
4498:
4499: l_mtl_reservation_count NUMBER;
4500: l_error_code NUMBER;
4501: l_conversion_rate NUMBER;
4502: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
4503:
4504:
4505: l_repl_level NUMBER;
4506: l_repl_type NUMBER;
5046: x_msg_data OUT NOCOPY VARCHAR2)
5047: IS
5048:
5049:
5050: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
5051: l_demand_header_id NUMBER;
5052: l_demand_type_id NUMBER;
5053: l_sequence_id NUMBER;
5054: l_demand_line_id NUMBER;
5967:
5968:
5969: l_demand_expected_time DATE := null;
5970:
5971: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5972:
5973:
5974: CURSOR wdd_rec_cursor IS
5975: SELECT NVL(wts.planned_departure_date,
6065: GROUP BY wnd.organization_id, wnd.delivery_id, wts.stop_id;
6066:
6067:
6068: l_planned_departure_date date;
6069: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6070:
6071: BEGIN
6072:
6073: -- <
6115:
6116: FUNCTION GET_SORT_INVOICE_VALUE(P_SOURCE_HEADER_ID NUMBER, P_INVOICE_VALUE_SORT VARCHAR2)
6117: RETURN NUMBER
6118: IS
6119: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6120: BEGIN
6121:
6122:
6123: IF P_INVOICE_VALUE_SORT = 'ASC' THEN
6155: p_transaction_quantity IN NUMBER)
6156: RETURN NUMBER
6157:
6158: IS
6159: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6160: l_possible_quantity NUMBER;
6161: l_sec_possible_quantity NUMBER;
6162:
6163: BEGIN
6308: AND MISI.ORGANIZATION_ID = MSIB.ORGANIZATION_ID
6309: ORDER BY CONVERSION_RATE DESC, MSI.PICKING_ORDER) X
6310: WHERE ROWNUM = 1;
6311:
6312: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
6313:
6314:
6315: BEGIN
6316:
6403: L_INVOICE_VALUE_SORT VARCHAR2(4) := NULL;
6404: L_SCHEDULE_DATE_SORT VARCHAR2(4) := NULL;
6405: L_TRIP_STOP_DATE_SORT VARCHAR2(4) := NULL;
6406: L_SHIPMENT_PRI_SORT VARCHAR2(4) := NULL;
6407: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6408:
6409: CURSOR c_dynamic_repl_demand IS
6410: SELECT wdd.inventory_item_id as item_id,
6411: inv_salesorder.get_salesorder_for_oeheader(wdd.source_header_id) AS header_id,
7084: IS
7085:
7086:
7087:
7088: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7089:
7090: L_LOC_ID NUMBER;
7091:
7092: l_prev_to_sub VARCHAR2(10);
7606: x_return_status OUT NOCOPY VARCHAR2
7607: )
7608:
7609: IS
7610: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7611: l_orig_pri_qty NUMBER;
7612:
7613: l_source_header_id NUMBER;
7614: l_source_line_id NUMBER;