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;
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
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;
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
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;
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
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;
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all 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;
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
924: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
931: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
932: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
925: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",P_COM_SEG ) INTO l_xml_item FROM dual; -- not sure
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
931: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
932: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
933: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
926: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
931: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
932: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
933: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
934:
927: -- ?? not sure of the source
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
931: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
932: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
933: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
934:
935: --Get ledger Name
928: SELECT XMLELEMENT( "P_SOURCE",P_SOURCE ) INTO l_xml_item FROM dual;
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
931: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
932: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
933: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
934:
935: --Get ledger Name
936: SELECT ledger.name
929: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
930: SELECT XMLELEMENT( "P_JOURNAL_CTG",P_JOURNAL_CTG ) INTO l_xml_item FROM dual;
931: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
932: SELECT XMLELEMENT( "P_STATUS",P_STATUS ) INTO l_xml_item FROM dual; --Fix bug# 7481841 added
933: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
934:
935: --Get ledger Name
936: SELECT ledger.name
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
946: /*
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
946: /*
947: --Get LE Name
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.
972: BEGIN
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.
972: BEGIN
973: SELECT DECODE(nvl(DFF.CONTEXT_CODE, ''), '', 'N',
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;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
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;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
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;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
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;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) 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;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
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;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1141: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1134: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1141: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1142: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1135: SELECT XMLELEMENT( "SOURCE",l_je_usr_source ) INTO l_xml_item FROM dual;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1141: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1142: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1143: END IF;
1136: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1141: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item FROM dual;
1142: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1143: END IF;
1144:
1137: SELECT XMLELEMENT( "JOURNAL_CTG",l_je_usr_catg ) INTO l_xml_item FROM dual;
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1141: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item 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
1138: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1139: SELECT XMLELEMENT( "JOURNAL_EFF_DATE",l_je_eff_date ) INTO l_xml_item FROM dual;
1140: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_item) INTO l_xml_jnl_items FROM dual;
1141: SELECT XMLELEMENT( "DESCRIPTION",l_je_desc ) INTO l_xml_item 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, '
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;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
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;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
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;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
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;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) 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;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
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;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1163:
1156: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1163:
1164: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1157: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1163:
1164: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1165: --To concatenate the XML line as a journal item
1158: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1159: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1163:
1164: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1165: --To concatenate the XML line as a journal item
1166: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_line ) INTO l_xml_jnl_items FROM dual;
1160: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1161: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1163:
1164: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1165: --To concatenate the XML line as a journal item
1166: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_line ) INTO l_xml_jnl_items FROM dual;
1167: END IF; --l_line_check = 'NO_ITEM' or l_line_check = 'NO_ACCOUNT'
1168: END LOOP;
1162: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1163:
1164: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1165: --To concatenate the XML line as a journal item
1166: SELECT XMLCONCAT( l_xml_jnl_items,l_xml_line ) INTO l_xml_jnl_items FROM dual;
1167: END IF; --l_line_check = 'NO_ITEM' or l_line_check = 'NO_ACCOUNT'
1168: END LOOP;
1169: CLOSE c_gl_lines;
1170:
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;
1188: --To concatenate the journal into the output
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;
1188: --To concatenate the journal into the output
1189: SELECT XMLCONCAT( l_xml_all,l_xml_journal ) INTO l_xml_all FROM dual;
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;
1188: --To concatenate the journal into the output
1189: SELECT XMLCONCAT( l_xml_all,l_xml_journal ) INTO l_xml_all FROM dual;
1190: END IF; --l_invalid_line_4_jnl
1191:
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;
1188: --To concatenate the journal into the output
1189: SELECT XMLCONCAT( l_xml_all,l_xml_journal ) INTO l_xml_all FROM dual;
1190: END IF; --l_invalid_line_4_jnl
1191:
1192: --END IF; --cancle the Status judgment for Post and Unpost
1193:
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;
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
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;
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1211: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
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;
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1211: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1212:
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;
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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
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;
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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;
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;
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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());
1210: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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:
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;
1243: --To add root node for the xml output and then output it
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;
1243: --To add root node for the xml output and then output it
1244: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1243: --To add root node for the xml output and then output it
1244: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1245: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1243: --To add root node for the xml output and then output it
1244: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1245: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1246:
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;
1243: --To add root node for the xml output and then output it
1244: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1245: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1246:
1247: retcode := 1;
1248: errbuf := l_msg_incomplete_dff_assign;
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;
1267: --To add root node for the xml output and then output it
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;
1267: --To add root node for the xml output and then output it
1268: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1267: --To add root node for the xml output and then output it
1268: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1269: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1267: --To add root node for the xml output and then output it
1268: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1269: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1270:
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;
1267: --To add root node for the xml output and then output it
1268: SELECT XMLELEMENT( "GL_INVALID_JOURNALS",l_xml_all ) INTO l_xml_root FROM dual;
1269: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1270:
1271: retcode := 2;
1272: errbuf := SQLCODE||':'||SQLERRM;
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;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
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;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1642: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1643: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
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;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1642: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1643: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1644: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
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;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1642: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1643: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1644: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1645:
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;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1642: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1643: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1644: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1645:
1646: --Get ledger Name
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;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1642: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1643: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1644: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1645:
1646: --Get ledger Name
1647: SELECT ledger.name
1640: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1641: SELECT XMLELEMENT( "P_COMPANY_SEGMENT",l_com_seg) INTO l_xml_item FROM dual;
1642: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1643: SELECT XMLELEMENT( "P_STATUS",P_STATUS) INTO l_xml_item FROM dual; --Fix bug# 7481841
1644: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1645:
1646: --Get ledger Name
1647: SELECT ledger.name
1648: INTO l_ledger_name
1651: ;
1652: /*FND_FILE.put_line(FND_FILE.output, '
1653: -- sob name --> ledger name ,
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;
1657:
1658: --Get LE Name
1659: /* SELECT HAOTL.name
1652: /*FND_FILE.put_line(FND_FILE.output, '
1653: -- sob name --> ledger name ,
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;
1657:
1658: --Get LE Name
1659: /* SELECT HAOTL.name
1660: INTO l_le_name
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.
1678: BEGIN
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.
1678: BEGIN
1679: SELECT distinct DECODE(nvl(DFF.CONTEXT_CODE, ''), '', 'N',
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;
1881: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
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;
1881: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
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;
1881: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
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;
1881: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1887: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1880: l_xml_tr_items := l_xml_item;
1881: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1887: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1888: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1881: SELECT XMLELEMENT( "TR_TYPE",l_trx_type ) INTO l_xml_item FROM dual;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1887: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1888: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1889: END IF;
1882: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1887: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
1888: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1889: END IF;
1890:
1883: SELECT XMLELEMENT( "SENDER",l_trx_send_name ) INTO l_xml_item FROM dual;
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1887: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
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
1884: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1885: SELECT XMLELEMENT( "RECEIVER",l_trx_recv_name ) INTO l_xml_item FROM dual;
1886: SELECT XMLCONCAT( l_xml_tr_items,l_xml_item) INTO l_xml_tr_items FROM dual;
1887: SELECT XMLELEMENT( "GL_DATE",l_trx_gl_date ) INTO l_xml_item FROM dual;
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, '
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;
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
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;
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
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;
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
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;
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1901: l_xml_line_items := l_xml_item;
1902: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1902: SELECT XMLELEMENT( "ACCOUNT",l_account ) INTO l_xml_item FROM dual;
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1910:
1903: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1910:
1911: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1904: SELECT XMLELEMENT( "ACCOUNT_DESC",l_account_desc ) INTO l_xml_item FROM dual;
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1910:
1911: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1912: --To concatenate the XML line as a transaction item
1905: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1906: SELECT XMLELEMENT( "CASH_FLOW_ITEM",l_cash_related_item ) INTO l_xml_item FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1910:
1911: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1912: --To concatenate the XML line as a transaction item
1913: SELECT XMLCONCAT( l_xml_tr_items,l_xml_line ) INTO l_xml_tr_items FROM dual;
1907: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1908: SELECT XMLELEMENT( "EXC_REASON",l_line_err_msg ) INTO l_xml_item FROM dual;
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1910:
1911: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1912: --To concatenate the XML line as a transaction item
1913: SELECT XMLCONCAT( l_xml_tr_items,l_xml_line ) INTO l_xml_tr_items FROM dual;
1914:
1915: END IF; -- line check
1909: SELECT XMLCONCAT( l_xml_line_items,l_xml_item) INTO l_xml_line_items FROM dual;
1910:
1911: SELECT XMLELEMENT( "LINE",l_xml_line_items ) INTO l_xml_line FROM dual;
1912: --To concatenate the XML line as a transaction item
1913: SELECT XMLCONCAT( l_xml_tr_items,l_xml_line ) INTO l_xml_tr_items FROM dual;
1914:
1915: END IF; -- line check
1916: END IF; -- line inner flag
1917: END LOOP; -- line loop
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;
1937: --To concatenate the transaction into the output
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;
1937: --To concatenate the transaction into the output
1938: SELECT XMLCONCAT( l_xml_all,l_xml_tr ) INTO l_xml_all FROM dual;
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;
1937: --To concatenate the transaction into the output
1938: SELECT XMLCONCAT( l_xml_all,l_xml_tr ) INTO l_xml_all FROM dual;
1939: END IF; --l_invalid_line_4_tr > 0
1940:
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;
1937: --To concatenate the transaction into the output
1938: SELECT XMLCONCAT( l_xml_all,l_xml_tr ) INTO l_xml_all FROM dual;
1939: END IF; --l_invalid_line_4_tr > 0
1940:
1941: END LOOP; -- loop header
1942: CLOSE c_tr;
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;
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
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;
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1957: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
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;
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item FROM dual;
1957: SELECT XMLCONCAT( l_xml_all,l_xml_item) INTO l_xml_all FROM dual;
1958:
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;
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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
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;
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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;
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;
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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());
1956: SELECT XMLELEMENT( "TOTAL_INVALID_LINES",TO_CHAR(l_invalid_lines) ) INTO l_xml_item 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
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;
1986: --To add root node for the xml output and then output it
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;
1986: --To add root node for the xml output and then output it
1987: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
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;
1986: --To add root node for the xml output and then output it
1987: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1988: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
1986: --To add root node for the xml output and then output it
1987: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1988: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1989:
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;
1986: --To add root node for the xml output and then output it
1987: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
1988: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
1989:
1990: retcode := 1;
1991: errbuf := l_msg_incomplete_dff_assign;
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;
2009: --To add root node for the xml output and then output it
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;
2009: --To add root node for the xml output and then output it
2010: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
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;
2009: --To add root node for the xml output and then output it
2010: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
2011: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
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;
2009: --To add root node for the xml output and then output it
2010: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
2011: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
2012:
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;
2009: --To add root node for the xml output and then output it
2010: SELECT XMLELEMENT( "GIS_INVALID_TRANSACTIONS",l_xml_all ) INTO l_xml_root FROM dual;
2011: JA_CN_UTILITY.Output_Conc(l_xml_root.getclobval());
2012:
2013: retcode := 2;
2014: errbuf := SQLCODE||':'||SQLERRM;