[Home] [Help]
1: PACKAGE BODY xla_retrive_ccid_pkg AS
2: /* $Header: xlarccid.pkb 120.1.12010000.2 2009/08/05 12:38:47 karamakr noship $ */
3: /*===========================================================================+
4: | Copyright (c) 2001-2002 Oracle Corporation |
5: | Redwood Shores, CA, USA |
5: | Redwood Shores, CA, USA |
6: | ALL rights reserved. |
7: +============================================================================+
8: | PACKAGE NAME |
9: | xla_retrive_ccid_pkg |
10: | |
11: | DESCRIPTION |
12: | Package body for the Retrive CCID's Program. |
13: | |
25: c_level_error CONSTANT NUMBER := fnd_log.level_error;
26: c_level_unexpected CONSTANT NUMBER := fnd_log.level_unexpected;
27: c_level_log_disabled CONSTANT NUMBER := 99;
28: c_default_module CONSTANT VARCHAR2 (240)
29: := 'xla.plsql.xla_retrive_ccid_pkg';
30: g_log_level NUMBER;
31: g_log_enabled BOOLEAN;
32: c_log_size CONSTANT NUMBER := 2000;
33: c_ccid_unprocessed CONSTANT VARCHAR2 (30) := 'UNPROCESSED';
90: RAISE;
91: WHEN OTHERS
92: THEN
93: xla_exceptions_pkg.raise_message
94: (p_location => 'xla_retrive_ccid_pkg.trace');
95: END TRACE;
96:
97: --=============================================================================
98: -- ******* Print Log File **********
107: RAISE;
108: WHEN OTHERS
109: THEN
110: xla_exceptions_pkg.raise_message
111: (p_location => 'xla_retrive_ccid_pkg.print_logfile');
112: END print_logfile;
113:
114: --========================================================================================
115: -- Procedure to collect ccids and split them into ranges
315: p_event_id => NULL
316: );
317: print_logfile ('Error occured in collect_ccid_inf');
318: xla_exceptions_pkg.raise_message
319: (p_location => 'xla_retrive_ccid_pkg.collect_ccid_inf');
320: END collect_ccid_inf;
321:
322: --===================================================================================
323: --Procedure for Update table xla_fsah_ccid_ranges with status
387: p_event_id => NULL
388: );
389: print_logfile ('Error occured in update_ccid_inf');
390: xla_exceptions_pkg.raise_message
391: (p_location => 'xla_retrive_ccid_pkg.update_ccid_inf');
392: END update_ccid_inf;
393:
394: --============================================================================================
395: -- Procedure for getting CCID Information, CP which is called from Create Accounting Program
634: p_event_id => NULL
635: );
636: print_logfile ('Error occured in get_ccid_information');
637: xla_exceptions_pkg.raise_message
638: (p_location => 'xla_retrive_ccid_pkg.get_ccid_information');
639: END get_ccid_information;
640:
641: --============================================================================================
642: -- Procedure for getting CCIDs for the given range i.e CCIDs between min_num and max_num
943: p_event_id => NULL
944: );
945: print_logfile ('Error occured in get_thread_ccid_inf');
946: xla_exceptions_pkg.raise_message
947: (p_location => 'xla_retrive_ccid_pkg.get_thread_ccid_inf');
948: END get_thread_ccid_inf;
949:
950: --============================================================================================
951: -- Procedure for getting CCID Sequence Numbers
1002: p_event_id => NULL
1003: );
1004: print_logfile ('Error occured in get_ccid_seq');
1005: xla_exceptions_pkg.raise_message
1006: (p_location => 'xla_retrive_ccid_pkg.get_ccid_seq');
1007: END get_ccid_seq;
1008:
1009: --=============================================================================
1010: --
1242: IF NOT g_log_enabled
1243: THEN
1244: g_log_level := c_level_log_disabled;
1245: END IF;
1246: END xla_retrive_ccid_pkg;