45: ** if it has, display message and prevent deletion.
46: */
47: SELECT MAX('N')
48: INTO X_delete_test
49: FROM po_rfq_vendors
50: WHERE printed_date is not null
51: AND po_header_id = X_po_header_id;
52:
53: x_progress := '020';
220: X_progress := '010';
221:
222: SELECT MAX('N')
223: INTO X_duplicate_vendor_site
224: FROM po_rfq_vendors
225: WHERE po_header_id = X_po_header_id
226: AND vendor_id = X_vendor_id
227: AND vendor_site_id = X_vendor_site_id
228: AND (X_row_id IS NULL
311: X_created_by IN NUMBER,
312: X_list_header_id IN NUMBER,
313: x_vendors_hold IN OUT NOCOPY VARCHAR2 ) IS
314:
315: CURSOR C IS SELECT rowid FROM PO_RFQ_VENDORS
316: WHERE po_header_id = X_po_header_id
317: AND sequence_num = X_max_sequence_num + 1;
318:
319: CURSOR C2 IS SELECT po_headers_s.nextval FROM sys.dual;
359:
360: X_progress := '020';
361:
362: /* Bug 875124 :
363: Using po_vendor_list_entries_v to insert into po_rfq_vendors
364: as po_vendor_list_entries_v contains vendor_list with active vendors
365: */
366: insert into po_rfq_vendors
367: (po_header_id,
362: /* Bug 875124 :
363: Using po_vendor_list_entries_v to insert into po_rfq_vendors
364: as po_vendor_list_entries_v contains vendor_list with active vendors
365: */
366: insert into po_rfq_vendors
367: (po_header_id,
368: sequence_num,
369: last_update_date,
370: last_updated_by,
391: '0'
392: from po_vendor_list_entries_v vle
393: where vle.vendor_list_header_id = X_list_header_id
394: and not exists (select 'vendor already there'
395: from po_rfq_vendors rv
396: where vle.vendor_site_id = rv.vendor_site_id
397: and rv.po_header_id = X_po_header_id);
398:
399: X_progress := '030';