The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT lookup_code INTO x_lookup_code
FROM FND_LOOKUP_VALUES_VL
WHERE lookup_type = p_lookup_type
AND lookup_code = p_lookup_code
AND ENABLED_FLAG= 'Y'
AND sysdate between nvl(start_date_active,sysdate)
AND nvl(end_date_active,sysdate);
SELECT lookup_code INTO x_lookup_code
FROM FND_LOOKUP_VALUES_VL
WHERE lookup_type = p_lookup_type
AND upper(meaning) = upper(p_meaning)
AND ENABLED_FLAG= 'Y'
AND sysdate between nvl(start_date_active,sysdate)
AND nvl(end_date_active,sysdate);
SELECT party_id
FROM hz_parties
WHERE party_number = c_party_number;
SELECT party_id
FROM hz_parties
WHERE party_id = c_party_id;
SELECT vendor_id
FROM po_vendors
WHERE segment1 = c_segment1;
SELECT party_id
FROM HZ_PARTIES
WHERE upper(party_name) = upper(c_operator_name)
AND ( party_type ='ORGANIZATION' or party_type = 'PERSON' );
SELECT party_id
FROM HZ_PARTIES
WHERE upper(party_name) = upper(c_operator_name)
AND party_id = c_operator_id
AND ( party_type ='ORGANIZATION' or party_type = 'PERSON' );
l_document_tbl(i).delete_flag := p_x_document_tbl(i).delete_flag;
l_supplier_tbl(i).delete_flag := p_x_supplier_tbl(i).delete_flag;
l_recipient_tbl(i).delete_flag := p_x_recipient_tbl(i).delete_flag;
l_subscription_tbl(i).delete_flag := p_x_subscription_tbl(i).delete_flag;
l_revision_tbl(i).delete_flag := p_x_doc_rev_tbl(i).delete_flag;
/* description : Updates existing document record and its */
/* associated suppliers, recipients, */
/* subscriptions,revision and copies */
/* */
/*------------------------------------------------------*/
PROCEDURE MODIFY_DOCUMENT
(
p_api_version IN NUMBER := '1.0' ,
p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE ,
p_commit IN VARCHAR2 := FND_API.G_FALSE ,
p_validate_only IN VARCHAR2 := FND_API.G_TRUE ,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_x_document_tbl IN OUT NOCOPY document_tbl ,
-- p_x_doc_rev_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Tbl ,
-- p_x_doc_rev_copy_tbl IN OUT NOCOPY AHL_DI_DOC_REVISION_PUB.Revision_Copy_Tbl,
-- p_x_subscription_tbl IN OUT NOCOPY AHL_DI_SUBSCRIPTION_PUB.Subscription_Tbl,
p_x_supplier_tbl IN OUT NOCOPY Supplier_Tbl ,
p_x_recipient_tbl IN OUT NOCOPY Recipient_Tbl ,
p_module_type IN VARCHAR2 ,
x_return_status OUT NOCOPY VARCHAR2 ,
x_msg_count OUT NOCOPY NUMBER ,
x_msg_data OUT NOCOPY VARCHAR2)
IS
-- Cursor is used to retrieve party id
CURSOR for_party_name(c_party_number IN VARCHAR2)
IS
SELECT party_id
FROM hz_parties
WHERE party_number = c_party_number;
SELECT party_id
FROM hz_parties
WHERE party_id = c_party_id;
SELECT vendor_id
FROM po_vendors
WHERE segment1 = c_segment1;
SELECT 'X'
FROM ahl_supplier_documents
WHERE document_id = c_document_id;
SELECT 'X'
FROM ahl_subscriptions_b
WHERE document_id = c_document_id
AND NVL(end_date, sysdate) >= TRUNC(sysdate);
SELECT party_id
FROM HZ_PARTIES
WHERE upper(party_name) = upper(c_operator_name)
AND ( party_type ='ORGANIZATION' or party_type = 'PERSON' );
SELECT party_id
FROM HZ_PARTIES
WHERE upper(party_name) = upper(c_operator_name)
AND party_id = c_operator_id
AND ( party_type ='ORGANIZATION' or party_type = 'PERSON' );
SELECT subscription_id
FROM AHL_SUBSCRIPTIONS_B
WHERE SUBSCRIBED_FRM_PARTY_ID = c_supplier_id
AND DOCUMENT_ID = c_doc_id;
SELECT DISTINCT party_name
FROM AHL_HZ_PO_SUPPLIERS_V
WHERE PARTY_NUMBER = c_supplier_no;
SELECT DISTINCT PARTY_NAME
FROM HZ_PARTIES
WHERE PARTY_NUMBER =c_supplier_no;
SELECT DISTINCT VENDOR_NAME
FROM PO_VENDORS
WHERE SEGMENT1 =c_supplier_no;
Select AHL_DI_DOC_INDEX_PVT.GET_PRODUCT_INSTALL_STATUS('PO')
into l_prod_install_status
from dual;
l_document_tbl(i).delete_flag := p_x_document_tbl(i).delete_flag;
IF p_x_supplier_tbl(i).delete_flag <> 'Y' THEN
--Both Supplier Id and Name are missing
FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_ID_NOT_EXIST');
IF p_x_supplier_tbl(i).delete_flag = 'Y' THEN
if p_x_supplier_tbl(i).document_id IS NULL then
FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUPPL_DOC_ID_NULL');
l_supplier_tbl(i).delete_flag := p_x_supplier_tbl(i).delete_flag;
l_recipient_tbl(i).delete_flag := p_x_recipient_tbl(i).delete_flag;