1126: id NUMBER;
1127:
1128: CURSOR c (v_name VARCHAR2) IS
1129: SELECT vendor_id
1130: FROM po_vendors
1131: WHERE vendor_name = v_name
1132: AND nvl(end_date_active, sysdate + 1) > sysdate;
1133:
1134: BEGIN
2446: -- pdube Fri Oct 17 00:14:28 PDT 2008
2447: CURSOR c IS
2448: SELECT 1
2449: FROM RCV_SHIPMENT_HEADERS RCVSH,
2450: PO_VENDORS POV,
2451: RCV_TRANSACTIONS RT
2452: WHERE RCVSH.RECEIPT_SOURCE_CODE in ('VENDOR','CUSTOMER') AND
2453: RCVSH.VENDOR_ID = POV.VENDOR_ID(+) AND
2454: RT.SHIPMENT_HEADER_ID = RCVSH.SHIPMENT_HEADER_ID AND
2783: -- After Single Scan LOV
2784: wild := value;
2785:
2786: sql_string := 'SELECT vendor_name, segment1
2787: FROM po_vendors
2788: WHERE vendor_name like :1
2789: AND nvl(end_date_active, sysdate + 1) > sysdate
2790: ORDER BY vendor_name';
2791:
3788: ORDER BY receipt_num';
3789: */
3790: sql_string := 'SELECT RCVSH.receipt_num, POV.vendor_name
3791: FROM RCV_SHIPMENT_HEADERS RCVSH,
3792: PO_VENDORS POV,
3793: RCV_TRANSACTIONS RT
3794: WHERE RCVSH.RECEIPT_SOURCE_CODE in (''VENDOR'',''CUSTOMER'') AND
3795: RCVSH.VENDOR_ID = POV.VENDOR_ID(+) AND
3796: RT.SHIPMENT_HEADER_ID = RCVSH.SHIPMENT_HEADER_ID AND
4885: x_supplier_name OUT NOCOPY VARCHAR2) IS
4886:
4887: CURSOR c IS
4888: SELECT vendor_name
4889: FROM po_vendors
4890: WHERE vendor_id =
4891: ( SELECT vendor_id
4892: FROM qa_specs
4893: WHERE spec_id = p_spec_id );