1: PACKAGE BODY OKL_VARIABLE_INTEREST_PUB AS
2: /* $Header: OKLPVARB.pls 120.5.12010000.2 2008/08/11 05:07:14 rpillay ship $ */
3: -- Start of wraper code generated automatically by Debug code generator
4: L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.RATE';
5: L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6: L_LEVEL_PROCEDURE NUMBER;
7: IS_DEBUG_PROCEDURE_ON BOOLEAN;
8: -- End of wraper code generated automatically by Debug code generator
9: /* 4682018
129:
130: -- Start of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.var_int_rent_level
131: IF(L_DEBUG_ENABLED='Y') THEN
132: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
133: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
134: END IF;
135: IF(IS_DEBUG_PROCEDURE_ON) THEN
136: BEGIN
137: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.var_int_rent_level ');
133: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
134: END IF;
135: IF(IS_DEBUG_PROCEDURE_ON) THEN
136: BEGIN
137: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.var_int_rent_level ');
138: END;
139: END IF;
140: OKL_VARIABLE_INTEREST_PVT.var_int_rent_level(
141: p_api_version => p_api_version
151: ,x_child_trx_id => l_child_trx_id);
152:
153: IF(IS_DEBUG_PROCEDURE_ON) THEN
154: BEGIN
155: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.var_int_rent_level ');
156: END;
157: END IF;
158: -- End of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.var_int_rent_level
159:
223:
224: -- Start of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST
225: IF(L_DEBUG_ENABLED='Y') THEN
226: L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
227: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
228: END IF;
229: IF(IS_DEBUG_PROCEDURE_ON) THEN
230: BEGIN
231: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
227: IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
228: END IF;
229: IF(IS_DEBUG_PROCEDURE_ON) THEN
230: BEGIN
231: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
232: END;
233: END IF;
234: OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST(
235: p_api_version => p_api_version
240: ,p_contract_number => p_contract_number
241: ,P_to_date => p_to_date);
242: IF(IS_DEBUG_PROCEDURE_ON) THEN
243: BEGIN
244: OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
245: END;
246: END IF;
247: -- End of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST
248:
309:
310: BEGIN
311:
312: --Bug# 7277007
313: OKL_DEBUG_PUB.G_SESSION_ID := Sys_Context('USERENV', 'SESSIONID');
314: IF p_to_date IS NOT NULL THEN
315: l_to_date := FND_DATE.CANONICAL_TO_DATE(p_to_date);
316: END IF;
317: