[Home] [Help]
PACKAGE BODY: APPS.OKL_PERD_STATUS_PUB
Source
1 PACKAGE BODY OKL_PERD_STATUS_PUB AS
2 /* $Header: OKLPPSMB.pls 115.7 2003/01/28 12:56:13 rabhupat noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.ACCOUNTING.PERIOD';
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 SEARCH_PERIOD_STATUS(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_period_rec IN PERIOD_REC_TYPE,
17 x_period_tbl OUT NOCOPY PERIOD_TBL_TYPE )
18 IS
19
20
21 l_api_version NUMBER := 1.0;
22 l_api_name VARCHAR2(30) := 'SEARCH_PERIOD_STATUS';
23
24 l_period_rec period_rec_type := p_period_rec;
25 l_period_tbl period_tbl_type;
26
27 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
28
29 BEGIN
30
31 SAVEPOINT SEARCH_PERIOD_STATUS;
32
33 x_return_status := FND_API.G_RET_STS_SUCCESS;
34
35 -- customer pre-processing
36
37
38
39
40 -- Run the MAIN Procedure
41
42
43 -- Start of wraper code generated automatically by Debug code generator for OKL_PERD_STATUS_PVT.SEARCH_PERIOD_STATUS
44 IF(L_DEBUG_ENABLED='Y') THEN
45 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
46 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
47 END IF;
48 IF(IS_DEBUG_PROCEDURE_ON) THEN
49 BEGIN
50 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPPSMB.pls call OKL_PERD_STATUS_PVT.SEARCH_PERIOD_STATUS ');
51 END;
52 END IF;
53 OKL_PERD_STATUS_PVT.SEARCH_PERIOD_STATUS(p_api_version => l_api_version,
54 p_init_msg_list => p_init_msg_list,
55 x_return_status => x_return_status,
56 x_msg_count => x_msg_count,
57 x_msg_data => x_msg_data,
58 p_period_rec => p_period_rec,
59 x_period_tbl => x_period_tbl);
60 IF(IS_DEBUG_PROCEDURE_ON) THEN
61 BEGIN
62 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPPSMB.pls call OKL_PERD_STATUS_PVT.SEARCH_PERIOD_STATUS ');
63 END;
64 END IF;
65 -- End of wraper code generated automatically by Debug code generator for OKL_PERD_STATUS_PVT.SEARCH_PERIOD_STATUS
66
67
68
69 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
70 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
72 RAISE FND_API.G_EXC_ERROR;
73 END IF;
74
75 l_period_tbl := x_period_tbl;
76
77
78
79
80
81 EXCEPTION
82
83 WHEN FND_API.G_EXC_ERROR THEN
84 ROLLBACK TO SEARCH_PERIOD_STATUS;
85 x_return_status := FND_API.G_RET_STS_ERROR;
86
87 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
88 ,p_count => x_msg_count
89 ,p_data => x_msg_data);
90
91 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
92 ROLLBACK TO SEARCH_PERIOD_STATUS;
93 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
95 ,p_count => x_msg_count
96 ,p_data => x_msg_data);
97
98 WHEN OTHERS THEN
99
100 FND_MSG_PUB.ADD_EXC_MSG('OKL_PERD_STATUS_PUB','SEARCH_PERIOD_STATUS');
101 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
102 ,p_count => x_msg_count
103 ,p_data => x_msg_data);
104 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105
106
107
108 END SEARCH_PERIOD_STATUS;
109
110
111
112
113 PROCEDURE UPDATE_PERIOD_STATUS(p_api_version IN NUMBER,
114 p_init_msg_list IN VARCHAR2,
115 x_return_status OUT NOCOPY VARCHAR2,
116 x_msg_count OUT NOCOPY NUMBER,
117 x_msg_data OUT NOCOPY VARCHAR2,
118 p_period_tbl IN PERIOD_TBL_TYPE)
119 IS
120
121
122 l_api_version NUMBER := 1.0;
123 l_api_name VARCHAR2(30) := 'UPDATE_PERIOD_STATUS';
124
125 l_period_tbl period_tbl_type := p_period_tbl;
126
127 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
128
129
130 BEGIN
131
132 SAVEPOINT UPDATE_PERIOD_STATUS;
133
134 x_return_status := FND_API.G_RET_STS_SUCCESS;
135
136 -- customer pre-processing
137
138
139
140
141 -- Run the MAIN Procedure
142
143 -- Start of wraper code generated automatically by Debug code generator for OKL_PERD_STATUS_PVT.UPDATE_PERIOD_STATUS
144 IF(L_DEBUG_ENABLED='Y') THEN
145 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
146 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
147 END IF;
148 IF(IS_DEBUG_PROCEDURE_ON) THEN
149 BEGIN
150 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPPSMB.pls call OKL_PERD_STATUS_PVT.UPDATE_PERIOD_STATUS ');
151 END;
152 END IF;
153 OKL_PERD_STATUS_PVT.UPDATE_PERIOD_STATUS(p_api_version => l_api_version,
154 p_init_msg_list => p_init_msg_list,
155 x_return_status => x_return_status,
156 x_msg_count => x_msg_count,
157 x_msg_data => x_msg_data,
158 p_period_tbl => p_period_tbl);
159 IF(IS_DEBUG_PROCEDURE_ON) THEN
160 BEGIN
161 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPPSMB.pls call OKL_PERD_STATUS_PVT.UPDATE_PERIOD_STATUS ');
162 END;
163 END IF;
164 -- End of wraper code generated automatically by Debug code generator for OKL_PERD_STATUS_PVT.UPDATE_PERIOD_STATUS
165
166
167 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
168 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
170 RAISE FND_API.G_EXC_ERROR;
171 END IF;
172
173
174
175
176
177 EXCEPTION
178
179 WHEN FND_API.G_EXC_ERROR THEN
180 ROLLBACK TO UPDATE_PERIOD_STATUS;
181 x_return_status := FND_API.G_RET_STS_ERROR;
182
183 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
184 ,p_count => x_msg_count
185 ,p_data => x_msg_data);
186
187 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
188 ROLLBACK TO UPDATE_PERIOD_STATUS;
189 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
191 ,p_count => x_msg_count
192 ,p_data => x_msg_data);
193
194 WHEN OTHERS THEN
195
196 FND_MSG_PUB.ADD_EXC_MSG('OKL_PERD_STATUS_PUB','UPDATE_PERIOD_STATUS');
197 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
198 ,p_count => x_msg_count
199 ,p_data => x_msg_data);
200 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201
202
203
204
205 END UPDATE_PERIOD_STATUS;
206
207
208 END OKL_PERD_STATUS_PUB ;