[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCT_GEN_RULE_PUB
Source
1 PACKAGE BODY OKL_ACCT_GEN_RULE_PUB AS
2 /* $Header: OKLPACGB.pls 115.7 2002/12/18 12:07:49 kjinger noship $ */
3
4
5 PROCEDURE GET_RULE_LINES_COUNT(p_api_version IN NUMBER,
6 p_init_msg_list IN VARCHAR2,
7 x_return_status OUT NOCOPY VARCHAR2,
8 x_msg_count OUT NOCOPY NUMBER,
9 x_msg_data OUT NOCOPY VARCHAR2,
10 p_ae_line_type IN VARCHAR2,
11 x_line_count OUT NOCOPY NUMBER) IS
12
13
14 l_api_version NUMBER := 1.0;
15 l_api_name VARCHAR2(30) := 'GET_RULE_LINES_COUNT';
16
17 l_ae_line_type VARCHAR2(30) := p_ae_line_type;
18 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
19 l_line_count NUMBER := 0;
20
21 BEGIN
22
23 SAVEPOINT GET_RULE_LINES_COUNT;
24
25 x_return_status := FND_API.G_RET_STS_SUCCESS;
26
27 -- customer pre-processing
28
29
30
31
32 -- Run the MAIN Procedure
33
34 OKL_ACCT_GEN_RULE_PVT.GET_RULE_LINES_COUNT(p_api_version => l_api_version,
35 p_init_msg_list => p_init_msg_list,
36 x_return_status => x_return_status,
37 x_msg_count => x_msg_count,
38 x_msg_data => x_msg_data,
39 p_ae_line_type => l_ae_line_type,
40 x_line_count => x_line_count);
41
42
43 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
44
45 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
46
47 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
48
49 RAISE OKL_API.G_EXCEPTION_ERROR;
50
51 END IF;
52
53 l_line_count := x_line_count;
54
55
56
57
58
59 EXCEPTION
60
61 WHEN FND_API.G_EXC_ERROR THEN
62 ROLLBACK TO GET_RULE_LINES_COUNT;
63 x_return_status := FND_API.G_RET_STS_ERROR;
64
65 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
66 ,p_count => x_msg_count
67 ,p_data => x_msg_data);
68
69 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
70 ROLLBACK TO GET_RULE_LINES_COUNT;
71 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
73 ,p_count => x_msg_count
74 ,p_data => x_msg_data);
75
76 WHEN OTHERS THEN
77
78 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCT_GEN_RULE_PUB','GET_RULE_LINES_COUNT');
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 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
83
84
85
86 END GET_RULE_LINES_COUNT;
87
88
89
90 PROCEDURE GET_RULE_LINES(p_api_version IN NUMBER,
91 p_init_msg_list IN VARCHAR2,
92 x_return_status OUT NOCOPY VARCHAR2,
93 x_msg_count OUT NOCOPY NUMBER,
94 x_msg_data OUT NOCOPY VARCHAR2,
95 p_ae_line_type IN VARCHAR2,
96 x_acc_lines OUT NOCOPY ACCT_TBL_TYPE) IS
97
98
99 l_api_version NUMBER := 1.0;
100 l_api_name VARCHAR2(30) := 'GET_RULE_LINES';
101
102 l_ae_line_type VARCHAR2(30) := p_ae_line_type;
103 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
104 l_acc_lines ACCT_TBL_TYPE;
105 l_line_count NUMBER := 0;
106
107 BEGIN
108
109 SAVEPOINT GET_RULE_LINES;
110
111 x_return_status := FND_API.G_RET_STS_SUCCESS;
112
113 -- customer pre-processing
114
115
116
117
118 -- Run the MAIN Procedure
119
120 OKL_ACCT_GEN_RULE_PVT.GET_RULE_LINES(p_api_version => l_api_version,
121 p_init_msg_list => p_init_msg_list,
122 x_return_status => x_return_status,
123 x_msg_count => x_msg_count,
124 x_msg_data => x_msg_data,
125 p_ae_line_type => l_ae_line_type,
126 x_acc_lines => x_acc_lines);
127
128
129 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
130
131 RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
132
133 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
134
135 RAISE OKL_API.G_EXCEPTION_ERROR;
136
137 END IF;
138
139 l_acc_lines := x_acc_lines;
140
141
142
143
144
145 EXCEPTION
146
147 WHEN FND_API.G_EXC_ERROR THEN
148 ROLLBACK TO GET_RULE_LINES;
149 x_return_status := FND_API.G_RET_STS_ERROR;
150
151 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
152 ,p_count => x_msg_count
153 ,p_data => x_msg_data);
154
155 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
156 ROLLBACK TO GET_RULE_LINES;
157 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
158 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
159 ,p_count => x_msg_count
160 ,p_data => x_msg_data);
161
162 WHEN OTHERS THEN
163
164 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCT_GEN_RULE_PUB','GET_RULE_LINES');
165 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
166 ,p_count => x_msg_count
167 ,p_data => x_msg_data);
168 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
169
170
171
172 END GET_RULE_LINES;
173
174
175
176
177 PROCEDURE UPDT_RULE_LINES(p_api_version IN NUMBER,
178 p_init_msg_list IN VARCHAR2,
179 x_return_status OUT NOCOPY VARCHAR2,
180 x_msg_count OUT NOCOPY NUMBER,
181 x_msg_data OUT NOCOPY VARCHAR2,
182 p_acc_lines IN ACCT_TBL_TYPE,
183 x_acc_lines OUT NOCOPY ACCT_TBL_TYPE)
184 IS
185
186 l_api_version NUMBER := 1.0;
187
188 l_api_name VARCHAR2(30) := 'UPDT_RULE_LINES';
189 l_acc_lines_in ACCT_TBL_TYPE := p_acc_lines;
190 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
191 l_acc_lines ACCT_TBL_TYPE;
192
193
194 BEGIN
195
196 SAVEPOINT UPDT_RULE_LINES;
197
198 x_return_status := FND_API.G_RET_STS_SUCCESS;
199
200 -- customer pre-processing
201
202
203
204
205 -- Run the MAIN Procedure
206
207
208 OKL_ACCT_GEN_RULE_PVT.UPDT_RULE_LINES(p_api_version => l_api_version,
209 p_init_msg_list => p_init_msg_list,
210 x_return_status => x_return_status,
211 x_msg_count => x_msg_count,
212 x_msg_data => x_msg_data,
213 p_acc_lines => l_acc_lines_in,
214 x_acc_lines => x_acc_lines);
215
216
217
218 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
219
220 RAISE FND_API.G_EXC_ERROR;
221
222 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
223
224 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225
226 END IF;
227
228 l_acc_lines := x_acc_lines;
229
230
231
232
233
234 EXCEPTION
235
236 WHEN FND_API.G_EXC_ERROR THEN
237 ROLLBACK TO UPDT_RULE_LINES;
238 x_return_status := FND_API.G_RET_STS_ERROR;
239
240 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
241 ,p_count => x_msg_count
242 ,p_data => x_msg_data);
243
244 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
245 ROLLBACK TO UPDT_RULE_LINES;
246 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
248 ,p_count => x_msg_count
249 ,p_data => x_msg_data);
250
251 WHEN OTHERS THEN
252
253 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCT_GEN_RULE_PUB','UPDT_RULE_LINES');
254 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
255 ,p_count => x_msg_count
256 ,p_data => x_msg_data);
257
258 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
259
260
261
262 END UPDT_RULE_LINES;
263
264
265
266 END OKL_ACCT_GEN_RULE_PUB;
267