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