DBA Data[Home] [Help]

APPS.QPR_COPY_PRICE_PLAN dependencies on FND_FILE

Line 218: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING DIMENSIONS...');

214:
215: return(rec_dim_out);
216: exception
217: when OTHERS then
218: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING DIMENSIONS...');
219: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
220: raise;
221: end insert_dim_values;
222:

Line 219: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

215: return(rec_dim_out);
216: exception
217: when OTHERS then
218: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING DIMENSIONS...');
219: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
220: raise;
221: end insert_dim_values;
222:
223: function insert_dim_attr_values(p_ppdim_id in number)

Line 263: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING DIMENSION ATTRIBUTES..');

259:
260: return(t_old_new_dim_attr);
261: exception
262: when OTHERS then
263: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING DIMENSION ATTRIBUTES..');
264: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
265: raise;
266: end insert_dim_attr_values;
267:

Line 264: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

260: return(t_old_new_dim_attr);
261: exception
262: when OTHERS then
263: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING DIMENSION ATTRIBUTES..');
264: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
265: raise;
266: end insert_dim_attr_values;
267:
268: function insert_hier_values(p_ppdim_id in number) return val_out_type is

Line 300: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING HIERARCHIES...');

296:
297: return(rec_hier_out);
298: exception
299: when OTHERS then
300: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING HIERARCHIES...');
301: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
302: raise;
303: end insert_hier_values;
304:

Line 301: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

297: return(rec_hier_out);
298: exception
299: when OTHERS then
300: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING HIERARCHIES...');
301: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
302: raise;
303: end insert_hier_values;
304:
305: function insert_hier_lvl_val(p_hier_id in number) return num_type is

Line 345: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING HIERARCHY LEVELS...');

341: end loop;
342: return(t_old_new_lvl);
343: exception
344: when OTHERS then
345: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING HIERARCHY LEVELS...');
346: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
347: raise;
348: end insert_hier_lvl_val;
349:

Line 346: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

342: return(t_old_new_lvl);
343: exception
344: when OTHERS then
345: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING HIERARCHY LEVELS...');
346: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
347: raise;
348: end insert_hier_lvl_val;
349:
350: procedure insert_lvl_attributes is

Line 377: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING LEVEL ATTRIBUTES...');

373: g_user_id, g_sys_date, g_user_id,g_login_id, g_prg_appl_id,
374: g_prg_id, g_request_id);
375: exception
376: when OTHERS then
377: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING LEVEL ATTRIBUTES...');
378: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
379: raise;
380: end insert_lvl_attributes;
381:

Line 378: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

374: g_prg_id, g_request_id);
375: exception
376: when OTHERS then
377: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING LEVEL ATTRIBUTES...');
378: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
379: raise;
380: end insert_lvl_attributes;
381:
382: function insert_cube_data return val_out_type is

Line 420: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE DATA...');

416:
417: return(r_cub_val_out);
418: exception
419: when OTHERS then
420: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE DATA...');
421: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
422: raise;
423: end insert_cube_data;
424:

Line 421: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

417: return(r_cub_val_out);
418: exception
419: when OTHERS then
420: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE DATA...');
421: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
422: raise;
423: end insert_cube_data;
424:
425: function substitute_cube_code(p_calc_exp in varchar2) return varchar2 is

Line 492: fnd_file.put_line(fnd_file.log,s_final_expression);

