[Home] [Help]
PACKAGE BODY: APPS.JTF_TERRITORY_TYPE_PUB
Source
1 PACKAGE BODY jtf_territory_type_pub AS
2 /* $Header: jtfpttyb.pls 120.0 2005/06/02 18:21:03 appldev ship $ */
3 -- ---------------------------------------------------
4 -- Start of Comments
5 -- ---------------------------------------------------
6 -- PACKAGE NAME: JTF_TERRITORY_TYPE_PUB
7 -- ---------------------------------------------------
8 -- PURPOSE
9 -- Joint task force core territory manager public api's.
10 -- This package is a public API for inserting territory type
11 -- related information in to information into JTF tables.
12 --
13 -- Procedures:
14 -- (see below for specification)
15 --
16 -- NOTES
17 -- This package is publicly available for use
18 --
19 -- HISTORY
20 -- 07/29/99 JDOCHERT Created
21 -- 11-20-99 VNEDUNGA Changed the QUALIFER_MODE from
22 -- NUMBER to VARCHAR2
23 -- 02-22-00 VNEDUNGA Changing the copy record routines
24 -- to consider org_id
25 -- 03-28-00 VNEDUNGA Adding the fnd_message calls
26 --
27 --
28 -- End of Comments
29 -- ***************************************************
30 -- GLOBAL VARIABLES
31 -- ***************************************************
32 g_pkg_name CONSTANT VARCHAR2(30) := 'JTF_TERRITORY_TYPE_PUB';
33 g_file_name CONSTANT VARCHAR2(12) := 'jtfpttyb.pls';
34 g_appl_id NUMBER := fnd_global.prog_appl_id;
35 g_login_id NUMBER := fnd_global.conc_login_id;
36 g_program_id NUMBER := fnd_global.conc_program_id;
37 g_user_id NUMBER := fnd_global.user_id;
38 g_request_id NUMBER := fnd_global.conc_request_id;
39
40 -- -------------------------------------------------
41 -- Package Name : Convert_TerTypeRec_PubToPvt
42 -- -------------------------------------------------
43 -- Purpose : This utility procedure will convert
44 -- jtf_TerrType_rec from pub to pvt before
45 -- calling the JTF_TERRITORY_TYPE_PVT pkg.
46 -- Notes :
47 -- History :
48 -- 08/23/99 VNEDUNGA Created
49 -- -------------------------------------------------
50 PROCEDURE convert_tertyperec_pubtopvt (
51 p_terrtype_rec IN jtf_territory_type_pub.terrtype_rec_type,
52 x_terrtype_rec OUT NOCOPY jtf_territory_type_pvt.terrtype_rec_type
53 )
54 AS
55 BEGIN
56 x_terrtype_rec.terr_type_id := p_terrtype_rec.terr_type_id;
57 x_terrtype_rec.name := p_terrtype_rec.name;
58 x_terrtype_rec.last_update_date := p_terrtype_rec.last_update_date;
59 x_terrtype_rec.last_updated_by := p_terrtype_rec.last_updated_by;
60 x_terrtype_rec.creation_date := p_terrtype_rec.creation_date;
61 x_terrtype_rec.created_by := p_terrtype_rec.created_by;
62 x_terrtype_rec.last_update_login := p_terrtype_rec.last_update_login;
63 x_terrtype_rec.enabled_flag := p_terrtype_rec.enabled_flag;
64 x_terrtype_rec.application_short_name :=
65 p_terrtype_rec.application_short_name;
66 x_terrtype_rec.description := p_terrtype_rec.description;
67 x_terrtype_rec.org_id := p_terrtype_rec.org_id;
68 x_terrtype_rec.attribute_category := p_terrtype_rec.attribute_category;
69 x_terrtype_rec.attribute1 := p_terrtype_rec.attribute1;
70 x_terrtype_rec.attribute2 := p_terrtype_rec.attribute2;
71 x_terrtype_rec.attribute3 := p_terrtype_rec.attribute3;
72 x_terrtype_rec.attribute4 := p_terrtype_rec.attribute4;
73 x_terrtype_rec.attribute5 := p_terrtype_rec.attribute5;
74 x_terrtype_rec.attribute6 := p_terrtype_rec.attribute6;
75 x_terrtype_rec.attribute7 := p_terrtype_rec.attribute7;
76 x_terrtype_rec.attribute8 := p_terrtype_rec.attribute8;
77 x_terrtype_rec.attribute9 := p_terrtype_rec.attribute9;
78 x_terrtype_rec.attribute10 := p_terrtype_rec.attribute10;
79 x_terrtype_rec.attribute11 := p_terrtype_rec.attribute11;
80 x_terrtype_rec.attribute12 := p_terrtype_rec.attribute12;
81 x_terrtype_rec.attribute13 := p_terrtype_rec.attribute13;
82 x_terrtype_rec.attribute14 := p_terrtype_rec.attribute14;
83 x_terrtype_rec.attribute15 := p_terrtype_rec.attribute15;
84 x_terrtype_rec.start_date_active := p_terrtype_rec.start_date_active;
85 x_terrtype_rec.end_date_active := p_terrtype_rec.end_date_active;
86 --
87
88 END convert_tertyperec_pubtopvt;
89
90 -- -------------------------------------------------
91 -- Package Name : Convert_TerTypeUsg_PubToPvt
92 -- -------------------------------------------------
93 -- Purpose : This utility procedure will convert
94 -- jtf_TerrTypeUsg_Tbl from pub to pvt
95 -- before calling the JTF_TERRITORY_TYPE_PVT
96 -- pkg.
97 -- Notes :
98 -- History :
99 -- 08/23/99 VNEDUNGA Created
100 -- -------------------------------------------------
101 PROCEDURE convert_tertypeusg_pubtopvt (
102 p_terrtypeusgs_tbl IN jtf_territory_type_pub.terrtypeusgs_tbl_type,
103 x_terrtypeusgs_tbl OUT NOCOPY jtf_territory_type_pvt.terrtypeusgs_tbl_type
104 )
105 AS
106 l_counter NUMBER;
107 BEGIN
108 -- If the table is empty
109 IF p_terrtypeusgs_tbl.COUNT = 0
110 THEN
111 RETURN;
112 END IF;
113
114 --
115 FOR l_counter IN 1 .. p_terrtypeusgs_tbl.COUNT
116 LOOP
117 --
118 x_terrtypeusgs_tbl (l_counter).terr_type_usg_id :=
119 p_terrtypeusgs_tbl (l_counter).terr_type_usg_id;
120 x_terrtypeusgs_tbl (l_counter).source_id :=
121 p_terrtypeusgs_tbl (l_counter).source_id;
122 x_terrtypeusgs_tbl (l_counter).terr_type_id :=
123 p_terrtypeusgs_tbl (l_counter).terr_type_id;
124 x_terrtypeusgs_tbl (l_counter).last_update_date :=
125 p_terrtypeusgs_tbl (l_counter).last_update_date;
126 x_terrtypeusgs_tbl (l_counter).last_updated_by :=
127 p_terrtypeusgs_tbl (l_counter).last_updated_by;
128 x_terrtypeusgs_tbl (l_counter).creation_date :=
129 p_terrtypeusgs_tbl (l_counter).creation_date;
130 x_terrtypeusgs_tbl (l_counter).created_by :=
131 p_terrtypeusgs_tbl (l_counter).created_by;
132 x_terrtypeusgs_tbl (l_counter).last_update_login :=
133 p_terrtypeusgs_tbl (l_counter).last_update_login;
134 x_terrtypeusgs_tbl (l_counter).org_id :=
135 p_terrtypeusgs_tbl (l_counter).org_id;
136 --
137 END LOOP;
138 --
139
140 END convert_tertypeusg_pubtopvt;
141
142 -- -------------------------------------------------
143 -- Package Name : Convert_TypeQtypeUsg_PubToPvt
144 -- -------------------------------------------------
145 -- Purpose : This utility procedure will convert
146 -- TypeQualTypeUsgs from pub to pvt before
147 -- calling the JTF_TERRITORY_TYPE_PVT pkg.
148 -- Notes :
149 -- History :
150 -- 08/23/99 VNEDUNGA Created
151 -- -------------------------------------------------
152 PROCEDURE convert_typeqtypeusg_pubtopvt (
153 p_typequaltypeusgs_tbl IN jtf_territory_type_pub.typequaltypeusgs_tbl_type,
154 x_typequaltypeusgs_tbl OUT NOCOPY jtf_territory_type_pvt.typequaltypeusgs_tbl_type
155 )
156 AS
157 l_counter NUMBER;
158 BEGIN
159 -- If the table is empty
160 IF p_typequaltypeusgs_tbl.COUNT = 0
161 THEN
162 RETURN;
163 END IF;
164 --
165 FOR l_counter IN 1 .. p_typequaltypeusgs_tbl.COUNT
166 LOOP
167 --
168 x_typequaltypeusgs_tbl (l_counter).type_qual_type_usg_id :=
169 p_typequaltypeusgs_tbl (l_counter).type_qual_type_usg_id;
170 x_typequaltypeusgs_tbl (l_counter).terr_type_id :=
171 p_typequaltypeusgs_tbl (l_counter).terr_type_id;
172 x_typequaltypeusgs_tbl (l_counter).qual_type_usg_id :=
173 p_typequaltypeusgs_tbl (l_counter).qual_type_usg_id;
174 x_typequaltypeusgs_tbl (l_counter).last_update_date :=
175 p_typequaltypeusgs_tbl (l_counter).last_update_date;
176 x_typequaltypeusgs_tbl (l_counter).last_updated_by :=
177 p_typequaltypeusgs_tbl (l_counter).last_updated_by;
178 x_typequaltypeusgs_tbl (l_counter).creation_date :=
179 p_typequaltypeusgs_tbl (l_counter).creation_date;
180 x_typequaltypeusgs_tbl (l_counter).created_by :=
181 p_typequaltypeusgs_tbl (l_counter).created_by;
182 x_typequaltypeusgs_tbl (l_counter).last_update_login :=
183 p_typequaltypeusgs_tbl (l_counter).last_update_login;
184 x_typequaltypeusgs_tbl (l_counter).org_id :=
185 p_typequaltypeusgs_tbl (l_counter).org_id;
186 --
187 END LOOP;
188 --
189
190 END convert_typeqtypeusg_pubtopvt;
191
192 -- -------------------------------------------------
193 -- Package Name : Convert_TerrTypeQual_PubToPvt
194 -- -------------------------------------------------
195 -- Purpose : This utility procedure will convert
196 -- TerrTypequal from pub to pvt before
197 -- calling the JTF_TERRITORY_TYPE_PVT pkg.
198 -- Notes :
199 -- History :
200 -- 08/23/99 VNEDUNGA Created
201 -- -------------------------------------------------
202 PROCEDURE convert_terrtypequal_pubtopvt (
203 p_terrtypequal_tbl IN jtf_territory_type_pub.terrtypequal_tbl_type,
204 x_terrtypequal_tbl OUT NOCOPY jtf_territory_type_pvt.terrtypequal_tbl_type
205 )
206 AS
207 l_counter NUMBER;
208 BEGIN
209 -- If the table is empty
210 IF p_terrtypequal_tbl.COUNT = 0
211 THEN
212 RETURN;
213 END IF;
214
215 --
216 FOR l_counter IN 1 .. p_terrtypequal_tbl.COUNT
217 LOOP
218 --
219 x_terrtypequal_tbl (l_counter).terr_type_qual_id :=
220 p_terrtypequal_tbl (l_counter).terr_type_qual_id;
221 x_terrtypequal_tbl (l_counter).last_update_date :=
222 p_terrtypequal_tbl (l_counter).last_update_date;
223 x_terrtypequal_tbl (l_counter).last_updated_by :=
224 p_terrtypequal_tbl (l_counter).last_updated_by;
225 x_terrtypequal_tbl (l_counter).creation_date :=
226 p_terrtypequal_tbl (l_counter).creation_date;
227 x_terrtypequal_tbl (l_counter).created_by :=
228 p_terrtypequal_tbl (l_counter).created_by;
229 x_terrtypequal_tbl (l_counter).last_update_login :=
230 p_terrtypequal_tbl (l_counter).last_update_login;
231 x_terrtypequal_tbl (l_counter).qual_usg_id :=
232 p_terrtypequal_tbl (l_counter).qual_usg_id;
233 x_terrtypequal_tbl (l_counter).terr_type_id :=
234 p_terrtypequal_tbl (l_counter).terr_type_id;
235 x_terrtypequal_tbl (l_counter).exclusive_use_flag :=
236 p_terrtypequal_tbl (l_counter).exclusive_use_flag;
237 x_terrtypequal_tbl (l_counter).overlap_allowed_flag :=
238 p_terrtypequal_tbl (l_counter).overlap_allowed_flag;
239 x_terrtypequal_tbl (l_counter).in_use_flag :=
240 p_terrtypequal_tbl (l_counter).in_use_flag;
241 x_terrtypequal_tbl (l_counter).qualifier_mode :=
242 p_terrtypequal_tbl (l_counter).qualifier_mode;
243 x_terrtypequal_tbl (l_counter).org_id :=
244 p_terrtypequal_tbl (l_counter).org_id;
245 --
246 END LOOP;
247 --
248
249 END convert_terrtypequal_pubtopvt;
250
251 -- -------------------------------------------------
252 -- Package Name : Convert_TerrTypeOut_PubToPvt
253 -- -------------------------------------------------
254 -- Purpose : This utility procedure will convert
255 -- terr_type_out_rec from pvt to pub
256 -- after calling JTF_TERRITORY_TYPE_PVT pkg.
257 -- Notes :
258 -- History :
259 -- 08/23/99 VNEDUNGA Created
260 -- -------------------------------------------------
261 PROCEDURE convert_terrtypeout_pubtopvt (
262 p_terrtype_rec IN jtf_territory_type_pvt.terrtype_out_rec_type,
263 x_terrtype_rec OUT NOCOPY jtf_territory_type_pub.terrtype_out_rec_type
264 )
265 AS
266 BEGIN
267 --
268 x_terrtype_rec.terr_type_id := p_terrtype_rec.terr_type_id;
269 x_terrtype_rec.return_status := p_terrtype_rec.return_status;
270 --
271 END convert_terrtypeout_pubtopvt;
272
273 -- -------------------------------------------------
274 -- Package Name : Convert_TypeUsgOut_PvtToPub
275 -- -------------------------------------------------
276 -- Purpose : This utility procedure will convert
277 -- Terr_Type_Usgs_out_Tbl from pvt to pub
278 -- after calling JTF_TERRITORY_TYPE_PVT pkg.
279 -- Notes :
280 -- History :
281 -- 08/23/99 VNEDUNGA Created
282 -- -------------------------------------------------
283 PROCEDURE convert_typeusgout_pvttopub (
284 p_terrtypeusgsout_tbl IN jtf_territory_type_pvt.terrtypeusgs_out_tbl_type,
285 x_terrtypeusgsout_tbl OUT NOCOPY jtf_territory_type_pub.terrtypeusgs_out_tbl_type
286 )
287 AS
288 l_counter NUMBER;
289 BEGIN
290 IF p_terrtypeusgsout_tbl.COUNT = 0
291 THEN
292 RETURN;
293 END IF;
294
295 --
296 FOR l_counter IN 1 .. p_terrtypeusgsout_tbl.COUNT
297 LOOP
298 x_terrtypeusgsout_tbl (l_counter).terr_type_usg_id :=
299 p_terrtypeusgsout_tbl (l_counter).terr_type_usg_id;
300 x_terrtypeusgsout_tbl (l_counter).return_status :=
301 p_terrtypeusgsout_tbl (l_counter).return_status;
302 END LOOP;
303 --
304 END convert_typeusgout_pvttopub;
305
306 -- -------------------------------------------------
307 -- Package Name : Convert_TypeQTUsgOut_PvtToPub
308 -- -------------------------------------------------
309 -- Purpose : This utility procedure will convert
310 -- Terr_QualTypeUsgs_Out_Tbl from pvt
311 -- to pub after calling JTF_TERRITORY_TYPE_PVT
312 -- pkg.
313 -- Notes :
314 -- History :
315 -- 08/23/99 VNEDUNGA Created
316 -- -------------------------------------------------
317 PROCEDURE convert_typeqtusgout_pvttopub (
318 p_typequaltypeusgs_tbl IN jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type,
319 x_typequaltypeusgs_tbl OUT NOCOPY jtf_territory_type_pub.typequaltypeusgs_out_tbl_type
320 )
321 AS
322 l_counter NUMBER;
323 BEGIN
324 IF p_typequaltypeusgs_tbl.COUNT = 0
325 THEN
326 RETURN;
327 END IF;
328
329 --
330 FOR l_counter IN 1 .. p_typequaltypeusgs_tbl.COUNT
331 LOOP
332 --
333 x_typequaltypeusgs_tbl (l_counter).type_qual_type_usg_id :=
334 p_typequaltypeusgs_tbl (l_counter).type_qual_type_usg_id;
335 x_typequaltypeusgs_tbl (l_counter).return_status :=
336 p_typequaltypeusgs_tbl (l_counter).return_status;
337 --
338
339 END LOOP;
340 --
341 END convert_typeqtusgout_pvttopub;
342
343 -- -------------------------------------------------
344 -- Package Name : Convert_TypeQualOut_PvtToPub
345 -- -------------------------------------------------
346 -- Purpose : This utility procedure will convert
347 -- Terr_QualTypeUsgs_Out_Tbl from pvt
348 -- to pub after calling JTF_TERRITORY_TYPE_PVT
349 -- pkg.
350 -- Notes :
351 -- History :
352 -- 08/23/99 VNEDUNGA Created
353 -- -------------------------------------------------
354 PROCEDURE convert_typequalout_pvttopub (
355 p_terrtypequal_tbl IN jtf_territory_type_pvt.terrtypequal_out_tbl_type,
356 x_terrtypequal_tbl OUT NOCOPY jtf_territory_type_pub.terrtypequal_out_tbl_type
357 )
358 AS
359 l_counter NUMBER;
360 BEGIN
361 --
362 IF p_terrtypequal_tbl.COUNT = 0
363 THEN
364 RETURN;
365 END IF;
366
367 --
368 FOR l_counter IN 1 .. p_terrtypequal_tbl.COUNT
369 LOOP
370 --
371 x_terrtypequal_tbl (l_counter).terr_type_qual_id :=
372 p_terrtypequal_tbl (l_counter).terr_type_qual_id;
373 x_terrtypequal_tbl (l_counter).return_status :=
374 p_terrtypequal_tbl (l_counter).return_status;
375 --
376
377 END LOOP;
378 --
379
380 END convert_typequalout_pvttopub;
381
382 -- ***************************************************
383
384 -- ***************************************************
385 -- start of comments
386 -- ***************************************************
387 -- api name : create_terrtype
388 -- type : public.
389 -- function : creates territory type defnitions
390 -- pre-reqs : Territory qualifiers has to be enabled.
391 -- parameters :
392
393 -- in:
394 -- p_api_version_number in number required
395 -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
396 -- p_commit in varchar2 optional --default = fnd_api.g_false
397 -- p_TerrType_rec in TerrType_rec_type required --default = g_miss_TerrType_rec,
398 -- p_TerrTypequal_tbl in TerrTypequal_tbl_type required --default = g_miss_TerrTypequal_rec,
399 -- p_TerrTypeusgs_tbl in TerrTypeusgs_rec_type required --default = g_miss_tersrc_rec
400 -- p_TypequalTypeusgs_tbl in TypeQualTypeUsgs_tbl_type required --default = g_miss_tersrc_tbl,
401 --
402 -- out:
403 -- p_return_status out varchar2(1)
404 -- p_msg_count out number
405 -- p_msg_data out varchar2(2000)
406 -- p_TerrType_id out number
407 -- p_TerrTypequal_out_tbl out TerrTypequal_out_tbl_type
408 -- p_TerrTypeusgs_out_tbl out TerrTypeusgs_out_tbl_type
409 -- p_TypeQualTypeUsgs_out_tbl out TypeQualTypeUsgs_out_tbl_type
410 --
411 -- requirements :
412 -- business rules :
413
414 -- version : current version 1.0
415 -- initial version: initial version 1.0
416 --
417 -- notes: api for creating territory types
418 --
419 -- end of comments
420 PROCEDURE create_terrtype (
421 p_api_version_number IN NUMBER,
422 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
423 p_commit IN VARCHAR2 := fnd_api.g_false,
424 p_terrtype_rec IN terrtype_rec_type
425 := g_miss_terrtype_rec,
426 p_terrtypequal_tbl IN terrtypequal_tbl_type
427 := g_miss_terrtypequal_tbl,
428 p_terrtypeusgs_tbl IN terrtypeusgs_tbl_type
429 := g_miss_terrtypeusgs_tbl,
430 p_typequaltypeusgs_tbl IN typequaltypeusgs_tbl_type
431 := g_miss_typequaltypeusgs_tbl,
432 x_return_status OUT NOCOPY VARCHAR2,
433 x_msg_count OUT NOCOPY NUMBER,
434 x_msg_data OUT NOCOPY VARCHAR2,
435 x_terrtype_id OUT NOCOPY NUMBER,
436 x_terrtypequal_out_tbl OUT NOCOPY terrtypequal_out_tbl_type,
437 x_terrtypeusgs_out_tbl OUT NOCOPY terrtypeusgs_out_tbl_type,
438 x_typequaltypeusgs_out_tbl OUT NOCOPY typequaltypeusgs_out_tbl_type
439 )
440 IS
441 l_api_name CONSTANT VARCHAR2(30) := 'Create_TerrType';
442 l_api_version_number CONSTANT NUMBER := 1.0;
443 -- Status Local Variables
444 l_return_status VARCHAR2(1); -- Return value from procedures
445 l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
446 l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
447 l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
448 l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
449 l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
450 l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
451 l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
452 --
453
454 BEGIN
455 --dbms_output.put_line('Create_terrtype PUB: Entering API');
456
457 -- Standard Start of API savepoint
458 SAVEPOINT create_terrtype_pub;
459
460 -- Standard call to check for call compatibility.
461 IF NOT fnd_api.compatible_api_call (
462 l_api_version_number,
463 p_api_version_number,
464 l_api_name,
465 g_pkg_name
466 )
467 THEN
468 RAISE fnd_api.g_exc_unexpected_error;
469 END IF;
470
471 -- Initialize message list if p_init_msg_list is set to TRUE.
472 IF fnd_api.to_boolean (p_init_msg_list)
473 THEN
474 fnd_msg_pub.initialize;
475 END IF;
476
477 -- Debug Message
478 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
479 THEN
480 fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
481 fnd_message.set_name ('PROC_NAME', l_api_name);
482 fnd_msg_pub.add;
483 END IF;
484
485 -- Initialize API return status to success
486 x_return_status := fnd_api.g_ret_sts_success;
487 --
488 -- API body
489 --
490 --dbms_output.put_line('Create_terrtype PUB: Before Convertion from PUB to PVT routines');
491 convert_tertyperec_pubtopvt (
492 p_terrtype_rec => p_terrtype_rec,
493 x_terrtype_rec => l_terrtype_rec
494 );
495 convert_terrtypequal_pubtopvt (
496 p_terrtypequal_tbl => p_terrtypequal_tbl,
497 x_terrtypequal_tbl => l_terrtypequal_tbl
498 );
499 convert_tertypeusg_pubtopvt (
500 p_terrtypeusgs_tbl => p_terrtypeusgs_tbl,
501 x_terrtypeusgs_tbl => l_terrtypeusgs_tbl
502 );
503 convert_typeqtypeusg_pubtopvt (
504 p_typequaltypeusgs_tbl => p_typequaltypeusgs_tbl,
505 x_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl
506 );
507 --dbms_output.put_line('Create_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.create_terrtype');
508 jtf_territory_type_pvt.create_terrtype (
509 p_api_version_number => 1.0,
510 p_init_msg_list => fnd_api.g_false,
511 p_commit => fnd_api.g_false,
512 p_validation_level => fnd_api.g_valid_level_full,
513 p_terrtype_rec => l_terrtype_rec,
514 p_terrtypequal_tbl => l_terrtypequal_tbl,
515 p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
516 p_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl,
517 x_return_status => l_return_status,
518 x_msg_count => x_msg_count,
519 x_msg_data => x_msg_data,
520 x_terrtype_id => x_terrtype_id,
521 x_terrtypequal_out_tbl => l_terrtypequal_out_tbl,
522 x_terrtypeusgs_out_tbl => l_terrtypeusgs_out_tbl,
523 x_typequaltypeusgs_out_tbl => l_typequaltypeusgs_out_tbl
524 );
525
526 --
527 IF l_return_status <> fnd_api.g_ret_sts_success
528 THEN
529 RAISE fnd_api.g_exc_error;
530 END IF;
531
532 --dbms_output.put_line('Create_terrtype PUB: Before Convertion from PVT to PUB routines');
533 convert_typeusgout_pvttopub (
534 p_terrtypeusgsout_tbl => l_terrtypeusgs_out_tbl,
535 x_terrtypeusgsout_tbl => x_terrtypeusgs_out_tbl
536 );
537 convert_typeqtusgout_pvttopub (
538 p_typequaltypeusgs_tbl => l_typequaltypeusgs_out_tbl,
539 x_typequaltypeusgs_tbl => x_typequaltypeusgs_out_tbl
540 );
541 convert_typequalout_pvttopub (
542 p_terrtypequal_tbl => l_terrtypequal_out_tbl,
543 x_terrtypequal_tbl => x_terrtypequal_out_tbl
544 );
545
546 -- Debug Message
547 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
548 THEN
549 fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
550 fnd_message.set_name ('PROC_NAME', l_api_name);
551 fnd_msg_pub.add;
552 END IF;
553
554 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
555
556 -- Standard check for p_commit
557 IF fnd_api.to_boolean (p_commit)
558 THEN
559 COMMIT WORK;
560 END IF;
561 --dbms_output.put_line('Create_terrtype PUB: Exiting API');
562 --
563 EXCEPTION
564 --
565 WHEN fnd_api.g_exc_error
566 THEN
567 --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_ERROR');
568 ROLLBACK TO create_terrtype_pub;
569 x_return_status := fnd_api.g_ret_sts_error;
570 fnd_msg_pub.count_and_get (
571 p_count => x_msg_count,
572 p_data => x_msg_data
573 );
574 WHEN fnd_api.g_exc_unexpected_error
575 THEN
576 --dbms_output.put_line('Create_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
577 ROLLBACK TO create_terrtype_pub;
578 x_return_status := fnd_api.g_ret_sts_unexp_error;
579 fnd_msg_pub.count_and_get (
580 p_count => x_msg_count,
581 p_data => x_msg_data
582 );
583 WHEN OTHERS
584 THEN
585 --dbms_output.put_line('Create_terrtype PUB: OTHERS - ' || SQLERRM);
586 ROLLBACK TO create_terrtype_pub;
587 x_return_status := fnd_api.g_ret_sts_unexp_error;
588
589 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
590 THEN
591 fnd_msg_pub.add_exc_msg (
592 'Others exception in Create_TerrType PUB' || SQLERRM
593 );
594 END IF;
595
596 fnd_msg_pub.count_and_get (
597 p_count => x_msg_count,
598 p_data => x_msg_data
599 );
600 --
601
602 END create_terrtype;
603
604 -- ***************************************************
605 -- start of comments
606 -- ***************************************************
607 -- api name : update_Terrtype
608 -- type : public.
609 -- function : Update territory type defnitions
610 -- pre-reqs : Territory qualifiers has to be enabled.
611 -- parameters :
612
613 -- in:
614 -- p_api_version_number in number required
615 -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
616 -- p_commit in varchar2 optional --default = fnd_api.g_false
617 -- p_TerrType_rec in TerrType_rec_type required --default = g_miss_TerrType_rec,
618 -- p_TerrTypequal_tbl in TerrTypequal_tbl_type required --default = g_miss_TerrTypequal_rec,
619 -- p_TerrTypesrc_tbl in TerrTypesrc_rec_type required --default = g_miss_tersrc_rec
620 -- p_TerrTypeSrcType_tbl in TerrTypeSrcType_tbl_type required --default = g_miss_tersrc_tbl,
621 -- out:
622 -- p_return_status out varchar2(1)
623 -- p_msg_count out number
624 -- p_msg_data out varchar2(2000)
625 -- p_TerrTypequal_out_tbl out TerrTypequal_out_tbl_type,
626 -- p_TerrTypesrc_out_tbl out TerrTypeSrc_out_tbl_type,
627 -- p_TerrTypeSrcType_out_tbl out TerrTypeSrcType_out_tbl_type
628 --
629 -- requirements :
630 -- business rules :
631
632 -- version : current version 1.0
633 -- initial version: initial version 1.0
634 --
635 -- notes: api for Updating territory types
636 --
637 -- end of comments
638 PROCEDURE update_terrtype (
639 p_api_version_number IN NUMBER,
640 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
641 p_commit IN VARCHAR2 := fnd_api.g_false,
642 p_terrtype_rec IN terrtype_rec_type
643 := g_miss_terrtype_rec,
644 p_terrtypequal_tbl IN terrtypequal_tbl_type
645 := g_miss_terrtypequal_tbl,
646 p_terrtypeusgs_tbl IN terrtypeusgs_tbl_type
647 := g_miss_terrtypeusgs_tbl,
648 p_typequaltypeusgs_tbl IN typequaltypeusgs_tbl_type
649 := g_miss_typequaltypeusgs_tbl,
650 x_return_status OUT NOCOPY VARCHAR2,
651 x_msg_count OUT NOCOPY NUMBER,
652 x_msg_data OUT NOCOPY VARCHAR2,
653 x_terrtype_out_rec OUT NOCOPY terrtype_out_rec_type,
654 x_terrtypequal_out_tbl OUT NOCOPY terrtypequal_out_tbl_type,
655 x_terrtypeusgs_out_tbl OUT NOCOPY terrtypeusgs_out_tbl_type,
656 x_typequaltypeusgs_out_tbl OUT NOCOPY typequaltypeusgs_out_tbl_type
657 )
658 IS
659 l_api_name CONSTANT VARCHAR2(30) := 'Update_TerrType';
660 l_api_version_number CONSTANT NUMBER := 1.0;
661 -- Status Local Variables
662 l_return_status VARCHAR2(1); -- Return value from procedures
663 l_terrtype_rec jtf_territory_type_pvt.terrtype_rec_type;
664 l_terrtypequal_tbl jtf_territory_type_pvt.terrtypequal_tbl_type;
665 l_terrtypeusgs_tbl jtf_territory_type_pvt.terrtypeusgs_tbl_type;
666 l_typequaltypeusgs_tbl jtf_territory_type_pvt.typequaltypeusgs_tbl_type;
667 l_terrtype_out_rec jtf_territory_type_pvt.terrtype_out_rec_type;
668 l_terrtypequal_out_tbl jtf_territory_type_pvt.terrtypequal_out_tbl_type;
669 l_terrtypeusgs_out_tbl jtf_territory_type_pvt.terrtypeusgs_out_tbl_type;
670 l_typequaltypeusgs_out_tbl jtf_territory_type_pvt.typequaltypeusgs_out_tbl_type;
671 --
672
673 BEGIN
674 --dbms_output.put_line('Update_terrtype PUB: Entering API');
675
676 -- Standard Start of API savepoint
677 SAVEPOINT upadate_terrtype_pub;
678
679 -- Standard call to check for call compatibility.
680 IF NOT fnd_api.compatible_api_call (
681 l_api_version_number,
682 p_api_version_number,
683 l_api_name,
684 g_pkg_name
685 )
686 THEN
687 RAISE fnd_api.g_exc_unexpected_error;
688 END IF;
689
690 -- Initialize message list if p_init_msg_list is set to TRUE.
691 IF fnd_api.to_boolean (p_init_msg_list)
692 THEN
693 fnd_msg_pub.initialize;
694 END IF;
695
696 -- Debug Message
697 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
698 THEN
699 fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
700 fnd_message.set_name ('PROC_NAME', l_api_name);
701 fnd_msg_pub.add;
702 END IF;
703
704 -- Initialize API return status to success
705 x_return_status := fnd_api.g_ret_sts_success;
706 --
707 -- API body
708 --
709 --dbms_output.put_line('Update_terrtype PUB: Before Convertion from PUB to PVT routines');
710 convert_tertyperec_pubtopvt (
711 p_terrtype_rec => p_terrtype_rec,
712 x_terrtype_rec => l_terrtype_rec
713 );
714 convert_terrtypequal_pubtopvt (
715 p_terrtypequal_tbl => p_terrtypequal_tbl,
716 x_terrtypequal_tbl => l_terrtypequal_tbl
717 );
718 convert_tertypeusg_pubtopvt (
719 p_terrtypeusgs_tbl => p_terrtypeusgs_tbl,
720 x_terrtypeusgs_tbl => l_terrtypeusgs_tbl
721 );
722 convert_typeqtypeusg_pubtopvt (
723 p_typequaltypeusgs_tbl => p_typequaltypeusgs_tbl,
724 x_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl
725 );
726 --
727 --dbms_output.put_line('Update_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Update_terrtype');
728 jtf_territory_type_pvt.update_terrtype (
729 p_api_version_number => 1.0,
730 p_init_msg_list => fnd_api.g_false,
731 p_commit => fnd_api.g_false,
732 p_validation_level => fnd_api.g_valid_level_full,
733 p_terrtype_rec => l_terrtype_rec,
734 p_terrtypequal_tbl => l_terrtypequal_tbl,
735 p_terrtypeusgs_tbl => l_terrtypeusgs_tbl,
736 p_typequaltypeusgs_tbl => l_typequaltypeusgs_tbl,
737 x_return_status => l_return_status,
738 x_msg_count => x_msg_count,
739 x_msg_data => x_msg_data,
740 x_terrtype_out_rec => l_terrtype_out_rec,
741 x_terrtypequal_out_tbl => l_terrtypequal_out_tbl,
742 x_terrtypeusgs_out_tbl => l_terrtypeusgs_out_tbl,
743 x_typequaltypeusgs_out_tbl => l_typequaltypeusgs_out_tbl
744 );
745
746 --
747 IF l_return_status <> fnd_api.g_ret_sts_success
748 THEN
749 RAISE fnd_api.g_exc_error;
750 END IF;
751
752 --dbms_output.put_line('Update_terrtype PUB: Before Convertion from PVT to PUB routines');
753 convert_terrtypeout_pubtopvt (
754 p_terrtype_rec => l_terrtype_out_rec,
755 x_terrtype_rec => x_terrtype_out_rec
756 );
757 convert_typeusgout_pvttopub (
758 p_terrtypeusgsout_tbl => l_terrtypeusgs_out_tbl,
759 x_terrtypeusgsout_tbl => x_terrtypeusgs_out_tbl
760 );
761 convert_typeqtusgout_pvttopub (
762 p_typequaltypeusgs_tbl => l_typequaltypeusgs_out_tbl,
763 x_typequaltypeusgs_tbl => x_typequaltypeusgs_out_tbl
764 );
765 convert_typequalout_pvttopub (
766 p_terrtypequal_tbl => l_terrtypequal_out_tbl,
767 x_terrtypequal_tbl => x_terrtypequal_out_tbl
768 );
769
770 -- Debug Message
771 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
772 THEN
773 fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
774 fnd_message.set_name ('PROC_NAME', l_api_name);
775 fnd_msg_pub.add;
776 END IF;
777
778 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
779
780 -- Standard check for p_commit
781 IF fnd_api.to_boolean (p_commit)
782 THEN
783 COMMIT WORK;
784 END IF;
785 --
786 --dbms_output.put_line('Update_terrtype PUB: Exiting API');
787
788 --
789 EXCEPTION
790 --
791 WHEN fnd_api.g_exc_error
792 THEN
793 --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_ERROR');
794 ROLLBACK TO update_terrtype_pub;
795 x_return_status := fnd_api.g_ret_sts_error;
796 fnd_msg_pub.count_and_get (
797 p_count => x_msg_count,
798 p_data => x_msg_data
799 );
800 WHEN fnd_api.g_exc_unexpected_error
801 THEN
802 --dbms_output.put_line('Update_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
803 ROLLBACK TO update_terrtype_pub;
804 x_return_status := fnd_api.g_ret_sts_unexp_error;
805 fnd_msg_pub.count_and_get (
806 p_count => x_msg_count,
807 p_data => x_msg_data
808 );
809 WHEN OTHERS
810 THEN
811 --dbms_output.put_line('Update_terrtype PUB: OTHERS - ' || SQLERRM);
812 ROLLBACK TO update_terrtype_pub;
813 x_return_status := fnd_api.g_ret_sts_unexp_error;
814
815 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
816 THEN
817 fnd_msg_pub.add_exc_msg (
818 'Others exception in Update_TerrType PUB' || SQLERRM
819 );
820 END IF;
821
822 fnd_msg_pub.count_and_get (
823 p_count => x_msg_count,
824 p_data => x_msg_data
825 );
826 --
827
828 END update_terrtype;
829
830 -- ***************************************************
831 -- start of comments
832 -- ***************************************************
833 -- api name : Delete_TerrType
834 -- type : public.
835 -- function : Delete territory type defnitions
836 -- pre-reqs : Territory qualifiers has to be enabled.
837 -- parameters :
838 --
839 -- in:
840 -- p_api_version_number in number required
841 -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
842 -- p_commit in varchar2 optional --default = fnd_api.g_false
843 -- p_TerrType_id in number
844 --
845 -- out:
846 -- p_return_status out varchar2(1)
847 -- p_msg_count out number
848 -- p_msg_data out varchar2(2000)
849 --
850 -- requirements :
851 -- business rules :
852
853 -- version : current version 1.0
854 -- initial version: initial version 1.0
855 --
856 -- notes: API for Deleting territory types
857 --
858 -- end of comments
859 PROCEDURE delete_terrtype (
860 p_api_version_number IN NUMBER,
861 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
862 p_commit IN VARCHAR2 := fnd_api.g_false,
863 p_terrtype_id IN NUMBER,
864 x_return_status OUT NOCOPY VARCHAR2,
865 x_msg_count OUT NOCOPY NUMBER,
866 x_msg_data OUT NOCOPY VARCHAR2
867 )
868 IS
869 l_api_name CONSTANT VARCHAR2(30) := 'Delete_TerrType';
870 l_api_version_number CONSTANT NUMBER := 1.0;
871 l_return_status VARCHAR2(1);
872 BEGIN
873 --dbms_output.put_line('Delete_terrtype PUB: Entering API');
874
875 -- Standard Start of API savepoint
876 SAVEPOINT delete_terrtype_pub;
877
878 -- Standard call to check for call compatibility.
879 IF NOT fnd_api.compatible_api_call (
880 l_api_version_number,
881 p_api_version_number,
882 l_api_name,
883 g_pkg_name
884 )
885 THEN
886 RAISE fnd_api.g_exc_unexpected_error;
887 END IF;
888
889 -- Initialize message list if p_init_msg_list is set to TRUE.
890 IF fnd_api.to_boolean (p_init_msg_list)
891 THEN
892 fnd_msg_pub.initialize;
893 END IF;
894
895 -- Debug Message
896 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
897 THEN
898 fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
899 fnd_message.set_name ('PROC_NAME', l_api_name);
900 fnd_msg_pub.add;
901 END IF;
902
903 -- Initialize API return status to success
904 x_return_status := fnd_api.g_ret_sts_success;
905 --
906 -- API body
907 --
908 --dbms_output.put_line('Delete__terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Delete_TerrType');
909 jtf_territory_type_pvt.delete_terrtype (
910 p_api_version_number => p_api_version_number,
911 p_init_msg_list => p_init_msg_list,
912 p_commit => p_commit,
913 x_return_status => l_return_status,
914 x_msg_count => x_msg_count,
915 x_msg_data => x_msg_data,
916 p_terrtype_id => p_terrtype_id
917 );
918 x_return_status := l_return_status;
919
920 --
921 IF l_return_status = fnd_api.g_ret_sts_error
922 THEN
923 RAISE fnd_api.g_exc_error;
924 ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
925 THEN
926 RAISE fnd_api.g_exc_unexpected_error;
927 END IF;
928
929 -- Standard check of p_commit.
930 IF fnd_api.to_boolean (p_commit)
931 THEN
932 COMMIT WORK;
933 END IF;
934
935 -- Debug Message
936 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
937 THEN
938 fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
939 fnd_message.set_name ('PROC_NAME', l_api_name);
940 fnd_msg_pub.add;
941 END IF;
942
943 -- Standard call to get message count and if count is 1, get message info.
944 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
945 --dbms_output.put_line('Delete_terrtype PUB: Exiting API');
946 EXCEPTION
947 WHEN fnd_api.g_exc_error
948 THEN
949 --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_ERROR');
950 ROLLBACK TO delete_terrtype_pub;
951 x_return_status := fnd_api.g_ret_sts_error;
952 fnd_msg_pub.count_and_get (
953 p_count => x_msg_count,
954 p_data => x_msg_data
955 );
956 WHEN fnd_api.g_exc_unexpected_error
957 THEN
958 --dbms_output.put_line('Delete__terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
959 ROLLBACK TO delete_terrtype_pub;
960 x_return_status := fnd_api.g_ret_sts_unexp_error;
961 fnd_msg_pub.count_and_get (
962 p_count => x_msg_count,
963 p_data => x_msg_data
964 );
965 WHEN OTHERS
966 THEN
967 --dbms_output.put_line('Delete__terrtype PUB: OTHERS - ' || SQLERRM);
968 ROLLBACK TO delete_terrtype_pub;
969 x_return_status := fnd_api.g_ret_sts_unexp_error;
970
971 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
972 THEN
973 fnd_msg_pub.add_exc_msg (
974 'Others exception in Delete_TerrType PUB' || SQLERRM
975 );
976 END IF;
977
978 fnd_msg_pub.count_and_get (
979 p_count => x_msg_count,
980 p_data => x_msg_data
981 );
982 --
983
984 END delete_terrtype;
985
986 -- ***************************************************
987 -- start of comments
988 -- ***************************************************
989 -- api name : Deactivate_TerrType
990 -- type : public.
991 -- function : Deactivate territory type defnitions
992 -- pre-reqs : Territory qualifiers has to be enabled.
993 -- parameters :
994 --
995 -- in:
996 -- p_api_version_number in number required
997 -- p_init_msg_list in varchar2 optional --default = fnd_api.g_false
998 -- p_commit in varchar2 optional --default = fnd_api.g_false
999 -- p_TerrType_id in number
1000 --
1001 -- out:
1002 -- p_return_status out varchar2(1)
1003 -- p_msg_count out number
1004 -- p_msg_data out varchar2(2000)
1005 --
1006 -- requirements :
1007 -- business rules :
1008
1009 -- version : current version 1.0
1010 -- initial version: initial version 1.0
1011 --
1012 -- notes: API for Deleting territory types
1013 --
1014 -- end of comments
1015 PROCEDURE deactivate_terrtype (
1016 p_api_version_number IN NUMBER,
1017 p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
1018 p_commit IN VARCHAR2 := fnd_api.g_false,
1019 p_terrtype_id IN NUMBER,
1020 x_return_status OUT NOCOPY VARCHAR2,
1021 x_msg_count OUT NOCOPY NUMBER,
1022 x_msg_data OUT NOCOPY VARCHAR2
1023 )
1024 AS
1025 l_api_name CONSTANT VARCHAR2(30) := 'Deactivate_TerrType';
1026 l_api_version_number CONSTANT NUMBER := 1.0;
1027 l_return_status VARCHAR2(1);
1028 BEGIN
1029 -- Standard Start of API savepoint
1030 SAVEPOINT deactivate_terrtype_pub;
1031
1032 -- Standard call to check for call compatibility.
1033 IF NOT fnd_api.compatible_api_call (
1034 l_api_version_number,
1035 p_api_version_number,
1036 l_api_name,
1037 g_pkg_name
1038 )
1039 THEN
1040 RAISE fnd_api.g_exc_unexpected_error;
1041 END IF;
1042
1043 -- Initialize message list if p_init_msg_list is set to TRUE.
1044 IF fnd_api.to_boolean (p_init_msg_list)
1045 THEN
1046 fnd_msg_pub.initialize;
1047 END IF;
1048
1049 -- Debug Message
1050 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1051 THEN
1052 fnd_message.set_name ('JTF', 'JTF_TERR_START_MSG');
1053 fnd_message.set_name ('PROC_NAME', l_api_name);
1054 fnd_msg_pub.add;
1055 END IF;
1056
1057 -- Initialize API return status to success
1058 x_return_status := fnd_api.g_ret_sts_success;
1059 --
1060 -- API body
1061 --
1062 --dbms_output.put_line('De-Activate_terrtype PVT: Before Calling JTF_TERRITORY_TYPE_PVT.Deactivate_TerrType');
1063 jtf_territory_type_pvt.deactivate_terrtype (
1064 p_api_version_number => p_api_version_number,
1065 p_init_msg_list => p_init_msg_list,
1066 p_commit => p_commit,
1067 x_return_status => l_return_status,
1068 x_msg_count => x_msg_count,
1069 x_msg_data => x_msg_data,
1070 p_terrtype_id => p_terrtype_id
1071 );
1072 x_return_status := l_return_status;
1073
1074 --
1075 IF l_return_status = fnd_api.g_ret_sts_error
1076 THEN
1077 RAISE fnd_api.g_exc_error;
1078 ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1079 THEN
1080 RAISE fnd_api.g_exc_unexpected_error;
1081 END IF;
1082
1083 -- Standard check of p_commit.
1084 IF fnd_api.to_boolean (p_commit)
1085 THEN
1086 COMMIT WORK;
1087 END IF;
1088
1089 -- Debug Message
1090 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_debug_low)
1091 THEN
1092 fnd_message.set_name ('JTF', 'JTF_TERR_END_MSG');
1093 fnd_message.set_name ('PROC_NAME', l_api_name);
1094 fnd_msg_pub.add;
1095 END IF;
1096
1097 -- Standard call to get message count and if count is 1, get message info.
1098 fnd_msg_pub.count_and_get (p_count => x_msg_count, p_data => x_msg_data);
1099 --dbms_output.put_line('De-Activate_terrtype PUB: Exiting API');
1100 EXCEPTION
1101 WHEN fnd_api.g_exc_error
1102 THEN
1103 --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_ERROR');
1104 ROLLBACK TO deactivate_terrtype_pub;
1105 x_return_status := fnd_api.g_ret_sts_error;
1106 fnd_msg_pub.count_and_get (
1107 p_count => x_msg_count,
1108 p_data => x_msg_data
1109 );
1110 WHEN fnd_api.g_exc_unexpected_error
1111 THEN
1112 --dbms_output.put_line('De-Activate_terrtype PUB: FND_API.G_EXC_UNEXPECTED_ERROR');
1113 ROLLBACK TO deactivate_terrtype_pub;
1114 x_return_status := fnd_api.g_ret_sts_unexp_error;
1115 fnd_msg_pub.count_and_get (
1116 p_count => x_msg_count,
1117 p_data => x_msg_data
1118 );
1119 WHEN OTHERS
1120 THEN
1121 --dbms_output.put_line('De-Activate_terrtype PUB: OTHERS - ' || SQLERRM);
1122 ROLLBACK TO deactivate_terrtype_pub;
1123 x_return_status := fnd_api.g_ret_sts_unexp_error;
1124
1125 IF fnd_msg_pub.check_msg_level (fnd_msg_pub.g_msg_lvl_unexp_error)
1126 THEN
1127 fnd_msg_pub.add_exc_msg (
1128 'Others exception in Deactivate_TerrType PUB' || SQLERRM
1129 );
1130 END IF;
1131
1132 fnd_msg_pub.count_and_get (
1133 p_count => x_msg_count,
1134 p_data => x_msg_data
1135 );
1136 --
1137
1138 END deactivate_terrtype;
1139 --
1140
1141 END jtf_territory_type_pub; -- Package body