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 sysdate between start_date_active
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 meaning = p_meaning
AND sysdate between start_date_active
AND nvl(end_date_active,sysdate);
SELECT party_id
FROM ahl_hz_per_employees_v
WHERE upper(party_name) = upper(c_approved_by_pty_name);
SELECT party_id
FROM hz_parties
WHERE upper(PARTY_NAME) = upper(c_approved_by_pty_name)
AND AHL_DI_DOC_INDEX_PVT.GET_PRODUCT_INSTALL_STATUS('PER') IN ('N','L')
AND party_type = 'PERSON'
UNION
SELECT person_id
FROM per_people_f ppf,per_person_types ppt
WHERE upper(FULL_NAME) = upper(c_approved_by_pty_name)
AND trunc(sysdate) BETWEEN effective_start_date AND effective_end_date
AND nvl(current_employee_flag, 'X') = 'Y'
AND ppf.person_type_id = ppt.person_type_id
AND system_person_type = 'EMP'
AND AHL_DI_DOC_INDEX_PVT.GET_PRODUCT_INSTALL_STATUS('PER') IN ('I','S');
SELECT party_id
FROM hz_parties
WHERE party_id = c_approved_by_pty_id;
SELECT party_id
FROM hz_parties
WHERE UPPER(party_name) = UPPER(c_approved_by_pty_name);
SELECT person_id
FROM per_people_f ppf, per_person_types ppt
WHERE upper(FULL_NAME) = upper(c_party_name)
AND ppf.person_id = c_party_id
AND trunc(sysdate) between ppf.effective_start_date and ppf.effective_end_date
AND nvl(ppf.current_employee_flag,'x') = 'Y'
AND ppf.person_type_id = ppt.person_type_id
AND ppt.system_person_type ='EMP';
SELECT TRUNC(SYSDATE) into p_x_revision_tbl(i).revision_date FROM DUAL;
SELECT SYSDATE into l_sysdate FROM DUAL;
SELECT TRUNC(SYSDATE) into p_x_revision_tbl(i).obsolete_date FROM DUAL;
l_revision_tbl(i).delete_flag := p_x_revision_tbl(i).delete_flag;
/* description : Update the existing revision record*/
/* */
/*---------------------------------------------------*/
PROCEDURE MODIFY_REVISION
(
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_revision_tbl IN OUT NOCOPY revision_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 get_party_name(c_approved_by_pty_name IN VARCHAR2)
IS
--Modified pjha:07-Aug-2002 for performance
/*
SELECT party_id
FROM ahl_hz_per_employees_v
WHERE upper(party_name) = upper(c_approved_by_pty_name);
SELECT party_id
FROM hz_parties
WHERE upper(PARTY_NAME) = upper(c_approved_by_pty_name)
AND AHL_DI_DOC_INDEX_PVT.GET_PRODUCT_INSTALL_STATUS('PER') IN ('N','L')
AND party_type = 'PERSON'
UNION
SELECT person_id
FROM per_people_f ppf,per_person_types ppt
WHERE upper(FULL_NAME) = upper(c_approved_by_pty_name)
AND trunc(sysdate) BETWEEN effective_start_date AND effective_end_date
AND nvl(current_employee_flag, 'X') = 'Y'
AND ppf.person_type_id = ppt.person_type_id
AND system_person_type = 'EMP'
AND AHL_DI_DOC_INDEX_PVT.GET_PRODUCT_INSTALL_STATUS('PER') IN ('I','S');
SELECT party_id
FROM hz_parties
WHERE party_id = c_approved_by_pty_id;
SELECT party_id
FROM hz_parties
WHERE UPPER(party_name) = UPPER(c_approved_by_pty_name);
SELECT person_id
FROM per_people_f ppf, per_person_types ppt
WHERE upper(FULL_NAME) = upper(c_party_name)
AND ppf.person_id = c_party_id
AND trunc(sysdate) between ppf.effective_start_date and ppf.effective_end_date
AND nvl(ppf.current_employee_flag,'x') = 'Y'
AND ppf.person_type_id = ppt.person_type_id
AND ppt.system_person_type ='EMP';
-- select the current revision date. the edited date cannot be less than that.
SELECT REVISION_DATE INTO l_current_revision_date from
ahl_doc_revisions_b
where
ahl_doc_revisions_b.doc_revision_id = p_x_revision_tbl(i).doc_revision_id
and
ahl_doc_revisions_b.document_id = p_x_revision_tbl(i).document_id;
SELECT TRUNC(SYSDATE) into p_x_revision_tbl(i).obsolete_date FROM DUAL;
l_revision_tbl(i).delete_flag := p_x_revision_tbl(i).delete_flag;