The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_fee_assignment (
p_fee_assignment_rec IN OUT NOCOPY FEE_ASSIGNMENT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
PROCEDURE do_delete_fee_assignment (
p_fee_assignment_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
SELECT 'Y'
INTO l_dummy
FROM LNS_FEE_ASSIGNMENTS
WHERE fee_assignment_id = l_fee_assignment_id;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_fee_assignment procedure: Before call to LNS_FEE_ASSIGNMENTS_PKG.Insert_Row');
LNS_FEE_ASSIGNMENTS_PKG.Insert_Row (
X_FEE_ASSIGNMENT_ID => p_fee_assignment_rec.fee_assignment_id,
P_OBJECT_VERSION_NUMBER => 1,
P_LOAN_ID => p_fee_assignment_rec.loan_id,
P_FEE_ID => p_fee_assignment_rec.fee_id,
P_FEE => p_fee_assignment_rec.fee,
P_FEE_TYPE => p_fee_assignment_rec.fee_type,
P_FEE_BASIS => p_fee_assignment_rec.fee_basis,
P_NUMBER_GRACE_DAYS => p_fee_assignment_rec.number_grace_days,
P_START_DATE_ACTIVE => p_fee_assignment_rec.start_date_active,
P_END_DATE_ACTIVE => p_fee_assignment_rec.end_date_active,
P_CREATED_BY => p_fee_assignment_rec.created_by,
P_CREATION_DATE => p_fee_assignment_rec.creation_date,
P_LAST_UPDATED_BY => p_fee_assignment_rec.last_updated_by,
P_LAST_UPDATE_DATE => p_fee_assignment_rec.last_update_date,
P_LAST_UPDATE_LOGIN => p_fee_assignment_rec.last_update_login,
P_COLLECTED_THIRD_PARTY_FLAG => p_fee_assignment_rec.collected_third_party_flag,
P_RATE_TYPE => p_fee_assignment_rec.rate_type,
P_BEGIN_INSTALLMENT_NUMBER => p_fee_assignment_rec.begin_installment_number,
P_END_INSTALLMENT_NUMBER => p_fee_assignment_rec.end_installment_number,
P_NUMBER_OF_PAYMENTS => p_fee_assignment_rec.number_of_payments,
P_BILLING_OPTION => p_fee_assignment_rec.billing_option,
P_DISB_HEADER_ID => p_fee_assignment_rec.disb_header_id,
P_DELETE_DISABLED_FLAG => p_fee_assignment_rec.delete_disabled_flag
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_fee_assignment procedure: After call to LNS_FEE_ASSIGNMENT.Insert_Row');
| do_update_fee_assignment
|
| DESCRIPTION
| Updates assignment.
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/OUT:
| p_fee_assignment_rec
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
| 22-APR-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE do_update_fee_assignment(
p_fee_assignment_rec IN OUT NOCOPY FEE_ASSIGNMENT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_object_version_number NUMBER;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_update_fee_assignment procedure');
SELECT OBJECT_VERSION_NUMBER
INTO l_object_version_number
FROM LNS_FEE_ASSIGNMENTS
WHERE FEE_ASSIGNMENT_ID = p_fee_assignment_rec.fee_assignment_id
FOR UPDATE OF FEE_ASSIGNMENT_ID NOWAIT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_fee_assignment procedure: Before call to LNS_FEE_ASSIGNMENTS_PKG.Update_Row');
LNS_FEE_ASSIGNMENTS_PKG.Update_Row (
P_FEE_ASSIGNMENT_ID => p_fee_assignment_rec.fee_assignment_id,
P_LOAN_ID => p_fee_assignment_rec.LOAN_ID,
P_FEE_ID => p_fee_assignment_rec.FEE_ID,
P_FEE => p_fee_assignment_rec.FEE,
P_FEE_TYPE => p_fee_assignment_rec.fee_type,
P_FEE_BASIS => p_fee_assignment_rec.fee_basis,
P_NUMBER_GRACE_DAYS => p_fee_assignment_rec.NUMBER_GRACE_DAYS,
P_LAST_UPDATED_BY => null,
P_LAST_UPDATE_DATE => null,
P_LAST_UPDATE_LOGIN => null,
P_OBJECT_VERSION_NUMBER => p_OBJECT_VERSION_NUMBER,
P_COLLECTED_THIRD_PARTY_FLAG => p_fee_assignment_rec.collected_third_party_flag,
P_BILLING_OPTION => p_fee_assignment_rec.billing_option,
P_RATE_TYPE => p_fee_assignment_rec.rate_type,
P_BEGIN_INSTALLMENT_NUMBER => p_fee_assignment_rec.begin_installment_number,
P_END_INSTALLMENT_NUMBER => p_fee_assignment_rec.end_installment_number,
P_NUMBER_OF_PAYMENTS => p_fee_assignment_rec.number_of_payments,
P_START_DATE_ACTIVE => null,
P_END_DATE_ACTIVE => p_fee_assignment_rec.end_date_active,
P_DISB_HEADER_ID => p_fee_assignment_rec.disb_header_id,
P_DELETE_DISABLED_FLAG => p_fee_assignment_rec.delete_disabled_flag
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_fee_assignment procedure: After call to LNS_FEE_ASSIGNMENTS_PKG.Update_Row');
END do_update_fee_assignment;
| do_delete_fee_assignment
|
| DESCRIPTION
| Deletes assignment.
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/OUT:
| p_fee_assignment_id
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
| 22-APR-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE do_delete_fee_assignment(
p_fee_assignment_id NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_loan_id NUMBER;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_delete_fee_assignment procedure');
SELECT loan_id, fee_id, object_version_number
INTO l_loan_id, l_fee_id, l_object_version_num
FROM LNS_FEE_ASSIGNMENTS
WHERE FEE_ASSIGNMENT_ID = p_fee_assignment_id;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_fee_assignment procedure: Before call to LNS_FEE_ASSIGNMENTS_PKG.Delete_Row');
UPDATE LNS_FEE_ASSIGNMENTS
SET END_DATE_ACTIVE = SYSDATE
WHERE LOAN_ID = l_loan_id
AND FEE_ASSIGNMENT_ID = p_fee_assignment_id;
LNS_FEE_ASSIGNMENTS_PKG.Delete_Row(
P_FEE_ASSIGNMENT_ID => p_fee_assignment_id);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_fee_assignment procedure: After call to LNS_FEE_ASSIGNMENTS_PKG.Delete_Row');
END do_delete_fee_assignment;
| update_fee_assignment
|
| DESCRIPTION
| Updates assignment.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_fee_assignment_rec
| OUT:
| x_return_status
| x_msg_count
| x_msg_data
| IN/OUT:
| p_object_version_number
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
| 22-APR-2004 Bernice Lam Created
+===========================================================================*/
PROCEDURE update_fee_assignment (
p_init_msg_list IN VARCHAR2,
p_fee_assignment_rec IN FEE_ASSIGNMENT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'update_fee_assignment';
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Update_fee_assignment procedure');
SAVEPOINT update_fee_assignment;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_fee_assignment procedure: Before call to do_update_fee_assignment proc');
do_update_fee_assignment(
l_fee_assignment_rec,
p_object_version_number,
x_return_status
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_fee_assignment procedure: After call to do_update_fee_assignment proc');
ROLLBACK TO update_fee_assignment;
ROLLBACK TO update_fee_assignment;
ROLLBACK TO update_fee_assignment;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Update_fee_assignment procedure');
END update_fee_assignment;
| delete_fee_assignment
|
| DESCRIPTION
| Deletes assignment.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_fee_assignment_id
| OUT:
| x_return_status
| x_msg_count
| x_msg_data
| IN/OUT:
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
| 22-APR-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE delete_fee_assignment (
p_init_msg_list IN VARCHAR2,
p_fee_assignment_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_fee_assignment';
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Delete_fee_assignment procedure');
SAVEPOINT delete_fee_assignment;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_fee_assignment procedure: Before call to do_delete_fee_assignment proc');
do_delete_fee_assignment(
l_fee_assignment_id,
x_return_status
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_fee_assignment procedure: After call to do_delete_fee_assignment proc');
ROLLBACK TO delete_fee_assignment;
ROLLBACK TO delete_fee_assignment;
ROLLBACK TO delete_fee_assignment;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Delete_fee_assignment procedure');
END delete_fee_assignment;
SELECT 'X' FROM DUAL
WHERE EXISTS ( SELECT NULL FROM LNS_FEE_ASSIGNMENTS
WHERE FEE_ID = X_FEE_ID )
OR EXISTS ( SELECT NULL FROM LNS_LOAN_PRODUCT_LINES
WHERE LINE_REFERENCE_ID = X_FEE_ID
AND ( LOAN_PRODUCT_LINE_TYPE = 'FEE' OR LOAN_PRODUCT_LINE_TYPE='DISB_FEE' )
);
select LNS_FEE_ASSIGNMENTS_S.NEXTVAL FEE_ASSIGNMENT_ID,
LnsLoanHeaders.LOAN_ID,
LnsFees.FEE_ID,
decode(LnsFees.RATE_TYPE,'VARIABLE', lns_fee_engine.calculateFee(LnsFees.FEE_ID,LnsLoanHeaders.LOAN_ID) , LnsFees.FEE) FEE,
LnsFees.FEE_TYPE,
LnsFees.FEE_BASIS,
LnsFees.NUMBER_GRACE_DAYS,
LnsFees.COLLECTED_THIRD_PARTY_FLAG,
LnsFees.RATE_TYPE,
decode(LnsFees.BILLING_OPTION,'ORIGINATION',0,
'BILL_WITH_INSTALLMENT',1,
(decode(LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT(LnsLoanHeaders.LOAN_ID) ,
-1 , 0 , LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT(LnsLoanHeaders.LOAN_ID)) + 1 )
) BEGIN_INSTALLMENT_NUMBER,
decode(LnsFees.BILLING_OPTION,'ORIGINATION',0,
'BILL_WITH_INSTALLMENT',1,
lns_fin_utils.getnumberinstallments(LnsLoanHeaders.LOAN_ID)) END_INSTALLMENT_NUMBER,
NULL NUMBER_OF_PAYMENTS,
LnsFees.BILLING_OPTION,
NULL CREATED_BY,
NULL CREATION_DATE,
NULL LAST_UPDATED_BY,
NULL LAST_UPDATE_DATE,
NULL LAST_UPDATE_LOGIN,
1 OBJECT_VERSION_NUMBER,
sysdate START_DATE_ACTIVE,
NULL END_DATE_ACTIVE,
NULL DISB_HEADER_ID,
LnsLoanProductLines.MANDATORY_FLAG
FROM LNS_FEES LnsFees ,
LNS_LOAN_HEADERS LnsLoanHeaders ,
LNS_LOAN_PRODUCT_LINES LnsLoanProductLines
WHERE LnsLoanHeaders.LOAN_ID = c_loan_id
AND LnsLoanHeaders.PRODUCT_ID = LnsLoanProductLines.LOAN_PRODUCT_ID
AND LnsLoanProductLines.LOAN_PRODUCT_LINE_TYPE = 'FEE'
AND LnsLoanProductLines.LINE_REFERENCE_ID = LnsFees.FEE_ID ;
SELECT LINE_TYPE, ACCOUNT_NAME, CODE_COMBINATION_ID, ACCOUNT_TYPE, DISTRIBUTION_PERCENT, DISTRIBUTION_TYPE
FROM LNS_DEFAULT_DISTRIBS
WHERE ACCOUNT_NAME = 'FEE_RECEIVABLE' OR FEE_ID = c_fee_id ;
SELECT LOAN_STATUS , CURRENT_PHASE
FROM LNS_LOAN_HEADERS LnsLoanHeaders
WHERE LnsLoanHeaders.LOAN_ID = c_loan_id ;
SELECT 'Y'
FROM DUAL
WHERE
EXISTS
(SELECT NULL FROM LNS_FEE_ASSIGNMENTS LnsFeeAssignments
WHERE LnsFeeAssignments.LOAN_ID = c_loan_id)
OR EXISTS
(SELECT NULL FROM LNS_LOAN_HISTORIES_H
WHERE TABLE_NAME = 'LNS_FEE_ASSIGNMENTS' AND LOAN_ID = c_loan_id) ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In create_LP_FEE_ASSIGNMENT procedure: Before inserting to lns_distributions record for accountint name '||l_account_name || ' and code comb id ' || l_code_combination_id);
Insert into lns_distributions
(DISTRIBUTION_ID
,LOAN_ID
,LINE_TYPE
,ACCOUNT_NAME
,CODE_COMBINATION_ID
,ACCOUNT_TYPE
,DISTRIBUTION_PERCENT
,DISTRIBUTION_TYPE
,FEE_ID
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,OBJECT_VERSION_NUMBER )
values
(LNS_DISTRIBUTIONS_S.nextval
,p_loan_id
,l_line_type
,l_account_name
,l_code_combination_id
,l_account_type
,l_distribution_percent
,l_distribution_type
,l_fee_assignment_rec.fee_id
,lns_utility_pub.creation_date
,lns_utility_pub.created_by
,lns_utility_pub.last_update_date
,lns_utility_pub.last_updated_by
,1) ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In create_LP_FEE_ASSIGNMENT procedure: After inserting to lns_distributions record for accountint name '||l_account_name || ' and code comb id ' || l_code_combination_id);
select LNS_FEE_ASSIGNMENTS_S.NEXTVAL FEE_ASSIGNMENT_ID,
NULL LOAN_ID,
LnsFees.FEE_ID,
LnsFees.FEE,
LnsFees.FEE_TYPE,
LnsFees.FEE_BASIS,
LnsFees.NUMBER_GRACE_DAYS,
LnsFees.COLLECTED_THIRD_PARTY_FLAG,
LnsFees.RATE_TYPE,
decode(LnsFees.BILLING_OPTION,'ORIGINATION',0,
'BILL_WITH_INSTALLMENT',1,
(decode(LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT((select loan_id from lns_disb_headers where disb_header_id = c_disb_header_id )) ,
-1 , 0 , LNS_BILLING_UTIL_PUB.LAST_PAYMENT_NUMBER_EXT((select loan_id from lns_disb_headers where disb_header_id = c_disb_header_id ))) + 1 )
) BEGIN_INSTALLMENT_NUMBER,
decode(LnsFees.BILLING_OPTION,'ORIGINATION',0,
'BILL_WITH_INSTALLMENT',1,
lns_fin_utils.getnumberinstallments((select loan_id from lns_disb_headers where disb_header_id = c_disb_header_id )) ) END_INSTALLMENT_NUMBER,
NULL NUMBER_OF_PAYMENTS,
LnsFees.BILLING_OPTION,
NULL CREATED_BY,
NULL CREATION_DATE,
NULL LAST_UPDATED_BY,
NULL LAST_UPDATE_DATE,
NULL LAST_UPDATE_LOGIN,
1 OBJECT_VERSION_NUMBER,
sysdate START_DATE_ACTIVE,
NULL END_DATE_ACTIVE,
c_disb_header_id DISB_HEADER_ID,
LnsLoanProductLines.MANDATORY_FLAG
FROM LNS_FEES LnsFees ,
LNS_LOAN_PRODUCT_LINES LnsLoanProductLines
WHERE LnsLoanProductLines.PARENT_PRODUCT_LINES_ID = c_loan_prod_line_id
AND LnsLoanProductLines.LOAN_PRODUCT_LINE_TYPE = 'DISB_FEE'
AND LnsLoanProductLines.LINE_REFERENCE_ID = LnsFees.FEE_ID ;
SELECT LINE_TYPE, ACCOUNT_NAME, CODE_COMBINATION_ID, ACCOUNT_TYPE, DISTRIBUTION_PERCENT, DISTRIBUTION_TYPE
FROM LNS_DEFAULT_DISTRIBS
WHERE ACCOUNT_NAME = 'FEE_RECEIVABLE' OR FEE_ID = c_fee_id ;
SELECT LOAN_STATUS , CURRENT_PHASE
FROM LNS_LOAN_HEADERS LnsLoanHeaders
WHERE LnsLoanHeaders.LOAN_ID = c_loan_id ;
SELECT 'Y'
FROM DUAL
WHERE
EXISTS
(SELECT * FROM LNS_DISTRIBUTIONS lnsDistribs
WHERE lnsDistribs.ACCOUNT_NAME = 'FEE_RECEIVABLE' AND lnsDistribs.LOAN_ID = c_loan_id);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In create_LP_DISB_FEE_ASSIGNMENT procedure: Before inserting to lns_distributions record for accountint name '||l_account_name || ' and code comb id ' || l_code_combination_id);
Insert into lns_distributions
(DISTRIBUTION_ID
,LOAN_ID
,LINE_TYPE
,ACCOUNT_NAME
,CODE_COMBINATION_ID
,ACCOUNT_TYPE
,DISTRIBUTION_PERCENT
,DISTRIBUTION_TYPE
,FEE_ID
,CREATION_DATE
,CREATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATED_BY
,OBJECT_VERSION_NUMBER )
values
(LNS_DISTRIBUTIONS_S.nextval
,p_loan_id
,l_line_type
,l_account_name
,l_code_combination_id
,l_account_type
,l_distribution_percent
,l_distribution_type
,l_fee_assignment_rec.fee_id
,lns_utility_pub.creation_date
,lns_utility_pub.created_by
,lns_utility_pub.last_update_date
,lns_utility_pub.last_updated_by
,1) ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In create_LP_DISB_FEE_ASSIGNMENT procedure: After inserting to lns_distributions record for accounting name '||l_account_name || ' and code comb id ' || l_code_combination_id);
PROCEDURE delete_DISB_FEE_ASSIGNMENT(P_DISB_HEADER_ID IN NUMBER ) IS
CURSOR loan_disb_fee ( c_disb_header_id NUMBER ) IS
select FEE_ASSIGNMENT_ID
FROM LNS_FEE_ASSIGNMENTS LnsFeeAssignments
WHERE LnsFeeAssignments.DISB_HEADER_ID = c_disb_header_id ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin delete_DISB_FEE_ASSIGNMENT procedure');
SAVEPOINT delete_DISB_FEE_ASSIGNMENT ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_FEE_ASSIGNMENT procedure: Before opening cursor loan_disb_fee ');
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_FEE_ASSIGNMENT procedure: After opening cursor loan_disb_fee , no of fees found is '||loan_disb_fee%ROWCOUNT);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_FEE_ASSIGNMENT procedure: Before call to do_delete_fee_assignment proc for fee_assignment_id '||l_fee_assignment_id );
do_delete_fee_assignment( l_fee_assignment_id ,
x_return_status );
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_FEE_ASSIGNMENT procedure: After call to do_delete_fee_assignment proc for fee_assignment_id'|| l_fee_assignment_id ||' , return status is' || x_return_status);
ROLLBACK TO delete_DISB_FEE_ASSIGNMENT ;
END delete_DISB_FEE_ASSIGNMENT ;