The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT PRESENT_VALUE
FROM FA_LEASE_SCHEDULES
WHERE PAYMENT_SCHEDULE_ID= L_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID;
SELECT FA_LEASES_S.NEXTVAL
INTO L_LEASE_ID
FROM DUAL;
-- EVERYTING LOOKS GOOD, LET'S INSERT THIS ROW
----------------------------------------------------------------
FA_LEASES2_PKG.INSERT_ROW( X_ROWID=>L_ROWID,
X_LEASE_ID=>L_LEASE_ID,
X_LEASE_NUMBER=>L_LEASE_DETAILS_REC.LEASE_NUMBER,
X_LESSOR_ID=>L_LEASE_DETAILS_REC.LESSOR_ID,
X_DESCRIPTION=>L_LEASE_DETAILS_REC.DESCRIPTION,
X_LAST_UPDATE_DATE=>NVL(P_TRANS_REC.WHO_INFO.LAST_UPDATE_DATE,SYSDATE),
X_LAST_UPDATED_BY=>NVL(P_TRANS_REC.WHO_INFO.LAST_UPDATED_BY,-1),
X_CREATED_BY=>NVL(P_TRANS_REC.WHO_INFO.CREATED_BY,-1),
X_CREATION_DATE=>NVL(P_TRANS_REC.WHO_INFO.CREATION_DATE,SYSDATE),
X_LAST_UPDATE_LOGIN=>NVL(P_TRANS_REC.WHO_INFO.LAST_UPDATE_LOGIN,-1),
X_ATTRIBUTE1=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE1,
X_ATTRIBUTE2=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE2,
X_ATTRIBUTE3=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE3,
X_ATTRIBUTE4=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE4,
X_ATTRIBUTE5=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE5,
X_ATTRIBUTE6=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE6,
X_ATTRIBUTE7=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE7,
X_ATTRIBUTE8=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE8,
X_ATTRIBUTE9=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE9,
X_ATTRIBUTE10=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE10,
X_ATTRIBUTE11=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE11,
X_ATTRIBUTE12=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE12,
X_ATTRIBUTE13=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE13,
X_ATTRIBUTE14=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE14,
X_ATTRIBUTE15=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE15,
X_ATTRIBUTE_CATEGORY_CODE=>L_LEASE_DETAILS_REC.DESC_FLEX.ATTRIBUTE_CATEGORY_CODE,
X_FASB_LEASE_TYPE=>UPPER(L_FASB_LEASE_TYPE),
X_COST_CAPITALIZED=>L_COST_CAPITALIZED ,
X_TRANSFER_OWNERSHIP=>L_LEASE_DETAILS_REC.TRANSFER_OWNERSHIP,
X_BARGAIN_PURCHASE_OPTION=>L_LEASE_DETAILS_REC.BARGAIN_PURCHASE_OPTION,
X_PAYMENT_SCHEDULE_ID=>L_LEASE_DETAILS_REC.PAYMENT_SCHEDULE_ID,
X_FAIR_VALUE=>L_LEASE_DETAILS_REC.FAIR_VALUE,
X_PRESENT_VALUE=>L_PRESENT_VALUE,
X_LEASE_TYPE=>L_LEASE_DETAILS_REC.LEASE_TYPE,
X_LEASE_TERM=>L_LEASE_DETAILS_REC.LEASE_TERM,
X_ASSET_LIFE=>L_LEASE_DETAILS_REC.ASSET_LIFE,
X_CURRENCY_CODE=>L_LEASE_DETAILS_REC.CURRENCY_CODE,
X_LESSOR_SITE_ID=>L_LEASE_DETAILS_REC.LESSOR_SITE_ID,
X_DIST_CODE_COMBINATION_ID=>L_LEASE_DETAILS_REC.DIST_CODE_COMBINATION_ID,
X_TERMS_ID=>L_LEASE_DETAILS_REC.TERMS_ID,
X_CALLING_FN=>P_CALLING_FN
) ;
PROCEDURE UPDATE_LEASE (
P_API_VERSION IN NUMBER,
P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
X_RETURN_STATUS OUT NOCOPY VARCHAR2,
X_MSG_COUNT OUT NOCOPY NUMBER,
X_MSG_DATA OUT NOCOPY VARCHAR2,
P_CALLING_FN IN VARCHAR2,
P_TRANS_REC IN FA_API_TYPES.TRANS_REC_TYPE,
P_LEASE_DETAILS_REC_NEW IN FA_API_TYPES.LEASE_DETAILS_REC_TYPE) AS
VALUE_ERROR_EXCEPTION EXCEPTION;
L_UPDATE_FLAG VARCHAR2(1):= NULL;
L_OK_TO_UPDATE_LESSOR VARCHAR2(1):= NULL;
L_ATLEAST_ONE_UPDATE NUMBER := 0;
L_API_NAME CONSTANT VARCHAR2(30) := 'UPDATE_LEASE';
SAVEPOINT UPDATE_LEASE;
IF NOT FA_LEASE_PVT.VALIDATION_UPDATE_LEASE(L_LEASE_DETAILS_REC_NEW,L_OK_TO_UPDATE_LESSOR,
p_log_level_rec => g_log_level_rec) THEN
RAISE VALUE_ERROR_EXCEPTION;
FND_MESSAGE.SET_TOKEN ('CALLING_FN','UPDATE_LEASE');
IF L_OK_TO_UPDATE_LESSOR = 'Y'
AND L_LEASE_DETAILS_REC_NEW.LESSOR_ID IS NOT NULL
AND L_LEASE_DETAILS_REC_NEW.LESSOR_SITE_ID IS NOT NULL THEN
NULL;
-- CALL UPDATE STATEMENT
-----------------------------------------
FA_LEASE_PVT.UPDATE_ROW
(X_ROWID =>NULL,
X_LEASE_ID =>L_LEASE_DETAILS_REC_NEW.LEASE_ID,
X_LESSOR_ID =>L_LEASE_DETAILS_REC_NEW.LESSOR_ID ,
X_LESSOR_SITE_ID =>L_LEASE_DETAILS_REC_NEW.LESSOR_SITE_ID ,
X_DESCRIPTION =>L_LEASE_DETAILS_REC_NEW.DESCRIPTION ,
X_LAST_UPDATE_DATE =>P_TRANS_REC.WHO_INFO.LAST_UPDATE_DATE ,
X_LAST_UPDATED_BY =>P_TRANS_REC.WHO_INFO.LAST_UPDATED_BY ,
X_ATTRIBUTE1 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE1 ,
X_ATTRIBUTE2 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE2 ,
X_ATTRIBUTE3 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE3 ,
X_ATTRIBUTE4 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE4 ,
X_ATTRIBUTE5 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE5 ,
X_ATTRIBUTE6 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE6 ,
X_ATTRIBUTE7 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE7 ,
X_ATTRIBUTE8 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE8 ,
X_ATTRIBUTE9 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE9 ,
X_ATTRIBUTE10 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE10 ,
X_ATTRIBUTE11 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE11 ,
X_ATTRIBUTE12 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE12 ,
X_ATTRIBUTE13 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE13 ,
X_ATTRIBUTE14 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE14 ,
X_ATTRIBUTE15 =>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE15 ,
X_ATTRIBUTE_CATEGORY_CODE=>L_LEASE_DETAILS_REC_NEW.DESC_FLEX.ATTRIBUTE_CATEGORY_CODE
,p_log_level_rec => g_log_level_rec);
FA_DEBUG_PKG.ADD('AFTER UPDATE','LEASE_ID',L_LEASE_DETAILS_REC_NEW.LEASE_ID,
p_log_level_rec => g_log_level_rec);
ROLLBACK TO UPDATE_LEASE;
ROLLBACK TO UPDATE_LEASE;
END UPDATE_LEASE;