160: END IF;
161:
162: EXCEPTION
163: WHEN others THEN
164: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
165: fnd_message.set_token('NAME','igf_sl_upload_xml.check_entityid');
166: igs_ge_msg_stack.add;
167: app_exception.raise_exception;
168: END check_entityid;
161:
162: EXCEPTION
163: WHEN others THEN
164: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
165: fnd_message.set_token('NAME','igf_sl_upload_xml.check_entityid');
166: igs_ge_msg_stack.add;
167: app_exception.raise_exception;
168: END check_entityid;
169: /* -----------------------------------------------------------------------------------
359: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_upload_xml.main.debug','l_start_pos is: ' || l_start_pos);
360: END IF;
361:
362: IF l_start_pos = 0 THEN
363: fnd_message.set_name('IGF','IGF_SL_COD_IB_NO_XML_DOC_ID');
364: fnd_file.put_line(fnd_file.log, fnd_message.get);
365: RETURN;
366: ELSE
367: l_doc_id := SUBSTR(MYCLOB_TEXT,(l_start_pos+12),30);
360: END IF;
361:
362: IF l_start_pos = 0 THEN
363: fnd_message.set_name('IGF','IGF_SL_COD_IB_NO_XML_DOC_ID');
364: fnd_file.put_line(fnd_file.log, fnd_message.get);
365: RETURN;
366: ELSE
367: l_doc_id := SUBSTR(MYCLOB_TEXT,(l_start_pos+12),30);
368: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
436: p_event_key => l_event_key,
437: p_parameters => l_parameter_list
438: );
439:
440: fnd_message.set_name('IGF','IGF_SL_COD_INBOUND_EVENT');
441: fnd_message.set_token('EVENT_KEY_VALUE',l_event_key);
442: fnd_file.put_line(fnd_file.log,fnd_message.get);
443:
444: EXCEPTION
437: p_parameters => l_parameter_list
438: );
439:
440: fnd_message.set_name('IGF','IGF_SL_COD_INBOUND_EVENT');
441: fnd_message.set_token('EVENT_KEY_VALUE',l_event_key);
442: fnd_file.put_line(fnd_file.log,fnd_message.get);
443:
444: EXCEPTION
445: WHEN OTHERS THEN
438: );
439:
440: fnd_message.set_name('IGF','IGF_SL_COD_INBOUND_EVENT');
441: fnd_message.set_token('EVENT_KEY_VALUE',l_event_key);
442: fnd_file.put_line(fnd_file.log,fnd_message.get);
443:
444: EXCEPTION
445: WHEN OTHERS THEN
446: ROLLBACK;
444: EXCEPTION
445: WHEN OTHERS THEN
446: ROLLBACK;
447: retcode := 2;
448: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
449: fnd_file.put_line(fnd_file.log, SQLERRM);
450: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
451: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_upload_xml.main.debug','sqlerrm ' || SQLERRM);
452: END IF;
589: END LOOP;
590:
591: EXCEPTION
592: WHEN OTHERS THEN
593: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
594: fnd_message.set_token('NAME','igf_sl_upload_xml.print_edits');
595: igs_ge_msg_stack.add;
596: app_exception.raise_exception;
597: END print_edits;
590:
591: EXCEPTION
592: WHEN OTHERS THEN
593: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
594: fnd_message.set_token('NAME','igf_sl_upload_xml.print_edits');
595: igs_ge_msg_stack.add;
596: app_exception.raise_exception;
597: END print_edits;
598:
694: FETCH get_dl_rec INTO l_dl_rec;
695: CLOSE get_dl_rec;
696:
697: IF l_dl_rec.loan_id IS NULL THEN
698: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
699: fnd_file.put_line(fnd_file.log,fnd_message.get);
700:
701: -- update the status to 'N' - Processed, Not found in the System
702: UPDATE IGF_SL_DL_RESP_DTLS
695: CLOSE get_dl_rec;
696:
697: IF l_dl_rec.loan_id IS NULL THEN
698: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
699: fnd_file.put_line(fnd_file.log,fnd_message.get);
700:
701: -- update the status to 'N' - Processed, Not found in the System
702: UPDATE IGF_SL_DL_RESP_DTLS
703: SET STATUS_CODE = 'N'
1231: -- update the table IGF_AW_DB_COD_DTLS with DISB_STATUS = 'R' , IGF_AW_DB_CHG_DTLS DISB_STATUS = 'R'
1232: IF l_dl_db_resp.disb_seq_num < 66 THEN
1233: IF l_tbh_disb.disb_seq_num IS NULL THEN
1234: -- disbursement record not found in the system. Log a mesg.
1235: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1236: fnd_file.put_line(fnd_file.log,fnd_message.get);
1237:
1238: UPDATE IGF_SL_DLDB_RSP_DTL
1239: SET status_code = 'N'
1232: IF l_dl_db_resp.disb_seq_num < 66 THEN
1233: IF l_tbh_disb.disb_seq_num IS NULL THEN
1234: -- disbursement record not found in the system. Log a mesg.
1235: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1236: fnd_file.put_line(fnd_file.log,fnd_message.get);
1237:
1238: UPDATE IGF_SL_DLDB_RSP_DTL
1239: SET status_code = 'N'
1240: WHERE DISB_RESP_ID = l_dl_db_resp.DISB_RESP_ID;
1253: print_edits(l_dl_db_resp.DISB_RESP_ID,'DL_DB');
1254: IF l_dl_db_resp.disb_seq_num < 66 THEN
1255: IF l_tbh_disb.disb_seq_num IS NULL THEN
1256: -- disbursement record not found in the system. Log a mesg.
1257: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1258: fnd_file.put_line(fnd_file.log,fnd_message.get);
1259:
1260: -- update the status to 'N' - Processed, Not found in the System
1261: UPDATE IGF_SL_DLDB_RSP_DTL
1254: IF l_dl_db_resp.disb_seq_num < 66 THEN
1255: IF l_tbh_disb.disb_seq_num IS NULL THEN
1256: -- disbursement record not found in the system. Log a mesg.
1257: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1258: fnd_file.put_line(fnd_file.log,fnd_message.get);
1259:
1260: -- update the status to 'N' - Processed, Not found in the System
1261: UPDATE IGF_SL_DLDB_RSP_DTL
1262: SET STATUS_CODE = 'N'
1285: update_flag := TRUE;
1286: END IF;
1287: ELSE -- implies disb_seq_num > 65
1288: IF l_dl_db_resp.DISB_SEQ_NUM < 91 THEN
1289: fnd_message.set_name('IGF','IGF_SL_COD_SCHL_ADJ');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get);
1291: ELSIF l_dl_db_resp.DISB_SEQ_NUM < 100 THEN
1292: fnd_message.set_name('IGF','IGF_SL_COD_GEN_DISB');
1293: fnd_file.put_line(fnd_file.log,fnd_message.get);
1286: END IF;
1287: ELSE -- implies disb_seq_num > 65
1288: IF l_dl_db_resp.DISB_SEQ_NUM < 91 THEN
1289: fnd_message.set_name('IGF','IGF_SL_COD_SCHL_ADJ');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get);
1291: ELSIF l_dl_db_resp.DISB_SEQ_NUM < 100 THEN
1292: fnd_message.set_name('IGF','IGF_SL_COD_GEN_DISB');
1293: fnd_file.put_line(fnd_file.log,fnd_message.get);
1294: END IF;
1288: IF l_dl_db_resp.DISB_SEQ_NUM < 91 THEN
1289: fnd_message.set_name('IGF','IGF_SL_COD_SCHL_ADJ');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get);
1291: ELSIF l_dl_db_resp.DISB_SEQ_NUM < 100 THEN
1292: fnd_message.set_name('IGF','IGF_SL_COD_GEN_DISB');
1293: fnd_file.put_line(fnd_file.log,fnd_message.get);
1294: END IF;
1295:
1296: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_AMT')||':' ||l_dl_db_resp.DISB_AMT);
1289: fnd_message.set_name('IGF','IGF_SL_COD_SCHL_ADJ');
1290: fnd_file.put_line(fnd_file.log,fnd_message.get);
1291: ELSIF l_dl_db_resp.DISB_SEQ_NUM < 100 THEN
1292: fnd_message.set_name('IGF','IGF_SL_COD_GEN_DISB');
1293: fnd_file.put_line(fnd_file.log,fnd_message.get);
1294: END IF;
1295:
1296: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_AMT')||':' ||l_dl_db_resp.DISB_AMT);
1297: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_DT')||':' ||l_dl_db_resp.DISB_DATE);
1355: END LOOP; -- DL AWARDS LOOP
1356:
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1360: fnd_message.set_token('NAME','igf_sl_upload_xml.process_dl_records');
1361: igs_ge_msg_stack.add;
1362: app_exception.raise_exception;
1363: END process_dl_records;
1356:
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1360: fnd_message.set_token('NAME','igf_sl_upload_xml.process_dl_records');
1361: igs_ge_msg_stack.add;
1362: app_exception.raise_exception;
1363: END process_dl_records;
1364:
1455:
1456:
1457:
1458: IF l_pell_rec.origination_id IS NULL THEN
1459: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1460: fnd_file.put_line(fnd_file.log,fnd_message.get);
1461:
1462: -- Update the status to 'N' - Processed, Not found in the System
1463: UPDATE IGF_GR_RESP_DTLS
1456:
1457:
1458: IF l_pell_rec.origination_id IS NULL THEN
1459: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1460: fnd_file.put_line(fnd_file.log,fnd_message.get);
1461:
1462: -- Update the status to 'N' - Processed, Not found in the System
1463: UPDATE IGF_GR_RESP_DTLS
1464: SET STATUS_CODE = 'N'
1597: -- update the status_code = 'P' in IGF_GR_DB_RESP_DTLS
1598: IF l_pell_db_resp.disb_seq_num < 66 THEN
1599: IF l_tbh_disb.disb_seq_num IS NULL THEN
1600: -- disbursement record not found in the system. Log a mesg.
1601: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1602: fnd_file.put_line(fnd_file.log,fnd_message.get);
1603:
1604: UPDATE IGF_GR_DB_RESP_DTLS
1605: SET status_code = 'N'
1598: IF l_pell_db_resp.disb_seq_num < 66 THEN
1599: IF l_tbh_disb.disb_seq_num IS NULL THEN
1600: -- disbursement record not found in the system. Log a mesg.
1601: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1602: fnd_file.put_line(fnd_file.log,fnd_message.get);
1603:
1604: UPDATE IGF_GR_DB_RESP_DTLS
1605: SET status_code = 'N'
1606: WHERE DISB_RESP_ID = l_pell_db_resp.DISB_RESP_ID;
1618: print_edits(l_pell_db_resp.DISB_RESP_ID,'PELL_DB');
1619: IF l_pell_db_resp.disb_seq_num < 66 THEN
1620: IF l_tbh_disb.disb_seq_num IS NULL THEN
1621: -- disbursement record not found in the system. Log a mesg.
1622: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1623: fnd_file.put_line(fnd_file.log,fnd_message.get);
1624:
1625: -- update the status to 'N' - Processed, Not found in the System
1626: UPDATE IGF_GR_DB_RESP_DTLS
1619: IF l_pell_db_resp.disb_seq_num < 66 THEN
1620: IF l_tbh_disb.disb_seq_num IS NULL THEN
1621: -- disbursement record not found in the system. Log a mesg.
1622: fnd_message.set_name('IGF','IGF_SL_COD_SKIP');
1623: fnd_file.put_line(fnd_file.log,fnd_message.get);
1624:
1625: -- update the status to 'N' - Processed, Not found in the System
1626: UPDATE IGF_GR_DB_RESP_DTLS
1627: SET STATUS_CODE = 'N'
1663: ELSE -- implies disb_seq_num > 65
1664: /* Print Disbursement Amount, Disbursement Date, Previous Disbursement Sequence Number
1665: and print a message -(School would have to adjust the disbursement amount as per the COD generated adjustment)
1666: Update the status_code = 'P' in IGF_GR_DB_RESP_DTLS. */ --dont
1667: fnd_message.set_name('IGF','IGF_SL_COD_SCHL_ADJ');
1668: fnd_file.put_line(fnd_file.log,fnd_message.get);
1669: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_AMT')||':' ||l_pell_db_resp.DISB_AMT);
1670: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_DT')||':' ||l_pell_db_resp.DISB_DATE);
1671: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_PRV_SEQ_NUM')||':' ||l_pell_db_resp.PREV_SEQ_NUM);
1664: /* Print Disbursement Amount, Disbursement Date, Previous Disbursement Sequence Number
1665: and print a message -(School would have to adjust the disbursement amount as per the COD generated adjustment)
1666: Update the status_code = 'P' in IGF_GR_DB_RESP_DTLS. */ --dont
1667: fnd_message.set_name('IGF','IGF_SL_COD_SCHL_ADJ');
1668: fnd_file.put_line(fnd_file.log,fnd_message.get);
1669: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_AMT')||':' ||l_pell_db_resp.DISB_AMT);
1670: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_DB_DT')||':' ||l_pell_db_resp.DISB_DATE);
1671: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_VAL_PRV_SEQ_NUM')||':' ||l_pell_db_resp.PREV_SEQ_NUM);
1672:
1728: END LOOP; -- PELL AWARDS LOOP
1729:
1730: EXCEPTION
1731: WHEN OTHERS THEN
1732: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1733: fnd_message.set_token('NAME','igf_sl_upload_xml.process_pell_records');
1734: igs_ge_msg_stack.add;
1735: app_exception.raise_exception;
1736: END process_pell_records;
1729:
1730: EXCEPTION
1731: WHEN OTHERS THEN
1732: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
1733: fnd_message.set_token('NAME','igf_sl_upload_xml.process_pell_records');
1734: igs_ge_msg_stack.add;
1735: app_exception.raise_exception;
1736: END process_pell_records;
1737:
1840: OPEN chk_doc(p_doc_id);
1841: FETCH chk_doc INTO l_chk_doc;
1842: CLOSE chk_doc;
1843: IF l_chk_doc.document_id_txt IS NULL THEN
1844: fnd_message.set_name('IGF','IGF_SL_COD_INV_DOCID');
1845: fnd_file.put_line(fnd_file.log,fnd_message.get);
1846: RETURN;
1847: END IF;
1848:
1841: FETCH chk_doc INTO l_chk_doc;
1842: CLOSE chk_doc;
1843: IF l_chk_doc.document_id_txt IS NULL THEN
1844: fnd_message.set_name('IGF','IGF_SL_COD_INV_DOCID');
1845: fnd_file.put_line(fnd_file.log,fnd_message.get);
1846: RETURN;
1847: END IF;
1848:
1849: -- set the global doc id
1955: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_upload_xml.main_response.debug','RECEIPT_DATE is ' || l_get_cr_resp.RECEIPT_DATE);
1956: END IF;
1957: IF l_get_cr_resp.RECEIPT_DATE IS NOT NULL THEN
1958: fnd_file.put_line(fnd_file.log,'receipt date is not null');
1959: fnd_message.set_name('IGF','IGF_SL_NOT_PRC_RECEIPT_DOC');
1960: fnd_file.put_line(fnd_file.log,fnd_message.get);
1961: -- delete data from resp tables as well as from temp table(IGF_SL_COD_TEMP)
1962: rollback_resp_tables();
1963: RETURN;
1956: END IF;
1957: IF l_get_cr_resp.RECEIPT_DATE IS NOT NULL THEN
1958: fnd_file.put_line(fnd_file.log,'receipt date is not null');
1959: fnd_message.set_name('IGF','IGF_SL_NOT_PRC_RECEIPT_DOC');
1960: fnd_file.put_line(fnd_file.log,fnd_message.get);
1961: -- delete data from resp tables as well as from temp table(IGF_SL_COD_TEMP)
1962: rollback_resp_tables();
1963: RETURN;
1964: END IF;
1967: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
1968: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_upload_xml.main_response.debug','Checking destination entity id(' || l_get_cr_resp.dest_entity_id_txt || ')');
1969: END IF;
1970: IF NOT check_entityid(l_get_cr_resp.DEST_ENTITY_ID_TXT) THEN
1971: fnd_message.set_name('IGF','IGF_SL_COD_INV_DEST_ID');
1972: fnd_message.set_token('DEST_ENTITY_ID',l_get_cr_resp.DEST_ENTITY_ID_TXT);
1973: fnd_file.put_line(fnd_file.log,fnd_message.get);
1974:
1975: -- update the IGF_SL_COD_DOC_DTLS table with the status = 'E'
1968: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_upload_xml.main_response.debug','Checking destination entity id(' || l_get_cr_resp.dest_entity_id_txt || ')');
1969: END IF;
1970: IF NOT check_entityid(l_get_cr_resp.DEST_ENTITY_ID_TXT) THEN
1971: fnd_message.set_name('IGF','IGF_SL_COD_INV_DEST_ID');
1972: fnd_message.set_token('DEST_ENTITY_ID',l_get_cr_resp.DEST_ENTITY_ID_TXT);
1973: fnd_file.put_line(fnd_file.log,fnd_message.get);
1974:
1975: -- update the IGF_SL_COD_DOC_DTLS table with the status = 'E'
1976: update_xml_document(l_chk_doc, 'E');
1969: END IF;
1970: IF NOT check_entityid(l_get_cr_resp.DEST_ENTITY_ID_TXT) THEN
1971: fnd_message.set_name('IGF','IGF_SL_COD_INV_DEST_ID');
1972: fnd_message.set_token('DEST_ENTITY_ID',l_get_cr_resp.DEST_ENTITY_ID_TXT);
1973: fnd_file.put_line(fnd_file.log,fnd_message.get);
1974:
1975: -- update the IGF_SL_COD_DOC_DTLS table with the status = 'E'
1976: update_xml_document(l_chk_doc, 'E');
1977: -- delete data from resp tables as well as from temp table(IGF_SL_COD_TEMP)
1981:
1982: -- Rest of the processing is to be done if this is not a receipt document.
1983: IF l_get_cr_resp.RECEIPT_DATE IS NULL THEN
1984: IF l_get_cr_resp.FULL_RESP_CODE NOT IN ('F','S','M','N') THEN
1985: fnd_message.set_name('IGF','IGF_SL_COD_INV_RES_CODE');
1986: fnd_file.put_line(fnd_file.log,fnd_message.get);
1987:
1988: -- update the IGF_SL_COD_DOC_DTLS table with the status = 'F';
1989: update_xml_document(l_chk_doc, 'F');
1982: -- Rest of the processing is to be done if this is not a receipt document.
1983: IF l_get_cr_resp.RECEIPT_DATE IS NULL THEN
1984: IF l_get_cr_resp.FULL_RESP_CODE NOT IN ('F','S','M','N') THEN
1985: fnd_message.set_name('IGF','IGF_SL_COD_INV_RES_CODE');
1986: fnd_file.put_line(fnd_file.log,fnd_message.get);
1987:
1988: -- update the IGF_SL_COD_DOC_DTLS table with the status = 'F';
1989: update_xml_document(l_chk_doc, 'F');
1990: -- delete data from resp tables as well as from temp table(IGF_SL_COD_TEMP)
2031: fnd_file.put_line(fnd_file.OUTPUT,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RS_ENT_ID')|| ':'|| l_rs_resp.REP_ENTITY_ID_TXT);
2032: fnd_file.put_line(fnd_file.OUTPUT,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_ST')|| ':'|| l_rs_resp.RESP_CODE);
2033:
2034: IF NOT check_entityid(l_rs_resp.REP_ENTITY_ID_TXT) THEN
2035: fnd_message.set_name('IGF','IGF_SL_COD_INV_REPENTITY_ID');
2036: fnd_message.set_token('REPT_ENTITY_ID',l_rs_resp.REP_ENTITY_ID_TXT);
2037: fnd_file.put_line(fnd_file.log,fnd_message.get);
2038: -- skip the processing for this reporting school
2039: ELSE
2032: fnd_file.put_line(fnd_file.OUTPUT,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_ST')|| ':'|| l_rs_resp.RESP_CODE);
2033:
2034: IF NOT check_entityid(l_rs_resp.REP_ENTITY_ID_TXT) THEN
2035: fnd_message.set_name('IGF','IGF_SL_COD_INV_REPENTITY_ID');
2036: fnd_message.set_token('REPT_ENTITY_ID',l_rs_resp.REP_ENTITY_ID_TXT);
2037: fnd_file.put_line(fnd_file.log,fnd_message.get);
2038: -- skip the processing for this reporting school
2039: ELSE
2040: print_edits(l_rs_resp.REP_SCHL_RESP_ID,'RS');
2033:
2034: IF NOT check_entityid(l_rs_resp.REP_ENTITY_ID_TXT) THEN
2035: fnd_message.set_name('IGF','IGF_SL_COD_INV_REPENTITY_ID');
2036: fnd_message.set_token('REPT_ENTITY_ID',l_rs_resp.REP_ENTITY_ID_TXT);
2037: fnd_file.put_line(fnd_file.log,fnd_message.get);
2038: -- skip the processing for this reporting school
2039: ELSE
2040: print_edits(l_rs_resp.REP_SCHL_RESP_ID,'RS');
2041:
2092: fnd_file.put_line(fnd_file.OUTPUT,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','AS_ENT_ID')|| ':'|| l_as_resp.ATD_ENTITY_ID_TXT);
2093: fnd_file.put_line(fnd_file.OUTPUT,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_ST')|| ':'|| l_as_resp.RESP_CODE);
2094:
2095: IF NOT check_entityid(l_as_resp.ATD_ENTITY_ID_TXT) THEN
2096: fnd_message.set_name('IGF','IGF_SL_COD_INV_ATDENTITY_ID');
2097: fnd_message.set_token('ATTD_ENTITY_ID',l_as_resp.ATD_ENTITY_ID_TXT);
2098: fnd_file.put_line(fnd_file.log,fnd_message.get);
2099: -- skip the processing for this attending school
2100: ELSE
2093: fnd_file.put_line(fnd_file.OUTPUT,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','RESP_ST')|| ':'|| l_as_resp.RESP_CODE);
2094:
2095: IF NOT check_entityid(l_as_resp.ATD_ENTITY_ID_TXT) THEN
2096: fnd_message.set_name('IGF','IGF_SL_COD_INV_ATDENTITY_ID');
2097: fnd_message.set_token('ATTD_ENTITY_ID',l_as_resp.ATD_ENTITY_ID_TXT);
2098: fnd_file.put_line(fnd_file.log,fnd_message.get);
2099: -- skip the processing for this attending school
2100: ELSE
2101: print_edits(l_as_resp.ATD_SCHL_RESP_ID,'AS');
2094:
2095: IF NOT check_entityid(l_as_resp.ATD_ENTITY_ID_TXT) THEN
2096: fnd_message.set_name('IGF','IGF_SL_COD_INV_ATDENTITY_ID');
2097: fnd_message.set_token('ATTD_ENTITY_ID',l_as_resp.ATD_ENTITY_ID_TXT);
2098: fnd_file.put_line(fnd_file.log,fnd_message.get);
2099: -- skip the processing for this attending school
2100: ELSE
2101: print_edits(l_as_resp.ATD_SCHL_RESP_ID,'AS');
2102:
2424: EXCEPTION
2425: WHEN OTHERS THEN
2426: ROLLBACK;
2427: retcode := 2;
2428: errbuf := fnd_message.get_string('IGS','IGS_GE_UNHANDLED_EXCEPTION');
2429: fnd_file.put_line(fnd_file.log, SQLERRM);
2430: IF fnd_log.level_statement >= fnd_log.g_current_runtime_level THEN
2431: fnd_log.string(fnd_log.level_statement,'igf.plsql.igf_sl_upload_xml.main_response.debug','sqlerrm ' || SQLERRM);
2432: END IF;
2595: END IF;
2596: CLOSE cur_cod_temp;
2597: EXCEPTION
2598: WHEN IGFSL26_XMLGW_RS_REC_NOT_FOUND THEN
2599: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2600: fnd_message.set_token('NAME','igf_sl_upload_xml.update_rs_respcode');
2601: igs_ge_msg_stack.add;
2602: app_exception.raise_exception;
2603: WHEN OTHERS THEN
2596: CLOSE cur_cod_temp;
2597: EXCEPTION
2598: WHEN IGFSL26_XMLGW_RS_REC_NOT_FOUND THEN
2599: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2600: fnd_message.set_token('NAME','igf_sl_upload_xml.update_rs_respcode');
2601: igs_ge_msg_stack.add;
2602: app_exception.raise_exception;
2603: WHEN OTHERS THEN
2604: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2600: fnd_message.set_token('NAME','igf_sl_upload_xml.update_rs_respcode');
2601: igs_ge_msg_stack.add;
2602: app_exception.raise_exception;
2603: WHEN OTHERS THEN
2604: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2605: fnd_message.set_token('NAME','igf_sl_upload_xml.update_rs_respcode');
2606: igs_ge_msg_stack.add;
2607: app_exception.raise_exception;
2608: END update_rs_respcode;
2601: igs_ge_msg_stack.add;
2602: app_exception.raise_exception;
2603: WHEN OTHERS THEN
2604: fnd_message.set_name('IGF','IGF_GE_UNHANDLED_EXP');
2605: fnd_message.set_token('NAME','igf_sl_upload_xml.update_rs_respcode');
2606: igs_ge_msg_stack.add;
2607: app_exception.raise_exception;
2608: END update_rs_respcode;
2609: