DBA Data[Home] [Help]

APPS.FII_FA_CAT_C dependencies on FII_UTIL

Line 41: FII_UTIL.Write_Log('Inserting DBI log items into FII_CHANGE_LOG');

37: FII_MESSAGE.Func_Ent(l_calling_fn);
38: End if;
39:
40: If g_debug_flag = 'Y' then
41: FII_UTIL.Write_Log('Inserting DBI log items into FII_CHANGE_LOG');
42: End if;
43:
44: ---------------------------------------------
45: -- Populate FII_CHANGE_LOG with inital set up

Line 70: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' log items into FII_CHANGE_LOG');

66: FROM FII_CHANGE_LOG
67: WHERE log_item = 'MAX_ASSET_CAT_ID');
68:
69: If g_debug_flag = 'Y' then
70: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' log items into FII_CHANGE_LOG');
71: End if;
72:
73: If g_debug_flag = 'Y' then
74: FII_MESSAGE.Func_Succ(l_calling_fn);

Line 82: FII_UTIL.Write_Log('Error occured in Procedure: INIT_DBI_CHANGE_LOG Message: ' || sqlerrm);

78:
79: WHEN OTHERS THEN
80: rollback;
81: g_retcode := -1;
82: FII_UTIL.Write_Log('Error occured in Procedure: INIT_DBI_CHANGE_LOG Message: ' || sqlerrm);
83: FII_MESSAGE.Func_Fail(l_calling_fn);
84: raise;
85:
86: END INIT_DBI_CHANGE_LOG;

Line 112: FII_UTIL.Write_Log('l_structure_name' || l_structure_name);

108: AND id_flex_num = p_structure_id
109: AND language = g_current_language;
110:
111: If g_debug_flag = 'Y' then
112: FII_UTIL.Write_Log('l_structure_name' || l_structure_name);
113: FII_MESSAGE.Func_Succ(l_calling_fn);
114: End if;
115:
116: return l_structure_name;

