949: END validate_seeded_flag;
950:
951: -- Start of comments
952: -- Procedure Name : validate_application_id
953: -- Description : Checks if application_id exists in fnd_application
954: -- Version : 1.0
955: -- End of comments
956:
957: PROCEDURE validate_application_id(
959: p_pdpv_rec IN pdpv_rec_type) IS
960:
961: CURSOR application_id_cur(p_application_id IN NUMBER) IS
962: SELECT '1'
963: FROM fnd_application
964: WHERE application_id = p_application_id;
965: l_dummy VARCHAR2(1) := '?';
966:
967: BEGIN
967: BEGIN
968: -- initialize return status
969: x_return_status := OKC_API.G_RET_STS_SUCCESS;
970: IF p_pdpv_rec.application_id IS NOT NULL THEN
971: -- Check if application id exists in the fnd_application or not
972: OPEN application_id_cur(p_pdpv_rec.application_id);
973: FETCH application_id_cur INTO l_dummy;
974: CLOSE application_id_cur;
975: