The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_approval_action (
p_approval_action_rec IN OUT NOCOPY APPROVAL_ACTION_REC_TYPE
,p_object_version_number IN OUT NOCOPY NUMBER
,x_return_status IN OUT NOCOPY VARCHAR2
);
PROCEDURE do_delete_approval_action (
p_action_id IN NUMBER
,x_return_status IN OUT NOCOPY VARCHAR2
);
SELECT 'Y'
INTO l_dummy
FROM LNS_APPROVAL_ACTIONS
WHERE action_id = l_action_id;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_approval_action procedure: Before call to LNS_APPROVAL_ACTIONS_PKG.Insert_Row');
LNS_APPROVAL_ACTIONS_PKG.Insert_Row(X_ACTION_ID => p_approval_action_rec.action_id
,P_OBJECT_VERSION_NUMBER => 1
,P_LOAN_ID => p_approval_action_rec.loan_id
,P_ACTION_TYPE => p_approval_action_rec.action_type
,P_AMOUNT => p_approval_action_rec.amount
,P_REASON_CODE => p_approval_action_rec.reason_code
,P_ATTRIBUTE_CATEGORY => p_approval_action_rec.attribute_category
,P_ATTRIBUTE1 => p_approval_action_rec.attribute1
,P_ATTRIBUTE2 => p_approval_action_rec.attribute2
,P_ATTRIBUTE3 => p_approval_action_rec.attribute3
,P_ATTRIBUTE4 => p_approval_action_rec.attribute4
,P_ATTRIBUTE5 => p_approval_action_rec.attribute5
,P_ATTRIBUTE6 => p_approval_action_rec.attribute6
,P_ATTRIBUTE7 => p_approval_action_rec.attribute7
,P_ATTRIBUTE8 => p_approval_action_rec.attribute8
,P_ATTRIBUTE9 => p_approval_action_rec.attribute9
,P_ATTRIBUTE10 => p_approval_action_rec.attribute10
,P_ATTRIBUTE11 => p_approval_action_rec.attribute11
,P_ATTRIBUTE12 => p_approval_action_rec.attribute12
,P_ATTRIBUTE13 => p_approval_action_rec.attribute13
,P_ATTRIBUTE14 => p_approval_action_rec.attribute14
,P_ATTRIBUTE15 => p_approval_action_rec.attribute15
,P_ATTRIBUTE16 => p_approval_action_rec.attribute16
,P_ATTRIBUTE17 => p_approval_action_rec.attribute17
,P_ATTRIBUTE18 => p_approval_action_rec.attribute18
,P_ATTRIBUTE19 => p_approval_action_rec.attribute19
,P_ATTRIBUTE20 => p_approval_action_rec.attribute20);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_create_approval_action procedure: After call to LNS_APPROVAL_ACTION.Insert_Row');
| do_update_approval_action
|
| DESCRIPTION
| Updates approval action.
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/OUT:
| p_approval_action_rec
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
| 22-Jan-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE do_update_approval_action(
p_approval_action_rec IN OUT NOCOPY APPROVAL_ACTION_REC_TYPE
,p_object_version_number IN OUT NOCOPY NUMBER
,x_return_status IN OUT NOCOPY VARCHAR2) IS
l_object_version_number NUMBER;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_update_approval_action procedure');
SELECT OBJECT_VERSION_NUMBER,
ROWID
INTO l_object_version_number,
l_rowid
FROM LNS_APPROVAL_ACTIONS
WHERE ACTION_ID = p_approval_action_rec.action_id
FOR UPDATE OF ACTION_ID NOWAIT;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_approval_action procedure: Before call to LNS_APPROVAL_ACTIONS_PKG.Update_Row');
LNS_APPROVAL_ACTIONS_PKG.Update_Row (X_ACTION_ID => p_approval_action_rec.action_id
,P_OBJECT_VERSION_NUMBER => p_OBJECT_VERSION_NUMBER
,P_LOAN_ID => p_approval_action_rec.LOAN_ID
,P_ACTION_TYPE => p_approval_action_rec.ACTION_TYPE
,P_AMOUNT => p_approval_action_rec.AMOUNT
,P_REASON_CODE => p_approval_action_rec.REASON_CODE
,P_ATTRIBUTE_CATEGORY => p_approval_action_rec.attribute_category
,P_ATTRIBUTE1 => p_approval_action_rec.attribute1
,P_ATTRIBUTE2 => p_approval_action_rec.attribute2
,P_ATTRIBUTE3 => p_approval_action_rec.attribute3
,P_ATTRIBUTE4 => p_approval_action_rec.attribute4
,P_ATTRIBUTE5 => p_approval_action_rec.attribute5
,P_ATTRIBUTE6 => p_approval_action_rec.attribute6
,P_ATTRIBUTE7 => p_approval_action_rec.attribute7
,P_ATTRIBUTE8 => p_approval_action_rec.attribute8
,P_ATTRIBUTE9 => p_approval_action_rec.attribute9
,P_ATTRIBUTE10 => p_approval_action_rec.attribute10
,P_ATTRIBUTE11 => p_approval_action_rec.attribute11
,P_ATTRIBUTE12 => p_approval_action_rec.attribute12
,P_ATTRIBUTE13 => p_approval_action_rec.attribute13
,P_ATTRIBUTE14 => p_approval_action_rec.attribute14
,P_ATTRIBUTE15 => p_approval_action_rec.attribute15
,P_ATTRIBUTE16 => p_approval_action_rec.attribute16
,P_ATTRIBUTE17 => p_approval_action_rec.attribute17
,P_ATTRIBUTE18 => p_approval_action_rec.attribute18
,P_ATTRIBUTE19 => p_approval_action_rec.attribute19
,P_ATTRIBUTE20 => p_approval_action_rec.attribute20);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_update_approval_action procedure: After call to LNS_APPROVAL_ACTIONS_PKG.Update_Row');
END do_update_approval_action;
| do_delete_approval_action
|
| DESCRIPTION
| Deletes approval action.
|
| SCOPE - PRIVATE
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| OUT:
| IN/OUT:
| p_action_id
| p_object_version_number
| x_return_status
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
|
| 22-Jan-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE do_delete_approval_action(
p_action_id NUMBER,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin do_delete_approval_action procedure');
SELECT 'Y'
INTO l_dummy
FROM LNS_APPROVAL_ACTIONS
WHERE ACTION_ID = p_action_id;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_approval_action procedure: Before call to LNS_APPROVAL_ACTIONS_PKG.Delete_Row');
LNS_APPROVAL_ACTIONS_PKG.Delete_Row (P_ACTION_ID => p_action_id);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In do_delete_approval_action procedure: After call to LNS_APPROVAL_ACTIONS_PKG.Delete_Row');
END do_delete_approval_action;
SELECT 'X'
FROM LNS_FEE_ASSIGNMENTS
WHERE loan_id = X_LOAN_ID
AND end_installment_number > x_install_num;
SELECT H.OBJECT_VERSION_NUMBER
,H.LOAN_STATUS
,H.LOAN_CURRENCY
,H.LOAN_NUMBER
,H.LOAN_CLASS_CODE
,H.LOAN_TYPE
,H.GL_DATE
,H.REQUESTED_AMOUNT
,H.REFERENCE_TYPE
,H.REFERENCE_ID
,H.CURRENT_PHASE
,H.MULTIPLE_FUNDING_FLAG
,H.OPEN_TO_TERM_FLAG
,NVL(P.BDGT_REQ_FOR_APPR_FLAG, 'N') BDGT_REQ_FOR_APPR_FLAG
,NVL(P.LOAN_APPR_REQ_FLAG, 'Y') LOAN_APPR_REQ_FLAG
,H.SECONDARY_STATUS
,nvl(custom_payments_flag, 'N')
FROM LNS_LOAN_HEADERS_ALL H,
LNS_LOAN_PRODUCTS_ALL P
WHERE H.LOAN_ID = X_Loan_Id
and H.product_id = P.loan_product_id(+);
SELECT RESOURCE_ID
FROM JTF_RS_RESOURCE_EXTNS
WHERE USER_ID = X_USER_ID;
select DISTRIBUTION_ID
,CODE_COMBINATION_ID
,DISTRIBUTION_PERCENT
from lns_distributions
where LOAN_ID = x_loan_id
and account_type = x_acct_type
and account_name = x_acct_name
and line_type = x_line_type
and distribution_type = 'ORIGINATION';
select so.set_of_books_id
from lns_system_options sb,
gl_sets_of_books so
where sb.set_of_books_id = so.set_of_books_id;
select TERM_ID
,OBJECT_VERSION_NUMBER
from LNS_TERMS
where LOAN_ID = P_LOAN_ID;
select OBJECT_VERSION_NUMBER
from LNS_LOAN_HEADERS
where LOAN_ID = P_LOAN_ID;
select old_value
from lns_loan_histories_h
where table_name = 'LNS_LOAN_HEADERS_ALL' and
column_name = 'SECONDARY_STATUS' and
new_value = 'PENDING_CANCELLATION' and
loan_id = P_LOAN_ID and
loan_history_id =
(select max(loan_history_id)
from lns_loan_histories_h
where table_name = 'LNS_LOAN_HEADERS_ALL' and
column_name = 'SECONDARY_STATUS' and
loan_id = P_LOAN_ID);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - Before call to LNS_LOAN_HEADER_PUB.update_loan proc');
/* setting term data for do term update */
l_term_rec.TERM_ID := l_TERM_ID;
LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_TERM_VERSION_NUMBER
,p_init_msg_list => FND_API.G_FALSE
,p_loan_term_rec => l_term_rec
,X_RETURN_STATUS => x_return_status
,X_MSG_COUNT => x_msg_count
,X_MSG_DATA => x_msg_data);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Successfully update LNS_TERMS');
logMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - LNS_TERMS_PUB.update_term failed with message: ' || FND_MSG_PUB.Get(p_encoded => 'F'));
l_last_api_called := 'LNS_TERMS_PUB.update_term';
/* setting data for future loan update */
l_loan_header_rec.LOAN_START_DATE := l_loan_details.loan_start_date;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Data to Update loan header with during conversion...');
select term_id, object_version_number into l_term_id, l_object_version_number
from lns_terms
where loan_id = l_loan_header_rec.loan_id;
LNS_TERMS_PUB.update_term(P_OBJECT_VERSION_NUMBER => l_object_version_number,
p_init_msg_list => FND_API.G_FALSE,
p_loan_term_rec => l_term_rec,
X_RETURN_STATUS => x_return_status,
X_MSG_COUNT => x_msg_count,
X_MSG_DATA => x_msg_data);
logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'Successfully update LNS_TERMS');
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Before call to LNS_LOAN_HEADER_PUB.update_loan');
LNS_LOAN_HEADER_PUB.update_loan(p_init_msg_list => FND_API.G_FALSE
,p_loan_header_rec => l_loan_header_rec
,p_object_version_number => l_object_version_number
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'After call to LNS_LOAN_HEADER_PUB.update_loan');
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - LNS_LOAN_HEADER_PUB.update_loan failed with message: ' ||FND_MSG_PUB.Get(p_encoded => 'F'));
l_last_api_called := 'LNS_LOAN_HEADER_PUB.update_loan';
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - After call to LNS_LOAN_HEADER_PUB.update_loan proc');
SELECT
lower(iso_language),iso_territory
INTO
l_iso_language,l_iso_territory
FROM
FND_LANGUAGES
WHERE
language_code = USERENV('LANG');
| update_approval_action
|
| DESCRIPTION
| Updates approval action.
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_approval_action_rec
| OUT:
| x_return_status
| x_msg_count
| x_msg_data
| IN/OUT:
| p_object_version_number
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
| 22-Jan-2004 Bernice Lam Created
+===========================================================================*/
PROCEDURE update_approval_action (
p_init_msg_list IN VARCHAR2,
p_approval_action_rec IN APPROVAL_ACTION_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_approval_action';
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Update_approval_action procedure');
SAVEPOINT update_approval_action;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_approval_action procedure: Before call to do_update_approval_action proc');
do_update_approval_action(
l_approval_action_rec,
p_object_version_number,
x_return_status);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Update_approval_action procedure: After call to do_update_approval_action proc');
ROLLBACK TO update_approval_action;
ROLLBACK TO update_approval_action;
ROLLBACK TO update_approval_action;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Update_approval_action procedure');
END update_approval_action;
| delete_approval_action
|
| DESCRIPTION
| Deletes approval action
|
| SCOPE - PUBLIC
|
| EXETERNAL PROCEDURES/FUNCTIONS ACCESSED
|
| ARGUMENTS : IN:
| p_init_msg_list
| p_action_id
| OUT:
| x_return_status
| x_msg_count
| x_msg_data
| IN/OUT:
|
| RETURNS : NONE
|
| NOTES
|
| MODIFICATION HISTORY
| 06-Jan-2004 Bernice Lam Created.
+===========================================================================*/
PROCEDURE delete_approval_action (
p_init_msg_list IN VARCHAR2,
p_action_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_approval_action';
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'Begin Delete_approval_action procedure');
SAVEPOINT delete_approval_action;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_approval_action procedure: Before call to do_delete_approval_action proc');
do_delete_approval_action(
l_action_id,
x_return_status);
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'In Delete_approval_action procedure: After call to do_delete_approval_action proc');
ROLLBACK TO delete_approval_action;
ROLLBACK TO delete_approval_action;
ROLLBACK TO delete_approval_action;
logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'End Delete_approval_action procedure');
END delete_approval_action;