Line 121: FII_UTIL.Write_Log('

117:
118: EXCEPTION
119: WHEN OTHERS THEN
120: g_retcode := -1;
121: FII_UTIL.Write_Log('
122: ------------------------
123: Error in Function: GET_COA_NAME
124: Phase: '||g_phase||'
125: Message: '||sqlerrm);

Line 169: FII_UTIL.Write_Log('Getting Category segments column information for flex structures');

165: FII_MESSAGE.Func_Ent(l_calling_fn);
166: End if;
167:
168: If g_debug_flag = 'Y' then
169: FII_UTIL.Write_Log('Getting Category segments column information for flex structures');
170: End if;
171: ----------------------------------------------------
172: -- Given a structure ID, it will get:
173: -- 1. Major segment

Line 223: FII_UTIL.Write_Log('major segment: ' || l_major_seg);

219: where flex_value_set_id = l_major_flex_value_set_id;
220: end if;
221:
222: If g_debug_flag = 'Y' then
223: FII_UTIL.Write_Log('major segment: ' || l_major_seg);
224: FII_UTIL.Write_Log('major segment parent value set: ' ||
225: to_char(l_parent_value_set_id));
226: FII_UTIL.Write_Log('major segment validation_type: ' ||
227: l_major_val_type_code);

Line 224: FII_UTIL.Write_Log('major segment parent value set: ' ||

220: end if;
221:
222: If g_debug_flag = 'Y' then
223: FII_UTIL.Write_Log('major segment: ' || l_major_seg);
224: FII_UTIL.Write_Log('major segment parent value set: ' ||
225: to_char(l_parent_value_set_id));
226: FII_UTIL.Write_Log('major segment validation_type: ' ||
227: l_major_val_type_code);
228: if (l_major_val_type_code = 'F') then

Line 226: FII_UTIL.Write_Log('major segment validation_type: ' ||

222: If g_debug_flag = 'Y' then
223: FII_UTIL.Write_Log('major segment: ' || l_major_seg);
224: FII_UTIL.Write_Log('major segment parent value set: ' ||
225: to_char(l_parent_value_set_id));
226: FII_UTIL.Write_Log('major segment validation_type: ' ||
227: l_major_val_type_code);
228: if (l_major_val_type_code = 'F') then
229: FII_UTIL.Write_Log('major table name: ' ||
230: l_major_table_name);

Line 229: FII_UTIL.Write_Log('major table name: ' ||

225: to_char(l_parent_value_set_id));
226: FII_UTIL.Write_Log('major segment validation_type: ' ||
227: l_major_val_type_code);
228: if (l_major_val_type_code = 'F') then
229: FII_UTIL.Write_Log('major table name: ' ||
230: l_major_table_name);
231: FII_UTIL.Write_Log('major value column name: ' ||
232: l_major_value_column_name);
233: FII_UTIL.Write_Log('major id column name: ' ||

Line 231: FII_UTIL.Write_Log('major value column name: ' ||

227: l_major_val_type_code);
228: if (l_major_val_type_code = 'F') then
229: FII_UTIL.Write_Log('major table name: ' ||
230: l_major_table_name);
231: FII_UTIL.Write_Log('major value column name: ' ||
232: l_major_value_column_name);
233: FII_UTIL.Write_Log('major id column name: ' ||
234: l_major_id_column_name);
235: end if;

Line 233: FII_UTIL.Write_Log('major id column name: ' ||

229: FII_UTIL.Write_Log('major table name: ' ||
230: l_major_table_name);
231: FII_UTIL.Write_Log('major value column name: ' ||
232: l_major_value_column_name);
233: FII_UTIL.Write_Log('major id column name: ' ||
234: l_major_id_column_name);
235: end if;
236: End if;
237:

Line 242: FII_UTIL.Write_Log('

238:
239: -- can't accomidate a value set from multiple tables...
240: if (instrb(l_major_table_name, ',') > 0) then
241:
242: FII_UTIL.Write_Log('
243: ----------------------------
244: Error occured in Procedure: GET_CAT_SEGMENTS
245: Message: ' || 'Invalid Setup: Table validated value sets may not have multiple source tables');
246:

Line 254: FII_UTIL.Write_Log('

250:
251: -- can't allow a dependant value set in major category
252: if (l_parent_value_set_id is not null) then
253:
254: FII_UTIL.Write_Log('
255: ----------------------------
256: Error occured in Procedure: GET_CAT_SEGMENTS
257: Message: ' || 'Invalid Setup: Major Category may not be a dependant value set');
258:

Line 303: FII_UTIL.Write_Log('minor segment: ' || l_minor_seg);

299: end if;
300:
301:
302: If g_debug_flag = 'Y' then
303: FII_UTIL.Write_Log('minor segment: ' || l_minor_seg);
304: FII_UTIL.Write_Log('minor segment parent value set: ' ||
305: to_char(l_parent_value_set_id));
306: FII_UTIL.Write_Log('major segment validation_type: ' ||
307: l_major_val_type_code);

Line 304: FII_UTIL.Write_Log('minor segment parent value set: ' ||

300:
301:
302: If g_debug_flag = 'Y' then
303: FII_UTIL.Write_Log('minor segment: ' || l_minor_seg);
304: FII_UTIL.Write_Log('minor segment parent value set: ' ||
305: to_char(l_parent_value_set_id));
306: FII_UTIL.Write_Log('major segment validation_type: ' ||
307: l_major_val_type_code);
308:

Line 306: FII_UTIL.Write_Log('major segment validation_type: ' ||

302: If g_debug_flag = 'Y' then
303: FII_UTIL.Write_Log('minor segment: ' || l_minor_seg);
304: FII_UTIL.Write_Log('minor segment parent value set: ' ||
305: to_char(l_parent_value_set_id));
306: FII_UTIL.Write_Log('major segment validation_type: ' ||
307: l_major_val_type_code);
308:
309: if (l_minor_val_type_code = 'F') then
310: FII_UTIL.Write_Log('minor table name: ' ||

Line 310: FII_UTIL.Write_Log('minor table name: ' ||

306: FII_UTIL.Write_Log('major segment validation_type: ' ||
307: l_major_val_type_code);
308:
309: if (l_minor_val_type_code = 'F') then
310: FII_UTIL.Write_Log('minor table name: ' ||
311: l_minor_table_name);
312: FII_UTIL.Write_Log('minor value column name: ' ||
313: l_minor_value_column_name);
314: FII_UTIL.Write_Log('minor id column name: ' ||

Line 312: FII_UTIL.Write_Log('minor value column name: ' ||

308:
309: if (l_minor_val_type_code = 'F') then
310: FII_UTIL.Write_Log('minor table name: ' ||
311: l_minor_table_name);
312: FII_UTIL.Write_Log('minor value column name: ' ||
313: l_minor_value_column_name);
314: FII_UTIL.Write_Log('minor id column name: ' ||
315: l_minor_id_column_name);
316: end if;

Line 314: FII_UTIL.Write_Log('minor id column name: ' ||

310: FII_UTIL.Write_Log('minor table name: ' ||
311: l_minor_table_name);
312: FII_UTIL.Write_Log('minor value column name: ' ||
313: l_minor_value_column_name);
314: FII_UTIL.Write_Log('minor id column name: ' ||
315: l_minor_id_column_name);
316: end if;
317: End if;
318:

Line 322: FII_UTIL.Write_Log('

318:
319: -- can't accomidate a value set from multiple tables...
320: if (instrb(l_minor_table_name, ',') > 0) then
321:
322: FII_UTIL.Write_Log('
323: ----------------------------
324: Error occured in Procedure: GET_CAT_SEGMENTS
325: Message: ' || 'Invalid Setup: Table validated value sets may not have multiple source tables');
326:

Line 332: FII_UTIL.Write_Log('

328: end if;
329:
330: if (l_parent_value_set_id <> l_major_flex_value_set_id) then
331: -- we need to know value set is the major value set to get unique values
332: FII_UTIL.Write_Log('
333: ----------------------------
334: Error occured in Procedure: GET_CAT_SEGMENTS
335: Message: ' || 'Invalid Setup: A Dependant Minor Category must be Dependent on the Major segment');
336:

Line 345: FII_UTIL.Write_Log(l_calling_fn || ': minor segment not defined, continuing');

341:
342: exception
343: when no_data_found then
344: If g_debug_flag = 'Y' then
345: FII_UTIL.Write_Log(l_calling_fn || ': minor segment not defined, continuing');
346: End if;
347:
348: end;
349:

Line 394: FII_UTIL.Write_Log('calling FND_STATS for FII_FA_CAT_SEGMENTS');

390: g_fii_login_id
391: );
392:
393: If g_debug_flag = 'Y' then
394: FII_UTIL.Write_Log('calling FND_STATS for FII_FA_CAT_SEGMENTS');
395: End if;
396:
397: FND_STATS.gather_table_stats
398: (ownname => g_fii_schema,

Line 433: FII_UTIL.Write_Log('

429: RAISE;
430:
431: WHEN ERROR_FOUND THEN
432: rollback;
433: FII_UTIL.Write_Log('
434: ----------------------------
435: Error occured in Procedure: GET_CAT_SEGMENTS' );
436: RAISE;
437:

Line 440: FII_UTIL.Write_Log('

436: RAISE;
437:
438: WHEN OTHERS THEN
439: rollback;
440: FII_UTIL.Write_Log('
441: ----------------------------
442: Error occured in Procedure: GET_CAT_SEGMENTS
443: Message: ' || sqlerrm);
444: FII_MESSAGE.Func_Fail(l_calling_fn);

Line 508: FII_UTIL.Write_Log('Inserting IDs in flex structure: ' ||

504: FII_MESSAGE.Func_Ent(l_calling_fn);
505: End if;
506:
507: IF g_debug_flag = 'Y' then
508: FII_UTIL.Write_Log('Inserting IDs in flex structure: ' ||
509: p_major_seg || ' - ' ||
510: p_minor_seg);
511: END IF;
512:

Line 518: FII_UTIL.Write_Log(l_calling_fn || ': p_max_cat_id before insert: ' || to_char(p_max_cat_id));

514: -- Inserting records into FA CAT dimension
515: ---------------------------------------------
516:
517: If g_debug_flag = 'Y' then
518: FII_UTIL.Write_Log(l_calling_fn || ': p_max_cat_id before insert: ' || to_char(p_max_cat_id));
519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);
520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);

Line 519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);

515: ---------------------------------------------
516:
517: If g_debug_flag = 'Y' then
518: FII_UTIL.Write_Log(l_calling_fn || ': p_max_cat_id before insert: ' || to_char(p_max_cat_id));
519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);
520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);

Line 520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);

516:
517: If g_debug_flag = 'Y' then
518: FII_UTIL.Write_Log(l_calling_fn || ': p_max_cat_id before insert: ' || to_char(p_max_cat_id));
519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);
520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);

Line 521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);

517: If g_debug_flag = 'Y' then
518: FII_UTIL.Write_Log(l_calling_fn || ': p_max_cat_id before insert: ' || to_char(p_max_cat_id));
519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);
520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);

Line 522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);

518: FII_UTIL.Write_Log(l_calling_fn || ': p_max_cat_id before insert: ' || to_char(p_max_cat_id));
519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);
520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);

Line 523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);

519: FII_UTIL.Write_Log(l_calling_fn || ': p_major_seg before insert: ' || p_major_seg);
520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);

Line 524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);

520: FII_UTIL.Write_Log(l_calling_fn || ': p_major_table_name before insert: ' || p_major_table_name);
521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);
528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));

Line 525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);

521: FII_UTIL.Write_Log(l_calling_fn || ': p_major_value_column_name before insert: ' || p_major_value_column_name);
522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);
528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));
529: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_login_id before insert: ' || to_char(nvl(g_fii_login_id, -99)));

Line 526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);

522: FII_UTIL.Write_Log(l_calling_fn || ': p_major_id_column_name before insert: ' || p_major_id_column_name);
523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);
528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));
529: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_login_id before insert: ' || to_char(nvl(g_fii_login_id, -99)));
530: End if;

