[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;
2200:
2201: --dbms_output.put_line(' came to process_trx');
2202: IF (l_debug = 1)
2203: THEN
2204: inv_log_util.TRACE
2205: ( '-----Inside process_Transactions-------.trxhdr='
2206: || p_header_id
2207: , 'INV_TXN_MANAGER_PUB'
2208: , 9
2263: THEN
2264: /** Process Rows in MTL_MATERIAL_TRANSACTION_TEMP **/
2265: IF (l_debug = 1)
2266: THEN
2267: inv_log_util.TRACE ('Process Rows in MTL_MATERIAL_TRANSACTION_TEMP'
2268: , 'INV_TXN_MANAGER_PUB'
2269: , 9
2270: );
2271: END IF;
2327: AND transaction_source_type_id = 5);
2328:
2329: IF (l_debug = 1)
2330: THEN
2331: inv_log_util.TRACE ('Rows in MMTT ready to process '
2332: , 'INV_TXN_MANAGER_PUB'
2333: , 9
2334: );
2335: END IF;
2349: IF l_process = 1
2350: THEN
2351: IF (l_debug = 1)
2352: THEN
2353: inv_log_util.TRACE ('Calling INV_PROCESS_TEMP.processTransaction'
2354: , 'INV_TXN_MANAGER_PUB'
2355: , 9
2356: );
2357: END IF;
2385: l_disp := fnd_message.get;
2386:
2387: IF (l_debug = 1)
2388: THEN
2389: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2390: END IF;
2391:
2392: RETURN -1;
2393: END IF;
2410: IF (FIRST)
2411: THEN
2412: IF (l_debug = 1)
2413: THEN
2414: inv_log_util.TRACE ('Calling Process_lpn_trx'
2415: , 'INV_TXN_MANAGER_PUB'
2416: , 9
2417: );
2418: END IF;
2423: l_disp := fnd_message.get;
2424:
2425: IF (l_debug = 1)
2426: THEN
2427: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2428: END IF;
2429: END IF;
2430:
2431: -- If transactions are of type WIP, then call the WIP API. This
2451: IF (l_return_status <> fnd_api.g_ret_sts_success)
2452: THEN
2453: IF (l_debug = 1)
2454: THEN
2455: inv_log_util.TRACE ('Failure from MMTT:WIP processTemp!!'
2456: , 'INV_TXN_MANAGER_PUB'
2457: , 1
2458: );
2459: END IF;
2476: fnd_message.set_name ('INV', 'INV_INT_PROCCODE');
2477:
2478: IF (l_debug = 1)
2479: THEN
2480: inv_log_util.TRACE ('Error from PROCESS_LPN_TRX.. ' || l_msg_data
2481: , 'INV_TXN_MANAGER_PUB'
2482: , 9
2483: );
2484: END IF;
2498: END IF;
2499:
2500: IF (l_debug = 1)
2501: THEN
2502: inv_log_util.TRACE ('After process_lpn_trx without errors'
2503: , 'INV_TXN_MANAGER_PUB'
2504: , 9
2505: );
2506: END IF;
2511: l_disp := fnd_message.get;
2512:
2513: IF (l_debug = 1)
2514: THEN
2515: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2516: END IF;
2517: END IF;
2518:
2519: IF fnd_api.to_boolean (p_commit)
2528: l_error_exp := fnd_message.get;
2529:
2530: IF (l_debug = 1)
2531: THEN
2532: inv_log_util.TRACE ('Error in call to bflushchk'
2533: , 'INV_TXN_MANAGER_PUB'
2534: , 9
2535: );
2536: END IF;
2545: l_disp := fnd_message.get;
2546:
2547: IF (l_debug = 1)
2548: THEN
2549: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2550: END IF;
2551:
2552: SELECT COUNT (*)
2553: INTO l_totrows
2574: l_disp := fnd_message.get;
2575:
2576: IF (l_debug = 1)
2577: THEN
2578: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
2579: END IF;
2580: ELSE
2581: done := TRUE;
2582: END IF;
2611: EXCEPTION
2612: WHEN VALUE_ERROR
2613: THEN
2614: l_batch_size := 0;
2615: inv_log_util.TRACE
2616: ('Inv Batch size set to null for non numeric value'
2617: , 'INV_TXN_MANAGER_PUB'
2618: , 9
2619: );
2620: END;
2621:
2622: IF (l_debug = 1)
2623: THEN
2624: inv_log_util.TRACE ('Inv Batch size:' || l_batch_size
2625: , 'INV_TXN_MANAGER_PUB'
2626: , 9
2627: );
2628: END IF;
2684: END IF;
2685:
2686: IF (l_debug = 1)
2687: THEN
2688: inv_log_util.TRACE ('MTI Rows cnt before Validation=' || l_initotrows
2689: , 'INV_TXN_MANAGER_PUB'
2690: , 9
2691: );
2692: END IF;
2697: l_disp := fnd_message.get;
2698:
2699: IF (l_debug = 1)
2700: THEN
2701: inv_log_util.TRACE (l_disp || ' totrows = 0'
2702: , 'INV_TXN_MANAGER_PUB'
2703: , 9
2704: );
2705: END IF;
2757: THEN
2758: -- Pawan Added following changes for gme- convergence
2759: IF l_wip_entity_type = 10 THEN
2760: IF (l_debug = 1) THEN
2761: inv_log_util.trace('in for gme pre_process','INV_TXN_MANAGER_PUB', 9);
2762: END IF;
2763: gme_api_grp.gme_pre_process_txns
2764: ( p_header_id => l_header_id,
2765: x_return_status => l_ret_sts_pre) ;
2764: ( p_header_id => l_header_id,
2765: x_return_status => l_ret_sts_pre) ;
2766: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success) THEN
2767: IF (l_debug = 1) THEN
2768: inv_log_util.trace('Success from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2769: END IF;
2770:
2771: IF FND_API.To_Boolean( p_commit ) then
2772: COMMIT WORK; /* Commit after preInvWIP all MTI records */
2786: RETURN -1;
2787: END;
2788: ELSE
2789: IF (l_debug = 1) THEN
2790: inv_log_util.trace('Failure from:!!gme_api_grp.gme_pre_process_txns', 'INV_TXN_MANAGER_PUB',1);
2791: END IF;
2792: RAISE fnd_api.g_exc_unexpected_error;
2793: END IF;--check for success
2794: ELSE/*l_wip_entity_type = 10 */
2800: IF (l_ret_sts_pre = fnd_api.g_ret_sts_success)
2801: THEN
2802: IF (l_debug = 1)
2803: THEN
2804: inv_log_util.TRACE ('Success from:!!preInvWIPProcessing'
2805: , 'INV_TXN_MANAGER_PUB'
2806: , 1
2807: );
2808: END IF;
2829: END;
2830: ELSE
2831: IF (l_debug = 1)
2832: THEN
2833: inv_log_util.TRACE ('Failure from:!!preInvWIPProcessing'
2834: , 'INV_TXN_MANAGER_PUB'
2835: , 1
2836: );
2837: END IF;
2858: IF x_return_status = fnd_api.g_ret_sts_error
2859: THEN
2860: IF (l_debug = 1)
2861: THEN
2862: inv_log_util.TRACE ( 'Unexpected Error in Validate Group : '
2863: || x_msg_data
2864: , 'INV_TXN_MANAGER_PUB'
2865: , 9
2866: );
2885: END IF;
2886:
2887: IF (l_debug = 1)
2888: THEN
2889: inv_log_util.TRACE ('Group validation complete '
2890: , 'INV_TXN_MANAGER_PUB'
2891: , 9
2892: );
2893: END IF;
2914: IF (l_line_rec_type.transaction_action_id IN (40, 41, 42))
2915: THEN
2916: IF (l_debug = 1)
2917: THEN
2918: inv_log_util.TRACE ( 'Previous parent: '
2919: || l_previous_parent_id
2920: , 'INV_TXN_MANAGER_PUB'
2921: , 9
2922: );
2919: || l_previous_parent_id
2920: , 'INV_TXN_MANAGER_PUB'
2921: , 9
2922: );
2923: inv_log_util.TRACE ( 'Current parent: '
2924: || l_line_rec_type.parent_id
2925: , 'INV_TXN_MANAGER_PUB'
2926: , 9
2927: );
2998: x_msg_data := fnd_msg_pub.get (i, 'F');
2999:
3000: IF (l_debug = 1)
3001: THEN
3002: inv_log_util.TRACE
3003: ( 'Error in Validate_lot_Split_Trx: '
3004: || x_msg_data
3005: , 'INV_TXN_MANAGER_PUB'
3006: , 9
3043: x_msg_data := fnd_msg_pub.get (i, 'F');
3044:
3045: IF (l_debug = 1)
3046: THEN
3047: inv_log_util.TRACE
3048: ( 'Error in Validate_lot_Merge_Trx: '
3049: || x_msg_data
3050: , 'INV_TXN_MANAGER_PUB'
3051: , 9
3090: x_msg_data := fnd_msg_pub.get (i, 'F');
3091:
3092: IF (l_debug = 1)
3093: THEN
3094: inv_log_util.TRACE
3095: ( 'Error in Validate_lot_Translate_Trx: '
3096: || x_msg_data
3097: , 'INV_TXN_MANAGER_PUB'
3098: , 9
3156:
3157: /* bug 2807083, populate the distribution account id of lot translate txn */
3158: IF (l_debug = 1)
3159: THEN
3160: inv_log_util.TRACE
3161: ( 'l_line_rec_type.distribution_account_id is '
3162: || l_line_rec_type.distribution_account_id
3163: , 'INV_TXN_MANAGER_PUB'
3164: , 9
3176: END IF;
3177:
3178: IF (l_debug = 1)
3179: THEN
3180: inv_log_util.TRACE ('l_dist_acct_id is ' || l_dist_acct_id
3181: , 'INV_TXN_MANAGER_PUB'
3182: , 9
3183: );
3184: END IF;
3195: IF (line_vldn_error_flag = 'Y')
3196: THEN
3197: IF (l_debug = 1)
3198: THEN
3199: inv_log_util.TRACE ('Error in Line Validatin'
3200: , 'INV_TXN_MANAGER_PUB'
3201: , 9
3202: );
3203: END IF;
3221:
3222: tree_exists := FALSE;
3223:
3224: IF (l_debug = 1) THEN
3225: inv_log_util.trace('Getting values from Z1 cursor', 'INV_TXN_MANAGER_PUB', 9);
3226: END IF;
3227:
3228: l_temp_rowid :=z1_rec.ROWID;
3229: l_item_id:=z1_rec.inventory_item_id;
3262: , x_wip_job_type => l_rsv_wip_job_type
3263: );
3264:
3265: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3266: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3267: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3268: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3269: END IF;
3270:
3264:
3265: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
3266: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3267: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
3268: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3269: END IF;
3270:
3271: IF (l_debug = 1) THEN
3272: inv_log_util.TRACE ('Wip entity type ' || l_rsv_wip_entity_type, 'INV_TXN_MANAGER_PUB', 9);
3268: inv_log_util.TRACE ('Return status from get wip entity. '||l_return_status, 'INV_TXN_MANAGER_PUB', 9);
3269: END IF;
3270:
3271: IF (l_debug = 1) THEN
3272: inv_log_util.TRACE ('Wip entity type ' || l_rsv_wip_entity_type, 'INV_TXN_MANAGER_PUB', 9);
3273: END IF;
3274:
3275: --Bug 6454464, we should not call available qty validation for CMRO job type
3276: IF (l_rsv_wip_entity_type <> inv_reservation_global.g_wip_source_type_cmro) THEN
3287: l_lot_control := TRUE;
3288: END IF;
3289:
3290: IF (l_debug = 1) THEN
3291: inv_log_util.trace('Calling Create tree', 'INV_TXN_MANAGER_PUB', 9);
3292: END IF;
3293:
3294: -- Bug 4194323 WIP Assembly Return transactions need to look for Available Quantity
3295: --against the Sales Order if it's linked to job
3303: ROWID = l_temp_rowid ;
3304: EXCEPTION
3305: WHEN OTHERS THEN
3306: IF (l_debug = 1) THEN
3307: inv_log_util.trace('Error in getting Demand Info : '
3308: || x_msg_data,'INV_TXN_MANAGER_PUB', 9);
3309: END IF;
3310: l_error_code := 'Error in getting Demand Info';
3311: l_error_exp := 'Error in getting Demand Info';
3400: END IF;
3401: -- Bug 4194323 Ends
3402:
3403: IF (l_debug = 1) THEN
3404: inv_log_util.trace('After create tree tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3405: END IF;
3406:
3407: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
3408: IF (l_debug = 1) THEN
3405: END IF;
3406:
3407: IF l_return_status IN (fnd_api.g_ret_sts_error, fnd_api.g_ret_sts_unexp_error) THEN
3408: IF (l_debug = 1) THEN
3409: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3410: END IF;
3411: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
3412: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
3413: l_error_code := FND_MESSAGE.get;
3470: );
3471:
3472: IF l_return_status = fnd_api.g_ret_sts_error THEN
3473: IF (l_debug = 1) THEN
3474: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3475: END IF;
3476:
3477: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3478: FND_MESSAGE.set_token('token1','XACT_QTY1');
3511: END IF ;
3512:
3513: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3514: IF (l_debug = 1) THEN
3515: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3516: END IF;
3517:
3518: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3519: FND_MESSAGE.set_token('token1','XACT_QTY1');
3550: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3551: END IF;
3552:
3553: IF (l_debug = 1) THEN
3554: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3555: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3551: END IF;
3552:
3553: IF (l_debug = 1) THEN
3554: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3555: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3559: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3552:
3553: IF (l_debug = 1) THEN
3554: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3555: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3559: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3560: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3553: IF (l_debug = 1) THEN
3554: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3555: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3559: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3560: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3561: END IF;
3554: inv_log_util.trace('L_QOH : ' || l_qoh,'INV_TXN_MANAGER_PUB', 9);
3555: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3559: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3560: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3561: END IF;
3562: END IF;--100
3555: inv_log_util.trace('L_RQOH : ' || l_rqoh,'INV_TXN_MANAGER_PUB', 9);
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3559: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3560: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3561: END IF;
3562: END IF;--100
3563:
3556: inv_log_util.trace('L_PQOH : ' || l_pqoh,'INV_TXN_MANAGER_PUB', 9);
3557: inv_log_util.trace('L_QR : ' || l_qr,'INV_TXN_MANAGER_PUB', 9);
3558: inv_log_util.trace('L_QS : ' || l_qs,'INV_TXN_MANAGER_PUB', 9);
3559: inv_log_util.trace('L_ATT : ' || l_att,'INV_TXN_MANAGER_PUB', 9);
3560: inv_log_util.trace('L_ATR : ' || l_atr,'INV_TXN_MANAGER_PUB', 9);
3561: END IF;
3562: END IF;--100
3563:
3564: -- Bug 3427817: For WIP backflush transactions, we should not
3588: l_override_neg_for_backflush := 0;
3589: l_override_rsv_for_backflush := 2;
3590: END IF;
3591: IF (l_debug = 1) THEN
3592: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3593: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3594: END IF;
3595:
3596: --Bug 3487453: Added and set the variable l_translate
3589: l_override_rsv_for_backflush := 2;
3590: END IF;
3591: IF (l_debug = 1) THEN
3592: inv_log_util.trace('l_override_neg_for_backflush ' || l_override_neg_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3593: inv_log_util.trace('l_override_rsv_for_backflush ' || l_override_rsv_for_backflush,'INV_TXN_MANAGER_PUB', 9);
3594: END IF;
3595:
3596: --Bug 3487453: Added and set the variable l_translate
3597: -- to true for the token to be translated.
3607: then the backflush transaction can not consume existing reservations.Else it can consume
3608: existing reservation and can drive inventory go negative.
3609: */
3610: IF (l_override_rsv_for_backflush <> 1 ) THEN
3611: inv_log_util.trace('Transaction quantity must be less than or equal to available quantity','INV_TXN_MANAGER_PUB', 9);
3612: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
3613: l_error_code := FND_MESSAGE.get;
3614: FND_MESSAGE.set_name('INV','INV_QTY_LESS_OR_EQUAL');
3615: l_error_exp := FND_MESSAGE.get;
3667: );
3668:
3669: IF l_return_status = fnd_api.g_ret_sts_error THEN
3670: IF (l_debug = 1) THEN
3671: inv_log_util.trace('Expected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3672: END IF;
3673:
3674: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3675: FND_MESSAGE.set_token('token1','XACT_QTY1');
3707: END IF ;
3708:
3709: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3710: IF (l_debug = 1) THEN
3711: inv_log_util.trace('UnExpected Error while querying tree : ' || l_msg_data,'INV_TXN_MANAGER_PUB', 9);
3712: END IF;
3713:
3714: FND_MESSAGE.set_name('INV','INV_INTERNAL_ERROR');
3715: FND_MESSAGE.set_token('token1','XACT_QTY1');
3745: l_current_batch_failed := TRUE;--Bug#5075521
3746: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3747: END IF;
3748: END IF; --200
3749: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3750: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3746: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3747: END IF;
3748: END IF; --200
3749: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3750: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3747: END IF;
3748: END IF; --200
3749: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3750: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3755: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3748: END IF; --200
3749: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3750: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3755: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3756: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3749: inv_log_util.trace('L_ITEM_QOH : ' || l_item_qoh,'INV_TXN_MANAGER_PUB', 9);
3750: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3755: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3756: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3757:
3750: inv_log_util.trace('L_ITEM_RQOH : ' || l_item_rqoh,'INV_TXN_MANAGER_PUB', 9);
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3755: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3756: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3757:
3758: IF ( NOT l_current_batch_failed) THEN --250
3751: inv_log_util.trace('L_ITEM_PQOH : ' || l_item_pqoh,'INV_TXN_MANAGER_PUB', 9);
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3755: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3756: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3757:
3758: IF ( NOT l_current_batch_failed) THEN --250
3759: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
3752: inv_log_util.trace('L_ITEM_QR : ' || l_item_qr,'INV_TXN_MANAGER_PUB', 9);
3753: inv_log_util.trace('L_ITEM_QS : ' || l_item_qs,'INV_TXN_MANAGER_PUB', 9);
3754: inv_log_util.trace('L_ITEM_ATT : ' || l_item_att,'INV_TXN_MANAGER_PUB', 9);
3755: inv_log_util.trace('L_ITEM_ATR : ' || l_item_atr,'INV_TXN_MANAGER_PUB', 9);
3756: inv_log_util.trace('L_TRX_QTY : ' || l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3757:
3758: IF ( NOT l_current_batch_failed) THEN --250
3759: IF (l_item_qoh <> l_item_att) THEN -- Higher Level Reservations
3760: IF (l_item_att < l_trx_qty AND l_item_qr > 0) THEN
3763: If this profile is not set to 'Yes'then the backflush transaction can not
3764: consume existing reservations.Else it can consume existing reservation and can
3765: drive inventory negative. */
3766: IF (l_override_rsv_for_backflush <> 1 ) THEN
3767: inv_log_util.trace('Total Org quantity cannot become negative when there are reservations present','INV_TXN_MANAGER_PUB', 9);
3768: FND_MESSAGE.set_name('INV','INV_INT_PROCCODE');
3769: l_error_code := FND_MESSAGE.get;
3770: FND_MESSAGE.set_name('INV','INV_ORG_QUANTITY');
3771: l_error_exp := FND_MESSAGE.get;
3806: END IF; --250
3807:
3808: ELSE --(neg_inv_rcpt = 1)
3809: IF (l_debug = 1) THEN
3810: inv_log_util.trace('Not Enough Qty: l_att,l_trx_qty:' || l_att||','||l_trx_qty,'INV_TXN_MANAGER_PUB', 9);
3811: END IF;
3812: FND_MESSAGE.set_name('INV','INV_NO_NEG_BALANCES');
3813: l_error_code := FND_MESSAGE.get;
3814: FND_MESSAGE.set_name('INV','INV_LESS_OR_EQUAL');
3986: l_current_err_batch_id := l_Line_rec_Type.transaction_batch_id;--Bug#5075521
3987: ELSE
3988: --qty tree update was successful
3989: IF (l_debug = 1) THEN
3990: 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);
3991: END IF;
3992: END IF;
3993: END IF;-- Pawan Added for IF (l_actid in (2,28))
3994: END IF; --300
4045: l_disp := fnd_message.get;
4046:
4047: IF (l_debug = 1)
4048: THEN
4049: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4050: END IF;
4051:
4052: /* Insert into MMTT */
4053: /** Change for lOt Transactions **/
4058: IF (l_line_rec_type.transaction_action_id = 40)
4059: THEN
4060: IF (l_debug = 1)
4061: THEN
4062: inv_log_util.TRACE ('Checking for lot partial split'
4063: , 'INV_TXN_MANAGER_PUB'
4064: , 9
4065: );
4066: END IF;
4072: l_error_exp := fnd_message.get;
4073:
4074: IF (l_debug = 1)
4075: THEN
4076: inv_log_util.TRACE ( 'Error in Check_Partial_Split= '
4077: || l_error_exp
4078: , 'INV_TXN_MANAGER_PUB'
4079: , 9
4080: );
4109: WHEN rollback_line_validation
4110: THEN
4111: IF (l_debug = 1)
4112: THEN
4113: inv_log_util.TRACE
4114: ( 'Failed Interface ID : '
4115: || l_line_rec_type.transaction_interface_id
4116: || ' Item: '
4117: || l_line_rec_type.inventory_item_id
4128: batch_error := TRUE;
4129:
4130: IF (l_debug = 1)
4131: THEN
4132: inv_log_util.TRACE
4133: ( 'Error in INV_TXN_MANAGER_PUB LOOP - rollback last transaction Interface ID '
4134: || l_line_rec_type.transaction_interface_id
4135: , 'INV_TXN_MANAGER_PUB'
4136: , 9
4195: x_msg_data := 'All records failed after line validation';
4196:
4197: IF (l_debug = 1)
4198: THEN
4199: inv_log_util.TRACE ('All records failed after line validation'
4200: , 'INV_TXN_MANAGER_PUB'
4201: , 1
4202: );
4203: END IF;
4218: IF (x_return_status = fnd_api.g_ret_sts_success)
4219: THEN
4220: IF (l_debug = 1)
4221: THEN
4222: inv_log_util.TRACE ('Success from:!!postInvWIPValid'
4223: , 'INV_TXN_MANAGER_PUB'
4224: , 1
4225: );
4226: END IF;
4273: END;
4274: ELSE
4275: IF (l_debug = 1)
4276: THEN
4277: inv_log_util.TRACE ('Failure from:!!postInvWIPProcessing'
4278: , 'INV_TXN_MANAGER_PUB'
4279: , 1
4280: );
4281: END IF;
4293: *tmpinsert2 whihc handles the three transactions
4294: */
4295: IF (l_debug = 1)
4296: THEN
4297: inv_log_util.TRACE ('Calling tmpinsert'
4298: , 'INV_TXN_MANAGER_PUB'
4299: , 9
4300: );
4301: END IF;
4305: l_error_exp := fnd_message.get;
4306:
4307: IF (l_debug = 1)
4308: THEN
4309: inv_log_util.TRACE ('Error in tmpinsert=' || l_error_exp
4310: , 'INV_TXN_MANAGER_PUB'
4311: , 9
4312: );
4313: END IF;
4317: RAISE fnd_api.g_exc_unexpected_error;
4318: ELSE
4319: BEGIN
4320: IF(l_debug = 1) THEN
4321: inv_log_util.TRACE ( 'Calling tmpinsert2'
4322: , 'INV_TXN_MANAGER_PUB'
4323: , 9
4324: );
4325: END IF;
4329: , x_msg_data => x_msg_data
4330: , x_validation_status => l_validation_status
4331: , p_header_id => l_header_id);
4332: IF(l_debug = 1) THEN
4333: inv_log_util.TRACE ( 'After tmpinsert2'
4334: , 'INV_TXN_MANAGER_PUB'
4335: , 9
4336: );
4337: END IF;
4336: );
4337: END IF;
4338: EXCEPTION
4339: WHEN OTHERS THEN
4340: inv_log_util.TRACE ( 'tmpinsert2 raised exception '
4341: , 'INV_TXN_MANAGER_PUB'
4342: , 9
4343: );
4344: fnd_message.set_name ('INV', 'INV_INT_TMPXFRCODE');
4347: END;
4348:
4349: IF(x_return_status <> fnd_api.g_ret_sts_success OR
4350: l_validation_status <> 'Y') THEN
4351: inv_log_util.TRACE ( 'tmpinsert2 failed..returned with error '
4352: , 'INV_TXN_MANAGER_PUB'
4353: , 9
4354: );
4355: RAISE fnd_api.g_exc_error;
4369: WHERE inventory_item_id= p_mmtt.inventory_item_id
4370: AND organization_id = p_mmtt.organization_id;
4371: EXCEPTION
4372: WHEN OTHERS THEN
4373: inv_log_util.TRACE ('Exception in getting serial control code'||Sqlerrm,'INV_TXN_MANAGER_PUB ', 9);
4374: RAISE fnd_api.g_exc_unexpected_error;
4375: END;
4376:
4377: IF (l_serial_control IN (2,5)) THEN
4384: AND organization_id = p_mmtt.organization_id;
4385: EXCEPTION
4386: WHEN OTHERS THEN
4387: IF (l_debug = 1) THEN
4388: inv_log_util.TRACE ('exception in getting from project: ' || Sqlerrm, 'INV_TXN_MANAGER_PUB', 9);
4389: END IF;
4390: RAISE fnd_api.g_exc_unexpected_error;
4391: END;
4392: END IF;
4439: AND process_flag = 'Y';
4440:
4441: IF (l_debug = 1)
4442: THEN
4443: inv_log_util.TRACE ( 'Goint for rows in MMTT. rcnt = '
4444: || l_midtotrows
4445: || ',hdrid='
4446: || l_header_id
4447: , 'INV_TXN_MANAGER_PUB'
4464: l_disp := fnd_message.get;
4465:
4466: IF (l_debug = 1)
4467: THEN
4468: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4469: END IF;
4470:
4471: --FND_MESSAGE.set_name('INV','INV_RETURN_PROC');
4472: --l_disp := FND_MESSAGE.get;
4469: END IF;
4470:
4471: --FND_MESSAGE.set_name('INV','INV_RETURN_PROC');
4472: --l_disp := FND_MESSAGE.get;
4473: --inv_log_util.trace(l_disp, 'INV_TXN_MANAGER_PUB',9);
4474: SELECT COUNT (*)
4475: INTO l_totrows
4476: FROM mtl_material_transactions_temp
4477: WHERE transaction_header_id = l_header_id AND process_flag = 'Y';
4484: l_disp := fnd_message.get;
4485:
4486: IF (l_debug = 1)
4487: THEN
4488: inv_log_util.TRACE (l_disp || ' totrows = 0'
4489: , 'INV_TXN_MANAGER_PUB'
4490: , 9
4491: );
4492: END IF;
4524: IF (l_return_status <> fnd_api.g_ret_sts_success)
4525: THEN
4526: IF (l_debug = 1)
4527: THEN
4528: inv_log_util.TRACE ('Failure from WIP processTemp!!'
4529: , 'INV_TXN_MANAGER_PUB'
4530: , 1
4531: );
4532: END IF;
4557: l_error_code := fnd_message.get;
4558:
4559: IF (l_debug = 1)
4560: THEN
4561: inv_log_util.TRACE ( 'PROCESS_LPN_TRX failed for header_id '
4562: || l_header_id
4563: , 'INV_TXN_MANAGER_PUB'
4564: , 1
4565: );
4562: || l_header_id
4563: , 'INV_TXN_MANAGER_PUB'
4564: , 1
4565: );
4566: inv_log_util.TRACE ('Error.... ' || l_error_exp
4567: , 'INV_TXN_MANAGER_PUB'
4568: , 9
4569: );
4570: END IF;
4595: DELETE FROM MTL_MATERIAL_TRANSACTIONS_TEMP
4596: WHERE TRANSACTION_HEADER_ID = l_header_id;
4597:
4598: IF (l_debug = 1) THEN
4599: inv_log_util.trace('Deleted MSNT/MTLT/MMTT for header_id ' || l_header_id, 'INV_TXN_MANAGER_PUB',1);
4600: END IF;
4601:
4602: -- End of change for bug 5748351
4603:
4610: END IF;
4611:
4612: IF (l_debug = 1)
4613: THEN
4614: inv_log_util.TRACE ('After process_lpn_trx without errors'
4615: , 'INV_TXN_MANAGER_PUB'
4616: , 9
4617: );
4618: END IF;
4625: IF (FIRST)
4626: THEN
4627: IF (l_debug = 1)
4628: THEN
4629: inv_log_util.TRACE ('Calling bflushchk', 'INV_TXN_MANAGER_PUB'
4630: , 9);
4631: END IF;
4632:
4633: IF (NOT bflushchk (l_header_id))
4635: l_error_code := fnd_message.get;
4636:
4637: IF (l_debug = 1)
4638: THEN
4639: inv_log_util.TRACE ( 'Error in bflushchk header_id:'
4640: || l_header_id
4641: || ' - '
4642: || l_error_code
4643: , 'INV_TXN_MANAGER_PUB'
4655: l_disp := fnd_message.get;
4656:
4657: IF (l_debug = 1)
4658: THEN
4659: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4660: END IF;
4661:
4662: SELECT COUNT (*)
4663: INTO l_totrows
4665: WHERE transaction_header_id = l_header_id AND process_flag = 'Y';
4666:
4667: IF (l_debug = 1)
4668: THEN
4669: inv_log_util.TRACE ('totrows is ' || l_totrows
4670: , 'INV_TXN_MANAGER_PUB'
4671: , 9
4672: );
4673: END IF;
4692: l_disp := fnd_message.get;
4693:
4694: IF (l_debug = 1)
4695: THEN
4696: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4697: END IF;
4698: ELSE
4699: done := TRUE;
4700: FIRST := FALSE;
4712: l_disp := fnd_message.get;
4713:
4714: IF (l_debug = 1)
4715: THEN
4716: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4717: END IF;
4718:
4719: done := TRUE;
4720: END IF;
4727: l_disp := fnd_message.get;
4728:
4729: IF (l_debug = 1)
4730: THEN
4731: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4732: inv_log_util.TRACE ( l_initotrows
4733: - l_midtotrows
4734: || ' Transactions did not pass validation'
4735: , 'INV_TXN_MANAGER_PUB'
4728:
4729: IF (l_debug = 1)
4730: THEN
4731: inv_log_util.TRACE (l_disp, 'INV_TXN_MANAGER_PUB', 9);
4732: inv_log_util.TRACE ( l_initotrows
4733: - l_midtotrows
4734: || ' Transactions did not pass validation'
4735: , 'INV_TXN_MANAGER_PUB'
4736: , 9
4748: WHEN OTHERS
4749: THEN
4750: IF (l_debug = 1)
4751: THEN
4752: inv_log_util.TRACE ('*** SQL error ' || SUBSTR (SQLERRM, 1, 200)
4753: , 'INV_TXN_MANAGER_PUB'
4754: , 9
4755: );
4756: END IF;
4883: WHEN OTHERS
4884: THEN
4885: IF (l_debug = 1)
4886: THEN
4887: inv_log_util.TRACE ('Error in insert_relief'
4888: , 'INV_TXN_MANAGER_PUB'
4889: , 9
4890: );
4891: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
4887: inv_log_util.TRACE ('Error in insert_relief'
4888: , 'INV_TXN_MANAGER_PUB'
4889: , 9
4890: );
4891: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
4892: , 'INV_TXN_MANAGER_PUB'
4893: , '9'
4894: );
4895: END IF;
4938: WHEN OTHERS
4939: THEN
4940: IF (l_debug = 1)
4941: THEN
4942: inv_log_util.TRACE ('Error in mrp_ship_order'
4943: , 'INV_TXN_MANAGER_PUB'
4944: , 9
4945: );
4946: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
4942: inv_log_util.TRACE ('Error in mrp_ship_order'
4943: , 'INV_TXN_MANAGER_PUB'
4944: , 9
4945: );
4946: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
4947: , 'INV_TXN_MANAGER_PUB'
4948: , '9'
4949: );
4950: END IF;
5163: l_debug := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
5164: END IF;
5165:
5166: IF (l_debug = 1) THEN
5167: inv_log_util.TRACE ('$Header: INVTXMGB.pls 120.28 2007/11/12 22:43:39 yssingh ship $' , l_procedure_name , 9);
5168: END IF;
5169:
5170: l_progress_indicator := '10';
5171:
5207:
5208: IF z1%NOTFOUND THEN
5209: l_progress_indicator := '40';
5210: IF (l_debug = 1) THEN
5211: inv_log_util.TRACE ('No more rows to validate quantity'
5212: , l_procedure_name
5213: , 9
5214: );
5215: END IF;
5236: /*** free cache ***/
5237: IF p_line_rec_type.transaction_interface_id IS NULL THEN
5238:
5239: IF (l_debug = 1) THEN
5240: inv_log_util.TRACE ('Interface Id is NULL'
5241: , l_procedure_name
5242: , 9
5243: );
5244: END IF;
5289: --g_pick_release_no
5290: );
5291:
5292: IF l_return_status = fnd_api.g_ret_sts_error THEN
5293: inv_log_util.TRACE
5294: ( 'Error while creating tree : x_msg_data = '
5295: || l_msg_data
5296: , l_procedure_name
5297: , 9
5303: RAISE fnd_api.g_exc_error;
5304: END IF;
5305:
5306: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5307: inv_log_util.TRACE ( 'Unexpected Error while creating tree : '
5308: || l_msg_data
5309: , l_procedure_name
5310: , 9
5311: );
5325:
5326: END IF;
5327:
5328: IF (l_debug = 1) THEN
5329: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5330: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5331: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5332: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5333: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5326: END IF;
5327:
5328: IF (l_debug = 1) THEN
5329: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5330: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5331: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5332: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5333: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5334: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5327:
5328: IF (l_debug = 1) THEN
5329: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5330: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5331: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5332: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5333: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5334: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5335: END IF;
5328: IF (l_debug = 1) THEN
5329: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5330: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5331: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5332: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5333: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5334: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5335: END IF;
5336:
5329: inv_log_util.TRACE ('tree id : '||l_tree_id , l_procedure_name , 9);
5330: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5331: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5332: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5333: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5334: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5335: END IF;
5336:
5337: l_progress_indicator := '100';
5330: inv_log_util.TRACE ('Revision is : '||l_rev , l_procedure_name , 9);
5331: inv_log_util.TRACE ('Lot is : '||l_lotnum , l_procedure_name , 9);
5332: inv_log_util.TRACE ('Sub is : '||l_sub_code , l_procedure_name , 9);
5333: inv_log_util.TRACE ('Xfr Sub is : '||l_xfrsub , l_procedure_name , 9);
5334: inv_log_util.TRACE ('Locator is : '||l_locid , l_procedure_name , 9);
5335: END IF;
5336:
5337: l_progress_indicator := '100';
5338: inv_quantity_tree_pvt.query_tree
5356: , x_atr => l_atr
5357: );
5358:
5359: IF l_return_status = fnd_api.g_ret_sts_error THEN
5360: inv_log_util.TRACE ( 'Expected Error while querying tree : '
5361: || l_msg_data
5362: , l_procedure_name
5363: , 9
5364: );
5369: RAISE fnd_api.g_exc_error;
5370: END IF;
5371:
5372: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5373: inv_log_util.TRACE ( 'UnExpected Error while querying tree : '
5374: || l_msg_data
5375: , l_procedure_name
5376: , 9
5377: );
5383: END IF;
5384:
5385: l_progress_indicator := '110';
5386: IF (l_debug = 1) THEN
5387: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5388: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5384:
5385: l_progress_indicator := '110';
5386: IF (l_debug = 1) THEN
5387: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5388: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5392: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5385: l_progress_indicator := '110';
5386: IF (l_debug = 1) THEN
5387: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5388: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5392: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5393: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5386: IF (l_debug = 1) THEN
5387: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5388: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5392: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5393: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5394: END IF;
5387: inv_log_util.TRACE ('L_QOH : ' || l_qoh, l_procedure_name, 9);
5388: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5392: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5393: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5394: END IF;
5395:
5388: inv_log_util.TRACE ('L_RQOH : ' || l_rqoh, l_procedure_name, 9);
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5392: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5393: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5394: END IF;
5395:
5396: /* Bug: 3462946 : Added the code below to check for Negative Balances for a Negative Balances Allowed Org */
5389: inv_log_util.TRACE ('L_PQOH : ' || l_pqoh, l_procedure_name, 9);
5390: inv_log_util.TRACE ('L_QR : ' || l_qr, l_procedure_name, 9);
5391: inv_log_util.TRACE ('L_QS : ' || l_qs, l_procedure_name, 9);
5392: inv_log_util.TRACE ('L_ATT : ' || l_att, l_procedure_name, 9);
5393: inv_log_util.TRACE ('L_ATR : ' || l_atr, l_procedure_name, 9);
5394: END IF;
5395:
5396: /* Bug: 3462946 : Added the code below to check for Negative Balances for a Negative Balances Allowed Org */
5397: IF l_att < 0 THEN
5395:
5396: /* Bug: 3462946 : Added the code below to check for Negative Balances for a Negative Balances Allowed Org */
5397: IF l_att < 0 THEN
5398: l_progress_indicator := '120';
5399: inv_log_util.TRACE ('l_att is than zero', l_procedure_name, 9);
5400:
5401: IF (l_neg_inv_rcpt = 1) THEN
5402: l_progress_indicator := '130';
5403: inv_log_util.TRACE ('Negative Balance Allowed Org '
5399: inv_log_util.TRACE ('l_att is than zero', l_procedure_name, 9);
5400:
5401: IF (l_neg_inv_rcpt = 1) THEN
5402: l_progress_indicator := '130';
5403: inv_log_util.TRACE ('Negative Balance Allowed Org '
5404: , l_procedure_name
5405: , 9
5406: );
5407:
5405: , 9
5406: );
5407:
5408: IF (l_qr > 0 OR l_qs > 0) THEN
5409: inv_log_util.TRACE (
5410: 'Transaction quantity must be less than or equal to available quantity'
5411: , l_procedure_name
5412: , 9
5413: );
5439: , x_atr => l_item_atr
5440: );
5441:
5442: IF l_return_status = fnd_api.g_ret_sts_error THEN
5443: inv_log_util.TRACE
5444: ( 'Expected Error while querying tree : '
5445: || l_msg_data
5446: , l_procedure_name
5447: , 9
5453: RAISE fnd_api.g_exc_error;
5454: END IF;
5455:
5456: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5457: inv_log_util.TRACE
5458: ( 'UnExpected Error while querying tree : '
5459: || l_msg_data
5460: , l_procedure_name
5461: , 9
5469: END IF;
5470:
5471: l_progress_indicator := '150';
5472: IF (l_debug = 1) THEN
5473: inv_log_util.TRACE ('L_ITEM_QOH : ' || l_item_qoh
5474: , l_procedure_name
5475: , 9
5476: );
5477: inv_log_util.TRACE ('L_ITEM_RQOH : ' || l_item_rqoh
5473: inv_log_util.TRACE ('L_ITEM_QOH : ' || l_item_qoh
5474: , l_procedure_name
5475: , 9
5476: );
5477: inv_log_util.TRACE ('L_ITEM_RQOH : ' || l_item_rqoh
5478: , l_procedure_name
5479: , 9
5480: );
5481: inv_log_util.TRACE ('L_ITEM_PQOH : ' || l_item_pqoh
5477: inv_log_util.TRACE ('L_ITEM_RQOH : ' || l_item_rqoh
5478: , l_procedure_name
5479: , 9
5480: );
5481: inv_log_util.TRACE ('L_ITEM_PQOH : ' || l_item_pqoh
5482: , l_procedure_name
5483: , 9
5484: );
5485: inv_log_util.TRACE ('L_ITEM_QR : ' || l_item_qr
5481: inv_log_util.TRACE ('L_ITEM_PQOH : ' || l_item_pqoh
5482: , l_procedure_name
5483: , 9
5484: );
5485: inv_log_util.TRACE ('L_ITEM_QR : ' || l_item_qr
5486: , l_procedure_name
5487: , 9
5488: );
5489: inv_log_util.TRACE ('L_ITEM_QS : ' || l_item_qs
5485: inv_log_util.TRACE ('L_ITEM_QR : ' || l_item_qr
5486: , l_procedure_name
5487: , 9
5488: );
5489: inv_log_util.TRACE ('L_ITEM_QS : ' || l_item_qs
5490: , l_procedure_name
5491: , 9
5492: );
5493: inv_log_util.TRACE ('L_ITEM_ATT : ' || l_item_att
5489: inv_log_util.TRACE ('L_ITEM_QS : ' || l_item_qs
5490: , l_procedure_name
5491: , 9
5492: );
5493: inv_log_util.TRACE ('L_ITEM_ATT : ' || l_item_att
5494: , l_procedure_name
5495: , 9
5496: );
5497: inv_log_util.TRACE ('L_ITEM_ATR : ' || l_item_atr
5493: inv_log_util.TRACE ('L_ITEM_ATT : ' || l_item_att
5494: , l_procedure_name
5495: , 9
5496: );
5497: inv_log_util.TRACE ('L_ITEM_ATR : ' || l_item_atr
5498: , l_procedure_name
5499: , 9
5500: );
5501: inv_log_util.TRACE ('L_TRX_QTY : ' || l_trx_qty
5497: inv_log_util.TRACE ('L_ITEM_ATR : ' || l_item_atr
5498: , l_procedure_name
5499: , 9
5500: );
5501: inv_log_util.TRACE ('L_TRX_QTY : ' || l_trx_qty
5502: , l_procedure_name
5503: , 9
5504: );
5505: END IF;
5513: * reservations should not be checked
5514: */
5515: l_progress_indicator := '170';
5516: IF ( l_srctypeid = 13 AND l_actid = 2 AND l_trxtypeid not in (66,67,68) ) THEN
5517: inv_log_util.trace(
5518: 'Do not check high level reservations for subinventory and backflush transfers'
5519: ,l_procedure_name
5520: ,9
5521: );
5519: ,l_procedure_name
5520: ,9
5521: );
5522: ELSE
5523: inv_log_util.TRACE (
5524: 'Total Org quantity cannot become negative when there are reservations present'
5525: ,l_procedure_name
5526: ,9
5527: );
5568: RETURN TRUE;
5569:
5570: EXCEPTION
5571: WHEN OTHERS THEN
5572: inv_log_util.TRACE ('At indicator : ' || l_progress_indicator, l_procedure_name, 9);
5573: inv_log_util.TRACE ('Error in post_temp_validation : ' || l_error_code
5574: , l_procedure_name
5575: , '1'
5576: );
5569:
5570: EXCEPTION
5571: WHEN OTHERS THEN
5572: inv_log_util.TRACE ('At indicator : ' || l_progress_indicator, l_procedure_name, 9);
5573: inv_log_util.TRACE ('Error in post_temp_validation : ' || l_error_code
5574: , l_procedure_name
5575: , '1'
5576: );
5577: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5573: inv_log_util.TRACE ('Error in post_temp_validation : ' || l_error_code
5574: , l_procedure_name
5575: , '1'
5576: );
5577: inv_log_util.TRACE ('SQL : ' || SUBSTR (SQLERRM, 1, 200)
5578: , l_procedure_name
5579: , '1'
5580: );
5581: x_errd_int_id := -9876;
5702: l_debug := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
5703: END IF;
5704:
5705: IF (l_debug = 1) THEN
5706: inv_log_util.TRACE ('$Header: INVTXMGB.pls 120.28 2007/11/12 22:43:39 yssingh ship $', l_procedure_name,9);
5707: END IF;
5708:
5709:
5710: IF (g_userid IS NULL) THEN
5714: l_userid := g_userid;
5715: l_loginid := NVL(fnd_global.login_id, -1);
5716:
5717: IF (l_debug = 1) THEN
5718: inv_log_util.TRACE ('USERID :' || l_userid
5719: , l_procedure_name
5720: , 9
5721: );
5722: inv_log_util.TRACE ('LoginId :' || l_loginid
5718: inv_log_util.TRACE ('USERID :' || l_userid
5719: , l_procedure_name
5720: , 9
5721: );
5722: inv_log_util.TRACE ('LoginId :' || l_loginid
5723: , l_procedure_name
5724: , 9
5725: );
5726: END IF;
5760:
5761: IF c1%NOTFOUND THEN
5762: l_progress_indicator := '30';
5763: IF (l_debug = 1) THEN
5764: inv_log_util.TRACE ('No more rows to relieve'
5765: , l_procedure_name
5766: , 9
5767: );
5768: END IF;
5796: , x_wip_job_type => l_wip_job_type
5797: );
5798:
5799: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5800: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5801: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5802: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5803: END IF;
5804:
5798:
5799: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5800: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5801: ELSIF (l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
5802: inv_log_util.TRACE ('Return status from get wip entity. ' ||l_return_status, l_procedure_name, 9);
5803: END IF;
5804:
5805: END IF; -- job_schedule
5806:
5805: END IF; -- job_schedule
5806:
5807: l_progress_indicator := '60';
5808: IF (l_debug = 1) THEN
5809: inv_log_util.TRACE ('Wip entity type ' || l_wip_entity_type, l_procedure_name, 9);
5810: inv_log_util.TRACE ('l_srctypeid ' || l_srctypeid, l_procedure_name, 9);
5811: END IF;
5812:
5813: IF ((l_srctypeid = job_schedule) AND (l_wip_entity_type =
5806:
5807: l_progress_indicator := '60';
5808: IF (l_debug = 1) THEN
5809: inv_log_util.TRACE ('Wip entity type ' || l_wip_entity_type, l_procedure_name, 9);
5810: inv_log_util.TRACE ('l_srctypeid ' || l_srctypeid, l_procedure_name, 9);
5811: END IF;
5812:
5813: IF ((l_srctypeid = job_schedule) AND (l_wip_entity_type =
5814: inv_reservation_global.g_wip_source_type_cmro)) THEN
5821: l_src_code := fnd_api.g_miss_char;
5822: END IF;
5823:
5824: IF (l_debug = 1) THEN
5825: inv_log_util.trace('l_src_code is: ' || l_src_code, l_procedure_name, 9);
5826: END IF;
5827:
5828: l_progress_indicator := '70';
5829:
5831: -- Removed inline code branching related to INCONV/ K release
5832: IF ( NOT ((l_srctypeid = job_schedule) AND (l_wip_entity_type <> inv_reservation_global.g_wip_source_type_cmro))) THEN
5833: l_progress_indicator := '80';
5834: IF (l_debug = 1) THEN
5835: inv_log_util.TRACE ('Inside rsv_relief', l_procedure_name, 9);
5836: END IF;
5837: -- End changes for Bug 4764790
5838: inv_trx_relief_c_pvt.rsv_relief
5839: (x_return_status => l_return_status
5879: WHILE (l_total_prim_qty_to_relieve > 0) AND (l_loop_exit = 0)
5880: LOOP
5881: l_progress_indicator := '110';
5882: IF (l_debug = 1) THEN
5883: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
5884: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
5885: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
5886: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
5887: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
5880: LOOP
5881: l_progress_indicator := '110';
5882: IF (l_debug = 1) THEN
5883: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
5884: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
5885: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
5886: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
5887: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
5888: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
5881: l_progress_indicator := '110';
5882: IF (l_debug = 1) THEN
5883: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
5884: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
5885: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
5886: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
5887: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
5888: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
5889: END IF;
5882: IF (l_debug = 1) THEN
5883: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
5884: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
5885: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
5886: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
5887: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
5888: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
5889: END IF;
5890:
5883: inv_log_util.trace('l_rel_lpn_id : ' || l_rel_lpn_id, l_procedure_name, 9);
5884: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
5885: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
5886: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
5887: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
5888: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
5889: END IF;
5890:
5891: IF (l_rel_lpn_id is not null) THEN
5884: inv_log_util.trace('l_rel_loc_id : ' || l_rel_loc_id, l_procedure_name, 9);
5885: inv_log_util.trace('l_rel_sub_code : ' || l_rel_sub_code, l_procedure_name, 9);
5886: inv_log_util.trace('l_rel_lot_num : ' || l_rel_lot_num, l_procedure_name, 9);
5887: inv_log_util.trace('l_rel_revision : ' || l_rel_revision, l_procedure_name, 9);
5888: inv_log_util.trace('l_loop_exit. before call : ' || l_loop_exit, l_procedure_name, 9);
5889: END IF;
5890:
5891: IF (l_rel_lpn_id is not null) THEN
5892: l_rel_lpn_id := null;
5898: l_rel_lot_num := null;
5899: ELSIF (l_rel_revision is not null) THEN
5900: l_rel_revision := null;
5901: l_loop_exit := 1;
5902: inv_log_util.trace('Setting revision to null : ' || l_loop_exit, l_procedure_name, 9);
5903: END IF;
5904:
5905: l_progress_indicator := '120';
5906: inv_trx_relief_c_pvt.rsv_relief
5935: l_rel_revision IS NULL) THEN
5936: l_loop_exit := 1;
5937: END IF;
5938:
5939: inv_log_util.trace('l_loop_exit. After call ' || l_loop_exit, l_procedure_name, 9);
5940: END LOOP;
5941: l_ship_qty := l_trx_qty - l_total_prim_qty_to_relieve;
5942: END IF; -- relieve_reservations flag..
5943: /*** End R12 }} ***/
5943: /*** End R12 }} ***/
5944: END IF;
5945:
5946: IF (l_debug = 1) THEN
5947: inv_log_util.TRACE ('l_return_status : ' || l_return_status
5948: , l_procedure_name
5949: , 9
5950: );
5951: inv_log_util.TRACE ('l_ship_qty : ' || l_ship_qty
5947: inv_log_util.TRACE ('l_return_status : ' || l_return_status
5948: , l_procedure_name
5949: , 9
5950: );
5951: inv_log_util.TRACE ('l_ship_qty : ' || l_ship_qty
5952: , l_procedure_name
5953: , 9
5954: );
5955: inv_log_util.TRACE ('l_userline : ' || l_userline
5951: inv_log_util.TRACE ('l_ship_qty : ' || l_ship_qty
5952: , l_procedure_name
5953: , 9
5954: );
5955: inv_log_util.TRACE ('l_userline : ' || l_userline
5956: , l_procedure_name
5957: , 9
5958: );
5959: inv_log_util.TRACE ('l_demand_class : ' || l_demand_class
5955: inv_log_util.TRACE ('l_userline : ' || l_userline
5956: , l_procedure_name
5957: , 9
5958: );
5959: inv_log_util.TRACE ('l_demand_class : ' || l_demand_class
5960: , l_procedure_name
5961: , 9
5962: );
5963: inv_log_util.TRACE ('l_mps_flag : ' || l_mps_flag
5959: inv_log_util.TRACE ('l_demand_class : ' || l_demand_class
5960: , l_procedure_name
5961: , 9
5962: );
5963: inv_log_util.TRACE ('l_mps_flag : ' || l_mps_flag
5964: , l_procedure_name
5965: , 9
5966: );
5967: inv_log_util.TRACE ('l_org_id : ' || l_org_id
5963: inv_log_util.TRACE ('l_mps_flag : ' || l_mps_flag
5964: , l_procedure_name
5965: , 9
5966: );
5967: inv_log_util.TRACE ('l_org_id : ' || l_org_id
5968: , l_procedure_name
5969: , 9
5970: );
5971: inv_log_util.TRACE ('l_item_id : ' || l_item_id
5967: inv_log_util.TRACE ('l_org_id : ' || l_org_id
5968: , l_procedure_name
5969: , 9
5970: );
5971: inv_log_util.TRACE ('l_item_id : ' || l_item_id
5972: , l_procedure_name
5973: , 9
5974: );
5975: inv_log_util.TRACE ('l_sub_code: ' || l_sub_code
5971: inv_log_util.TRACE ('l_item_id : ' || l_item_id
5972: , l_procedure_name
5973: , 9
5974: );
5975: inv_log_util.TRACE ('l_sub_code: ' || l_sub_code
5976: , l_procedure_name
5977: , 9
5978: );
5979: inv_log_util.TRACE ('l_locid : ' || l_locid, l_procedure_name, 9);
5975: inv_log_util.TRACE ('l_sub_code: ' || l_sub_code
5976: , l_procedure_name
5977: , 9
5978: );
5979: inv_log_util.TRACE ('l_locid : ' || l_locid, l_procedure_name, 9);
5980: inv_log_util.TRACE ('l_lotnum : ' || l_lotnum
5981: , l_procedure_name
5982: , 9
5983: );
5976: , l_procedure_name
5977: , 9
5978: );
5979: inv_log_util.TRACE ('l_locid : ' || l_locid, l_procedure_name, 9);
5980: inv_log_util.TRACE ('l_lotnum : ' || l_lotnum
5981: , l_procedure_name
5982: , 9
5983: );
5984: inv_log_util.TRACE ('l_rev : ' || l_rev, l_procedure_name, 9);
5980: inv_log_util.TRACE ('l_lotnum : ' || l_lotnum
5981: , l_procedure_name
5982: , 9
5983: );
5984: inv_log_util.TRACE ('l_rev : ' || l_rev, l_procedure_name, 9);
5985: inv_log_util.TRACE ('l_srctypeid : ' || l_srctypeid
5986: , l_procedure_name
5987: , 9
5988: );
5981: , l_procedure_name
5982: , 9
5983: );
5984: inv_log_util.TRACE ('l_rev : ' || l_rev, l_procedure_name, 9);
5985: inv_log_util.TRACE ('l_srctypeid : ' || l_srctypeid
5986: , l_procedure_name
5987: , 9
5988: );
5989: inv_log_util.TRACE ('l_header_id ' || l_srcid
5985: inv_log_util.TRACE ('l_srctypeid : ' || l_srctypeid
5986: , l_procedure_name
5987: , 9
5988: );
5989: inv_log_util.TRACE ('l_header_id ' || l_srcid
5990: , l_procedure_name
5991: , 9
5992: );
5993: inv_log_util.TRACE ('l_dsrc_name : ' || l_src_code
5989: inv_log_util.TRACE ('l_header_id ' || l_srcid
5990: , l_procedure_name
5991: , 9
5992: );
5993: inv_log_util.TRACE ('l_dsrc_name : ' || l_src_code
5994: , l_procedure_name
5995: , 9
5996: );
5997: inv_log_util.TRACE ('l_dsrc_line : ' || l_srclineid
5993: inv_log_util.TRACE ('l_dsrc_name : ' || l_src_code
5994: , l_procedure_name
5995: , 9
5996: );
5997: inv_log_util.TRACE ('l_dsrc_line : ' || l_srclineid
5998: , l_procedure_name
5999: , 9
6000: );
6001: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
5997: inv_log_util.TRACE ('l_dsrc_line : ' || l_srclineid
5998: , l_procedure_name
5999: , 9
6000: );
6001: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6002: , l_procedure_name
6003: , 9
6004: );
6005: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6001: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6002: , l_procedure_name
6003: , 9
6004: );
6005: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6006: , l_procedure_name
6007: , 9
6008: );
6009: inv_log_util.TRACE ('l_trx_qty : ' || l_trx_qty
6005: inv_log_util.TRACE ('l_dsrc_delivery :' || l_deliveryid
6006: , l_procedure_name
6007: , 9
6008: );
6009: inv_log_util.TRACE ('l_trx_qty : ' || l_trx_qty
6010: , l_procedure_name
6011: , 9
6012: );
6013: inv_log_util.TRACE ('l_lpnid : ' || l_lpnid, l_procedure_name, 9);
6009: inv_log_util.TRACE ('l_trx_qty : ' || l_trx_qty
6010: , l_procedure_name
6011: , 9
6012: );
6013: inv_log_util.TRACE ('l_lpnid : ' || l_lpnid, l_procedure_name, 9);
6014: END IF;
6015:
6016: p_res_sts := l_return_status;
6017: p_res_msg := l_msg_data;
6018: p_res_count := l_msg_count;
6019:
6020: IF l_return_status <> fnd_api.g_ret_sts_success THEN
6021: IF (l_debug = 1) THEN
6022: inv_log_util.TRACE ('x_msg_data = ' || l_msg_data
6023: , l_procedure_name
6024: , 9
6025: );
6026: inv_log_util.TRACE ('Before error return in TrxRsvRelief'
6022: inv_log_util.TRACE ('x_msg_data = ' || l_msg_data
6023: , l_procedure_name
6024: , 9
6025: );
6026: inv_log_util.TRACE ('Before error return in TrxRsvRelief'
6027: , l_procedure_name
6028: , 9
6029: );
6030: END IF;
6030: END IF;
6031: RETURN;
6032: ELSE -- return success
6033: IF (l_debug = 1) THEN
6034: inv_log_util.TRACE ('Reservation was successfully relieved'
6035: , l_procedure_name
6036: , 9
6037: );
6038: END IF;
6039:
6040: IF (ABS (l_trx_qty) <> 0) AND (l_srctypeid = salorder OR l_srctypeid = intorder)
6041: AND (l_mps_flag <> 0) THEN
6042: IF (l_debug = 1) THEN
6043: inv_log_util.TRACE ('Calling mrp_ship_order'
6044: , l_procedure_name
6045: , 9
6046: );
6047: END IF;
6055: , l_demand_class
6056: )
6057: ) THEN
6058: IF (l_debug = 1) THEN
6059: inv_log_util.TRACE ('mrp_ship_order failure'
6060: , l_procedure_name
6061: , 9
6062: );
6063: END IF;
6065: RETURN;
6066: END IF; -- return success
6067:
6068: IF (l_debug = 1) THEN
6069: inv_log_util.TRACE ('After mrp__order', l_procedure_name, 9);
6070: END IF;
6071: END IF; -- ABS(l_trx..)
6072:
6073: END IF; -- return success
6074:
6075: IF l_ship_qty <> ABS (l_trx_qty) THEN --in this case there
6076:
6077: IF (l_debug = 1) THEN
6078: inv_log_util.TRACE ( 'l_PRIMARY_QUANTITY: '
6079: || l_line_rec_type.primary_quantity
6080: , l_procedure_name
6081: , 9
6082: );
6079: || l_line_rec_type.primary_quantity
6080: , l_procedure_name
6081: , 9
6082: );
6083: inv_log_util.TRACE ( 'l_transaction_action_id: '
6084: || l_line_rec_type.transaction_action_id
6085: , l_procedure_name
6086: , 9
6087: );
6084: || l_line_rec_type.transaction_action_id
6085: , l_procedure_name
6086: , 9
6087: );
6088: inv_log_util.TRACE ( 'l_process_flag :'
6089: || l_line_rec_type.process_flag
6090: , l_procedure_name
6091: , 9
6092: );
6089: || l_line_rec_type.process_flag
6090: , l_procedure_name
6091: , 9
6092: );
6093: inv_log_util.TRACE ( 'l_shippable_flag : '
6094: || l_line_rec_type.shippable_flag
6095: , l_procedure_name
6096: , 9
6097: );
6167: ) ;
6168:
6169: IF l_return_status = fnd_api.g_ret_sts_error THEN
6170: IF (l_debug = 1) THEN
6171: inv_log_util.trace('Error while creating tree : x_msg_data = ' || l_msg_data,l_procedure_name, 9);
6172: END IF;
6173: FND_MESSAGE.set_name('INV','INV_ERR_CREATETREE');
6174: FND_MESSAGE.set_token('ROUTINE','UE:AVAIL_TO_TRX');
6175:
6179: END IF ;
6180:
6181: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6182: IF (l_debug = 1) THEN
6183: inv_log_util.trace('Unexpected Error while creating tree : ' || l_msg_data,l_procedure_name, 9);
6184: END IF;
6185: l_error_exp := l_msg_data;
6186: RAISE fnd_api.g_exc_unexpected_error;
6187: END IF;
6189: g_interface_id := l_line_rec_type.transaction_interface_id;
6190: tree_exists := TRUE;
6191: g_tree_id := l_tree_id;
6192: IF (l_debug = 1) THEN
6193: inv_log_util.trace('Tree id is '||g_tree_id, l_procedure_name, 9);
6194: END IF;
6195:
6196: END IF; /* interface id has changed */
6197: --qty-tree validation
6236: AND process_flag = 1;
6237:
6238: IF (l_debug = 1)
6239: THEN
6240: inv_log_util.TRACE
6241: ('After Error in post_temp_validation continue...'
6242: , l_procedure_name
6243: , 9
6244: );
6261: , x_msg_data => l_msg_data);
6262: END IF;
6263: EXCEPTION
6264: WHEN OTHERS THEN
6265: inv_log_util.TRACE ( '***Undef Error Ex..rel_res : '
6266: || SUBSTR (SQLERRM, 1, 200)
6267: , l_procedure_name
6268: , '9'
6269: );
6266: || SUBSTR (SQLERRM, 1, 200)
6267: , l_procedure_name
6268: , '9'
6269: );
6270: inv_log_util.TRACE ( 'When others Ex..rel_reservations_mrp_update '
6271: || l_error_code
6272: , l_procedure_name
6273: , '1'
6274: );