[Home] [Help]
2462: ) IS
2463: rsh rcv_shipment_headers%ROWTYPE;
2464: BEGIN
2465: IF (rhi.receipt_header_id IS NOT NULL) THEN
2466: rsh := rcv_table_functions.get_rsh_row_from_id(rhi.receipt_header_id);
2467: ELSIF(rhi.shipment_num IS NOT NULL) THEN
2468: --Bug 9005670 Added receipt_source_code in the below procedre call.
2469: rsh := rcv_table_functions.get_rsh_row_from_num(rhi.shipment_num,
2470: rhi.vendor_id,
2465: IF (rhi.receipt_header_id IS NOT NULL) THEN
2466: rsh := rcv_table_functions.get_rsh_row_from_id(rhi.receipt_header_id);
2467: ELSIF(rhi.shipment_num IS NOT NULL) THEN
2468: --Bug 9005670 Added receipt_source_code in the below procedre call.
2469: rsh := rcv_table_functions.get_rsh_row_from_num(rhi.shipment_num,
2470: rhi.vendor_id,
2471: rhi.vendor_site_id,
2472: rhi.ship_to_organization_id,
2473: rhi.shipped_date,
2797: /* If this row does not have a header_interface_id it is possible that the
2798: parent_interface_txn does. This extra query is free because of caching */
2799: IF ( rti.header_interface_id IS NULL
2800: AND rti.parent_interface_txn_id IS NOT NULL) THEN
2801: rti.header_interface_id := rcv_table_functions.get_rti_row_from_id(rti.parent_interface_txn_id).header_interface_id;
2802: END IF;
2803:
2804: IF (rti.header_interface_id IS NOT NULL) THEN
2805: rhi := rcv_table_functions.get_rhi_row_from_id(rti.header_interface_id);
2801: rti.header_interface_id := rcv_table_functions.get_rti_row_from_id(rti.parent_interface_txn_id).header_interface_id;
2802: END IF;
2803:
2804: IF (rti.header_interface_id IS NOT NULL) THEN
2805: rhi := rcv_table_functions.get_rhi_row_from_id(rti.header_interface_id);
2806: END IF;
2807:
2808: IF (rhi.header_interface_id IS NULL) THEN
2809: RETURN;
2818:
2819: IF ( rhi.GROUP_ID IS NULL
2820: AND rti.GROUP_ID IS NOT NULL) THEN
2821: rhi.GROUP_ID := rti.GROUP_ID;
2822: rcv_table_functions.update_rhi_row(rhi);
2823: END IF;
2824:
2825: IF (rti.GROUP_ID IS NULL) THEN
2826: rti.GROUP_ID := rhi.GROUP_ID;
3150: ) IS
3151: prti rcv_transactions_interface%ROWTYPE;
3152: BEGIN
3153: IF (rti.parent_interface_txn_id IS NOT NULL) THEN
3154: prti := rcv_table_functions.get_rti_row_from_id(rti.parent_interface_txn_id);
3155: END IF;
3156:
3157: IF (prti.interface_transaction_id IS NULL) THEN
3158: RETURN;
4353: ) IS
4354: rt rcv_transactions%ROWTYPE;
4355: BEGIN
4356: IF (rti.parent_transaction_id IS NOT NULL) THEN
4357: rt := rcv_table_functions.get_rt_row_from_id(rti.parent_transaction_id);
4358: END IF;
4359:
4360: IF (rt.transaction_id IS NULL) THEN
4361: RETURN;
4585:
4586: --Bug 13725088 lcm_shipment_line_id and unit_landed_cost should be defaulted from RT for all the
4587: --subsequent transactions after receipt if it is not populated.
4588:
4589: IF(rcv_table_functions.is_lcm_shipment (rti.po_line_location_id)='Y') THEN
4590: IF (rti.transaction_type not in ('SHIP','RECEIVE')) THEN
4591: IF(rti.lcm_shipment_line_id IS NULL) THEN
4592: rti.lcm_shipment_line_id:=rt.lcm_shipment_line_id;
4593: END IF;
4949: WHERE source_code = 'ORDER ENTRY'
4950: AND transaction_id = p_mmt_transaction_id;*/
4951: BEGIN
4952: IF (rti.shipment_line_id IS NOT NULL) THEN
4953: rsl := rcv_table_functions.get_rsl_row_from_id(rti.shipment_line_id);
4954: END IF;
4955:
4956: IF (rsl.shipment_line_id IS NULL) THEN
4957: RETURN;
5387: ) IS
5388: rsh rcv_shipment_headers%ROWTYPE;
5389: BEGIN
5390: IF (rti.shipment_header_id IS NOT NULL) THEN
5391: rsh := rcv_table_functions.get_rsh_row_from_id(rti.shipment_header_id);
5392: END IF;
5393:
5394: IF (rsh.shipment_header_id IS NULL) THEN
5395: RETURN;
5612: pod po_distributions_all%ROWTYPE;
5613: x_quantity NUMBER;
5614: BEGIN
5615: IF (rti.po_distribution_id IS NOT NULL) THEN
5616: pod := rcv_table_functions.get_pod_row_from_id(rti.po_distribution_id);
5617: END IF;
5618:
5619: IF (pod.po_distribution_id IS NULL) THEN
5620: RETURN;
5909: pll po_line_locations_all%ROWTYPE;
5910: x_quantity NUMBER;
5911: BEGIN
5912: IF (rti.po_line_location_id IS NOT NULL) THEN
5913: pll := rcv_table_functions.get_pll_row_from_id(rti.po_line_location_id);
5914: END IF;
5915:
5916: IF (pll.line_location_id IS NULL) THEN
5917: RETURN;
6200: pol po_lines_all%ROWTYPE;
6201: BEGIN
6202: asn_debug.put_line('Enter default_rti_from_pol');
6203: IF (rti.po_line_id IS NOT NULL) THEN
6204: pol := rcv_table_functions.get_pol_row_from_id(rti.po_line_id);
6205: END IF;
6206: asn_debug.put_line('Afte get_pol_row_from_id');
6207:
6208: IF (pol.po_line_id IS NULL) THEN
6453: ) IS
6454: poh po_headers_all%ROWTYPE;
6455: BEGIN
6456: IF (rti.po_header_id IS NOT NULL) THEN
6457: poh := rcv_table_functions.get_poh_row_from_id(rti.po_header_id);
6458: END IF;
6459:
6460: IF (poh.po_header_id IS NULL) THEN
6461: RETURN;
6610: ) IS
6611: oel oe_order_lines_all%ROWTYPE;
6612: BEGIN
6613: IF (rti.oe_order_line_id IS NOT NULL) THEN
6614: oel := rcv_table_functions.get_oel_row_from_id(rti.oe_order_line_id);
6615: END IF;
6616:
6617: IF (oel.line_id IS NULL) THEN
6618: RETURN;
6870: ) IS
6871: oeh oe_order_headers_all%ROWTYPE;
6872: BEGIN
6873: IF (rti.oe_order_header_id IS NOT NULL) THEN
6874: oeh := rcv_table_functions.get_oeh_row_from_id(rti.oe_order_header_id);
6875: END IF;
6876:
6877: IF (oeh.header_id IS NULL) THEN
6878: RETURN;
6980: IF (rti.expected_receipt_date IS NULL) THEN
6981: rti.expected_receipt_date := SYSDATE;
6982: END IF;
6983:
6984: x_receipt_num := rcv_table_functions.get_rsh_row_from_id(rti.shipment_header_id).receipt_num;
6985:
6986: INSERT INTO rcv_headers_interface
6987: (created_by,
6988: creation_date,
7174: IF (rhi.expected_receipt_date IS NULL) THEN
7175: rhi.expected_receipt_date := SYSDATE;
7176: END IF;
7177: EXCEPTION
7178: WHEN rcv_table_functions.e_fatal_error THEN
7179: rcv_error_pkg.log_interface_error(g_curr_table,
7180: rcv_table_functions.g_error_column,
7181: g_curr_group_id,
7182: g_curr_header_id,
7176: END IF;
7177: EXCEPTION
7178: WHEN rcv_table_functions.e_fatal_error THEN
7179: rcv_error_pkg.log_interface_error(g_curr_table,
7180: rcv_table_functions.g_error_column,
7181: g_curr_group_id,
7182: g_curr_header_id,
7183: g_curr_transaction_id
7184: );
7379:
7380: IF ( rti.shipment_header_id IS NULL
7381: AND rti.shipment_num IS NOT NULL) THEN
7382: --Bug 9005670 Added receipt_source_code in the below procedre call.
7383: rti.shipment_header_id := rcv_table_functions.get_rsh_row_from_num(rti.shipment_num,
7384: rti.vendor_id,
7385: rti.vendor_site_id,
7386: rti.to_organization_id,
7387: rti.shipped_date,
7393:
7394: IF ( rti.shipment_line_id IS NULL
7395: AND rti.shipment_header_id IS NOT NULL
7396: AND rti.document_shipment_line_num IS NOT NULL) THEN
7397: rti.shipment_line_id := rcv_table_functions.get_rsl_row_from_num(rti.document_shipment_line_num, rti.shipment_header_id).shipment_line_id; --Bug 8514736
7398: elapsed_time('get_rsl_row_from_num');
7399: END IF;
7400:
7401: IF ( rti.shipment_header_id IS NULL
7399: END IF;
7400:
7401: IF ( rti.shipment_header_id IS NULL
7402: AND rti.shipment_line_id IS NOT NULL) THEN
7403: rti.shipment_header_id := rcv_table_functions.get_rsl_row_from_id(rti.shipment_line_id).shipment_header_id;
7404: END IF;
7405:
7406: IF (rti.source_document_code in ('INVENTORY','REQ')) THEN -- BUG 8514736 add 'REQ'(Interal Order) to verify
7407: IF (rti.shipment_header_id IS NULL) THEN
7420:
7421: --The following defaults up the chain if a lower level id is provided
7422: IF ( rti.po_line_location_id IS NULL
7423: AND rti.po_distribution_id IS NOT NULL) THEN
7424: rti.po_line_location_id := rcv_table_functions.get_pod_row_from_id(rti.po_distribution_id).line_location_id;
7425: END IF;
7426:
7427: IF ( rti.po_line_id IS NULL
7428: AND rti.po_line_location_id IS NOT NULL) THEN
7425: END IF;
7426:
7427: IF ( rti.po_line_id IS NULL
7428: AND rti.po_line_location_id IS NOT NULL) THEN
7429: rti.po_line_id := rcv_table_functions.get_pll_row_from_id(rti.po_line_location_id).po_line_id;
7430: END IF;
7431:
7432: /* Bug 5299177
7433: * We were populating the value of po_header_id to rti.po_line_location_id instead
7434: * of rti.po_header_id. Changed it.
7435: */
7436: IF ( rti.po_header_id IS NULL
7437: AND rti.po_line_id IS NOT NULL) THEN
7438: rti.po_header_id := rcv_table_functions.get_pol_row_from_id(rti.po_line_id).po_header_id;
7439: END IF;
7440:
7441: IF ( rti.oe_order_header_id IS NULL
7442: AND rti.oe_order_line_id IS NOT NULL) THEN
7439: END IF;
7440:
7441: IF ( rti.oe_order_header_id IS NULL
7442: AND rti.oe_order_line_id IS NOT NULL) THEN
7443: rti.oe_order_header_id := rcv_table_functions.get_oel_row_from_id(rti.oe_order_line_id).header_id;
7444: END IF;
7445:
7446: IF (rti.transaction_type IN('UNORDERED', 'MATCH')) THEN
7447: rti.validation_flag := 'N';
7450:
7451: IF (rti.source_document_code = 'PO') THEN
7452: IF ( rti.po_header_id IS NULL
7453: AND rti.document_num IS NOT NULL) THEN
7454: rti.po_header_id := rcv_table_functions.get_poh_row_from_num(rti.document_num, rti.org_id).po_header_id;
7455: END IF;
7456:
7457: IF (rti.po_header_id IS NULL) THEN
7458: invalid_null_value('PO_HEADER_ID');
7458: invalid_null_value('PO_HEADER_ID');
7459: END IF;
7460:
7461: IF (rti.po_line_id IS NULL) THEN
7462: rti.po_line_id := rcv_table_functions.get_pol_row_from_num(rti.document_line_num,
7463: rti.po_header_id,
7464: rti.item_description,
7465: rti.vendor_item_num,
7466: rti.item_id
7479: END IF;
7480: /*End of Bug 12618848 */
7481:
7482: IF (rti.po_line_location_id IS NULL) THEN
7483: rti.po_line_location_id := rcv_table_functions.get_pll_row_from_num(rti.document_shipment_line_num, rti.po_line_id).line_location_id;
7484: END IF;
7485:
7486: /* It is OK not to have a shipment yet, this will get decided in the preprocessor
7487: IF (rti.po_line_location_id IS NULL) THEN
7489: END IF;
7490: */
7491:
7492: IF (rti.po_distribution_id IS NULL) THEN
7493: rti.po_distribution_id := rcv_table_functions.get_pod_row_from_num(rti.document_distribution_num, rti.po_line_location_id).po_distribution_id;
7494: END IF;
7495:
7496: /* It is OK not to have a distribution yet, this will get decided in the preprocessor
7497: IF (rti.po_distribution_id IS NULL) THEN
7528:
7529: IF ( rti.oe_order_header_id IS NULL
7530: AND rti.document_num IS NOT NULL) THEN
7531: /* WDK: NOTICE THE REVISION HACK FOR OE IS OVERLOADING PO_REVISION_NUM COLUMN */
7532: rti.oe_order_header_id := rcv_table_functions.get_oeh_row_from_num(rti.document_num,
7533: NULL, --WDK, not sure what should be here
7534: rti.po_revision_num,
7535: rti.org_id
7536: ).header_id;
7540: invalid_null_value('OE_ORDER_HEADER_ID');
7541: END IF;
7542:
7543: IF (rti.oe_order_line_id IS NULL) THEN
7544: rti.oe_order_line_id := rcv_table_functions.get_oel_row_from_num(rti.document_line_num, rti.oe_order_header_id).line_id;
7545: END IF;
7546:
7547: /* Bug 5158457. It is ok not to have line number. It will be
7548: * decided in the preprocessor code.
7553:
7554: elapsed_time('rma/req source doc defaulting');
7555: END IF;
7556:
7557: g_asn_type := nvl(rcv_table_functions.get_rsh_row_from_id(rti.shipment_header_id).asn_type,'@@@'); --Bug: 5598511
7558:
7559: default_rti_from_pod(rti);
7560: elapsed_time('default_rti_from_pod');
7561: default_rti_from_pll(rti);
7703:
7704: asn_debug.put_line('org_id = ' || rti.org_id);
7705: elapsed_time('END default_transaction');
7706: EXCEPTION
7707: WHEN rcv_table_functions.e_fatal_error THEN
7708: /* Bug 5584736.
7709: * We have a detailed defaulting routine for defaulting
7710: * subinventory and locator later. Commenting out this code
7711: * here since this is creating problems later.
7719: END IF;
7720: */
7721:
7722: rcv_error_pkg.log_interface_error(g_curr_table,
7723: rcv_table_functions.g_error_column,
7724: g_curr_group_id,
7725: g_curr_header_id,
7726: g_curr_transaction_id
7727: );