Line 527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);

523: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_seg before insert: ' || p_minor_seg);
524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);
528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));
529: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_login_id before insert: ' || to_char(nvl(g_fii_login_id, -99)));
530: End if;
531:

Line 528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));

524: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_table_name before insert: ' || p_minor_table_name);
525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);
528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));
529: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_login_id before insert: ' || to_char(nvl(g_fii_login_id, -99)));
530: End if;
531:
532:

Line 529: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_login_id before insert: ' || to_char(nvl(g_fii_login_id, -99)));

525: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_value_column_name before insert: ' || p_minor_value_column_name);
526: FII_UTIL.Write_Log(l_calling_fn || ': p_minor_id_column_name before insert: ' || p_minor_id_column_name);
527: FII_UTIL.Write_Log(l_calling_fn || ': p_dependant_value_set_flag before insert: ' || p_dependant_value_set_flag);
528: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_user_id before insert: ' || to_char(nvl(g_fii_user_id, -99)));
529: FII_UTIL.Write_Log(l_calling_fn || ': g_fii_login_id before insert: ' || to_char(nvl(g_fii_login_id, -99)));
530: End if;
531:
532:
533: l_ins_stmt :=

Line 655: FII_UTIL.Write_Log(l_calling_fn || 'checking dependant value flag');

651: ' AND flx2.FLEX_VALUE = cat.' || p_minor_seg ||
652: ' AND flx2.flex_value_set_id = seg2.flex_value_set_id ';
653:
654: if g_debug_flag = 'Y' then
655: FII_UTIL.Write_Log(l_calling_fn || 'checking dependant value flag');
656: end if;
657:
658: if (nvl(p_dependant_value_set_flag, 'N') = 'Y') then
659: if g_debug_flag = 'Y' then

Line 660: FII_UTIL.Write_Log(l_calling_fn || ' appending parent flex value to where clause ');

656: end if;
657:
658: if (nvl(p_dependant_value_set_flag, 'N') = 'Y') then
659: if g_debug_flag = 'Y' then
660: FII_UTIL.Write_Log(l_calling_fn || ' appending parent flex value to where clause ');
661: end if;
662:
663: l_where_stmt := l_where_stmt ||
664: ' AND flx2.parent_flex_value_low = flx1.flex_value';

Line 678: FII_UTIL.Write_Log(l_stmt);

674: -- join all clauses together...
675: l_stmt := l_ins_stmt || l_sel_stmt || l_from_stmt || l_where_stmt;
676:
677: If g_debug_flag = 'Y' then
678: FII_UTIL.Write_Log(l_stmt);
679: FII_UTIL.start_timer;
680: End if;
681:
682: execute immediate l_stmt;

Line 679: FII_UTIL.start_timer;

675: l_stmt := l_ins_stmt || l_sel_stmt || l_from_stmt || l_where_stmt;
676:
677: If g_debug_flag = 'Y' then
678: FII_UTIL.Write_Log(l_stmt);
679: FII_UTIL.start_timer;
680: End if;
681:
682: execute immediate l_stmt;
683:

Line 685: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' records into FII_FA_CAT_DIMENSIONS');

681:
682: execute immediate l_stmt;
683:
684: If g_debug_flag = 'Y' then
685: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' records into FII_FA_CAT_DIMENSIONS');
686: FII_UTIL.stop_timer;
687: FII_UTIL.print_timer('Duration');
688: FII_UTIL.Write_Log('');
689: End if;

Line 686: FII_UTIL.stop_timer;

682: execute immediate l_stmt;
683:
684: If g_debug_flag = 'Y' then
685: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' records into FII_FA_CAT_DIMENSIONS');
686: FII_UTIL.stop_timer;
687: FII_UTIL.print_timer('Duration');
688: FII_UTIL.Write_Log('');
689: End if;
690:

Line 687: FII_UTIL.print_timer('Duration');

683:
684: If g_debug_flag = 'Y' then
685: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' records into FII_FA_CAT_DIMENSIONS');
686: FII_UTIL.stop_timer;
687: FII_UTIL.print_timer('Duration');
688: FII_UTIL.Write_Log('');
689: End if;
690:
691:

Line 688: FII_UTIL.Write_Log('');

684: If g_debug_flag = 'Y' then
685: FII_UTIL.Write_Log('Inserted ' || SQL%ROWCOUNT || ' records into FII_FA_CAT_DIMENSIONS');
686: FII_UTIL.stop_timer;
687: FII_UTIL.print_timer('Duration');
688: FII_UTIL.Write_Log('');
689: End if;
690:
691:
692: -- if either value set is table based without an id column, then see if value already exists

Line 700: FII_UTIL.Write_Log(l_calling_fn || 'opening/fetching c_major_id cursor');

696: (p_major_id_column_name = '' or
697: p_major_id_column_name is null)) then
698:
699: if g_debug_flag = 'Y' then
700: FII_UTIL.Write_Log(l_calling_fn || 'opening/fetching c_major_id cursor');
701: end if;
702:
703: open c_major_id;
704: fetch c_major_id bulk collect

Line 710: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl.count: ' || to_char(l_major_id_tbl.count));

