APPS.M4U_XML_EXTN_UTILS dependencies on CLN_DEBUG_PUB

Line 66: cln_debug_pub.add('Unexpected error occured in - ' || a_proc,6);

62: x_ret_msg OUT NOCOPY VARCHAR2)
63: AS
64: BEGIN
65: IF g_log_lvl <= 6 THEN
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');

Line 67: cln_debug_pub.add('Exception - ' || SQLCODE || ' - ' || SQLERRM,6);

63: AS
64: BEGIN
65: IF g_log_lvl <= 6 THEN
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);

Line 100: cln_debug_pub.add('Entering m4u_xml_extn_utils.log_xml',2);

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

Line 112: cln_debug_pub.add('l_log_fil - ' || l_log_fil,1);

108: l_log_fil := l_log_fil || '.txt';
109:
110:
111: IF g_log_lvl <= 1 THEN
112: cln_debug_pub.add('l_log_fil - ' || l_log_fil,1);
113: cln_debug_pub.add('g_log_dir - ' || g_log_dir,1);
114: END IF;
115:
116: -- obtain UTL file for logging

Line 113: cln_debug_pub.add('g_log_dir - ' || g_log_dir,1);

109:
110:
111: IF g_log_lvl <= 1 THEN
112: cln_debug_pub.add('l_log_fil - ' || l_log_fil,1);
113: cln_debug_pub.add('g_log_dir - ' || g_log_dir,1);
114: END IF;
115:
116: -- obtain UTL file for logging
117: l_file_ptr := utl_file.fopen(g_log_dir, l_log_fil, 'a');

Line 141: cln_debug_pub.add('Exiting m4u_xml_extn_utils.log_xml - Normal',2);

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:

Line 142: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 143: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 168: cln_debug_pub.add('Entering m4u_xml_extn_utils.dtd_validation',2);

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:

Line 178: cln_debug_pub.add('xmlparser.parser instance obtained',1);

174: -- Obtain XML parser instance
175: l_parser := xmlparser.newparser;
176:
177: IF g_log_lvl <= 1 THEN
178: cln_debug_pub.add('xmlparser.parser instance obtained',1);
179: END IF;
180:
181: -- Set parser base directory for resolving external entities
182: xmlparser.setBaseDIR(l_parser,g_hdr_rec.dtd_base_dir);

Line 185: cln_debug_pub.add('xmlparser.setBaseURL successful',1);

181: -- Set parser base directory for resolving external entities
182: xmlparser.setBaseDIR(l_parser,g_hdr_rec.dtd_base_dir);
183:
184: IF g_log_lvl <= 1 THEN
185: cln_debug_pub.add('xmlparser.setBaseURL successful',1);
186: END IF;
187:
188: -- Parse DTD document
189: xmlparser.parseDTD(l_parser,g_hdr_rec.dtd_schma_loc,g_hdr_rec.xml_root_node);

Line 192: cln_debug_pub.add('xmlparser.parseDTD successful',1);

188: -- Parse DTD document
189: xmlparser.parseDTD(l_parser,g_hdr_rec.dtd_schma_loc,g_hdr_rec.xml_root_node);
190:
191: IF g_log_lvl <= 1 THEN
192: cln_debug_pub.add('xmlparser.parseDTD successful',1);
193: END IF;
194:
195: -- Get the DTD as a xmldom.domdocumenttype instance
196: l_doc_typ := xmlparser.getDoctype(l_parser);

Line 199: cln_debug_pub.add('xmlparser.getDoctype successful',1);

195: -- Get the DTD as a xmldom.domdocumenttype instance
196: l_doc_typ := xmlparser.getDoctype(l_parser);
197:
198: IF g_log_lvl <= 1 THEN
199: cln_debug_pub.add('xmlparser.getDoctype successful',1);
200: END IF;
201:
202: -- Set parser to DTD validation mode
203: xmlparser.setValidationMode(l_parser,true);

Line 206: cln_debug_pub.add('xmlparser.setValidationMode successful',1);

202: -- Set parser to DTD validation mode
203: xmlparser.setValidationMode(l_parser,true);
204:
205: IF g_log_lvl <= 1 THEN
206: cln_debug_pub.add('xmlparser.setValidationMode successful',1);
207: END IF;
208:
209: -- Set Doc type to parsed DTD
210: xmlparser.setDoctype(l_parser,l_doc_typ);

Line 213: cln_debug_pub.add('xmlparser.setDoctype successful',1);

209: -- Set Doc type to parsed DTD
210: xmlparser.setDoctype(l_parser,l_doc_typ);
211:
212: IF g_log_lvl <= 1 THEN
213: cln_debug_pub.add('xmlparser.setDoctype successful',1);
214: END IF;
215:
216: -- Parse input XML and validate against DTD
217: xmlparser.parseBuffer(l_parser,a_xml);

Line 220: cln_debug_pub.add('xmlparser.parseBuffer successful',1);

216: -- Parse input XML and validate against DTD
217: xmlparser.parseBuffer(l_parser,a_xml);
218:
219: IF g_log_lvl <= 1 THEN
220: cln_debug_pub.add('xmlparser.parseBuffer successful',1);
221: END IF;
222:
223: -- No exeception means validation is successful
224: -- Exit with success code

Line 228: cln_debug_pub.add('xmlparser.freeParser successful',1);

224: -- Exit with success code
225: xmlparser.freeParser(l_parser);
226:
227: IF g_log_lvl <= 1 THEN
228: cln_debug_pub.add('xmlparser.freeParser successful',1);
229: END IF;
230:
231: x_ret_sts := g_success_code;
232: x_ret_msg := NULL;

Line 253: cln_debug_pub.add('Exiting m4u_xml_extn_utils.dtd_validation - Normal',2);

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:

Line 254: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 255: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 283: cln_debug_pub.add('Entering m4u_xml_extn_utils.schema_validation',2);

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:

Line 308: cln_debug_pub.add('Exiting m4u_xml_extn_utils.schema_validation - Normal',2);

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:

Line 309: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 310: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 332: cln_debug_pub.add('Entering m4u_xml_extn_utils.no_validation',2);

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:

Line 343: cln_debug_pub.add('xmlparser.parser instance obtained',1);

339: --Obtain parser instance
340: l_parser := xmlparser.newparser;
341:
342: IF g_log_lvl <= 1 THEN
343: cln_debug_pub.add('xmlparser.parser instance obtained',1);
344: END IF;
345:
346: -- Parse XML buffer
347: xmlparser.parseBuffer(l_parser,a_xml);

Line 350: cln_debug_pub.add('xmlparser.parseBuffer successful',1);

346: -- Parse XML buffer
347: xmlparser.parseBuffer(l_parser,a_xml);
348:
349: IF g_log_lvl <= 1 THEN
350: cln_debug_pub.add('xmlparser.parseBuffer successful',1);
351: END IF;
352:
353: -- Free parser
354: xmlparser.freeParser(l_parser);

Line 357: cln_debug_pub.add('xmlparser.freeParser successful',1);

353: -- Free parser
354: xmlparser.freeParser(l_parser);
355:
356: IF g_log_lvl <= 1 THEN
357: cln_debug_pub.add('xmlparser.freeParser successful',1);
358: END IF;
359:
360: -- set retcode to success
361: x_ret_sts := g_success_code;

Line 378: cln_debug_pub.add('Exiting m4u_xml_extn_utils.no_validation - Normal',2);

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:

Line 379: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 380: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 407: cln_debug_pub.add('Entering m4u_xml_extn_utils.validate',2);

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.

Line 408: cln_debug_pub.add('g_hdr_rec.valdtn_typ - ' || g_hdr_rec.valdtn_typ,2);

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.
412: g_hdr_rec.valdtn_typ := c_valdtn_none;

Line 441: cln_debug_pub.add('Exiting m4u_xml_extn_utils.validate - Normal',2);

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);

Line 442: cln_debug_pub.add('x_api_ret_msg - ' || x_api_ret_msg,1);

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);
446: END IF;

Line 443: cln_debug_pub.add('x_api_ret_sts - ' || x_api_ret_sts,1);

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);
446: END IF;
447:

Line 444: cln_debug_pub.add('x_valdtn_ret_msg - ' || x_valdtn_msg,1);

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);
446: END IF;
447:
448: RETURN;

Line 445: cln_debug_pub.add('x_valdtn_ret_sts - ' || x_valdtn_sts,1);

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);
446: END IF;
447:
448: RETURN;
449:

Line 476: cln_debug_pub.add('Entering m4u_xml_extn_utils.init_hdr',2);

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);

Line 477: cln_debug_pub.add('a_extn_name - ' || a_extn_name,2);

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);
481: ELSE

Line 478: cln_debug_pub.add('a_tp_id - ' || a_tp_id,2);

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);
481: ELSE
482: cln_debug_pub.add('a_dflt_tp - ' || 'N',2);

Line 480: cln_debug_pub.add('a_dflt_tp - ' || 'Y',2);

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);
481: ELSE
482: cln_debug_pub.add('a_dflt_tp - ' || 'N',2);
483: END IF;
484: END IF;

Line 482: cln_debug_pub.add('a_dflt_tp - ' || 'N',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);
481: ELSE
482: cln_debug_pub.add('a_dflt_tp - ' || 'N',2);
483: END IF;
484: END IF;
485:
486: l_extn_found := false;

Line 502: cln_debug_pub.add('TP specific mapping found',1);

498: AND trading_partner_id = a_tp_id;
499: l_extn_found := true;
500:
501: IF g_log_lvl <= 1 THEN
502: cln_debug_pub.add('TP specific mapping found',1);
503: END IF;
504:
505: EXCEPTION
506: WHEN NO_DATA_FOUND THEN

Line 509: cln_debug_pub.add('TP specific mapping not-found',1);

505: EXCEPTION
506: WHEN NO_DATA_FOUND THEN
507: l_extn_found := false;
508: IF g_log_lvl <= 1 THEN
509: cln_debug_pub.add('TP specific mapping not-found',1);
510: END IF;
511: END;
512:
513:

Line 527: cln_debug_pub.add('Default mapping found',1);

523: FROM m4u_xml_extensions
524: WHERE extn_name = a_extn_name
525: AND trading_partner_id = 'M4U_DEFAULT_TP';
526: IF g_log_lvl <= 1 THEN
527: cln_debug_pub.add('Default mapping found',1);
528: END IF;
529: l_extn_found := true;
530: EXCEPTION
531: WHEN NO_DATA_FOUND THEN

Line 534: cln_debug_pub.add('Default mapping not-found',1);

530: EXCEPTION
531: WHEN NO_DATA_FOUND THEN
532: l_extn_found := false;
533: IF g_log_lvl <= 1 THEN
534: cln_debug_pub.add('Default mapping not-found',1);
535: END IF;
536: END;
537: END IF;
538:

Line 555: cln_debug_pub.add('Exiting m4u_xml_extn_utils.init_hdr - Normal',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:

Line 556: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 557: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 594: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_elmnt_mapping',2);

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:

Line 600: cln_debug_pub.add('cursor processing begins',1);

596:
597: OPEN l_cur_elmnt_map(g_hdr_rec.extn_name,g_hdr_rec.tp_id);
598:
599: IF g_log_lvl <= 1 THEN
600: cln_debug_pub.add('cursor processing begins',1);
601: END IF;
602:
603: g_elmnt_map.DELETE;
604: IF g_log_lvl <= 1 THEN

Line 605: cln_debug_pub.add('deleted g_elmnt_map',1);

601: END IF;
602:
603: g_elmnt_map.DELETE;
604: IF g_log_lvl <= 1 THEN
605: cln_debug_pub.add('deleted g_elmnt_map',1);
606: END IF;
607: g_elmnt_count := 0;
608:
609: LOOP

Line 612: cln_debug_pub.add('loop> g_elmnt_count - ' || g_elmnt_count,1);

608:
609: LOOP
610:
611: IF g_log_lvl <= 1 THEN
612: cln_debug_pub.add('loop> g_elmnt_count - ' || g_elmnt_count,1);
613: END IF;
614:
615: -- read record-by-record and fetch into g_elmnt_map;
616: -- read data into memory

Line 630: cln_debug_pub.add('l_tmp_rec.id - ' || l_tmp_rec.id,1);

626: g_elmnt_count := g_elmnt_count + 1;
627:
628:
629: IF g_log_lvl <= 1 THEN
630: cln_debug_pub.add('l_tmp_rec.id - ' || l_tmp_rec.id,1);
631: END IF;
632:
633: -- store data by index in order of sequence
634: g_elmnt_map(g_elmnt_count) := l_tmp_rec;

Line 636: cln_debug_pub.add('Assinged record',1);

632:
633: -- store data by index in order of sequence
634: g_elmnt_map(g_elmnt_count) := l_tmp_rec;
635: IF g_log_lvl <= 1 THEN
636: cln_debug_pub.add('Assinged record',1);
637: END IF;
638: END LOOP;
639:
640: --Close open cursor

Line 644: cln_debug_pub.add('Loop end - g_elmnt_count: ' || g_elmnt_count,1);

640: --Close open cursor
641: CLOSE l_cur_elmnt_map;
642:
643: IF g_log_lvl <= 1 THEN
644: cln_debug_pub.add('Loop end - g_elmnt_count: ' || g_elmnt_count,1);
645: END IF;
646:
647: -- Error, no mapping found
648: IF g_elmnt_count <= 0 THEN

Line 660: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_elmnt_mapping - Normal',2);

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:

Line 661: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 662: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 692: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_lvls',2);

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:

Line 698: cln_debug_pub.add('Deleted g_lvl_rec_tab',1);

694:
695: g_lvl_rec_tab.delete;
696:
697: IF g_log_lvl <= 1 THEN
698: cln_debug_pub.add('Deleted g_lvl_rec_tab',1);
699: END IF;
700: -- open curosr
701: OPEN l_cur_lvls(g_hdr_rec.extn_name,g_hdr_rec.tp_id);
702:

Line 705: cln_debug_pub.add('in the loop',1);

701: OPEN l_cur_lvls(g_hdr_rec.extn_name,g_hdr_rec.tp_id);
702:
703: LOOP
704: IF g_log_lvl <= 1 THEN
705: cln_debug_pub.add('in the loop',1);
706: END IF;
707:
708: FETCH l_cur_lvls
709: INTO l_lvl_id;

Line 714: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id,1);

710:
711: EXIT WHEN l_cur_lvls%NOTFOUND;
712:
713: IF g_log_lvl <= 1 THEN
714: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id,1);
715: END IF;
716:
717: -- store level-ids into g_lvl_rec_tab
718: l_lvl_rec.id := l_lvl_id;

Line 728: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id ,1);

724:
725: g_lvl_rec_tab(l_lvl_id) := l_lvl_rec;
726:
727: IF g_log_lvl <= 1 THEN
728: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id ,1);
729: END IF;
730:
731:
732: END LOOP;

Line 742: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_lvls - Normal',2);

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;

Line 743: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;
747:

Line 744: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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;
747:
748: EXCEPTION

Line 777: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_lvl_views',2);

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);

Line 784: cln_debug_pub.add('Cursor opened',1);

780: -- Fetch views corresponding to each level
781: OPEN l_cur_lvl_id(g_hdr_rec.extn_name,g_hdr_rec.tp_id);
782:
783: IF g_log_lvl <= 1 THEN
784: cln_debug_pub.add('Cursor opened',1);
785: END IF;
786:
787:
788: LOOP

Line 791: cln_debug_pub.add('in the loop',1);

787:
788: LOOP
789:
790: IF g_log_lvl <= 1 THEN
791: cln_debug_pub.add('in the loop',1);
792: END IF;
793:
794: -- clean l_view_rec
795: l_view_rec.rowcount := 0;

Line 814: cln_debug_pub.add('Fectched data',1);

810: l_view_rec.whr_claus := 'WHERE 1=1';
811: END IF;
812:
813: IF g_log_lvl <= 1 THEN
814: cln_debug_pub.add('Fectched data',1);
815: cln_debug_pub.add('l_lvl_id - ' ||l_lvl_id,1);
816: cln_debug_pub.add('l_view_rec.view_nam - ' ||l_view_rec.view_nam,1);
817: cln_debug_pub.add('l_view_rec.whr_claus - ' ||l_view_rec.whr_claus,1);
818: END IF;

Line 815: cln_debug_pub.add('l_lvl_id - ' ||l_lvl_id,1);

811: END IF;
812:
813: IF g_log_lvl <= 1 THEN
814: cln_debug_pub.add('Fectched data',1);
815: cln_debug_pub.add('l_lvl_id - ' ||l_lvl_id,1);
816: cln_debug_pub.add('l_view_rec.view_nam - ' ||l_view_rec.view_nam,1);
817: cln_debug_pub.add('l_view_rec.whr_claus - ' ||l_view_rec.whr_claus,1);
818: END IF;
819:

Line 816: cln_debug_pub.add('l_view_rec.view_nam - ' ||l_view_rec.view_nam,1);

812:
813: IF g_log_lvl <= 1 THEN
814: cln_debug_pub.add('Fectched data',1);
815: cln_debug_pub.add('l_lvl_id - ' ||l_lvl_id,1);
816: cln_debug_pub.add('l_view_rec.view_nam - ' ||l_view_rec.view_nam,1);
817: cln_debug_pub.add('l_view_rec.whr_claus - ' ||l_view_rec.whr_claus,1);
818: END IF;
819:
820: -- load binding corresponding to l_lvl_id, l_view_rec

Line 817: cln_debug_pub.add('l_view_rec.whr_claus - ' ||l_view_rec.whr_claus,1);

813: IF g_log_lvl <= 1 THEN
814: cln_debug_pub.add('Fectched data',1);
815: cln_debug_pub.add('l_lvl_id - ' ||l_lvl_id,1);
816: cln_debug_pub.add('l_view_rec.view_nam - ' ||l_view_rec.view_nam,1);
817: cln_debug_pub.add('l_view_rec.whr_claus - ' ||l_view_rec.whr_claus,1);
818: END IF;
819:
820: -- load binding corresponding to l_lvl_id, l_view_rec
821: load_bindings(l_lvl_id, l_view_rec,x_ret_sts,x_ret_msg);

Line 824: cln_debug_pub.add('returned from load_bindings',1);

820: -- load binding corresponding to l_lvl_id, l_view_rec
821: load_bindings(l_lvl_id, l_view_rec,x_ret_sts,x_ret_msg);
822:
823: IF g_log_lvl <= 1 THEN
824: cln_debug_pub.add('returned from load_bindings',1);
825: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
826: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
827: END IF;
828:

Line 825: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);

821: load_bindings(l_lvl_id, l_view_rec,x_ret_sts,x_ret_msg);
822:
823: IF g_log_lvl <= 1 THEN
824: cln_debug_pub.add('returned from load_bindings',1);
825: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
826: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
827: END IF;
828:
829: IF NVL(x_ret_sts,'F') <> g_success_code THEN

Line 826: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);

822:
823: IF g_log_lvl <= 1 THEN
824: cln_debug_pub.add('returned from load_bindings',1);
825: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
826: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
827: END IF;
828:
829: IF NVL(x_ret_sts,'F') <> g_success_code THEN
830: EXIT;

Line 837: cln_debug_pub.add('returned from load_view_cols',1);

833: -- load view_cols corresponding to l_lvl_id, l_view_rec
834: load_view_cols(l_lvl_id, l_view_rec,x_ret_sts,x_ret_msg);
835:
836: IF g_log_lvl <= 1 THEN
837: cln_debug_pub.add('returned from load_view_cols',1);
838: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
839: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
840: cln_debug_pub.add('l_view_rec.exec_sql - ' || l_view_rec.exec_sql,1);
841: END IF;

Line 838: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);

834: load_view_cols(l_lvl_id, l_view_rec,x_ret_sts,x_ret_msg);
835:
836: IF g_log_lvl <= 1 THEN
837: cln_debug_pub.add('returned from load_view_cols',1);
838: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
839: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
840: cln_debug_pub.add('l_view_rec.exec_sql - ' || l_view_rec.exec_sql,1);
841: END IF;
842:

Line 839: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);

835:
836: IF g_log_lvl <= 1 THEN
837: cln_debug_pub.add('returned from load_view_cols',1);
838: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
839: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
840: cln_debug_pub.add('l_view_rec.exec_sql - ' || l_view_rec.exec_sql,1);
841: END IF;
842:
843: IF NVL(x_ret_sts,'F') <> g_success_code THEN

Line 840: cln_debug_pub.add('l_view_rec.exec_sql - ' || l_view_rec.exec_sql,1);

836: IF g_log_lvl <= 1 THEN
837: cln_debug_pub.add('returned from load_view_cols',1);
838: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,1);
839: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,1);
840: cln_debug_pub.add('l_view_rec.exec_sql - ' || l_view_rec.exec_sql,1);
841: END IF;
842:
843: IF NVL(x_ret_sts,'F') <> g_success_code THEN
844: EXIT;

Line 849: cln_debug_pub.add('Obtained l_lvl_rec',1);

845: END IF;
846:
847: l_lvl_rec := g_lvl_rec_tab(l_lvl_id);
848: IF g_log_lvl <= 1 THEN
849: cln_debug_pub.add('Obtained l_lvl_rec',1);
850: END IF;
851: l_lvl_rec.view_tab(l_lvl_rec.view_count+1) := l_view_rec;
852: IF g_log_lvl <= 1 THEN
853: cln_debug_pub.add('set view_rec',1);

Line 853: cln_debug_pub.add('set view_rec',1);

849: cln_debug_pub.add('Obtained l_lvl_rec',1);
850: END IF;
851: l_lvl_rec.view_tab(l_lvl_rec.view_count+1) := l_view_rec;
852: IF g_log_lvl <= 1 THEN
853: cln_debug_pub.add('set view_rec',1);
854: END IF;
855: l_lvl_rec.is_mapped := true;
856: l_lvl_rec.view_count := l_lvl_rec.view_count + 1;
857: l_lvl_rec.rpt_count := 0;

Line 861: cln_debug_pub.add('l_lvl_rec.id - ' || l_lvl_rec.id,1);

857: l_lvl_rec.rpt_count := 0;
858: g_lvl_rec_tab(l_lvl_id) := l_lvl_rec;
859:
860: IF g_log_lvl <= 1 THEN
861: cln_debug_pub.add('l_lvl_rec.id - ' || l_lvl_rec.id,1);
862: cln_debug_pub.add('l_lvl_rec.view_count - ' || l_lvl_rec.view_count,1);
863: END IF;
864:
865:

Line 862: cln_debug_pub.add('l_lvl_rec.view_count - ' || l_lvl_rec.view_count,1);

858: g_lvl_rec_tab(l_lvl_id) := l_lvl_rec;
859:
860: IF g_log_lvl <= 1 THEN
861: cln_debug_pub.add('l_lvl_rec.id - ' || l_lvl_rec.id,1);
862: cln_debug_pub.add('l_lvl_rec.view_count - ' || l_lvl_rec.view_count,1);
863: END IF;
864:
865:
866: END LOOP;

Line 869: cln_debug_pub.add('Closing cursor - ' || l_lvl_rec.view_count,1);

865:
866: END LOOP;
867:
868: IF g_log_lvl <= 1 THEN
869: cln_debug_pub.add('Closing cursor - ' || l_lvl_rec.view_count,1);
870: END IF;
871:
872: CLOSE l_cur_lvl_id;
873:

Line 878: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_lvl_views - Normal',2);

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:

Line 879: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 880: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 926: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_view_cols',2);

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:

Line 927: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id,2);

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:
931: OPEN l_cur_view_cols(g_hdr_rec.extn_name,g_hdr_rec.tp_id,a_lvl_id,x_view_rec.view_nam);

Line 928: cln_debug_pub.add('x_view_rec.view_nam - ' || x_view_rec.view_nam,2);

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:
931: OPEN l_cur_view_cols(g_hdr_rec.extn_name,g_hdr_rec.tp_id,a_lvl_id,x_view_rec.view_nam);
932:

Line 934: cln_debug_pub.add('Cursor opened',1);

930:
931: OPEN l_cur_view_cols(g_hdr_rec.extn_name,g_hdr_rec.tp_id,a_lvl_id,x_view_rec.view_nam);
932:
933: IF g_log_lvl <= 1 THEN
934: cln_debug_pub.add('Cursor opened',1);
935: END IF;
936:
937: x_view_rec.col_tab.delete;
938: IF g_log_lvl <= 1 THEN

Line 939: cln_debug_pub.add('Delete - x_view_rec.col_tab',1);

935: END IF;
936:
937: x_view_rec.col_tab.delete;
938: IF g_log_lvl <= 1 THEN
939: cln_debug_pub.add('Delete - x_view_rec.col_tab',1);
940: END IF;
941: -- have minimum of 1 column
942: -- create SQL statement while looping through column list
943: x_view_rec.col_tab(1) := '1';

Line 950: cln_debug_pub.add('in the loop - ' || x_view_rec.col_count,1);

946:
947: LOOP
948:
949: IF g_log_lvl <= 1 THEN
950: cln_debug_pub.add('in the loop - ' || x_view_rec.col_count,1);
951: END IF;
952:
953: FETCH l_cur_view_cols
954: INTO l_col_nam;

Line 960: cln_debug_pub.add('Fectched data',1);

956: EXIT WHEN l_cur_view_cols%NOTFOUND;
957:
958:
959: IF g_log_lvl <= 1 THEN
960: cln_debug_pub.add('Fectched data',1);
961: cln_debug_pub.add('l_col_nam - ' ||l_col_nam,1);
962: END IF;
963:
964:

Line 961: cln_debug_pub.add('l_col_nam - ' ||l_col_nam,1);

957:
958:
959: IF g_log_lvl <= 1 THEN
960: cln_debug_pub.add('Fectched data',1);
961: cln_debug_pub.add('l_col_nam - ' ||l_col_nam,1);
962: END IF;
963:
964:
965: x_view_rec.col_count := x_view_rec.col_count+1;

Line 978: cln_debug_pub.add('x_view_rec.col_count - '|| x_view_rec.col_count,1);

974: x_view_rec.exec_sql := x_view_rec.exec_sql || ' FROM ' || x_view_rec.view_nam || ' V';
975: x_view_rec.exec_sql := x_view_rec.exec_sql || ' ' || x_view_rec.whr_claus;
976:
977: IF g_log_lvl <= 1 THEN
978: cln_debug_pub.add('x_view_rec.col_count - '|| x_view_rec.col_count,1);
979: cln_debug_pub.add('x_view_rec.exec_sql - '|| x_view_rec.exec_sql ,1);
980: cln_debug_pub.add('Closing cursor',1);
981: END IF;
982:

Line 979: cln_debug_pub.add('x_view_rec.exec_sql - '|| x_view_rec.exec_sql ,1);

975: x_view_rec.exec_sql := x_view_rec.exec_sql || ' ' || x_view_rec.whr_claus;
976:
977: IF g_log_lvl <= 1 THEN
978: cln_debug_pub.add('x_view_rec.col_count - '|| x_view_rec.col_count,1);
979: cln_debug_pub.add('x_view_rec.exec_sql - '|| x_view_rec.exec_sql ,1);
980: cln_debug_pub.add('Closing cursor',1);
981: END IF;
982:
983:

Line 980: cln_debug_pub.add('Closing cursor',1);

976:
977: IF g_log_lvl <= 1 THEN
978: cln_debug_pub.add('x_view_rec.col_count - '|| x_view_rec.col_count,1);
979: cln_debug_pub.add('x_view_rec.exec_sql - '|| x_view_rec.exec_sql ,1);
980: cln_debug_pub.add('Closing cursor',1);
981: END IF;
982:
983:
984:

Line 991: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_view_cols - Normal',2);

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:

Line 992: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;

Line 993: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:

Line 1035: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_bindings',2);

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:

Line 1041: cln_debug_pub.add('cursor opened',1);

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:
1040: IF g_log_lvl <= 1 THEN
1041: cln_debug_pub.add('cursor opened',1);
1042: END IF;
1043:
1044: x_view_rec.bind_tab.delete;
1045: IF g_log_lvl <= 1 THEN

Line 1046: cln_debug_pub.add('bind_tab deleted',1);

1042: END IF;
1043:
1044: x_view_rec.bind_tab.delete;
1045: IF g_log_lvl <= 1 THEN
1046: cln_debug_pub.add('bind_tab deleted',1);
1047: END IF;
1048:
1049: x_view_rec.bind_count := 0;
1050: LOOP

Line 1052: cln_debug_pub.add('in the loop - ' || x_view_rec.bind_count,1);

1048:
1049: x_view_rec.bind_count := 0;
1050: LOOP
1051: IF g_log_lvl <= 1 THEN
1052: cln_debug_pub.add('in the loop - ' || x_view_rec.bind_count,1);
1053: END IF;
1054:
1055: FETCH l_cur_bindngs
1056: INTO l_bind_rec.nam, l_bind_rec.typ, l_bind_rec.src_view, l_bind_rec.src_col,

Line 1062: cln_debug_pub.add('Fectched data',1);

1058:
1059: EXIT WHEN l_cur_bindngs%NOTFOUND;
1060:
1061: IF g_log_lvl <= 1 THEN
1062: cln_debug_pub.add('Fectched data',1);
1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);
1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);

Line 1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);

1059: EXIT WHEN l_cur_bindngs%NOTFOUND;
1060:
1061: IF g_log_lvl <= 1 THEN
1062: cln_debug_pub.add('Fectched data',1);
1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);
1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);
1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);

Line 1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);

1060:
1061: IF g_log_lvl <= 1 THEN
1062: cln_debug_pub.add('Fectched data',1);
1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);
1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);
1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);
1068: cln_debug_pub.add('l_bind_rec.src_lvl_id - ' ||l_bind_rec.src_lvl_id,1);

Line 1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);

1061: IF g_log_lvl <= 1 THEN
1062: cln_debug_pub.add('Fectched data',1);
1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);
1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);
1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);
1068: cln_debug_pub.add('l_bind_rec.src_lvl_id - ' ||l_bind_rec.src_lvl_id,1);
1069: END IF;

Line 1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);

1062: cln_debug_pub.add('Fectched data',1);
1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);
1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);
1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);
1068: cln_debug_pub.add('l_bind_rec.src_lvl_id - ' ||l_bind_rec.src_lvl_id,1);
1069: END IF;
1070:

Line 1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);

1063: cln_debug_pub.add('l_bind_rec.nam - ' ||l_bind_rec.nam,1);
1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);
1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);
1068: cln_debug_pub.add('l_bind_rec.src_lvl_id - ' ||l_bind_rec.src_lvl_id,1);
1069: END IF;
1070:
1071: x_view_rec.bind_count := x_view_rec.bind_count + 1;

Line 1068: cln_debug_pub.add('l_bind_rec.src_lvl_id - ' ||l_bind_rec.src_lvl_id,1);

1064: cln_debug_pub.add('l_bind_rec.typ - ' ||l_bind_rec.typ,1);
1065: cln_debug_pub.add('l_bind_rec.src_view - ' ||l_bind_rec.src_view,1);
1066: cln_debug_pub.add('l_bind_rec.src_col - ' ||l_bind_rec.src_col,1);
1067: cln_debug_pub.add('l_bind_rec.src_var - ' ||l_bind_rec.src_var,1);
1068: cln_debug_pub.add('l_bind_rec.src_lvl_id - ' ||l_bind_rec.src_lvl_id,1);
1069: END IF;
1070:
1071: x_view_rec.bind_count := x_view_rec.bind_count + 1;
1072:

Line 1077: cln_debug_pub.add('Closing cursor - ' || x_view_rec.bind_count,1);

1073: x_view_rec.bind_tab(x_view_rec.bind_count) := l_bind_rec;
1074: END LOOP;
1075:
1076: IF g_log_lvl <= 1 THEN
1077: cln_debug_pub.add('Closing cursor - ' || x_view_rec.bind_count,1);
1078: END IF;
1079:
1080: CLOSE l_cur_bindngs;
1081:

Line 1086: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_bindings - Normal',2);

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:

Line 1087: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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:
1091: RETURN;

Line 1088: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:
1091: RETURN;
1092:

Line 1114: cln_debug_pub.add('Entering m4u_xml_extn_utils.load_global_var',2);

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;

Line 1120: cln_debug_pub.add('Deleted g_glb_var_tab',1);

1116:
1117: -- delete any old-data
1118: g_glb_var_tab.DELETE;
1119: IF g_log_lvl <= 1 THEN
1120: cln_debug_pub.add('Deleted g_glb_var_tab',1);
1121: END IF;
1122:
1123: i := 0;
1124: WHILE i < a_param_lst.count LOOP

Line 1129: cln_debug_pub.add('i - ' || i,1);

1125: l_nam := a_param_lst(i+1).getName();
1126: l_val := a_param_lst(i+1).getValue();
1127:
1128: IF g_log_lvl <= 1 THEN
1129: cln_debug_pub.add('i - ' || i,1);
1130: cln_debug_pub.add('l_nam - ' || l_nam,1);
1131: cln_debug_pub.add('l_val - ' || l_val,1);
1132: END IF;
1133:

Line 1130: cln_debug_pub.add('l_nam - ' || l_nam,1);

1126: l_val := a_param_lst(i+1).getValue();
1127:
1128: IF g_log_lvl <= 1 THEN
1129: cln_debug_pub.add('i - ' || i,1);
1130: cln_debug_pub.add('l_nam - ' || l_nam,1);
1131: cln_debug_pub.add('l_val - ' || l_val,1);
1132: END IF;
1133:
1134: g_glb_var_tab(UPPER(l_nam)) := l_val;

Line 1131: cln_debug_pub.add('l_val - ' || l_val,1);

1127:
1128: IF g_log_lvl <= 1 THEN
1129: cln_debug_pub.add('i - ' || i,1);
1130: cln_debug_pub.add('l_nam - ' || l_nam,1);
1131: cln_debug_pub.add('l_val - ' || l_val,1);
1132: END IF;
1133:
1134: g_glb_var_tab(UPPER(l_nam)) := l_val;
1135:

Line 1144: cln_debug_pub.add('Exiting m4u_xml_extn_utils.load_global_var - Normal',2);

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

Line 1145: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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
1149: WHEN OTHERS THEN

Line 1146: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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
1149: WHEN OTHERS THEN
1150: handle_exception(SQLCODE,SQLERRM,l_progress,'m4u_xml_extn_utils.load_global_var',

Line 1176: cln_debug_pub.add('Entering m4u_xml_extn_utils.init_map',2);

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);

Line 1177: cln_debug_pub.add('a_extn_name - ' || a_extn_name,2);

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);
1181: ELSE

Line 1178: cln_debug_pub.add('a_tp_id - ' || a_tp_id,2);

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);
1181: ELSE
1182: cln_debug_pub.add('a_dflt_tp - ' || 'N',2);

Line 1180: cln_debug_pub.add('a_dflt_tp - ' || 'Y',2);

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);
1181: ELSE
1182: cln_debug_pub.add('a_dflt_tp - ' || 'N',2);
1183: END IF;
1184: END IF;

Line 1182: cln_debug_pub.add('a_dflt_tp - ' || 'N',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);
1181: ELSE
1182: cln_debug_pub.add('a_dflt_tp - ' || 'N',2);
1183: END IF;
1184: END IF;
1185:
1186: l_progress := 'Initialize XML mapping information';

Line 1191: cln_debug_pub.add('Returned from m4u_xml_extn_utils.init_hdr',1);

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:

Line 1192: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);

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:
1196: -- load element mapping

Line 1193: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);

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:
1196: -- load element mapping
1197: l_progress := 'Read from m4u_element_mappings';

Line 1201: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_elmnt_mapping',1);

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;

Line 1202: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);

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;
1206:

Line 1203: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);

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;
1206:
1207:

Line 1214: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_lvls',1);

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;

Line 1215: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);

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;
1219:

Line 1216: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);

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;
1219:
1220:

Line 1226: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_lvl_views',1);

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;

Line 1227: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);

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;
1231:

Line 1228: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);

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;
1231:
1232: -- load global vairables from a_param_list

Line 1238: cln_debug_pub.add('Returned from m4u_xml_extn_utils.load_global_var',1);

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;

Line 1239: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts, 1);

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:

Line 1240: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg, 1);

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

Line 1247: cln_debug_pub.add('Exiting m4u_xml_extn_utils.init_map - Normal',2);

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:

Line 1248: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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:
1252: EXCEPTION

Line 1249: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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:
1252: EXCEPTION
1253: WHEN OTHERS THEN

Line 1276: cln_debug_pub.add('Entering m4u_xml_extn.find_lvl_stack', 2);

1272: l_progress VARCHAR2(4000);
1273: BEGIN
1274: l_progress := 'Find level on stack - ' || a_lvl_id;
1275: IF g_log_lvl <= 2 THEN
1276: cln_debug_pub.add('Entering m4u_xml_extn.find_lvl_stack', 2);
1277: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id, 2);
1278: END IF;
1279:
1280: -- start searching the stack from top

Line 1277: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id, 2);

1273: BEGIN
1274: l_progress := 'Find level on stack - ' || a_lvl_id;
1275: IF g_log_lvl <= 2 THEN
1276: cln_debug_pub.add('Entering m4u_xml_extn.find_lvl_stack', 2);
1277: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id, 2);
1278: END IF;
1279:
1280: -- start searching the stack from top
1281: -- g_lvl_stk_ptr points to Top of stack

Line 1285: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr,1);

1281: -- g_lvl_stk_ptr points to Top of stack
1282: l_idx := g_lvl_stk_ptr;
1283:
1284: IF g_log_lvl <= 1 THEN
1285: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr,1);
1286: END IF;
1287:
1288: -- Loop element by element
1289: WHILE l_idx > 0 LOOP

Line 1292: cln_debug_pub.add('l_idx - ' || l_idx ,1);

1288: -- Loop element by element
1289: WHILE l_idx > 0 LOOP
1290:
1291: IF g_log_lvl <= 1 THEN
1292: cln_debug_pub.add('l_idx - ' || l_idx ,1);
1293: END IF;
1294:
1295: -- get level_id
1296: l_lvl_id := g_lvl_stk(l_idx);

Line 1298: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id ,1);

1294:
1295: -- get level_id
1296: l_lvl_id := g_lvl_stk(l_idx);
1297: IF g_log_lvl <= 1 THEN
1298: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id ,1);
1299: END IF;
1300:
1301: -- if lvl_id is same as input level
1302: -- lookup level record and return success

Line 1306: cln_debug_pub.add('Found level rec, exiting',2);

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;
1309: x_ret_msg := NULL;
1310: RETURN l_lvl_rec;

Line 1323: cln_debug_pub.add('m4u_xml_extn.find_lvl_stack exiting - failure' ,2);

1319: l_lvl_rec := null;
1320:
1321:
1322: IF g_log_lvl <= 2 THEN
1323: cln_debug_pub.add('m4u_xml_extn.find_lvl_stack exiting - failure' ,2);
1324: END IF;
1325:
1326: RETURN l_lvl_rec;
1327: EXCEPTION

Line 1361: cln_debug_pub.add('Entering m4u_xml_extn_utils.lookup_view_value',2);

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;

Line 1362: cln_debug_pub.add('a_view - ' || a_view, 2);

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;
1366:

Line 1363: cln_debug_pub.add('a_col - ' || a_col, 2);

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;
1366:
1367: -- To fetch view.column data for a level, first find level_record from stack

Line 1364: cln_debug_pub.add('a_lvl - ' || a_lvl, 2);

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;
1366:
1367: -- To fetch view.column data for a level, first find level_record from stack
1368: -- If level is not found, return failure

Line 1372: cln_debug_pub.add('find_lvl_stack - returns failure' ,6);

1368: -- If level is not found, return failure
1369: l_lvl_rec:= find_lvl_stack(a_lvl,x_ret_sts,x_ret_msg);
1370: IF x_ret_sts <> g_success_code THEN
1371: IF g_log_lvl <= 1 THEN
1372: cln_debug_pub.add('find_lvl_stack - returns failure' ,6);
1373: END IF;
1374: l_tmp_val := null;
1375: RETURN l_tmp_val;
1376: END IF;

Line 1382: cln_debug_pub.add('l_lvl_rec.cntr - ' || l_lvl_rec.cntr,1);

1378: -- key to find values table for corresponding column
1379: l_key := a_view || '.' || a_col;
1380: -- log current level count and key
1381: IF g_log_lvl <= 1 THEN
1382: cln_debug_pub.add('l_lvl_rec.cntr - ' || l_lvl_rec.cntr,1);
1383: cln_debug_pub.add('key - ' || l_key);
1384: END IF;
1385:
1386: BEGIN

Line 1383: cln_debug_pub.add('key - ' || l_key);

1379: l_key := a_view || '.' || a_col;
1380: -- log current level count and key
1381: IF g_log_lvl <= 1 THEN
1382: cln_debug_pub.add('l_lvl_rec.cntr - ' || l_lvl_rec.cntr,1);
1383: cln_debug_pub.add('key - ' || l_key);
1384: END IF;
1385:
1386: BEGIN
1387: l_size := l_lvl_rec.vals(l_key).count;

Line 1389: cln_debug_pub.add('l_size - ' || l_size,1);

1385:
1386: BEGIN
1387: l_size := l_lvl_rec.vals(l_key).count;
1388: IF g_log_lvl <= 1 THEN
1389: cln_debug_pub.add('l_size - ' || l_size,1);
1390: END IF;
1391: EXCEPTION
1392: WHEN NO_DATA_FOUND THEN
1393: IF g_log_lvl <= 6 THEN

Line 1394: cln_debug_pub.add('Value table not found for ' || l_key,6);

1390: END IF;
1391: EXCEPTION
1392: WHEN NO_DATA_FOUND THEN
1393: IF g_log_lvl <= 6 THEN
1394: cln_debug_pub.add('Value table not found for ' || l_key,6);
1395: END IF;
1396: x_ret_sts := g_err_code;
1397: x_ret_msg := NULL;
1398: RAISE;

Line 1413: cln_debug_pub.add('l_idx - ' || l_idx,1);

1409: END IF;
1410:
1411: -- l_idx is now points to the view record being accessed for data
1412: IF g_log_lvl <= 1 THEN
1413: cln_debug_pub.add('l_idx - ' || l_idx,1);
1414: END IF;
1415:
1416: -- if l_idx > 0, then lookup value and return
1417: -- else return NULL

Line 1430: cln_debug_pub.add('Exiting m4u_xml_extn.lookup_view_value - Normal',2);

1426: x_ret_msg := NULL;
1427:
1428: -- log value and return
1429: IF g_log_lvl <= 2 THEN
1430: cln_debug_pub.add('Exiting m4u_xml_extn.lookup_view_value - Normal',2);
1431: cln_debug_pub.add('ret_val - ' || substr(l_tmp_val,1,255), 2);
1432: END IF;
1433:
1434: RETURN l_tmp_val;

Line 1431: cln_debug_pub.add('ret_val - ' || substr(l_tmp_val,1,255), 2);

1427:
1428: -- log value and return
1429: IF g_log_lvl <= 2 THEN
1430: cln_debug_pub.add('Exiting m4u_xml_extn.lookup_view_value - Normal',2);
1431: cln_debug_pub.add('ret_val - ' || substr(l_tmp_val,1,255), 2);
1432: END IF;
1433:
1434: RETURN l_tmp_val;
1435:

Line 1457: cln_debug_pub.add('Entering pop_lvl_stack', 2);

1453: BEGIN
1454:
1455: l_progress := 'Pop level from stack';
1456: IF g_log_lvl <= 2 THEN
1457: cln_debug_pub.add('Entering pop_lvl_stack', 2);
1458: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1459: END IF;
1460:
1461: -- stack is empty return NULL

Line 1458: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);

1454:
1455: l_progress := 'Pop level from stack';
1456: IF g_log_lvl <= 2 THEN
1457: cln_debug_pub.add('Entering pop_lvl_stack', 2);
1458: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1459: END IF;
1460:
1461: -- stack is empty return NULL
1462: -- else, return TOS and decrement stack

Line 1465: cln_debug_pub.add('g_lvl_stk_ptr < 0',1);

1461: -- stack is empty return NULL
1462: -- else, return TOS and decrement stack
1463: IF g_lvl_stk_ptr < 0 THEN
1464: IF g_log_lvl <= 1 THEN
1465: cln_debug_pub.add('g_lvl_stk_ptr < 0',1);
1466: END IF;
1467: l_lvl_id := null;
1468: ELSE
1469: l_lvl_id := g_lvl_stk(g_lvl_stk_ptr);

Line 1475: cln_debug_pub.add('Exiting pop_lvl_stack - Normal', 2);

1471: END IF;
1472:
1473: -- Done
1474: IF g_log_lvl <= 2 THEN
1475: cln_debug_pub.add('Exiting pop_lvl_stack - Normal', 2);
1476: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id, 2);
1477: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1478: END IF;
1479:

Line 1476: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id, 2);

1472:
1473: -- Done
1474: IF g_log_lvl <= 2 THEN
1475: cln_debug_pub.add('Exiting pop_lvl_stack - Normal', 2);
1476: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id, 2);
1477: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1478: END IF;
1479:
1480: x_ret_sts := g_success_code;

Line 1477: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);

1473: -- Done
1474: IF g_log_lvl <= 2 THEN
1475: cln_debug_pub.add('Exiting pop_lvl_stack - Normal', 2);
1476: cln_debug_pub.add('l_lvl_id - ' || l_lvl_id, 2);
1477: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1478: END IF;
1479:
1480: x_ret_sts := g_success_code;
1481: x_ret_msg := NULL;

Line 1501: cln_debug_pub.add('Entering push_lvl_stack', 2);

1497: BEGIN
1498: l_progress := 'Push level to stack - ' || l_lvl_id;
1499:
1500: IF g_log_lvl <= 2 THEN
1501: cln_debug_pub.add('Entering push_lvl_stack', 2);
1502: cln_debug_pub.add('l_lvl_id - '|| l_lvl_id,2);
1503: cln_debug_pub.add('g_lvl_stk_ptr - '|| g_lvl_stk_ptr,2);
1504: END IF;
1505:

Line 1502: cln_debug_pub.add('l_lvl_id - '|| l_lvl_id,2);

1498: l_progress := 'Push level to stack - ' || l_lvl_id;
1499:
1500: IF g_log_lvl <= 2 THEN
1501: cln_debug_pub.add('Entering push_lvl_stack', 2);
1502: cln_debug_pub.add('l_lvl_id - '|| l_lvl_id,2);
1503: cln_debug_pub.add('g_lvl_stk_ptr - '|| g_lvl_stk_ptr,2);
1504: END IF;
1505:
1506:

Line 1503: cln_debug_pub.add('g_lvl_stk_ptr - '|| g_lvl_stk_ptr,2);

1499:
1500: IF g_log_lvl <= 2 THEN
1501: cln_debug_pub.add('Entering push_lvl_stack', 2);
1502: cln_debug_pub.add('l_lvl_id - '|| l_lvl_id,2);
1503: cln_debug_pub.add('g_lvl_stk_ptr - '|| g_lvl_stk_ptr,2);
1504: END IF;
1505:
1506:
1507: g_lvl_stk_ptr := g_lvl_stk_ptr + 1;

Line 1515: cln_debug_pub.add('Exiting push_lvl_stack', 2);

1511: x_ret_msg := NULL;
1512: RETURN;
1513:
1514: IF g_log_lvl <= 2 THEN
1515: cln_debug_pub.add('Exiting push_lvl_stack', 2);
1516: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1517: END IF;
1518:
1519: EXCEPTION

Line 1516: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);

1512: RETURN;
1513:
1514: IF g_log_lvl <= 2 THEN
1515: cln_debug_pub.add('Exiting push_lvl_stack', 2);
1516: cln_debug_pub.add('g_lvl_stk_ptr - ' || g_lvl_stk_ptr, 2);
1517: END IF;
1518:
1519: EXCEPTION
1520: WHEN OTHERS THEN

Line 1539: cln_debug_pub.add('Entering m4u_xml_extn.get_bind_value',2);

1535: BEGIN
1536: l_progress := 'Fetch value of bind-variable - ' || a_bind_rec.nam;
1537: -- Log input api parameters
1538: IF g_log_lvl <= 2 THEN
1539: cln_debug_pub.add('Entering m4u_xml_extn.get_bind_value',2);
1540: cln_debug_pub.add('a_bind_rec.nam - ' || a_bind_rec.nam,2);
1541: cln_debug_pub.add('a_bind_rec.typ - ' || a_bind_rec.typ,2);
1542: END IF;
1543:

Line 1540: cln_debug_pub.add('a_bind_rec.nam - ' || a_bind_rec.nam,2);

1536: l_progress := 'Fetch value of bind-variable - ' || a_bind_rec.nam;
1537: -- Log input api parameters
1538: IF g_log_lvl <= 2 THEN
1539: cln_debug_pub.add('Entering m4u_xml_extn.get_bind_value',2);
1540: cln_debug_pub.add('a_bind_rec.nam - ' || a_bind_rec.nam,2);
1541: cln_debug_pub.add('a_bind_rec.typ - ' || a_bind_rec.typ,2);
1542: END IF;
1543:
1544: l_tmp_val := NULL;

Line 1541: cln_debug_pub.add('a_bind_rec.typ - ' || a_bind_rec.typ,2);

1537: -- Log input api parameters
1538: IF g_log_lvl <= 2 THEN
1539: cln_debug_pub.add('Entering m4u_xml_extn.get_bind_value',2);
1540: cln_debug_pub.add('a_bind_rec.nam - ' || a_bind_rec.nam,2);
1541: cln_debug_pub.add('a_bind_rec.typ - ' || a_bind_rec.typ,2);
1542: END IF;
1543:
1544: l_tmp_val := NULL;
1545:

Line 1562: cln_debug_pub.add('Fetch global variable error',1);

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;
1564: RAISE FND_API.G_EXC_ERROR;
1565: END;
1566:

Line 1577: cln_debug_pub.add('lookup_view_value returns error',6);

1573: a_bind_rec.src_lvl_id,x_ret_sts, x_ret_msg);
1574:
1575: IF x_ret_sts <> g_success_code THEN
1576: IF g_log_lvl <= 6 THEN
1577: cln_debug_pub.add('lookup_view_value returns error',6);
1578: END IF;
1579: RAISE FND_API.G_EXC_ERROR;
1580: END IF;
1581:

Line 1587: cln_debug_pub.add('Mapping type not-found',6);

1583: -- Bad data, only mapping types supported are
1584: -- view and variables
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);

Line 1602: cln_debug_pub.add('Exiting m4u_xml_extn_utils.get_bind_value - Normal',2);

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;

Line 1603: cln_debug_pub.add('ret_val - ' || substr(l_tmp_val,1,255), 2);

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

Line 1611: cln_debug_pub.add('Exiting m4u_xml_extn_utils.get_bind_value - Error',6);

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;

Line 1612: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,6);

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;
1616: RETURN l_tmp_val;

Line 1647: cln_debug_pub.add('Entering m4u_xml_extn_utils.fetch_data',2);

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

Line 1648: cln_debug_pub.add('a_view_rec.view_nam - ' || a_view_rec.view_nam,2);

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
1652: cln_debug_pub.add('a_view_rec.exec_sql - ' || a_view_rec.exec_sql,1);

Line 1652: cln_debug_pub.add('a_view_rec.exec_sql - ' || a_view_rec.exec_sql,1);

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
1652: cln_debug_pub.add('a_view_rec.exec_sql - ' || a_view_rec.exec_sql,1);
1653: END IF;
1654:
1655: -- create dbms_sql cursor
1656: l_cursor := dbms_sql.open_cursor;

Line 1660: cln_debug_pub.add('a_view_rec.bind_count ' || a_view_rec.bind_count,1);

1656: l_cursor := dbms_sql.open_cursor;
1657: dbms_sql.parse(l_cursor,a_view_rec.exec_sql,dbms_sql.NATIVE);
1658:
1659: IF g_log_lvl <= 1 THEN
1660: cln_debug_pub.add('a_view_rec.bind_count ' || a_view_rec.bind_count,1);
1661: END IF;
1662:
1663: l_idx := 1;
1664: -- loop through list of bind variables for each view

Line 1670: cln_debug_pub.add('l_bind_rec.nam - ' || l_bind_rec.nam,1);

1666: -- for a bind record
1667: l_bind_rec := a_view_rec.bind_tab(l_idx);
1668:
1669: IF g_log_lvl <= 1 THEN
1670: cln_debug_pub.add('l_bind_rec.nam - ' || l_bind_rec.nam,1);
1671: END IF;
1672: -- fetch the bind value
1673: l_bind_val := get_bind_value(l_bind_rec,x_ret_sts,x_ret_msg);
1674:

Line 1676: cln_debug_pub.add('get_bind_value x_ret_sts - ' || x_ret_sts,1);

1672: -- fetch the bind value
1673: l_bind_val := get_bind_value(l_bind_rec,x_ret_sts,x_ret_msg);
1674:
1675: IF g_log_lvl <= 1 THEN
1676: cln_debug_pub.add('get_bind_value x_ret_sts - ' || x_ret_sts,1);
1677: END IF;
1678: IF x_ret_sts <> g_success_code THEN
1679: RAISE FND_API.G_EXC_ERROR;
1680: END IF;

Line 1688: cln_debug_pub.add('a_view_rec.col_count - ' || a_view_rec.col_count,1);

1684: l_idx := l_idx + 1;
1685: END LOOP;
1686:
1687: IF g_log_lvl <= 1 THEN
1688: cln_debug_pub.add('a_view_rec.col_count - ' || a_view_rec.col_count,1);
1689: END IF;
1690:
1691:
1692: l_idx := 1;

Line 1700: cln_debug_pub.add('define array l_key - ' || l_key,1);

1696: -- key for data-lookup = view.column
1697: l_key := a_view_rec.view_nam || '.'|| a_view_rec.col_tab(l_idx);
1698:
1699: IF g_log_lvl <= 1 THEN
1700: cln_debug_pub.add('define array l_key - ' || l_key,1);
1701: END IF;
1702: -- initialize storage for each view.colunm
1703: a_lvl_rec.vals(l_key) := l_vals;
1704:

Line 1711: cln_debug_pub.add('dbms_sql.define_column: done ',1);

1707: l_idx := l_idx + 1;
1708: END LOOP;
1709:
1710: IF g_log_lvl <= 1 THEN
1711: cln_debug_pub.add('dbms_sql.define_column: done ',1);
1712: END IF;
1713:
1714: l_discard := dbms_sql.execute(l_cursor);
1715:

Line 1717: cln_debug_pub.add('Executed cursor',1);

1713:
1714: l_discard := dbms_sql.execute(l_cursor);
1715:
1716: IF g_log_lvl <= 1 THEN
1717: cln_debug_pub.add('Executed cursor',1);
1718: END IF;
1719:
1720: l_rowcount := 0;
1721: LOOP

Line 1725: cln_debug_pub.add('l_discard - ' || l_discard,1);

1721: LOOP
1722: l_discard := dbms_sql.fetch_rows(l_cursor);
1723:
1724: IF g_log_lvl <= 1 THEN
1725: cln_debug_pub.add('l_discard - ' || l_discard,1);
1726: cln_debug_pub.add('l_rowcount - ' || l_rowcount,1);
1727: END IF;
1728:
1729: IF l_discard = 0 THEN

Line 1726: cln_debug_pub.add('l_rowcount - ' || l_rowcount,1);

1722: l_discard := dbms_sql.fetch_rows(l_cursor);
1723:
1724: IF g_log_lvl <= 1 THEN
1725: cln_debug_pub.add('l_discard - ' || l_discard,1);
1726: cln_debug_pub.add('l_rowcount - ' || l_rowcount,1);
1727: END IF;
1728:
1729: IF l_discard = 0 THEN
1730: EXIT;

Line 1737: cln_debug_pub.add('l_idx - ' || l_idx,1);

1733: l_idx := 1;
1734: WHILE l_idx <= a_view_rec.col_count LOOP
1735:
1736: IF g_log_lvl <= 1 THEN
1737: cln_debug_pub.add('l_idx - ' || l_idx,1);
1738: END IF;
1739:
1740: l_key := a_view_rec.view_nam || '.'|| a_view_rec.col_tab(l_idx);
1741:

Line 1743: cln_debug_pub.add('l_key - ' || l_key,1);

1739:
1740: l_key := a_view_rec.view_nam || '.'|| a_view_rec.col_tab(l_idx);
1741:
1742: IF g_log_lvl <= 1 THEN
1743: cln_debug_pub.add('l_key - ' || l_key,1);
1744: END IF;
1745:
1746: dbms_sql.column_value(l_cursor,l_idx,l_tmp_var);
1747:

Line 1749: cln_debug_pub.add('column_value - ' || substr(l_tmp_var,1,255),1);

1745:
1746: dbms_sql.column_value(l_cursor,l_idx,l_tmp_var);
1747:
1748: IF g_log_lvl <= 1 THEN
1749: cln_debug_pub.add('column_value - ' || substr(l_tmp_var,1,255),1);
1750: END IF;
1751:
1752: -- store data into the level record
1753: -- a_lvl_rec.vals(l_key) has been initialized in prev loop

Line 1760: cln_debug_pub.add('Rows fectched - ' || l_rowcount,1);

1756: l_idx := l_idx + 1;
1757: END LOOP;
1758:
1759: IF g_log_lvl <= 1 THEN
1760: cln_debug_pub.add('Rows fectched - ' || l_rowcount,1);
1761: END IF;
1762: END LOOP;
1763:
1764: a_view_rec.rowcount := l_rowcount;

Line 1768: cln_debug_pub.add('Fetching view data complete ',1);

1764: a_view_rec.rowcount := l_rowcount;
1765:
1766:
1767: IF g_log_lvl <= 1 THEN
1768: cln_debug_pub.add('Fetching view data complete ',1);
1769: cln_debug_pub.add('a_lvl_rec.rpt_count - ' || a_lvl_rec.rpt_count);
1770: END IF;
1771:
1772: -- 5299569

Line 1769: cln_debug_pub.add('a_lvl_rec.rpt_count - ' || a_lvl_rec.rpt_count);

1765:
1766:
1767: IF g_log_lvl <= 1 THEN
1768: cln_debug_pub.add('Fetching view data complete ',1);
1769: cln_debug_pub.add('a_lvl_rec.rpt_count - ' || a_lvl_rec.rpt_count);
1770: END IF;
1771:
1772: -- 5299569
1773: dbms_sql.close_cursor(l_cursor);

Line 1781: cln_debug_pub.add('a_lvl_rec.rpt_count - ' || a_lvl_rec.rpt_count);

1777: a_lvl_rec.rpt_count := a_view_rec.rowcount;
1778: END IF;
1779:
1780: IF g_log_lvl <= 1 THEN
1781: cln_debug_pub.add('a_lvl_rec.rpt_count - ' || a_lvl_rec.rpt_count);
1782: END IF;
1783:
1784: -- no execptions, succcess!
1785: x_ret_sts := g_success_code;

Line 1788: cln_debug_pub.add('Exiting m4u_xml_extn_utils.fetch_data - Normal',2);

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;

Line 1789: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;
1793: RETURN;

Line 1790: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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;
1793: RETURN;
1794: EXCEPTION

Line 1791: cln_debug_pub.add('a_view_rec.rowcount - ' || a_view_rec.rowcount,2);

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;
1793: RETURN;
1794: EXCEPTION
1795: WHEN OTHERS THEN

Line 1820: cln_debug_pub.add('Entering m4u_xml_extn_utils.init_level',2);

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;

Line 1821: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id ,2);

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;
1825:

Line 1834: cln_debug_pub.add('Cleaned l_lvl_rec.id - ' || l_lvl_rec.id,1);

1830: l_lvl_rec.end_tag_stk.delete;
1831:
1832:
1833: IF g_log_lvl <= 1 THEN
1834: cln_debug_pub.add('Cleaned l_lvl_rec.id - ' || l_lvl_rec.id,1);
1835: END IF;
1836:
1837:
1838: IF g_log_lvl <= 1 THEN

Line 1839: cln_debug_pub.add('l_lvl_rec.view_count - ' || l_lvl_rec.view_count,1);

1835: END IF;
1836:
1837:
1838: IF g_log_lvl <= 1 THEN
1839: cln_debug_pub.add('l_lvl_rec.view_count - ' || l_lvl_rec.view_count,1);
1840: END IF;
1841:
1842: IF l_lvl_rec.view_count = 0 THEN
1843: l_lvl_rec.is_mapped := false;

Line 1857: cln_debug_pub.add('l_view_rec.view_nam - ' || l_view_rec.view_nam,1);

1853: -- obtain view rec
1854: l_view_rec := l_lvl_rec.view_tab(l_cntr);
1855:
1856: IF g_log_lvl <=1 THEN
1857: cln_debug_pub.add('l_view_rec.view_nam - ' || l_view_rec.view_nam,1);
1858: END IF;
1859:
1860: -- fetch data for view
1861: -- l_view_rec contains rowcount for view

Line 1869: cln_debug_pub.add('fetch_data x_ret_sts - ' || x_ret_sts,1);

1865: -- store data back into level record
1866: l_lvl_rec.view_tab(l_cntr) := l_view_rec;
1867:
1868: IF g_log_lvl <= 1 THEN
1869: cln_debug_pub.add('fetch_data x_ret_sts - ' || x_ret_sts,1);
1870: cln_debug_pub.add('fetch_data x_ret_msg - ' || x_ret_msg,1);
1871: END IF;
1872: -- failure, no point procesing further
1873: IF x_ret_sts <> g_success_code THEN

Line 1870: cln_debug_pub.add('fetch_data x_ret_msg - ' || x_ret_msg,1);

1866: l_lvl_rec.view_tab(l_cntr) := l_view_rec;
1867:
1868: IF g_log_lvl <= 1 THEN
1869: cln_debug_pub.add('fetch_data x_ret_sts - ' || x_ret_sts,1);
1870: cln_debug_pub.add('fetch_data x_ret_msg - ' || x_ret_msg,1);
1871: END IF;
1872: -- failure, no point procesing further
1873: IF x_ret_sts <> g_success_code THEN
1874: EXIT;

Line 1881: cln_debug_pub.add('Exited loop',1);

1877:
1878: END LOOP;
1879:
1880: IF g_log_lvl <= 1 THEN
1881: cln_debug_pub.add('Exited loop',1);
1882: END IF;
1883: END IF;
1884:
1885: -- store level in table and return it

Line 1893: cln_debug_pub.add('Exiting m4u_xml_extn_utils.init_level - Normal',2);

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;

Line 1894: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;
1898: EXCEPTION

Line 1895: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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;
1898: EXCEPTION
1899: WHEN OTHERS THEN

Line 1917: cln_debug_pub.add('Entering m4u_xml_extn_utils.un_init_level',2);

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);

Line 1918: cln_debug_pub.add('a_lvl_id - ' || a_lvl_id,2);

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);
1922: IF g_log_lvl <= 1 THEN

Line 1923: cln_debug_pub.add('Obtained level record',1);

1919: END IF;
1920:
1921: l_lvl_rec := g_lvl_rec_tab(a_lvl_id);
1922: IF g_log_lvl <= 1 THEN
1923: cln_debug_pub.add('Obtained level record',1);
1924: END IF;
1925:
1926: l_lvl_rec.cntr := 0;
1927: l_lvl_rec.end_tag_stk_ptr := 0;

Line 1931: cln_debug_pub.add('deleted l_lvl_rec.end_tag_stk',1);

1927: l_lvl_rec.end_tag_stk_ptr := 0;
1928: l_lvl_rec.end_tag_stk.delete;
1929:
1930: IF g_log_lvl <= 1 THEN
1931: cln_debug_pub.add('deleted l_lvl_rec.end_tag_stk',1);
1932: END IF;
1933:
1934:
1935: IF l_lvl_rec.is_mapped THEN

Line 1939: cln_debug_pub.add('deleted l_lvl_rec.vals',1);

1935: IF l_lvl_rec.is_mapped THEN
1936: l_lvl_rec.rpt_count := 0;
1937: l_lvl_rec.vals.delete;
1938: IF g_log_lvl <= 1 THEN
1939: cln_debug_pub.add('deleted l_lvl_rec.vals',1);
1940: END IF;
1941: END IF;
1942:
1943: -- store changes back into level table

Line 1948: cln_debug_pub.add('Exiting m4u_xml_extn_utils.un_init_level - Normal',2);

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;

Line 1949: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;
1953: EXCEPTION

Line 1950: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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;
1953: EXCEPTION
1954: WHEN OTHERS THEN

Line 1966: cln_debug_pub.add('Entering m4u_xml_extn_utils.un_init_map',2);

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

Line 1991: cln_debug_pub.add('Exiting m4u_xml_extn_utils.un_init_map - Normal',2);

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;

Line 1992: cln_debug_pub.add('x_ret_msg - ' || x_ret_msg,2);

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;
1996: EXCEPTION

Line 1993: cln_debug_pub.add('x_ret_sts - ' || x_ret_sts,2);

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;
1996: EXCEPTION
1997: WHEN OTHERS THEN