[Home] [Help]
30:
31: -- Procedure Name
32: -- Install_package_Object
33: -- Purpose
34: -- Gets code for a package Spec or Body from CN_SOURCE and uses AD_DDL to create that object
35: -- IF p_test = 'Y' then '_T' is appended to the package name - this allows you to test
36: -- creating the package without destroying the original in the database
37:
38: PROCEDURE Install_Package_Object(
57:
58: CURSOR pkg_start (p_object_id NUMBER)
59: IS
60: SELECT cs.line_no, cs.text
61: FROM cn_source cs
62: WHERE cs.object_id = p_object_id
63: AND substr(cs.text, 1, 25) = 'CREATE OR REPLACE PACKAGE'
64: AND org_id = x_org_id
65: ORDER BY line_no;
68:
69: CURSOR pkg_end (p_object_id NUMBER)
70: IS
71: SELECT cs.line_no, cs.text
72: FROM cn_source cs
73: WHERE cs.object_id = p_object_id
74: AND cs.text LIKE 'END%'
75: AND org_id = x_org_id
76: ORDER BY line_no DESC;
80: CURSOR fetch_code (p_pks_start NUMBER,
81: p_pks_end NUMBER,
82: p_pks_object_id NUMBER) IS
83: SELECT cs.text
84: FROM cn_source cs
85: WHERE cs.object_id = p_pks_object_id
86: AND cs.line_no BETWEEN p_pks_start AND (p_pks_end - 1)
87: AND org_id = x_org_id
88: ORDER BY line_no;
94:
95: --dbms_output.put_line('In install_package_object l_object_name '||l_object_name);
96:
97: -- Find the locations of the first and last
98: -- lines of the package Spec or Body in the cn_source table, fetch the code
99: -- between these lines and then create the spec / body
100:
101: OPEN pkg_start(p_object_id);
102: FETCH pkg_start INTO l_pkg_start_rec;
1921: FOR tablemaprec IN maps LOOP
1922:
1923: -- dbms_application_info.set_client_info(map.org_id);
1924:
1925: -- Generate Collection code. Code is stored in CN_SOURCE.
1926: collection_pkg(
1927: l_debug_pipe,
1928: l_debug_level,
1929: tablemaprec.table_map_id,