66: cln_debug_pub.add('Unexpected error occured in - ' || a_proc,6);
67: cln_debug_pub.add('Exception - ' || SQLCODE || ' - ' || SQLERRM,6);
68: END IF;
69:
70: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_UNEXP_ERR');
71: FND_MESSAGE.SET_TOKEN('API',a_proc);
72: FND_MESSAGE.SET_TOKEN('ERR',SQLCODE||'-'||SQLERRM);
73: FND_MESSAGE.SET_TOKEN('ACTION',a_actn);
74: x_ret_msg := FND_MESSAGE.GET;
67: cln_debug_pub.add('Exception - ' || SQLCODE || ' - ' || SQLERRM,6);
68: END IF;
69:
70: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_UNEXP_ERR');
71: FND_MESSAGE.SET_TOKEN('API',a_proc);
72: FND_MESSAGE.SET_TOKEN('ERR',SQLCODE||'-'||SQLERRM);
73: FND_MESSAGE.SET_TOKEN('ACTION',a_actn);
74: x_ret_msg := FND_MESSAGE.GET;
75: x_ret_sts := g_unexp_err_code;
68: END IF;
69:
70: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_UNEXP_ERR');
71: FND_MESSAGE.SET_TOKEN('API',a_proc);
72: FND_MESSAGE.SET_TOKEN('ERR',SQLCODE||'-'||SQLERRM);
73: FND_MESSAGE.SET_TOKEN('ACTION',a_actn);
74: x_ret_msg := FND_MESSAGE.GET;
75: x_ret_sts := g_unexp_err_code;
76:
69:
70: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_UNEXP_ERR');
71: FND_MESSAGE.SET_TOKEN('API',a_proc);
72: FND_MESSAGE.SET_TOKEN('ERR',SQLCODE||'-'||SQLERRM);
73: FND_MESSAGE.SET_TOKEN('ACTION',a_actn);
74: x_ret_msg := FND_MESSAGE.GET;
75: x_ret_sts := g_unexp_err_code;
76:
77: EXCEPTION
70: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_UNEXP_ERR');
71: FND_MESSAGE.SET_TOKEN('API',a_proc);
72: FND_MESSAGE.SET_TOKEN('ERR',SQLCODE||'-'||SQLERRM);
73: FND_MESSAGE.SET_TOKEN('ACTION',a_actn);
74: x_ret_msg := FND_MESSAGE.GET;
75: x_ret_sts := g_unexp_err_code;
76:
77: EXCEPTION
78: WHEN OTHERS THEN
236: WHEN OTHERS THEN
237: -- Exception has occured during DTD validation
238: -- Create translatable user message
239: -- Embed DTD error within
240: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
241: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','DTD');
242: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
243: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
244:
237: -- Exception has occured during DTD validation
238: -- Create translatable user message
239: -- Embed DTD error within
240: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
241: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','DTD');
242: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
243: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
244:
245: -- return failure and DTD errors
238: -- Create translatable user message
239: -- Embed DTD error within
240: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
241: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','DTD');
242: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
243: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
244:
245: -- return failure and DTD errors
246: x_ret_msg := FND_MESSAGE.GET;
239: -- Embed DTD error within
240: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
241: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','DTD');
242: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
243: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
244:
245: -- return failure and DTD errors
246: x_ret_msg := FND_MESSAGE.GET;
247: x_ret_sts := g_err_code;
242: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
243: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
244:
245: -- return failure and DTD errors
246: x_ret_msg := FND_MESSAGE.GET;
247: x_ret_sts := g_err_code;
248:
249: END;
250:
293: x_ret_msg := NULL;
294: x_ret_sts := g_success_code;
295: ELSE
296: -- Return=failure, return translatable user message
297: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
298: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','XSD');
299: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
300: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
301:
294: x_ret_sts := g_success_code;
295: ELSE
296: -- Return=failure, return translatable user message
297: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
298: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','XSD');
299: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
300: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
301:
302: x_ret_msg := FND_MESSAGE.GET;
295: ELSE
296: -- Return=failure, return translatable user message
297: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
298: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','XSD');
299: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
300: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
301:
302: x_ret_msg := FND_MESSAGE.GET;
303: x_ret_sts := g_err_code;
296: -- Return=failure, return translatable user message
297: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
298: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','XSD');
299: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
300: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
301:
302: x_ret_msg := FND_MESSAGE.GET;
303: x_ret_sts := g_err_code;
304:
298: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','XSD');
299: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
300: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
301:
302: x_ret_msg := FND_MESSAGE.GET;
303: x_ret_sts := g_err_code;
304:
305: END IF;
306: -- Done, bye
363:
364: EXCEPTION
365: WHEN OTHERS THEN
366: -- creates and return translatable error
367: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
368: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','NONE');
369: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
370: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
371:
364: EXCEPTION
365: WHEN OTHERS THEN
366: -- creates and return translatable error
367: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
368: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','NONE');
369: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
370: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
371:
372: x_ret_msg := FND_MESSAGE.GET;
365: WHEN OTHERS THEN
366: -- creates and return translatable error
367: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
368: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','NONE');
369: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
370: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
371:
372: x_ret_msg := FND_MESSAGE.GET;
373: x_ret_sts := g_err_code;
366: -- creates and return translatable error
367: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_VALDTN_ERR');
368: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','NONE');
369: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
370: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
371:
372: x_ret_msg := FND_MESSAGE.GET;
373: x_ret_sts := g_err_code;
374: END;
368: FND_MESSAGE.SET_TOKEN('VALIDATION_TYPE','NONE');
369: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
370: FND_MESSAGE.SET_TOKEN('ERRMESG',SQLERRM);
371:
372: x_ret_msg := FND_MESSAGE.GET;
373: x_ret_sts := g_err_code;
374: END;
375:
376: -- Done, bye
430: ELSIF g_hdr_rec.valdtn_typ = c_valdtn_none THEN
431:
432: no_validation(a_xml,x_valdtn_sts,x_valdtn_msg);
433: ELSE
434: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
435: FND_MESSAGE.SET_TOKEN('PARAM','M4U_XML_EXTENSIONS.VALIDATION_TYPE');
436: FND_MESSAGE.SET_TOKEN('VALUE',g_hdr_rec.valdtn_typ);
437: x_api_ret_msg := FND_MESSAGE.GET;
438: END IF;
431:
432: no_validation(a_xml,x_valdtn_sts,x_valdtn_msg);
433: ELSE
434: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
435: FND_MESSAGE.SET_TOKEN('PARAM','M4U_XML_EXTENSIONS.VALIDATION_TYPE');
436: FND_MESSAGE.SET_TOKEN('VALUE',g_hdr_rec.valdtn_typ);
437: x_api_ret_msg := FND_MESSAGE.GET;
438: END IF;
439:
432: no_validation(a_xml,x_valdtn_sts,x_valdtn_msg);
433: ELSE
434: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
435: FND_MESSAGE.SET_TOKEN('PARAM','M4U_XML_EXTENSIONS.VALIDATION_TYPE');
436: FND_MESSAGE.SET_TOKEN('VALUE',g_hdr_rec.valdtn_typ);
437: x_api_ret_msg := FND_MESSAGE.GET;
438: END IF;
439:
440: IF g_log_lvl <= 2 THEN
433: ELSE
434: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
435: FND_MESSAGE.SET_TOKEN('PARAM','M4U_XML_EXTENSIONS.VALIDATION_TYPE');
436: FND_MESSAGE.SET_TOKEN('VALUE',g_hdr_rec.valdtn_typ);
437: x_api_ret_msg := FND_MESSAGE.GET;
438: END IF;
439:
440: IF g_log_lvl <= 2 THEN
441: cln_debug_pub.add('Exiting m4u_xml_extn_utils.validate - Normal',2);
543: x_ret_sts := g_success_code;
544: ELSE
545: -- neither tp specific nor default mapping found
546: -- return failue
547: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
548: FND_MESSAGE.SET_TOKEN('EXTN_NAME',a_extn_name);
549: FND_MESSAGE.SET_TOKEN('TP_ID',a_tp_id);
550: x_ret_msg := FND_MESSAGE.GET;
551: x_ret_sts := g_err_code;
544: ELSE
545: -- neither tp specific nor default mapping found
546: -- return failue
547: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
548: FND_MESSAGE.SET_TOKEN('EXTN_NAME',a_extn_name);
549: FND_MESSAGE.SET_TOKEN('TP_ID',a_tp_id);
550: x_ret_msg := FND_MESSAGE.GET;
551: x_ret_sts := g_err_code;
552: END IF;
545: -- neither tp specific nor default mapping found
546: -- return failue
547: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
548: FND_MESSAGE.SET_TOKEN('EXTN_NAME',a_extn_name);
549: FND_MESSAGE.SET_TOKEN('TP_ID',a_tp_id);
550: x_ret_msg := FND_MESSAGE.GET;
551: x_ret_sts := g_err_code;
552: END IF;
553:
546: -- return failue
547: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
548: FND_MESSAGE.SET_TOKEN('EXTN_NAME',a_extn_name);
549: FND_MESSAGE.SET_TOKEN('TP_ID',a_tp_id);
550: x_ret_msg := FND_MESSAGE.GET;
551: x_ret_sts := g_err_code;
552: END IF;
553:
554: IF g_log_lvl <= 2 THEN
645: END IF;
646:
647: -- Error, no mapping found
648: IF g_elmnt_count <= 0 THEN
649: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
650: FND_MESSAGE.SET_TOKEN('EXTN_NAME',g_hdr_rec.extn_name);
651: FND_MESSAGE.SET_TOKEN('TP_ID',g_hdr_rec.tp_id);
652: x_ret_msg := FND_MESSAGE.GET;
653: x_ret_sts := g_err_code;
646:
647: -- Error, no mapping found
648: IF g_elmnt_count <= 0 THEN
649: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
650: FND_MESSAGE.SET_TOKEN('EXTN_NAME',g_hdr_rec.extn_name);
651: FND_MESSAGE.SET_TOKEN('TP_ID',g_hdr_rec.tp_id);
652: x_ret_msg := FND_MESSAGE.GET;
653: x_ret_sts := g_err_code;
654: ELSE
647: -- Error, no mapping found
648: IF g_elmnt_count <= 0 THEN
649: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
650: FND_MESSAGE.SET_TOKEN('EXTN_NAME',g_hdr_rec.extn_name);
651: FND_MESSAGE.SET_TOKEN('TP_ID',g_hdr_rec.tp_id);
652: x_ret_msg := FND_MESSAGE.GET;
653: x_ret_sts := g_err_code;
654: ELSE
655: x_ret_msg := NULL;
648: IF g_elmnt_count <= 0 THEN
649: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_NO_MAP');
650: FND_MESSAGE.SET_TOKEN('EXTN_NAME',g_hdr_rec.extn_name);
651: FND_MESSAGE.SET_TOKEN('TP_ID',g_hdr_rec.tp_id);
652: x_ret_msg := FND_MESSAGE.GET;
653: x_ret_sts := g_err_code;
654: ELSE
655: x_ret_msg := NULL;
656: x_ret_sts := g_success_code;
1552: BEGIN
1553: l_tmp_val := g_glb_var_tab(a_bind_rec.src_var);
1554: EXCEPTION
1555: WHEN NO_DATA_FOUND THEN
1556: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1557: FND_MESSAGE.SET_TOKEN('PARAM','Global variable');
1558: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.src_var);
1559: x_ret_msg := FND_MESSAGE.GET;
1560: x_ret_sts := g_err_code;
1553: l_tmp_val := g_glb_var_tab(a_bind_rec.src_var);
1554: EXCEPTION
1555: WHEN NO_DATA_FOUND THEN
1556: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1557: FND_MESSAGE.SET_TOKEN('PARAM','Global variable');
1558: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.src_var);
1559: x_ret_msg := FND_MESSAGE.GET;
1560: x_ret_sts := g_err_code;
1561: IF g_log_lvl <= 1 THEN
1554: EXCEPTION
1555: WHEN NO_DATA_FOUND THEN
1556: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1557: FND_MESSAGE.SET_TOKEN('PARAM','Global variable');
1558: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.src_var);
1559: x_ret_msg := FND_MESSAGE.GET;
1560: x_ret_sts := g_err_code;
1561: IF g_log_lvl <= 1 THEN
1562: cln_debug_pub.add('Fetch global variable error',1);
1555: WHEN NO_DATA_FOUND THEN
1556: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1557: FND_MESSAGE.SET_TOKEN('PARAM','Global variable');
1558: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.src_var);
1559: x_ret_msg := FND_MESSAGE.GET;
1560: x_ret_sts := g_err_code;
1561: IF g_log_lvl <= 1 THEN
1562: cln_debug_pub.add('Fetch global variable error',1);
1563: END IF;
1585: -- Constants can be directly used in sequels
1586: IF g_log_lvl <= 6 THEN
1587: cln_debug_pub.add('Mapping type not-found',6);
1588: END IF;
1589: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1590: FND_MESSAGE.SET_TOKEN('PARAM','Bind-variable mapping type');
1591: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.typ);
1592: x_ret_msg := FND_MESSAGE.GET;
1593: x_ret_sts := g_err_code;
1586: IF g_log_lvl <= 6 THEN
1587: cln_debug_pub.add('Mapping type not-found',6);
1588: END IF;
1589: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1590: FND_MESSAGE.SET_TOKEN('PARAM','Bind-variable mapping type');
1591: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.typ);
1592: x_ret_msg := FND_MESSAGE.GET;
1593: x_ret_sts := g_err_code;
1594: RAISE FND_API.G_EXC_ERROR;
1587: cln_debug_pub.add('Mapping type not-found',6);
1588: END IF;
1589: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1590: FND_MESSAGE.SET_TOKEN('PARAM','Bind-variable mapping type');
1591: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.typ);
1592: x_ret_msg := FND_MESSAGE.GET;
1593: x_ret_sts := g_err_code;
1594: RAISE FND_API.G_EXC_ERROR;
1595:
1588: END IF;
1589: FND_MESSAGE.SET_NAME('CLN','M4U_XFWK_INV_PARAM');
1590: FND_MESSAGE.SET_TOKEN('PARAM','Bind-variable mapping type');
1591: FND_MESSAGE.SET_TOKEN('VALUE',a_bind_rec.typ);
1592: x_ret_msg := FND_MESSAGE.GET;
1593: x_ret_sts := g_err_code;
1594: RAISE FND_API.G_EXC_ERROR;
1595:
1596: END IF;