3:
4: --
5: -- Declaring Global variables
6: --
7: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
9: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_VALIDATIONSETS_PUB';
10:
11: --
4: --
5: -- Declaring Global variables
6: --
7: G_CURRENT_RUNTIME_LEVEL CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
9: G_PKG_NAME CONSTANT VARCHAR2(30) := 'IBY_VALIDATIONSETS_PUB';
10:
11: --
12: -- User Defined Exceptions
122: *---------------------------------------------------------------------*/
123: PROCEDURE print_debuginfo(p_module IN VARCHAR2,
124: p_debug_text IN VARCHAR2,
125: p_debug_level IN VARCHAR2 DEFAULT
126: FND_LOG.LEVEL_STATEMENT
127: )
128: IS
129: l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
130: BEGIN
125: p_debug_level IN VARCHAR2 DEFAULT
126: FND_LOG.LEVEL_STATEMENT
127: )
128: IS
129: l_default_debug_level VARCHAR2(200) := FND_LOG.LEVEL_STATEMENT;
130: BEGIN
131:
132: /*
133: * Set the debug level to the value passed in
146: *
147: * Call the underlying routine only if the current debug
148: * level exceeds the runtime debug level.
149: */
150: --IF (l_default_debug_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
151:
152: iby_build_utils_pkg.print_debuginfo(p_module, p_module||':'||p_debug_text,
153: p_debug_level);
154:
369:
370: print_debuginfo(l_module_name, 'Unknown rejection level: '
371: || p_rejectionLevel
372: || '. Aborting document validation ..',
373: FND_LOG.LEVEL_UNEXPECTED
374: );
375:
376:
377: APP_EXCEPTION.RAISE_EXCEPTION;
475: print_debuginfo(l_module_name, 'Fatal: Exception when updating '
476: || 'payment request/document status after document '
477: || 'validation. All changes will be rolled back. Payment request '
478: || 'id is ' || p_pay_service_request_id,
479: FND_LOG.LEVEL_UNEXPECTED
480: );
481: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
482: FND_LOG.LEVEL_UNEXPECTED);
483: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
478: || 'id is ' || p_pay_service_request_id,
479: FND_LOG.LEVEL_UNEXPECTED
480: );
481: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
482: FND_LOG.LEVEL_UNEXPECTED);
483: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
484: FND_LOG.LEVEL_UNEXPECTED);
485:
486:
480: );
481: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
482: FND_LOG.LEVEL_UNEXPECTED);
483: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
484: FND_LOG.LEVEL_UNEXPECTED);
485:
486:
487: /*
488: * Propogate exception to caller.
2124: || substr(SQLERRM, 1, 300));
2125: FND_MSG_PUB.Add;
2126:
2127: print_debuginfo(l_module_name,substr(SQLERRM, 1, 300),
2128: FND_LOG.LEVEL_UNEXPECTED);
2129:
2130: RAISE g_abort_program;
2131:
2132: END applyDocumentValidationSets;
2835: substr(SQLERRM, 1, 300));
2836: FND_MSG_PUB.Add;
2837:
2838: print_debuginfo(l_module_name,' '||
2839: substr(SQLERRM, 1, 300), FND_LOG.LEVEL_UNEXPECTED);
2840:
2841: RAISE g_abort_program;
2842:
2843:
3053: || substr(SQLERRM, 1, 300));
3054: FND_MSG_PUB.Add;
3055:
3056: print_debuginfo(l_module_name,' '
3057: || substr(SQLERRM, 1, 300), FND_LOG.LEVEL_UNEXPECTED);
3058:
3059: RAISE g_abort_program;
3060:
3061: END initCharValData;
3155: substr(SQLERRM, 1, 300));
3156: FND_MSG_PUB.Add;
3157:
3158: print_debuginfo(l_module_name,' '||
3159: substr(SQLERRM, 1, 300), FND_LOG.LEVEL_UNEXPECTED);
3160:
3161: RAISE g_abort_program;
3162:
3163: END initPaymentData;
3253: substr(SQLERRM, 1, 300));
3254: FND_MSG_PUB.Add;
3255:
3256: print_debuginfo(l_module_name,' '||
3257: substr(SQLERRM, 1, 300), FND_LOG.LEVEL_UNEXPECTED);
3258:
3259: RAISE g_abort_program;
3260:
3261: END initInstructionData;
3824: FND_MESSAGE.SET_TOKEN('SQLERR',
3825: 'insert_transaction_errors : ' || SQLERRM);
3826: FND_MSG_PUB.Add;
3827:
3828: print_debuginfo(l_module_name, SQLERRM, FND_LOG.LEVEL_UNEXPECTED);
3829:
3830: RAISE g_abort_program;
3831:
3832: END insert_transaction_errors;
4369: substr(SQLERRM, 1, 300));
4370: FND_MSG_PUB.Add;
4371:
4372: print_debuginfo(l_module_name,' '||
4373: substr(SQLERRM, 1, 300), FND_LOG.LEVEL_UNEXPECTED);
4374:
4375: RAISE g_abort_program;
4376:
4377: END evaluateCondition;
4888: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4889: print_debuginfo(l_module_name, 'Return status of '
4890: || 'remove_payment_request() API call: '
4891: || l_return_status,
4892: FND_LOG.LEVEL_UNEXPECTED
4893: );
4894:
4895: END IF;
4896: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4897:
4898:
4899: print_debuginfo(l_module_name, 'API call did not succeed. '
4900: || 'Aborting build program .. ',
4901: FND_LOG.LEVEL_UNEXPECTED
4902: );
4903:
4904:
4905: APP_EXCEPTION.RAISE_EXCEPTION;
4970: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
4971: print_debuginfo(l_module_name, 'Return status of '
4972: || 'remove_documents_payable() API call: '
4973: || l_return_status,
4974: FND_LOG.LEVEL_UNEXPECTED
4975: );
4976:
4977: END IF;
4978: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
4979:
4980:
4981: print_debuginfo(l_module_name, 'API call did not succeed. '
4982: || 'Aborting build program .. ',
4983: FND_LOG.LEVEL_UNEXPECTED
4984: );
4985:
4986:
4987: APP_EXCEPTION.RAISE_EXCEPTION;
5053:
5054: print_debuginfo(l_module_name, 'Unknown rejection level: '
5055: || p_rejectionLevel
5056: || '. Aborting payment creation ..',
5057: FND_LOG.LEVEL_UNEXPECTED
5058: );
5059:
5060:
5061: APP_EXCEPTION.RAISE_EXCEPTION;
5069: EXCEPTION
5070: WHEN OTHERS THEN
5071:
5072: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
5073: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
5074: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5075: FND_LOG.LEVEL_UNEXPECTED);
5076: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5077: FND_LOG.LEVEL_UNEXPECTED);
5071:
5072: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
5073: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
5074: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5075: FND_LOG.LEVEL_UNEXPECTED);
5076: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5077: FND_LOG.LEVEL_UNEXPECTED);
5078:
5079:
5073: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
5074: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5075: FND_LOG.LEVEL_UNEXPECTED);
5076: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5077: FND_LOG.LEVEL_UNEXPECTED);
5078:
5079:
5080: /*
5081: * Propogate exception to caller.
5949: END IF;
5950:
5951:
5952: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
5953: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
5954: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5955: FND_LOG.LEVEL_UNEXPECTED);
5956: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5957: FND_LOG.LEVEL_UNEXPECTED);
5951:
5952: print_debuginfo(l_module_name, 'Fatal: Exception when attempting '
5953: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
5954: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5955: FND_LOG.LEVEL_UNEXPECTED);
5956: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5957: FND_LOG.LEVEL_UNEXPECTED);
5958:
5959:
5953: || 'to raise business event.', FND_LOG.LEVEL_UNEXPECTED);
5954: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
5955: FND_LOG.LEVEL_UNEXPECTED);
5956: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
5957: FND_LOG.LEVEL_UNEXPECTED);
5958:
5959:
5960: /*
5961: * Propogate exception to caller.
6309: || 'system option is not set at '
6310: || 'enterprise level. It is mandatory to '
6311: || 'setup rejection levels at enterprise level. '
6312: || 'Raising exception.. ',
6313: FND_LOG.LEVEL_UNEXPECTED
6314: );
6315:
6316:
6317: APP_EXCEPTION.RAISE_EXCEPTION;
6331: || 'enterprise level. It is mandatory to '
6332: || 'setup only one document rejection level '
6333: || 'at enterprise level. '
6334: || 'Raising exception.. ',
6335: FND_LOG.LEVEL_UNEXPECTED
6336: );
6337:
6338:
6339: APP_EXCEPTION.RAISE_EXCEPTION;
7675:
7676: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
7677:
7678: print_debuginfo(l_module_name, 'Exit initDocDataForPPR',
7679: FND_LOG.LEVEL_UNEXPECTED);
7680: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
7681: FND_LOG.LEVEL_UNEXPECTED);
7682: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
7683: FND_LOG.LEVEL_UNEXPECTED);
7677:
7678: print_debuginfo(l_module_name, 'Exit initDocDataForPPR',
7679: FND_LOG.LEVEL_UNEXPECTED);
7680: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
7681: FND_LOG.LEVEL_UNEXPECTED);
7682: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
7683: FND_LOG.LEVEL_UNEXPECTED);
7684:
7685: END IF;
7679: FND_LOG.LEVEL_UNEXPECTED);
7680: print_debuginfo(l_module_name, 'SQL code: ' || SQLCODE,
7681: FND_LOG.LEVEL_UNEXPECTED);
7682: print_debuginfo(l_module_name, 'SQL err msg: '|| SQLERRM,
7683: FND_LOG.LEVEL_UNEXPECTED);
7684:
7685: END IF;
7686:
7687: /* Bug: 14837647 - Start