DBA Data[Home] [Help]

APPS.FUN_TRADING_RELATION dependencies on FND_LOG

Line 4: l_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

1: PACKAGE BODY FUN_TRADING_RELATION AS
2: /* $Header: funtraderelb.pls 120.12 2006/05/15 14:04:49 ashikuma noship $ */
3:
4: l_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

Line 5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;

1: PACKAGE BODY FUN_TRADING_RELATION AS
2: /* $Header: funtraderelb.pls 120.12 2006/05/15 14:04:49 ashikuma noship $ */
3:
4: l_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

Line 6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;

2: /* $Header: funtraderelb.pls 120.12 2006/05/15 14:04:49 ashikuma noship $ */
3:
4: l_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: l_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

Line 7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;

3:
4: l_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: l_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: l_path CONSTANT VARCHAR2(50) := 'FUN.PLSQL.funtraderelb.FUN_TRADING_RELATION_PKG.';

Line 8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;

4: l_debug_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: l_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: l_path CONSTANT VARCHAR2(50) := 'FUN.PLSQL.funtraderelb.FUN_TRADING_RELATION_PKG.';
12:

Line 9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;

5: l_state_level CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: l_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: l_path CONSTANT VARCHAR2(50) := 'FUN.PLSQL.funtraderelb.FUN_TRADING_RELATION_PKG.';
12:
13:

Line 10: l_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;

6: l_proc_level CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
7: l_event_level CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
8: l_excep_level CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9: l_error_level CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
10: l_unexp_level CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
11: l_path CONSTANT VARCHAR2(50) := 'FUN.PLSQL.funtraderelb.FUN_TRADING_RELATION_PKG.';
12:
13:
14: /* Internal routine.. Will be called only by get_customer and get_supplier, to validate the source*/

Line 37: FND_LOG.STRING (l_unexp_level , l_path || p_path , 'Unexpected Error4' );

33: CLOSE c_source;
34: EXCEPTION
35: WHEN others THEN
36: IF (l_unexp_level >= l_debug_level ) THEN
37: FND_LOG.STRING (l_unexp_level , l_path || p_path , 'Unexpected Error4' );
38: END IF;
39: RETURN false;
40: app_exception.raise_exception;
41: END validate_source; -- End of validate_source

Line 131: FND_LOG.STRING (l_excep_level , l_path || p_path , x_msg_data );

127: WHEN others THEN
128: x_success := 'N';
129: x_msg_data := 'Unexpected error1' || SQLERRM;
130: IF (l_excep_level >= l_debug_level ) THEN
131: FND_LOG.STRING (l_excep_level , l_path || p_path , x_msg_data );
132: END IF;
133: app_exception.raise_exception;
134: END get_relation;
135:

Line 193: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

189: BEGIN
190: IF (p_trans_le_id IS NULL or p_tp_le_id IS NULL or p_source IS NULL) THEN
191: x_msg_data := 'Transacting Legal Entity,Trading Partner Legal Entity AND Source are mandatory parameters.' ;
192: IF (l_error_level >= l_debug_level ) THEN
193: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
194: END IF;
195: RETURN false;
196: END IF;
197:

Line 201: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

197:
198: IF NOT validate_source (p_source) THEN
199: x_msg_data := 'Source is NOT a valid parameter' ;
200: IF (l_error_level >= l_debug_level ) THEN
201: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
202: END IF;
203: RETURN false;
204: END IF;
205:

Line 230: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

226: END IF;
227: IF (x_relation_id IS NULL ) THEN
228: x_msg_data := 'Relation does not exist for the given pair of Transacting and Trading Partners';
229: IF (l_error_level >= l_debug_level ) THEN
230: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
231: END IF;
232: RETURN false;
233: else
234: OPEN c_cust_acct (x_relation_id);

Line 241: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

237: x_cust_acct_site_id;
238: IF c_cust_acct%NOTFOUND THEN
239: x_msg_data := 'Customer mapping is not present for the relation id ' || x_relation_id;
240: IF (l_error_level >= l_debug_level ) THEN
241: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
242: END IF;
243: CLOSE c_cust_acct;
244: RETURN FALSE;
245: END IF;

Line 255: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

251: CLOSE c_cust_party;
252: IF x_customer_party_id IS NULL THEN
253: x_msg_data := 'The Customer defined in the relation ' || x_relation_id || ' is inactive or does not have a customer party id ';
254: IF (l_error_level >= l_debug_level ) THEN
255: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
256: END IF;
257: RETURN false;
258: END IF;
259:

