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;
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
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;
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
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;
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
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;
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all 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;
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
887: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
894: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
895: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
888: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
894: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
895: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
896: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
889: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
894: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
895: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
896: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
897:
890: -- ?? not sure of the source
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
894: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
895: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
896: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
897:
898: --Get ledger Name
891: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
894: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
895: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
896: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
897:
898: --Get ledger Name
899: SELECT ledger.name
892: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
893: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
894: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
895: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
896: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
897:
898: --Get ledger Name
899: SELECT ledger.name
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
909: /*
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
909: /*
910: --Get LE Name
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.
935: BEGIN
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.
935: BEGIN
936: SELECT DECODE(nvl(DFF.CONTEXT_CODE, ''), '', 'N',
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;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
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;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
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;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
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;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) 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;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
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;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1104: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1097: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1104: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1105: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1098: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1104: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1105: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1106: END IF;
1099: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1104: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1105: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1106: END IF;
1107:
1100: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1104: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item 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
1101: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1102: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1103: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1104: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item 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, '
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;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
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;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
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;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
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;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) 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;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
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;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1126:
1119: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1126:
1127: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1120: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1126:
1127: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1128: --To concatenate the XML line as a journal item
1121: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1122: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1126:
1127: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1128: --To concatenate the XML line as a journal item
1129: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_line ) INTO l_xml_jnl_items FROM dual;
1123: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1124: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1126:
1127: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1128: --To concatenate the XML line as a journal item
1129: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_line ) INTO l_xml_jnl_items FROM dual;
1130: END IF; --l_line_check = 'NO_ITEM' or l_line_check = 'NO_ACCOUNT'
1131: END LOOP;
1125: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1126:
1127: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1128: --To concatenate the XML line as a journal item
1129: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_line ) INTO l_xml_jnl_items FROM dual;
1130: END IF; --l_line_check = 'NO_ITEM' or l_line_check = 'NO_ACCOUNT'
1131: END LOOP;
1132: CLOSE c_gl_lines;
1133:
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;
1151: --To concatenate the journal into the output
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;
1151: --To concatenate the journal into the output
1152: SELECT XMLCONCAT( l_xml_all,l_xml_journal ) INTO l_xml_all FROM dual;
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;
1151: --To concatenate the journal into the output
1152: SELECT XMLCONCAT( l_xml_all,l_xml_journal ) INTO l_xml_all FROM dual;
1153: END IF; --l_invalid_line_4_jnl
1154:
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;
1151: --To concatenate the journal into the output
1152: SELECT XMLCONCAT( l_xml_all,l_xml_journal ) INTO l_xml_all FROM dual;
1153: END IF; --l_invalid_line_4_jnl
1154:
1155: --END IF; --cancle the Status judgment for Post and Unpost
1156:
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;
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
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;
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1174: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
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;
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1174: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1175:
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;
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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
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;
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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;
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;
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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());
1173: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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:
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;
1206: --To add root node for the xml output and then output it
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;
1206: --To add root node for the xml output and then output it
1207: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1206: --To add root node for the xml output and then output it
1207: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1208: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1206: --To add root node for the xml output and then output it
1207: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1208: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1209:
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;
1206: --To add root node for the xml output and then output it
1207: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1208: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1209:
1210: retcode := 1;
1211: errbuf := l_msg_incomplete_dff_assign;
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;
1230: --To add root node for the xml output and then output it
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;
1230: --To add root node for the xml output and then output it
1231: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1230: --To add root node for the xml output and then output it
1231: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1232: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1230: --To add root node for the xml output and then output it
1231: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1232: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1233:
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;
1230: --To add root node for the xml output and then output it
1231: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1232: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1233:
1234: retcode := 2;
1235: errbuf := SQLCODE||':'||SQLERRM;
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;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
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;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1605: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1606: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
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;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1605: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1606: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1607: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
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;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1605: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1606: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1607: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1608:
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;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1605: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1606: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1607: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1608:
1609: --Get ledger Name
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;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1605: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1606: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1607: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1608:
1609: --Get ledger Name
1610: SELECT ledger.name
1603: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1604: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1605: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1606: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1607: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1608:
1609: --Get ledger Name
1610: SELECT ledger.name
1611: INTO l_ledger_name
1614: ;
1615: /*FND_FILE.put_line(FND_FILE.output, '
1616: -- sob name --> ledger name ,
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;
1620:
1621: --Get LE Name
1622: /* SELECT HAOTL.name
1615: /*FND_FILE.put_line(FND_FILE.output, '
1616: -- sob name --> ledger name ,
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;
1620:
1621: --Get LE Name
1622: /* SELECT HAOTL.name
1623: INTO l_le_name
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.
1641: BEGIN
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.
1641: BEGIN
1642: SELECT distinct DECODE(nvl(DFF.CONTEXT_CODE, ''), '', 'N',
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;
1844: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
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;
1844: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
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;
1844: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
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;
1844: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1850: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1843: l_xml_tr_items := l_xml_item;
1844: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1850: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1851: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1844: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1850: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1851: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1852: END IF;
1845: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1850: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1851: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1852: END IF;
1853:
1846: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1850: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
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
1847: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1848: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1849: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1850: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
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, '
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;
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
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;
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
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;
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
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;
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1864: l_xml_line_items := l_xml_item;
1865: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1865: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1873:
1866: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1873:
1874: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1867: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1873:
1874: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1875: --To concatenate the XML line as a transaction item
1868: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1869: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1873:
1874: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1875: --To concatenate the XML line as a transaction item
1876: SELECT XMLCONCAT( l_xml_tr_items,l_xml_line ) INTO l_xml_tr_items FROM dual;
1870: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1871: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1873:
1874: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1875: --To concatenate the XML line as a transaction item
1876: SELECT XMLCONCAT( l_xml_tr_items,l_xml_line ) INTO l_xml_tr_items FROM dual;
1877:
1878: END IF; -- line check
1872: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1873:
1874: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1875: --To concatenate the XML line as a transaction item
1876: SELECT XMLCONCAT( l_xml_tr_items,l_xml_line ) INTO l_xml_tr_items FROM dual;
1877:
1878: END IF; -- line check
1879: END IF; -- line inner flag
1880: END LOOP; -- line loop
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;
1900: --To concatenate the transaction into the output
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;
1900: --To concatenate the transaction into the output
1901: SELECT XMLCONCAT( l_xml_all,l_xml_tr ) INTO l_xml_all FROM dual;
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;
1900: --To concatenate the transaction into the output
1901: SELECT XMLCONCAT( l_xml_all,l_xml_tr ) INTO l_xml_all FROM dual;
1902: END IF; --l_invalid_line_4_tr > 0
1903:
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;
1900: --To concatenate the transaction into the output
1901: SELECT XMLCONCAT( l_xml_all,l_xml_tr ) INTO l_xml_all FROM dual;
1902: END IF; --l_invalid_line_4_tr > 0
1903:
1904: END LOOP; -- loop header
1905: CLOSE c_tr;
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;
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
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;
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1920: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
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;
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1920: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1921:
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;
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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
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;
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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;
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;
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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());
1919: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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
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;
1949: --To add root node for the xml output and then output it
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;
1949: --To add root node for the xml output and then output it
1950: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1949: --To add root node for the xml output and then output it
1950: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1951: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1949: --To add root node for the xml output and then output it
1950: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1951: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1952:
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;
1949: --To add root node for the xml output and then output it
1950: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1951: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1952:
1953: retcode := 1;
1954: errbuf := l_msg_incomplete_dff_assign;
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;
1972: --To add root node for the xml output and then output it
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;
1972: --To add root node for the xml output and then output it
1973: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1972: --To add root node for the xml output and then output it
1973: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1974: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1972: --To add root node for the xml output and then output it
1973: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1974: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1975:
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;
1972: --To add root node for the xml output and then output it
1973: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1974: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1975:
1976: retcode := 2;
1977: errbuf := SQLCODE||':'||SQLERRM;