PACKAGE BODY: APPS.ECX_NZDT

Source

1 PACKAGE BODY ecx_nzdt AS
2 -- $Header: ECXNZDTB.pls 120.1 2011/03/02 08:40:14 jmaddila noship $
3   /*
4   * Method which calls nzdt Patch Event API on all tables referenced
5   * while loading map
6   * This must be called before loading or deleting the map
7   */
8 PROCEDURE PREPARELOADMAP
9 IS
10   l_method_name  varchar2(50):= 'ECX_NZDT.PREPARELOADMAP';
11   type map_table IS varray(8) OF VARCHAR2(30);
12   lst_map_tables map_table;
13   l_next_table   varchar2(30):= 'Defalut';
14 BEGIN
15   lst_map_tables := map_table('ECX_MAPPINGS','ECX_OBJECTS','ECX_OBJECT_LEVELS',
16                     'ECX_OBJECT_ATTRIBUTES','ECX_LEVEL_MAPPINGS',
17                     'ECX_ATTRIBUTE_MAPPINGS', 'ECX_TRAN_STAGE_DATA','ECX_PROC_MAPPINGS');
18   FOR i IN lst_map_tables.FIRST .. lst_map_tables.LAST
19   LOOP
20     l_next_table := lst_map_tables(i);
21     ad_zd_seed.prepare(l_next_table);
22   END LOOP;
23 EXCEPTION
24 when others then
25   RAISE_APPLICATION_ERROR('-20004','Exception occured after calling ad_zd_seed.prepare api on table '||l_next_table||' and SQLERRM is '||SQLERRM);
26 END PREPARELOADMAP;
27 END ECX_NZDT;