1: PACKAGE BODY csi_debug_pkg as
2: /* $Header: csidbugb.pls 120.3 2005/07/08 17:10:11 brmanesh noship $ */
3:
4: l_mmt_tbl_cache mmt_tbl;
5: l_item_tbl_cache item_tbl;
2580:
2581: END get_order_lines;
2582:
2583: PROCEDURE dump_shipping_file_versions IS
2584: l_source_files csi_debug_pkg.source_files;
2585: BEGIN
2586:
2587: l_source_files(1).file_name := 'csipioss.pls';
2588: l_source_files(2).file_name := 'csipiosb.pls';
2590: l_source_files(4).file_name := 'csipiofb.pls';
2591: l_source_files(5).file_name := 'csiutls.pls';
2592: l_source_files(6).file_name := 'csiutlb.pls';
2593:
2594: csi_debug_pkg.dump_file_versions(l_source_files);
2595:
2596: END dump_shipping_file_versions;
2597:
2598: PROCEDURE order_status(
3045: WHEN others THEN
3046: add(sqlerrm);
3047: END diagnose;
3048:
3049: END csi_debug_pkg;