[Home] [Help]
370: end drop_package;
371: -------------------------- core_create_ffw_body ------------------------------
372: procedure core_create_ffw_body
373: (p_wrapper_pkg_name in varchar2
374: ,p_standard_pkg_name in varchar2
375: ) is
376: l_text varchar2(8192);
377: begin
378: l_text :=
378: l_text :=
379: replace(c_package_body_start, c_name_replace, p_wrapper_pkg_name) ||
380: c_package_comments ||
381: c_ffw_formula ||
382: replace(c_ffw_formula_body, c_name_replace, p_standard_pkg_name) ||
383: replace(c_formula_body_end, c_name_replace, p_wrapper_pkg_name) ||
384: replace(c_package_end, c_name_replace, p_wrapper_pkg_name);
385: execute immediate l_text;
386: end core_create_ffw_body;
389: -- Create the formula-specific FFW wrapper package.
390: --
391: procedure create_specific_wrapper
392: (p_wrapper_pkg_name in varchar2
393: ,p_standard_pkg_name in varchar2
394: ) is
395: l_text varchar2(8192);
396: l_header boolean := false;
397: l_status varchar2(32);
435: -- 2. Build and generate the body.
436: --
437: core_create_ffw_body
438: (p_wrapper_pkg_name => p_wrapper_pkg_name
439: ,p_standard_pkg_name => p_standard_pkg_name
440: );
441: exception
442: when others then
443: if csr_pkg_status%isopen then
453: end create_specific_wrapper;
454: --------------------------- create_ffw_body ----------------------------------
455: procedure create_ffw_body
456: (p_wrapper_pkg_name in varchar2
457: ,p_standard_pkg_name in varchar2
458: ,p_keep_package in varchar2 default 'N'
459: ) is
460: l_header boolean := false;
461: l_body boolean := false;
507: if l_header and not l_body then
508: begin
509: core_create_ffw_body
510: (p_wrapper_pkg_name => p_wrapper_pkg_name
511: ,p_standard_pkg_name => p_standard_pkg_name
512: );
513: exception
514: when others then
515: --
628: c_newline;
629: end genrangeif;
630: --------------------------- check_std_package --------------------------------
631: --
632: -- Check if the standard (FFP) formula package's body is valid. If not then
633: -- set P_ADD_TO_TABLE to FALSE. Otherwise, set P_ADD_TO_TABLE to TRUE.
634: --
635: procedure check_std_package
636: (p_package_name in varchar2
940: end generate_body;
941: ---------------------------- process_compiled --------------------------------
942: --
943: -- Process the compiled formulas. For each compiled formula with a valid
944: -- standard (FFP) formula package the following are done:
945: -- * Entries created in the range and information tables.
946: -- * The specific (FFW) formula package is created.
947: -- * The text for the main (FF_WRAPPER_MAIN_PKG) wrapper package is generated.
948: -- * The intermediate (FF_WRAPPER_PKG
1012:
1013: for crec in csr_get_ff_info loop
1014: l_add_to_tbl := true;
1015: --
1016: -- Has the formula got a valid standard (FFP) package ?
1017: --
1018: check_std_package
1019: (p_package_name => crec.std_pkg_name
1020: ,p_add_to_table => l_add_to_tbl
1035: -- 2. Create formula-specific wrapper package.
1036: --
1037: create_specific_wrapper
1038: (p_wrapper_pkg_name => crec.wrap_pkg_name
1039: ,p_standard_pkg_name => crec.std_pkg_name
1040: );
1041: --
1042: -- 3. Update the wrapper package information.
1043: --
1294: return l_has_compiled_info = 'Y';
1295: end has_compiled_info;
1296: ---------------------------- process_orphans ---------------------------------
1297: --
1298: -- Go through the FF standard (FFP) and wrapper (FFW) packages looking for
1299: -- orphans. Orphaned packages are those that cannot be in the compiled
1300: -- information tables and are dropped.
1301: --
1302: procedure process_orphans