488: exit when (l_oper_pos = -1);
489:
490: s_old_expression := substr(s_old_expression, l_oper_pos+1);
491: end loop;
492: fnd_file.put_line(fnd_file.log,s_final_expression);
493: return(s_final_expression);
494: end substitute_cube_code;
495:
496: function insert_cub_meas(p_cube_id in number,p_from_pp_id in number,

Line 569: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE MEASURES...');

565: end loop;
566: return t_meas_old_new_ids;
567: exception
568: when OTHERS then
569: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE MEASURES...');
570: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
571: raise;
572: end insert_cub_meas;
573:

Line 570: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

566: return t_meas_old_new_ids;
567: exception
568: when OTHERS then
569: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE MEASURES...');
570: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
571: raise;
572: end insert_cub_meas;
573:
574: function insert_cub_dims(p_cube_id in number,

Line 632: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE DIMENSIONS...');

628: end loop;
629: return(t_old_new_cub_dim);
630: exception
631: when OTHERS then
632: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE DIMENSIONS...');
633: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
634: raise;
635: end insert_cub_dims;
636:

Line 633: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

629: return(t_old_new_cub_dim);
630: exception
631: when OTHERS then
632: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE DIMENSIONS...');
633: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
634: raise;
635: end insert_cub_dims;
636:
637: function insert_meas_aggr(p_old_new_cub_dim in num_type,

Line 746: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING MEASURE AGGREGATION...');

742:
743: return(r_meas_set_lvl);
744: exception
745: when OTHERS then
746: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING MEASURE AGGREGATION...');
747: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
748: raise;
749: end insert_meas_aggr;
750:

Line 747: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

743: return(r_meas_set_lvl);
744: exception
745: when OTHERS then
746: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING MEASURE AGGREGATION...');
747: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
748: raise;
749: end insert_meas_aggr;
750:
751: procedure insert_set_level(p_old_new_cub_dim in num_type,

Line 823: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE SET LEVEL... ');

819: g_sys_date, g_user_id, g_sys_date, g_user_id,
820: g_login_id, g_prg_appl_id, g_prg_id, g_request_id);
821: exception
822: when OTHERS then
823: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE SET LEVEL... ');
824: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
825: raise;
826: end insert_set_level;
827:

Line 824: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

820: g_login_id, g_prg_appl_id, g_prg_id, g_request_id);
821: exception
822: when OTHERS then
823: fnd_file.put_line(fnd_file.log, 'ERROR INSERTING CUBE SET LEVEL... ');
824: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
825: raise;
826: end insert_set_level;
827:
828: procedure clean_dimattrval is

Line 1040: fnd_file.put_line(fnd_file.log, 'Copying dimensions...');

1036: rec_hier_ids val_out_type;
1037: t_old_new_dim_attr num_type;
1038: t_old_new_lvl num_type;
1039: begin
1040: fnd_file.put_line(fnd_file.log, 'Copying dimensions...');
1041:
1042: if g_copy_det_frm_tmpl = 'Y' then
1043: select src.PRICE_PLAN_DIM_ID, tmpl.PRICE_PLAN_DIM_ID, tmpl.DIM_CODE,
1044: tmpl.DIM_PPA_CODE, tmpl.DIM_SEQ_NUM, tmpl.MAND_DIM_FLAG,

Line 1070: fnd_file.put_line(fnd_file.log, 'No dimensions to copy..');

1066:
1067: s_sql := '';
1068:
1069: if r_dim_val.DIM_CODE.count = 0 then
1070: fnd_file.put_line(fnd_file.log, 'No dimensions to copy..');
1071: return(-2);
1072: end if;
1073:
1074: rec_dim_ids := insert_dim_values;

Line 1090: fnd_file.put_line(fnd_file.log,

1086: else
1087: p_t_old_new_dim(r_dim_val.SRC_PRICE_PLAN_DIM_ID(i)) := rec_dim_ids.ID(i);
1088: end if;
1089:
1090: fnd_file.put_line(fnd_file.log,
1091: 'Copying dimension attributes for ' || rec_dim_ids.PPA_CODE(i));
1092: -- Note: when details are not copied from template then tmpl_price_plan_dim_id
1093: -- will be null.
1094: l_pplan_dim_id := nvl(r_dim_val.TMPL_PRICE_PLAN_DIM_ID(i) ,

Line 1107: fnd_file.put_line(fnd_file.log, 'No dimension attributes to copy..');

1103:
1104: if r_dim_attr_val.DIM_ATTR_ID.count > 0 then
1105: t_old_new_dim_attr := insert_dim_attr_values(rec_dim_ids.ID(i));
1106: else
1107: fnd_file.put_line(fnd_file.log, 'No dimension attributes to copy..');
1108: end if;
1109:
1110: clean_dimattrval;
1111:

Line 1112: fnd_file.put_line(fnd_file.log,

1108: end if;
1109:
1110: clean_dimattrval;
1111:
1112: fnd_file.put_line(fnd_file.log,
1113: 'Copying hierarchies for ' || rec_dim_ids.PPA_CODE(i));
1114:
1115: select HIERARCHY_ID,HIERARCHY_PPA_CODE,HIER_SHORT_NAME, HIER_LONG_NAME,
1116: HIER_PLURAL_NAME, HIER_TYPE_CODE, HIER_DEFAULT_ORDER,DEFAULT_FLAG,

Line 1126: fnd_file.put_line(fnd_file.log,

1122:
1123: if r_dim_hier_val.HIERARCHY_ID.count > 0 then
1124: rec_hier_ids := insert_hier_values(rec_dim_ids.ID(i));
1125: for j in rec_hier_ids.ID.first..rec_hier_ids.ID.last loop
1126: fnd_file.put_line(fnd_file.log,
1127: 'Copying levels for hierarchy ' || rec_hier_ids.PPA_CODE(j));
1128:
1129: select HIERARCHY_LEVEL_ID, LEVEL_PPA_CODE, LEVEL_SEQ_NUM,
1130: LVL_SHORT_NAME, LVL_LONG_NAME, LVL_PLURAL_NAME,

Line 1140: fnd_file.put_line(fnd_file.log,

1136: and HIERARCHY_ID = r_dim_hier_val.HIERARCHY_ID(j)
1137: and nvl(INCLUDE_FLAG, 'Y') = 'Y';
1138:
1139: if r_hier_lvl_val.HIERARCHY_LEVEL_ID.count = 0 then
1140: fnd_file.put_line(fnd_file.log,
1141: 'No level to copy for hierarchy...' );
1142: l_ret := -1;
1143: else
1144: t_old_new_lvl := insert_hier_lvl_val(rec_hier_ids.ID(j));

Line 1166: fnd_file.put_line(fnd_file.log, 'Copying attributes for all levels...');

1162: end loop;
1163:
1164: s_sql := s_lvl_sql || s_temp_sql || ')' ;
1165:
1166: fnd_file.put_line(fnd_file.log, 'Copying attributes for all levels...');
1167:
1168: open c_get_lvl_attr for s_sql using g_src_pplan_id;
1169: fetch c_get_lvl_attr bulk collect into r_lvl_attr_val;
1170: close c_get_lvl_attr;

Line 1182: fnd_file.put_line(fnd_file.log, 'No level attributes to copy..');

1178: r_lvl_attr_val.DIM_ATTR_ID(k) := t_old_new_dim_attr(l_old_dim_attr);
1179: end loop;
1180: insert_lvl_attributes;
1181: else
1182: fnd_file.put_line(fnd_file.log, 'No level attributes to copy..');
1183: end if;
1184:
1185: clean_lvlattrval;
1186: end if;

Line 1191: fnd_file.put_line(fnd_file.log, 'No Hierarchies to copy...');

1187: t_old_new_lvl.delete;
1188: end loop;
1189: t_old_new_dim_attr.delete;
1190: else
1191: fnd_file.put_line(fnd_file.log, 'No Hierarchies to copy...');
1192: l_ret := -1;
1193: end if;
1194: clean_hierval;
1195: rec_hier_ids.ID.delete;

Line 1204: fnd_file.put_line(fnd_file.log,'ERROR COPYING DIMENSION RELATED DATA...');

1200: rec_dim_ids.PPA_CODE.delete;
1201: return(l_ret);
1202: exception
1203: when OTHERS then
1204: fnd_file.put_line(fnd_file.log,'ERROR COPYING DIMENSION RELATED DATA...');
1205: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1206: raise;
1207: return(-1);
1208: end copy_dim_data;

Line 1205: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

1201: return(l_ret);
1202: exception
1203: when OTHERS then
1204: fnd_file.put_line(fnd_file.log,'ERROR COPYING DIMENSION RELATED DATA...');
1205: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1206: raise;
1207: return(-1);
1208: end copy_dim_data;
1209:

Line 1264: fnd_file.put_line(fnd_file.log, 'Copying cube data...');

1260:
1261: c_get_cub_meas_agg SYS_REFCURSOR;
1262: c_get_set_level SYS_REFCURSOR;
1263: begin
1264: fnd_file.put_line(fnd_file.log, 'Copying cube data...');
1265:
1266: if g_copy_det_frm_tmpl = 'Y' then
1267: select src.CUBE_ID, tmpl.CUBE_ID , src.CUBE_PPA_CODE,
1268: tmpl.CUBE_CODE || g_new_pp_id || '_C' ,

Line 1290: fnd_file.put_line(fnd_file.log, 'No cube to copy ...');

1286: from qpr_cubes where PRICE_PLAN_ID = p_from_pp_id
1287: order by cube_id;
1288: end if;
1289: if r_cub_val.src_cube_id.count = 0 then
1290: fnd_file.put_line(fnd_file.log, 'No cube to copy ...');
1291: return(-1);
1292: else
1293: rec_cub_ids := insert_cube_data;
1294: end if;

Line 1300: fnd_file.put_line(fnd_file.log,

1296: s_get_cmagg_sql := get_cube_meas_aggrs_sql;
1297: s_get_set_lvl_sql := get_cube_set_lvl_sql;
1298:
1299: for i in rec_cub_ids.ID.first..rec_cub_ids.ID.last loop
1300: fnd_file.put_line(fnd_file.log,
1301: 'Copying data for cube ' || rec_cub_ids.PPA_CODE(i));
1302: if g_copy_det_frm_tmpl = 'Y' then
1303: l_ref_cub_id := r_cub_val.TMPL_CUBE_ID(i);
1304: else

Line 1308: fnd_file.put_line(fnd_file.log, 'Copying cube measures... ' );

1304: else
1305: l_ref_cub_id := r_cub_val.SRC_CUBE_ID(i);
1306: end if;
1307: -- ****** COPYING CUBE MEASURES ***********
1308: fnd_file.put_line(fnd_file.log, 'Copying cube measures... ' );
1309:
1310: select MEASURE_ID, MEASURE_PPA_CODE, MEAS_CREATION_SEQ_NUM,
1311: MEAS_SHORT_NAME, MEAS_LONG_NAME, MEAS_PLURAL_NAME, MEAS_TYPE,
1312: MEAS_DATA_TYPE, MEAS_AUTO_SOLVE,

Line 1324: fnd_file.put_line(fnd_file.log, 'No Measures to copy');

1320: and CUBE_ID = l_ref_cub_id
1321: and nvl(INCLUDE_FLAG, 'Y') = 'Y';
1322:
1323: if r_cub_meas_val.MEASURE_ID.count = 0 then
1324: fnd_file.put_line(fnd_file.log, 'No Measures to copy');
1325: l_ret := -1;
1326: else
1327: t_old_new_meas := insert_cub_meas( rec_cub_ids.ID(i),p_from_pp_id,
1328: rec_cub_ids.PPA_CODE(i));

Line 1346: fnd_file.put_line(fnd_file.log, 'Copying cube dimensions...');

1342: l_ctr := t_old_new_meas.next(l_ctr);
1343: end loop;
1344:
1345: -- ********* COPYING CUBE DIMENSIONS *********
1346: fnd_file.put_line(fnd_file.log, 'Copying cube dimensions...');
1347:
1348: select CUBE_DIM_ID, PRICE_PLAN_DIM_ID, AGGMAP_NAME,
1349: DIM_OPCODE, DIM_SEQ_NUM,MAPPING_VIEW_NAME,MAP_COLUMN,
1350: USER_MAPPING_VIEW_NAME,USER_MAP_COLUMN,SET_LEVEL_FLAG,

Line 1360: fnd_file.put_line(fnd_file.log, 'No Cube dimensions to copy...');

1356: where PRICE_PLAN_ID = g_src_pplan_id
1357: and CUBE_ID = l_ref_cub_id;
1358:
1359: if r_cub_dims_val.CUBE_DIM_ID.count = 0 then
1360: fnd_file.put_line(fnd_file.log, 'No Cube dimensions to copy...');
1361: l_ret := 0;
1362: else
1363: t_old_new_cub_dim := insert_cub_dims(rec_cub_ids.ID(i),
1364: p_t_old_new_dim,

Line 1402: fnd_file.put_line(fnd_file.log, 'Copying cube measure aggregation...');

1398: end if;
1399:
1400: if r_cub_meas_aggr.MEASURE_ID.count > 0
1401: or r_cub_int_maggr.MEASURE_ID.count > 0 then
1402: fnd_file.put_line(fnd_file.log, 'Copying cube measure aggregation...');
1403: r_meas_set_lvl := insert_meas_aggr(t_old_new_cub_dim,t_old_new_meas);
1404: else
1405: fnd_file.put_line(fnd_file.log,
1406: 'No specific measure aggregation defined for this cube');

Line 1405: fnd_file.put_line(fnd_file.log,

1401: or r_cub_int_maggr.MEASURE_ID.count > 0 then
1402: fnd_file.put_line(fnd_file.log, 'Copying cube measure aggregation...');
1403: r_meas_set_lvl := insert_meas_aggr(t_old_new_cub_dim,t_old_new_meas);
1404: else
1405: fnd_file.put_line(fnd_file.log,
1406: 'No specific measure aggregation defined for this cube');
1407: end if;
1408: clean_measaggr;
1409:

Line 1427: fnd_file.put_line(fnd_file.log, 'Copying cube set level...');

1423: end if;
1424:
1425: if r_cub_set_lvl.CUBE_DIM_ID.count > 0
1426: or r_int_set_lvl.CUBE_DIM_ID.count > 0 then
1427: fnd_file.put_line(fnd_file.log, 'Copying cube set level...');
1428: insert_set_level(t_old_new_cub_dim, t_old_new_meas,
1429: r_meas_set_lvl);
1430: else
1431: fnd_file.put_line(fnd_file.log,

Line 1431: fnd_file.put_line(fnd_file.log,

1427: fnd_file.put_line(fnd_file.log, 'Copying cube set level...');
1428: insert_set_level(t_old_new_cub_dim, t_old_new_meas,
1429: r_meas_set_lvl);
1430: else
1431: fnd_file.put_line(fnd_file.log,
1432: 'No levels set for this cube dimensions/measures');
1433: end if;
1434: clean_setlvl;
1435: end if;

Line 1448: fnd_file.put_line(fnd_file.log, 'ERROR COPYING CUBE RELATED DATA...');

1444: rec_cub_ids.PPA_CODE.delete;
1445: return(l_ret);
1446: exception
1447: when OTHERS then
1448: fnd_file.put_line(fnd_file.log, 'ERROR COPYING CUBE RELATED DATA...');
1449: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1450: raise;
1451: return(-1);
1452: end copy_cube_data;

Line 1449: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

1445: return(l_ret);
1446: exception
1447: when OTHERS then
1448: fnd_file.put_line(fnd_file.log, 'ERROR COPYING CUBE RELATED DATA...');
1449: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1450: raise;
1451: return(-1);
1452: end copy_cube_data;
1453:

Line 1489: fnd_file.put_line(fnd_file.log, 'Starting to copy...');

1485: where parent_entity_type = 'DATAMART'
1486: and parent_id = p_from_pp_id;
1487:
1488: begin
1489: fnd_file.put_line(fnd_file.log, 'Starting to copy...');
1490: select hsecs into l_start_time from v$timer;
1491: fnd_file.put_line(fnd_file.log, 'Start time :'||
1492: to_char(sysdate,'MM/DD/YYYY:HH:MM:SS'));
1493: fnd_profile.get('CONC_REQUEST_ID', g_request_id);

Line 1491: fnd_file.put_line(fnd_file.log, 'Start time :'||

1487:
1488: begin
1489: fnd_file.put_line(fnd_file.log, 'Starting to copy...');
1490: select hsecs into l_start_time from v$timer;
1491: fnd_file.put_line(fnd_file.log, 'Start time :'||
1492: to_char(sysdate,'MM/DD/YYYY:HH:MM:SS'));
1493: fnd_profile.get('CONC_REQUEST_ID', g_request_id);
1494: g_sys_date := sysdate;
1495: g_user_id := fnd_global.user_id;

Line 1514: fnd_file.put_line(fnd_file.log,'Copying from price plan id:' || g_src_pplan_id);

1510: l_tmpl_plan_id := qpr_sr_util.g_datamart_tmpl_id;
1511: g_src_pplan_id := l_tmpl_plan_id;
1512: end if;
1513:
1514: fnd_file.put_line(fnd_file.log,'Copying from price plan id:' || g_src_pplan_id);
1515:
1516: insert into QPR_PRICE_PLANS_B(PRICE_PLAN_ID, INSTANCE_ID, AW_TYPE_CODE,
1517: AW_STATUS_CODE, AW_CODE, AW_CREATED_FLAG,
1518: START_DATE, END_DATE,BASE_UOM_CODE,

Line 1571: fnd_file.put_line(fnd_file.log, 'Created new price plan:' || g_new_pp_id);

1567: if bfound=false then
1568: raise NO_PPLAN_DATA;
1569: end if;
1570:
1571: fnd_file.put_line(fnd_file.log, 'Created new price plan:' || g_new_pp_id);
1572:
1573: l_ret_dim := copy_dim_data(p_from_pp_id,t_old_new_dim);
1574:
1575: if l_ret_dim <> -2 then

Line 1581: fnd_file.put_line(fnd_file.log, 'End time :'|| to_char(sysdate,

1577: end if;
1578:
1579: commit;
1580: select hsecs into l_end_time from v$timer;
1581: fnd_file.put_line(fnd_file.log, 'End time :'|| to_char(sysdate,
1582: 'MM/DD/YYYY:HH:MM:SS'));
1583: fnd_file.put_line(fnd_file.log, 'Time taken for loading(sec):' ||
1584: (l_end_time - l_start_time)/100);
1585: if l_ret_dim = -1 or l_ret_cube = -1 then

Line 1583: fnd_file.put_line(fnd_file.log, 'Time taken for loading(sec):' ||

1579: commit;
1580: select hsecs into l_end_time from v$timer;
1581: fnd_file.put_line(fnd_file.log, 'End time :'|| to_char(sysdate,
1582: 'MM/DD/YYYY:HH:MM:SS'));
1583: fnd_file.put_line(fnd_file.log, 'Time taken for loading(sec):' ||
1584: (l_end_time - l_start_time)/100);
1585: if l_ret_dim = -1 or l_ret_cube = -1 then
1586: raise ERR_IN_DEFN;
1587: end if;

Line 1592: fnd_file.put_line(fnd_file.log, 'SOURCE PRICEPLAN/DATAMART DATA NOT FOUND');

1588: exception
1589: when NO_PPLAN_DATA then
1590: retcode := 2;
1591: errbuf := 'ERROR: ' || substr(SQLERRM,1,1000) ;
1592: fnd_file.put_line(fnd_file.log, 'SOURCE PRICEPLAN/DATAMART DATA NOT FOUND');
1593: rollback;
1594: when NO_PPLAN_ID then
1595: retcode := 2;
1596: errbuf := 'ERROR: SOURCE PRICE PLAN ID NOT MENTIONED';

Line 1597: fnd_file.put_line(fnd_file.log,

1593: rollback;
1594: when NO_PPLAN_ID then
1595: retcode := 2;
1596: errbuf := 'ERROR: SOURCE PRICE PLAN ID NOT MENTIONED';
1597: fnd_file.put_line(fnd_file.log,
1598: 'UNABLE TO COPY PRICEPLAN/DATMART DEFINITION');
1599: rollback;
1600: when ERR_IN_DEFN then
1601: retcode := 1;

Line 1602: fnd_file.put_line(fnd_file.log,

1598: 'UNABLE TO COPY PRICEPLAN/DATMART DEFINITION');
1599: rollback;
1600: when ERR_IN_DEFN then
1601: retcode := 1;
1602: fnd_file.put_line(fnd_file.log,
1603: 'New priceplan/datamart definition is malformed.' ||
1604: 'Check the log and source priceplan/datamart definition');
1605: when OTHERS then
1606: retcode := 1;

Line 1608: fnd_file.put_line(fnd_file.log,

1604: 'Check the log and source priceplan/datamart definition');
1605: when OTHERS then
1606: retcode := 1;
1607: errbuf := 'ERROR: ' || substr(SQLERRM,1,1000);
1608: fnd_file.put_line(fnd_file.log,
1609: 'UNABLE TO COPY PRICEPLAN/DATMART DEFINITION');
1610: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(SQLERRM,1,1000));
1611: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1612: rollback;

Line 1610: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(SQLERRM,1,1000));

1606: retcode := 1;
1607: errbuf := 'ERROR: ' || substr(SQLERRM,1,1000);
1608: fnd_file.put_line(fnd_file.log,
1609: 'UNABLE TO COPY PRICEPLAN/DATMART DEFINITION');
1610: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(SQLERRM,1,1000));
1611: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1612: rollback;
1613: end copy_price_plan;
1614:

Line 1611: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);

1607: errbuf := 'ERROR: ' || substr(SQLERRM,1,1000);
1608: fnd_file.put_line(fnd_file.log,
1609: 'UNABLE TO COPY PRICEPLAN/DATMART DEFINITION');
1610: fnd_file.put_line(fnd_file.log, 'ERROR: ' || substr(SQLERRM,1,1000));
1611: fnd_file.put_line(fnd_file.log, DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
1612: rollback;
1613: end copy_price_plan;
1614:
1615: END;