[Home] [Help]
PACKAGE BODY: APPS.OKL_INTEREST_CALC_PUB
Source
1 PACKAGE BODY OKL_INTEREST_CALC_PUB AS
2 /* $Header: OKLPITUB.pls 115.9 2003/01/28 12:54:27 rabhupat noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.ACCOUNTING.INTEREST';
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 PROCEDURE CALC_INTEREST_ACTIVATE(p_api_version IN NUMBER,
11 p_init_msg_list IN VARCHAR2,
12 x_return_status OUT NOCOPY VARCHAR2,
13 x_msg_count OUT NOCOPY NUMBER,
14 x_msg_data OUT NOCOPY VARCHAR2,
15 p_contract_number IN VARCHAR2,
16 p_Activation_date IN DATE,
17 x_amount OUT NOCOPY NUMBER,
18 x_source_id OUT NOCOPY NUMBER)
19 AS
20 l_api_version NUMBER := 1.0;
21 l_api_name CONSTANT VARCHAR2(30) := 'CALC_INTEREST_ACTIVATE';
22 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
23 l_contract_number VARCHAR2(256) := p_contract_number;
24 l_activation_date DATE := p_activation_date;
25 l_amount NUMBER;
26 l_source_id NUMBER;
27
28 BEGIN
29 SAVEPOINT CALC_INTEREST_ACTIVATE;
30 x_return_status := FND_API.G_RET_STS_SUCCESS;
31 -- customer pre-processing
32 -- Execute the Main Procedure
33 -- Start of wraper code generated automatically by Debug code generator for OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE
34 IF(L_DEBUG_ENABLED='Y') THEN
35 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
36 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
37 END IF;
38 IF(IS_DEBUG_PROCEDURE_ON) THEN
39 BEGIN
40 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPITUB.pls call OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE ');
41 END;
42 END IF;
43 OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE(p_api_version => l_api_version,
44 p_init_msg_list => p_init_msg_list,
45 x_return_status => x_return_status,
46 x_msg_count => x_msg_count,
47 x_msg_data => x_msg_data,
48 p_contract_number => l_contract_number,
49 p_activation_date => l_activation_date,
50 x_amount => x_amount,
51 x_source_id => x_source_id);
52 IF(IS_DEBUG_PROCEDURE_ON) THEN
53 BEGIN
54 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPITUB.pls call OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE ');
55 END;
56 END IF;
57 -- End of wraper code generated automatically by Debug code generator for OKL_INTEREST_CALC_PVT.CALC_INTEREST_ACTIVATE
58
59 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
60 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
61 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
62 RAISE FND_API.G_EXC_ERROR;
63 END IF;
64
65 l_amount := x_amount;
66 l_source_id := x_source_id;
67
68
69 EXCEPTION
70 WHEN FND_API.G_EXC_ERROR THEN
71 ROLLBACK TO CALC_INTEREST_ACTIVATE;
72 x_return_status := FND_API.G_RET_STS_ERROR;
73 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
74 ,p_count => x_msg_count
75 ,p_data => x_msg_data);
76 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
77 ROLLBACK TO CALC_INTEREST_ACTIVATE;
78 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
80 ,p_count => x_msg_count
81 ,p_data => x_msg_data);
82 WHEN OTHERS THEN
83 FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_CALC_PUB','CALC_INTEREST_ACTIVATE');
84 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
85 ,p_count => x_msg_count
86 ,p_data => x_msg_data);
87 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
88
89 END CALC_INTEREST_ACTIVATE;
90
91
92 FUNCTION SUBMIT_CALCULATE_INTEREST(p_api_version IN NUMBER,
93 p_init_msg_list IN VARCHAR2,
94 x_return_status OUT NOCOPY VARCHAR2,
95 x_msg_count OUT NOCOPY NUMBER,
96 x_msg_data OUT NOCOPY VARCHAR2,
97 p_period_name IN VARCHAR2 )
98
99 RETURN NUMBER IS
100
101 l_api_version CONSTANT NUMBER := 1;
102 l_api_name CONSTANT VARCHAR2(50) := 'SUBMIT_CALCULATE_INTEREST';
103 l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
104 l_request_id NUMBER;
105 l_period_name VARCHAR2(30) := p_period_name;
106
107 BEGIN
108
109 SAVEPOINT SUBMIT_CALCULATE_INTEREST;
110 l_return_status := FND_API.G_RET_STS_SUCCESS;
111 -- customer pre-processing
112
113 -- Execute the Main Procedure
114 -- Start of wraper code generated automatically by Debug code generator for l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST
115 IF(L_DEBUG_ENABLED='Y') THEN
116 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
117 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
118 END IF;
119 IF(IS_DEBUG_PROCEDURE_ON) THEN
120 BEGIN
121 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPITUB.pls call l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST ');
122 END;
123 END IF;
124 l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST(
125 p_api_version => l_api_version,
126 p_init_msg_list => p_init_msg_list,
127 x_return_status => x_return_status,
128 x_msg_count => x_msg_count,
129 x_msg_data => x_msg_data,
130 p_period_name => l_period_name);
131 IF(IS_DEBUG_PROCEDURE_ON) THEN
132 BEGIN
133 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPITUB.pls call l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST ');
134 END;
135 END IF;
136 -- End of wraper code generated automatically by Debug code generator for l_request_id := OKL_INTEREST_CALC_PVT.SUBMIT_CALCULATE_INTEREST
137
138 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
139 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
140 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
141 RAISE FND_API.G_EXC_ERROR;
142 END IF;
143 RETURN l_request_id;
144 EXCEPTION
145 WHEN FND_API.G_EXC_ERROR THEN
146 ROLLBACK TO SUBMIT_CALCULATE_INTEREST;
147 x_return_status := FND_API.G_RET_STS_ERROR;
148 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
149 ,p_count => x_msg_count
150 ,p_data => x_msg_data);
151 RETURN l_request_id;
152 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
153 ROLLBACK TO SUBMIT_CALCULATE_INTEREST;
154 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
156 ,p_count => x_msg_count
157 ,p_data => x_msg_data);
158 RETURN l_request_id;
159 WHEN OTHERS THEN
160 FND_MSG_PUB.ADD_EXC_MSG('OKL_INTEREST_CALC_PUB','CALC_INTEREST_ACTIVATE');
161 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
162 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
163 ,p_count => x_msg_count
164 ,p_data => x_msg_data);
165 RETURN l_request_id;
166 END SUBMIT_CALCULATE_INTEREST;
167 END OKL_INTEREST_CALC_PUB;