[Home] [Help]
363: ** check_enabled - Returns 'Y' if a PL/SQL procedure is enabled, 'N' otherwise.
364: **
365: ** The presence of a row in FND_ENABLED_PLQSL for a packaged procedure overrides
366: ** one for the procedure's package. For example if there are rows in
367: ** FND_ENABLED_PLSQL for PKG.PROC and PKG then this function returns the value
368: ** of the ENABLED column on the row for PKG.PROC
369: **
370: */
371: function check_enabled (proc in varchar2) return varchar2 is
380: is_external varchar2(1);
381:
382: cursor proc_curs(v_procedure varchar2, v_external varchar2) is
383: SELECT ENABLED
384: FROM FND_ENABLED_PLSQL
385: WHERE PLSQL_TYPE = 'PROCEDURE'
386: AND PLSQL_NAME = v_procedure
387: AND ENABLED = 'Y'
388: AND decode(v_external, 'Y', EXTERNAL, '*') =
389: decode(v_external, 'Y', 'Y', '*');
390:
391: cursor pack_curs(v_pack varchar2, v_external varchar2) is
392: SELECT ENABLED
393: FROM FND_ENABLED_PLSQL
394: WHERE PLSQL_TYPE = 'PACKAGE' AND PLSQL_NAME = v_pack
395: AND ENABLED = 'Y'
396: AND decode(v_external, 'Y', EXTERNAL, '*') =
397: decode(v_external, 'Y', 'Y', '*');
398:
399: cursor packproc_curs(v_packproc varchar2, v_external varchar2) is
400: SELECT decode(v_external, 'Y',
401: decode(nvl(EXTERNAL, 'N'), 'N', 'N', enabled), enabled)
402: FROM FND_ENABLED_PLSQL
403: WHERE PLSQL_TYPE = 'PACKAGE.PROCEDURE' AND PLSQL_NAME = v_packproc;
404:
405: begin
406: -- Get package being executed.