[Home] [Help]
1: PACKAGE BODY m4u_xml_extn_utils AS
2: /* $Header: M4UXUTLB.pls 120.1 2006/06/09 08:13:36 bsaratna noship $ */
3:
4: g_success_code VARCHAR2(30); -- cache FND code
5: g_err_code VARCHAR2(30); -- cache FND code
96: l_progress VARCHAR2(4000);
97: BEGIN
98: l_progress := 'Log generated XML';
99: IF g_log_lvl <= 2 THEN
100: cln_debug_pub.add('Entering m4u_xml_extn_utils.log_xml',2);
101: END IF;
102:
103:
104: -- obtains logfile name
137: x_ret_sts := g_success_code;
138: x_ret_msg := NULL;
139:
140: IF g_log_lvl <= 2 THEN
141: cln_debug_pub.add('Exiting m4u_xml_extn_utils.log_xml - Normal',2);
142: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
143: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
144: END IF;
145:
146: RETURN;
147:
148: EXCEPTION
149: WHEN OTHERS THEN
150: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.log_xml',
151: x_ret_sts,x_ret_msg);
152: END;
153:
154: /*FUNCTIONS/PROCEDURES DEFINED BELOW ARE USED IN XML VALIDATION */
164: l_doc_typ xmldom.domdocumenttype;
165: l_progress VARCHAR2(4000);
166: BEGIN
167: IF g_log_lvl <= 2 THEN
168: cln_debug_pub.add('Entering m4u_xml_extn_utils.dtd_validation',2);
169: END IF;
170:
171: l_progress := 'XML DTD validation';
172:
249: END;
250:
251: -- Done parsing, return results
252: IF g_log_lvl <= 2 THEN
253: cln_debug_pub.add('Exiting m4u_xml_extn_utils.dtd_validation - Normal',2);
254: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
255: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
256: END IF;
257:
258: RETURN;
259:
260: EXCEPTION
261: WHEN OTHERS THEN
262: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.dtd_validation',
263: x_ret_sts,x_ret_msg);
264: END dtd_validation;
265:
266: -- Java procedure call for Schema Validation
279: l_ret_msg VARCHAR2(4000);
280: l_progress VARCHAR2(4000);
281: BEGIN
282: IF g_log_lvl <= 2 THEN
283: cln_debug_pub.add('Entering m4u_xml_extn_utils.schema_validation',2);
284: END IF;
285:
286: l_progress := 'XML XSD validation';
287:
304:
305: END IF;
306: -- Done, bye
307: IF g_log_lvl <= 2 THEN
308: cln_debug_pub.add('Exiting m4u_xml_extn_utils.schema_validation - Normal',2);
309: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
310: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
311: END IF;
312:
313: RETURN;
314:
315: EXCEPTION
316: WHEN OTHERS THEN
317: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.schema_validation',
318: x_ret_sts,x_ret_msg);
319: END schema_validation;
320:
321: -- Checks if fragment produced is a "Well-formed"XML document
328: l_parser xmlparser.Parser;
329: l_progress VARCHAR2(4000);
330: BEGIN
331: IF g_log_lvl <= 2 THEN
332: cln_debug_pub.add('Entering m4u_xml_extn_utils.no_validation',2);
333: END IF;
334:
335: l_progress := 'XML well-formedness check';
336:
374: END;
375:
376: -- Done, bye
377: IF g_log_lvl <= 2 THEN
378: cln_debug_pub.add('Exiting m4u_xml_extn_utils.no_validation - Normal',2);
379: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
380: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
381: END IF;
382:
383: RETURN;
384:
385: EXCEPTION
386: WHEN OTHERS THEN
387: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.no_validation',
388: x_ret_sts,x_ret_msg);
389: END no_validation;
390:
391:
403: l_progress VARCHAR2(4000);
404: BEGIN
405:
406: IF g_log_lvl <= 2 THEN
407: cln_debug_pub.add('Entering m4u_xml_extn_utils.validate',2);
408: cln_debug_pub.add('g_hdr_rec.valdtn_typ - ' || g_hdr_rec.valdtn_typ,2);
409: END IF;
410:
411: -- Default to NONE.
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);
442: cln_debug_pub.add('x_api_ret_msg - ' || x_api_ret_msg,1);
443: cln_debug_pub.add('x_api_ret_sts - ' || x_api_ret_sts,1);
444: cln_debug_pub.add('x_valdtn_ret_msg - ' || x_valdtn_msg,1);
445: cln_debug_pub.add('x_valdtn_ret_sts - ' || x_valdtn_sts,1);
448: RETURN;
449:
450: EXCEPTION
451: WHEN OTHERS THEN
452: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.validate',
453: x_api_ret_sts,x_api_ret_msg);
454: END validate;
455:
456:
472: BEGIN
473: l_progress := 'Load header information';
474: -- log inputs
475: IF g_log_lvl <= 2 THEN
476: cln_debug_pub.add('Entering m4u_xml_extn_utils.init_hdr',2);
477: cln_debug_pub.add('a_extn_name - ' || a_extn_name,2);
478: cln_debug_pub.add('a_tp_id - ' || a_tp_id,2);
479: IF a_dflt_tp THEN
480: cln_debug_pub.add('a_dflt_tp - ' || 'Y',2);
551: x_ret_sts := g_err_code;
552: END IF;
553:
554: IF g_log_lvl <= 2 THEN
555: cln_debug_pub.add('Exiting m4u_xml_extn_utils.init_hdr - Normal',2);
556: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
557: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
558: END IF;
559:
560: RETURN;
561:
562: EXCEPTION
563: WHEN OTHERS THEN
564: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.init_hdr',
565: x_ret_sts,x_ret_msg);
566: END init_hdr;
567:
568: -- Load data from m4u_element_mappings for
590: l_progress VARCHAR2(4000);
591: BEGIN
592: l_progress := 'Loading m4u_element_mappings';
593: IF g_log_lvl <= 2 THEN
594: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_elmnt_mapping',2);
595: END IF;
596:
597: OPEN l_cur_elmnt_map(g_hdr_rec.extn_name,g_hdr_rec.tp_id);
598:
656: x_ret_sts := g_success_code;
657: END IF;
658:
659: IF g_log_lvl <= 2 THEN
660: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_elmnt_mapping - Normal',2);
661: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
662: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
663: END IF;
664:
665: RETURN;
666:
667: EXCEPTION
668: WHEN OTHERS THEN
669: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_elmnt_mapping',
670: x_ret_sts,x_ret_msg);
671: END load_elmnt_mapping;
672:
673: -- load level information from db
688: l_progress VARCHAR2(4000);
689: BEGIN
690: l_progress := 'Load XML levels';
691: IF g_log_lvl <= 2 THEN
692: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_lvls',2);
693: END IF;
694:
695: g_lvl_rec_tab.delete;
696:
738: -- 5299569
739: CLOSE l_cur_lvls;
740:
741: IF g_log_lvl <= 2 THEN
742: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_lvls - Normal',2);
743: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
744: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
745: END IF;
746: RETURN;
746: RETURN;
747:
748: EXCEPTION
749: WHEN OTHERS THEN
750: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_lvls',
751: x_ret_sts,x_ret_msg);
752: END load_lvls;
753:
754: -- loop through g_lvl_rec_tab
773: l_progress VARCHAR2(4000);
774: BEGIN
775: l_progress := 'Load view sequels';
776: IF g_log_lvl <= 2 THEN
777: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_lvl_views',2);
778: END IF;
779:
780: -- Fetch views corresponding to each level
781: OPEN l_cur_lvl_id(g_hdr_rec.extn_name,g_hdr_rec.tp_id);
874: x_ret_sts := g_success_code;
875: x_ret_msg := NULL;
876:
877: IF g_log_lvl <= 2 THEN
878: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_lvl_views - Normal',2);
879: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
880: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
881: END IF;
882:
883: RETURN;
884:
885: EXCEPTION
886: WHEN OTHERS THEN
887: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_lvl_views',
888: x_ret_sts,x_ret_msg);
889: END load_lvl_views;
890:
891: -- load list of columns to be fetched for each view
922: BEGIN
923: l_progress := 'Load columns for view sequels';
924:
925: IF g_log_lvl <= 2 THEN
926: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_view_cols',2);
927: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id,2);
928: cln_debug_pub.add('x_view_rec.view_nam - ' || x_view_rec.view_nam,2);
929: END IF;
930:
987:
988: CLOSE l_cur_view_cols;
989:
990: IF g_log_lvl <= 2 THEN
991: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_view_cols - Normal',2);
992: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
993: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
994: END IF;
995:
996: RETURN;
997:
998: EXCEPTION
999: WHEN OTHERS THEN
1000: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_view_cols',
1001: x_ret_sts,x_ret_msg);
1002: END load_view_cols;
1003:
1004: -- load list of bind variable to be supplied for each where clause
1031: BEGIN
1032: l_progress := 'Load bind-information for view sequels';
1033:
1034: IF g_log_lvl <= 2 THEN
1035: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_bindings',2);
1036: END IF;
1037:
1038: OPEN l_cur_bindngs(g_hdr_rec.extn_name,g_hdr_rec.tp_id,a_lvl_id,x_view_rec.view_nam);
1039:
1082: x_ret_sts := g_success_code;
1083: x_ret_msg := NULL;
1084:
1085: IF g_log_lvl <= 2 THEN
1086: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_bindings - Normal',2);
1087: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1088: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1089: END IF;
1090:
1092:
1093:
1094: EXCEPTION
1095: WHEN OTHERS THEN
1096: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_bindings',
1097: x_ret_sts,x_ret_msg);
1098: END load_bindings;
1099:
1100: -- load global variable from input wf_parameter_list_t
1110: l_progress VARCHAR2(4000);
1111: BEGIN
1112: l_progress := 'Read global variable for mapping';
1113: IF g_log_lvl <= 2 THEN
1114: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_global_var',2);
1115: END IF;
1116:
1117: -- delete any old-data
1118: g_glb_var_tab.DELETE;
1140: x_ret_msg := NULL;
1141: x_ret_sts := g_success_code;
1142:
1143: IF g_log_lvl <= 2 THEN
1144: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_global_var - Normal',2);
1145: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1146: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1147: END IF;
1148: EXCEPTION
1146: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1147: END IF;
1148: EXCEPTION
1149: WHEN OTHERS THEN
1150: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_global_var',
1151: x_ret_sts,x_ret_msg);
1152: END load_global_var;
1153:
1154: -- init map
1172: -- a_log_lvl is supplied override profile value
1173: g_log_lvl := NVL(a_log_lvl,g_log_lvl);
1174: -- log inputs
1175: IF g_log_lvl <= 2 THEN
1176: cln_debug_pub.add('Entering m4u_xml_extn_utils.init_map',2);
1177: cln_debug_pub.add('a_extn_name - ' || a_extn_name,2);
1178: cln_debug_pub.add('a_tp_id - ' || a_tp_id,2);
1179: IF a_dflt_tp THEN
1180: cln_debug_pub.add('a_dflt_tp - ' || 'Y',2);
1187:
1188: -- load header data
1189: init_hdr(a_extn_name,a_tp_id,a_dflt_tp,x_ret_sts,x_ret_msg);
1190: IF g_log_lvl <= 1 THEN
1191: cln_debug_pub.add('Returned from m4u_xml_extn_utils.init_hdr',1);
1192: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);
1193: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);
1194: END IF;
1195:
1197: l_progress := 'Read from m4u_element_mappings';
1198: IF x_ret_sts = g_success_code THEN
1199: load_elmnt_mapping(x_ret_sts,x_ret_msg);
1200: IF g_log_lvl <= 1 THEN
1201: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_elmnt_mapping',1);
1202: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);
1203: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);
1204: END IF;
1205: END IF;
1210: IF x_ret_sts = g_success_code THEN
1211: load_lvls(x_ret_sts,x_ret_msg);
1212:
1213: IF g_log_lvl <= 1 THEN
1214: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_lvls',1);
1215: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);
1216: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);
1217: END IF;
1218: END IF;
1222: l_progress := 'Load DB view queries';
1223: IF x_ret_sts = g_success_code THEN
1224: load_lvl_views(x_ret_sts,x_ret_msg);
1225: IF g_log_lvl <= 1 THEN
1226: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_lvl_views',1);
1227: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);
1228: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);
1229: END IF;
1230: END IF;
1234: IF x_ret_sts = g_success_code THEN
1235: load_global_var(a_param_list,x_ret_sts,x_ret_msg);
1236:
1237: IF g_log_lvl <= 1 THEN
1238: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_global_var',1);
1239: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);
1240: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);
1241: END IF;
1242: END IF;
1243:
1244: -- Done! all mapping information is in-memory
1245: -- ready to being processing
1246: IF g_log_lvl <= 2 THEN
1247: cln_debug_pub.add('Exiting m4u_xml_extn_utils.init_map - Normal',2);
1248: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1249: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1250: END IF;
1251:
1250: END IF;
1251:
1252: EXCEPTION
1253: WHEN OTHERS THEN
1254: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.init_map',
1255: x_ret_sts,x_ret_msg);
1256: END init_map;
1257:
1258:
1267: RETURN lvl_rec_typ
1268: IS
1269: l_idx NUMBER;
1270: l_lvl_id NUMBER;
1271: l_lvl_rec m4u_xml_extn_utils.lvl_rec_typ;
1272: l_progress VARCHAR2(4000);
1273: BEGIN
1274: l_progress := 'Find level on stack - ' || a_lvl_id;
1275: IF g_log_lvl <= 2 THEN
1300:
1301: -- if lvl_id is same as input level
1302: -- lookup level record and return success
1303: IF l_lvl_id = a_lvl_id THEN
1304: l_lvl_rec := m4u_xml_extn_utils.g_lvl_rec_tab(l_lvl_id);
1305: IF g_log_lvl <= 2 THEN
1306: cln_debug_pub.add('Found level rec, exiting',2);
1307: END IF;
1308: x_ret_sts := g_success_code;
1325:
1326: RETURN l_lvl_rec;
1327: EXCEPTION
1328: WHEN OTHERS THEN
1329: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1330: 'm4u_xml_extn.find_lvl_stack',x_ret_sts,x_ret_msg);
1331: l_lvl_rec := null;
1332: RETURN l_lvl_rec;
1333: END find_lvl_stack;
1357: BEGIN
1358: l_progress := 'Lookup value returned by ' || a_view || '.' || a_col;
1359: -- log inputs
1360: IF g_log_lvl <= 2 THEN
1361: cln_debug_pub.add('Entering m4u_xml_extn_utils.lookup_view_value',2);
1362: cln_debug_pub.add('a_view - ' || a_view, 2);
1363: cln_debug_pub.add('a_col - ' || a_col, 2);
1364: cln_debug_pub.add('a_lvl - ' || a_lvl, 2);
1365: END IF;
1434: RETURN l_tmp_val;
1435:
1436: EXCEPTION
1437: WHEN OTHERS THEN
1438: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1439: 'm4u_xml_extn_utils.lookup_view_value',x_ret_sts,x_ret_msg);
1440: l_tmp_val := null;
1441: RETURN l_tmp_val;
1442: END lookup_view_value;
1435:
1436: EXCEPTION
1437: WHEN OTHERS THEN
1438: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1439: 'm4u_xml_extn_utils.lookup_view_value',x_ret_sts,x_ret_msg);
1440: l_tmp_val := null;
1441: RETURN l_tmp_val;
1442: END lookup_view_value;
1443:
1482: RETURN l_lvl_id;
1483:
1484: EXCEPTION
1485: WHEN OTHERS THEN
1486: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1487: 'm4u_xml_extn.pop_lvl_stack',x_ret_sts,x_ret_msg);
1488: END pop_lvl_stack;
1489:
1490:
1517: END IF;
1518:
1519: EXCEPTION
1520: WHEN OTHERS THEN
1521: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1522: 'm4u_xml_extn.push_lvl_stack',x_ret_sts,x_ret_msg);
1523: END push_lvl_stack;
1524:
1525: -- Get value for bind-variable
1543:
1544: l_tmp_val := NULL;
1545:
1546: -- conditional processing based on a_bind_rec.typ
1547: IF a_bind_rec.typ = m4u_xml_extn_utils.c_maptyp_var THEN
1548:
1549: -- Lookup global variable table
1550: -- if global variable table does not contain
1551: -- the required var, return error, message
1563: END IF;
1564: RAISE FND_API.G_EXC_ERROR;
1565: END;
1566:
1567: ELSIF a_bind_rec.typ = m4u_xml_extn_utils.c_maptyp_view THEN
1568: -- make call to lookup view value
1569: -- pass mapping info to m4u_xml_extn_utils.lookup_view_value
1570: -- if error, bailout
1571: l_tmp_val := m4u_xml_extn_utils.lookup_view_value
1565: END;
1566:
1567: ELSIF a_bind_rec.typ = m4u_xml_extn_utils.c_maptyp_view THEN
1568: -- make call to lookup view value
1569: -- pass mapping info to m4u_xml_extn_utils.lookup_view_value
1570: -- if error, bailout
1571: l_tmp_val := m4u_xml_extn_utils.lookup_view_value
1572: (a_bind_rec.src_view,a_bind_rec.src_col,
1573: a_bind_rec.src_lvl_id,x_ret_sts, x_ret_msg);
1567: ELSIF a_bind_rec.typ = m4u_xml_extn_utils.c_maptyp_view THEN
1568: -- make call to lookup view value
1569: -- pass mapping info to m4u_xml_extn_utils.lookup_view_value
1570: -- if error, bailout
1571: l_tmp_val := m4u_xml_extn_utils.lookup_view_value
1572: (a_bind_rec.src_view,a_bind_rec.src_col,
1573: a_bind_rec.src_lvl_id,x_ret_sts, x_ret_msg);
1574:
1575: IF x_ret_sts <> g_success_code THEN
1598: x_ret_sts := g_success_code;
1599: x_ret_msg := NULL;
1600: -- exit success
1601: IF g_log_lvl <= 2 THEN
1602: cln_debug_pub.add('Exiting m4u_xml_extn_utils.get_bind_value - Normal',2);
1603: cln_debug_pub.add('ret_val - ' || substr(l_tmp_val,1,255), 2);
1604: END IF;
1605:
1606: RETURN l_tmp_val;
1607: EXCEPTION
1608: -- return error information present in x_ret_msg
1609: WHEN FND_API.G_EXC_ERROR THEN
1610: IF g_log_lvl <= 6 THEN
1611: cln_debug_pub.add('Exiting m4u_xml_extn_utils.get_bind_value - Error',6);
1612: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,6);
1613: END IF;
1614: x_ret_sts := g_err_code;
1615: l_tmp_val := null;
1615: l_tmp_val := null;
1616: RETURN l_tmp_val;
1617: -- unknow error has occured, created unknow message and return
1618: WHEN OTHERS THEN
1619: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1620: 'm4u_xml_extn_utils.get_bind_value',x_ret_sts,x_ret_msg);
1621: l_tmp_val := null;
1622: RETURN l_tmp_val;
1623: END get_bind_value;
1616: RETURN l_tmp_val;
1617: -- unknow error has occured, created unknow message and return
1618: WHEN OTHERS THEN
1619: m4u_xml_extn_utils.handle_exception(SQLCODE,SQLERRM,l_progress,
1620: 'm4u_xml_extn_utils.get_bind_value',x_ret_sts,x_ret_msg);
1621: l_tmp_val := null;
1622: RETURN l_tmp_val;
1623: END get_bind_value;
1624:
1643: l_progress VARCHAR2(4000);
1644: BEGIN
1645: l_progress := 'Fetch rows for view - ' || a_view_rec.view_nam;
1646: IF g_log_lvl <= 2 THEN
1647: cln_debug_pub.add('Entering m4u_xml_extn_utils.fetch_data',2);
1648: cln_debug_pub.add('a_view_rec.view_nam - ' || a_view_rec.view_nam,2);
1649: END IF;
1650:
1651: IF g_log_lvl <= 1 THEN
1784: -- no execptions, succcess!
1785: x_ret_sts := g_success_code;
1786: x_ret_msg := NULL;
1787: IF g_log_lvl <= 2 THEN
1788: cln_debug_pub.add('Exiting m4u_xml_extn_utils.fetch_data - Normal',2);
1789: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1790: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1791: cln_debug_pub.add('a_view_rec.rowcount - ' || a_view_rec.rowcount,2);
1792: END IF;
1792: END IF;
1793: RETURN;
1794: EXCEPTION
1795: WHEN OTHERS THEN
1796: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.fetch_data',
1797: x_ret_sts,x_ret_msg);
1798: END fetch_data;
1799:
1800:
1816: l_progress VARCHAR2(4000);
1817: BEGIN
1818: l_progress := 'Initialize level - ' || a_lvl_id;
1819: IF g_log_lvl <= 2 THEN
1820: cln_debug_pub.add('Entering m4u_xml_extn_utils.init_level',2);
1821: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id ,2);
1822: END IF;
1823:
1824: x_ret_sts := g_success_code;
1889: IF x_ret_sts = g_success_code THEN
1890: x_ret_msg := NULL;
1891: END IF;
1892: IF g_log_lvl <= 2 THEN
1893: cln_debug_pub.add('Exiting m4u_xml_extn_utils.init_level - Normal',2);
1894: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1895: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1896: END IF;
1897: RETURN;
1896: END IF;
1897: RETURN;
1898: EXCEPTION
1899: WHEN OTHERS THEN
1900: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.init_level',
1901: x_ret_sts,x_ret_msg);
1902: END init_level;
1903:
1904: -- cleans up run-time info of level
1913: l_progress VARCHAR2(4000);
1914: BEGIN
1915: l_progress := 'Free level - ' || a_lvl_id;
1916: IF g_log_lvl <= 2 THEN
1917: cln_debug_pub.add('Entering m4u_xml_extn_utils.un_init_level',2);
1918: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id,2);
1919: END IF;
1920:
1921: l_lvl_rec := g_lvl_rec_tab(a_lvl_id);
1944: g_lvl_rec_tab(a_lvl_id) := l_lvl_rec;
1945: x_ret_sts := g_success_code;
1946: x_ret_msg := null;
1947: IF g_log_lvl <= 2 THEN
1948: cln_debug_pub.add('Exiting m4u_xml_extn_utils.un_init_level - Normal',2);
1949: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1950: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1951: END IF;
1952: RETURN;
1951: END IF;
1952: RETURN;
1953: EXCEPTION
1954: WHEN OTHERS THEN
1955: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.un_init_level',
1956: x_ret_sts,x_ret_msg);
1957: END un_init_level;
1958:
1959: -- cleans up any memory held by map
1962: IS
1963: l_progress VARCHAR2(4000);
1964: BEGIN
1965: IF g_log_lvl <= 2 THEN
1966: cln_debug_pub.add('Entering m4u_xml_extn_utils.un_init_map',2);
1967: END IF;
1968:
1969: l_progress := 'Un-load mapping information';
1970: -- dont leave stray variables in session
1987: x_ret_sts := g_success_code;
1988: x_ret_msg := null;
1989:
1990: IF g_log_lvl <= 2 THEN
1991: cln_debug_pub.add('Exiting m4u_xml_extn_utils.un_init_map - Normal',2);
1992: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);
1993: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);
1994: END IF;
1995: RETURN;
1994: END IF;
1995: RETURN;
1996: EXCEPTION
1997: WHEN OTHERS THEN
1998: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.un_init_map',
1999: x_ret_sts,x_ret_msg);
2000: END un_init_map;
2001:
2002:
2006: g_err_code := FND_API.G_RET_STS_ERROR;
2007: g_unexp_err_code := FND_API.G_RET_STS_UNEXP_ERROR;
2008: g_log_lvl := NVL(FND_PROFILE.VALUE('CLN_DEBUG_LEVEL'),5);
2009: g_log_dir := NVL(FND_PROFILE.VALUE('CLN_DEBUG_LOG_DIRECTORY'),'/tmp');
2010: END m4u_xml_extn_utils;