[Home] [Help]
428: l_sequence NUMBER;
429: BEGIN
430: IF (l_debug = 1)
431: THEN
432: inv_log_util.TRACE ('l_breadcrumb 10', 'INV_TXN_MANAGER_PUB', '9');
433: END IF;
434: l_sysdate := SYSDATE;
435: SELECT COUNT (parent_id)
436: INTO l_count
450: l_remaining_qty := l_split_qty - l_partial_total_qty;
451:
452: IF (l_debug = 1)
453: THEN
454: inv_log_util.TRACE ('l_remaining_qty '|| l_remaining_qty, 'INV_TXN_MANAGER_PUB', '9');
455: inv_log_util.TRACE ('l_partial_total_qty '|| l_partial_total_qty, 'INV_TXN_MANAGER_PUB', '9');
456: inv_log_util.TRACE ('l_split_qty '|| l_split_qty, 'INV_TXN_MANAGER_PUB', '9');
457: inv_log_util.TRACE ('p_current_index '|| p_current_index, 'INV_TXN_MANAGER_PUB', '9');
458: inv_log_util.TRACE ('l_count '|| l_count, 'INV_TXN_MANAGER_PUB', '9');
451:
452: IF (l_debug = 1)
453: THEN
454: inv_log_util.TRACE ('l_remaining_qty '|| l_remaining_qty, 'INV_TXN_MANAGER_PUB', '9');
455: inv_log_util.TRACE ('l_partial_total_qty '|| l_partial_total_qty, 'INV_TXN_MANAGER_PUB', '9');
456: inv_log_util.TRACE ('l_split_qty '|| l_split_qty, 'INV_TXN_MANAGER_PUB', '9');
457: inv_log_util.TRACE ('p_current_index '|| p_current_index, 'INV_TXN_MANAGER_PUB', '9');
458: inv_log_util.TRACE ('l_count '|| l_count, 'INV_TXN_MANAGER_PUB', '9');
459: END IF;
452: IF (l_debug = 1)
453: THEN
454: inv_log_util.TRACE ('l_remaining_qty '|| l_remaining_qty, 'INV_TXN_MANAGER_PUB', '9');
455: inv_log_util.TRACE ('l_partial_total_qty '|| l_partial_total_qty, 'INV_TXN_MANAGER_PUB', '9');
456: inv_log_util.TRACE ('l_split_qty '|| l_split_qty, 'INV_TXN_MANAGER_PUB', '9');
457: inv_log_util.TRACE ('p_current_index '|| p_current_index, 'INV_TXN_MANAGER_PUB', '9');
458: inv_log_util.TRACE ('l_count '|| l_count, 'INV_TXN_MANAGER_PUB', '9');
459: END IF;
460:
453: THEN
454: inv_log_util.TRACE ('l_remaining_qty '|| l_remaining_qty, 'INV_TXN_MANAGER_PUB', '9');
455: inv_log_util.TRACE ('l_partial_total_qty '|| l_partial_total_qty, 'INV_TXN_MANAGER_PUB', '9');
456: inv_log_util.TRACE ('l_split_qty '|| l_split_qty, 'INV_TXN_MANAGER_PUB', '9');
457: inv_log_util.TRACE ('p_current_index '|| p_current_index, 'INV_TXN_MANAGER_PUB', '9');
458: inv_log_util.TRACE ('l_count '|| l_count, 'INV_TXN_MANAGER_PUB', '9');
459: END IF;
460:
461: IF (p_current_index = l_count AND l_remaining_qty > 0)
454: inv_log_util.TRACE ('l_remaining_qty '|| l_remaining_qty, 'INV_TXN_MANAGER_PUB', '9');
455: inv_log_util.TRACE ('l_partial_total_qty '|| l_partial_total_qty, 'INV_TXN_MANAGER_PUB', '9');
456: inv_log_util.TRACE ('l_split_qty '|| l_split_qty, 'INV_TXN_MANAGER_PUB', '9');
457: inv_log_util.TRACE ('p_current_index '|| p_current_index, 'INV_TXN_MANAGER_PUB', '9');
458: inv_log_util.TRACE ('l_count '|| l_count, 'INV_TXN_MANAGER_PUB', '9');
459: END IF;
460:
461: IF (p_current_index = l_count AND l_remaining_qty > 0)
462: THEN
466:
467: --shuld execute only once
468: IF (l_debug = 1)
469: THEN
470: inv_log_util.TRACE ('l_breadcrumb 20', 'INV_TXN_MANAGER_PUB', '9');
471: END IF;
472:
473: FOR l_mti_csr IN mti_csr (p_parent_id)
474: LOOP
473: FOR l_mti_csr IN mti_csr (p_parent_id)
474: LOOP
475: IF (l_debug = 1)
476: THEN
477: inv_log_util.TRACE ('l_breadcrumb 30', 'INV_TXN_MANAGER_PUB', '9');
478: END IF;
479:
480: INSERT INTO mtl_transactions_interface
481: (transaction_header_id
586: );
587:
588: IF (l_debug = 1)
589: THEN
590: inv_log_util.TRACE ('l_breadcrumb 40', 'INV_TXN_MANAGER_PUB', '9');
591: END IF;
592:
593: INSERT INTO mtl_transaction_lots_interface
594: (transaction_interface_id --J-dev
803: );
804:
805: IF (l_debug = 1)
806: THEN
807: inv_log_util.TRACE ('l_breadcrumb 50', 'INV_TXN_MANAGER_PUB', '9');
808: END IF;
809:
810: /*loop through the serials that have been left out ....
811: try copying everything from the parent MSNIs*/
817: AND organization_id = l_mti_csr.organization_id;
818:
819: IF (l_debug = 1)
820: THEN
821: inv_log_util.TRACE ('Serial control code => ' || l_serial_code
822: , 'INV_TXN_MANAGER_PUB'
823: , '9'
824: );
825: inv_log_util.TRACE ('l_breadcrumb 60', 'INV_TXN_MANAGER_PUB', '9');
821: inv_log_util.TRACE ('Serial control code => ' || l_serial_code
822: , 'INV_TXN_MANAGER_PUB'
823: , '9'
824: );
825: inv_log_util.TRACE ('l_breadcrumb 60', 'INV_TXN_MANAGER_PUB', '9');
826: END IF;
827:
828: IF (l_serial_code IN (2, 5))
829: THEN
828: IF (l_serial_code IN (2, 5))
829: THEN
830: IF (l_debug = 1)
831: THEN
832: inv_log_util.TRACE ('l_breadcrumb 70', 'INV_TXN_MANAGER_PUB'
833: , '9');
834: END IF;
835:
836: FOR l_msni_rs_serials_csr IN msni_rs_serials_csr (p_parent_id)
836: FOR l_msni_rs_serials_csr IN msni_rs_serials_csr (p_parent_id)
837: LOOP
838: IF (l_debug = 1)
839: THEN
840: inv_log_util.TRACE ('l_breadcrumb 80'
841: , 'INV_TXN_MANAGER_PUB'
842: , '9'
843: );
844: END IF;
850: );
851:
852: IF (l_debug = 1)
853: THEN
854: inv_log_util.TRACE ('Serial diff => ' || l_serial_diff
855: , 'INV_TXN_MANAGER_PUB'
856: , '9'
857: );
858: END IF;
860: IF (l_serial_diff = -1)
861: THEN
862: IF (l_debug = 1)
863: THEN
864: inv_log_util.TRACE ('Error in get_serial_diff '
865: , 'INV_TXN_MANAGER_PUB'
866: , '9'
867: );
868: END IF;
877: FOR i IN 1 .. l_serial_diff
878: LOOP
879: IF (l_debug = 1)
880: THEN
881: inv_log_util.TRACE ('l_breadcrumb 90'
882: , 'INV_TXN_MANAGER_PUB'
883: , '9'
884: );
885: END IF;
891: , 1);
892:
893: IF (l_debug = 1)
894: THEN
895: inv_log_util.TRACE ('l_next_serial => ' || l_next_serial
896: , 'INV_TXN_MANAGER_PUB'
897: , '9'
898: );
899: END IF;
901: IF (l_old_serial = l_next_serial)
902: THEN
903: IF (l_debug = 1)
904: THEN
905: inv_log_util.TRACE ('Error in increment_serial_number'
906: , 'INV_TXN_MANAGER_PUB'
907: , '9'
908: );
909: END IF;
921: FOR l_msni_st_serials_csr IN msni_st_serials_csr (p_parent_id)
922: LOOP
923: IF (l_debug = 1)
924: THEN
925: inv_log_util.TRACE ('l_breadcrumb 100'
926: , 'INV_TXN_MANAGER_PUB'
927: , '9'
928: );
929: END IF;
935: );
936:
937: IF (l_debug = 1)
938: THEN
939: inv_log_util.TRACE ('Serial diff => ' || l_serial_diff
940: , 'INV_TXN_MANAGER_PUB'
941: , '9'
942: );
943: END IF;
945: IF (l_serial_diff = -1)
946: THEN
947: IF (l_debug = 1)
948: THEN
949: inv_log_util.TRACE ('Error in get_serial_diff '
950: , 'INV_TXN_MANAGER_PUB'
951: , '9'
952: );
953: END IF;
962: FOR i IN 1 .. l_serial_diff
963: LOOP
964: IF (l_debug = 1)
965: THEN
966: inv_log_util.TRACE ('l_breadcrumb 110'
967: , 'INV_TXN_MANAGER_PUB'
968: , '9'
969: );
970: inv_log_util.TRACE ('l_next_serial => '|| l_next_serial
966: inv_log_util.TRACE ('l_breadcrumb 110'
967: , 'INV_TXN_MANAGER_PUB'
968: , '9'
969: );
970: inv_log_util.TRACE ('l_next_serial => '|| l_next_serial
971: , 'INV_TXN_MANAGER_PUB'
972: , '9'
973: );
974: END IF;
982: WHEN NO_DATA_FOUND THEN
983: l_rem_serial_tbl (l_next_serial) := l_next_serial;
984: IF (l_debug = 1)
985: THEN
986: inv_log_util.TRACE ( 'Serial => '
987: || l_next_serial
988: || ' is not present'
989: , 'INV_TXN_MANAGER_PUB'
990: , '9'
999: IF (l_old_serial = l_next_serial)
1000: THEN
1001: IF (l_debug = 1)
1002: THEN
1003: inv_log_util.TRACE ('Error in increment_serial_number '
1004: , 'INV_TXN_MANAGER_PUB'
1005: , '9'
1006: );
1007: END IF;
1020: FROM DUAL;
1021:
1022: IF (l_debug = 1)
1023: THEN
1024: inv_log_util.TRACE ('l_breadcrumb 120'
1025: , 'INV_TXN_MANAGER_PUB'
1026: , '9'
1027: );
1028: END IF;
1037: IF (msni_csr%ROWCOUNT = 0)
1038: THEN
1039: IF (l_debug = 1)
1040: THEN
1041: inv_log_util.TRACE ('No data found in msni_csr '
1042: , 'INV_TXN_MANAGER_PUB'
1043: , '9'
1044: );
1045: END IF;
1048: END IF;
1049:
1050: IF (l_debug = 1)
1051: THEN
1052: inv_log_util.TRACE ('Inseritng into MSNI '
1053: , 'INV_TXN_MANAGER_PUB'
1054: , '9'
1055: );
1056: END IF;
1260: WHEN OTHERS
1261: THEN
1262: IF (l_debug = 1)
1263: THEN
1264: inv_log_util.TRACE
1265: ('Error while inserting in MSNI check_partial_split '
1266: , 'INV_TXN_MANAGER_PUB'
1267: , '9'
1268: );
1278: WHEN fnd_api.g_exc_error
1279: THEN
1280: IF (l_debug = 1)
1281: THEN
1282: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
1283: , 'INV_TXN_MANAGER_PUB'
1284: , '9'
1285: );
1286: inv_log_util.TRACE ('Error in check_partial_split : ' || l_error_exp
1282: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
1283: , 'INV_TXN_MANAGER_PUB'
1284: , '9'
1285: );
1286: inv_log_util.TRACE ('Error in check_partial_split : ' || l_error_exp
1287: , 'INV_TXN_MANAGER_PUB'
1288: , '9'
1289: );
1290: END IF;
1293: WHEN OTHERS
1294: THEN
1295: IF (l_debug = 1)
1296: THEN
1297: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
1298: , 'INV_TXN_MANAGER_PUB'
1299: , '9'
1300: );
1301: inv_log_util.TRACE ('Error in check_partial_split : ' || l_error_exp
1297: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
1298: , 'INV_TXN_MANAGER_PUB'
1299: , '9'
1300: );
1301: inv_log_util.TRACE ('Error in check_partial_split : ' || l_error_exp
1302: , 'INV_TXN_MANAGER_PUB'
1303: , '9'
1304: );
1305: END IF;
1432: WHEN OTHERS
1433: THEN
1434: IF (l_debug = 1)
1435: THEN
1436: inv_log_util.TRACE ('Error in validate_group : ' || l_error_exp
1437: , 'INV_TXN_MANAGER_PUB'
1438: , '1'
1439: );
1440: inv_log_util.TRACE ('Error:' || SUBSTR (SQLERRM, 1, 250)
1436: inv_log_util.TRACE ('Error in validate_group : ' || l_error_exp
1437: , 'INV_TXN_MANAGER_PUB'
1438: , '1'
1439: );
1440: inv_log_util.TRACE ('Error:' || SUBSTR (SQLERRM, 1, 250)
1441: , 'INV_TXN_MANAGER_PUB'
1442: , 1
1443: );
1444: END IF;
1627: IF (line_vldn_error_flag = 'Y')
1628: THEN
1629: IF (l_debug = 1)
1630: THEN
1631: inv_log_util.TRACE ('Error in Line Validatin'
1632: , 'INV_TXN_MANAGER_PUB'
1633: , 9
1634: );
1635: END IF;
1642: WHEN OTHERS
1643: THEN
1644: IF (l_debug = 1)
1645: THEN
1646: inv_log_util.TRACE ( 'Error in outer validate_lines'
1647: || SUBSTR (SQLERRM, 1, 240)
1648: , 'INV_TXN_MANAGER_PUB'
1649: , 1
1650: );
1688: );
1689:
1690: IF (l_debug = 1)
1691: THEN
1692: inv_log_util.TRACE ('Returned from inv_txn_manager_grp.validate_lines'
1693: , 'INV_TXN_MANAGER_PUB'
1694: , 9
1695: );
1696: END IF;
1699: IF (l_error_flag = 'Y')
1700: THEN
1701: IF (l_debug = 1)
1702: THEN
1703: inv_log_util.TRACE ('Error in Line Validatin'
1704: , 'INV_TXN_MANAGER_PUB'
1705: , 9
1706: );
1707: END IF;
1712: p_error_flag := 'Y';
1713:
1714: IF (l_debug = 1)
1715: THEN
1716: inv_log_util.TRACE ('Error in validate_line : ' || l_error_exp
1717: , 'INV_TXN_MANAGER_PUB'
1718: , '1'
1719: );
1720: inv_log_util.TRACE ('Error:' || SUBSTR (SQLERRM, 1, 250)
1716: inv_log_util.TRACE ('Error in validate_line : ' || l_error_exp
1717: , 'INV_TXN_MANAGER_PUB'
1718: , '1'
1719: );
1720: inv_log_util.TRACE ('Error:' || SUBSTR (SQLERRM, 1, 250)
1721: , 'INV_TXN_MANAGER_PUB'
1722: , 1
1723: );
1724: END IF;
1811: WHEN OTHERS
1812: THEN
1813: IF (l_debug = 1)
1814: THEN
1815: inv_log_util.TRACE ( 'Error in tmpinsert: sqlerrm : '
1816: || SUBSTR (SQLERRM, 1, 200)
1817: , 'INV_TXN_MANAGER_PUB'
1818: , '9'
1819: );
1864: WHEN OTHERS
1865: THEN
1866: IF (l_debug = 1)
1867: THEN
1868: inv_log_util.TRACE ('*** SQL error ' || SUBSTR (SQLERRM, 1, 200)
1869: , 'INV_TXN_MANAGER_GRP'
1870: , 9
1871: );
1872: END IF;
2216:
2217: --dbms_output.put_line(' came to process_trx');
2218: IF (l_debug = 1)
2219: THEN
2220: inv_log_util.TRACE
2221: ( '-----Inside process_Transactions-------.trxhdr='
2222: || p_header_id
2223: , 'INV_TXN_MANAGER_PUB'
2224: , 9
2279: THEN
2280: /** Process Rows in MTL_MATERIAL_TRANSACTION_TEMP **/
2281: IF (l_debug = 1)
2282: THEN
2283: inv_log_util.TRACE ('Process Rows in MTL_MATERIAL_TRANSACTION_TEMP'
2284: , 'INV_TXN_MANAGER_PUB'
2285: , 9
2286: );
2287: END IF;
2343: AND transaction_source_type_id = 5);
2344:
2345: IF (l_debug = 1)
2346: THEN
2347: inv_log_util.TRACE ('Rows in MMTT ready to process '
2348: , 'INV_TXN_MANAGER_PUB'
2349: , 9
2350: );
2351: END IF;
2365: IF l_process = 1
2366: THEN
2367: IF (l_debug = 1)
2368: THEN
2369: inv_log_util.TRACE ('Calling INV_PROCESS_TEMP.processTransaction'
2370: , 'INV_TXN_MANAGER_PUB'
2371: , 9
2372: );
2373: END IF;
2401: l_disp := fnd_message.get;
2402:
2403: IF (l_debug = 1)
2404: THEN
2405: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2406: END IF;
2407:
2408: RETURN -1;
2409: END IF;
2426: IF (FIRST)
2427: THEN
2428: IF (l_debug = 1)
2429: THEN
2430: inv_log_util.TRACE ('Calling Process_lpn_trx'
2431: , 'INV_TXN_MANAGER_PUB'
2432: , 9
2433: );
2434: END IF;
2439: l_disp := fnd_message.get;
2440:
2441: IF (l_debug = 1)
2442: THEN
2443: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2444: END IF;
2445: END IF;
2446:
2447: -- If transactions are of type WIP, then call the WIP API. This
2467: IF (l_return_status <> fnd_api.g_ret_sts_success)
2468: THEN
2469: IF (l_debug = 1)
2470: THEN
2471: inv_log_util.TRACE ('Failure from MMTT:WIP processTemp!!'
2472: , 'INV_TXN_MANAGER_PUB'
2473: , 1
2474: );
2475: END IF;
2492: fnd_message.set_name ('INV', 'INV_INT_PROCCODE');
2493:
2494: IF (l_debug = 1)
2495: THEN
2496: inv_log_util.TRACE ('Error from PROCESS_LPN_TRX.. ' || l_msg_data
2497: , 'INV_TXN_MANAGER_PUB'
2498: , 9
2499: );
2500: END IF;
2514: END IF;
2515:
2516: IF (l_debug = 1)
2517: THEN
2518: inv_log_util.TRACE ('After process_lpn_trx without errors'
2519: , 'INV_TXN_MANAGER_PUB'
2520: , 9
2521: );
2522: END IF;
2527: l_disp := fnd_message.get;
2528:
2529: IF (l_debug = 1)
2530: THEN
2531: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2532: END IF;
2533: END IF;
2534:
2535: IF fnd_api.to_boolean (p_commit)
2544: l_error_exp := fnd_message.get;
2545:
2546: IF (l_debug = 1)
2547: THEN
2548: inv_log_util.TRACE ('Error in call to bflushchk'
2549: , 'INV_TXN_MANAGER_PUB'
2550: , 9
2551: );
2552: END IF;
2561: l_disp := fnd_message.get;
2562:
2563: IF (l_debug = 1)
2564: THEN
2565: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2566: END IF;
2567:
2568: SELECT COUNT (*)
2569: INTO l_totrows
2590: l_disp := fnd_message.get;
2591:
2592: IF (l_debug = 1)
2593: THEN
2594: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2595: END IF;
2596: ELSE
2597: done := TRUE;
2598: END IF;
2627: EXCEPTION
2628: WHEN VALUE_ERROR
2629: THEN
2630: l_batch_size := 0;
2631: inv_log_util.TRACE
2632: ('Inv Batch size set to null for non numeric value'
2633: , 'INV_TXN_MANAGER_PUB'
2634: , 9
2635: );
2636: END;
2637:
2638: IF (l_debug = 1)
2639: THEN
2640: inv_log_util.TRACE ('Inv Batch size:' || l_batch_size
2641: , 'INV_TXN_MANAGER_PUB'
2642: , 9
2643: );
2644: END IF;
2728: END IF;
2729:
2730: IF (l_debug = 1)
2731: THEN
2732: inv_log_util.TRACE ('MTI Rows cnt before Validation=' || l_initotrows
2733: , 'INV_TXN_MANAGER_PUB'
2734: , 9
2735: );
2736: END IF;
2741: l_disp := fnd_message.get;
2742:
2743: IF (l_debug = 1)
2744: THEN
2745: inv_log_util.TRACE (l_disp || ' totrows = 0'
2746: , 'INV_TXN_MANAGER_PUB'
2747: , 9
2748: );
2749: END IF;
2801: THEN
2802: -- Pawan Added following changes for gme- convergence
2803: IF l_wip_entity_type = 10 THEN
2804: IF (l_debug = 1) THEN
2805: inv_log_util.trace('in for gme pre_process','INV_TXN_MANAGER_PUB', 9);
2806: END IF;
2807: gme_api_grp.gme_pre_process_txns
2808: ( p_header_id => l_header_id,
2809: x_return_status => l_ret_sts_pre) ;
2808: ( p_header_id => l_header_id,
2809: x_return_status => l_ret_sts_pre) ;
2810: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success) THEN
2811: IF (l_debug = 1) THEN
2812: inv_log_util.trace('Success from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2813: END IF;
2814:
2815: IF FND_API.To_Boolean( p_commit ) then
2816: COMMIT WORK; /* Commit after preInvWIP all MTI records */
2830: RETURN -1;
2831: END;
2832: ELSE
2833: IF (l_debug = 1) THEN
2834: inv_log_util.trace('Failure from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2835: END IF;
2836: RAISE fnd_api.g_exc_unexpected_error;
2837: END IF;--check for success
2838: ELSE/*l_wip_entity_type = 10 */
2844: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success)
2845: THEN
2846: IF (l_debug = 1)
2847: THEN
2848: inv_log_util.TRACE ('Success from:!!preInvWIPProcessing'
2849: , 'INV_TXN_MANAGER_PUB'
2850: , 1
2851: );
2852: END IF;
2873: END;
2874: ELSE
2875: IF (l_debug = 1)
2876: THEN
2877: inv_log_util.TRACE ('Failure from:!!preInvWIPProcessing'
2878: , 'INV_TXN_MANAGER_PUB'
2879: , 1
2880: );
2881: END IF;
2902: IF x_return_status = fnd_api.g_ret_sts_error
2903: THEN
2904: IF (l_debug = 1)
2905: THEN
2906: inv_log_util.TRACE ( 'Unexpected Error in Validate Group : '
2907: || x_msg_data
2908: , 'INV_TXN_MANAGER_PUB'
2909: , 9
2910: );
2929: END IF;
2930:
2931: IF (l_debug = 1)
2932: THEN
2933: inv_log_util.TRACE ('Group validation complete '
2934: , 'INV_TXN_MANAGER_PUB'
2935: , 9
2936: );
2937: END IF;
2958: IF (l_line_rec_type.transaction_action_id IN (40, 41, 42))
2959: THEN
2960: IF (l_debug = 1)
2961: THEN
2962: inv_log_util.TRACE ( 'Previous parent: '
2963: || l_previous_parent_id
2964: , 'INV_TXN_MANAGER_PUB'
2965: , 9
2966: );
2963: || l_previous_parent_id
2964: , 'INV_TXN_MANAGER_PUB'
2965: , 9
2966: );
2967: inv_log_util.TRACE ( 'Current parent: '
2968: || l_line_rec_type.parent_id
2969: , 'INV_TXN_MANAGER_PUB'
2970: , 9
2971: );
3042: x_msg_data := fnd_msg_pub.get (i, 'F');
3043:
3044: IF (l_debug = 1)
3045: THEN
3046: inv_log_util.TRACE
3047: ( 'Error in Validate_lot_Split_Trx: '
3048: || x_msg_data
3049: , 'INV_TXN_MANAGER_PUB'
3050: , 9
3087: x_msg_data := fnd_msg_pub.get (i, 'F');
3088:
3089: IF (l_debug = 1)
3090: THEN
3091: inv_log_util.TRACE
3092: ( 'Error in Validate_lot_Merge_Trx: '
3093: || x_msg_data
3094: , 'INV_TXN_MANAGER_PUB'
3095: , 9
3134: x_msg_data := fnd_msg_pub.get (i, 'F');
3135:
3136: IF (l_debug = 1)
3137: THEN
3138: inv_log_util.TRACE
3139: ( 'Error in Validate_lot_Translate_Trx: '
3140: || x_msg_data
3141: , 'INV_TXN_MANAGER_PUB'
3142: , 9
3200:
3201: /* bug 2807083, populate the distribution account id of lot translate txn */
3202: IF (l_debug = 1)
3203: THEN
3204: inv_log_util.TRACE
3205: ( 'l_line_rec_type.distribution_account_id is '
3206: || l_line_rec_type.distribution_account_id
3207: , 'INV_TXN_MANAGER_PUB'
3208: , 9
3220: END IF;
3221:
3222: IF (l_debug = 1)
3223: THEN
3224: inv_log_util.TRACE ('l_dist_acct_id is ' || l_dist_acct_id
3225: , 'INV_TXN_MANAGER_PUB'
3226: , 9
3227: );
3228: END IF;
3239: IF (line_vldn_error_flag = 'Y')
3240: THEN
3241: IF (l_debug = 1)
3242: THEN
3243: inv_log_util.TRACE ('Error in Line Validatin'
3244: , 'INV_TXN_MANAGER_PUB'
3245: , 9
3246: );
3247: END IF;
3268: into l_operation_seq_num, l_wip_supply_type
3269: from mtl_transactions_interface
3270: where ROWID = l_line_rec_type.ROWID;
3271: IF (l_debug = 1) THEN
3272: inv_log_util.trace('operation_seq_num '||l_operation_seq_num||' l_wip_supply_type '||l_wip_supply_type, 'INV_TXN_MANAGER_PUB', 9);
3273: END IF;
3274: if l_operation_seq_num < 0 and l_wip_supply_type =6 then
3275: goto endofz1loop;
3276: end if;
3277:
3278: tree_exists := FALSE;
3279:
3280: IF (l_debug = 1) THEN
3281: inv_log_util.trace('Getting values from Z1 cursor', 'INV_TXN_MANAGER_PUB', 9);
3282: END IF;
3283:
3284: l_temp_rowid :=z1_rec.ROWID;
3285: l_item_id:=z1_rec.inventory_item_id;
3292: l_txn_qty := z1_rec.transaction_quantity;
3293: l_trxuom := z1_rec.transaction_uom;
3294: l_priuom := z1_rec.primary_uom_code;
3295: IF (l_debug = 1) THEN
3296: inv_log_util.trace('l_item_id is:'||l_item_id, 'INV_TXN_MANAGER_PUB', 9);
3297: inv_log_util.trace('l_txn_qty is:'||l_txn_qty, 'INV_TXN_MANAGER_PUB', 9);
3298: inv_log_util.trace('l_trxuom is:'||l_trxuom, 'INV_TXN_MANAGER_PUB', 9);
3299: inv_log_util.trace('l_priuom is:'||l_priuom, 'INV_TXN_MANAGER_PUB', 9);
3300:
3293: l_trxuom := z1_rec.transaction_uom;
3294: l_priuom := z1_rec.primary_uom_code;
3295: IF (l_debug = 1) THEN
3296: inv_log_util.trace('l_item_id is:'||l_item_id, 'INV_TXN_MANAGER_PUB', 9);
3297: inv_log_util.trace('l_txn_qty is:'||l_txn_qty, 'INV_TXN_MANAGER_PUB', 9);
3298: inv_log_util.trace('l_trxuom is:'||l_trxuom, 'INV_TXN_MANAGER_PUB', 9);
3299: inv_log_util.trace('l_priuom is:'||l_priuom, 'INV_TXN_MANAGER_PUB', 9);
3300:
3301: END IF;
3294: l_priuom := z1_rec.primary_uom_code;
3295: IF (l_debug = 1) THEN
3296: inv_log_util.trace('l_item_id is:'||l_item_id, 'INV_TXN_MANAGER_PUB', 9);
3297: inv_log_util.trace('l_txn_qty is:'||l_txn_qty, 'INV_TXN_MANAGER_PUB', 9);
3298: inv_log_util.trace('l_trxuom is:'||l_trxuom, 'INV_TXN_MANAGER_PUB', 9);
3299: inv_log_util.trace('l_priuom is:'||l_priuom, 'INV_TXN_MANAGER_PUB', 9);
3300:
3301: END IF;
3302:
3295: IF (l_debug = 1) THEN
3296: inv_log_util.trace('l_item_id is:'||l_item_id, 'INV_TXN_MANAGER_PUB', 9);
3297: inv_log_util.trace('l_txn_qty is:'||l_txn_qty, 'INV_TXN_MANAGER_PUB', 9);
3298: inv_log_util.trace('l_trxuom is:'||l_trxuom, 'INV_TXN_MANAGER_PUB', 9);
3299: inv_log_util.trace('l_priuom is:'||l_priuom, 'INV_TXN_MANAGER_PUB', 9);
3300:
3301: END IF;
3302:
3303: IF z1_rec.primary_quantity IS NULL THEN
3311: END IF;
3312:
3313: IF (l_trx_qty = -99999) THEN
3314: IF (l_debug = 1) THEN
3315: inv_log_util.trace('Validate_Transactions: INV_CONVERT.INV_UM_CONVERT error while calculating primary qty', 'INV_TXN_MANAGER_GRP', 9);
3316: END IF;
3317: FND_MESSAGE.set_name('INV', 'INV_NO_CONVERSION_ERR');
3318: l_error_code:= fnd_message.get;
3319:
3381: , x_wip_job_type => l_rsv_wip_job_type
3382: );
3383:
3384: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3385: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3386: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3387: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3388: END IF;
3389:
3383:
3384: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3385: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3386: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3387: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3388: END IF;
3389:
3390: IF (l_debug = 1) THEN
3391: inv_log_util.TRACE ('Wip entity type ' || l_rsv_wip_entity_type, 'INV_TXN_MANAGER_PUB', 9);
3387: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3388: END IF;
3389:
3390: IF (l_debug = 1) THEN
3391: inv_log_util.TRACE ('Wip entity type ' || l_rsv_wip_entity_type, 'INV_TXN_MANAGER_PUB', 9);
3392: END IF;
3393:
3394: --Bug 6454464, we should not call available qty validation for CMRO job type
3395: IF (l_rsv_wip_entity_type <> inv_reservation_global.g_wip_source_type_cmro) THEN
3406: l_lot_control := TRUE;
3407: END IF;
3408:
3409: IF (l_debug = 1) THEN
3410: inv_log_util.trace('Calling Create tree', 'INV_TXN_MANAGER_PUB', 9);
3411: END IF;
3412:
3413: -- Bug 4194323 WIP Assembly Return transactions need to look for Available Quantity
3414: --against the Sales Order if it's linked to job
3422: ROWID = l_temp_rowid ;
3423: EXCEPTION
3424: WHEN OTHERS THEN
3425: IF (l_debug = 1) THEN
3426: inv_log_util.trace('Error in getting Demand Info : '
3427: || x_msg_data,'INV_TXN_MANAGER_PUB', 9);
3428: END IF;
3429: l_error_code := 'Error in getting Demand Info';
3430: l_error_exp := 'Error in getting Demand Info';
3519: END IF;
3520: -- Bug 4194323 Ends
3521:
3522: IF (l_debug = 1) THEN
3523: inv_log_util.trace('After create tree tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3524: END IF;
3525:
3526: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
3527: IF (l_debug = 1) THEN
3524: END IF;
3525:
3526: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
3527: IF (l_debug = 1) THEN
3528: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3529: END IF;
3530: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
3531: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
3532: l_error_code := FND_MESSAGE.get;
3589: );
3590:
3591: IF l_return_status = fnd_api.g_ret_sts_error THEN
3592: IF (l_debug = 1) THEN
3593: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3594: END IF;
3595:
3596: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3597: FND_MESSAGE.set_token('token1','XACT_QTY1');
3630: END IF ;
3631:
3632: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3633: IF (l_debug = 1) THEN
3634: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3635: END IF;
3636:
3637: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3638: FND_MESSAGE.set_token('token1','XACT_QTY1');
3669: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3670: END IF;
3671:
3672: IF (l_debug = 1) THEN
3673: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3674: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3670: END IF;
3671:
3672: IF (l_debug = 1) THEN
3673: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3674: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3678: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3671:
3672: IF (l_debug = 1) THEN
3673: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3674: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3678: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3679: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3672: IF (l_debug = 1) THEN
3673: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3674: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3678: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3679: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3680: END IF;
3673: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3674: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3678: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3679: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3680: END IF;
3681: END IF;--100
3674: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3678: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3679: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3680: END IF;
3681: END IF;--100
3682:
3675: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3676: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3677: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3678: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3679: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3680: END IF;
3681: END IF;--100
3682:
3683: -- Bug 3427817: For WIP backflush transactions, we should not
3707: l_override_neg_for_backflush := 0;
3708: l_override_rsv_for_backflush := 2;
3709: END IF;
3710: IF (l_debug = 1) THEN
3711: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3712: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3713: END IF;
3714:
3715: --Bug 3487453: Added and set the variable l_translate
3708: l_override_rsv_for_backflush := 2;
3709: END IF;
3710: IF (l_debug = 1) THEN
3711: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3712: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3713: END IF;
3714:
3715: --Bug 3487453: Added and set the variable l_translate
3716: -- to true for the token to be translated.
3726: then the backflush transaction can not consume existing reservations.Else it can consume
3727: existing reservation and can drive inventory go negative.
3728: */
3729: IF (l_override_rsv_for_backflush <> 1 ) THEN
3730: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_PUB', 9);
3731: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
3732: l_error_code := FND_MESSAGE.get;
3733: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
3734: l_error_exp := FND_MESSAGE.get;
3786: );
3787:
3788: IF l_return_status = fnd_api.g_ret_sts_error THEN
3789: IF (l_debug = 1) THEN
3790: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3791: END IF;
3792:
3793: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3794: FND_MESSAGE.set_token('token1','XACT_QTY1');
3826: END IF ;
3827:
3828: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3829: IF (l_debug = 1) THEN
3830: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3831: END IF;
3832:
3833: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3834: FND_MESSAGE.set_token('token1','XACT_QTY1');
3864: l_current_batch_failed := TRUE;--Bug#5075521
3865: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3866: END IF;
3867: END IF; --200
3868: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3869: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3865: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3866: END IF;
3867: END IF; --200
3868: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3869: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3866: END IF;
3867: END IF; --200
3868: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3869: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3874: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3867: END IF; --200
3868: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3869: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3874: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3875: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3868: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3869: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3874: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3875: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3876:
3869: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3874: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3875: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3876:
3877: IF ( NOT l_current_batch_failed) THEN --250
3870: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3874: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3875: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3876:
3877: IF ( NOT l_current_batch_failed) THEN --250
3878: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
3871: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3872: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3873: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3874: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3875: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3876:
3877: IF ( NOT l_current_batch_failed) THEN --250
3878: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
3879: IF (l_item_att < l_trx_qty AND l_item_qr > 0) THEN
3882: If this profile is not set to 'Yes'then the backflush transaction can not
3883: consume existing reservations.Else it can consume existing reservation and can
3884: drive inventory negative. */
3885: IF (l_override_rsv_for_backflush <> 1 ) THEN
3886: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_PUB', 9);
3887: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
3888: l_error_code := FND_MESSAGE.get;
3889: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
3890: l_error_exp := FND_MESSAGE.get;
3925: END IF; --250
3926:
3927: ELSE --(neg_inv_rcpt = 1)
3928: IF (l_debug = 1) THEN
3929: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3930: END IF;
3931: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
3932: l_error_code := FND_MESSAGE.get;
3933: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
4105: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
4106: ELSE
4107: --qty tree update was successful
4108: IF (l_debug = 1) THEN
4109: inv_log_util.trace('after update of quantity tree qoh='||l_qoh||' l_att='||l_att||' l_atr='||l_atr,'INV_TXN_MANAGER_PUB', 9);
4110: END IF;
4111: END IF;
4112: END IF;-- Pawan Added for IF (l_actid in (2,28))
4113: END IF; --300
4167: l_disp := fnd_message.get;
4168:
4169: IF (l_debug = 1)
4170: THEN
4171: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4172: END IF;
4173:
4174: /* Insert into MMTT */
4175: /** Change for lOt Transactions **/
4180: IF (l_line_rec_type.transaction_action_id = 40)
4181: THEN
4182: IF (l_debug = 1)
4183: THEN
4184: inv_log_util.TRACE ('Checking for lot partial split'
4185: , 'INV_TXN_MANAGER_PUB'
4186: , 9
4187: );
4188: END IF;
4194: l_error_exp := fnd_message.get;
4195:
4196: IF (l_debug = 1)
4197: THEN
4198: inv_log_util.TRACE ( 'Error in Check_Partial_Split= '
4199: || l_error_exp
4200: , 'INV_TXN_MANAGER_PUB'
4201: , 9
4202: );
4231: WHEN rollback_line_validation
4232: THEN
4233: IF (l_debug = 1)
4234: THEN
4235: inv_log_util.TRACE
4236: ( 'Failed Interface ID : '
4237: || l_line_rec_type.transaction_interface_id
4238: || ' Item: '
4239: || l_line_rec_type.inventory_item_id
4250: batch_error := TRUE;
4251:
4252: IF (l_debug = 1)
4253: THEN
4254: inv_log_util.TRACE
4255: ( 'Error in INV_TXN_MANAGER_PUB LOOP - rollback last transaction Interface ID '
4256: || l_line_rec_type.transaction_interface_id
4257: , 'INV_TXN_MANAGER_PUB'
4258: , 9
4326: x_msg_data := 'All records failed after line validation';
4327:
4328: IF (l_debug = 1)
4329: THEN
4330: inv_log_util.TRACE ('All records failed after line validation'
4331: , 'INV_TXN_MANAGER_PUB'
4332: , 1
4333: );
4334: END IF;
4350: IF (x_return_status = fnd_api.g_ret_sts_success)
4351: THEN
4352: IF (l_debug = 1)
4353: THEN
4354: inv_log_util.TRACE ('Success from:!!postInvWIPValid'
4355: , 'INV_TXN_MANAGER_PUB'
4356: , 1
4357: );
4358: END IF;
4414: END;
4415: ELSE
4416: IF (l_debug = 1)
4417: THEN
4418: inv_log_util.TRACE ('Failure from:!!postInvWIPProcessing'
4419: , 'INV_TXN_MANAGER_PUB'
4420: , 1
4421: );
4422: END IF;
4434: *tmpinsert2 whihc handles the three transactions
4435: */
4436: IF (l_debug = 1)
4437: THEN
4438: inv_log_util.TRACE ('Calling tmpinsert'
4439: , 'INV_TXN_MANAGER_PUB'
4440: , 9
4441: );
4442: END IF;
4446: l_error_exp := fnd_message.get;
4447:
4448: IF (l_debug = 1)
4449: THEN
4450: inv_log_util.TRACE ('Error in tmpinsert=' || l_error_exp
4451: , 'INV_TXN_MANAGER_PUB'
4452: , 9
4453: );
4454: END IF;
4458: RAISE fnd_api.g_exc_unexpected_error;
4459: ELSE
4460: BEGIN
4461: IF(l_debug = 1) THEN
4462: inv_log_util.TRACE ( 'Calling tmpinsert2'
4463: , 'INV_TXN_MANAGER_PUB'
4464: , 9
4465: );
4466: END IF;
4470: , x_msg_data => x_msg_data
4471: , x_validation_status => l_validation_status
4472: , p_header_id => l_header_id);
4473: IF(l_debug = 1) THEN
4474: inv_log_util.TRACE ( 'After tmpinsert2'
4475: , 'INV_TXN_MANAGER_PUB'
4476: , 9
4477: );
4478: END IF;
4477: );
4478: END IF;
4479: EXCEPTION
4480: WHEN OTHERS THEN
4481: inv_log_util.TRACE ( 'tmpinsert2 raised exception '
4482: , 'INV_TXN_MANAGER_PUB'
4483: , 9
4484: );
4485: fnd_message.set_name ('INV', 'INV_INT_TMPXFRCODE');
4488: END;
4489:
4490: IF(x_return_status <> fnd_api.g_ret_sts_success OR
4491: l_validation_status <> 'Y') THEN
4492: inv_log_util.TRACE ( 'tmpinsert2 failed..returned with error '
4493: , 'INV_TXN_MANAGER_PUB'
4494: , 9
4495: );
4496: RAISE fnd_api.g_exc_error;
4510: WHERE inventory_item_id= p_mmtt.inventory_item_id
4511: AND organization_id = p_mmtt.organization_id;
4512: EXCEPTION
4513: WHEN OTHERS THEN
4514: inv_log_util.TRACE ('Exception in getting serial control code'||Sqlerrm,'INV_TXN_MANAGER_PUB ', 9);
4515: RAISE fnd_api.g_exc_unexpected_error;
4516: END;
4517:
4518: IF (l_serial_control IN (2,5)) THEN
4525: AND organization_id = p_mmtt.organization_id;
4526: EXCEPTION
4527: WHEN OTHERS THEN
4528: IF (l_debug = 1) THEN
4529: inv_log_util.TRACE ('exception in getting from project: ' || Sqlerrm, 'INV_TXN_MANAGER_PUB', 9);
4530: END IF;
4531: RAISE fnd_api.g_exc_unexpected_error;
4532: END;
4533: END IF;
4580: AND process_flag = 'Y';
4581:
4582: IF (l_debug = 1)
4583: THEN
4584: inv_log_util.TRACE ( 'Goint for rows in MMTT. rcnt = '
4585: || l_midtotrows
4586: || ',hdrid='
4587: || l_header_id
4588: , 'INV_TXN_MANAGER_PUB'
4605: l_disp := fnd_message.get;
4606:
4607: IF (l_debug = 1)
4608: THEN
4609: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4610: END IF;
4611:
4612: --FND_MESSAGE.set_name('INV','INV_RETURN_PROC');
4613: --l_disp := FND_MESSAGE.get;
4610: END IF;
4611:
4612: --FND_MESSAGE.set_name('INV','INV_RETURN_PROC');
4613: --l_disp := FND_MESSAGE.get;
4614: --inv_log_util.trace(l_disp, 'INV_TXN_MANAGER_PUB',9);
4615: SELECT COUNT (*)
4616: INTO l_totrows
4617: FROM mtl_material_transactions_temp
4618: WHERE transaction_header_id = l_header_id AND process_flag = 'Y';
4625: l_disp := fnd_message.get;
4626:
4627: IF (l_debug = 1)
4628: THEN
4629: inv_log_util.TRACE (l_disp || ' totrows = 0'
4630: , 'INV_TXN_MANAGER_PUB'
4631: , 9
4632: );
4633: END IF;
4665: IF (l_return_status <> fnd_api.g_ret_sts_success)
4666: THEN
4667: IF (l_debug = 1)
4668: THEN
4669: inv_log_util.TRACE ('Failure from WIP processTemp!!'
4670: , 'INV_TXN_MANAGER_PUB'
4671: , 1
4672: );
4673: END IF;
4698: l_error_code := fnd_message.get;
4699:
4700: IF (l_debug = 1)
4701: THEN
4702: inv_log_util.TRACE ( 'PROCESS_LPN_TRX failed for header_id '
4703: || l_header_id
4704: , 'INV_TXN_MANAGER_PUB'
4705: , 1
4706: );
4703: || l_header_id
4704: , 'INV_TXN_MANAGER_PUB'
4705: , 1
4706: );
4707: inv_log_util.TRACE ('Error.... ' || l_error_exp
4708: , 'INV_TXN_MANAGER_PUB'
4709: , 9
4710: );
4711: END IF;
4736: DELETE FROM MTL_MATERIAL_TRANSACTIONS_TEMP
4737: WHERE TRANSACTION_HEADER_ID = l_header_id;
4738:
4739: IF (l_debug = 1) THEN
4740: inv_log_util.trace('Deleted MSNT/MTLT/MMTT for header_id ' || l_header_id, 'INV_TXN_MANAGER_PUB',1);
4741: END IF;
4742:
4743: -- End of change for bug 5748351
4744:
4751: END IF;
4752:
4753: IF (l_debug = 1)
4754: THEN
4755: inv_log_util.TRACE ('After process_lpn_trx without errors'
4756: , 'INV_TXN_MANAGER_PUB'
4757: , 9
4758: );
4759: END IF;
4766: IF (FIRST)
4767: THEN
4768: IF (l_debug = 1)
4769: THEN
4770: inv_log_util.TRACE ('Calling bflushchk', 'INV_TXN_MANAGER_PUB'
4771: , 9);
4772: END IF;
4773:
4774: IF (NOT bflushchk (l_header_id))
4776: l_error_code := fnd_message.get;
4777:
4778: IF (l_debug = 1)
4779: THEN
4780: inv_log_util.TRACE ( 'Error in bflushchk header_id:'
4781: || l_header_id
4782: || ' - '
4783: || l_error_code
4784: , 'INV_TXN_MANAGER_PUB'
4796: l_disp := fnd_message.get;
4797:
4798: IF (l_debug = 1)
4799: THEN
4800: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4801: END IF;
4802:
4803: SELECT COUNT (*)
4804: INTO l_totrows
4806: WHERE transaction_header_id = l_header_id AND process_flag = 'Y';
4807:
4808: IF (l_debug = 1)
4809: THEN
4810: inv_log_util.TRACE ('totrows is ' || l_totrows
4811: , 'INV_TXN_MANAGER_PUB'
4812: , 9
4813: );
4814: END IF;
4833: l_disp := fnd_message.get;
4834:
4835: IF (l_debug = 1)
4836: THEN
4837: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4838: END IF;
4839: ELSE
4840: done := TRUE;
4841: FIRST := FALSE;
4853: l_disp := fnd_message.get;
4854:
4855: IF (l_debug = 1)
4856: THEN
4857: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4858: END IF;
4859:
4860: done := TRUE;
4861: END IF;
4868: l_disp := fnd_message.get;
4869:
4870: IF (l_debug = 1)
4871: THEN
4872: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4873: inv_log_util.TRACE ( l_initotrows
4874: - l_midtotrows
4875: || ' Transactions did not pass validation'
4876: , 'INV_TXN_MANAGER_PUB'
4869:
4870: IF (l_debug = 1)
4871: THEN
4872: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4873: inv_log_util.TRACE ( l_initotrows
4874: - l_midtotrows
4875: || ' Transactions did not pass validation'
4876: , 'INV_TXN_MANAGER_PUB'
4877: , 9
4889: WHEN OTHERS
4890: THEN
4891: IF (l_debug = 1)
4892: THEN
4893: inv_log_util.TRACE ('*** SQL error ' || SUBSTR (SQLERRM, 1, 200)
4894: , 'INV_TXN_MANAGER_PUB'
4895: , 9
4896: );
4897: END IF;
5024: WHEN OTHERS
5025: THEN
5026: IF (l_debug = 1)
5027: THEN
5028: inv_log_util.TRACE ('Error in insert_relief'
5029: , 'INV_TXN_MANAGER_PUB'
5030: , 9
5031: );
5032: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5028: inv_log_util.TRACE ('Error in insert_relief'
5029: , 'INV_TXN_MANAGER_PUB'
5030: , 9
5031: );
5032: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5033: , 'INV_TXN_MANAGER_PUB'
5034: , '9'
5035: );
5036: END IF;
5079: WHEN OTHERS
5080: THEN
5081: IF (l_debug = 1)
5082: THEN
5083: inv_log_util.TRACE ('Error in mrp_ship_order'
5084: , 'INV_TXN_MANAGER_PUB'
5085: , 9
5086: );
5087: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5083: inv_log_util.TRACE ('Error in mrp_ship_order'
5084: , 'INV_TXN_MANAGER_PUB'
5085: , 9
5086: );
5087: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5088: , 'INV_TXN_MANAGER_PUB'
5089: , '9'
5090: );
5091: END IF;
5306: l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
5307: END IF;
5308:
5309: IF (l_debug = 1) THEN
5310: inv_log_util.TRACE ('$Header: INVTXMGB.pls 120.33.12020000.3 2013/03/06 11:20:01 skommine ship $' , l_procedure_name , 9);
5311: END IF;
5312:
5313: l_progress_indicator := '10';
5314:
5350:
5351: IF z1%NOTFOUND THEN
5352: l_progress_indicator := '40';
5353: IF (l_debug = 1) THEN
5354: inv_log_util.TRACE ('No more rows to validate quantity'
5355: , l_procedure_name
5356: , 9
5357: );
5358: END IF;
5379: /*** free cache ***/
5380: IF p_line_rec_type.transaction_interface_id IS NULL THEN
5381:
5382: IF (l_debug = 1) THEN
5383: inv_log_util.TRACE ('Interface Id is NULL'
5384: , l_procedure_name
5385: , 9
5386: );
5387: END IF;
5432: --g_pick_release_no
5433: );
5434:
5435: IF l_return_status = fnd_api.g_ret_sts_error THEN
5436: inv_log_util.TRACE
5437: ( 'Error while creating tree : x_msg_data = '
5438: || l_msg_data
5439: , l_procedure_name
5440: , 9
5446: RAISE fnd_api.g_exc_error;
5447: END IF;
5448:
5449: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5450: inv_log_util.TRACE ( 'Unexpected Error while creating tree : '
5451: || l_msg_data
5452: , l_procedure_name
5453: , 9
5454: );
5468:
5469: END IF;
5470:
5471: IF (l_debug = 1) THEN
5472: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5473: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5474: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5475: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5476: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5469: END IF;
5470:
5471: IF (l_debug = 1) THEN
5472: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5473: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5474: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5475: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5476: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5477: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5470:
5471: IF (l_debug = 1) THEN
5472: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5473: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5474: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5475: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5476: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5477: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5478: END IF;
5471: IF (l_debug = 1) THEN
5472: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5473: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5474: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5475: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5476: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5477: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5478: END IF;
5479:
5472: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5473: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5474: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5475: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5476: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5477: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5478: END IF;
5479:
5480: l_progress_indicator := '100';
5473: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5474: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5475: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5476: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5477: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5478: END IF;
5479:
5480: l_progress_indicator := '100';
5481: inv_quantity_tree_pvt.query_tree
5499: , x_atr => l_atr
5500: );
5501:
5502: IF l_return_status = fnd_api.g_ret_sts_error THEN
5503: inv_log_util.TRACE ( 'Expected Error while querying tree : '
5504: || l_msg_data
5505: , l_procedure_name
5506: , 9
5507: );
5512: RAISE fnd_api.g_exc_error;
5513: END IF;
5514:
5515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5516: inv_log_util.TRACE ( 'UnExpected Error while querying tree : '
5517: || l_msg_data
5518: , l_procedure_name
5519: , 9
5520: );
5526: END IF;
5527:
5528: l_progress_indicator := '110';
5529: IF (l_debug = 1) THEN
5530: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5531: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5527:
5528: l_progress_indicator := '110';
5529: IF (l_debug = 1) THEN
5530: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5531: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5535: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5528: l_progress_indicator := '110';
5529: IF (l_debug = 1) THEN
5530: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5531: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5535: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5536: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5529: IF (l_debug = 1) THEN
5530: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5531: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5535: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5536: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5537: END IF;
5530: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5531: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5535: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5536: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5537: END IF;
5538:
5531: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5535: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5536: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5537: END IF;
5538:
5539: /* Bug: 3462946 : Added the code below to check for Negative Balances for a Negative Balances Allowed Org */
5532: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5533: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5534: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5535: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5536: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5537: END IF;
5538:
5539: /* Bug: 3462946 : Added the code below to check for Negative Balances for a Negative Balances Allowed Org */
5540: --Bug 8571657
5540: --Bug 8571657
5541: l_override_rsv := NVL(fnd_profile.value('INV_OVERRIDE_RSV_FOR_BACKFLUSH'), 2);
5542: IF l_att < 0 THEN
5543: l_progress_indicator := '120';
5544: inv_log_util.TRACE ('l_att is than zero', l_procedure_name, 9);
5545:
5546: IF (l_neg_inv_rcpt = 1) THEN
5547: l_progress_indicator := '130';
5548: inv_log_util.TRACE ('Negative Balance Allowed Org '
5544: inv_log_util.TRACE ('l_att is than zero', l_procedure_name, 9);
5545:
5546: IF (l_neg_inv_rcpt = 1) THEN
5547: l_progress_indicator := '130';
5548: inv_log_util.TRACE ('Negative Balance Allowed Org '
5549: , l_procedure_name
5550: , 9
5551: );
5552:
5552:
5553: IF (l_qr > 0 OR l_qs > 0) THEN
5554: IF (l_override_rsv = 1) THEN
5555: IF (l_debug = 1) THEN
5556: inv_log_util.trace('Do not check low level reservations',l_procedure_name, 9);
5557: END IF;
5558: ELSE
5559: inv_log_util.TRACE (
5560: 'Transaction quantity must be less than or equal to available quantity'
5555: IF (l_debug = 1) THEN
5556: inv_log_util.trace('Do not check low level reservations',l_procedure_name, 9);
5557: END IF;
5558: ELSE
5559: inv_log_util.TRACE (
5560: 'Transaction quantity must be less than or equal to available quantity'
5561: , l_procedure_name
5562: , 9
5563: );
5590: , x_atr => l_item_atr
5591: );
5592:
5593: IF l_return_status = fnd_api.g_ret_sts_error THEN
5594: inv_log_util.TRACE
5595: ( 'Expected Error while querying tree : '
5596: || l_msg_data
5597: , l_procedure_name
5598: , 9
5604: RAISE fnd_api.g_exc_error;
5605: END IF;
5606:
5607: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5608: inv_log_util.TRACE
5609: ( 'UnExpected Error while querying tree : '
5610: || l_msg_data
5611: , l_procedure_name
5612: , 9
5620: END IF;
5621:
5622: l_progress_indicator := '150';
5623: IF (l_debug = 1) THEN
5624: inv_log_util.TRACE ('L_ITEM_QOH : ' || l_item_qoh
5625: , l_procedure_name
5626: , 9
5627: );
5628: inv_log_util.TRACE ('L_ITEM_RQOH : ' || l_item_rqoh
5624: inv_log_util.TRACE ('L_ITEM_QOH : ' || l_item_qoh
5625: , l_procedure_name
5626: , 9
5627: );
5628: inv_log_util.TRACE ('L_ITEM_RQOH : ' || l_item_rqoh
5629: , l_procedure_name
5630: , 9
5631: );
5632: inv_log_util.TRACE ('L_ITEM_PQOH : ' || l_item_pqoh
5628: inv_log_util.TRACE ('L_ITEM_RQOH : ' || l_item_rqoh
5629: , l_procedure_name
5630: , 9
5631: );
5632: inv_log_util.TRACE ('L_ITEM_PQOH : ' || l_item_pqoh
5633: , l_procedure_name
5634: , 9
5635: );
5636: inv_log_util.TRACE ('L_ITEM_QR : ' || l_item_qr
5632: inv_log_util.TRACE ('L_ITEM_PQOH : ' || l_item_pqoh
5633: , l_procedure_name
5634: , 9
5635: );
5636: inv_log_util.TRACE ('L_ITEM_QR : ' || l_item_qr
5637: , l_procedure_name
5638: , 9
5639: );
5640: inv_log_util.TRACE ('L_ITEM_QS : ' || l_item_qs
5636: inv_log_util.TRACE ('L_ITEM_QR : ' || l_item_qr
5637: , l_procedure_name
5638: , 9
5639: );
5640: inv_log_util.TRACE ('L_ITEM_QS : ' || l_item_qs
5641: , l_procedure_name
5642: , 9
5643: );
5644: inv_log_util.TRACE ('L_ITEM_ATT : ' || l_item_att
5640: inv_log_util.TRACE ('L_ITEM_QS : ' || l_item_qs
5641: , l_procedure_name
5642: , 9
5643: );
5644: inv_log_util.TRACE ('L_ITEM_ATT : ' || l_item_att
5645: , l_procedure_name
5646: , 9
5647: );
5648: inv_log_util.TRACE ('L_ITEM_ATR : ' || l_item_atr
5644: inv_log_util.TRACE ('L_ITEM_ATT : ' || l_item_att
5645: , l_procedure_name
5646: , 9
5647: );
5648: inv_log_util.TRACE ('L_ITEM_ATR : ' || l_item_atr
5649: , l_procedure_name
5650: , 9
5651: );
5652: inv_log_util.TRACE ('L_TRX_QTY : ' || l_trx_qty
5648: inv_log_util.TRACE ('L_ITEM_ATR : ' || l_item_atr
5649: , l_procedure_name
5650: , 9
5651: );
5652: inv_log_util.TRACE ('L_TRX_QTY : ' || l_trx_qty
5653: , l_procedure_name
5654: , 9
5655: );
5656: END IF;
5682: */
5683:
5684: IF (l_override_rsv = 1) THEN
5685: IF (l_debug = 1) THEN
5686: inv_log_util.trace('Do not check high level reservations',l_procedure_name, 9);
5687: END IF;
5688: ELSE
5689: l_progress_indicator := '180';
5690: IF (l_debug = 1) THEN
5687: END IF;
5688: ELSE
5689: l_progress_indicator := '180';
5690: IF (l_debug = 1) THEN
5691: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present',l_procedure_name, 9);
5692: END IF;
5693: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
5694: l_error_code := FND_MESSAGE.get;
5695: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
5709: * reservations should not be checked
5710: */
5711: l_progress_indicator := '170';
5712: /*IF ( l_srctypeid = 13 AND l_actid = 2 AND l_trxtypeid not in (66,67,68) ) THEN
5713: inv_log_util.trace(
5714: 'Do not check high level reservations for subinventory and backflush transfers'
5715: ,l_procedure_name
5716: ,9
5717: );
5715: ,l_procedure_name
5716: ,9
5717: );
5718: ELSE
5719: inv_log_util.TRACE (
5720: 'Total Org quantity cannot become negative when there are reservations present'
5721: ,l_procedure_name
5722: ,9
5723: );
5764: RETURN TRUE;
5765:
5766: EXCEPTION
5767: WHEN OTHERS THEN
5768: inv_log_util.TRACE ('At indicator : ' || l_progress_indicator, l_procedure_name, 9);
5769: inv_log_util.TRACE ('Error in post_temp_validation : ' || l_error_code
5770: , l_procedure_name
5771: , '1'
5772: );
5765:
5766: EXCEPTION
5767: WHEN OTHERS THEN
5768: inv_log_util.TRACE ('At indicator : ' || l_progress_indicator, l_procedure_name, 9);
5769: inv_log_util.TRACE ('Error in post_temp_validation : ' || l_error_code
5770: , l_procedure_name
5771: , '1'
5772: );
5773: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5769: inv_log_util.TRACE ('Error in post_temp_validation : ' || l_error_code
5770: , l_procedure_name
5771: , '1'
5772: );
5773: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5774: , l_procedure_name
5775: , '1'
5776: );
5777: x_errd_int_id := -9876;
5898: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5899: END IF;
5900:
5901: IF (l_debug = 1) THEN
5902: inv_log_util.TRACE ('$Header: INVTXMGB.pls 120.33.12020000.3 2013/03/06 11:20:01 skommine ship $', l_procedure_name,9);
5903: END IF;
5904:
5905:
5906: IF (g_userid IS NULL) THEN
5910: l_userid := g_userid;
5911: l_loginid := NVL(fnd_global.login_id, -1);
5912:
5913: IF (l_debug = 1) THEN
5914: inv_log_util.TRACE ('USERID :' || l_userid
5915: , l_procedure_name
5916: , 9
5917: );
5918: inv_log_util.TRACE ('LoginId :' || l_loginid
5914: inv_log_util.TRACE ('USERID :' || l_userid
5915: , l_procedure_name
5916: , 9
5917: );
5918: inv_log_util.TRACE ('LoginId :' || l_loginid
5919: , l_procedure_name
5920: , 9
5921: );
5922: END IF;
5956:
5957: IF c1%NOTFOUND THEN
5958: l_progress_indicator := '30';
5959: IF (l_debug = 1) THEN
5960: inv_log_util.TRACE ('No more rows to relieve'
5961: , l_procedure_name
5962: , 9
5963: );
5964: END IF;
5992: , x_wip_job_type => l_wip_job_type
5993: );
5994:
5995: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5996: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5997: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5998: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5999: END IF;
6000:
5994:
5995: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5996: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5997: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5998: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5999: END IF;
6000:
6001: END IF; -- job_schedule
6002:
6001: END IF; -- job_schedule
6002:
6003: l_progress_indicator := '60';
6004: IF (l_debug = 1) THEN
6005: inv_log_util.TRACE ('Wip entity type ' || l_wip_entity_type, l_procedure_name, 9);
6006: inv_log_util.TRACE ('l_srctypeid ' || l_srctypeid, l_procedure_name, 9);
6007: END IF;
6008:
6009: IF ((l_srctypeid = job_schedule) AND (l_wip_entity_type =
6002:
6003: l_progress_indicator := '60';
6004: IF (l_debug = 1) THEN
6005: inv_log_util.TRACE ('Wip entity type ' || l_wip_entity_type, l_procedure_name, 9);
6006: inv_log_util.TRACE ('l_srctypeid ' || l_srctypeid, l_procedure_name, 9);
6007: END IF;
6008:
6009: IF ((l_srctypeid = job_schedule) AND (l_wip_entity_type =
6010: inv_reservation_global.g_wip_source_type_cmro)) THEN
6017: l_src_code := fnd_api.g_miss_char;
6018: END IF;
6019:
6020: IF (l_debug = 1) THEN
6021: inv_log_util.trace('l_src_code is: ' || l_src_code, l_procedure_name, 9);
6022: END IF;
6023:
6024: l_progress_indicator := '70';
6025:
6027: -- Removed inline code branching related to INCONV/ K release
6028: IF ( NOT ((l_srctypeid = job_schedule) AND (l_wip_entity_type <> inv_reservation_global.g_wip_source_type_cmro))) THEN
6029: l_progress_indicator := '80';
6030: IF (l_debug = 1) THEN
6031: inv_log_util.TRACE ('Inside rsv_relief', l_procedure_name, 9);
6032: END IF;
6033: -- End changes for Bug 4764790
6034: inv_trx_relief_c_pvt.rsv_relief
6035: (x_return_status => l_return_status
6075: WHILE (l_total_prim_qty_to_relieve > 0) AND (l_loop_exit = 0)
6076: LOOP
6077: l_progress_indicator := '110';
6078: IF (l_debug = 1) THEN
6079: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
6080: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
6081: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
6082: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
6083: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
6076: LOOP
6077: l_progress_indicator := '110';
6078: IF (l_debug = 1) THEN
6079: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
6080: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
6081: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
6082: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
6083: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
6084: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
6077: l_progress_indicator := '110';
6078: IF (l_debug = 1) THEN
6079: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
6080: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
6081: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
6082: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
6083: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
6084: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
6085: END IF;
6078: IF (l_debug = 1) THEN
6079: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
6080: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
6081: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
6082: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
6083: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
6084: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
6085: END IF;
6086:
6079: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
6080: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
6081: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
6082: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
6083: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
6084: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
6085: END IF;
6086:
6087: IF (l_rel_lpn_id is not null) THEN
6080: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
6081: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
6082: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
6083: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
6084: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
6085: END IF;
6086:
6087: IF (l_rel_lpn_id is not null) THEN
6088: l_rel_lpn_id := null;
6094: l_rel_lot_num := null;
6095: ELSIF (l_rel_revision is not null) THEN
6096: l_rel_revision := null;
6097: l_loop_exit := 1;
6098: inv_log_util.trace('Setting revision to null : ' || l_loop_exit, l_procedure_name, 9);
6099: END IF;
6100:
6101: l_progress_indicator := '120';
6102: inv_trx_relief_c_pvt.rsv_relief
6131: l_rel_revision IS NULL) THEN
6132: l_loop_exit := 1;
6133: END IF;
6134:
6135: inv_log_util.trace('l_loop_exit. After call ' || l_loop_exit, l_procedure_name, 9);
6136: END LOOP;
6137: l_ship_qty := l_trx_qty - l_total_prim_qty_to_relieve;
6138: END IF; -- relieve_reservations flag..
6139: /*** End R12 }} ***/
6139: /*** End R12 }} ***/
6140: END IF;
6141:
6142: IF (l_debug = 1) THEN
6143: inv_log_util.TRACE ('l_return_status : ' || l_return_status
6144: , l_procedure_name
6145: , 9
6146: );
6147: inv_log_util.TRACE ('l_ship_qty : ' || l_ship_qty
6143: inv_log_util.TRACE ('l_return_status : ' || l_return_status
6144: , l_procedure_name
6145: , 9
6146: );
6147: inv_log_util.TRACE ('l_ship_qty : ' || l_ship_qty
6148: , l_procedure_name
6149: , 9
6150: );
6151: inv_log_util.TRACE ('l_userline : ' || l_userline
6147: inv_log_util.TRACE ('l_ship_qty : ' || l_ship_qty
6148: , l_procedure_name
6149: , 9
6150: );
6151: inv_log_util.TRACE ('l_userline : ' || l_userline
6152: , l_procedure_name
6153: , 9
6154: );
6155: inv_log_util.TRACE ('l_demand_class : ' || l_demand_class
6151: inv_log_util.TRACE ('l_userline : ' || l_userline
6152: , l_procedure_name
6153: , 9
6154: );
6155: inv_log_util.TRACE ('l_demand_class : ' || l_demand_class
6156: , l_procedure_name
6157: , 9
6158: );
6159: inv_log_util.TRACE ('l_mps_flag : ' || l_mps_flag
6155: inv_log_util.TRACE ('l_demand_class : ' || l_demand_class
6156: , l_procedure_name
6157: , 9
6158: );
6159: inv_log_util.TRACE ('l_mps_flag : ' || l_mps_flag
6160: , l_procedure_name
6161: , 9
6162: );
6163: inv_log_util.TRACE ('l_org_id : ' || l_org_id
6159: inv_log_util.TRACE ('l_mps_flag : ' || l_mps_flag
6160: , l_procedure_name
6161: , 9
6162: );
6163: inv_log_util.TRACE ('l_org_id : ' || l_org_id
6164: , l_procedure_name
6165: , 9
6166: );
6167: inv_log_util.TRACE ('l_item_id : ' || l_item_id
6163: inv_log_util.TRACE ('l_org_id : ' || l_org_id
6164: , l_procedure_name
6165: , 9
6166: );
6167: inv_log_util.TRACE ('l_item_id : ' || l_item_id
6168: , l_procedure_name
6169: , 9
6170: );
6171: inv_log_util.TRACE ('l_sub_code: ' || l_sub_code
6167: inv_log_util.TRACE ('l_item_id : ' || l_item_id
6168: , l_procedure_name
6169: , 9
6170: );
6171: inv_log_util.TRACE ('l_sub_code: ' || l_sub_code
6172: , l_procedure_name
6173: , 9
6174: );
6175: inv_log_util.TRACE ('l_locid : ' || l_locid, l_procedure_name, 9);
6171: inv_log_util.TRACE ('l_sub_code: ' || l_sub_code
6172: , l_procedure_name
6173: , 9
6174: );
6175: inv_log_util.TRACE ('l_locid : ' || l_locid, l_procedure_name, 9);
6176: inv_log_util.TRACE ('l_lotnum : ' || l_lotnum
6177: , l_procedure_name
6178: , 9
6179: );
6172: , l_procedure_name
6173: , 9
6174: );
6175: inv_log_util.TRACE ('l_locid : ' || l_locid, l_procedure_name, 9);
6176: inv_log_util.TRACE ('l_lotnum : ' || l_lotnum
6177: , l_procedure_name
6178: , 9
6179: );
6180: inv_log_util.TRACE ('l_rev : ' || l_rev, l_procedure_name, 9);
6176: inv_log_util.TRACE ('l_lotnum : ' || l_lotnum
6177: , l_procedure_name
6178: , 9
6179: );
6180: inv_log_util.TRACE ('l_rev : ' || l_rev, l_procedure_name, 9);
6181: inv_log_util.TRACE ('l_srctypeid : ' || l_srctypeid
6182: , l_procedure_name
6183: , 9
6184: );
6177: , l_procedure_name
6178: , 9
6179: );
6180: inv_log_util.TRACE ('l_rev : ' || l_rev, l_procedure_name, 9);
6181: inv_log_util.TRACE ('l_srctypeid : ' || l_srctypeid
6182: , l_procedure_name
6183: , 9
6184: );
6185: inv_log_util.TRACE ('l_header_id ' || l_srcid
6181: inv_log_util.TRACE ('l_srctypeid : ' || l_srctypeid
6182: , l_procedure_name
6183: , 9
6184: );
6185: inv_log_util.TRACE ('l_header_id ' || l_srcid
6186: , l_procedure_name
6187: , 9
6188: );
6189: inv_log_util.TRACE ('l_dsrc_name : ' || l_src_code
6185: inv_log_util.TRACE ('l_header_id ' || l_srcid
6186: , l_procedure_name
6187: , 9
6188: );
6189: inv_log_util.TRACE ('l_dsrc_name : ' || l_src_code
6190: , l_procedure_name
6191: , 9
6192: );
6193: inv_log_util.TRACE ('l_dsrc_line : ' || l_srclineid
6189: inv_log_util.TRACE ('l_dsrc_name : ' || l_src_code
6190: , l_procedure_name
6191: , 9
6192: );
6193: inv_log_util.TRACE ('l_dsrc_line : ' || l_srclineid
6194: , l_procedure_name
6195: , 9
6196: );
6197: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6193: inv_log_util.TRACE ('l_dsrc_line : ' || l_srclineid
6194: , l_procedure_name
6195: , 9
6196: );
6197: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6198: , l_procedure_name
6199: , 9
6200: );
6201: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6197: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6198: , l_procedure_name
6199: , 9
6200: );
6201: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6202: , l_procedure_name
6203: , 9
6204: );
6205: inv_log_util.TRACE ('l_trx_qty : ' || l_trx_qty
6201: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6202: , l_procedure_name
6203: , 9
6204: );
6205: inv_log_util.TRACE ('l_trx_qty : ' || l_trx_qty
6206: , l_procedure_name
6207: , 9
6208: );
6209: inv_log_util.TRACE ('l_lpnid : ' || l_lpnid, l_procedure_name, 9);
6205: inv_log_util.TRACE ('l_trx_qty : ' || l_trx_qty
6206: , l_procedure_name
6207: , 9
6208: );
6209: inv_log_util.TRACE ('l_lpnid : ' || l_lpnid, l_procedure_name, 9);
6210: END IF;
6211:
6212: p_res_sts := l_return_status;
6213: p_res_msg := l_msg_data;
6214: p_res_count := l_msg_count;
6215:
6216: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6217: IF (l_debug = 1) THEN
6218: inv_log_util.TRACE ('x_msg_data = ' || l_msg_data
6219: , l_procedure_name
6220: , 9
6221: );
6222: inv_log_util.TRACE ('Before error return in TrxRsvRelief'
6218: inv_log_util.TRACE ('x_msg_data = ' || l_msg_data
6219: , l_procedure_name
6220: , 9
6221: );
6222: inv_log_util.TRACE ('Before error return in TrxRsvRelief'
6223: , l_procedure_name
6224: , 9
6225: );
6226: END IF;
6226: END IF;
6227: RETURN;
6228: ELSE -- return success
6229: IF (l_debug = 1) THEN
6230: inv_log_util.TRACE ('Reservation was successfully relieved'
6231: , l_procedure_name
6232: , 9
6233: );
6234: END IF;
6235:
6236: IF (ABS (l_trx_qty) <> 0) AND (l_srctypeid = salorder OR l_srctypeid = intorder)
6237: AND (l_mps_flag <> 0) THEN
6238: IF (l_debug = 1) THEN
6239: inv_log_util.TRACE ('Calling mrp_ship_order'
6240: , l_procedure_name
6241: , 9
6242: );
6243: END IF;
6251: , l_demand_class
6252: )
6253: ) THEN
6254: IF (l_debug = 1) THEN
6255: inv_log_util.TRACE ('mrp_ship_order failure'
6256: , l_procedure_name
6257: , 9
6258: );
6259: END IF;
6261: RETURN;
6262: END IF; -- return success
6263:
6264: IF (l_debug = 1) THEN
6265: inv_log_util.TRACE ('After mrp__order', l_procedure_name, 9);
6266: END IF;
6267: END IF; -- ABS(l_trx..)
6268:
6269: END IF; -- return success
6270:
6271: IF l_ship_qty <> ABS (l_trx_qty) THEN --in this case there
6272:
6273: IF (l_debug = 1) THEN
6274: inv_log_util.TRACE ( 'l_PRIMARY_QUANTITY: '
6275: || l_line_rec_type.primary_quantity
6276: , l_procedure_name
6277: , 9
6278: );
6275: || l_line_rec_type.primary_quantity
6276: , l_procedure_name
6277: , 9
6278: );
6279: inv_log_util.TRACE ( 'l_transaction_action_id: '
6280: || l_line_rec_type.transaction_action_id
6281: , l_procedure_name
6282: , 9
6283: );
6280: || l_line_rec_type.transaction_action_id
6281: , l_procedure_name
6282: , 9
6283: );
6284: inv_log_util.TRACE ( 'l_process_flag :'
6285: || l_line_rec_type.process_flag
6286: , l_procedure_name
6287: , 9
6288: );
6285: || l_line_rec_type.process_flag
6286: , l_procedure_name
6287: , 9
6288: );
6289: inv_log_util.TRACE ( 'l_shippable_flag : '
6290: || l_line_rec_type.shippable_flag
6291: , l_procedure_name
6292: , 9
6293: );
6363: ) ;
6364:
6365: IF l_return_status = fnd_api.g_ret_sts_error THEN
6366: IF (l_debug = 1) THEN
6367: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,l_procedure_name, 9);
6368: END IF;
6369: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
6370: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
6371:
6375: END IF ;
6376:
6377: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6378: IF (l_debug = 1) THEN
6379: inv_log_util.trace('Unexpected Error while creating tree : ' || l_msg_data,l_procedure_name, 9);
6380: END IF;
6381: l_error_exp := l_msg_data;
6382: RAISE fnd_api.g_exc_unexpected_error;
6383: END IF;
6385: g_interface_id := l_line_rec_type.transaction_interface_id;
6386: tree_exists := TRUE;
6387: g_tree_id := l_tree_id;
6388: IF (l_debug = 1) THEN
6389: inv_log_util.trace('Tree id is '||g_tree_id, l_procedure_name, 9);
6390: END IF;
6391:
6392: END IF; /* interface id has changed */
6393: --qty-tree validation
6432: AND process_flag = 1;
6433:
6434: IF (l_debug = 1)
6435: THEN
6436: inv_log_util.TRACE
6437: ('After Error in post_temp_validation continue...'
6438: , l_procedure_name
6439: , 9
6440: );
6457: , x_msg_data => l_msg_data);
6458: END IF;
6459: EXCEPTION
6460: WHEN OTHERS THEN
6461: inv_log_util.TRACE ( '***Undef Error Ex..rel_res : '
6462: || SUBSTR (SQLERRM, 1, 200)
6463: , l_procedure_name
6464: , '9'
6465: );
6462: || SUBSTR (SQLERRM, 1, 200)
6463: , l_procedure_name
6464: , '9'
6465: );
6466: inv_log_util.TRACE ( 'When others Ex..rel_reservations_mrp_update '
6467: || l_error_code
6468: , l_procedure_name
6469: , '1'
6470: );