[Home] [Help]
107: DELETE IGF_SL_DLDB_RSP_DTL WHERE DISB_RESP_ID = l_temp.REC_ID;
108: ELSIF l_temp.LEVEL_CODE = 'PELL' THEN
109: DELETE IGF_GR_RESP_DTLS WHERE PELL_RESP_ID = l_temp.REC_ID;
110: ELSIF l_temp.LEVEL_CODE = 'PELL_DB' THEN
111: DELETE IGF_GR_DB_RESP_DTLS WHERE DISB_RESP_ID = l_temp.REC_ID;
112: ELSIF l_temp.LEVEL_CODE = 'DL_INFO' THEN
113: DELETE IGF_SL_DI_RESP_DTLS WHERE DL_INFO_ID = l_temp.REC_ID;
114: END IF;
115: END LOOP;
1377: AND NVL(STATUS_CODE, '*') <> 'P';
1378:
1379: CURSOR get_pell_db_resp (cp_pell_id NUMBER) IS
1380: SELECT *
1381: FROM IGF_GR_DB_RESP_DTLS
1382: WHERE PELL_RESP_ID = cp_pell_id
1383: AND NVL(STATUS_CODE, '*') <> 'P';
1384:
1385: CURSOR get_pell_rec ( cp_ssn VARCHAR2,
1593:
1594: update_flag := FALSE;
1595: IF p_rej_flg = TRUE OR l_pell_db_resp.RESP_CODE = 'R' THEN
1596: -- update the table IGF_AW_DB_COD_DTLS with DISB_STATUS = 'R' , IGF_AW_DB_CHG_DTLS DISB_STATUS = 'R'
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');
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;
1607: update_flag := FALSE;
1608: ELSE
1607: update_flag := FALSE;
1608: ELSE
1609: l_tbh_disb.DISB_STATUS := 'R';
1610: --l_tbh_disb1.DISB_STATUS := 'R';
1611: UPDATE IGF_GR_DB_RESP_DTLS
1612: SET status_code = 'P'
1613: WHERE DISB_RESP_ID = l_pell_db_resp.DISB_RESP_ID;
1614: update_flag := TRUE;
1615: END IF;
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'
1628: WHERE DISB_RESP_ID = l_pell_db_resp.DISB_RESP_ID;
1629: update_flag := FALSE;
1630: ELSE
1633: existing logic. Call the wrapper igf_gr_gen.insert_sys_holds(rec_award.award_id,rec_disb_orig.disb_ref_num,'PELL');
1634: Update the disb_status = resp_code in table IGF_AW_DB_CHG_DTLS
1635: Also print in the log file, Payment Period Start Date if present and update it in the table
1636: IGF_AW_DISB_COD_DTLS and IGF_AW_DB_CHG_DTLS.
1637: Update the status_code = 'P' in IGF_GR_DB_RESP_DTLS*/ --dont
1638:
1639: IF l_pell_db_rec.DISB_ACCEPTED_AMT <> l_pell_db_resp.disb_amt THEN
1640: fnd_file.put_line(fnd_file.log,igf_aw_gen.lookup_desc('IGF_SL_COD_XML_TAGS','SYS_VAL_DB_AMT')||':' ||l_pell_db_rec.DISB_ACCEPTED_AMT);
1641: 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);
1654: --l_tbh_disb1.DISB_STATUS := l_pell_db_resp.RESP_CODE;
1655: l_tbh_disb1.PYMNT_PER_START_DATE := l_pell_db_resp.PYMNT_PER_START_DATE;
1656: --l_tbh_disb1.PREV_SEQ_NUM := l_pell_db_resp.PREV_SEQ_NUM;
1657:
1658: UPDATE IGF_GR_DB_RESP_DTLS
1659: SET STATUS_CODE = 'P'
1660: WHERE DISB_RESP_ID = l_pell_db_resp.DISB_RESP_ID;
1661: update_flag := TRUE;
1662: END IF;
1662: END IF;
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);
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:
1673: UPDATE IGF_GR_DB_RESP_DTLS
1674: SET STATUS_CODE = 'P'
1675: WHERE DISB_RESP_ID = l_pell_db_resp.DISB_RESP_ID;
1676: update_flag := FALSE;
1677: END IF;
1911: CPS_VERIF_FLAG = l_temp.CPS_VERIF_FLAG,
1912: HIGH_CPS_TRANS_NUM = l_temp.HIGH_CPS_TRANS_NUM
1913: WHERE PELL_RESP_ID = l_temp.REC_ID;
1914: ELSIF l_temp.LEVEL_CODE = 'PELL_DB' THEN
1915: UPDATE IGF_GR_DB_RESP_DTLS
1916: SET RESP_CODE = l_temp.RESP_CODE,
1917: PREV_SEQ_NUM = l_temp.PREV_SEQ_NUM
1918: WHERE DISB_RESP_ID = l_temp.REC_ID;
1919: ELSIF l_temp.LEVEL_CODE = 'DL_INFO' THEN