[Home] [Help]
130: PROCEDURE validate_uom(
131: x_uom_record IN OUT NOCOPY rcv_shipment_line_sv.quantity_shipped_record_type
132: ) IS
133: x_unit_of_measure rcv_transactions_interface.unit_of_measure%TYPE := NULL;
134: x_unit_meas_lookup_code_lines po_lines.unit_meas_lookup_code%TYPE := NULL;
135: x_progress VARCHAR2(3);
136: x_new_conversion NUMBER := 0;
137: x_cum_enabled chv_org_options.enable_cum_flag%TYPE := NULL;
138: x_supply_agreement_flag po_headers.supply_agreement_flag%TYPE := NULL;
205: END IF;
206:
207: SELECT NVL(MAX(unit_meas_lookup_code), 'notfound')
208: INTO x_unit_meas_lookup_code_lines
209: FROM po_lines
210: WHERE po_line_id = x_uom_record.po_line_id;
211:
212: IF (x_unit_meas_lookup_code_lines <> 'notfound')
213: AND (x_unit_meas_lookup_code_lines <> x_uom_record.unit_of_measure) THEN
292: ) IS -- bug 608353
293: x_progress VARCHAR2(3);
294: x_inventory_item mtl_system_items.inventory_item_id%TYPE := NULL;
295: x_organization_id mtl_system_items.organization_id%TYPE := NULL;
296: x_item_id_po po_lines.item_id%TYPE := NULL;
297: x_error_status VARCHAR2(1);
298: BEGIN
299: x_error_status := rcv_error_pkg.g_ret_sts_error;
300:
339: END IF;
340:
341: SELECT NVL(MAX(item_id), -9999)
342: INTO x_item_id_po
343: FROM po_lines
344: WHERE po_line_id = x_item_id_record.po_line_id
345: AND item_id = x_item_id_record.item_id;
346:
347: IF (x_item_id_po = -9999) THEN
364: thru ROI. If required we will incorporate later.
365: */
366: SELECT NVL(MAX(item_id), -9999)
367: INTO x_item_id_po
368: FROM po_lines
369: WHERE po_line_id = x_item_id_record.po_line_id
370: AND item_id = x_item_id_record.item_id;
371:
372: IF (x_item_id_po <> x_item_id_record.item_id) THEN
515: SELECT NVL(MAX(inventory_item_id), 0)
516: INTO x_inventory_item
517: FROM mtl_related_items
518: WHERE inventory_item_id = (SELECT item_id
519: FROM po_lines
520: WHERE po_line_id = x_sub_item_id_record.po_line_id)
521: AND related_item_id = x_sub_item_id_record.substitute_item_id
522: AND relationship_type_id = 2; -- substitute items
523: -- and organization_id = nvl(x_sub_item_id_record.to_organization_id,organization_id)
528: SELECT NVL(MAX(inventory_item_id), 0)
529: INTO x_inventory_item
530: FROM mtl_related_items
531: WHERE related_item_id = (SELECT item_id
532: FROM po_lines
533: WHERE po_line_id = x_sub_item_id_record.po_line_id)
534: AND inventory_item_id = x_sub_item_id_record.substitute_item_id
535: AND reciprocal_flag = 'Y'
536: AND relationship_type_id = 2;
601: return without any error, else return with error
602: */
603: SELECT NVL(MAX(po_line_id), 0)
604: INTO x_inventory_item
605: FROM po_lines
606: WHERE po_line_id = x_item_revision_record.po_line_id
607: AND NVL(item_revision, x_item_revision_record.item_revision) = x_item_revision_record.item_revision;
608:
609: IF (x_inventory_item <> 0) THEN
653: -- Check whether po_revision matches this revision if po_revision is not null
654:
655: SELECT NVL(MAX(po_line_id), 0)
656: INTO x_inventory_item
657: FROM po_lines
658: WHERE po_line_id = x_item_revision_record.po_line_id
659: AND NVL(item_revision, x_item_revision_record.item_revision) = x_item_revision_record.item_revision;
660:
661: IF (x_inventory_item = 0) THEN
687: x_ref_integrity_rec IN OUT NOCOPY rcv_shipment_line_sv.ref_integrity_record_type,
688: v_header_record IN rcv_shipment_header_sv.headerrectype
689: ) IS
690: x_po_vendor_id po_headers.vendor_id%TYPE := NULL;
691: x_po_line_id po_lines.po_line_id%TYPE;
692: x_po_vendor_site_id po_headers.vendor_site_id%TYPE := NULL;
693: x_progress VARCHAR2(3);
694: x_error_status VARCHAR2(1);
695: BEGIN
697:
698: IF (x_ref_integrity_rec.vendor_item_num IS NOT NULL) THEN
699: SELECT NVL(MAX(po_line_id), 0)
700: INTO x_po_line_id
701: FROM po_lines
702: WHERE po_line_id = x_ref_integrity_rec.po_line_id
703: AND vendor_product_num = x_ref_integrity_rec.vendor_item_num;
704:
705: IF (x_po_line_id = 0) THEN