[Home] [Help]
1: PACKAGE BODY GMF_XLA_PKG AS
2: /* $Header: GMFXLAPB.pls 120.48.12020000.4 2012/12/24 16:14:08 pvkanetk ship $ */
3:
4: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
8: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
10: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
11: G_MODULE_NAME CONSTANT VARCHAR2(50) :='GMF.PLSQL.GMF_XLA_PKG.';
12:
13:
14: G_reference_no NUMBER;
15: G_legal_entity_id NUMBER;
123:
124: BEGIN
125:
126:
127: l_curr_calling_sequence := 'SLAPre-Processor' || '.GMF_XLA_PKG.CREATE_EVENT';
128: G_CURRENT_RUNTIME_LEVEL := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
129:
130: IF NOT g_version_printed THEN
131: g_log_msg := '$Header: GMFXLAPB.pls 120.48.12020000.4 2012/12/24 16:14:08 pvkanetk ship $';
171: ---------------------------------------------------------------------
172: -- Update extract hdr and lines global temp tables to set
173: -- entity code, event class and type.
174: ---------------------------------------------------------------------
175: g_log_msg := 'Calling proc GMF_XLA_PKG.update_extract_gt to set entity codes';
176:
177: print_debug(g_log_msg);
178: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL )
179: THEN
205: SELECT distinct entity_code
206: FROM gmf_xla_extract_headers_gt
207: )
208: LOOP
209: g_log_msg := 'Calling function GMF_XLA_PKG.insert_into_xla_events_gt for entity ' || i.entity_code ||
210: ' (if entity is Inventory when process was submitted for PUR/OM, then we have some' ||
211: ' internal order transfers)';
212:
213: print_debug(g_log_msg);
469:
470: EXCEPTION
471: WHEN OTHERS
472: THEN
473: x_errbuf := substrb('gmf_xla_pkg.create_event. in when-others: ' ||
474: '; sqlcode/err: ' || to_char(sqlcode) || '-' || sqlerrm, 1, 240);
475:
476: print_debug(x_errbuf);
477: IF (FND_LOG.LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL )
482: message => x_errbuf
483: );
484: END IF;
485:
486: g_log_msg := substrb('gmf_xla_pkg.create_event. in when-others (backtrace): ' ||
487: DBMS_UTILITY.FORMAT_ERROR_BACKTRACE, 1, 240);
488:
489: print_debug(g_log_msg);
490: IF (FND_LOG.LEVEL_EXCEPTION >= G_CURRENT_RUNTIME_LEVEL )
1849: AND eh.legal_entity_id = NVL(p_security_id_char_3, eh.legal_entity_id);
1850:
1851: BEGIN
1852:
1853: g_log_msg := 'Begin of procedure GMF_XLA_PKG.preaccounting. Mode is '||p_accounting_mode;
1854: print_debug(g_log_msg);
1855:
1856: IF NOT g_version_printed THEN
1857: g_log_msg := '$Header: GMFXLAPB.pls 120.48.12020000.4 2012/12/24 16:14:08 pvkanetk ship $';
1946: process_rval_txns(g_pre_accounting);
1947: END CASE;
1948: */
1949:
1950: g_log_msg := 'End of procedure GMF_XLA_PKG.preaccounting. Mode is '||p_accounting_mode;
1951: print_debug(g_log_msg);
1952:
1953: END preaccounting;
1954:
1999:
2000: BEGIN
2001: --NULL;
2002:
2003: g_log_msg := 'Begin of procedure GMF_XLA_PKG.extract';
2004: print_debug(g_log_msg);
2005:
2006: /* Begin Bug 12419110 */
2007: BEGIN
2032: END CASE;
2033: */
2034:
2035: /* Begin Bug 12419110 */
2036: g_log_msg := 'End of procedure GMF_XLA_PKG.extract';
2037: print_debug(g_log_msg);
2038:
2039: END extract;
2040:
2140: BEGIN
2141: --NULL;
2142:
2143: /* Begin Bug 12419110 */
2144: g_log_msg := 'Begin of procedure GMF_XLA_PKG.postaccounting';
2145: print_debug(g_log_msg);
2146:
2147: /*
2148: CASE p_process_category
2164: END CASE;
2165: */
2166:
2167: /* Begin Bug 12419110 */
2168: g_log_msg := 'End of procedure GMF_XLA_PKG.postaccounting';
2169: print_debug(g_log_msg);
2170:
2171: END postaccounting;
2172:
4578: record_count INTEGER ;
4579:
4580: BEGIN
4581:
4582: g_log_msg := 'Begin of procedure GMF_XLA_PKG.delete_IPV_ERV_DUP_RECORDS ' ;
4583: print_debug(g_log_msg);
4584:
4585: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL )
4586: THEN
4678: xla_events_pkg.delete_bulk_events( p_application_id => 555);
4679: delete from xla_events_int_gt ;
4680: END IF;
4681:
4682: g_log_msg := 'End of procedure GMF_XLA_PKG.delete_IPV_ERV_DUP_RECORDS ' ;
4683: print_debug(g_log_msg);
4684:
4685: EXCEPTION
4686: WHEN OTHERS
4743:
4744:
4745: BEGIN
4746:
4747: g_log_msg := 'Begin of procedure GMF_XLA_PKG.Del_Orphan_lot_cost_adj_events' ;
4748: print_debug(g_log_msg);
4749:
4750: -- Delete batch Close events if they exist since batch is reopened.
4751:
4810: NULL;
4811:
4812: END Del_Orphan_Lotcostadj_Events;
4813:
4814: END GMF_XLA_PKG;