17: -- 1. Find the unassigned ID used for UD1 and UD2
18: l_phase := 'Find the unassigned ID used for UD1 and UD2';
19:
20: IF l_debug_flag = 'Y' THEN
21: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
22: || l_phase);
23: END IF;
24:
25: SELECT flex_value_id
34:
35: -- 2. Truncate FII_BUDGET_BASE_UPG_T
36: l_phase := 'Find FII schema name';
37: IF l_debug_flag = 'Y' THEN
38: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
39: || l_phase);
40: END IF;
41:
42: l_fii_schema := FII_UTIL.get_schema_name('FII');
38: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
39: || l_phase);
40: END IF;
41:
42: l_fii_schema := FII_UTIL.get_schema_name('FII');
43:
44: l_phase := 'Truncate FII_BUDGET_BASE_UPG_T before inserting';
45: IF l_debug_flag = 'Y' THEN
46: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
42: l_fii_schema := FII_UTIL.get_schema_name('FII');
43:
44: l_phase := 'Truncate FII_BUDGET_BASE_UPG_T before inserting';
45: IF l_debug_flag = 'Y' THEN
46: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
47: || l_phase);
48: END IF;
49:
50: l_stmt := 'truncate table '||l_fii_schema||'.FII_BUDGET_BASE_UPG_T';
52:
53: -- 3. Insert data into FII_BUDGET_BASE_UPG_T from FII_BUDGET_BASE
54: l_phase := 'Insert into FII_BUDGET_BASE_UPG_T';
55: IF l_debug_flag = 'Y' THEN
56: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
57: || l_phase);
58: END IF;
59:
60: INSERT /*+ append parallel(t) */
118:
119: -- 4. Truncate FII_BUDGET_BASE
120: l_phase := 'Truncate FII_BUDGET_BASE';
121: IF l_debug_flag = 'Y' THEN
122: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
123: || 'Inserted ' || SQL%ROWCOUNT
124: || ' rows into FII_BUDGET_BASE_UPG_T');
125: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
126: || l_phase);
121: IF l_debug_flag = 'Y' THEN
122: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
123: || 'Inserted ' || SQL%ROWCOUNT
124: || ' rows into FII_BUDGET_BASE_UPG_T');
125: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
126: || l_phase);
127: END IF;
128:
129: l_stmt := 'truncate table '||l_fii_schema||'.FII_BUDGET_BASE';
131:
132: -- 5. Re-insert data into FII_BUDGET_BASE from FII_BUDGET_BASE_UPG_T
133: l_phase := 'Insert into FII_BUDGET_BASE';
134: IF l_debug_flag = 'Y' THEN
135: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
136: || l_phase);
137: END IF;
138:
139: INSERT /*+ append parallel(b) */
179:
180: -- 6. Truncate MLOG$_FII_BUDGET_BASE
181: l_phase := 'Truncate MLOG$_FII_BUDGET_BASE';
182: IF l_debug_flag = 'Y' THEN
183: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
184: || 'Inserted ' || SQL%ROWCOUNT
185: || ' rows into FII_BUDGET_BASE');
186: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
187: || l_phase);
182: IF l_debug_flag = 'Y' THEN
183: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
184: || 'Inserted ' || SQL%ROWCOUNT
185: || ' rows into FII_BUDGET_BASE');
186: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
187: || l_phase);
188: END IF;
189:
190: l_stmt:='truncate table '||l_fii_schema||'.'|| 'MLOG$_FII_BUDGET_BASE';
192:
193: -- 7. Truncate FII_BUDGET_BASE_UPG_T
194: l_phase := 'Truncate FII_BUDGET_BASE_UPG_T before exit';
195: IF l_debug_flag = 'Y' THEN
196: FII_UTIL.put_line(TO_CHAR(sysdate, 'DD-MON-YYYY HH24:MI:SS') || ' - '
197: || l_phase);
198: END IF;
199:
200: l_stmt := 'truncate table '||l_fii_schema||'.FII_BUDGET_BASE_UPG_T';
203: EXCEPTION
204: WHEN OTHERS THEN
205: errbuf := sqlerrm;
206: retcode := sqlcode;
207: FII_UTIL.put_line('
208: ---------------------------------
209: Error in Procedure: UPDATE_TABLE
210: Phase: '||l_phase||'
211: Message: '||errbuf);