[Home] [Help]
969: || 'X' to exclude loan_clearing
970: ||
971: || Return value: x_distribution_tbl distribution table set to write to database
972: ||
973: || Source Tables: lns_default_distribs
974: ||
975: || Target Tables: NA
976: ||
977: || KNOWN ISSUES
1083:
1084: cursor c_num_receivables(p_loan_class varchar2, p_loan_type_id number)
1085: is
1086: select count(1)
1087: from lns_default_distribs
1088: where loan_class = p_loan_class
1089: AND loan_type_id = p_loan_type_id
1090: and account_name = 'LOAN_RECEIVABLE'
1091: and distribution_type = 'ORIGINATION'
1093:
1094: cursor c_num_payables(p_loan_class varchar2, p_loan_type_id number)
1095: is
1096: select count(1)
1097: from lns_default_distribs
1098: where loan_class = p_loan_class
1099: AND loan_type_id = p_loan_type_id
1100: and account_name = 'LOAN_PAYABLE'
1101: and distribution_type = 'FUNDING'
1169: -- now see if any default distributions exist for this loan
1170: -- 2-24-2005 raverma -- add loan_payable IF loan_class = DIRECT OR
1171: -- loan is not MFAR
1172: -- Bug#5295575 Modified the query to work for an organization instead
1173: -- of working for all organzations by replacing lns_default_distribs_all
1174: -- with lns_default_distribs table
1175:
1176:
1177: Begin
1170: -- 2-24-2005 raverma -- add loan_payable IF loan_class = DIRECT OR
1171: -- loan is not MFAR
1172: -- Bug#5295575 Modified the query to work for an organization instead
1173: -- of working for all organzations by replacing lns_default_distribs_all
1174: -- with lns_default_distribs table
1175:
1176:
1177: Begin
1178: vPLSQL := 'SELECT d.line_type ' ||
1185: ' ,d.award_id ' ||
1186: ' ,d.task_id ' ||
1187: ' ,d.expenditure_type ' ||
1188: ' ,d.expenditure_item_date ' ||
1189: 'FROM lns_default_distribs d ' ||
1190: 'WHERE ((d.loan_class = :p_loan_class_code AND d.loan_type_id = :p_loan_type_id) ) ' ||
1191: ' AND account_name IN (''PRINCIPAL_RECEIVABLE'', ''INTEREST_RECEIVABLE'', ''INTEREST_INCOME'' ';
1192:
1193: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'include receivabvles ' || p_include_loan_receivables);
1583:
1584: -- this is cursor is for reading configuration for multi-fund swap natural account
1585: cursor c_mfar_nat_acct (p_loan_id number) is
1586: select MFAR_NATURAL_ACCOUNT_REC
1587: from lns_default_distribs_all d
1588: ,lns_loan_headers_all h
1589: where account_name = 'MFAR_FUND_ACCOUNT_CHANGE'
1590: and h.loan_id = p_loan_id
1591: and h.loan_class_code = d.loan_class
1685: for n in 1..l_num_segments loop
1686: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'seg#' || n || ' = ' || l_original_segments(n));
1687: end loop;
1688:
1689: -- get the replacement accounts from lns_default_distribs
1690: FOR n IN 1..l_num_segments LOOP
1691: IF (n = p_swap_segment_number) THEN
1692: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'found the account to swap = ' || l_original_segments(n));
1693: l_new_segments(n) := p_swap_segment_value;
1769:
1770: -- gets the swap natural account value for LOAN_RECEIVABLE
1771: cursor c_mfar_nat_acct (p_loan_id number) is
1772: select MFAR_NATURAL_ACCOUNT_REC
1773: from lns_default_distribs d
1774: ,lns_loan_headers h
1775: where account_name = 'MFAR_FUND_ACCOUNT_CHANGE'
1776: and h.loan_id = p_loan_id
1777: and h.loan_class_code = d.loan_class
1915: ,TASK_ID
1916: ,AWARD_ID
1917: ,EXPENDITURE_TYPE
1918: ,EXPENDITURE_ITEM_DATE
1919: from lns_default_distribs
1920: where loan_class = p_loan_class
1921: and loan_type_id = p_loan_type_id
1922: and account_type = p_acct_type
1923: and account_name = p_acct_name