[Home] [Help]
3084: -- l_source_line.
3085: l_pkg_find_found boolean; -- Indicates if using the
3086: -- csr_second_line cursor found a
3087: -- row.
3088: l_non_standard_hook_pkg boolean; -- Indicates if a non-standard hook
3089: -- package name has been defined.
3090: -- i.e. The third and second last
3091: -- letters do not equal 'RK' or 'BK'.
3092: l_proc varchar2(72) := g_package||'create_header_line';
3098: -- Where possible the filename and revision number for the hook package
3099: -- body should be derived from a package which is actually shipped in
3100: -- generated file name.
3101: -- i.e. Look at the third and second last letters of the hook package name.
3102: -- Where coding standards have been followed this should be like 'RK' or
3103: -- 'BK'.
3104: -- If 'RK' then this is a row handler hook package, so derive the
3105: -- filename and revision number from the corresponding '_SHD' package body.
3106: -- If 'BK' then this is a business process hook package, so dervie the
3107: -- filename and revision number from the corresponding '_API' package body.
3108: --
3109: -- Alternative Method
3110: -- ------------------
3111: -- If the coding standards have not been followed then either the third
3112: -- and second last letters of the hook package body name will not match
3113: -- 'RK'/'BK' or the '_SHD'/'_API' package body does not exist.
3114: -- In either of these cases use the alternative derivation method.
3115: -- Attempt to derive the dollar header line from the hook package header.
3116: -- Change 'pkh' to 'pkb' and change the revision number to end with '.0'.
3117: --
3118: -- Extract the third and second last letters of the package name
3119: l_hook_pkg_type := upper(substr(substr(p_hook_package, -3), 1, 2));
3120: l_non_standard_hook_pkg := false;
3121: l_pkg_find_found := false;
3122: --
3123: if l_hook_pkg_type = 'RK' then
3124: -- This is a row handler user hook package so attempt to find
3134: upper(substr(p_hook_package, 1, length(p_hook_package) -3) || 'API');
3135: l_pkg_find_type := 'PACKAGE BODY';
3136: --
3137: else
3138: -- Non-standard hook package name has been defined.
3139: -- Set flag so alternative strategy will be used.
3140: l_non_standard_hook_pkg := true;
3141: --
3142: end if;
3136: --
3137: else
3138: -- Non-standard hook package name has been defined.
3139: -- Set flag so alternative strategy will be used.
3140: l_non_standard_hook_pkg := true;
3141: --
3142: end if;
3143: --
3144: -- Attempt to find the corresponding package body header line information.
3142: end if;
3143: --
3144: -- Attempt to find the corresponding package body header line information.
3145: --
3146: if not l_non_standard_hook_pkg then
3147: open csr_second_line(l_pkg_find_name, l_pkg_find_type);
3148: fetch csr_second_line into l_source_line;
3149: l_pkg_find_found := csr_second_line%found;
3150: close csr_second_line;
3149: l_pkg_find_found := csr_second_line%found;
3150: close csr_second_line;
3151: end if;
3152: --
3153: if l_non_standard_hook_pkg or (not l_pkg_find_found) then
3154: --
3155: -- If a non-standard hook package name exists or the package
3156: -- name for the primary method could not be found then attempt
3157: -- to obtain the hook package header line information.
3151: end if;
3152: --
3153: if l_non_standard_hook_pkg or (not l_pkg_find_found) then
3154: --
3155: -- If a non-standard hook package name exists or the package
3156: -- name for the primary method could not be found then attempt
3157: -- to obtain the hook package header line information.
3158: --
3159: l_pkg_find_name := upper(p_hook_package);