[Home] [Help]
PACKAGE BODY: APPS.OKL_VARIABLE_INTEREST_PUB
Source
1 PACKAGE BODY OKL_VARIABLE_INTEREST_PUB AS
2 /* $Header: OKLPVARB.pls 120.6.12020000.3 2012/08/28 14:01:49 racheruv 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
10
11 PROCEDURE VARIABLE_INTEREST(p_api_version IN NUMBER
12 ,p_init_msg_list IN VARCHAR2
13 ,x_return_status OUT NOCOPY VARCHAR2
14 ,x_msg_count OUT NOCOPY NUMBER
15 ,x_msg_data OUT NOCOPY VARCHAR2
16 ,p_contract_number IN VARCHAR2
17 ,p_to_date IN DATE)
18
19 IS
20 l_api_version NUMBER := 1;
21 l_init_msg_list VARCHAR2(1) ;
22 l_return_status VARCHAR2(1);
23 l_msg_count NUMBER ;
24 l_msg_data VARCHAR2(2000);
25
26 BEGIN
27 -- 4739869 commenting out the code to issue SAVEPOINT
28 -- SAVEPOINT VARIABLE_INTEREST;
29
30 -- Start of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST
31 IF(L_DEBUG_ENABLED='Y') THEN
32 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
33 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
34 END IF;
35 IF(IS_DEBUG_PROCEDURE_ON) THEN
36 BEGIN
37 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
38 END;
39 END IF;
40 OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST(
41 p_api_version => p_api_version
42 ,p_init_msg_list => p_init_msg_list
43 ,x_return_status => x_return_status
44 ,x_msg_count => x_msg_count
45 ,x_msg_data => x_msg_data
46 ,p_contract_number => p_contract_number
47 ,P_to_date => p_to_date);
48 IF(IS_DEBUG_PROCEDURE_ON) THEN
49 BEGIN
50 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPVARB.pls call OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST ');
51 END;
52 END IF;
53 -- End of wraper code generated automatically by Debug code generator for OKL_VARIABLE_INTEREST_PVT.VARIABLE_INTEREST
54
55 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR OR x_return_status = 'W' ) THEN -- Added OR condition for bug 13931371
56 RAISE Fnd_Api.G_EXC_ERROR;
57 ELSIF (X_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
58 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
59 END IF;
60
61
62
63 EXCEPTION
64
65 WHEN Fnd_Api.G_EXC_ERROR THEN
66 -- 4739869 commenting out the code to Rollback the transactions
67 -- ROLLBACK TO VARIABLE_INTEREST;
68 IF x_return_status = 'W' THEN -- Added for bug 13931371
69 x_return_status := 'W';
70 ELSE
71 x_return_status := Fnd_Api.G_RET_STS_ERROR;
72 END IF;
73 x_msg_count := l_msg_count ;
74 x_msg_data := l_msg_data ;
75 Fnd_Msg_Pub.count_and_get(
76 p_count => x_msg_count
77 ,p_data => x_msg_data);
78
79 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
80 -- 4739869 commenting out the code to Rollback the transactions
81 -- ROLLBACK TO VARIABLE_INTEREST;
82 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
83 x_msg_count := l_msg_count ;
84 x_msg_data := l_msg_data ;
85 Fnd_Msg_Pub.count_and_get(
86 p_count => x_msg_count
87 ,p_data => x_msg_data);
88
89 WHEN OTHERS THEN
90 -- 4739869 commenting out the code to Rollback the transactions
91 -- ROLLBACK TO VARIABLE_INTEREST;
92 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
93 x_msg_count := l_msg_count ;
94 x_msg_data := l_msg_data ;
95 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_VARIABLE_INTEREST_PUB','VARIABLE_INTEREST');
96 Fnd_Msg_Pub.count_and_get(
97 p_count => x_msg_count
98 ,p_data => x_msg_data);
99
100 END ;
101
102 PROCEDURE VARIABLE_INTEREST
103 (errbuf OUT NOCOPY VARCHAR2
104 ,retcode OUT NOCOPY NUMBER
105 ,p_contract_number IN VARCHAR2
106 ,p_to_date IN VARCHAR2) is
107
108 l_api_vesrions NUMBER := 1;
109 lx_msg_count NUMBER;
110 l_count NUMBER :=0;
111 l_count1 NUMBER :=0;
112 l_count2 NUMBER :=0;
113 lx_msg_data VARCHAR2(450);
114 i NUMBER;
115 l_msg_index_out NUMBER;
116 lx_return_status VARCHAR(1);
117 l_from_date DATE;
118 l_to_date DATE;
119
120 BEGIN
121
122 --Bug# 7277007
123 OKL_DEBUG_PUB.G_SESSION_ID := Sys_Context('USERENV', 'SESSIONID');
124 IF p_to_date IS NOT NULL THEN
125 l_to_date := FND_DATE.CANONICAL_TO_DATE(p_to_date);
126 END IF;
127
128 VARIABLE_INTEREST(p_api_version => l_api_vesrions,
129 p_init_msg_list => FND_API.G_FALSE,
130 x_return_status => lx_return_status,
131 x_msg_count => lx_msg_count,
132 x_msg_data => errbuf,
133 p_contract_number => p_contract_number,
134 p_to_date => l_to_date);
135 -- Added for bug 13931371
136 IF lx_return_status= 'W' THEN
137 retcode := 1;
138 END IF;
139
140 IF lx_msg_count >= 1 THEN
141 FOR i in 1..lx_msg_count LOOP
142 fnd_msg_pub.get (p_msg_index => i,
143 p_encoded => 'F',
144 p_data => lx_msg_data,
145 p_msg_index_out => l_msg_index_out);
146
147 FND_FILE.PUT_LINE (FND_FILE.LOG,to_char(i) || ': ' || lx_msg_data);
148 END LOOP;
149 END IF;
150 EXCEPTION
151 WHEN OTHERS THEN
152
153 FND_FILE.PUT_LINE (FND_FILE.LOG,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
154
155 END;
156
157
158 END;