Line 269: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

265:
266: IF x_site_use_id IS NULL THEN
267: x_msg_data := 'Site is not defined for the customer mapping on the relation id '|| x_relation_id;
268: IF (l_error_level >= l_debug_level ) THEN
269: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
270: END IF;
271: RETURN false;
272: END IF;
273: RETURN true;

Line 277: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

273: RETURN true;
274: else
275: x_msg_data := 'The Customer defined in the relation ' || x_relation_id || ' does not have a customer account' ;
276: IF (l_error_level >= l_debug_level ) THEN
277: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
278: END IF;
279: RETURN false;
280: END IF;
281: END IF; /* Successfully got all data*/

Line 286: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

282: else
283: /* only LE info*/
284: x_msg_data := 'Transacting Operating Unit is not passed, so unable to get Customer details ';
285: IF (l_error_level >= l_debug_level ) THEN
286: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
287: END IF;
288: RETURN false;
289: END IF;
290: EXCEPTION

Line 294: FND_LOG.STRING (l_unexp_level , l_path || p_path , x_msg_data );

290: EXCEPTION
291: WHEN others THEN
292: x_msg_data := 'Unexpected Error2';
293: IF (l_unexp_level >= l_debug_level ) THEN
294: FND_LOG.STRING (l_unexp_level , l_path || p_path , x_msg_data );
295: END IF;
296: RETURN false;
297: app_exception.raise_exception;
298: END get_customer;

Line 346: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

342: BEGIN
343: IF (p_trans_le_id IS NULL or p_tp_le_id IS NULL or p_source IS NULL) THEN
344: x_msg_data := 'Transacting Legal Entity,Trading Partner Legal Entity and Source are mandatory parameters.' ;
345: IF (l_error_level >= l_debug_level ) THEN
346: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
347: END IF;
348: RETURN false;
349: END IF;
350:

Line 354: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

350:
351: IF NOT validate_source (p_source) THEN
352: x_msg_data := 'Source is NOT a valid parameter' ;
353: IF (l_error_level >= l_debug_level ) THEN
354: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
355: END IF;
356: RETURN false;
357: END IF;
358:

Line 385: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

381: END IF;
382: IF (x_relation_id IS NULL) THEN
383: x_msg_data := 'Relation does not exist for the given pair of Transacting AND Trading Partners';
384: IF (l_error_level >= l_debug_level ) THEN
385: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
386: END IF;
387: RETURN false;
388: else
389: OPEN c_vendor_info ( x_relation_id, p_trx_date);

Line 394: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

390: FETCH c_vendor_info INto x_vendor_id, x_pay_site_id;
391: IF c_vendor_info%NOTFOUND THEN
392: x_msg_data := 'Valid Supplier Mapping is not present for the relation id ' || x_relation_id;
393: IF (l_error_level >= l_debug_level ) THEN
394: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
395: END IF;
396: CLOSE c_vendor_info;
397: RETURN FALSE;
398: END IF;

Line 409: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

405: CLOSE c_vendor_site_info;
406: IF x_pay_site_id IS NULL THEN
407: x_msg_data := 'A valid Pay Site is not available for the Supplier';
408: IF (l_error_level >= l_debug_level ) THEN
409: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
410: END IF;
411: RETURN false;
412: END IF;
413: END IF;

Line 417: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

413: END IF;
414: else
415: x_msg_data := 'Supplier info is not available';
416: IF (l_error_level >= l_debug_level ) THEN
417: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
418: END IF;
419: RETURN false;
420: END IF;
421: END IF;

Line 426: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );

422: RETURN true;
423: else /*Only LE info available*/
424: x_msg_data := 'Transacting Operating Unit is not passed, so unable to get Supplier details ';
425: IF (l_error_level >= l_debug_level ) THEN
426: FND_LOG.STRING (l_error_level , l_path || p_path , x_msg_data );
427: END IF;
428: RETURN false;
429: END IF;
430: EXCEPTION

Line 434: FND_LOG.STRING (l_unexp_level , l_path || p_path , x_msg_data );

430: EXCEPTION
431: WHEN others THEN
432: x_msg_data := 'Unexpected Error3';
433: IF (l_unexp_level >= l_debug_level ) THEN
434: FND_LOG.STRING (l_unexp_level , l_path || p_path , x_msg_data );
435: END IF;
436: RETURN false;
437: app_exception.raise_exception;
438: END get_supplier;