[Home] [Help]
39: * 05-Nov-1999 Rajesh Seshadri Bug 1039469 - Performance enhancement
40: * The gmf_gl_get_balances package is redesigned to fill a table with
41: * the code combinations and then select from this table. The queries
42: * were also rewritten to enhance their performance.
43: * Wrapped all calls to fnd_file inside a procedure and included
44: * trace messages throughout for easier debugging
45: * 30-Oct-2002 R.Sharath Kumar Bug# 2641405
46: * Added NOCOPY hint
47: * 24-SEP-2003 Venkat Chukkapalli Bug# 3150227
145: END IF;
146:
147: /**
148: * Uncomment the line below to wrote to a local file
149: * fnd_file.put_names( 'gmfaloc.log','gmfaloc.out','/tmp' );
150: */
151: alloc_log_msg( C_LOG_FILE, 'Starting Cost Allocation process' );
152: alloc_log_msg( C_LOG_FILE, 'Allocation Codes: ' || v_from_alloc_code || ' - ' ||v_to_alloc_code );
153: gmf_util.trace( 'Refresh Option: ' || v_refresh_interface , 1, 2 );
1556: /*********************************************************************
1557: * PROCEDURE
1558: * alloc_log_msg
1559: * DESCRIPTION
1560: * Writes messages to FND_FILE.LOG or FND_FILE.OUTPUT
1561: *
1562: * INPUT PARAMETERS
1563: * pi_file : indicates LOG(=1) or OUTPUT(=2) file
1564: * pi_msg : message to be printed
1581:
1582: l_dt := TO_CHAR( SYSDATE, 'YYYY-MM-DD HH24:MI:SS' );
1583: IF( pi_file = C_OUT_FILE)
1584: THEN
1585: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, pi_msg || ' ' || l_dt );
1586: ELSE
1587: FND_FILE.PUT_LINE( FND_FILE.LOG, pi_msg || ' ' || l_dt );
1588: END IF;
1589: END alloc_log_msg;
1583: IF( pi_file = C_OUT_FILE)
1584: THEN
1585: FND_FILE.PUT_LINE( FND_FILE.OUTPUT, pi_msg || ' ' || l_dt );
1586: ELSE
1587: FND_FILE.PUT_LINE( FND_FILE.LOG, pi_msg || ' ' || l_dt );
1588: END IF;
1589: END alloc_log_msg;
1590: END GMF_ALLOC_PROC;