401:
402: end Validate_Resp;
403: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
404: --+Check for Oracle Application Menu exclusion for Journal Import and Post
405: --+Can not use fnd_function.test to test the accessiblility of GL_SU_J_IMPORT
406: --+because it is a menu not a function. Therefore, is forced to access the
407: --+fnd_resp_functions table direcly to get the exclusion info for this menu
408: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
409: function Menu_Validation(
434: --+ fnd_resp_functions contains all functions that are excluded from this responsibility
435: if l_count > 0 then
436: return 'IMPORT FAIL';
437: end if;
438: IF (FND_FUNCTION.TEST('GLXJIRUN') = FALSE) THEN
439: return 'IMPORT FAIL';
440: END IF;
441:
442: END IF;
440: END IF;
441:
442: END IF;
443: IF (post_flag = 'Y' ) THEN
444: IF (FND_FUNCTION.TEST('GLXSTAPO') = FALSE) or (FND_FUNCTION.TEST('GLXJEPST') = FALSE) or
445: (FND_FUNCTION.TEST('GLXCOWRK_P') = FALSE) or (FND_FUNCTION.TEST('GLPAUTOP_A') = FALSE)THEN
446: return 'POST FAIL';
447: END IF;
448: END IF;
441:
442: END IF;
443: IF (post_flag = 'Y' ) THEN
444: IF (FND_FUNCTION.TEST('GLXSTAPO') = FALSE) or (FND_FUNCTION.TEST('GLXJEPST') = FALSE) or
445: (FND_FUNCTION.TEST('GLXCOWRK_P') = FALSE) or (FND_FUNCTION.TEST('GLPAUTOP_A') = FALSE)THEN
446: return 'POST FAIL';
447: END IF;
448: END IF;
449: