The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_COND_ASSIGNMENT (
p_COND_ASSIGNMENT_rec IN OUT NOCOPY COND_ASSIGNMENT_REC_TYPE,
p_object_version_number IN OUT NOCOPY NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
PROCEDURE do_delete_COND_ASSIGNMENT (
p_COND_ASSIGNMENT_id IN NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
);
SELECT 'Y'
INTO l_dummy
FROM LNS_COND_ASSIGNMENTS
WHERE cond_assignment_id = l_COND_ASSIGNMENT_id;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_COND_ASSIGNMENT procedure: Before call to LNS_COND_ASSIGNMENTS_PKG.Insert_Row');
LNS_COND_ASSIGNMENTS_PKG.Insert_Row (
X_COND_ASSIGNMENT_ID => p_COND_ASSIGNMENT_rec.cond_assignment_id,
P_OBJECT_VERSION_NUMBER => 1,
P_LOAN_ID => p_COND_ASSIGNMENT_rec.loan_id,
P_CONDITION_ID => p_COND_ASSIGNMENT_rec.condition_id,
P_CONDITION_DESCRIPTION => p_COND_ASSIGNMENT_rec.condition_description,
P_CONDITION_MET_FLAG => p_COND_ASSIGNMENT_rec.condition_met_flag,
P_FULFILLMENT_DATE => p_COND_ASSIGNMENT_rec.fulfillment_date,
P_FULFILLMENT_UPDATED_BY => p_COND_ASSIGNMENT_rec.fulfillment_updated_by,
P_MANDATORY_FLAG => p_COND_ASSIGNMENT_rec.mandatory_flag,
P_CREATED_BY => p_COND_ASSIGNMENT_rec.created_by,
P_CREATION_DATE => p_COND_ASSIGNMENT_rec.creation_date,
P_LAST_UPDATED_BY => p_COND_ASSIGNMENT_rec.last_updated_by,
P_LAST_UPDATE_DATE => p_COND_ASSIGNMENT_rec.last_update_date,
P_LAST_UPDATE_LOGIN => p_COND_ASSIGNMENT_rec.last_update_login,
P_START_DATE_ACTIVE => sysdate,
P_END_DATE_ACTIVE => null,
P_DISB_HEADER_ID => p_COND_ASSIGNMENT_rec.DISB_HEADER_ID,
P_DELETE_DISABLED_FLAG => p_COND_ASSIGNMENT_rec.DELETE_DISABLED_FLAG
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_COND_ASSIGNMENT procedure: After call to LNS_COND_ASSIGNMENT.Insert_Row');
| do_update_COND_ASSIGNMENT
|
| DESCRIPTION
| Updates condition assignment.
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/OUT:
| p_COND_ASSIGNMENT_rec
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
| 22-APR-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE do_update_COND_ASSIGNMENT(
p_COND_ASSIGNMENT_rec IN OUT NOCOPY COND_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_COND_ASSIGNMENT procedure');
SELECT OBJECT_VERSION_NUMBER
INTO l_object_version_number
FROM LNS_COND_ASSIGNMENTS
WHERE COND_ASSIGNMENT_ID = p_COND_ASSIGNMENT_rec.cond_assignment_id
FOR UPDATE OF COND_ASSIGNMENT_ID NOWAIT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_COND_ASSIGNMENT procedure: Before call to LNS_COND_ASSIGNMENTS_PKG.Update_Row');
LNS_COND_ASSIGNMENTS_PKG.Update_Row (
P_COND_ASSIGNMENT_ID => p_COND_ASSIGNMENT_rec.cond_assignment_id,
P_OBJECT_VERSION_NUMBER => p_OBJECT_VERSION_NUMBER,
P_LOAN_ID => p_COND_ASSIGNMENT_rec.LOAN_ID,
P_CONDITION_ID => p_COND_ASSIGNMENT_rec.CONDITION_ID,
P_CONDITION_DESCRIPTION => p_COND_ASSIGNMENT_rec.CONDITION_DESCRIPTION,
P_CONDITION_MET_FLAG => p_COND_ASSIGNMENT_rec.CONDITION_MET_FLAG,
P_FULFILLMENT_DATE => p_COND_ASSIGNMENT_rec.FULFILLMENT_DATE,
P_FULFILLMENT_UPDATED_BY => p_COND_ASSIGNMENT_rec.FULFILLMENT_UPDATED_BY,
P_MANDATORY_FLAG => p_COND_ASSIGNMENT_rec.MANDATORY_FLAG,
P_LAST_UPDATED_BY => NULL,
P_LAST_UPDATE_DATE => NULL,
P_LAST_UPDATE_LOGIN => NULL,
P_START_DATE_ACTIVE => NULL,
P_END_DATE_ACTIVE => NULL,
P_DISB_HEADER_ID => p_COND_ASSIGNMENT_rec.DISB_HEADER_ID,
P_DELETE_DISABLED_FLAG => p_COND_ASSIGNMENT_rec.DELETE_DISABLED_FLAG
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_COND_ASSIGNMENT procedure: After call to LNS_COND_ASSIGNMENTS_PKG.Update_Row');
END do_update_COND_ASSIGNMENT;
| do_delete_COND_ASSIGNMENT
|
| DESCRIPTION
| Deletes cond assignment.
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/OUT:
| p_COND_ASSIGNMENT_id
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
| 06-Jan-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE do_delete_COND_ASSIGNMENT(
p_COND_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_COND_ASSIGNMENT procedure');
SELECT loan_id, object_version_number
INTO l_loan_id, l_object_version_num
FROM LNS_COND_ASSIGNMENTS
WHERE COND_ASSIGNMENT_ID = p_COND_ASSIGNMENT_id
FOR UPDATE NOWAIT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_COND_ASSIGNMENT procedure: Before call to LNS_COND_ASSIGNMENTS_PKG.Delete_Row');
UPDATE LNS_COND_ASSIGNMENTS
SET END_DATE_ACTIVE = SYSDATE,
OBJECT_VERSION_NUMBER = nvl(l_object_version_num, 1) + 1
WHERE COND_ASSIGNMENT_ID = p_cond_assignment_id;
LNS_COND_ASSIGNMENTS_PKG.Update_Row (
P_COND_ASSIGNMENT_ID => p_COND_ASSIGNMENT_ID,
P_OBJECT_VERSION_NUMBER => null,
P_LOAN_ID => p_COND_ASSIGNMENT_rec.LOAN_ID,
P_CONDITION_ID => p_COND_ASSIGNMENT_rec.CONDITION_ID,
P_CONDITION_DESCRIPTION => p_COND_ASSIGNMENT_rec.CONDITION_DESCRIPTION,
P_CONDITION_MET_FLAG => p_COND_ASSIGNMENT_rec.CONDITION_MET_FLAG,
P_FULFILLMENT_DATE => p_COND_ASSIGNMENT_rec.FULFILLMENT_DATE,
P_FULFILLMENT_UPDATED_BY => p_COND_ASSIGNMENT_rec.FULFILLMENT_UPDATED_BY,
P_MANDATORY_FLAG => p_COND_ASSIGNMENT_rec.MANDATORY_FLAG,
P_LAST_UPDATED_BY => NULL,
P_LAST_UPDATE_DATE => NULL,
P_LAST_UPDATE_LOGIN => NULL,
P_START_DATE_ACTIVE => NULL,
P_END_DATE_ACTIVE => sysdate
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_COND_ASSIGNMENT procedure: After call to LNS_COND_ASSIGNMENTS_PKG.Delete_Row');
END do_delete_COND_ASSIGNMENT;
| update_COND_ASSIGNMENT
|
| DESCRIPTION
| Updates condition assignment.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_COND_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_COND_ASSIGNMENT (
p_init_msg_list IN VARCHAR2,
p_COND_ASSIGNMENT_rec IN COND_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_COND_ASSIGNMENT';
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Update_COND_ASSIGNMENT procedure');
SAVEPOINT update_COND_ASSIGNMENT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_COND_ASSIGNMENT procedure: Before call to do_update_COND_ASSIGNMENT proc');
do_update_COND_ASSIGNMENT(
l_COND_ASSIGNMENT_rec,
p_object_version_number,
x_return_status
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_COND_ASSIGNMENT procedure: After call to do_update_COND_ASSIGNMENT proc');
ROLLBACK TO update_COND_ASSIGNMENT;
ROLLBACK TO update_COND_ASSIGNMENT;
ROLLBACK TO update_COND_ASSIGNMENT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Update_COND_ASSIGNMENT procedure');
END update_COND_ASSIGNMENT;
| delete_COND_ASSIGNMENT
|
| DESCRIPTION
| Deletes assignment.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_COND_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_COND_ASSIGNMENT (
p_init_msg_list IN VARCHAR2,
p_COND_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_COND_ASSIGNMENT';
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Delete_COND_ASSIGNMENT procedure');
SAVEPOINT delete_COND_ASSIGNMENT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_COND_ASSIGNMENT procedure: Before call to do_delete_COND_ASSIGNMENT proc');
do_delete_COND_ASSIGNMENT(
l_COND_ASSIGNMENT_id,
x_return_status
);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_COND_ASSIGNMENT procedure: After call to do_delete_COND_ASSIGNMENT proc');
ROLLBACK TO delete_COND_ASSIGNMENT;
ROLLBACK TO delete_COND_ASSIGNMENT;
ROLLBACK TO delete_COND_ASSIGNMENT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Delete_COND_ASSIGNMENT procedure');
END delete_COND_ASSIGNMENT;
select LNS_COND_ASSIGNMENTS_S.NEXTVAL COND_ASSIGNMENT_ID,
LnsLoanHeaders.LOAN_ID,
LnsConditions.CONDITION_ID,
LnsConditions.CONDITION_DESCRIPTION,
LnsLoanProductLines.MANDATORY_FLAG
FROM LNS_CONDITIONS LnsConditions ,
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 = 'CONDITION'
AND LnsLoanProductLines.LINE_REFERENCE_ID = LnsCOnditions.CONDITION_ID ;
SELECT LOAN_STATUS , CURRENT_PHASE
FROM LNS_LOAN_HEADERS LnsLoanHeaders
WHERE LnsLoanHeaders.LOAN_ID = c_loan_id ;
SELECT count(COND_ASSIGNMENT_ID)
FROM LNS_COND_ASSIGNMENTS_VL LnsCondAssignments
WHERE LnsCondAssignments.LOAN_ID = c_loan_id ;
l_cond_assignment_rec.FULFILLMENT_UPDATED_BY := NULL ;
l_cond_assignment_rec.LAST_UPDATED_BY := NULL ;
l_cond_assignment_rec.LAST_UPDATE_DATE := NULL ;
l_cond_assignment_rec.LAST_UPDATE_LOGIN := NULL ;
l_cond_assignment_rec.DELETE_DISABLED_FLAG := l_mandatory_flag ;
select LNS_COND_ASSIGNMENTS_S.NEXTVAL COND_ASSIGNMENT_ID,
LnsConditions.CONDITION_ID,
LnsConditions.CONDITION_DESCRIPTION,
LnsLoanProductLines.MANDATORY_FLAG
FROM LNS_CONDITIONS_VL LnsConditions ,
LNS_LOAN_PRODUCT_LINES LnsLoanProductLines
WHERE LnsLoanProductLines.PARENT_PRODUCT_LINES_ID = c_loan_prod_line_id
AND LnsLoanProductLines.LOAN_PRODUCT_LINE_TYPE = 'DISB_CONDITION'
AND LnsLoanProductLines.LINE_REFERENCE_ID = LnsCOnditions.CONDITION_ID ;
l_cond_assignment_rec.FULFILLMENT_UPDATED_BY := NULL ;
l_cond_assignment_rec.LAST_UPDATED_BY := NULL ;
l_cond_assignment_rec.LAST_UPDATE_DATE := NULL ;
l_cond_assignment_rec.LAST_UPDATE_LOGIN := NULL ;
l_cond_assignment_rec.DELETE_DISABLED_FLAG := l_mandatory_flag ;
PROCEDURE delete_DISB_COND_ASSIGNMENT( P_DISB_HEADER_ID IN NUMBER ) IS
CURSOR loan_disb_cond ( c_disb_header_id NUMBER ) IS
SELECT COND_ASSIGNMENT_ID
FROM LNS_COND_ASSIGNMENTS LnsCondAssignments
WHERE LnsCondAssignments.DISB_HEADER_ID = c_disb_header_id ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin delete_DISB_COND_ASSIGNMENT procedure');
SAVEPOINT delete_DISB_COND_ASSIGNMENT;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_COND_ASSIGNMENT procedure: Before opening cursor loan_disb_cond ');
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_COND_ASSIGNMENT procedure: After opening cursor loan_disb_cond , no of conditions found is '||loan_disb_cond%ROWCOUNT);
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_COND_ASSIGNMENT procedure: Before call to do_delete_COND_ASSIGNMENT proc for cond_assignment_id'|| l_cond_assignment_id);
do_delete_COND_ASSIGNMENT(l_cond_assignment_id ,
x_return_status ) ;
FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In delete_DISB_COND_ASSIGNMENT procedure: After call to do_delete_COND_ASSIGNMENT proc for cond_assignment_id'|| l_cond_assignment_id ||' , return status is' || x_return_status);
ROLLBACK TO delete_DISB_COND_ASSIGNMENT;
END delete_DISB_COND_ASSIGNMENT ;
SELECT 'X' FROM DUAL
WHERE EXISTS ( SELECT NULL FROM LNS_COND_ASSIGNMENTS
WHERE CONDITION_ID = X_COND_ID )
OR EXISTS ( SELECT NULL FROM LNS_LOAN_PRODUCT_LINES
WHERE LINE_REFERENCE_ID = X_COND_ID
AND ( LOAN_PRODUCT_LINE_TYPE = 'CONDITION' OR LOAN_PRODUCT_LINE_TYPE='DISB_CONDITION' )
);