The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE NAME: test_val_header_delete()
===========================================================================*/
PROCEDURE test_val_header_delete(X_po_header_id IN NUMBER) IS
X_allow_delete BOOLEAN;
po_rfqs_sv.val_header_delete(X_po_header_id, X_allow_delete);
END test_val_header_delete;
PROCEDURE NAME: val_header_delete()
===========================================================================*/
PROCEDURE val_header_delete(X_po_header_id IN NUMBER,
X_allow_delete IN OUT NOCOPY BOOLEAN) IS
x_progress VARCHAR2(3) := '';
x_delete_test VARCHAR2(1) := 'Y';
SELECT MAX('N')
INTO X_delete_test
FROM po_rfq_vendors
WHERE printed_date is not null
AND po_header_id = X_po_header_id;
IF (nvl(X_delete_test,'Y') = 'Y') THEN
x_progress := '030';
SELECT MAX('N')
INTO X_delete_test
FROM po_headers poh
WHERE from_header_id = X_po_header_id;
IF (nvl(X_delete_test,'Y') ='Y') THEN
X_allow_delete := TRUE;
X_allow_delete := FALSE;
po_message_s.app_error('PO_RFQ_QT_DELETE_NA');
X_allow_delete := FALSE;
po_message_s.app_error('PO_RFQ_DELETE_PRINT_RFQ_NA');
po_message_s.sql_error('val_header_delete', x_progress, sqlcode);
END val_header_delete;
PROCEDURE NAME: test_val_line_delete()
===========================================================================*/
PROCEDURE test_val_line_delete(X_po_line_id IN NUMBER,
X_po_header_id IN NUMBER) IS
X_allow_delete VARCHAR2(1) := '';
po_rfqs_sv.val_line_delete(X_po_line_id, X_po_header_id, X_allow_delete);
END test_val_line_delete;
PROCEDURE NAME: val_line_delete()
===========================================================================*/
PROCEDURE val_line_delete(X_po_line_id IN NUMBER,
X_po_header_id IN NUMBER,
X_allow_delete IN OUT NOCOPY VARCHAR2) IS
x_progress VARCHAR2(3) := '';
SELECT pol.po_line_id
FROM po_lines pol
WHERE pol.from_header_id = X_po_header_id
AND pol.from_line_id = X_po_line_id;
X_allow_delete := 'Y';
X_allow_delete := 'N';
po_message_s.app_error('PO_RFQ_QT_DELETE_NA');
po_message_s.sql_error('val_line_delete', x_progress, sqlcode);
END val_line_delete;
SELECT count(*)
INTO X_vendor_count
FROM po_vendor_list_entries_v
WHERE vendor_list_header_id = X_vendor_list_header_id;
SELECT MAX('N')
INTO X_duplicate_vendor_site
FROM po_rfq_vendors
WHERE po_header_id = X_po_header_id
AND vendor_id = X_vendor_id
AND vendor_site_id = X_vendor_site_id
AND (X_row_id IS NULL
OR rowid <> X_row_id);
FUNCTION NAME: val_vendor_update
===========================================================================*/
FUNCTION val_vendor_update
(X_po_header_id IN NUMBER,
X_vendor_id IN NUMBER,
X_vendor_site_id IN NUMBER) RETURN BOOLEAN is
X_allow_update varchar2(1) := 'Y';
SELECT MAX('N')
INTO X_allow_update
FROM po_headers
WHERE from_header_id = X_po_header_id
AND vendor_id = X_vendor_id
AND vendor_site_id = X_vendor_site_id
AND from_type_lookup_code = 'RFQ'
AND type_lookup_code = 'QUOTATION';
if (nvl(X_allow_update,'Y') = 'Y') then
return(TRUE);
po_message_s.app_error('PO_QUOTE_ENTERED_UPDATE_NA');
po_message_s.sql_error('val_vendor_update', x_progress, sqlcode);
END val_vendor_update;
X_last_update_date IN DATE,
X_last_updated_by IN NUMBER,
X_last_update_login IN NUMBER,
X_creation_date IN DATE,
X_created_by IN NUMBER,
X_list_header_id IN NUMBER,
x_vendors_hold IN OUT NOCOPY VARCHAR2 ) IS
CURSOR C IS SELECT rowid FROM PO_RFQ_VENDORS
WHERE po_header_id = X_po_header_id
AND sequence_num = X_max_sequence_num + 1;
CURSOR C2 IS SELECT po_headers_s.nextval FROM sys.dual;
CURSOR C3 IS SELECT vendor_id FROM po_vendor_list_entries WHERE vendor_list_header_id= l_list_header_id ;
SELECT Nvl(hold_flag,'F'),vendor_name INTO flagValue, l_vendor_name FROM po_vendors WHERE vendor_id=myResult;
Using po_vendor_list_entries_v to insert into po_rfq_vendors
as po_vendor_list_entries_v contains vendor_list with active vendors
*/
insert into po_rfq_vendors
(po_header_id,
sequence_num,
last_update_date,
last_updated_by,
last_update_login,
creation_date,
created_by,
vendor_id,
vendor_site_id,
vendor_contact_id,
print_flag,
print_count)
select
X_po_header_id,
rownum + X_max_sequence_num,
X_last_update_date,
X_last_updated_by,
X_last_update_login,
X_creation_date,
X_created_by,
vle.vendor_id,
vle.vendor_site_id,
vle.vendor_contact_id,
'Y',
'0'
from po_vendor_list_entries_v vle
where vle.vendor_list_header_id = X_list_header_id
and not exists (select 'vendor already there'
from po_rfq_vendors rv
where vle.vendor_site_id = rv.vendor_site_id
and rv.po_header_id = X_po_header_id);
select vendor_list_name
into x_vendor_list_name
from po_vendor_list_headers
where vendor_list_header_id = X_list_header_id;