908:
909: --Start the XML file
910: -- Updated by shujuan for bug 7626489
911: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
912: FND_FILE.put_line(FND_FILE.output,'');
913:
914: --FND_FILE.put_line(FND_FILE.output,'');
915: /*FND_FILE.put_line(FND_FILE.output, '
916: FND_FILE.put_line(FND_FILE.output, '
910: -- Updated by shujuan for bug 7626489
911: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
912: FND_FILE.put_line(FND_FILE.output,'');
913:
914: --FND_FILE.put_line(FND_FILE.output,'');
915: /*FND_FILE.put_line(FND_FILE.output, '
916: FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
911: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
912: FND_FILE.put_line(FND_FILE.output,'');
913:
914: --FND_FILE.put_line(FND_FILE.output,'');
915: /*FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
919: FND_FILE.put_line(FND_FILE.output, '
912: FND_FILE.put_line(FND_FILE.output,'');
913:
914: --FND_FILE.put_line(FND_FILE.output,'');
915: /*FND_FILE.put_line(FND_FILE.output, '
916: FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
919: FND_FILE.put_line(FND_FILE.output, '
920: FND_FILE.put_line(FND_FILE.output, '
913:
914: --FND_FILE.put_line(FND_FILE.output,'');
915: /*FND_FILE.put_line(FND_FILE.output, '
916: FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
919: FND_FILE.put_line(FND_FILE.output, '
920: FND_FILE.put_line(FND_FILE.output, '
921: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
914: --FND_FILE.put_line(FND_FILE.output,'');
915: /*FND_FILE.put_line(FND_FILE.output, '
916: FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
919: FND_FILE.put_line(FND_FILE.output, '
920: FND_FILE.put_line(FND_FILE.output, '
921: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
922: l_xml_all := l_xml_item;
915: /*FND_FILE.put_line(FND_FILE.output, '
916: FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
919: FND_FILE.put_line(FND_FILE.output, '
920: FND_FILE.put_line(FND_FILE.output, '
921: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
922: l_xml_all := l_xml_item;
923: SELECT XMLELEMENT( "P_END_PERIOD",P_END_PERIOD ) INTO l_xml_item FROM dual;
916: FND_FILE.put_line(FND_FILE.output, '
917: FND_FILE.put_line(FND_FILE.output, '
918: FND_FILE.put_line(FND_FILE.output, '
919: FND_FILE.put_line(FND_FILE.output, '
920: FND_FILE.put_line(FND_FILE.output, '
921: SELECT XMLELEMENT( "P_START_PERIOD",P_START_PERIOD ) INTO l_xml_item FROM dual;
922: l_xml_all := l_xml_item;
923: SELECT XMLELEMENT( "P_END_PERIOD",P_END_PERIOD ) INTO l_xml_item FROM dual;
924: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
937: INTO l_ledger_name
938: FROM GL_LEDGERS ledger
939: WHERE ledger.ledger_id = l_ledger_id
940: ;
941: -- FND_FILE.put_line(FND_FILE.output, '
942: SELECT XMLELEMENT( "LEDGER_NAME",l_ledger_name ) INTO l_xml_item FROM dual;
943: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
944:
945: -- Fix bug#6654759 delete start
963: FROM XLE_ENTITY_PROFILES XEP
964: WHERE XEP.LEGAL_ENTITY_ID = l_le_id;
965: -- Fix bug#6654759 add end
966:
967: /*FND_FILE.put_line(FND_FILE.output, '
968: SELECT XMLELEMENT( "LE_NAME",l_le_name ) INTO l_xml_item FROM dual;
969: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
970:
971: --1. Check whether the DFF assignment of Journal Categories has been set or not.
1120:
1121: --Before first line of the journal, output the journal info
1122: IF l_invalid_line_4_jnl = 1
1123: THEN
1124: /*FND_FILE.put_line(FND_FILE.output, '
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1121: --Before first line of the journal, output the journal info
1122: IF l_invalid_line_4_jnl = 1
1123: THEN
1124: /*FND_FILE.put_line(FND_FILE.output, '
1125: FND_FILE.put_line(FND_FILE.output, '
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1129: FND_FILE.put_line(FND_FILE.output, '
1122: IF l_invalid_line_4_jnl = 1
1123: THEN
1124: /*FND_FILE.put_line(FND_FILE.output, '
1125: FND_FILE.put_line(FND_FILE.output, '
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1129: FND_FILE.put_line(FND_FILE.output, '
1130: FND_FILE.put_line(FND_FILE.output, '
1123: THEN
1124: /*FND_FILE.put_line(FND_FILE.output, '
1125: FND_FILE.put_line(FND_FILE.output, '
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1129: FND_FILE.put_line(FND_FILE.output, '
1130: FND_FILE.put_line(FND_FILE.output, '
1131: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1124: /*FND_FILE.put_line(FND_FILE.output, '
1125: FND_FILE.put_line(FND_FILE.output, '
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1129: FND_FILE.put_line(FND_FILE.output, '
1130: FND_FILE.put_line(FND_FILE.output, '
1131: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1132: l_xml_jnl_items := l_xml_item;
1125: FND_FILE.put_line(FND_FILE.output, '
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1129: FND_FILE.put_line(FND_FILE.output, '
1130: FND_FILE.put_line(FND_FILE.output, '
1131: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1132: l_xml_jnl_items := l_xml_item;
1133: SELECT XMLELEMENT( "JOURNAL_NAME",l_je_name ) INTO l_xml_item FROM dual;
1126: FND_FILE.put_line(FND_FILE.output, '
1127: FND_FILE.put_line(FND_FILE.output, '');
1128: FND_FILE.put_line(FND_FILE.output, '
1129: FND_FILE.put_line(FND_FILE.output, '
1130: FND_FILE.put_line(FND_FILE.output, '
1131: SELECT XMLELEMENT( "BATCH",l_je_batch_name ) INTO l_xml_item FROM dual;
1132: l_xml_jnl_items := l_xml_item;
1133: SELECT XMLELEMENT( "JOURNAL_NAME",l_je_name ) INTO l_xml_item FROM dual;
1134: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1142: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1143: END IF;
1144:
1145: --output the line
1146: /*FND_FILE.put_line(FND_FILE.output, '
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1143: END IF;
1144:
1145: --output the line
1146: /*FND_FILE.put_line(FND_FILE.output, '
1147: FND_FILE.put_line(FND_FILE.output, '
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1151: FND_FILE.put_line(FND_FILE.output, '
1144:
1145: --output the line
1146: /*FND_FILE.put_line(FND_FILE.output, '
1147: FND_FILE.put_line(FND_FILE.output, '
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1151: FND_FILE.put_line(FND_FILE.output, '
1152: FND_FILE.put_line(FND_FILE.output, '
1145: --output the line
1146: /*FND_FILE.put_line(FND_FILE.output, '
1147: FND_FILE.put_line(FND_FILE.output, '
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1151: FND_FILE.put_line(FND_FILE.output, '
1152: FND_FILE.put_line(FND_FILE.output, '
1153: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1146: /*FND_FILE.put_line(FND_FILE.output, '
1147: FND_FILE.put_line(FND_FILE.output, '
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1151: FND_FILE.put_line(FND_FILE.output, '
1152: FND_FILE.put_line(FND_FILE.output, '
1153: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1154: l_xml_line_items := l_xml_item;
1147: FND_FILE.put_line(FND_FILE.output, '
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1151: FND_FILE.put_line(FND_FILE.output, '
1152: FND_FILE.put_line(FND_FILE.output, '');*/
1153: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1154: l_xml_line_items := l_xml_item;
1155: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1148: FND_FILE.put_line(FND_FILE.output, '
1149: FND_FILE.put_line(FND_FILE.output, '
1150: FND_FILE.put_line(FND_FILE.output, '
1151: FND_FILE.put_line(FND_FILE.output, '
1152: FND_FILE.put_line(FND_FILE.output, '');*/
1153: SELECT XMLELEMENT( "LINE_NUMBER",l_je_line_num ) INTO l_xml_item FROM dual;
1154: l_xml_line_items := l_xml_item;
1155: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1156: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1178: l_invalid_jnl_count := l_invalid_jnl_count + 1; --This journal is a invalid one
1179: l_invalid_lines := l_invalid_lines + l_invalid_line_4_jnl; --Add the invalid lines of this journal
1180:
1181: --Has output lines, should end the journal
1182: /*FND_FILE.put_line(FND_FILE.output, '
1183: FND_FILE.put_line(FND_FILE.output, '');*/
1184: SELECT XMLELEMENT( "INVALID_LINES_4_JNL",l_invalid_line_4_jnl ) INTO l_xml_item FROM dual;
1185: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1186:
1179: l_invalid_lines := l_invalid_lines + l_invalid_line_4_jnl; --Add the invalid lines of this journal
1180:
1181: --Has output lines, should end the journal
1182: /*FND_FILE.put_line(FND_FILE.output, '
1183: FND_FILE.put_line(FND_FILE.output, '');*/
1184: SELECT XMLELEMENT( "INVALID_LINES_4_JNL",l_invalid_line_4_jnl ) INTO l_xml_item FROM dual;
1185: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1186:
1187: SELECT XMLELEMENT( "JOURNAL",l_xml_jnl_items ) INTO l_xml_journal FROM dual;
1198: END LOOP; --FOR i IN l_all_jnl_catg.first .. l_all_jnl_catg.last LOOP
1199: END IF;
1200:
1201: --End the XML file
1202: /*FND_FILE.put_line(FND_FILE.output, '
1203: FND_FILE.put_line(FND_FILE.output, '
1204: FND_FILE.put_line(FND_FILE.output, '
1205: FND_FILE.put_line(FND_FILE.output, '');*/
1206: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1199: END IF;
1200:
1201: --End the XML file
1202: /*FND_FILE.put_line(FND_FILE.output, '
1203: FND_FILE.put_line(FND_FILE.output, '
1204: FND_FILE.put_line(FND_FILE.output, '
1205: FND_FILE.put_line(FND_FILE.output, '');*/
1206: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1207: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1200:
1201: --End the XML file
1202: /*FND_FILE.put_line(FND_FILE.output, '
1203: FND_FILE.put_line(FND_FILE.output, '
1204: FND_FILE.put_line(FND_FILE.output, '
1205: FND_FILE.put_line(FND_FILE.output, '');*/
1206: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1207: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1208: SELECT XMLELEMENT( "TOTAL_INVALID_JNL",TO_CHAR(l_invalid_jnl_count) ) INTO l_xml_item FROM dual;
1201: --End the XML file
1202: /*FND_FILE.put_line(FND_FILE.output, '
1203: FND_FILE.put_line(FND_FILE.output, '
1204: FND_FILE.put_line(FND_FILE.output, '
1205: FND_FILE.put_line(FND_FILE.output, '');*/
1206: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_jnl_count) ) INTO l_xml_item FROM dual;
1207: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1208: SELECT XMLELEMENT( "TOTAL_INVALID_JNL",TO_CHAR(l_invalid_jnl_count) ) INTO l_xml_item FROM dual;
1209: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1211: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1212:
1213: --To add root node for the xml output and then output it
1214: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1215: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1216:
1217: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1218:
1219: --log for debug
1232: FND_LOG.String( l_proc_level
1233: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1234: ,l_msg_incomplete_dff_assign);
1235: END IF; --(l_proc_level >= l_dbg_level)
1236: /*FND_FILE.put_line(FND_FILE.output, '
1237: FND_FILE.put_line(FND_FILE.output, '
1238: FND_FILE.put_line(FND_FILE.output, '');*/
1239: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1240: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1233: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1234: ,l_msg_incomplete_dff_assign);
1235: END IF; --(l_proc_level >= l_dbg_level)
1236: /*FND_FILE.put_line(FND_FILE.output, '
1237: FND_FILE.put_line(FND_FILE.output, '
1238: FND_FILE.put_line(FND_FILE.output, '');*/
1239: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1240: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1241: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1234: ,l_msg_incomplete_dff_assign);
1235: END IF; --(l_proc_level >= l_dbg_level)
1236: /*FND_FILE.put_line(FND_FILE.output, '
1237: FND_FILE.put_line(FND_FILE.output, '
1238: FND_FILE.put_line(FND_FILE.output, '');*/
1239: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1240: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1241: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1242: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1256: FND_LOG.String( l_proc_level
1257: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1258: ,SQLCODE||':'||SQLERRM);
1259: END IF; --(l_proc_level >= l_dbg_level)
1260: /*FND_FILE.put_line(FND_FILE.output, '
1261: FND_FILE.put_line(FND_FILE.output, '
1262: FND_FILE.put_line(FND_FILE.output, '');*/
1263: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1264: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1257: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
1258: ,SQLCODE||':'||SQLERRM);
1259: END IF; --(l_proc_level >= l_dbg_level)
1260: /*FND_FILE.put_line(FND_FILE.output, '
1261: FND_FILE.put_line(FND_FILE.output, '
1262: FND_FILE.put_line(FND_FILE.output, '');*/
1263: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1264: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1265: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1258: ,SQLCODE||':'||SQLERRM);
1259: END IF; --(l_proc_level >= l_dbg_level)
1260: /*FND_FILE.put_line(FND_FILE.output, '
1261: FND_FILE.put_line(FND_FILE.output, '
1262: FND_FILE.put_line(FND_FILE.output, '');*/
1263: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1264: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1265: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
1266: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1626:
1627: --Start the XML file
1628: -- Updated by shujuan for bug 7626489
1629: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
1630: FND_FILE.put_line(FND_FILE.output,'');
1631:
1632: --FND_FILE.put_line(FND_FILE.output,'');
1633: /*FND_FILE.put_line(FND_FILE.output, '
1634: FND_FILE.put_line(FND_FILE.output, '
1628: -- Updated by shujuan for bug 7626489
1629: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
1630: FND_FILE.put_line(FND_FILE.output,'');
1631:
1632: --FND_FILE.put_line(FND_FILE.output,'');
1633: /*FND_FILE.put_line(FND_FILE.output, '
1634: FND_FILE.put_line(FND_FILE.output, '
1635: FND_FILE.put_line(FND_FILE.output, '
1636: FND_FILE.put_line(FND_FILE.output, '
1629: l_characterset :=Fnd_Profile.VALUE(NAME => 'ICX_CLIENT_IANA_ENCODING');
1630: FND_FILE.put_line(FND_FILE.output,'');
1631:
1632: --FND_FILE.put_line(FND_FILE.output,'');
1633: /*FND_FILE.put_line(FND_FILE.output, '
1635: FND_FILE.put_line(FND_FILE.output, '
1636: FND_FILE.put_line(FND_FILE.output, '
1637: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1630: FND_FILE.put_line(FND_FILE.output,'');
1631:
1632: --FND_FILE.put_line(FND_FILE.output,'');
1633: /*FND_FILE.put_line(FND_FILE.output, '
1634: FND_FILE.put_line(FND_FILE.output, '
1635: FND_FILE.put_line(FND_FILE.output, '
1636: FND_FILE.put_line(FND_FILE.output, '
1637: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1638: l_xml_all := l_xml_item;
1631:
1632: --FND_FILE.put_line(FND_FILE.output,'');
1633: /*FND_FILE.put_line(FND_FILE.output, '
1634: FND_FILE.put_line(FND_FILE.output, '
1635: FND_FILE.put_line(FND_FILE.output, '
1636: FND_FILE.put_line(FND_FILE.output, '
1637: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1638: l_xml_all := l_xml_item;
1639: SELECT XMLELEMENT( "P_END_PERIOD",l_period_to ) INTO l_xml_item FROM dual;
1632: --FND_FILE.put_line(FND_FILE.output,'');
1633: /*FND_FILE.put_line(FND_FILE.output, '
1634: FND_FILE.put_line(FND_FILE.output, '
1635: FND_FILE.put_line(FND_FILE.output, '
1636: FND_FILE.put_line(FND_FILE.output, '
1637: SELECT XMLELEMENT( "P_START_PERIOD",l_period_from ) INTO l_xml_item FROM dual;
1638: l_xml_all := l_xml_item;
1639: SELECT XMLELEMENT( "P_END_PERIOD",l_period_to ) INTO l_xml_item FROM dual;
1640: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1648: INTO l_ledger_name
1649: FROM GL_LEDGERS ledger
1650: WHERE ledger.ledger_id = l_ledger_id
1651: ;
1652: /*FND_FILE.put_line(FND_FILE.output, '
1654: -- didn't change the xml schemal,
1655: SELECT XMLELEMENT( "LEDGER_NAME",l_ledger_name ) INTO l_xml_item FROM dual; --Fix bug#7481545
1656: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1669: FROM XLE_ENTITY_PROFILES XEP
1670: WHERE XEP.LEGAL_ENTITY_ID = l_le_id
1671: ;
1672:
1673: /*FND_FILE.put_line(FND_FILE.output, '
1674: SELECT XMLELEMENT( "LE_NAME",l_le_name ) INTO l_xml_item FROM dual;
1675: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1676:
1677: --1. Check whether the DFF assignment of Intercompany Transaction Lines has been set or not.
1867: END IF;
1868:
1869: --Before first line of the transaction, output the transaction info
1870: IF l_invalid_line_4_tr = 1 THEN
1871: /*FND_FILE.put_line(FND_FILE.output, '
1873: FND_FILE.put_line(FND_FILE.output, '
1874: FND_FILE.put_line(FND_FILE.output, '
1875: FND_FILE.put_line(FND_FILE.output, '
1868:
1869: --Before first line of the transaction, output the transaction info
1870: IF l_invalid_line_4_tr = 1 THEN
1871: /*FND_FILE.put_line(FND_FILE.output, '
1872: FND_FILE.put_line(FND_FILE.output, '
1873: FND_FILE.put_line(FND_FILE.output, '
1874: FND_FILE.put_line(FND_FILE.output, '
1875: FND_FILE.put_line(FND_FILE.output, '
1876: FND_FILE.put_line(FND_FILE.output, '
1869: --Before first line of the transaction, output the transaction info
1870: IF l_invalid_line_4_tr = 1 THEN
1871: /*FND_FILE.put_line(FND_FILE.output, '
1872: FND_FILE.put_line(FND_FILE.output, '
1873: FND_FILE.put_line(FND_FILE.output, '
1874: FND_FILE.put_line(FND_FILE.output, '
1875: FND_FILE.put_line(FND_FILE.output, '
1876: FND_FILE.put_line(FND_FILE.output, '
1877:
1870: IF l_invalid_line_4_tr = 1 THEN
1871: /*FND_FILE.put_line(FND_FILE.output, '
1872: FND_FILE.put_line(FND_FILE.output, '
1873: FND_FILE.put_line(FND_FILE.output, '
1874: FND_FILE.put_line(FND_FILE.output, '
1875: FND_FILE.put_line(FND_FILE.output, '
1876: FND_FILE.put_line(FND_FILE.output, '
1877:
1878: -- using batch_number/trx_number to show the current item
1871: /*FND_FILE.put_line(FND_FILE.output, '
1872: FND_FILE.put_line(FND_FILE.output, '
1873: FND_FILE.put_line(FND_FILE.output, '
1874: FND_FILE.put_line(FND_FILE.output, '
1875: FND_FILE.put_line(FND_FILE.output, '
1876: FND_FILE.put_line(FND_FILE.output, '
1877:
1878: -- using batch_number/trx_number to show the current item
1879: SELECT XMLELEMENT( "TR_NUMBER",l_trxb_num||'/'||l_trx_num ) INTO l_xml_item FROM dual;
1872: FND_FILE.put_line(FND_FILE.output, '
1873: FND_FILE.put_line(FND_FILE.output, '
1874: FND_FILE.put_line(FND_FILE.output, '
1875: FND_FILE.put_line(FND_FILE.output, '
1876: FND_FILE.put_line(FND_FILE.output, '
1877:
1878: -- using batch_number/trx_number to show the current item
1879: SELECT XMLELEMENT( "TR_NUMBER",l_trxb_num||'/'||l_trx_num ) INTO l_xml_item FROM dual;
1880: l_xml_tr_items := l_xml_item;
1888: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1889: END IF;
1890:
1891: --output the line
1892: /*FND_FILE.put_line(FND_FILE.output, '
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1889: END IF;
1890:
1891: --output the line
1892: /*FND_FILE.put_line(FND_FILE.output, '
1893: FND_FILE.put_line(FND_FILE.output, '
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1897: FND_FILE.put_line(FND_FILE.output, '
1890:
1891: --output the line
1892: /*FND_FILE.put_line(FND_FILE.output, '
1893: FND_FILE.put_line(FND_FILE.output, '
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1897: FND_FILE.put_line(FND_FILE.output, '
1898: FND_FILE.put_line(FND_FILE.output, '
1891: --output the line
1892: /*FND_FILE.put_line(FND_FILE.output, '
1893: FND_FILE.put_line(FND_FILE.output, '
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1897: FND_FILE.put_line(FND_FILE.output, '
1898: FND_FILE.put_line(FND_FILE.output, '
1899:
1892: /*FND_FILE.put_line(FND_FILE.output, '
1893: FND_FILE.put_line(FND_FILE.output, '
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1897: FND_FILE.put_line(FND_FILE.output, '
1898: FND_FILE.put_line(FND_FILE.output, '
1899:
1900: SELECT XMLELEMENT( "LINE_NUMBER",l_trxl_num ) INTO l_xml_item FROM dual; -- using trx line number to markup recorde with error
1893: FND_FILE.put_line(FND_FILE.output, '
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1897: FND_FILE.put_line(FND_FILE.output, '
1898: FND_FILE.put_line(FND_FILE.output, '');*/
1899:
1900: SELECT XMLELEMENT( "LINE_NUMBER",l_trxl_num ) INTO l_xml_item FROM dual; -- using trx line number to markup recorde with error
1901: l_xml_line_items := l_xml_item;
1894: FND_FILE.put_line(FND_FILE.output, '
1895: FND_FILE.put_line(FND_FILE.output, '
1896: FND_FILE.put_line(FND_FILE.output, '
1897: FND_FILE.put_line(FND_FILE.output, '
1898: FND_FILE.put_line(FND_FILE.output, '');*/
1899:
1900: SELECT XMLELEMENT( "LINE_NUMBER",l_trxl_num ) INTO l_xml_item FROM dual; -- using trx line number to markup recorde with error
1901: l_xml_line_items := l_xml_item;
1902: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1927: l_invalid_tr_count := l_invalid_tr_count + 1; --This transaction is a invalid one
1928: l_invalid_lines := l_invalid_lines + l_invalid_line_4_tr; --Add the invalid lines of this transaction
1929:
1930: --Has output lines, should end the transaction
1931: /*FND_FILE.put_line(FND_FILE.output, '
1932: FND_FILE.put_line(FND_FILE.output, '');*/
1933: SELECT XMLELEMENT( "INVALID_LINES_4_TR",l_invalid_line_4_tr ) INTO l_xml_item FROM dual;
1934: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1935:
1928: l_invalid_lines := l_invalid_lines + l_invalid_line_4_tr; --Add the invalid lines of this transaction
1929:
1930: --Has output lines, should end the transaction
1931: /*FND_FILE.put_line(FND_FILE.output, '
1932: FND_FILE.put_line(FND_FILE.output, '');*/
1933: SELECT XMLELEMENT( "INVALID_LINES_4_TR",l_invalid_line_4_tr ) INTO l_xml_item FROM dual;
1934: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1935:
1936: SELECT XMLELEMENT( "TRANSACTION",l_xml_tr_items ) INTO l_xml_tr FROM dual;
1944: END LOOP;-- loop period
1945: CLOSE c_period_name;
1946:
1947: --End the XML file
1948: /*FND_FILE.put_line(FND_FILE.output, '
1949: FND_FILE.put_line(FND_FILE.output, '
1950: FND_FILE.put_line(FND_FILE.output, '
1951: FND_FILE.put_line(FND_FILE.output, '');*/
1952: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1945: CLOSE c_period_name;
1946:
1947: --End the XML file
1948: /*FND_FILE.put_line(FND_FILE.output, '
1949: FND_FILE.put_line(FND_FILE.output, '
1950: FND_FILE.put_line(FND_FILE.output, '
1951: FND_FILE.put_line(FND_FILE.output, '');*/
1952: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1953: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1946:
1947: --End the XML file
1948: /*FND_FILE.put_line(FND_FILE.output, '
1949: FND_FILE.put_line(FND_FILE.output, '
1950: FND_FILE.put_line(FND_FILE.output, '
1951: FND_FILE.put_line(FND_FILE.output, '');*/
1952: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1953: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1954: SELECT XMLELEMENT( "TOTAL_INVALID_TR",TO_CHAR(l_invalid_tr_count) ) INTO l_xml_item FROM dual;
1947: --End the XML file
1948: /*FND_FILE.put_line(FND_FILE.output, '
1949: FND_FILE.put_line(FND_FILE.output, '
1950: FND_FILE.put_line(FND_FILE.output, '
1951: FND_FILE.put_line(FND_FILE.output, '');*/
1952: SELECT XMLELEMENT( "TOTAL_COUNT",TO_CHAR(l_tr_count) ) INTO l_xml_item FROM dual;
1953: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1954: SELECT XMLELEMENT( "TOTAL_INVALID_TR",TO_CHAR(l_invalid_tr_count) ) INTO l_xml_item FROM dual;
1955: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1957: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1958:
1959: --To add root node for the xml output and then output it
1960: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1961: --FND_FILE.put_line(FND_FILE.output,l_xml_root.getclobval());
1962: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1963:
1964: --log for debug
1965: IF (l_proc_level >= l_dbg_level) THEN
1975: FND_LOG.String( l_proc_level
1976: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1977: ,l_msg_incomplete_dff_assign);
1978: END IF; --(l_proc_level >= l_dbg_level)
1979: /*FND_FILE.put_line(FND_FILE.output, '
1980: FND_FILE.put_line(FND_FILE.output, '
1981: FND_FILE.put_line(FND_FILE.output, '');*/
1982: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1983: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1976: ,l_module_prefix||'.'||l_proc_name||'.JA_CN_INCOMPLETE_DFF_ASSIGN '
1977: ,l_msg_incomplete_dff_assign);
1978: END IF; --(l_proc_level >= l_dbg_level)
1979: /*FND_FILE.put_line(FND_FILE.output, '
1980: FND_FILE.put_line(FND_FILE.output, '
1981: FND_FILE.put_line(FND_FILE.output, '');*/
1982: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1983: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1984: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1977: ,l_msg_incomplete_dff_assign);
1978: END IF; --(l_proc_level >= l_dbg_level)
1979: /*FND_FILE.put_line(FND_FILE.output, '
1980: FND_FILE.put_line(FND_FILE.output, '
1981: FND_FILE.put_line(FND_FILE.output, '');*/
1982: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
1983: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1984: SELECT XMLELEMENT( "DFF_EXCEPTION",l_msg_incomplete_dff_assign ) INTO l_xml_item FROM dual;
1985: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1998: FND_LOG.String( l_proc_level
1999: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
2000: ,SQLCODE||':'||SQLERRM);
2001: END IF; --(l_proc_level >= l_dbg_level)
2002: /*FND_FILE.put_line(FND_FILE.output, '
2003: FND_FILE.put_line(FND_FILE.output, '
2004: FND_FILE.put_line(FND_FILE.output, '');*/
2005: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
2006: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1999: ,l_module_prefix||'.'||l_proc_name||'.Other_Exception '
2000: ,SQLCODE||':'||SQLERRM);
2001: END IF; --(l_proc_level >= l_dbg_level)
2002: /*FND_FILE.put_line(FND_FILE.output, '
2003: FND_FILE.put_line(FND_FILE.output, '
2004: FND_FILE.put_line(FND_FILE.output, '');*/
2005: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
2006: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
2007: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
2000: ,SQLCODE||':'||SQLERRM);
2001: END IF; --(l_proc_level >= l_dbg_level)
2002: /*FND_FILE.put_line(FND_FILE.output, '
2003: FND_FILE.put_line(FND_FILE.output, '
2004: FND_FILE.put_line(FND_FILE.output, '');*/
2005: SELECT XMLELEMENT( "TOTAL_COUNT",0 ) INTO l_xml_item FROM dual;
2006: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
2007: SELECT XMLELEMENT( "DFF_EXCEPTION",'Other_Exception' ) INTO l_xml_item FROM dual;
2008: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;