706: l_major_id_tbl;
707: close c_major_id;
708:
709: if g_debug_flag = 'Y' then
710: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl.count: ' || to_char(l_major_id_tbl.count));
711:
712: if (l_major_id_tbl.count > 0) then
713: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl(1): ' || to_char(l_major_id_tbl(1)));
714: FII_UTIL.Write_Log(l_calling_fn || 'l_major_value_tbl(1): ' || to_char(l_major_value_tbl(1)));

Line 713: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl(1): ' || to_char(l_major_id_tbl(1)));

709: if g_debug_flag = 'Y' then
710: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl.count: ' || to_char(l_major_id_tbl.count));
711:
712: if (l_major_id_tbl.count > 0) then
713: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl(1): ' || to_char(l_major_id_tbl(1)));
714: FII_UTIL.Write_Log(l_calling_fn || 'l_major_value_tbl(1): ' || to_char(l_major_value_tbl(1)));
715: end if;
716:
717: end if;

Line 714: FII_UTIL.Write_Log(l_calling_fn || 'l_major_value_tbl(1): ' || to_char(l_major_value_tbl(1)));

710: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl.count: ' || to_char(l_major_id_tbl.count));
711:
712: if (l_major_id_tbl.count > 0) then
713: FII_UTIL.Write_Log(l_calling_fn || 'l_major_id_tbl(1): ' || to_char(l_major_id_tbl(1)));
714: FII_UTIL.Write_Log(l_calling_fn || 'l_major_value_tbl(1): ' || to_char(l_major_value_tbl(1)));
715: end if;
716:
717: end if;
718:

