50:
51:
52: TYPE payee_id_tbl_type is table of NUMBER index by VARCHAR2(200);
53: l_payee_id_tbl payee_id_tbl_type;
54: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
51:
52: TYPE payee_id_tbl_type is table of NUMBER index by VARCHAR2(200);
53: l_payee_id_tbl payee_id_tbl_type;
54: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
59: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
52: TYPE payee_id_tbl_type is table of NUMBER index by VARCHAR2(200);
53: l_payee_id_tbl payee_id_tbl_type;
54: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
59: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
53: l_payee_id_tbl payee_id_tbl_type;
54: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
59: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
61:
54: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
55: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
59: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
61:
62: PROCEDURE Validate_and_Set_Syskey
55: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
59: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
61:
62: PROCEDURE Validate_and_Set_Syskey
63: (
56: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
57: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
58: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
59: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
60: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
61:
62: PROCEDURE Validate_and_Set_Syskey
63: (
64: p_sys_key IN iby_security_pkg.des3_key_type
356: -- If exists a valid value print in the concurrent log
357: print_log(l_module_name, 'Enter Build :: Concurrent Request ID::'||fnd_global.CONC_REQUEST_ID);
358: ELSE
359: -- Otherwise print in debug table.
360: IF (6 >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
361: -- CONDITION Will always be true.
362: fnd_log.string(6,l_module_name,'Enter Build :: Concurrent Request ID::'||fnd_global.CONC_REQUEST_ID);
363: END IF;
364: END IF;
358: ELSE
359: -- Otherwise print in debug table.
360: IF (6 >= fnd_log.G_CURRENT_RUNTIME_LEVEL) THEN
361: -- CONDITION Will always be true.
362: fnd_log.string(6,l_module_name,'Enter Build :: Concurrent Request ID::'||fnd_global.CONC_REQUEST_ID);
363: END IF;
364: END IF;
365:
366:
2310: --IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2311: print_log(l_module_name, 'Raising exception '
2312: || 'because instruction creation '
2313: || 'did not complete successfully ..'||
2314: FND_LOG.LEVEL_UNEXPECTED
2315: );
2316:
2317: --END IF;
2318: /* CHANGE FOR BUG : 14348326 - END */
2459: --IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2460: print_log(l_module_name, 'Check '
2461: || 'numbering module returned failure '
2462: || 'response. Aborting.. '||
2463: FND_LOG.LEVEL_UNEXPECTED
2464: );
2465:
2466: --END IF;
2467: /* CHANGE FOR BUG : 14348326 - END */
2642:
2643: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2644: print_debuginfo(l_module_name,
2645: 'Attempting to call hook: '
2646: || l_callout_name, FND_LOG.LEVEL_UNEXPECTED);
2647:
2648: END IF;
2649: l_stmt := 'CALL '|| l_callout_name
2650: || '(:1, :2, :3, :4, :5, :6, :7, :8)';
2669: print_debuginfo(l_module_name,
2670: 'Finished invoking hook: '
2671: || l_callout_name
2672: || ', return status: '
2673: || l_return_status, FND_LOG.LEVEL_UNEXPECTED);
2674:
2675: END IF;
2676: /*
2677: * If the called procedure did not return success,
2687: || l_callout_name
2688: || ''', returned failure status - '
2689: || l_return_status
2690: || '. Raising exception.'||
2691: FND_LOG.LEVEL_UNEXPECTED);
2692:
2693: --END IF;
2694: /* CHANGE FOR BUG : 14348326 - END */
2695: APP_EXCEPTION.RAISE_EXCEPTION;
2703: print_debuginfo(l_module_name,
2704: 'Callout "'
2705: || l_callout_name
2706: || '" not implemented by application - AP',
2707: FND_LOG.LEVEL_UNEXPECTED);
2708:
2709: print_debuginfo(l_module_name,
2710: 'Skipping hook call.');
2711:
3514: || 'attempting to check whether provided calling '
3515: || 'app payment request '
3516: || p_calling_app_payreq_cd
3517: || ' is a duplicate. Aborting program ..'||
3518: FND_LOG.LEVEL_UNEXPECTED
3519: );
3520: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3521: FND_LOG.LEVEL_UNEXPECTED);
3522: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3517: || ' is a duplicate. Aborting program ..'||
3518: FND_LOG.LEVEL_UNEXPECTED
3519: );
3520: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3521: FND_LOG.LEVEL_UNEXPECTED);
3522: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3523: FND_LOG.LEVEL_UNEXPECTED);
3524: print_log(l_module_name, 'EXIT');
3525:
3519: );
3520: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3521: FND_LOG.LEVEL_UNEXPECTED);
3522: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3523: FND_LOG.LEVEL_UNEXPECTED);
3524: print_log(l_module_name, 'EXIT');
3525:
3526: --END IF;
3527: /* CHANGE FOR BUG : 14348326 - END */
3709: --IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3710: print_log(l_module_name, 'Fatal: Exception when '
3711: || 'attempting to perform exact match for given '
3712: || 'payee context.'||
3713: FND_LOG.LEVEL_UNEXPECTED
3714: );
3715:
3716: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3717: FND_LOG.LEVEL_UNEXPECTED);
3713: FND_LOG.LEVEL_UNEXPECTED
3714: );
3715:
3716: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3717: FND_LOG.LEVEL_UNEXPECTED);
3718: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3719: FND_LOG.LEVEL_UNEXPECTED);
3720: print_log(l_module_name, 'EXIT');
3721:
3715:
3716: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3717: FND_LOG.LEVEL_UNEXPECTED);
3718: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3719: FND_LOG.LEVEL_UNEXPECTED);
3720: print_log(l_module_name, 'EXIT');
3721:
3722: --END IF;
3723: /* CHANGE FOR BUG : 14348326 - END */
3794: print_log(l_module_name, 'Fatal: Exception when '
3795: || 'attempting to perform match for given partial '
3796: || 'payee context of (payee party id, payment function '
3797: || ', payee party site id).'||
3798: FND_LOG.LEVEL_UNEXPECTED
3799: );
3800:
3801: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3802: FND_LOG.LEVEL_UNEXPECTED);
3798: FND_LOG.LEVEL_UNEXPECTED
3799: );
3800:
3801: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3802: FND_LOG.LEVEL_UNEXPECTED);
3803: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3804: FND_LOG.LEVEL_UNEXPECTED);
3805: print_log(l_module_name, 'EXIT');
3806:
3800:
3801: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3802: FND_LOG.LEVEL_UNEXPECTED);
3803: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3804: FND_LOG.LEVEL_UNEXPECTED);
3805: print_log(l_module_name, 'EXIT');
3806:
3807: --END IF;
3808: /* CHANGE FOR BUG : 14348326 - END */
3879: --IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3880: print_log(l_module_name, 'Fatal: Exception when '
3881: || 'attempting to perform match for given partial '
3882: || 'payee context of (payee party id, payment function).'||
3883: FND_LOG.LEVEL_UNEXPECTED
3884: );
3885:
3886: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3887: FND_LOG.LEVEL_UNEXPECTED);
3883: FND_LOG.LEVEL_UNEXPECTED
3884: );
3885:
3886: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3887: FND_LOG.LEVEL_UNEXPECTED);
3888: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3889: FND_LOG.LEVEL_UNEXPECTED);
3890: print_log(l_module_name, 'EXIT');
3891:
3885:
3886: print_log(l_module_name, 'SQL code: ' || SQLCODE||
3887: FND_LOG.LEVEL_UNEXPECTED);
3888: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
3889: FND_LOG.LEVEL_UNEXPECTED);
3890: print_log(l_module_name, 'EXIT');
3891:
3892: --END IF;
3893: /* CHANGE FOR BUG : 14348326 - END */
4076: --IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4077: print_log(l_module_name, 'Fatal: Exception when '
4078: || 'attempting to perform exact match for given '
4079: || 'payee context.'||
4080: FND_LOG.LEVEL_UNEXPECTED
4081: );
4082:
4083: print_log(l_module_name, 'SQL code: ' || SQLCODE||
4084: FND_LOG.LEVEL_UNEXPECTED);
4080: FND_LOG.LEVEL_UNEXPECTED
4081: );
4082:
4083: print_log(l_module_name, 'SQL code: ' || SQLCODE||
4084: FND_LOG.LEVEL_UNEXPECTED);
4085: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
4086: FND_LOG.LEVEL_UNEXPECTED);
4087: print_log(l_module_name, 'EXIT');
4088:
4082:
4083: print_log(l_module_name, 'SQL code: ' || SQLCODE||
4084: FND_LOG.LEVEL_UNEXPECTED);
4085: print_log(l_module_name, 'SQL err msg: '|| SQLERRM||
4086: FND_LOG.LEVEL_UNEXPECTED);
4087: print_log(l_module_name, 'EXIT');
4088:
4089: --END IF;
4090: /* CHANGE FOR BUG : 14348326 - END */
6140: *---------------------------------------------------------------------*/
6141: PROCEDURE print_debuginfo(
6142: p_module IN VARCHAR2,
6143: p_debug_text IN VARCHAR2,
6144: p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
6145: )
6146: IS
6147: l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
6148: BEGIN
6143: p_debug_text IN VARCHAR2,
6144: p_debug_level IN VARCHAR2 DEFAULT FND_LOG.LEVEL_STATEMENT
6145: )
6146: IS
6147: l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
6148: BEGIN
6149:
6150: /*
6151: * Set the debug level to the value passed in
6158:
6159: /*
6160: * Write the debug message to the concurrent manager log file.
6161: */
6162: IF (l_default_debug_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6163: iby_build_utils_pkg.print_debuginfo(p_module, p_debug_text,
6164: p_debug_level);
6165: END IF;
6166:
6237: p_module IN VARCHAR2,
6238: p_debug_text IN VARCHAR2
6239: )
6240: IS
6241: l_default_debug_level NUMBER := FND_LOG.LEVEL_STATEMENT;
6242: BEGIN
6243:
6244:
6245: