342: --for period from
343: SELECT XMLELEMENT("PV_PERIOD_FROM",
344: pv_period_from)
345: INTO L_XML_ITEM
346: FROM DUAL;
347: L_XML_PARAMETER := L_XML_ITEM;
348: --for period to
349: SELECT XMLELEMENT("PV_PERIOD_TO",
350: pv_period_to)
348: --for period to
349: SELECT XMLELEMENT("PV_PERIOD_TO",
350: pv_period_to)
351: INTO L_XML_ITEM
352: FROM DUAL;
353: SELECT XMLCONCAT(L_XML_PARAMETER,
354: L_XML_ITEM)
355: INTO L_XML_PARAMETER
356: FROM DUAL;
352: FROM DUAL;
353: SELECT XMLCONCAT(L_XML_PARAMETER,
354: L_XML_ITEM)
355: INTO L_XML_PARAMETER
356: FROM DUAL;
357: --for accounting year
358: SELECT XMLELEMENT("PV_ACCOUNTING_YEAR",
359: pv_accounting_year)
360: INTO L_XML_ITEM
357: --for accounting year
358: SELECT XMLELEMENT("PV_ACCOUNTING_YEAR",
359: pv_accounting_year)
360: INTO L_XML_ITEM
361: FROM DUAL;
362: SELECT XMLCONCAT(L_XML_PARAMETER,
363: L_XML_ITEM)
364: INTO L_XML_PARAMETER
365: FROM DUAL;
361: FROM DUAL;
362: SELECT XMLCONCAT(L_XML_PARAMETER,
363: L_XML_ITEM)
364: INTO L_XML_PARAMETER
365: FROM DUAL;
366: --for ledger name
367: SELECT XMLELEMENT("PV_LEDGER_NAME",
368: lv_ledger_name)
369: INTO L_XML_ITEM
366: --for ledger name
367: SELECT XMLELEMENT("PV_LEDGER_NAME",
368: lv_ledger_name)
369: INTO L_XML_ITEM
370: FROM DUAL;
371: SELECT XMLCONCAT(L_XML_PARAMETER,
372: L_XML_ITEM)
373: INTO L_XML_PARAMETER
374: FROM DUAL;
370: FROM DUAL;
371: SELECT XMLCONCAT(L_XML_PARAMETER,
372: L_XML_ITEM)
373: INTO L_XML_PARAMETER
374: FROM DUAL;
375: --for legal entity
376: SELECT XMLELEMENT("PV_LEGAL_ENTITY",
377: lv_le_name)
378: INTO L_XML_ITEM
375: --for legal entity
376: SELECT XMLELEMENT("PV_LEGAL_ENTITY",
377: lv_le_name)
378: INTO L_XML_ITEM
379: FROM DUAL;
380: SELECT XMLCONCAT(L_XML_PARAMETER,
381: L_XML_ITEM)
382: INTO L_XML_PARAMETER
383: FROM DUAL;
379: FROM DUAL;
380: SELECT XMLCONCAT(L_XML_PARAMETER,
381: L_XML_ITEM)
382: INTO L_XML_PARAMETER
383: FROM DUAL;
384:
385: SELECT XMLCONCAT(L_XML_PARAMETER,
386: L_XML_REPORT)
387: INTO L_XML_REPORT
384:
385: SELECT XMLCONCAT(L_XML_PARAMETER,
386: L_XML_REPORT)
387: INTO L_XML_REPORT
388: FROM DUAL;
389:
390: --4. Add BSV row header to XML data
391: L_XML_ITEM := NULL;
392: Fnd_Message.Set_Name(Application => 'JA',
394: );
395: SELECT XMLELEMENT("PV_BSV_ROW_NAME",
396: Fnd_Message.Get)
397: INTO L_XML_ITEM
398: FROM DUAL;
399: SELECT XMLCONCAT(L_XML_REPORT,
400: L_XML_ITEM)
401: INTO L_XML_REPORT
402: FROM DUAL;
398: FROM DUAL;
399: SELECT XMLCONCAT(L_XML_REPORT,
400: L_XML_ITEM)
401: INTO L_XML_REPORT
402: FROM DUAL;
403:
404: --5. Add data for the legal entity diferrent with BSV
405: --The Legal Entity stamp on transaction is not same with the legal
406: --entity to which the BSV is assigned in Accounting Setup Manager
413: --for period name
414: SELECT XMLELEMENT("PV_PERIOD_NAME",
415: v_invalid_trx_row.Period_Name)
416: INTO L_XML_ITEM
417: FROM DUAL;
418: L_XML_ROW_ITEMS := L_XML_ITEM;
419: --for customer
420: SELECT XMLELEMENT("PV_CUSTOMER_NAME",
421: v_invalid_trx_row.Customer_Name)
419: --for customer
420: SELECT XMLELEMENT("PV_CUSTOMER_NAME",
421: v_invalid_trx_row.Customer_Name)
422: INTO L_XML_ITEM
423: FROM DUAL;
424: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
425: L_XML_ITEM)
426: INTO L_XML_ROW_ITEMS
427: FROM DUAL;
423: FROM DUAL;
424: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
425: L_XML_ITEM)
426: INTO L_XML_ROW_ITEMS
427: FROM DUAL;
428: --for transaction number
429: SELECT XMLELEMENT("PV_TRANSACTION_NUMBER",
430: v_invalid_trx_row.Transaction_Number)
431: INTO L_XML_ITEM
428: --for transaction number
429: SELECT XMLELEMENT("PV_TRANSACTION_NUMBER",
430: v_invalid_trx_row.Transaction_Number)
431: INTO L_XML_ITEM
432: FROM DUAL;
433: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
434: L_XML_ITEM)
435: INTO L_XML_ROW_ITEMS
436: FROM DUAL;
432: FROM DUAL;
433: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
434: L_XML_ITEM)
435: INTO L_XML_ROW_ITEMS
436: FROM DUAL;
437: --for legal entity in transaction
438: FOR v_legal_entity_row IN legal_entity_cur(v_invalid_trx_row.Bal_Seg_Value)
439: LOOP
440: SELECT XMLELEMENT("PV_LEGAL_ENTITY",
439: LOOP
440: SELECT XMLELEMENT("PV_LEGAL_ENTITY",
441: v_legal_entity_row.Legal_Entity)
442: INTO L_XML_ITEM
443: FROM DUAL;
444: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
445: L_XML_ITEM)
446: INTO L_XML_ROW_ITEMS
447: FROM DUAL;
443: FROM DUAL;
444: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
445: L_XML_ITEM)
446: INTO L_XML_ROW_ITEMS
447: FROM DUAL;
448: EXIT;
449: END LOOP;
450: --Combine row items to a row
451: SELECT XMLELEMENT("ROW_BSV",
450: --Combine row items to a row
451: SELECT XMLELEMENT("ROW_BSV",
452: L_XML_ROW_ITEMS)
453: INTO L_XML_ROW
454: FROM DUAL;
455: SELECT XMLCONCAT(L_XML_REPORT,
456: L_XML_ROW)
457: INTO L_XML_REPORT
458: FROM DUAL;
454: FROM DUAL;
455: SELECT XMLCONCAT(L_XML_REPORT,
456: L_XML_ROW)
457: INTO L_XML_REPORT
458: FROM DUAL;
459:
460: END LOOP; --end invalid_transaction_cur
461:
462: --6. Add un-itemized row header to XML data
466: );
467: SELECT XMLELEMENT("PV_UNITEMIZED_ROW_NAME",
468: Fnd_Message.Get)
469: INTO L_XML_ITEM
470: FROM DUAL;
471: SELECT XMLCONCAT(L_XML_REPORT,
472: L_XML_ITEM)
473: INTO L_XML_REPORT
474: FROM DUAL;
470: FROM DUAL;
471: SELECT XMLCONCAT(L_XML_REPORT,
472: L_XML_ITEM)
473: INTO L_XML_REPORT
474: FROM DUAL;
475:
476: --7. Add data for unitemized journal
477: --Account and Journal Itemization Program has not run for these
478: --Journals that has been posted in GL.
485: --for period name
486: SELECT XMLELEMENT("PV_PERIOD_NAME",
487: v_unitemized_trx_row.Period_Name)
488: INTO L_XML_ITEM
489: FROM DUAL;
490: L_XML_ROW_ITEMS := L_XML_ITEM;
491: --for journal name
492: SELECT XMLELEMENT("PV_JOURNAL_NAME",
493: v_unitemized_trx_row.Journal_Name)
491: --for journal name
492: SELECT XMLELEMENT("PV_JOURNAL_NAME",
493: v_unitemized_trx_row.Journal_Name)
494: INTO L_XML_ITEM
495: FROM DUAL;
496: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
497: L_XML_ITEM)
498: INTO L_XML_ROW_ITEMS
499: FROM DUAL;
495: FROM DUAL;
496: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
497: L_XML_ITEM)
498: INTO L_XML_ROW_ITEMS
499: FROM DUAL;
500: --for customer
501: SELECT XMLELEMENT("PV_CUSTOMER_NAME",
502: v_unitemized_trx_row.Customer_Name)
503: INTO L_XML_ITEM
500: --for customer
501: SELECT XMLELEMENT("PV_CUSTOMER_NAME",
502: v_unitemized_trx_row.Customer_Name)
503: INTO L_XML_ITEM
504: FROM DUAL;
505: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
506: L_XML_ITEM)
507: INTO L_XML_ROW_ITEMS
508: FROM DUAL;
504: FROM DUAL;
505: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
506: L_XML_ITEM)
507: INTO L_XML_ROW_ITEMS
508: FROM DUAL;
509: --for transaction number/receipt number
510: FOR v_trx_receipt_num_row IN trx_receipt_num_cur(v_unitemized_trx_row.Ae_Header_Id)
511: LOOP
512: SELECT XMLELEMENT("PV_TRX_RECEIPT_NUMBER",
511: LOOP
512: SELECT XMLELEMENT("PV_TRX_RECEIPT_NUMBER",
513: v_trx_receipt_num_row.TRX_RECEIPT_NUMBER)
514: INTO L_XML_ITEM
515: FROM DUAL;
516: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
517: L_XML_ITEM)
518: INTO L_XML_ROW_ITEMS
519: FROM DUAL;
515: FROM DUAL;
516: SELECT XMLCONCAT(L_XML_ROW_ITEMS,
517: L_XML_ITEM)
518: INTO L_XML_ROW_ITEMS
519: FROM DUAL;
520: EXIT;
521: END LOOP;
522: --Combine row items to row
523: SELECT XMLELEMENT("ROW_UNITEMIZED",
522: --Combine row items to row
523: SELECT XMLELEMENT("ROW_UNITEMIZED",
524: L_XML_ROW_ITEMS)
525: INTO L_XML_ROW
526: FROM DUAL;
527: SELECT XMLCONCAT(L_XML_REPORT,
528: L_XML_ROW)
529: INTO L_XML_REPORT
530: FROM DUAL;
526: FROM DUAL;
527: SELECT XMLCONCAT(L_XML_REPORT,
528: L_XML_ROW)
529: INTO L_XML_REPORT
530: FROM DUAL;
531: END LOOP; --end unitemized_transaction_cur
532:
533: --8. Combine the XML data together
534: SELECT XMLELEMENT("REPORT",
533: --8. Combine the XML data together
534: SELECT XMLELEMENT("REPORT",
535: L_XML_REPORT)
536: INTO L_XML_ROOT
537: FROM DUAL;
538: JA_CN_UTILITY.OUTPUT_CONC(L_XML_ROOT.GETCLOBVAL());
539:
540: --logging for debug
541: IF (ln_proc_level >= ln_dbg_level)