Line 756: FII_UTIL.Write_Log('

752:
753: WHEN OTHERS THEN
754: rollback;
755: g_retcode := -1;
756: FII_UTIL.Write_Log('
757: -----------------------------
758: Error occured in Procedure: INSERT_INTO_CAT_DIM
759: Message: ' || sqlerrm);
760: FII_MESSAGE.Func_Fail(l_calling_fn);

Line 781: FII_UTIL.Write_Log('');

777:
778: g_phase := 'Updating max CAT ID processed';
779:
780: If g_debug_flag = 'Y' then
781: FII_UTIL.Write_Log('');
782: FII_UTIL.Write_Log(g_phase);
783: FII_UTIL.start_timer;
784: End if;
785:

Line 782: FII_UTIL.Write_Log(g_phase);

778: g_phase := 'Updating max CAT ID processed';
779:
780: If g_debug_flag = 'Y' then
781: FII_UTIL.Write_Log('');
782: FII_UTIL.Write_Log(g_phase);
783: FII_UTIL.start_timer;
784: End if;
785:
786: --------------------------------------------------------------

Line 783: FII_UTIL.start_timer;

779:
780: If g_debug_flag = 'Y' then
781: FII_UTIL.Write_Log('');
782: FII_UTIL.Write_Log(g_phase);
783: FII_UTIL.start_timer;
784: End if;
785:
786: --------------------------------------------------------------
787: -- Get the real max cat id that was inserted into CAT dimension

Line 803: FII_UTIL.Write_Log(l_calling_fn || ': l_tmp_max_cat_id: ' || to_char(l_tmp_max_cat_id));

799: INTO l_tmp_max_cat_id
800: FROM fii_fa_cat_dimensions;
801:
802: If g_debug_flag = 'Y' then
803: FII_UTIL.Write_Log(l_calling_fn || ': l_tmp_max_cat_id: ' || to_char(l_tmp_max_cat_id));
804: End if;
805:
806:
807: -- we should pick the larger one for g_new_max_cat_id

Line 824: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in fii_change_log');

820: last_updated_by = g_fii_user_id
821: WHERE log_item = 'MAX_ASSET_CAT_ID';
822:
823: If g_debug_flag = 'Y' then
824: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in fii_change_log');
825: End if;
826:
827: If g_debug_flag = 'Y' then
828: FII_UTIL.stop_timer;

Line 828: FII_UTIL.stop_timer;

824: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in fii_change_log');
825: End if;
826:
827: If g_debug_flag = 'Y' then
828: FII_UTIL.stop_timer;
829: FII_UTIL.print_timer('Duration');
830: FII_UTIL.Write_Log('');
831: End if;
832:

Line 829: FII_UTIL.print_timer('Duration');

825: End if;
826:
827: If g_debug_flag = 'Y' then
828: FII_UTIL.stop_timer;
829: FII_UTIL.print_timer('Duration');
830: FII_UTIL.Write_Log('');
831: End if;
832:
833: If g_debug_flag = 'Y' then

Line 830: FII_UTIL.Write_Log('');

826:
827: If g_debug_flag = 'Y' then
828: FII_UTIL.stop_timer;
829: FII_UTIL.print_timer('Duration');
830: FII_UTIL.Write_Log('');
831: End if;
832:
833: If g_debug_flag = 'Y' then
834: FII_MESSAGE.Func_Succ(l_calling_fn);

Line 841: FII_UTIL.Write_Log('

837: EXCEPTION
838: WHEN OTHERS THEN
839: rollback;
840: g_retcode := -1;
841: FII_UTIL.Write_Log('
842: -------------------------------------------
843: Error occured in Procedure: RECORD_MAX_PROCESSED_CAT_ID
844: Phase: ' || g_phase || '
845: Message: ' || sqlerrm);

Line 867: FII_UTIL.Write_Log(g_phase);

863:
864: g_phase := 'Identifying Max CAT ID processed';
865:
866: If g_debug_flag = 'Y' then
867: FII_UTIL.Write_Log(g_phase);
868: FII_UTIL.Write_Log('');
869: End if;
870:
871: SELECT item_value

Line 868: FII_UTIL.Write_Log('');

864: g_phase := 'Identifying Max CAT ID processed';
865:
866: If g_debug_flag = 'Y' then
867: FII_UTIL.Write_Log(g_phase);
868: FII_UTIL.Write_Log('');
869: End if;
870:
871: SELECT item_value
872: INTO g_max_cat_id

Line 877: FII_UTIL.Write_Log(l_calling_fn || ': g_max_cat_id: ' || to_char(g_max_cat_id));

873: FROM fii_change_log
874: WHERE log_item = 'MAX_ASSET_CAT_ID';
875:
876: If g_debug_flag = 'Y' then
877: FII_UTIL.Write_Log(l_calling_fn || ': g_max_cat_id: ' || to_char(g_max_cat_id));
878: End if;
879:
880:
881: g_phase := 'Identifying current Max Cat ID in FA';

Line 883: FII_UTIL.Write_Log(g_phase);

879:
880:
881: g_phase := 'Identifying current Max Cat ID in FA';
882: If g_debug_flag = 'Y' then
883: FII_UTIL.Write_Log(g_phase);
884: FII_UTIL.Write_Log('');
885: End if;
886:
887: SELECT max(category_id)

Line 884: FII_UTIL.Write_Log('');

880:
881: g_phase := 'Identifying current Max Cat ID in FA';
882: If g_debug_flag = 'Y' then
883: FII_UTIL.Write_Log(g_phase);
884: FII_UTIL.Write_Log('');
885: End if;
886:
887: SELECT max(category_id)
888: INTO g_new_max_cat_id

Line 892: FII_UTIL.Write_Log(l_calling_fn || ': g_max_cat_id: ' || to_char(g_max_cat_id));

888: INTO g_new_max_cat_id
889: FROM fa_categories;
890:
891: If g_debug_flag = 'Y' then
892: FII_UTIL.Write_Log(l_calling_fn || ': g_max_cat_id: ' || to_char(g_max_cat_id));
893: End if;
894:
895:
896: If g_debug_flag = 'Y' then

Line 910: FII_UTIL.Write_Log('

906: EXCEPTION
907: WHEN OTHERS THEN
908: rollback;
909: g_retcode := -1;
910: FII_UTIL.Write_Log('
911: -------------------------------------------
912: Error occured in Function: NEW_CAT_IN_FA
913: Phase: ' || g_phase || '
914: Message: ' || sqlerrm);

Line 950: FII_UTIL.Write_Log(g_phase);

946: End if;
947:
948: g_phase := 'Identifying Max CAT ID processed';
949: If g_debug_flag = 'Y' then
950: FII_UTIL.Write_Log(g_phase);
951: FII_UTIL.Write_Log('');
952: End if;
953:
954: SELECT item_value

Line 951: FII_UTIL.Write_Log('');

947:
948: g_phase := 'Identifying Max CAT ID processed';
949: If g_debug_flag = 'Y' then
950: FII_UTIL.Write_Log(g_phase);
951: FII_UTIL.Write_Log('');
952: End if;
953:
954: SELECT item_value
955: INTO g_max_cat_id

Line 960: FII_UTIL.Write_Log(l_calling_fn || ': g_max_cat_id: ' || to_char(g_max_cat_id));

956: FROM fii_change_log
957: WHERE log_item = 'MAX_ASSET_CAT_ID';
958:
959: If g_debug_flag = 'Y' then
960: FII_UTIL.Write_Log(l_calling_fn || ': g_max_cat_id: ' || to_char(g_max_cat_id));
961: End if;
962:
963:
964: g_phase := 'Identifying current Max CAT ID in FA';

Line 966: FII_UTIL.Write_Log(g_phase);

962:
963:
964: g_phase := 'Identifying current Max CAT ID in FA';
965: If g_debug_flag = 'Y' then
966: FII_UTIL.Write_Log(g_phase);
967: FII_UTIL.Write_Log('');
968: End if;
969:
970: ------------------------------------------------------

Line 967: FII_UTIL.Write_Log('');

963:
964: g_phase := 'Identifying current Max CAT ID in FA';
965: If g_debug_flag = 'Y' then
966: FII_UTIL.Write_Log(g_phase);
967: FII_UTIL.Write_Log('');
968: End if;
969:
970: ------------------------------------------------------
971: -- g_mode = 'L' if program is run in Initial Load mode

Line 979: FII_UTIL.TRUNCATE_TABLE('FII_FA_CAT_DIMENSIONS',g_fii_schema,g_retcode);

975: --Clean up the CAT dimension table
976:
977: g_phase := 'TRUNCATE FII_FA_CAT_DIMENSIONS';
978:
979: FII_UTIL.TRUNCATE_TABLE('FII_FA_CAT_DIMENSIONS',g_fii_schema,g_retcode);
980:
981: --Update FII_CHANGE_LOG to reset MAX_CAT_ID
982:
983: g_phase := 'UPDATE fii_change_log';

Line 993: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in fii_change_log');

989: last_updated_by = g_fii_user_id
990: WHERE log_item = 'MAX_ASSET_CAT_ID';
991:
992: If g_debug_flag = 'Y' then
993: FII_UTIL.Write_Log('Updated ' || SQL%ROWCOUNT || ' rows in fii_change_log');
994: End if;
995:
996: g_max_cat_id := 0;
997:

Line 1010: FII_UTIL.Write_Log(g_phase);

1006: IF (g_new_max_cat_id > g_max_cat_id) THEN
1007:
1008: g_phase := 'Insert new CAT IDs into FII_FA_CAT_DIMENSIONS table';
1009: If g_debug_flag = 'Y' then
1010: FII_UTIL.Write_Log(g_phase);
1011: FII_UTIL.Write_Log('');
1012: End if;
1013:
1014: -----------------------------------------------------------------

Line 1011: FII_UTIL.Write_Log('');

1007:
1008: g_phase := 'Insert new CAT IDs into FII_FA_CAT_DIMENSIONS table';
1009: If g_debug_flag = 'Y' then
1010: FII_UTIL.Write_Log(g_phase);
1011: FII_UTIL.Write_Log('');
1012: End if;
1013:
1014: -----------------------------------------------------------------
1015: -- Using this SQL to get major and minor segments for each

Line 1025: FII_UTIL.TRUNCATE_TABLE('FII_FA_CAT_SEGMENTS', g_fii_schema, g_retcode);

1021: -- only call get_cat_segments when called in initial mode
1022: -----------------------------------------------------------------
1023:
1024: if (g_mode = 'L') then
1025: FII_UTIL.TRUNCATE_TABLE('FII_FA_CAT_SEGMENTS', g_fii_schema, g_retcode);
1026:
1027: g_phase := 'INSERT INTO FII_FA_CAT_SEGMENTS';
1028:
1029: GET_CAT_SEGMENTS;

Line 1040: FII_UTIL.Write_Log(l_calling_fn || ': in sss loop');

1036:
1037: FOR sss IN sss_list LOOP
1038:
1039: If g_debug_flag = 'Y' then
1040: FII_UTIL.Write_Log(l_calling_fn || ': in sss loop');
1041: End if;
1042:
1043:
1044: g_phase := 'Call INSERT_INTO_CAT_ID_DIM';

Line 1072: FII_UTIL.Write_Log('No new CCID in GL');

1068: RECORD_MAX_PROCESSED_CAT_ID;
1069:
1070: ELSE
1071: If g_debug_flag = 'Y' then
1072: FII_UTIL.Write_Log('No new CCID in GL');
1073: End if;
1074: END IF;
1075:
1076:

Line 1098: FII_UTIL.TRUNCATE_TABLE('FII_FA_CAT_DIMENSIONS',g_fii_schema,g_retcode);

1094: if g_mode = 'L' then
1095:
1096: --program is run in Initial Load mode, truncate the table and reset LOG
1097:
1098: FII_UTIL.TRUNCATE_TABLE('FII_FA_CAT_DIMENSIONS',g_fii_schema,g_retcode);
1099:
1100: UPDATE fii_change_log
1101: SET item_value = '0',
1102: last_update_date = sysdate,

Line 1113: FII_UTIL.Write_Log('

1109: end if;
1110:
1111: rollback;
1112: g_retcode := -1;
1113: FII_UTIL.Write_Log('
1114: -----------------------------
1115: Error occured in Procedure: INSERT_NEW_CAT
1116: Phase: ' || g_phase || '
1117: Message: ' || sqlerrm);

Line 1165: FII_UTIL.Write_Log(g_phase);

1161: ----------------------------------------------
1162: g_phase := 'Set up for log file';
1163:
1164: If g_debug_flag = 'Y' then
1165: FII_UTIL.Write_Log(g_phase);
1166: End if;
1167:
1168: l_dir := fnd_profile.value('BIS_DEBUG_LOG_DIRECTORY');
1169: ------------------------------------------------------

Line 1174: l_dir := FII_UTIL.get_utl_file_dir ;

1170: -- Set default directory in case if the profile option
1171: -- BIS_DEBUG_LOG_DIRECTORY is not set up
1172: ------------------------------------------------------
1173: if l_dir is NULL then
1174: l_dir := FII_UTIL.get_utl_file_dir ;
1175: end if;
1176:
1177: ----------------------------------------------------------------
1178: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE

Line 1178: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE

1174: l_dir := FII_UTIL.get_utl_file_dir ;
1175: end if;
1176:
1177: ----------------------------------------------------------------
1178: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
1179: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
1180: -- the log files and output files are written to
1181: ----------------------------------------------------------------
1182: FII_UTIL.initialize('FII_FA_CAT_ID.log','FII_FA_CAT_ID.out',l_dir, 'FII_FA_CAT_ID_C');

Line 1182: FII_UTIL.initialize('FII_FA_CAT_ID.log','FII_FA_CAT_ID.out',l_dir, 'FII_FA_CAT_ID_C');

1178: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
1179: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
1180: -- the log files and output files are written to
1181: ----------------------------------------------------------------
1182: FII_UTIL.initialize('FII_FA_CAT_ID.log','FII_FA_CAT_ID.out',l_dir, 'FII_FA_CAT_ID_C');
1183:
1184: -- --------------------------------------------------------
1185: -- Check source ledger setup for DBI
1186: -- --------------------------------------------------------

Line 1189: FII_UTIL.write_log(g_phase);

1185: -- Check source ledger setup for DBI
1186: -- --------------------------------------------------------
1187: g_phase := 'Check source ledger setup for DBI';
1188: if g_debug_flag = 'Y' then
1189: FII_UTIL.write_log(g_phase);
1190: end if;
1191:
1192: l_check := FII_EXCEPTION_CHECK_PKG.check_slg_setup;
1193:

Line 1204: FII_UTIL.Write_Log(g_phase);

1200: -- --------------------------------------------------------
1201: g_phase := 'Find User ID, Login ID, and Current Language';
1202:
1203: If g_debug_flag = 'Y' then
1204: FII_UTIL.Write_Log(g_phase);
1205: End if;
1206:
1207: g_fii_user_id := FND_GLOBAL.User_Id;
1208: g_fii_login_id := FND_GLOBAL.Login_Id;

Line 1220: FII_UTIL.Write_Log(g_phase);

1216: -- --------------------------------------------------------
1217: g_phase := 'Find schema owner for FII';
1218:
1219: If g_debug_flag = 'Y' then
1220: FII_UTIL.Write_Log(g_phase);
1221: End if;
1222:
1223: IF(FND_INSTALLATION.GET_APP_INFO('FII', l_status, l_industry, g_fii_schema))
1224: THEN NULL;

Line 1234: FII_UTIL.write_log ('No source ledger setup for DBI');

1230:
1231: EXCEPTION
1232:
1233: WHEN G_NO_SLG_SETUP THEN
1234: FII_UTIL.write_log ('No source ledger setup for DBI');
1235: g_retcode := -1;
1236: FII_MESSAGE.Func_Fail(l_calling_fn);
1237: raise;
1238:

Line 1240: FII_UTIL.Write_Log ('Can not get User ID and Login ID, program exit');

1236: FII_MESSAGE.Func_Fail(l_calling_fn);
1237: raise;
1238:
1239: WHEN G_LOGIN_INFO_NOT_AVABLE THEN
1240: FII_UTIL.Write_Log ('Can not get User ID and Login ID, program exit');
1241: g_retcode := -1;
1242: FII_MESSAGE.Func_Fail(l_calling_fn);
1243: raise;
1244:

Line 1247: FII_UTIL.Write_Log('

1243: raise;
1244:
1245: WHEN OTHERS THEN
1246: g_retcode := -1;
1247: FII_UTIL.Write_Log('
1248: ------------------------
1249: Error in Procedure: INITIALIZE
1250: Phase: '||g_phase||'
1251: Message: '||sqlerrm);

Line 1299: -- FII_UTIL.TRUNCATE_TABLE ('FII_FA_CAT_PROD_INT', g_fii_schema, g_retcode);

1295:
1296: ---------------------------------------------------
1297: -- Clean up temporary tables used by the program
1298: ---------------------------------------------------
1299: -- FII_UTIL.TRUNCATE_TABLE ('FII_FA_CAT_PROD_INT', g_fii_schema, g_retcode);
1300:
1301: ---------------------------------------------------
1302: -- Inserting the basic items into FII_CHANGE_LOG if
1303: -- they have not been inserted

Line 1382: FII_UTIL.Write_Log('

1378: EXCEPTION
1379: WHEN OTHERS THEN
1380: rollback;
1381:
1382: FII_UTIL.Write_Log('
1383: -----------------------------
1384: Error occured in Procedure: MAIN
1385: Phase: ' || g_phase || '
1386: Message: ' || sqlerrm);