[Home] [Help]
PACKAGE BODY: APPS.CUG_VALIDATE_ADDRESS_PUB
Source
1 Package Body CUG_VALIDATE_ADDRESS_PUB AS
2 /* $Header: CUGVADRB.pls 120.0 2006/03/01 18:39:10 spusegao noship $ */
3 --
4 -- To modify this template, edit file PKGBODY.TXT in TEMPLATE
5 -- directory of SQL Navigator
6 --
7 -- Purpose: Briefly explain the functionality of the package body
8 --
9 -- MODIFICATION HISTORY
10 -- Person Date Comments
11 -- --------- ------ ------------------------------------------
12 -- aneemuch 11-Feb-04 To fix bug 2657648, changed hz_location_pub to hz_location_v2pub
13
14
15 -- Enter procedure, function bodies as shown below
16
17 G_PKG_NAME CONSTANT VARCHAR2(25):= 'CUG_VALIDATE_ADDRESS_PUB';
18
19 PROCEDURE Validate_Incident_Address (
20 p_api_version IN NUMBER,
21 p_init_msg_list IN VARCHAR2 default fnd_api.g_false,
22 p_commit IN VARCHAR2 default fnd_api.g_false,
23 p_incident_type_id IN NUMBER,
24 p_incident_address_rec IN OUT NOCOPY CUG_VALIDATE_ADDRESS_PUB.INCIDENT_ADDRESS_TBL,
25 x_msg_count OUT NOCOPY NUMBER,
26 x_msg_data OUT NOCOPY VARCHAR2,
27 x_return_status OUT NOCOPY VARCHAR2,
28 p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL)
29 IS
30 l_api_name CONSTANT VARCHAR2(30) := 'Validate_Incident_Address';
31 l_api_version CONSTANT NUMBER := 2.0;
32 l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
33
34 -- To fix bug 2657648, changed hz_location_pub to hz_location_v2pub
35 -- l_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
36
37 l_return_status VARCHAR2(1);
38 l_msg_count NUMBER;
39 l_msg_data VARCHAR2(2000);
40 l_location_id NUMBER;
41 l_incident_id NUMBER;
42
43 l_incident_address_rec CUG_VALIDATE_ADDRESS_PUB.INCIDENT_ADDRESS_TBL;
44 l_incident_address_index BINARY_INTEGER;
45
46 Begin
47
48 l_incident_address_rec := p_incident_address_rec;
49
50 l_incident_address_index := l_incident_address_rec.FIRST;
51
52 l_incident_address_rec(l_incident_address_index).jurisdiction_status := 'S';
53 l_incident_address_rec(l_incident_address_index).validation_status := 'S';
54
55
56 -- Pre Call to Customer Hook
57 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
58 'Validate_Address',
59 'B', 'C') THEN
60
61
62 CUG_Validate_Address_CUHK.Validate_Incident_Address_Pre (
63 p_api_version => l_api_version,
64 p_init_msg_list => p_init_msg_list,
65 p_commit => p_commit,
66 p_incident_type_id => p_incident_type_id,
67 p_incident_address_rec => l_incident_address_rec,
68 x_msg_count => l_msg_count,
69 x_msg_data => l_msg_data,
70 x_return_status => l_return_status,
71 p_validation_level => p_validation_level);
72
73
74 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
75 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALADDR_PRE_CST_USR_HK');
76 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
77 FND_MSG_PUB.Add;
78 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
79 END IF;
80 END IF;
81
82
83 -- Pre call to the Vertical Type User Hook
84 --
85 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
86 'Validate_Address',
87 'B', 'V') THEN
88
89 CUG_Validate_Address_VUHK.Validate_Incident_Address_Pre (
90 p_api_version => l_api_version,
91 p_init_msg_list => p_init_msg_list,
92 p_commit => p_commit,
93 p_incident_type_id => p_incident_type_id,
94 p_incident_address_rec => l_incident_address_rec,
95 x_msg_count => l_msg_count,
96 x_msg_data => l_msg_data,
97 x_return_status => l_return_status,
98 p_validation_level => p_validation_level);
99
100 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
101 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALADDR_PRE_VRT_USR_HK');
102 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
103 FND_MSG_PUB.Add;
104 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
105 END IF;
106 END IF;
107
108
109 -- l_return_status := FND_API.G_RET_STS_SUCCESS;
110 CUG_Validate_Address_Pvt.Validate_Incident_Address (
111 p_api_version => l_api_version,
112 p_init_msg_list => p_init_msg_list,
113 p_commit => p_commit,
114 p_incident_type_id => p_incident_type_id,
115 p_incident_address_rec => l_incident_address_rec,
116 x_msg_count => l_msg_count,
117 x_msg_data => l_msg_data,
118 x_return_status => l_return_status,
119 p_validation_level => p_validation_level);
120
121 -- Begin of changes by ANEEMUCH
122 -- Bug fix 2329158
123
124 x_return_status := l_return_status;
125 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
126 FND_MESSAGE.Set_Name('CUG', 'CUG_ADDRESS_VALIDATION_FAILED');
127 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
128 FND_MSG_PUB.Add;
129 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
130 END IF;
131 --
132 -- End of changes by ANEEMUCH
133
134
135 -- Post Call to Customer Hook
136 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
137 'Validate_Address',
138 'A', 'C') THEN
139
140 CUG_Validate_Address_CUHK.Validate_Incident_Address_Post (
141 p_api_version => l_api_version,
142 p_init_msg_list => p_init_msg_list,
143 p_commit => p_commit,
144 p_incident_type_id => p_incident_type_id,
145 p_incident_address_rec => l_incident_address_rec,
146 x_msg_count => l_msg_count,
147 x_msg_data => l_msg_data,
148 x_return_status => l_return_status,
149 p_validation_level => p_validation_level);
150
151 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
152 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALADDR_PST_CST_USR_HK');
153 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
154 FND_MSG_PUB.Add;
155 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
156 END IF;
157 END IF;
158
159 -- Post call to the Vertical Type User Hook
160 --
161 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
162 'Validate_Address',
163 'A', 'V') THEN
164
165 CUG_Validate_Address_VUHK.Validate_Incident_Address_Post (
166 p_api_version => l_api_version,
167 p_init_msg_list => p_init_msg_list,
168 p_commit => p_commit,
169 p_incident_type_id => p_incident_type_id,
170 p_incident_address_rec => l_incident_address_rec,
171 x_msg_count => l_msg_count,
172 x_msg_data => l_msg_data,
173 x_return_status => l_return_status,
174 p_validation_level => p_validation_level);
175
176 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
177 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALADDR_PST_VRT_USR_HK');
178 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
179 FND_MSG_PUB.Add;
180 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
181 END IF;
182 END IF;
183
184 END Validate_Incident_Address;
185
186
187
188 PROCEDURE Validate_Incident_Type (
189 p_api_version IN NUMBER,
190 p_init_msg_list IN VARCHAR2 default fnd_api.g_false,
191 p_commit IN VARCHAR2 default fnd_api.g_false,
192 p_incident_type_id IN NUMBER,
193 p_incident_address_rec IN OUT NOCOPY CUG_VALIDATE_ADDRESS_PUB.INCIDENT_ADDRESS_TBL,
194 x_msg_count OUT NOCOPY NUMBER,
195 x_msg_data OUT NOCOPY VARCHAR2,
196 x_return_status OUT NOCOPY VARCHAR2,
197 p_validation_level IN NUMBER:=FND_API.G_VALID_LEVEL_FULL)
198 IS
199 l_api_name CONSTANT VARCHAR2(30) := 'Validate_Incident_Type';
200 l_api_version CONSTANT NUMBER := 2.0;
201 l_api_name_full CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||l_api_name;
202
203 -- To fix bug 2657648, changed hz_location_pub to hz_location_v2pub
204 -- l_location_rec HZ_LOCATION_V2PUB.LOCATION_REC_TYPE;
205
206 l_return_status VARCHAR2(1);
207 l_msg_count NUMBER;
208 l_msg_data VARCHAR2(2000);
209 l_location_id NUMBER;
210 l_incident_id NUMBER;
211
212 l_incident_address_rec CUG_VALIDATE_ADDRESS_PUB.INCIDENT_ADDRESS_TBL;
213 l_incident_address_index BINARY_INTEGER;
214
215 Begin
216
217 l_incident_address_rec := p_incident_address_rec;
218
219 l_incident_address_index := l_incident_address_rec.FIRST;
220
221 l_incident_address_rec(l_incident_address_index).jurisdiction_status := 'S';
222 l_incident_address_rec(l_incident_address_index).validation_status := 'S';
223
224
225
226 -- Pre Call to Customer Hook
227 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
228 'Validate_Type',
229 'B', 'C') THEN
230
231 CUG_Validate_Address_CUHK.Validate_Incident_Type_Pre (
232 p_api_version => l_api_version,
233 p_init_msg_list => p_init_msg_list,
234 p_commit => p_commit,
235 p_incident_type_id => p_incident_type_id,
236 p_incident_address_rec => l_incident_address_rec,
237 x_msg_count => l_msg_count,
238 x_msg_data => l_msg_data,
239 x_return_status => l_return_status,
240 p_validation_level => p_validation_level);
241
242 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
243 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALTYPE_PRE_CST_USR_HK');
244 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
245 FND_MSG_PUB.Add;
246 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247 END IF;
248 END IF;
249
250
251 -- Pre call to the Vertical Type User Hook
252 --
253 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
254 'Validate_Type',
255 'B', 'V') THEN
256
257 CUG_Validate_Address_VUHK.Validate_Incident_Type_Pre (
258 p_api_version => l_api_version,
259 p_init_msg_list => p_init_msg_list,
260 p_commit => p_commit,
261 p_incident_type_id => p_incident_type_id,
262 p_incident_address_rec => l_incident_address_rec,
263 x_msg_count => l_msg_count,
264 x_msg_data => l_msg_data,
265 x_return_status => l_return_status,
266 p_validation_level => p_validation_level);
267
268 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
269 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALTYPE_PRE_VRT_USR_HK');
270 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
271 FND_MSG_PUB.Add;
272 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
273 END IF;
274 END IF;
275
276
277 -- l_return_status := FND_API.G_RET_STS_SUCCESS;
278 CUG_Validate_Address_Pvt.Validate_Incident_Type (
279 p_api_version => l_api_version,
280 p_init_msg_list => p_init_msg_list,
281 p_commit => p_commit,
282 p_incident_type_id => p_incident_type_id,
283 p_incident_address_rec => l_incident_address_rec,
284 x_msg_count => l_msg_count,
285 x_msg_data => l_msg_data,
286 x_return_status => l_return_status,
287 p_validation_level => p_validation_level);
288
289 -- Begin of changes by ANEEMUCH
290 -- Bug fix 2329158
291
292 x_return_status := l_return_status;
293 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
294 FND_MESSAGE.Set_Name('CUG', 'CUG_TYPE_VALIDATION_FAILED');
295 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
296 FND_MSG_PUB.Add;
297 -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298 END IF;
299 --
300 -- End of changes by ANEEMUCH
301
302
303 -- Post Call to Customer Hook
304 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
305 'Validate_Type',
306 'A', 'C') THEN
307
308
309 CUG_Validate_Address_CUHK.Validate_Incident_Type_Post (
310 p_api_version => l_api_version,
311 p_init_msg_list => p_init_msg_list,
312 p_commit => p_commit,
313 p_incident_type_id => p_incident_type_id,
314 p_incident_address_rec => l_incident_address_rec,
315 x_msg_count => l_msg_count,
316 x_msg_data => l_msg_data,
317 x_return_status => l_return_status,
318 p_validation_level => p_validation_level);
319
320 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
321 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALTYPE_PST_CST_USR_HK');
322 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
323 FND_MSG_PUB.Add;
324 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
325 END IF;
326 END IF;
327
328 -- Post call to the Vertical Type User Hook
329 --
330 IF jtf_usr_hks.Ok_To_Execute('CUG_Validate_Address_Pub',
331 'Validate_Type',
332 'A', 'V') THEN
333
334 CUG_Validate_Address_VUHK.Validate_Incident_Type_Post (
335 p_api_version => l_api_version,
336 p_init_msg_list => p_init_msg_list,
337 p_commit => p_commit,
338 p_incident_type_id => p_incident_type_id,
339 p_incident_address_rec => l_incident_address_rec,
340 x_msg_count => l_msg_count,
341 x_msg_data => l_msg_data,
342 x_return_status => l_return_status,
343 p_validation_level => p_validation_level);
344
345 IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
346 FND_MESSAGE.Set_Name('CUG', 'CUG_API_VALTYPE_PST_VRT_USR_HK');
347 FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
348 FND_MSG_PUB.Add;
349 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
350 END IF;
351 END IF;
352
353 END Validate_Incident_Type;
354
355
356
357 END CUG_VALIDATE_ADDRESS_PUB;