141:
142: when others then
143:
144: errbuf := substr(SQLERRM,1,150);
145: fnd_file.put_line(fnd_file.log, 'Errors in collect all fact');
146: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
147: retcode := -1 ;
148:
149:
142: when others then
143:
144: errbuf := substr(SQLERRM,1,150);
145: fnd_file.put_line(fnd_file.log, 'Errors in collect all fact');
146: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
147: retcode := -1 ;
148:
149:
150: End collect_fact_data ;
322: retcode);
323:
324: /* DWK. Check return code from mfg_post_process */
325: IF nvl(retcode, 0) <> 0 THEN
326: fnd_file.put_line(fnd_file.log, 'Errors in pull_shipment_data');
327: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
328: return;
329: END IF;
330: END IF;
323:
324: /* DWK. Check return code from mfg_post_process */
325: IF nvl(retcode, 0) <> 0 THEN
326: fnd_file.put_line(fnd_file.log, 'Errors in pull_shipment_data');
327: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
328: return;
329: END IF;
330: END IF;
331:
343:
344: when others then
345:
346: errbuf := substr(SQLERRM,1,150);
347: fnd_file.put_line(fnd_file.log, 'Errors in collect_shipment_data');
348: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
349: retcode := -1 ;
350: rollback;
351:
344: when others then
345:
346: errbuf := substr(SQLERRM,1,150);
347: fnd_file.put_line(fnd_file.log, 'Errors in collect_shipment_data');
348: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
349: retcode := -1 ;
350: rollback;
351:
352: End collect_shipment_data ;
518: retcode);
519:
520: /* DWK. Check return code from mfg_post_process */
521: IF nvl(retcode, 0) <> 0 THEN
522: fnd_file.put_line(fnd_file.log, 'Errors in pull_booking_data');
523: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
524: return;
525: END IF;
526: END IF;
519:
520: /* DWK. Check return code from mfg_post_process */
521: IF nvl(retcode, 0) <> 0 THEN
522: fnd_file.put_line(fnd_file.log, 'Errors in pull_booking_data');
523: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
524: return;
525: END IF;
526: END IF;
527:
539:
540: when others then
541:
542: errbuf := substr(SQLERRM,1,150);
543: fnd_file.put_line(fnd_file.log, 'Errors in collect_booking_data');
544: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
545: retcode := -1 ;
546: rollback;
547:
540: when others then
541:
542: errbuf := substr(SQLERRM,1,150);
543: fnd_file.put_line(fnd_file.log, 'Errors in collect_booking_data');
544: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
545: retcode := -1 ;
546: rollback;
547:
548:
623: retcode);
624:
625: /* DWK. Check return code from mfg_post_process */
626: IF nvl(retcode, 0) <> 0 THEN
627: fnd_file.put_line(fnd_file.log, 'Errors in pull_uom_conversion');
628: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
629: return;
630: END IF;
631: END IF;
624:
625: /* DWK. Check return code from mfg_post_process */
626: IF nvl(retcode, 0) <> 0 THEN
627: fnd_file.put_line(fnd_file.log, 'Errors in pull_uom_conversion');
628: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
629: return;
630: END IF;
631: END IF;
632:
640:
641: when others then
642:
643: errbuf := substr(SQLERRM,1,150);
644: fnd_file.put_line(fnd_file.log, 'Errors in collect_uom_conversion');
645: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
646: retcode := -1 ;
647: rollback;
648:
641: when others then
642:
643: errbuf := substr(SQLERRM,1,150);
644: fnd_file.put_line(fnd_file.log, 'Errors in collect_uom_conversion');
645: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
646: retcode := -1 ;
647: rollback;
648:
649:
732: retcode);
733:
734: /* DWK. Check return code from mfg_post_process */
735: IF nvl(retcode, 0) <> 0 THEN
736: fnd_file.put_line(fnd_file.log, 'Errors in pull_currency_conversion');
737: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
738: return;
739: END IF;
740: END IF;
733:
734: /* DWK. Check return code from mfg_post_process */
735: IF nvl(retcode, 0) <> 0 THEN
736: fnd_file.put_line(fnd_file.log, 'Errors in pull_currency_conversion');
737: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
738: return;
739: END IF;
740: END IF;
741:
750: when others then
751:
752:
753: errbuf := substr(SQLERRM,1,150);
754: fnd_file.put_line(fnd_file.log, 'Errors in collect_currency_conversion');
755: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
756: retcode := -1 ;
757: rollback;
758:
751:
752:
753: errbuf := substr(SQLERRM,1,150);
754: fnd_file.put_line(fnd_file.log, 'Errors in collect_currency_conversion');
755: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
756: retcode := -1 ;
757: rollback;
758:
759: End collect_currency_conversion ;
893: MSD_PULL_FACT_DATA.pull_mfg_forecast( errbuf,
894: retcode);
895: /* DWK. Check return code from mfg_post_process */
896: IF (retcode <> 0) THEN
897: fnd_file.put_line(fnd_file.log, 'Errors in pull_mfg_forecast');
898: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
899: return;
900: END IF;
901: END IF;
894: retcode);
895: /* DWK. Check return code from mfg_post_process */
896: IF (retcode <> 0) THEN
897: fnd_file.put_line(fnd_file.log, 'Errors in pull_mfg_forecast');
898: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
899: return;
900: END IF;
901: END IF;
902:
906: MSD_ANALYZE_TABLES.analyze_table(x_dest_table,null);
907:
908: EXCEPTION
909: WHEN no_data_found THEN
910: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
911: errbuf := substr(SQLERRM,1,150);
912: retcode := -1;
913: rollback;
914: when others then
911: errbuf := substr(SQLERRM,1,150);
912: retcode := -1;
913: rollback;
914: when others then
915: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
916: errbuf := substr(SQLERRM,1,150);
917: retcode := -1 ;
918: rollback;
919:
1004: MSD_PULL_FACT_DATA.pull_pricing_data( errbuf,
1005: retcode);
1006: /* DWK. Check return code from mfg_post_process */
1007: IF (retcode <> 0) THEN
1008: fnd_file.put_line(fnd_file.log, 'Errors in pull_pricing_data');
1009: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
1010: return;
1011: END IF;
1012: END IF;
1005: retcode);
1006: /* DWK. Check return code from mfg_post_process */
1007: IF (retcode <> 0) THEN
1008: fnd_file.put_line(fnd_file.log, 'Errors in pull_pricing_data');
1009: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
1010: return;
1011: END IF;
1012: END IF;
1013:
1025:
1026: when others then
1027:
1028: errbuf := substr(SQLERRM,1,150);
1029: fnd_file.put_line(fnd_file.log, 'Errors in collect pricing data');
1030: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
1031: retcode := -1 ;
1032: rollback;
1033:
1026: when others then
1027:
1028: errbuf := substr(SQLERRM,1,150);
1029: fnd_file.put_line(fnd_file.log, 'Errors in collect pricing data');
1030: fnd_file.put_line(fnd_file.log, substr(SQLERRM, 1, 1000));
1031: retcode := -1 ;
1032: rollback;
1033:
1034: End collect_pricing_data ;