DBA Data[Home] [Help]

APPS.QPR_TRANSFORMATION dependencies on FND_FILE

Line 57: fnd_file.put_line(fnd_file.log, 'Transf type code:' || l_transf_type_code);

53: begin
54: select transf_type_code into l_transf_type_code
55: from qpr_transf_groups_b
56: where transf_group_id = p_transf_group_id;
57: fnd_file.put_line(fnd_file.log, 'Transf type code:' || l_transf_type_code);
58: if nvl(l_transf_type_code, '*') = 'DIMDIM' then
59:
60: transform_dimdim_process(errbuf, retcode, p_transf_group_id,p_instance_id);
61:

Line 75: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));

71: EXCEPTION
72: when others then
73: errbuf := substr(SQLERRM,1,150);
74: retcode := -1;
75: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
76: end;
77:
78:
79: procedure transform_measdim_process(

Line 181: fnd_file.put_line(fnd_file.log, 'Inside procedure transform_measdim_process');

177: l_dummy number;
178: l_all_desc varchar2(240);
179: l_all_value varchar2(240);
180: begin
181: fnd_file.put_line(fnd_file.log, 'Inside procedure transform_measdim_process');
182:
183: for transf_header_rec in get_transf_header(p_transf_group_id) loop
184:
185: fnd_file.put_line(fnd_file.log, 'Transf Header ID: '||

Line 185: fnd_file.put_line(fnd_file.log, 'Transf Header ID: '||

181: fnd_file.put_line(fnd_file.log, 'Inside procedure transform_measdim_process');
182:
183: for transf_header_rec in get_transf_header(p_transf_group_id) loop
184:
185: fnd_file.put_line(fnd_file.log, 'Transf Header ID: '||
186: transf_header_rec.TRANSF_HEADER_ID);
187:
188: for measure_rec in get_measure(transf_header_rec.transf_header_id,
189: transf_header_rec.from_dim_meas_code,

Line 192: fnd_file.put_line(fnd_file.log, 'Order Line: '||

188: for measure_rec in get_measure(transf_header_rec.transf_header_id,
189: transf_header_rec.from_dim_meas_code,
190: transf_header_rec.meas_code,
191: p_instance_id, p_from_date,p_to_date) loop
192: fnd_file.put_line(fnd_file.log, 'Order Line: '||
193: measure_rec.ord_level_value);
194: l_insert_measure:=0;
195: fnd_file.put_line(fnd_file.log, 'Limit Dim flag: '||
196: transf_header_rec.limit_dim_flag);

Line 195: fnd_file.put_line(fnd_file.log, 'Limit Dim flag: '||

191: p_instance_id, p_from_date,p_to_date) loop
192: fnd_file.put_line(fnd_file.log, 'Order Line: '||
193: measure_rec.ord_level_value);
194: l_insert_measure:=0;
195: fnd_file.put_line(fnd_file.log, 'Limit Dim flag: '||
196: transf_header_rec.limit_dim_flag);
197: if nvl(transf_header_rec.limit_dim_flag,'N') = 'Y' then
198: fnd_file.put_line(fnd_file.log, 'Limit Dim code: '||
199: measure_rec.limit_dim_code);

Line 198: fnd_file.put_line(fnd_file.log, 'Limit Dim code: '||

194: l_insert_measure:=0;
195: fnd_file.put_line(fnd_file.log, 'Limit Dim flag: '||
196: transf_header_rec.limit_dim_flag);
197: if nvl(transf_header_rec.limit_dim_flag,'N') = 'Y' then
198: fnd_file.put_line(fnd_file.log, 'Limit Dim code: '||
199: measure_rec.limit_dim_code);
200: if measure_rec.limit_dim_code='PRD' then
201: -- Only Product dimension supported now.
202: fnd_file.put_line(fnd_file.log, 'Limit Dim level: '||

Line 202: fnd_file.put_line(fnd_file.log, 'Limit Dim level: '||

198: fnd_file.put_line(fnd_file.log, 'Limit Dim code: '||
199: measure_rec.limit_dim_code);
200: if measure_rec.limit_dim_code='PRD' then
201: -- Only Product dimension supported now.
202: fnd_file.put_line(fnd_file.log, 'Limit Dim level: '||
203: measure_rec.limit_dim_level);
204: if measure_rec.limit_dim_level = 'ITEM' then
205: fnd_file.put_line(fnd_file.log, 'Limit Dim level value: '||
206: measure_rec.limit_dim_level_value);

Line 205: fnd_file.put_line(fnd_file.log, 'Limit Dim level value: '||

201: -- Only Product dimension supported now.
202: fnd_file.put_line(fnd_file.log, 'Limit Dim level: '||
203: measure_rec.limit_dim_level);
204: if measure_rec.limit_dim_level = 'ITEM' then
205: fnd_file.put_line(fnd_file.log, 'Limit Dim level value: '||
206: measure_rec.limit_dim_level_value);
207: fnd_file.put_line(fnd_file.log, 'Limit Dim measure value: '||
208: measure_rec.prd_level_value);
209: if measure_rec.prd_level_value = measure_rec.limit_dim_level_value then

Line 207: fnd_file.put_line(fnd_file.log, 'Limit Dim measure value: '||

203: measure_rec.limit_dim_level);
204: if measure_rec.limit_dim_level = 'ITEM' then
205: fnd_file.put_line(fnd_file.log, 'Limit Dim level value: '||
206: measure_rec.limit_dim_level_value);
207: fnd_file.put_line(fnd_file.log, 'Limit Dim measure value: '||
208: measure_rec.prd_level_value);
209: if measure_rec.prd_level_value = measure_rec.limit_dim_level_value then
210: l_insert_measure:=1;
211: fnd_file.put_line(fnd_file.log, 'Insert needed');

Line 211: fnd_file.put_line(fnd_file.log, 'Insert needed');

207: fnd_file.put_line(fnd_file.log, 'Limit Dim measure value: '||
208: measure_rec.prd_level_value);
209: if measure_rec.prd_level_value = measure_rec.limit_dim_level_value then
210: l_insert_measure:=1;
211: fnd_file.put_line(fnd_file.log, 'Insert needed');
212: end if;
213: else
214: l_insert_measure:=0;
215: begin

Line 259: fnd_file.put_line(fnd_file.log, 'Band exists in Band Dim with value:'||

255: and level1_value = transf_header_rec.to_value
256: and instance_id = p_instance_id
257: and rownum<2;
258: if l_dummy = 1 then
259: fnd_file.put_line(fnd_file.log, 'Band exists in Band Dim with value:'||
260: transf_header_rec.to_value);
261: end if;
262: exception
263: WHEN NO_DATA_FOUND THEN

Line 277: fnd_file.put_line(fnd_file.log,

273: elsif transf_header_rec.to_dim_code = 'MGB' then
274: l_all_desc := qpr_sr_util.get_all_mgb_desc;
275: l_all_value := qpr_sr_util.get_all_mgb_pk;
276: end if;
277: fnd_file.put_line(fnd_file.log,
278: 'Inserting band dim with id :'||l_next_seq);
279: INSERT INTO qpr_dimension_values(instance_id,
280: dim_value_id,
281: dim_code,

Line 314: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));

310: exception
311: when others then
312: errbuf := substr(SQLERRM,1,150);
313: retcode := -1;
314: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
315: end;
316: end;
317: begin
318: if transf_header_rec.to_dim_code = 'DSB' then

Line 355: fnd_file.put_line(fnd_file.log, 'Updated '||

351: last_update_login = fnd_global.login_id
352: where measure_value_id =
353: measure_rec.measure_value_id;
354: end if;
355: fnd_file.put_line(fnd_file.log, 'Updated '||
356: sql%rowcount ||' records');
357: exception
358: WHEN NO_DATA_FOUND THEN
359: errbuf := substr(SQLERRM,1,150);

Line 361: fnd_file.put_line(fnd_file.log,

357: exception
358: WHEN NO_DATA_FOUND THEN
359: errbuf := substr(SQLERRM,1,150);
360: retcode := -1;
361: fnd_file.put_line(fnd_file.log,
362: substr(SQLERRM, 1, 1000));
363: end;
364: end if;
365: end loop;

Line 371: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));

367: EXCEPTION
368: when others then
369: errbuf := substr(SQLERRM,1,150);
370: retcode := -1;
371: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
372: end;
373:
374: function get_attribute_qstring(lvl_no number, attr_no number) return varchar2
375: is

Line 445: fnd_file.put_line(fnd_file.log, 'Transf Header ID: '||

441: BEGIN
442:
443: for transf_header_rec in get_transf_header(p_transf_group_id) loop
444:
445: fnd_file.put_line(fnd_file.log, 'Transf Header ID: '||
446: transf_header_rec.TRANSF_HEADER_ID);
447:
448: l_first:=0;
449: sql1_text := ' select a.dim_value_id as dim_value_id ' ||

Line 459: fnd_file.put_line(fnd_file.log, 'Error in setup');

455: sql1_text := sql1_text|| ' and b.transf_header_id = '||transf_header_rec.transf_header_id;
456: sql1_text := sql1_text|| ' and a.instance_id = '||p_instance_id;
457: cl := transf_header_rec.from_level_id;
458: if cl>5 then
459: fnd_file.put_line(fnd_file.log, 'Error in setup');
460: exit;
461: end if;
462: sql1_text := sql1_text ||
463: ' and '||

Line 510: fnd_file.put_line(fnd_file.log, 'SQL: '||sql1_text);

506: sql1_text := sql1_text || get_attribute_qstring(2,cl);
507: sql1_text := sql1_text || get_attribute_qstring(3, cl);
508: sql1_text := sql1_text || get_attribute_qstring(4,cl);
509: sql1_text := sql1_text || get_attribute_qstring(5,cl);
510: fnd_file.put_line(fnd_file.log, 'SQL: '||sql1_text);
511:
512: open c_dim_data for sql1_text;
513: fnd_file.put_line(fnd_file.log, 'Cursor Opened');
514:

Line 513: fnd_file.put_line(fnd_file.log, 'Cursor Opened');

509: sql1_text := sql1_text || get_attribute_qstring(5,cl);
510: fnd_file.put_line(fnd_file.log, 'SQL: '||sql1_text);
511:
512: open c_dim_data for sql1_text;
513: fnd_file.put_line(fnd_file.log, 'Cursor Opened');
514:
515: loop
516: c_dim_rec.dim_value_id.delete;
517: fnd_file.put_line(fnd_file.log, 'Delete');

Line 517: fnd_file.put_line(fnd_file.log, 'Delete');

513: fnd_file.put_line(fnd_file.log, 'Cursor Opened');
514:
515: loop
516: c_dim_rec.dim_value_id.delete;
517: fnd_file.put_line(fnd_file.log, 'Delete');
518: fetch c_dim_data bulk collect into c_dim_rec.dim_value_id limit l_rows;
519: fnd_file.put_line(fnd_file.log, 'Fetch');
520: for I in 1..c_dim_rec.dim_value_id.count
521: loop

Line 519: fnd_file.put_line(fnd_file.log, 'Fetch');

515: loop
516: c_dim_rec.dim_value_id.delete;
517: fnd_file.put_line(fnd_file.log, 'Delete');
518: fetch c_dim_data bulk collect into c_dim_rec.dim_value_id limit l_rows;
519: fnd_file.put_line(fnd_file.log, 'Fetch');
520: for I in 1..c_dim_rec.dim_value_id.count
521: loop
522: fnd_file.put_line(fnd_file.log, 'Dim_value_id: '||
523: c_dim_rec.dim_value_id(I));

Line 522: fnd_file.put_line(fnd_file.log, 'Dim_value_id: '||

518: fetch c_dim_data bulk collect into c_dim_rec.dim_value_id limit l_rows;
519: fnd_file.put_line(fnd_file.log, 'Fetch');
520: for I in 1..c_dim_rec.dim_value_id.count
521: loop
522: fnd_file.put_line(fnd_file.log, 'Dim_value_id: '||
523: c_dim_rec.dim_value_id(I));
524: begin
525: update qpr_dimension_values
526: set

Line 559: fnd_file.put_line(fnd_file.log, 'Number of rows updated: '||sql%rowcount);

555: last_update_date = sysdate,
556: last_updated_by = fnd_global.user_id,
557: last_update_login = fnd_global.login_id
558: where dim_value_id = c_dim_rec.dim_value_id(I);
559: fnd_file.put_line(fnd_file.log, 'Number of rows updated: '||sql%rowcount);
560: exception
561: when others then
562: errbuf := substr(SQLERRM,1,150);
563: retcode := -1;

Line 564: fnd_file.put_line(fnd_file.log,

560: exception
561: when others then
562: errbuf := substr(SQLERRM,1,150);
563: retcode := -1;
564: fnd_file.put_line(fnd_file.log,
565: substr(SQLERRM, 1, 1000));
566: end;
567: /*
568: if transf_header_rec.to_level_id = 2 then

Line 581: fnd_file.put_line(fnd_file.log,

577: exception
578: when others then
579: errbuf := substr(SQLERRM,1,150);
580: retcode := -1;
581: fnd_file.put_line(fnd_file.log,
582: substr(SQLERRM, 1, 1000));
583: end;
584: end if;
585: if transf_header_rec.to_level_id = 3 then

Line 598: fnd_file.put_line(fnd_file.log,

594: exception
595: when others then
596: errbuf := substr(SQLERRM,1,150);
597: retcode := -1;
598: fnd_file.put_line(fnd_file.log,
599: substr(SQLERRM, 1, 1000));
600: end;
601: end if;*/
602: end loop;

Line 615: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));

611: EXCEPTION
612: when others then
613: errbuf := substr(SQLERRM,1,150);
614: retcode := -1;
615: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
616:
617: END; --transformation process
618:
619: END QPR_TRANSFORMATION ;