871:
872: --Start the XML file
873: -- Updated by shujuan for bug 7626489
874: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
875: FND_FILE.put_line(FND_FILE.output,'');
876:
877: --FND_FILE.put_line(FND_FILE.output,'');
878: /*FND_FILE.put_line(FND_FILE.output, '
879: FND_FILE.put_line(FND_FILE.output, '
873: -- Updated by shujuan for bug 7626489
874: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
875: FND_FILE.put_line(FND_FILE.output,'');
876:
877: --FND_FILE.put_line(FND_FILE.output,'');
878: /*FND_FILE.put_line(FND_FILE.output, '
879: FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
874: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
875: FND_FILE.put_line(FND_FILE.output,'');
876:
877: --FND_FILE.put_line(FND_FILE.output,'');
878: /*FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
882: FND_FILE.put_line(FND_FILE.output, '
875: FND_FILE.put_line(FND_FILE.output,'');
876:
877: --FND_FILE.put_line(FND_FILE.output,'');
878: /*FND_FILE.put_line(FND_FILE.output, '
879: FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
882: FND_FILE.put_line(FND_FILE.output, '
883: FND_FILE.put_line(FND_FILE.output, '
876:
877: --FND_FILE.put_line(FND_FILE.output,'');
878: /*FND_FILE.put_line(FND_FILE.output, '
879: FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
882: FND_FILE.put_line(FND_FILE.output, '
883: FND_FILE.put_line(FND_FILE.output, '
884: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
877: --FND_FILE.put_line(FND_FILE.output,'');
878: /*FND_FILE.put_line(FND_FILE.output, '
879: FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
882: FND_FILE.put_line(FND_FILE.output, '
883: FND_FILE.put_line(FND_FILE.output, '
884: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
885: l_xml_all := l_xml_item;
878: /*FND_FILE.put_line(FND_FILE.output, '
879: FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
882: FND_FILE.put_line(FND_FILE.output, '
883: FND_FILE.put_line(FND_FILE.output, '
884: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
885: l_xml_all := l_xml_item;
886: SELECT XMLELEMENT( "P_END_PERIOD",P_END_PERIOD ) INTO l_xml_item FROM dual;
879: FND_FILE.put_line(FND_FILE.output, '
880: FND_FILE.put_line(FND_FILE.output, '
881: FND_FILE.put_line(FND_FILE.output, '
882: FND_FILE.put_line(FND_FILE.output, '
883: FND_FILE.put_line(FND_FILE.output, '
884: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
885: l_xml_all := l_xml_item;
886: SELECT XMLELEMENT( "P_END_PERIOD",P_END_PERIOD ) INTO l_xml_item FROM dual;
887: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
900: INTO l_ledger_name
901: FROM GL_LEDGERS ledger
902: WHERE ledger.ledger_id = l_ledger_id
903: ;
904: -- FND_FILE.put_line(FND_FILE.output, '
905: SELECT XMLELEMENT( "LEDGER_NAME",l_ledger_name ) INTO l_xml_item FROM dual;
906: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
907:
908: -- Fix bug#6654759 delete start
926: FROM XLE_ENTITY_PROFILES XEP
927: WHERE XEP.LEGAL_ENTITY_ID = l_le_id;
928: -- Fix bug#6654759 add end
929:
930: /*FND_FILE.put_line(FND_FILE.output, '
931: SELECT XMLELEMENT( "LE_NAME",l_le_name ) INTO l_xml_item FROM dual;
932: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
933:
934: --1. Check whether the DFF assignment of Journal Categories has been set or not.
1083:
1084: --Before first line of the journal, output the journal info
1085: IF l_invalid_line_4_jnl = 1
1086: THEN
1087: /*FND_FILE.put_line(FND_FILE.output, '
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1084: --Before first line of the journal, output the journal info
1085: IF l_invalid_line_4_jnl = 1
1086: THEN
1087: /*FND_FILE.put_line(FND_FILE.output, '
1088: FND_FILE.put_line(FND_FILE.output, '
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1092: FND_FILE.put_line(FND_FILE.output, '
1085: IF l_invalid_line_4_jnl = 1
1086: THEN
1087: /*FND_FILE.put_line(FND_FILE.output, '
1088: FND_FILE.put_line(FND_FILE.output, '
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1092: FND_FILE.put_line(FND_FILE.output, '
1093: FND_FILE.put_line(FND_FILE.output, '
1086: THEN
1087: /*FND_FILE.put_line(FND_FILE.output, '
1088: FND_FILE.put_line(FND_FILE.output, '
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1092: FND_FILE.put_line(FND_FILE.output, '
1093: FND_FILE.put_line(FND_FILE.output, '
1094: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1087: /*FND_FILE.put_line(FND_FILE.output, '
1088: FND_FILE.put_line(FND_FILE.output, '
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1092: FND_FILE.put_line(FND_FILE.output, '
1093: FND_FILE.put_line(FND_FILE.output, '
1094: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1095: l_xml_jnl_items := l_xml_item;
1088: FND_FILE.put_line(FND_FILE.output, '
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1092: FND_FILE.put_line(FND_FILE.output, '
1093: FND_FILE.put_line(FND_FILE.output, '
1094: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1095: l_xml_jnl_items := l_xml_item;
1096: SELECT XMLELEMENT( "JOURNAL_NAME",l_je_name ) INTO l_xml_item FROM dual;
1089: FND_FILE.put_line(FND_FILE.output, '
1090: FND_FILE.put_line(FND_FILE.output, '');
1091: FND_FILE.put_line(FND_FILE.output, '
1092: FND_FILE.put_line(FND_FILE.output, '
1093: FND_FILE.put_line(FND_FILE.output, '
1094: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1095: l_xml_jnl_items := l_xml_item;
1096: SELECT XMLELEMENT( "JOURNAL_NAME",l_je_name ) INTO l_xml_item FROM dual;
1097: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1105: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1106: END IF;
1107:
1108: --output the line
1109: /*FND_FILE.put_line(FND_FILE.output, '
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1106: END IF;
1107:
1108: --output the line
1109: /*FND_FILE.put_line(FND_FILE.output, '
1110: FND_FILE.put_line(FND_FILE.output, '
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1114: FND_FILE.put_line(FND_FILE.output, '
1107:
1108: --output the line
1109: /*FND_FILE.put_line(FND_FILE.output, '
1110: FND_FILE.put_line(FND_FILE.output, '
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1114: FND_FILE.put_line(FND_FILE.output, '
1115: FND_FILE.put_line(FND_FILE.output, '
1108: --output the line
1109: /*FND_FILE.put_line(FND_FILE.output, '
1110: FND_FILE.put_line(FND_FILE.output, '
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1114: FND_FILE.put_line(FND_FILE.output, '
1115: FND_FILE.put_line(FND_FILE.output, '
1116: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1109: /*FND_FILE.put_line(FND_FILE.output, '
1110: FND_FILE.put_line(FND_FILE.output, '
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1114: FND_FILE.put_line(FND_FILE.output, '
1115: FND_FILE.put_line(FND_FILE.output, '
1116: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1117: l_xml_line_items := l_xml_item;
1110: FND_FILE.put_line(FND_FILE.output, '
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1114: FND_FILE.put_line(FND_FILE.output, '
1115: FND_FILE.put_line(FND_FILE.output, '');*/
1116: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1117: l_xml_line_items := l_xml_item;
1118: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1111: FND_FILE.put_line(FND_FILE.output, '
1112: FND_FILE.put_line(FND_FILE.output, '
1113: FND_FILE.put_line(FND_FILE.output, '
1114: FND_FILE.put_line(FND_FILE.output, '
1115: FND_FILE.put_line(FND_FILE.output, '');*/
1116: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1117: l_xml_line_items := l_xml_item;
1118: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1119: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1141: l_invalid_jnl_count := l_invalid_jnl_count + 1; --This journal is a invalid one
1142: l_invalid_lines := l_invalid_lines + l_invalid_line_4_jnl; --Add the invalid lines of this journal
1143:
1144: --Has output lines, should end the journal
1145: /*FND_FILE.put_line(FND_FILE.output, '
1146: FND_FILE.put_line(FND_FILE.output, '');*/
1147: SELECT XMLELEMENT( "INVALID_LINES_4_JNL",l_invalid_line_4_jnl ) INTO l_xml_item FROM dual;
1148: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1149:
1142: l_invalid_lines := l_invalid_lines + l_invalid_line_4_jnl; --Add the invalid lines of this journal
1143:
1144: --Has output lines, should end the journal
1145: /*FND_FILE.put_line(FND_FILE.output, '
1146: FND_FILE.put_line(FND_FILE.output, '');*/
1147: SELECT XMLELEMENT( "INVALID_LINES_4_JNL",l_invalid_line_4_jnl ) INTO l_xml_item FROM dual;
1148: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1149:
1150: SELECT XMLELEMENT( "JOURNAL",l_xml_jnl_items ) INTO l_xml_journal FROM dual;
1161: END LOOP; --FOR i IN l_all_jnl_catg.first .. l_all_jnl_catg.last LOOP
1162: END IF;
1163:
1164: --End the XML file
1165: /*FND_FILE.put_line(FND_FILE.output, '
1166: FND_FILE.put_line(FND_FILE.output, '
1167: FND_FILE.put_line(FND_FILE.output, '
1168: FND_FILE.put_line(FND_FILE.output, '');*/
1169: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1162: END IF;
1163:
1164: --End the XML file
1165: /*FND_FILE.put_line(FND_FILE.output, '
1166: FND_FILE.put_line(FND_FILE.output, '
1167: FND_FILE.put_line(FND_FILE.output, '
1168: FND_FILE.put_line(FND_FILE.output, '');*/
1169: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1170: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1163:
1164: --End the XML file
1165: /*FND_FILE.put_line(FND_FILE.output, '
1166: FND_FILE.put_line(FND_FILE.output, '
1167: FND_FILE.put_line(FND_FILE.output, '
1168: FND_FILE.put_line(FND_FILE.output, '');*/
1169: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1170: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1171: SELECT XMLELEMENT( "TOTAL_INVALID_JNL",TO_CHAR(l_invalid_jnl_count) ) INTO l_xml_item FROM dual;
1164: --End the XML file
1165: /*FND_FILE.put_line(FND_FILE.output, '
1166: FND_FILE.put_line(FND_FILE.output, '
1167: FND_FILE.put_line(FND_FILE.output, '
1168: FND_FILE.put_line(FND_FILE.output, '');*/
1169: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1170: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1171: SELECT XMLELEMENT( "TOTAL_INVALID_JNL",TO_CHAR(l_invalid_jnl_count) ) INTO l_xml_item FROM dual;
1172: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1174: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1175:
1176: --To add root node for the xml output and then output it
1177: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1178: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1179:
1180: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1181:
1182: --log for debug
1195: FND_LOG.String( l_proc_level
1196: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1197: ,l_msg_incomplete_dff_assign);
1198: END IF; --(l_proc_level >= l_dbg_level)
1199: /*FND_FILE.put_line(FND_FILE.output, '
1200: FND_FILE.put_line(FND_FILE.output, '
1201: FND_FILE.put_line(FND_FILE.output, '');*/
1202: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1203: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1196: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1197: ,l_msg_incomplete_dff_assign);
1198: END IF; --(l_proc_level >= l_dbg_level)
1199: /*FND_FILE.put_line(FND_FILE.output, '
1200: FND_FILE.put_line(FND_FILE.output, '
1201: FND_FILE.put_line(FND_FILE.output, '');*/
1202: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1203: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1204: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1197: ,l_msg_incomplete_dff_assign);
1198: END IF; --(l_proc_level >= l_dbg_level)
1199: /*FND_FILE.put_line(FND_FILE.output, '
1200: FND_FILE.put_line(FND_FILE.output, '
1201: FND_FILE.put_line(FND_FILE.output, '');*/
1202: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1203: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1204: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1205: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1219: FND_LOG.String( l_proc_level
1220: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1221: ,SQLCODE||':'||SQLERRM);
1222: END IF; --(l_proc_level >= l_dbg_level)
1223: /*FND_FILE.put_line(FND_FILE.output, '
1224: FND_FILE.put_line(FND_FILE.output, '
1225: FND_FILE.put_line(FND_FILE.output, '');*/
1226: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1227: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1220: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1221: ,SQLCODE||':'||SQLERRM);
1222: END IF; --(l_proc_level >= l_dbg_level)
1223: /*FND_FILE.put_line(FND_FILE.output, '
1224: FND_FILE.put_line(FND_FILE.output, '
1225: FND_FILE.put_line(FND_FILE.output, '');*/
1226: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1227: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1228: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1221: ,SQLCODE||':'||SQLERRM);
1222: END IF; --(l_proc_level >= l_dbg_level)
1223: /*FND_FILE.put_line(FND_FILE.output, '
1224: FND_FILE.put_line(FND_FILE.output, '
1225: FND_FILE.put_line(FND_FILE.output, '');*/
1226: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1227: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1228: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1229: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1589:
1590: --Start the XML file
1591: -- Updated by shujuan for bug 7626489
1592: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
1593: FND_FILE.put_line(FND_FILE.output,'');
1594:
1595: --FND_FILE.put_line(FND_FILE.output,'');
1596: /*FND_FILE.put_line(FND_FILE.output, '
1597: FND_FILE.put_line(FND_FILE.output, '
1591: -- Updated by shujuan for bug 7626489
1592: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
1593: FND_FILE.put_line(FND_FILE.output,'');
1594:
1595: --FND_FILE.put_line(FND_FILE.output,'');
1596: /*FND_FILE.put_line(FND_FILE.output, '
1597: FND_FILE.put_line(FND_FILE.output, '
1598: FND_FILE.put_line(FND_FILE.output, '
1599: FND_FILE.put_line(FND_FILE.output, '
1592: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
1593: FND_FILE.put_line(FND_FILE.output,'');
1594:
1595: --FND_FILE.put_line(FND_FILE.output,'');
1596: /*FND_FILE.put_line(FND_FILE.output, '
1598: FND_FILE.put_line(FND_FILE.output, '
1599: FND_FILE.put_line(FND_FILE.output, '
1600: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1593: FND_FILE.put_line(FND_FILE.output,'');
1594:
1595: --FND_FILE.put_line(FND_FILE.output,'');
1596: /*FND_FILE.put_line(FND_FILE.output, '
1597: FND_FILE.put_line(FND_FILE.output, '
1598: FND_FILE.put_line(FND_FILE.output, '
1599: FND_FILE.put_line(FND_FILE.output, '
1600: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1601: l_xml_all := l_xml_item;
1594:
1595: --FND_FILE.put_line(FND_FILE.output,'');
1596: /*FND_FILE.put_line(FND_FILE.output, '
1597: FND_FILE.put_line(FND_FILE.output, '
1598: FND_FILE.put_line(FND_FILE.output, '
1599: FND_FILE.put_line(FND_FILE.output, '
1600: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1601: l_xml_all := l_xml_item;
1602: SELECT XMLELEMENT( "P_END_PERIOD",l_period_to ) INTO l_xml_item FROM dual;
1595: --FND_FILE.put_line(FND_FILE.output,'');
1596: /*FND_FILE.put_line(FND_FILE.output, '
1597: FND_FILE.put_line(FND_FILE.output, '
1598: FND_FILE.put_line(FND_FILE.output, '
1599: FND_FILE.put_line(FND_FILE.output, '
1600: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1601: l_xml_all := l_xml_item;
1602: SELECT XMLELEMENT( "P_END_PERIOD",l_period_to ) INTO l_xml_item FROM dual;
1603: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1611: INTO l_ledger_name
1612: FROM GL_LEDGERS ledger
1613: WHERE ledger.ledger_id = l_ledger_id
1614: ;
1615: /*FND_FILE.put_line(FND_FILE.output, '
1617: -- didn't change the xml schemal,
1618: SELECT XMLELEMENT( "LEDGER_NAME",l_ledger_name ) INTO l_xml_item FROM dual; --Fix bug#7481545
1619: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1632: FROM XLE_ENTITY_PROFILES XEP
1633: WHERE XEP.LEGAL_ENTITY_ID = l_le_id
1634: ;
1635:
1636: /*FND_FILE.put_line(FND_FILE.output, '
1637: SELECT XMLELEMENT( "LE_NAME",l_le_name ) INTO l_xml_item FROM dual;
1638: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1639:
1640: --1. Check whether the DFF assignment of Intercompany Transaction Lines has been set or not.
1830: END IF;
1831:
1832: --Before first line of the transaction, output the transaction info
1833: IF l_invalid_line_4_tr = 1 THEN
1834: /*FND_FILE.put_line(FND_FILE.output, '
1836: FND_FILE.put_line(FND_FILE.output, '
1837: FND_FILE.put_line(FND_FILE.output, '
1838: FND_FILE.put_line(FND_FILE.output, '
1831:
1832: --Before first line of the transaction, output the transaction info
1833: IF l_invalid_line_4_tr = 1 THEN
1834: /*FND_FILE.put_line(FND_FILE.output, '
1835: FND_FILE.put_line(FND_FILE.output, '
1836: FND_FILE.put_line(FND_FILE.output, '
1837: FND_FILE.put_line(FND_FILE.output, '
1838: FND_FILE.put_line(FND_FILE.output, '
1839: FND_FILE.put_line(FND_FILE.output, '
1832: --Before first line of the transaction, output the transaction info
1833: IF l_invalid_line_4_tr = 1 THEN
1834: /*FND_FILE.put_line(FND_FILE.output, '
1835: FND_FILE.put_line(FND_FILE.output, '
1836: FND_FILE.put_line(FND_FILE.output, '
1837: FND_FILE.put_line(FND_FILE.output, '
1838: FND_FILE.put_line(FND_FILE.output, '
1839: FND_FILE.put_line(FND_FILE.output, '
1840:
1833: IF l_invalid_line_4_tr = 1 THEN
1834: /*FND_FILE.put_line(FND_FILE.output, '
1835: FND_FILE.put_line(FND_FILE.output, '
1836: FND_FILE.put_line(FND_FILE.output, '
1837: FND_FILE.put_line(FND_FILE.output, '
1838: FND_FILE.put_line(FND_FILE.output, '
1839: FND_FILE.put_line(FND_FILE.output, '
1840:
1841: -- using batch_number/trx_number to show the current item
1834: /*FND_FILE.put_line(FND_FILE.output, '
1835: FND_FILE.put_line(FND_FILE.output, '
1836: FND_FILE.put_line(FND_FILE.output, '
1837: FND_FILE.put_line(FND_FILE.output, '
1838: FND_FILE.put_line(FND_FILE.output, '
1839: FND_FILE.put_line(FND_FILE.output, '
1840:
1841: -- using batch_number/trx_number to show the current item
1842: SELECT XMLELEMENT( "TR_NUMBER",l_trxb_num||'/'||l_trx_num ) INTO l_xml_item FROM dual;
1835: FND_FILE.put_line(FND_FILE.output, '
1836: FND_FILE.put_line(FND_FILE.output, '
1837: FND_FILE.put_line(FND_FILE.output, '
1838: FND_FILE.put_line(FND_FILE.output, '
1839: FND_FILE.put_line(FND_FILE.output, '
1840:
1841: -- using batch_number/trx_number to show the current item
1842: SELECT XMLELEMENT( "TR_NUMBER",l_trxb_num||'/'||l_trx_num ) INTO l_xml_item FROM dual;
1843: l_xml_tr_items := l_xml_item;
1851: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1852: END IF;
1853:
1854: --output the line
1855: /*FND_FILE.put_line(FND_FILE.output, '
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1852: END IF;
1853:
1854: --output the line
1855: /*FND_FILE.put_line(FND_FILE.output, '
1856: FND_FILE.put_line(FND_FILE.output, '
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1860: FND_FILE.put_line(FND_FILE.output, '
1853:
1854: --output the line
1855: /*FND_FILE.put_line(FND_FILE.output, '
1856: FND_FILE.put_line(FND_FILE.output, '
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1860: FND_FILE.put_line(FND_FILE.output, '
1861: FND_FILE.put_line(FND_FILE.output, '
1854: --output the line
1855: /*FND_FILE.put_line(FND_FILE.output, '
1856: FND_FILE.put_line(FND_FILE.output, '
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1860: FND_FILE.put_line(FND_FILE.output, '
1861: FND_FILE.put_line(FND_FILE.output, '
1862:
1855: /*FND_FILE.put_line(FND_FILE.output, '
1856: FND_FILE.put_line(FND_FILE.output, '
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1860: FND_FILE.put_line(FND_FILE.output, '
1861: FND_FILE.put_line(FND_FILE.output, '
1862:
1863: SELECT XMLELEMENT( "LINE_NUMBER",l_trxl_num ) INTO l_xml_item FROM dual; -- using trx line number to markup recorde with error
1856: FND_FILE.put_line(FND_FILE.output, '
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1860: FND_FILE.put_line(FND_FILE.output, '
1861: FND_FILE.put_line(FND_FILE.output, '');*/
1862:
1863: SELECT XMLELEMENT( "LINE_NUMBER",l_trxl_num ) INTO l_xml_item FROM dual; -- using trx line number to markup recorde with error
1864: l_xml_line_items := l_xml_item;
1857: FND_FILE.put_line(FND_FILE.output, '
1858: FND_FILE.put_line(FND_FILE.output, '
1859: FND_FILE.put_line(FND_FILE.output, '
1860: FND_FILE.put_line(FND_FILE.output, '
1861: FND_FILE.put_line(FND_FILE.output, '');*/
1862:
1863: SELECT XMLELEMENT( "LINE_NUMBER",l_trxl_num ) INTO l_xml_item FROM dual; -- using trx line number to markup recorde with error
1864: l_xml_line_items := l_xml_item;
1865: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1890: l_invalid_tr_count := l_invalid_tr_count + 1; --This transaction is a invalid one
1891: l_invalid_lines := l_invalid_lines + l_invalid_line_4_tr; --Add the invalid lines of this transaction
1892:
1893: --Has output lines, should end the transaction
1894: /*FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '');*/
1896: SELECT XMLELEMENT( "INVALID_LINES_4_TR",l_invalid_line_4_tr ) INTO l_xml_item FROM dual;
1897: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1898:
1891: l_invalid_lines := l_invalid_lines + l_invalid_line_4_tr; --Add the invalid lines of this transaction
1892:
1893: --Has output lines, should end the transaction
1894: /*FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '');*/
1896: SELECT XMLELEMENT( "INVALID_LINES_4_TR",l_invalid_line_4_tr ) INTO l_xml_item FROM dual;
1897: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1898:
1899: SELECT XMLELEMENT( "TRANSACTION",l_xml_tr_items ) INTO l_xml_tr FROM dual;
1907: END LOOP;-- loop period
1908: CLOSE c_period_name;
1909:
1910: --End the XML file
1911: /*FND_FILE.put_line(FND_FILE.output, '
1912: FND_FILE.put_line(FND_FILE.output, '
1913: FND_FILE.put_line(FND_FILE.output, '
1914: FND_FILE.put_line(FND_FILE.output, '');*/
1915: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1908: CLOSE c_period_name;
1909:
1910: --End the XML file
1911: /*FND_FILE.put_line(FND_FILE.output, '
1912: FND_FILE.put_line(FND_FILE.output, '
1913: FND_FILE.put_line(FND_FILE.output, '
1914: FND_FILE.put_line(FND_FILE.output, '');*/
1915: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1916: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1909:
1910: --End the XML file
1911: /*FND_FILE.put_line(FND_FILE.output, '
1912: FND_FILE.put_line(FND_FILE.output, '
1913: FND_FILE.put_line(FND_FILE.output, '
1914: FND_FILE.put_line(FND_FILE.output, '');*/
1915: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1916: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1917: SELECT XMLELEMENT( "TOTAL_INVALID_TR",TO_CHAR(l_invalid_tr_count) ) INTO l_xml_item FROM dual;
1910: --End the XML file
1911: /*FND_FILE.put_line(FND_FILE.output, '
1912: FND_FILE.put_line(FND_FILE.output, '
1913: FND_FILE.put_line(FND_FILE.output, '
1914: FND_FILE.put_line(FND_FILE.output, '');*/
1915: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1916: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1917: SELECT XMLELEMENT( "TOTAL_INVALID_TR",TO_CHAR(l_invalid_tr_count) ) INTO l_xml_item FROM dual;
1918: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1920: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1921:
1922: --To add root node for the xml output and then output it
1923: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1924: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1925: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1926:
1927: --log for debug
1928: IF (l_proc_level >= l_dbg_level) THEN
1938: FND_LOG.String( l_proc_level
1939: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1940: ,l_msg_incomplete_dff_assign);
1941: END IF; --(l_proc_level >= l_dbg_level)
1942: /*FND_FILE.put_line(FND_FILE.output, '
1943: FND_FILE.put_line(FND_FILE.output, '
1944: FND_FILE.put_line(FND_FILE.output, '');*/
1945: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1946: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1939: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1940: ,l_msg_incomplete_dff_assign);
1941: END IF; --(l_proc_level >= l_dbg_level)
1942: /*FND_FILE.put_line(FND_FILE.output, '
1943: FND_FILE.put_line(FND_FILE.output, '
1944: FND_FILE.put_line(FND_FILE.output, '');*/
1945: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1946: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1947: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1940: ,l_msg_incomplete_dff_assign);
1941: END IF; --(l_proc_level >= l_dbg_level)
1942: /*FND_FILE.put_line(FND_FILE.output, '
1943: FND_FILE.put_line(FND_FILE.output, '
1944: FND_FILE.put_line(FND_FILE.output, '');*/
1945: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1946: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1947: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1948: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1961: FND_LOG.String( l_proc_level
1962: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1963: ,SQLCODE||':'||SQLERRM);
1964: END IF; --(l_proc_level >= l_dbg_level)
1965: /*FND_FILE.put_line(FND_FILE.output, '
1966: FND_FILE.put_line(FND_FILE.output, '
1967: FND_FILE.put_line(FND_FILE.output, '');*/
1968: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1969: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1962: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1963: ,SQLCODE||':'||SQLERRM);
1964: END IF; --(l_proc_level >= l_dbg_level)
1965: /*FND_FILE.put_line(FND_FILE.output, '
1966: FND_FILE.put_line(FND_FILE.output, '
1967: FND_FILE.put_line(FND_FILE.output, '');*/
1968: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1969: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1970: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1963: ,SQLCODE||':'||SQLERRM);
1964: END IF; --(l_proc_level >= l_dbg_level)
1965: /*FND_FILE.put_line(FND_FILE.output, '
1966: FND_FILE.put_line(FND_FILE.output, '
1967: FND_FILE.put_line(FND_FILE.output, '');*/
1968: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1969: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1970: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1971: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;