[Home] [Help]
348: BEGIN
349: fnd_message.set_name('IGS','IGS_FI_CRD_INT_ALL_PARAMETER');
350: fnd_message.set_token('PARM_TYPE',p_msg_name);
351: fnd_message.set_token('PARM_CODE' ,p_msg_val);
352: fnd_file.put_line(fnd_file.log,fnd_message.get);
353: END log_messages ;
354:
355:
356:
1336: p_d_gl_date => p_d_gl_date
1337: );
1338: IF l_ref_err_msg IS NOT NULL THEN
1339: fnd_message.set_name('IGS',l_ref_err_msg);
1340: fnd_file.put_line(fnd_file.log,fnd_message.get);
1341: END IF;
1342: END IF;
1343: EXCEPTION
1344: WHEN OTHERS THEN
1341: END IF;
1342: END IF;
1343: EXCEPTION
1344: WHEN OTHERS THEN
1345: fnd_file.put_line(fnd_file.log,fnd_message.get_string('IGF','IGF_DB_REFUND_NOT_CREATE'));
1346: END;
1347: END IF;
1348:
1349: --If the above update fails then rollback the entire transaction else commit
1362: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','PERSON_NUMBER'),l_cur_person.person_number);
1363: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','DISBURSEMENT_DATE'),p_rec_disb.disb_date);
1364: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','DISB_AMOUNT'),p_rec_disb.amount);
1365: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','STATUS'),l_log_status);
1366: fnd_file.put_line(fnd_file.LOG,' ' || l_error_desc );
1367: -- Log any messages due to failure to release holds, provided its not already logged as l_error_desc
1368: IF (l_v_holds_message IS NOT NULL) AND (l_v_holds_message <> NVL(l_error_desc,'NULL'))THEN
1369: fnd_file.put_line(fnd_file.LOG,' ' || l_v_holds_message );
1370: END IF;
1365: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','STATUS'),l_log_status);
1366: fnd_file.put_line(fnd_file.LOG,' ' || l_error_desc );
1367: -- Log any messages due to failure to release holds, provided its not already logged as l_error_desc
1368: IF (l_v_holds_message IS NOT NULL) AND (l_v_holds_message <> NVL(l_error_desc,'NULL'))THEN
1369: fnd_file.put_line(fnd_file.LOG,' ' || l_v_holds_message );
1370: END IF;
1371: fnd_file.put_line(fnd_file.log, ' ');
1372:
1373: END main_disbursement;
1367: -- Log any messages due to failure to release holds, provided its not already logged as l_error_desc
1368: IF (l_v_holds_message IS NOT NULL) AND (l_v_holds_message <> NVL(l_error_desc,'NULL'))THEN
1369: fnd_file.put_line(fnd_file.LOG,' ' || l_v_holds_message );
1370: END IF;
1371: fnd_file.put_line(fnd_file.log, ' ');
1372:
1373: END main_disbursement;
1374:
1375: PROCEDURE transfer_disb_dtls_to_sf(
1525: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','PERSON_GROUP'),igs_fi_gen_005.finp_get_prsid_grp_code(p_person_group_id));
1526: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','FUND_CODE'),l_cur_fund.fund_code);
1527: log_messages(lookup_desc('IGF_AW_LOOKUPS_MSG','TERM'),l_ld_cal_type||' '||l_ld_sequence_number);
1528: log_messages(igs_fi_gen_gl.get_lkp_meaning('IGS_FI_LOCKBOX','GL_DATE'),l_d_gl_date);
1529: fnd_file.put_line(fnd_file.log,' ');
1530:
1531: -- Get the value of "Manage Accounts" System Option value.
1532: -- If this value is NULL then this process should error out.
1533: igs_fi_com_rec_interface.chk_manage_account ( p_v_manage_acc => l_v_manage_accounts,
1533: igs_fi_com_rec_interface.chk_manage_account ( p_v_manage_acc => l_v_manage_accounts,
1534: p_v_message_name => l_v_message_name );
1535: IF l_v_manage_accounts IS NULL THEN
1536: fnd_message.set_name ( 'IGS', l_v_message_name );
1537: fnd_file.put_line( fnd_file.LOG, fnd_message.get );
1538: RAISE l_exp_err_exception;
1539: END IF;
1540:
1541: IF p_term_calendar IS NOT NULL THEN
1544: IF (igs_fi_gen_001.finp_chk_lfci_reln( l_ld_cal_type,
1545: l_ld_sequence_number,
1546: 'LOAD')= 'FALSE') THEN
1547: fnd_message.set_name('IGS','IGS_FI_NO_RELN_EXISTS');
1548: fnd_file.put_line(fnd_file.log,fnd_message.get);
1549: RAISE l_exp_err_exception;
1550: END IF;
1551: END IF;
1552: -- End of modification Enh#2191470
1553:
1554: --Validating if all the mandatory parameter are passed
1555: IF (p_award_year IS NULL) THEN
1556: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
1557: fnd_file.put_line(fnd_file.log,fnd_message.get);
1558: RAISE l_exp_err_exception;
1559: END IF;
1560:
1561: --GL Date parameter is mandatory to this concurrent job, hence it is passed as null, error out NOCOPY the job.
1560:
1561: --GL Date parameter is mandatory to this concurrent job, hence it is passed as null, error out NOCOPY the job.
1562: IF p_d_gl_date IS NULL THEN
1563: fnd_message.set_name('IGS','IGS_FI_PARAMETER_NULL');
1564: fnd_file.put_line(fnd_file.log,fnd_message.get);
1565: RAISE l_exp_err_exception;
1566: END IF;
1567:
1568: --Getting cal type and sequence number
1571:
1572: --Validating award year
1573: IF NOT validate_award_year(l_cal_type,l_sequence_number) THEN
1574: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1575: fnd_file.put_line(fnd_file.log,fnd_message.get);
1576: RAISE l_exp_err_exception;
1577: END IF;
1578:
1579: l_v_message_name := NULL;
1589: fnd_message.set_name('IGF',l_v_message_name);
1590: ELSE
1591: fnd_message.set_name('IGS',l_v_message_name);
1592: END IF;
1593: fnd_file.put_line(fnd_file.log,fnd_message.get);
1594: RAISE l_exp_err_exception;
1595: END IF;
1596:
1597: --Validating person Id and person id group cannot be present at a same time
1596:
1597: --Validating person Id and person id group cannot be present at a same time
1598: IF p_base_id IS NOT NULL AND p_person_group_id IS NOT NULL THEN
1599: fnd_message.set_name('IGS','IGS_FI_PRS_OR_PRSIDGRP');
1600: fnd_file.put_line(fnd_file.log,fnd_message.get);
1601: RAISE l_exp_err_exception;
1602: END IF;
1603:
1604: --Validating person id group
1604: --Validating person id group
1605: IF p_person_group_id IS NOT NULL THEN
1606: IF NOT validate_persid_grp(p_person_group_id) THEN
1607: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1608: fnd_file.put_line(fnd_file.log,fnd_message.get);
1609: RAISE l_exp_err_exception;
1610: END IF;
1611: END IF;
1612:
1613: --Validating base_id
1614: IF p_base_id IS NOT NULL THEN
1615: IF NOT validate_base_id(p_base_id,l_cal_type,l_sequence_number) THEN
1616: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1617: fnd_file.put_line(fnd_file.log,fnd_message.get);
1618: RAISE l_exp_err_exception;
1619: END IF;
1620: END IF;
1621:
1622: --Validating fund_code
1623: IF p_fund_id IS NOT NULL THEN
1624: IF NOT validate_fund_id(p_fund_id,l_cal_type,l_sequence_number) THEN
1625: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
1626: fnd_file.put_line(fnd_file.log,fnd_message.get);
1627: RAISE l_exp_err_exception;
1628: END IF;
1629: END IF;
1630:
1634: p_v_message_name => l_v_message_name
1635: );
1636: IF l_v_message_name IS NOT NULL THEN
1637: fnd_message.set_name('IGS',l_v_message_name);
1638: fnd_file.put_line(fnd_file.log,fnd_message.get);
1639: RAISE l_exp_err_exception;
1640: END IF;
1641:
1642: --Error out the concurrent process if the GL Date is not a valid one.
1642: --Error out the concurrent process if the GL Date is not a valid one.
1643: IF l_v_closing_status IN ('C','N','W') THEN
1644: fnd_message.set_name('IGS','IGS_FI_INVALID_GL_DATE');
1645: fnd_message.set_token('GL_DATE',l_d_gl_date);
1646: fnd_file.put_line(fnd_file.log,fnd_message.get);
1647: RAISE l_exp_err_exception;
1648: END IF;
1649:
1650: l_v_message_name := NULL;
1654: p_v_message_name => l_v_message_name
1655: );
1656: IF l_v_message_name IS NOT NULL THEN
1657: fnd_message.set_name('IGS',l_v_message_name);
1658: fnd_file.put_line(fnd_file.log,fnd_message.get);
1659: RAISE l_exp_err_exception;
1660: END IF;
1661:
1662: --Check if the credit instrument - 'AID' is valid and active lookup code for the 'IGS_FI_CREDIT_INSTRUMENT' lookup type
1665: IF NOT igs_fi_crdapi_util.validate_igs_lkp( p_v_lookup_type => 'IGS_FI_CREDIT_INSTRUMENT',
1666: p_v_lookup_code => 'AID') THEN
1667: fnd_message.set_name('IGS','IGS_FI_CAPI_CRD_INSTR_NULL');
1668: fnd_message.set_token('CR_INSTR',igs_fi_gen_gl.get_lkp_meaning('IGS_FI_CREDIT_INSTRUMENT','AID'));
1669: fnd_file.put_line(fnd_file.log,fnd_message.get);
1670: RAISE l_exp_err_exception;
1671: END IF;
1672:
1673: --To check whether the profile value is set to a value of 'When Transfers are made to student finance' or not
1705:
1706: IF lv_locking_success = 'Y' THEN
1707: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1708: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1709: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1710: lv_locking_success := 'N' ;
1711: END IF;
1712: END IF;
1713:
1723: -- if the above call out returns an error status, the error message is logged in the
1724: -- log file and process errors out
1725: IF l_v_status <> 'S' THEN
1726: fnd_message.set_name('IGF','IGF_AP_INVALID_QUERY');
1727: fnd_file.put_line(fnd_file.log,fnd_message.get);
1728: RAISE l_exp_err_exception;
1729: END IF;
1730:
1731: --Bug #5021084. Passing Group ID if the group type is STATIC.
1767:
1768: IF lv_locking_success = 'Y' THEN
1769: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1770: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1771: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1772: lv_locking_success := 'N' ;
1773: END IF;
1774: END IF;
1775: END IF;
1791: l_d_gl_date);
1792: l_record_count := l_record_count + 1;
1793:
1794: IF g_print_msg IS NOT NULL AND lv_person_id<>l_rec_disb.person_id THEN
1795: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||g_print_msg);
1796: g_print_msg := NULL;
1797: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1798: END IF;
1799:
1793:
1794: IF g_print_msg IS NOT NULL AND lv_person_id<>l_rec_disb.person_id THEN
1795: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||g_print_msg);
1796: g_print_msg := NULL;
1797: FND_FILE.PUT_LINE(FND_FILE.LOG,' ');
1798: END IF;
1799:
1800: --lock COA at the student level
1801: IF lv_profile_value = 'TRANSFER' THEN
1812:
1813: IF lv_locking_success = 'Y' THEN
1814: fnd_message.set_name('IGF','IGF_AW_STUD_COA_LOCK');
1815: fnd_message.set_token('PERSON_NUM',igf_gr_gen.get_per_num (l_cur_base.base_id));
1816: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||fnd_message.get);
1817: lv_locking_success := 'N' ;
1818: END IF;
1819: END IF;
1820:
1826: END LOOP;
1827:
1828: --lock COA at the student level
1829: IF g_print_msg IS NOT NULL THEN
1830: fnd_file.put_line(fnd_file.log,RPAD(' ',10) ||g_print_msg);
1831: END IF;
1832:
1833: END IF;
1834:
1831: END IF;
1832:
1833: END IF;
1834:
1835: fnd_file.put_line(fnd_file.log,fnd_message.get_string('IGS','IGS_GE_TOTAL_REC_PROCESSED')||TO_CHAR(l_record_count));
1836:
1837: EXCEPTION
1838: WHEN l_exp_err_exception THEN
1839: retcode := 2;