[Home] [Help]
PACKAGE BODY: APPS.AMS_LISTENTRY_PVT
Source
1 PACKAGE BODY AMS_ListEntry_PVT as
2 /* $Header: amsvlseb.pls 120.0.12010000.2 2008/08/11 08:46:45 amlal ship $ */
3 -----------------------------------------------------------
4 -- PACKAGE
5 -- AMS_ListEntry_PVT
6 --
7 -- PROCEDURES
8 -- Create_ListEntry
9 -- Update_ListEntry
10 -- Delete_ListEntry
11 -- Lock_ListEntry
12 -- Validate_ListEntry
13 -- Update_ListEntry_Source_Code
14 --
15 -- Check_Entry_items
16 -- Check_Entry_record
17
18 -- Check_entry_req_items
19 -- Check_entry_uk_items
20 -- Check_entry_fk_items
21 -- Check_entry_lookup_items
22 -- Check_entry_flag_items
23
24 -- Init_Entry_rec
25 -- Complete_Entry_rec
26 -- Default_ListEntry.
27
28 -- FUNCTIONS
29 -- Get_ListPinCode
30
31 --
32 G_PKG_NAME CONSTANT VARCHAR2(30):='AMS_ListEntry_PVT';
33 G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlseb.pls';
34
35
36 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
37 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
38 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
39 -- Start of comments
40 -- NAME
41 -- Default_ListEntry
42 --
43 --
44 -- PURPOSE
45 -- Defaults the list entry record.
46 --
47 -- NOTES
48 --
49 -- HISTORY
50 -- 06-Jun-2000 tdonohoe Created.
51 -- 26-Jul-2001 gjoby Modfied
52 -- Source code not updated for schedule if cascade source
53 -- if set to Y
54 -- End of comments
55
56
57 PROCEDURE Default_ListEntry(
58 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
59 p_listentry_rec IN entry_rec_type,
60 p_validation_mode IN VARCHAR2 ,
61 x_complete_rec OUT NOCOPY entry_rec_type,
62 x_return_status OUT NOCOPY VARCHAR2,
63 x_msg_count OUT NOCOPY NUMBER,
64 x_msg_data OUT NOCOPY VARCHAR2
65 )
66 IS
67
68 --getting the primary key and arc qualifer of the entity which owns this list.
69 CURSOR c_header_dets(header_id IN NUMBER)IS
70 SELECT list_used_by_id,arc_list_used_by
71 FROM ams_list_headers_all
72 WHERE list_header_id = header_id;
73
74 l_list_used_by_id NUMBER;
75 l_arc_used_by VARCHAR2(30);
76
77 --gettting the source_code from the ams_source_code table.
78 CURSOR C_get_source_code(object_id IN NUMBER,object_arc IN VARCHAR2) IS
79 SELECT source_code
80 FROM ams_source_codes
81 WHERE source_code_for_id = object_id
82 AND arc_source_code_for = object_arc;
83
84 l_source_code VARCHAR2(30);
85
86 BEGIN
87 --
88 -- Initialize message list if p_init_msg_list is set to TRUE.
89 --
90 IF FND_API.To_Boolean (p_init_msg_list) THEN
91 FND_MSG_PUB.Initialize;
92 END IF;
93
94 --
95 -- Initialize API return status to success.
96 --
97 x_return_status := FND_API.G_RET_STS_SUCCESS;
98
99 x_complete_rec := p_listentry_rec;
100
101 -- Insert Mode.
102 IF (p_validation_mode = JTF_PLSQL_API.g_create) THEN
103
104
105 --ARC_LIST_USED_BY_SOURCE or SOURCE_CODE_FOR_ID
106 IF(p_listentry_rec.arc_list_used_by_source IS NULL) OR (p_listentry_rec.source_code_for_id IS NULL) THEN
107
108 --getting list header source code details.
109 OPEN c_header_dets(x_complete_rec.list_header_id);
110 FETCH c_header_dets into x_complete_rec.source_code_for_id,
111 x_complete_rec.arc_list_used_by_source;
112 CLOSE c_header_dets;
113 END IF;
114
115 --SOURCE_CODE
116 IF(p_listentry_rec.source_code IS NULL)THEN
117
118 OPEN c_header_dets(x_complete_rec.list_header_id);
119 FETCH c_header_dets INTO l_list_used_by_id,
120 l_arc_used_by ;
121 CLOSE c_header_dets;
122
123 --A List does not have to be associated with a Marketing Entity
124 --In this case default the value to 'NONE'.
125 IF(l_arc_used_by = 'NONE') THEN
126 x_complete_rec.source_code := 'NONE';
127 ELSE
128 OPEN c_get_source_code(l_list_used_by_id,l_arc_used_by);
129 FETCH c_get_source_code INTO x_complete_rec.source_code;
130 CLOSE c_get_source_code;
131 END IF;
132 END IF;
133
134 --ARC_LIST_SELECT_ACTION_FROM
135 x_complete_rec.arc_list_select_action_from := 'NONE';
136
137 --LIST_SELECT_ACTION_FROM_NAME
138 x_complete_rec.list_select_action_from_name := 'NONE';
139
140 --LIST_SELECT_ACTION_ID
141 x_complete_rec.list_select_action_id := 0;
142
143 END IF;
144
145 EXCEPTION
146
147 WHEN FND_API.G_EXC_ERROR THEN
148 x_return_status := FND_API.G_RET_STS_ERROR ;
149
150 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
151 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
152
153 WHEN OTHERS THEN
154 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
155
156
157
158 END Default_ListEntry;
159
160
161
162 -- Start of Comments
163 --
164 -- NAME
165 -- Get_ListPinCode
166 --
167 -- PURPOSE
168 -- This procedure Gets The Pin Code for a List Entry.
169 --
170 -- NOTES
171 --
172 --
173 -- HISTORY
174 -- 06/08/1999 tdonohoe created
175 -- End of Comments
176 Function Get_ListPinCode(p_list_header_id IN NUMBER,
177 p_list_entry_id IN NUMBER)
178 Return Varchar2 IS
179
180 Begin
181
182 return(to_char(p_list_entry_id));
183
184 End Get_ListPinCode;
185
186 ---------------------------------------------------------------------
187 -- PROCEDURE
188 -- check_entry_uk_items
189 --
190 -- HISTORY
191 -- 10/16/99 tdonohoe Created.
192 ---------------------------------------------------------------------
193 PROCEDURE check_entry_uk_items(
194 p_entry_rec IN entry_rec_type,
195 p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
196 x_return_status OUT NOCOPY VARCHAR2
197 )
198 IS
199 --Check if The Pin Code is Unique across all lists.
200 Cursor C_Is_Pin_Unique IS SELECT Count(*)
201 FROM Ams_List_Entries
202 WHERE Pin_Code = p_entry_rec.pin_code
203 AND List_Entry_Id <> p_entry_rec.List_Entry_Id;
204
205 l_pin_count number;
206
207 --Check if The List Entry System ID and type is Unique for this list.
208 Cursor C_Is_SysID_Unique IS SELECT COUNT(*)
209 FROM Ams_List_Entries
210 WHERE List_Header_Id = p_entry_rec.list_header_id
211 AND List_Entry_Source_System_id = p_entry_rec.List_Entry_Source_System_ID
212 AND List_Entry_Source_System_Type = p_entry_rec.List_Entry_Source_System_Type
213 AND List_Entry_Id <> p_entry_rec.List_Entry_Id;
214
215 l_source_system_count number;
216
217 Begin
218
219 x_return_status := FND_API.g_ret_sts_success;
220
221 Open C_Is_SysID_Unique;
222 Fetch C_Is_SysID_Unique into l_source_system_count;
223 Close C_Is_SysID_Unique;
224
225 IF(l_source_system_count > 0 )THEN
226 -- Error, check the msg level and added an error message to the
227 -- API message list
228 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
229 THEN -- MMSG
230 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_SYSID_DUPE');
231 FND_MSG_PUB.Add;
232 END IF;
233
234 -- If any errors happen abort API/Procedure.
235 RAISE FND_API.G_EXC_ERROR;
236 RETURN;
237 END IF;
238
239
240 Open C_Is_Pin_Unique;
241 Fetch C_Is_Pin_Unique into l_pin_count;
242 Close C_Is_Pin_Unique;
243
244 IF ( l_pin_count <> 0 )THEN
245 -- Error, check the msg level and added an error message to the
246 -- API message list
247 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
248 THEN -- MMSG
249 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_PINCODE_DUPE');
250 FND_MSG_PUB.Add;
251 END IF;
252
253 x_return_status := FND_API.G_RET_STS_ERROR;
254 -- If any errors happen abort API/Procedure.
255 RAISE FND_API.G_EXC_ERROR;
256 RETURN;
257 END IF;
258
259 EXCEPTION
260
261 WHEN FND_API.G_EXC_ERROR THEN
262 x_return_status := FND_API.G_RET_STS_ERROR ;
263
264 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
265 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
266
267 WHEN OTHERS THEN
268 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
269
270
271 End;
272
273 ---------------------------------------------------------------------
274 -- PROCEDURE
275 -- check_entry_fk_items
276 --
277 -- HISTORY
278 -- 10/16/1999 tdonohoe Created.
279 -- 06/06/2000 tdonohoe Modified to include checks for PARTY_ID
280 -- and PARENT_PARTY_ID.
281 ---------------------------------------------------------------------
282 PROCEDURE check_entry_fk_items(
283 p_entry_rec IN entry_rec_type,
284 x_return_status OUT NOCOPY VARCHAR2
285 )
286 IS
287 BEGIN
288
289 x_return_status := FND_API.g_ret_sts_success;
290
291
292 -------------------------- Party_Id ------------------------
293 IF p_entry_rec.party_id <> FND_API.g_miss_num AND p_entry_rec.party_id IS NOT NULL THEN
294 IF AMS_Utility_PVT.check_fk_exists(
295 'hz_parties',
296 'party_id',
297 p_entry_rec.party_id
298 ) = FND_API.g_false
299 THEN
300 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
301 THEN
302 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_PARTY_INVALID');
303 FND_MSG_PUB.add;
304 END IF;
305
306 x_return_status := FND_API.g_ret_sts_error;
307 RETURN;
308 END IF;
309 END IF;
310
311 --------------------------Parent_Party_Id ------------------------
312 IF p_entry_rec.parent_party_id <> FND_API.g_miss_num AND p_entry_rec.parent_party_id IS NOT NULL THEN
313 IF AMS_Utility_PVT.check_fk_exists(
314 'hz_parties',
315 'party_id',
316 p_entry_rec.parent_party_id
317 ) = FND_API.g_false
318 THEN
319 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
320 THEN
321 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_PAR_PARTY_INVALID');
322 FND_MSG_PUB.add;
323 END IF;
324
325 x_return_status := FND_API.g_ret_sts_error;
326 RETURN;
327 END IF;
328 END IF;
329
330 -------------------------- List Header Id ------------------------
331 IF p_entry_rec.list_header_id <> FND_API.g_miss_num THEN
332 IF AMS_Utility_PVT.check_fk_exists(
333 'ams_list_headers_all',
334 'list_header_id',
335 p_entry_rec.list_header_id
336 ) = FND_API.g_false
337 THEN
338 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
339 THEN
340 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ID_MISSING');
341 FND_MSG_PUB.add;
342 END IF;
343
344 x_return_status := FND_API.g_ret_sts_error;
345 RETURN;
346 END IF;
347 END IF;
348
349 -------------------------- Cell Code ------------------------
350 IF (p_entry_rec.cell_code <> FND_API.g_miss_char) AND
351 (p_entry_rec.cell_code <> NULL)
352 THEN
353
354
355 IF ( AMS_UTILITY_PVT.Check_FK_Exists('AMS_CELLS_ALL_B',
356 'CELL_CODE',
357 p_entry_rec.CELL_CODE)= FND_API.G_FALSE)
358 THEN
359 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
360 THEN -- MMSG
361 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_CELLCODE_INVALID');
362 FND_MESSAGE.set_token('CELLCODE',p_entry_rec.CELL_CODE);
363 FND_MSG_PUB.Add;
364 END IF;
365
366 x_return_status := FND_API.G_RET_STS_ERROR;
367 -- If any errors happen abort API/Procedure.
368 RAISE FND_API.G_EXC_ERROR;
369 END IF;
370 END IF;
371
372
373 EXCEPTION
374
375 WHEN FND_API.G_EXC_ERROR THEN
376 x_return_status := FND_API.G_RET_STS_ERROR ;
377
378 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
380
381 WHEN OTHERS THEN
382 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
383
384
385 End;
386
387 ---------------------------------------------------------------------
388 -- PROCEDURE
389 -- check_entry_lookup_items
390 --
391 -- HISTORY
392 -- 10/16/99 tdonohoe Created.
393 ---------------------------------------------------------------------
394 PROCEDURE check_entry_lookup_items(
395 p_entry_rec IN entry_rec_type,
396 x_return_status OUT NOCOPY VARCHAR2
397 )
398 IS
399 BEGIN
400 x_return_status := FND_API.g_ret_sts_success;
401 End;
402
403 ---------------------------------------------------------------------
404 -- PROCEDURE
405 -- check_entry_flag_items
406 --
407 -- HISTORY
408 -- 10/01/99 tdonohoe Create.
409 ---------------------------------------------------------------------
410 PROCEDURE check_entry_flag_items(
411 p_entry_rec IN entry_rec_type,
412 x_return_status OUT NOCOPY VARCHAR2
413 )
414 IS
415 BEGIN
416 x_return_status := FND_API.g_ret_sts_success;
417
418 ----------------------- enabled_flag ------------------------
419 IF p_entry_rec.enabled_flag <> FND_API.G_MISS_CHAR
420 AND p_entry_rec.enabled_flag IS NOT NULL
421 THEN
422 IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.enabled_flag) = FND_API.g_false
423 THEN
424 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
425 THEN
426 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_ENABLED_FLAG');
427 FND_MSG_PUB.add;
428 END IF;
429
430 x_return_status := FND_API.g_ret_sts_error;
431 RETURN;
432 END IF;
433 END IF;
434
435
436
437
438 ----------------------- PART_OF_CONTROL_GROUP_FLAG ------------------------
439 IF p_entry_rec.PART_OF_CONTROL_GROUP_FLAG <> FND_API.g_miss_char
440 AND p_entry_rec.PART_OF_CONTROL_GROUP_FLAG IS NOT NULL
441 THEN
442 IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.PART_OF_CONTROL_GROUP_FLAG) = FND_API.g_false
443 THEN
444 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
445 THEN
446 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_CONTROL_FLAG');
447 FND_MSG_PUB.add;
448 END IF;
449
450 x_return_status := FND_API.g_ret_sts_error;
451 RETURN;
455 ----------------------- MARKED_AS_RANDOM_FLAG ------------------------
452 END IF;
453 END IF;
454
456 IF p_entry_rec.MARKED_AS_RANDOM_FLAG <> FND_API.g_miss_char
457 AND p_entry_rec.MARKED_AS_RANDOM_FLAG IS NOT NULL
458 THEN
459 IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.MARKED_AS_RANDOM_FLAG) = FND_API.g_false
460 THEN
461 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
462 THEN
463 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_RANDOM_FLAG');
464 FND_MSG_PUB.add;
465 END IF;
466
467 x_return_status := FND_API.g_ret_sts_error;
468 RETURN;
469 END IF;
470 END IF;
471
472 ----------------------- MARKED_AS_DUPLICATE_FLAG ------------------------
473 IF p_entry_rec.MARKED_AS_DUPLICATE_FLAG<> FND_API.g_miss_char
474 AND p_entry_rec.MARKED_AS_DUPLICATE_FLAG IS NOT NULL
475 THEN
476 IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.MARKED_AS_DUPLICATE_FLAG) = FND_API.g_false
477 THEN
478 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
479 THEN
480 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_DUPE_FLAG');
481 FND_MSG_PUB.add;
482 END IF;
483
484 x_return_status := FND_API.g_ret_sts_error;
485 RETURN;
486 END IF;
487 END IF;
488
489 ----------------------- MANUALLY ENTERED FLAG ------------------------
490 IF p_entry_rec.MANUALLY_ENTERED_FLAG <> FND_API.g_miss_char
491 AND p_entry_rec.MANUALLY_ENTERED_FLAG IS NOT NULL
492 THEN
493 IF AMS_Utility_PVT.is_Y_or_N(p_entry_rec.MANUALLY_ENTERED_FLAG) = FND_API.g_false
494 THEN
495 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
496 THEN
497 FND_MESSAGE.set_name('AMS', 'AMS_LIST_ENT_BAD_MANUAL_FLAG');
498 FND_MSG_PUB.add;
499 END IF;
500
501 x_return_status := FND_API.g_ret_sts_error;
502 RETURN;
503 END IF;
504 END IF;
505
506 EXCEPTION
507
508 WHEN FND_API.G_EXC_ERROR THEN
509 x_return_status := FND_API.G_RET_STS_ERROR ;
510
511 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
512 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
513
514 WHEN OTHERS THEN
515 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
516
517
518 End;
519 ---------------------------------------------------------------------
520 -- PROCEDURE
521 -- check_entry_req_items
522 --
523 -- HISTORY
524 -- 10/16/99 tdonohoe Created.
525 ---------------------------------------------------------------------
526 PROCEDURE check_entry_req_items(
527 p_entry_rec IN entry_rec_type,
528 x_return_status OUT NOCOPY VARCHAR2
529 )
530 IS
531
532 BEGIN
533
534 -- Initialize API/Procedure return status to success
535 x_return_status := FND_API.G_RET_STS_SUCCESS;
536
537 IF p_entry_rec.list_header_id IS NULL
538 THEN
539 -- missing required fields
540 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
541 THEN -- MMSG
542 FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ENT_HEADER_MISSING');
543 FND_MSG_PUB.Add;
544 END IF;
545 x_return_status := FND_API.G_RET_STS_ERROR;
546 -- If any errors happen abort API/Procedure.
547 return;
548 END IF;
549
550
551 IF p_entry_rec.list_entry_source_system_ID IS NULL
552 THEN
553 -- missing required fields
554 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
555 THEN -- MMSG
556 FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ENT_SYSID_MISSING');
557 FND_MSG_PUB.Add;
558 END IF;
559 x_return_status := FND_API.G_RET_STS_ERROR;
560 -- If any errors happen abort API/Procedure.
561 return;
562 END IF;
563
564 IF p_entry_rec.list_entry_source_system_type IS NULL
565 THEN
566 -- missing required fields
567 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
568 THEN -- MMSG
569 FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_ENT_SYSTYPE_MISSING');
570 FND_MSG_PUB.Add;
571 END IF;
572 x_return_status := FND_API.G_RET_STS_ERROR;
573 -- If any errors happen abort API/Procedure.
574 return;
575 END IF;
576
577 EXCEPTION
578
579 WHEN FND_API.G_EXC_ERROR THEN
580 x_return_status := FND_API.G_RET_STS_ERROR ;
581
582 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
584
585 WHEN OTHERS THEN
586 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
587
588
589 END check_entry_req_items;
590
591
592
596 --
593 ---------------------------------------------------------------------
594 -- PROCEDURE
595 -- validate_listentry
597 -- PURPOSE
598 -- Validate a listentry record.
599 --
600 -- PARAMETERS
601 -- p_entry_rec: the listentry record to be validated
602 --
603 -- NOTES
604 -- 1. p_entry_rec should be the complete list entry record. There
605 -- should not be any FND_API.g_miss_char/num/date in it.
606 ----------------------------------------------------------------------
607 PROCEDURE validate_listentry(
608 p_api_version IN NUMBER,
609 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
610 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
611
612 x_return_status OUT NOCOPY VARCHAR2,
613 x_msg_count OUT NOCOPY NUMBER,
614 x_msg_data OUT NOCOPY VARCHAR2,
615
616 p_entry_rec IN entry_rec_type
617 ) IS
618
619 l_api_name CONSTANT VARCHAR2(30) := 'Validate_Entry';
620 l_api_version CONSTANT NUMBER := 1.0;
621
622 -- Status Local Variables
623 l_return_status VARCHAR2(1); -- Return value from procedures
624 l_entry_rec entry_rec_type := p_entry_rec;
625 l_list_entry_id NUMBER;
626
627 BEGIN
628
629
630
631 -- Standard call to check for call compatibility.
632 IF NOT FND_API.Compatible_API_Call ( l_api_version,
633 p_api_version,
634 l_api_name,
635 G_PKG_NAME)
636 THEN
637 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
638 END IF;
639
640 -- Debug Message
641 IF (AMS_DEBUG_HIGH_ON) THEN
642 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
643 FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_Entry: Start', TRUE);
644 FND_MSG_PUB.Add;
645 END IF;
646
647 -- Initialize API return status to success
648 x_return_status := FND_API.G_RET_STS_SUCCESS;
649
650 ---------------------- validate ------------------------
651 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
652 check_entry_items(
653 p_entry_rec => p_entry_rec,
654 p_validation_mode => JTF_PLSQL_API.g_create,
655 x_return_status => l_return_status);
656
657 IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
658 RAISE FND_API.g_exc_unexpected_error;
659 ELSIF l_return_status = FND_API.g_ret_sts_error THEN
660 RAISE FND_API.g_exc_error;
661 END IF;
662 END IF;
663
664 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
665 check_entry_record(
666 p_entry_rec => p_entry_rec,
667 p_complete_rec => NULL,
668 x_return_status => l_return_status);
669
670 IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
671 RAISE FND_API.g_exc_unexpected_error;
672 ELSIF l_return_status = FND_API.g_ret_sts_error THEN
673 RAISE FND_API.g_exc_error;
674 END IF;
675 END IF;
676
677 -- Success Message
678 -- MMSG
679 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
680 THEN
681 FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
682 FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_ListEntry', TRUE);
683 FND_MSG_PUB.Add;
684 END IF;
685
686
687 IF (AMS_DEBUG_HIGH_ON) THEN
688 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
689 FND_MESSAGE.Set_Token('ROW', 'AMS_listentry_PVT.Validate_ListEntry: END', TRUE);
690 FND_MSG_PUB.Add;
691 END IF;
692
693
694 -- Standard call to get message count AND IF count is 1, get message info.
695 FND_MSG_PUB.Count_AND_Get
696 ( p_count => x_msg_count,
697 p_data => x_msg_data,
698 p_encoded => FND_API.G_FALSE
699 );
700
701
702
703 EXCEPTION
704
705 WHEN FND_API.G_EXC_ERROR THEN
706
707 x_return_status := FND_API.G_RET_STS_ERROR ;
708
709 FND_MSG_PUB.Count_AND_Get
710 ( p_count => x_msg_count,
711 p_data => x_msg_data,
712 p_encoded => FND_API.G_FALSE
713 );
714
715
716 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717
718 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
719
720 FND_MSG_PUB.Count_AND_Get
721 ( p_count => x_msg_count,
722 p_data => x_msg_data,
723 p_encoded => FND_API.G_FALSE
724 );
725
726
727 WHEN OTHERS THEN
728
732 THEN
729 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
730
731 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
733 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
734 END IF;
735
736 FND_MSG_PUB.Count_AND_Get
737 ( p_count => x_msg_count,
738 p_data => x_msg_data,
739 p_encoded => FND_API.G_FALSE
740 );
741
742 End Validate_ListEntry;
743
744
745 ---------------------------------------------------------------------
746 -- PROCEDURE
747 -- create_listentry
748 --
749 -- PURPOSE
750 -- Create a new list entry.
751 --
752 -- PARAMETERS
753 -- p_entry_rec: the new record to be inserted
754 -- x_entry_id: return the list_entry_id of the new list entry
755 --
756 -- NOTES
757 -- 1. object_version_number will be set to 1.
758 -- 2. If list_entry_id is passed in, the uniqueness will be checked.
759 -- Raise exception in case of duplicates.
760 -- 3. If list_entry_id is not passed in, generate a unique one from
761 -- the sequence.
762 -- 4. If a flag column is passed in, check if it is 'Y' or 'N'.
763 -- Raise exception for invalid flag.
764 -- 5. If a flag column is not passed in, default it to 'Y' or 'N'.
765 -- HISTORY
766 -- 06/06/2000 tdonohoe added SOURCE_CODE_FOR_ID,PARTY_ID AND PARENT_PARTY_ID columns.
767 ---------------------------------------------------------------------
768 PROCEDURE create_listentry(
769 p_api_version IN NUMBER,
770 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
771 p_commit IN VARCHAR2 := FND_API.g_false,
772 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
773
774 x_return_status OUT NOCOPY VARCHAR2,
775 x_msg_count OUT NOCOPY NUMBER,
776 x_msg_data OUT NOCOPY VARCHAR2,
777
778 p_entry_rec IN entry_rec_type,
779 x_entry_id OUT NOCOPY NUMBER
780 ) IS
781
782 l_api_name CONSTANT VARCHAR2(30) := 'Create_ListEntry';
783 l_api_version CONSTANT NUMBER := 1.0;
784
785 -- Status Local Variables
786 l_return_status VARCHAR2(1); -- Return value from procedures
787 l_list_entry_id NUMBER;
788
789 l_sqlerrm varchar2(600);
790 l_sqlcode varchar2(100);
791
792 l_listentry_rec entry_rec_type := p_entry_rec;
793 l_entry_count NUMBER;
794
795 l_list_used_by_id NUMBER;
796 l_arc_list_used_by VARCHAR2(30);
797
798
799 CURSOR c_entry_seq IS
800 SELECT ams_list_entries_s.NEXTVAL
801 FROM DUAL;
802
803 CURSOR c_entry_count(entry_id IN NUMBER) IS
804 SELECT COUNT(*)
805 FROM ams_list_entries
806 WHERE list_entry_id = entry_id;
807
808
809 l_created_by NUMBER; --batoleti added this var. For bug# 6688996
810 /* batoleti. Bug# 6688996. Added the below cursor */
811 CURSOR cur_get_created_by (x_list_header_id IN NUMBER) IS
812 SELECT created_by
813 FROM ams_list_headers_all
814 WHERE list_header_id= x_list_header_id;
815
816
817 BEGIN
818
819 -- Standard Start of API savepoint
820 SAVEPOINT Create_ListEntry_PVT;
821
822 -- Standard call to check for call compatibility.
823 IF NOT FND_API.Compatible_API_Call ( l_api_version,
824 p_api_version,
825 l_api_name,
826 G_PKG_NAME)
827 THEN
828 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
829 END IF;
830
831
832 -- Initialize message list IF p_init_msg_list is set to TRUE.
833 IF FND_API.to_Boolean( p_init_msg_list ) THEN
834 FND_MSG_PUB.initialize;
835 END IF;
836
837 -- Debug Message
838 IF (AMS_DEBUG_HIGH_ON) THEN
839 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
840 FND_MESSAGE.Set_Token('ROW', 'AMS_ListEntry_PVT.Create_ListEntry: Start', TRUE);
841 FND_MSG_PUB.Add;
842 END IF;
843
844 -- Initialize API return status to success
845 x_return_status := FND_API.G_RET_STS_SUCCESS;
846
847
848 Default_ListEntry
849 ( p_init_msg_list => p_init_msg_list,
850 p_listentry_rec => p_entry_rec,
851 p_validation_mode => JTF_PLSQL_API.g_create,
852 x_complete_rec => l_listentry_rec,
853 x_return_status => l_return_status,
854 x_msg_count => x_msg_count,
855 x_msg_data => x_msg_data ) ;
856
857 -- If any errors happen abort API.
858 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
859 RAISE FND_API.G_EXC_ERROR;
860 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
861 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
862 END IF;
863
864
868 ,p_validation_level => p_validation_level
865 Validate_ListEntry
866 ( p_api_version => 1.0
867 ,p_init_msg_list => p_init_msg_list
869 ,x_return_status => l_return_status
870 ,x_msg_count => x_msg_count
871 ,x_msg_data => x_msg_data
872 ,p_entry_rec => l_listentry_rec
873 );
874
875 -- If any errors happen abort API.
876 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
877 RAISE FND_API.G_EXC_ERROR;
878 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
879 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
880 END IF;
881
882
883 IF l_listentry_rec.list_entry_id IS NULL THEN
884 LOOP
885 OPEN c_entry_seq;
886 FETCH c_entry_seq INTO l_listentry_rec.list_entry_id;
887 CLOSE c_entry_seq;
888
889 OPEN c_entry_count(l_listentry_rec.list_entry_id);
890 FETCH c_entry_count INTO l_entry_count;
891 CLOSE c_entry_count;
892
893 EXIT WHEN l_entry_count = 0;
894 END LOOP;
895 END IF;
896
897 --getting the pin_code for the list entry.
898 l_listentry_rec.pin_code := Get_ListPinCode(l_listentry_rec.list_header_id,
899 l_listentry_rec.list_entry_id);
900
901 -- batoleti coding starts for bug# 6688996
902 l_created_by := 0;
903
904 OPEN cur_get_created_by(l_listentry_rec.LIST_HEADER_ID);
905
906 FETCH cur_get_created_by INTO l_created_by;
907 CLOSE cur_get_created_by;
908
909 -- batoleti coding ends for bug# 6688996
910
911 INSERT INTO ams_list_entries
912 (list_entry_id
913
914 ,last_update_date
915 ,last_updated_by
916 ,creation_date
917 ,created_by
918
919 ,last_update_login
920 ,object_version_number
921
922 ,view_application_id
923
924 ,list_header_id
925 ,list_select_action_id
926 ,arc_list_select_action_from
927 ,list_select_action_from_name
928 ,source_code
929 ,arc_list_used_by_source
930 ,source_code_for_id
931 ,pin_code
932 ,list_entry_source_system_id
933 ,list_entry_source_system_type
934 ,manually_entered_flag
935 ,marked_as_duplicate_flag
936 ,marked_as_random_flag
937 ,part_of_control_group_flag
938 ,exclude_in_triggered_list_flag
939 ,enabled_flag
940 ,cell_code
941 ,dedupe_key
942 ,campaign_id
943 ,media_id
944 ,channel_id
945 ,channel_schedule_id
946 ,event_offer_id
947 ,customer_id
948 ,market_segment_id
949 ,vendor_id
950 ,transfer_flag
951 ,transfer_status
952 ,list_source
953 ,duplicate_master_entry_id
954 ,marked_flag
955 ,lead_id
956 ,letter_id
957 ,picking_header_id
958 ,batch_id
959 ,col1
960 ,col2
961 ,col3
962 ,col4
963 ,col5
964 ,col6
965 ,col7
966 ,col8
967 ,col9
968 ,col10
969 ,col11
970 ,col12
971 ,col13
972 ,col14
973 ,col15
974 ,col16
975 ,col17
976 ,col18
977 ,col19
978 ,col20
979 ,col21
980 ,col22
981 ,col23
982 ,col24
983 ,col25
984 ,col26
985 ,col27
986 ,col28
987 ,col29
988 ,col30
989 ,col31
990 ,col32
991 ,col33
992 ,col34
993 ,col35
994 ,col36
995 ,col37
996 ,col38
997 ,col39
998 ,col40
999 ,col41
1000 ,col42
1001 ,col43
1002 ,col44
1003 ,col45
1004 ,col46
1005 ,col47
1006 ,col48
1007 ,col49
1008 ,col50
1009 ,col51
1010 ,col52
1011 ,col53
1012 ,col54
1013 ,col55
1014 ,col56
1015 ,col57
1016 ,col58
1017 ,col59
1018 ,col60
1019 ,col61
1020 ,col62
1021 ,col63
1022 ,col64
1023 ,col65
1024 ,col66
1025 ,col67
1026 ,col68
1027 ,col69
1028 ,col70
1029 ,col71
1030 ,col72
1031 ,col73
1032 ,col74
1033 ,col75
1034 ,col76
1035 ,col77
1036 ,col78
1037 ,col79
1038 ,col80
1039 ,col81
1040 ,col82
1041 ,col83
1042 ,col84
1043 ,col85
1047 ,col89
1044 ,col86
1045 ,col87
1046 ,col88
1048 ,col90
1049 ,col91
1050 ,col92
1051 ,col93
1052 ,col94
1053 ,col95
1054 ,col96
1055 ,col97
1056 ,col98
1057 ,col99
1058 ,col100
1059 ,col101
1060 ,col102
1061 ,col103
1062 ,col104
1063 ,col105
1064 ,col106
1065 ,col107
1066 ,col108
1067 ,col109
1068 ,col110
1069 ,col111
1070 ,col112
1071 ,col113
1072 ,col114
1073 ,col115
1074 ,col116
1075 ,col117
1076 ,col118
1077 ,col119
1078 ,col120
1079 ,col121
1080 ,col122
1081 ,col123
1082 ,col124
1083 ,col125
1084 ,col126
1085 ,col127
1086 ,col128
1087 ,col129
1088 ,col130
1089 ,col131
1090 ,col132
1091 ,col133
1092 ,col134
1093 ,col135
1094 ,col136
1095 ,col137
1096 ,col138
1097 ,col139
1098 ,col140
1099 ,col141
1100 ,col142
1101 ,col143
1102 ,col144
1103 ,col145
1104 ,col146
1105 ,col147
1106 ,col148
1107 ,col149
1108 ,col150
1109 ,col151
1110 ,col152
1111 ,col153
1112 ,col154
1113 ,col155
1114 ,col156
1115 ,col157
1116 ,col158
1117 ,col159
1118 ,col160
1119 ,col161
1120 ,col162
1121 ,col163
1122 ,col164
1123 ,col165
1124 ,col166
1125 ,col167
1126 ,col168
1127 ,col169
1128 ,col170
1129 ,col171
1130 ,col172
1131 ,col173
1132 ,col174
1133 ,col175
1134 ,col176
1135 ,col177
1136 ,col178
1137 ,col179
1138 ,col180
1139 ,col181
1140 ,col182
1141 ,col183
1142 ,col184
1143 ,col185
1144 ,col186
1145 ,col187
1146 ,col188
1147 ,col189
1148 ,col190
1149 ,col200
1150 ,col201
1151 ,col202
1152 ,col203
1153 ,col204
1154 ,col205
1155 ,col206
1156 ,col207
1157 ,col208
1158 ,col209
1159 ,col210
1160 ,col211
1161 ,col212
1162 ,col213
1163 ,col214
1164 ,col215
1165 ,col216
1166 ,col217
1167 ,col218
1168 ,col219
1169 ,col220
1170 ,col221
1171 ,col222
1172 ,col223
1173 ,col224
1174 ,col225
1175 ,col226
1176 ,col227
1177 ,col228
1178 ,col229
1179 ,col230
1180 ,col231
1181 ,col232
1182 ,col233
1183 ,col234
1184 ,col235
1185 ,col236
1186 ,col237
1187 ,col238
1188 ,col239
1189 ,col240
1190 ,col241
1191 ,col242
1192 ,col243
1193 ,col244
1194 ,col245
1195 ,col246
1196 ,col247
1197 ,col248
1198 ,col249
1199 ,col250
1200 ,COL251
1201 ,COL252
1202 ,COL253
1203 ,COL254
1204 ,COL255
1205 ,COL256
1206 ,COL257
1207 ,COL258
1208 ,COL259
1209 ,COL260
1210 ,COL261
1211 ,COL262
1212 ,COL263
1213 ,COL264
1214 ,COL265
1215 ,COL266
1216 ,COL267
1217 ,COL268
1218 ,COL269
1219 ,COL270
1220 ,COL271
1221 ,COL272
1222 ,COL273
1223 ,COL274
1224 ,COL275
1225 ,COL276
1226 ,COL277
1227 ,COL278
1228 ,COL279
1229 ,COL280
1230 ,COL281
1231 ,COL282
1232 ,COL283
1233 ,COL284
1234 ,COL285
1235 ,COL286
1236 ,COL287
1237 ,COL288
1238 ,COL289
1239 ,COL290
1240 ,COL291
1241 ,COL292
1242 ,COL293
1243 ,COL294
1244 ,COL295
1245 ,COL296
1246 ,COL297
1247 ,COL298
1248 ,COL299
1249 ,COL300
1250 ,ADDRESS_LINE1
1251 ,ADDRESS_LINE2
1252 ,CALLBACK_FLAG
1253 ,CITY
1254 ,COUNTRY
1255 ,DO_NOT_USE_FLAG
1256 ,DO_NOT_USE_REASON
1257 ,EMAIL_ADDRESS
1258 ,FAX
1259 ,PHONE
1260 ,RECORD_OUT_FLAG
1261 ,STATE
1262 ,SUFFIX
1263 ,TITLE
1267 ,CURR_CP_PHONE_NUMBER
1264 ,USAGE_RESTRICTION
1265 ,ZIPCODE
1266 ,CURR_CP_COUNTRY_CODE
1268 ,CURR_CP_RAW_PHONE_NUMBER
1269 ,CURR_CP_AREA_CODE
1270 ,CURR_CP_ID
1271 ,CURR_CP_INDEX
1272 ,CURR_CP_TIME_ZONE
1273 ,CURR_CP_TIME_ZONE_AUX
1274 ,IMP_SOURCE_LINE_ID
1275 ,NEXT_CALL_TIME
1276 ,RECORD_RELEASE_TIME
1277 ,party_id
1278 ,parent_party_id
1279 )
1280 VALUES
1281 ( l_listentry_rec.list_entry_id
1282
1283 ,sysdate
1284 ,FND_GLOBAL.User_Id
1285 ,sysdate
1286 ,nvl(l_created_by,FND_GLOBAL.User_Id)
1287 ,FND_GLOBAL.Conc_Login_Id
1288
1289 ,1--OBJECT_VERSION_NUMBER
1290
1291 ,FND_GLOBAL.RESP_APPL_ID
1292
1293 ,l_listentry_rec.LIST_HEADER_ID
1294 ,l_listentry_rec.LIST_SELECT_ACTION_ID
1295 ,l_listentry_rec.ARC_LIST_SELECT_ACTION_FROM
1296 ,l_listentry_rec.LIST_SELECT_ACTION_FROM_NAME
1297 ,l_listentry_rec.SOURCE_CODE
1298 ,l_listentry_rec.ARC_LIST_USED_BY_SOURCE
1299 ,l_listentry_rec.SOURCE_CODE_FOR_ID
1300 ,l_listentry_rec.PIN_CODE--pin code corresponds to the list_entry_id.
1301 ,l_listentry_rec.LIST_ENTRY_SOURCE_SYSTEM_ID
1302 ,l_listentry_rec.LIST_ENTRY_SOURCE_SYSTEM_TYPE
1303 ,NVL(l_listentry_rec.MANUALLY_ENTERED_FLAG,'Y')
1304 ,NVL(l_listentry_rec.MARKED_AS_DUPLICATE_FLAG,'N')
1305 ,NVL(l_listentry_rec.MARKED_AS_RANDOM_FLAG,'N')
1306 ,NVL(l_listentry_rec.PART_OF_CONTROL_GROUP_FLAG,'N')
1307 ,NVL(l_listentry_rec.EXCLUDE_IN_TRIGGERED_LIST_FLAG,'N')
1308 ,NVL(l_listentry_rec.ENABLED_FLAG,'Y')
1309 ,l_listentry_rec.CELL_CODE
1310 ,l_listentry_rec.DEDUPE_KEY
1311 ,l_listentry_rec.CAMPAIGN_ID
1312 ,l_listentry_rec.MEDIA_ID
1313 ,l_listentry_rec.CHANNEL_ID
1314 ,l_listentry_rec.CHANNEL_SCHEDULE_ID
1315 ,l_listentry_rec.EVENT_OFFER_ID
1316 ,l_listentry_rec.CUSTOMER_ID
1317 ,l_listentry_rec.MARKET_SEGMENT_ID
1318 ,l_listentry_rec.VENDOR_ID
1319 ,l_listentry_rec.TRANSFER_FLAG
1320 ,l_listentry_rec.TRANSFER_STATUS
1321 ,l_listentry_rec.LIST_SOURCE
1322 ,l_listentry_rec.DUPLICATE_MASTER_ENTRY_ID
1323 ,l_listentry_rec.MARKED_FLAG
1324 ,l_listentry_rec.LEAD_ID
1325 ,l_listentry_rec.LETTER_ID
1326 ,l_listentry_rec.PICKING_HEADER_ID
1327 ,l_listentry_rec.BATCH_ID
1328 ,l_listentry_rec.COL1
1329 ,l_listentry_rec.COL2
1330 ,l_listentry_rec.COL3
1331 ,l_listentry_rec.COL4
1332 ,l_listentry_rec.COL5
1333 ,l_listentry_rec.COL6
1334 ,l_listentry_rec.COL7
1335 ,l_listentry_rec.COL8
1336 ,l_listentry_rec.COL9
1337 ,l_listentry_rec.COL10
1338 ,l_listentry_rec.COL11
1339 ,l_listentry_rec.COL12
1340 ,l_listentry_rec.COL13
1341 ,l_listentry_rec.COL14
1342 ,l_listentry_rec.COL15
1343 ,l_listentry_rec.COL16
1344 ,l_listentry_rec.COL17
1345 ,l_listentry_rec.COL18
1346 ,l_listentry_rec.COL19
1347 ,l_listentry_rec.COL20
1348 ,l_listentry_rec.COL21
1349 ,l_listentry_rec.COL22
1350 ,l_listentry_rec.COL23
1351 ,l_listentry_rec.COL24
1352 ,l_listentry_rec.COL25
1353 ,l_listentry_rec.COL26
1354 ,l_listentry_rec.COL27
1355 ,l_listentry_rec.COL28
1356 ,l_listentry_rec.COL29
1357 ,l_listentry_rec.COL30
1358 ,l_listentry_rec.COL31
1359 ,l_listentry_rec.COL32
1360 ,l_listentry_rec.COL33
1361 ,l_listentry_rec.COL34
1362 ,l_listentry_rec.COL35
1363 ,l_listentry_rec.COL36
1364 ,l_listentry_rec.COL37
1365 ,l_listentry_rec.COL38
1366 ,l_listentry_rec.COL39
1367 ,l_listentry_rec.COL40
1368 ,l_listentry_rec.COL41
1369 ,l_listentry_rec.COL42
1370 ,l_listentry_rec.COL43
1371 ,l_listentry_rec.COL44
1372 ,l_listentry_rec.COL45
1373 ,l_listentry_rec.COL46
1374 ,l_listentry_rec.COL47
1375 ,l_listentry_rec.COL48
1376 ,l_listentry_rec.COL49
1377 ,l_listentry_rec.COL50
1378 ,l_listentry_rec.COL51
1379 ,l_listentry_rec.COL52
1380 ,l_listentry_rec.COL53
1381 ,l_listentry_rec.COL54
1382 ,l_listentry_rec.COL55
1383 ,l_listentry_rec.COL56
1384 ,l_listentry_rec.COL57
1385 ,l_listentry_rec.COL58
1386 ,l_listentry_rec.COL59
1387 ,l_listentry_rec.COL60
1388 ,l_listentry_rec.COL61
1389 ,l_listentry_rec.COL62
1390 ,l_listentry_rec.COL63
1391 ,l_listentry_rec.COL64
1392 ,l_listentry_rec.COL65
1393 ,l_listentry_rec.COL66
1394 ,l_listentry_rec.COL67
1395 ,l_listentry_rec.COL68
1396 ,l_listentry_rec.COL69
1397 ,l_listentry_rec.COL70
1398 ,l_listentry_rec.COL71
1399 ,l_listentry_rec.COL72
1400 ,l_listentry_rec.COL73
1401 ,l_listentry_rec.COL74
1402 ,l_listentry_rec.COL75
1403 ,l_listentry_rec.COL76
1404 ,l_listentry_rec.COL77
1405 ,l_listentry_rec.COL78
1406 ,l_listentry_rec.COL79
1407 ,l_listentry_rec.COL80
1411 ,l_listentry_rec.COL84
1408 ,l_listentry_rec.COL81
1409 ,l_listentry_rec.COL82
1410 ,l_listentry_rec.COL83
1412 ,l_listentry_rec.COL85
1413 ,l_listentry_rec.COL86
1414 ,l_listentry_rec.COL87
1415 ,l_listentry_rec.COL88
1416 ,l_listentry_rec.COL89
1417 ,l_listentry_rec.COL90
1418 ,l_listentry_rec.COL91
1419 ,l_listentry_rec.COL92
1420 ,l_listentry_rec.COL93
1421 ,l_listentry_rec.COL94
1422 ,l_listentry_rec.COL95
1423 ,l_listentry_rec.COL96
1424 ,l_listentry_rec.COL97
1425 ,l_listentry_rec.COL98
1426 ,l_listentry_rec.COL99
1427 ,l_listentry_rec.COL100
1428 ,l_listentry_rec.COL101
1429 ,l_listentry_rec.COL102
1430 ,l_listentry_rec.COL103
1431 ,l_listentry_rec.COL104
1432 ,l_listentry_rec.COL105
1433 ,l_listentry_rec.COL106
1434 ,l_listentry_rec.COL107
1435 ,l_listentry_rec.COL108
1436 ,l_listentry_rec.COL109
1437 ,l_listentry_rec.COL110
1438 ,l_listentry_rec.COL111
1439 ,l_listentry_rec.COL112
1440 ,l_listentry_rec.COL113
1441 ,l_listentry_rec.COL114
1442 ,l_listentry_rec.COL115
1443 ,l_listentry_rec.COL116
1444 ,l_listentry_rec.COL117
1445 ,l_listentry_rec.COL118
1446 ,l_listentry_rec.COL119
1447 ,l_listentry_rec.COL120
1448 ,l_listentry_rec.COL121
1449 ,l_listentry_rec.COL122
1450 ,l_listentry_rec.COL123
1451 ,l_listentry_rec.COL124
1452 ,l_listentry_rec.COL125
1453 ,l_listentry_rec.COL126
1454 ,l_listentry_rec.COL127
1455 ,l_listentry_rec.COL128
1456 ,l_listentry_rec.COL129
1457 ,l_listentry_rec.COL130
1458 ,l_listentry_rec.COL131
1459 ,l_listentry_rec.COL132
1460 ,l_listentry_rec.COL133
1461 ,l_listentry_rec.COL134
1462 ,l_listentry_rec.COL135
1463 ,l_listentry_rec.COL136
1464 ,l_listentry_rec.COL137
1465 ,l_listentry_rec.COL138
1466 ,l_listentry_rec.COL139
1467 ,l_listentry_rec.COL140
1468 ,l_listentry_rec.COL141
1469 ,l_listentry_rec.COL142
1470 ,l_listentry_rec.COL143
1471 ,l_listentry_rec.COL144
1472 ,l_listentry_rec.COL145
1473 ,l_listentry_rec.COL146
1474 ,l_listentry_rec.COL147
1475 ,l_listentry_rec.COL148
1476 ,l_listentry_rec.COL149
1477 ,l_listentry_rec.COL150
1478 ,l_listentry_rec.COL151
1479 ,l_listentry_rec.COL152
1480 ,l_listentry_rec.COL153
1481 ,l_listentry_rec.COL154
1482 ,l_listentry_rec.COL155
1483 ,l_listentry_rec.COL156
1484 ,l_listentry_rec.COL157
1485 ,l_listentry_rec.COL158
1486 ,l_listentry_rec.COL159
1487 ,l_listentry_rec.COL160
1488 ,l_listentry_rec.COL161
1489 ,l_listentry_rec.COL162
1490 ,l_listentry_rec.COL163
1491 ,l_listentry_rec.COL164
1492 ,l_listentry_rec.COL165
1493 ,l_listentry_rec.COL166
1494 ,l_listentry_rec.COL167
1495 ,l_listentry_rec.COL168
1496 ,l_listentry_rec.COL169
1497 ,l_listentry_rec.COL170
1498 ,l_listentry_rec.COL171
1499 ,l_listentry_rec.COL172
1500 ,l_listentry_rec.COL173
1501 ,l_listentry_rec.COL174
1502 ,l_listentry_rec.COL175
1503 ,l_listentry_rec.COL176
1504 ,l_listentry_rec.COL177
1505 ,l_listentry_rec.COL178
1506 ,l_listentry_rec.COL179
1507 ,l_listentry_rec.COL180
1508 ,l_listentry_rec.COL181
1509 ,l_listentry_rec.COL182
1510 ,l_listentry_rec.COL183
1511 ,l_listentry_rec.COL184
1512 ,l_listentry_rec.COL185
1513 ,l_listentry_rec.COL186
1514 ,l_listentry_rec.COL187
1515 ,l_listentry_rec.COL188
1516 ,l_listentry_rec.COL189
1517 ,l_listentry_rec.COL190
1518 ,l_listentry_rec.COL200
1519 ,l_listentry_rec.COL201
1520 ,l_listentry_rec.COL202
1521 ,l_listentry_rec.COL203
1522 ,l_listentry_rec.COL204
1523 ,l_listentry_rec.COL205
1524 ,l_listentry_rec.COL206
1525 ,l_listentry_rec.COL207
1526 ,l_listentry_rec.COL208
1527 ,l_listentry_rec.COL209
1528 ,l_listentry_rec.COL210
1529 ,l_listentry_rec.COL211
1530 ,l_listentry_rec.COL212
1531 ,l_listentry_rec.COL213
1532 ,l_listentry_rec.COL214
1533 ,l_listentry_rec.COL215
1534 ,l_listentry_rec.COL216
1535 ,l_listentry_rec.COL217
1536 ,l_listentry_rec.COL218
1537 ,l_listentry_rec.COL219
1538 ,l_listentry_rec.COL220
1539 ,l_listentry_rec.COL221
1540 ,l_listentry_rec.COL222
1541 ,l_listentry_rec.COL223
1542 ,l_listentry_rec.COL224
1543 ,l_listentry_rec.COL225
1544 ,l_listentry_rec.COL226
1545 ,l_listentry_rec.COL227
1546 ,l_listentry_rec.COL228
1547 ,l_listentry_rec.COL229
1548 ,l_listentry_rec.COL230
1549 ,l_listentry_rec.COL231
1550 ,l_listentry_rec.COL232
1551 ,l_listentry_rec.COL233
1552 ,l_listentry_rec.COL234
1553 ,l_listentry_rec.COL235
1554 ,l_listentry_rec.COL236
1555 ,l_listentry_rec.COL237
1556 ,l_listentry_rec.COL238
1557 ,l_listentry_rec.COL239
1558 ,l_listentry_rec.COL240
1562 ,l_listentry_rec.COL244
1559 ,l_listentry_rec.COL241
1560 ,l_listentry_rec.COL242
1561 ,l_listentry_rec.COL243
1563 ,l_listentry_rec.COL245
1564 ,l_listentry_rec.COL246
1565 ,l_listentry_rec.COL247
1566 ,l_listentry_rec.COL248
1567 ,l_listentry_rec.COL249
1568 ,l_listentry_rec.COL250
1569 ,l_listentry_rec.COL251
1570 ,l_listentry_rec.COL252
1571 ,l_listentry_rec.COL253
1572 ,l_listentry_rec.COL254
1573 ,l_listentry_rec.COL255
1574 ,l_listentry_rec.COL256
1575 ,l_listentry_rec.COL257
1576 ,l_listentry_rec.COL258
1577 ,l_listentry_rec.COL259
1578 ,l_listentry_rec.COL260
1579 ,l_listentry_rec.COL261
1580 ,l_listentry_rec.COL262
1581 ,l_listentry_rec.COL263
1582 ,l_listentry_rec.COL264
1583 ,l_listentry_rec.COL265
1584 ,l_listentry_rec.COL266
1585 ,l_listentry_rec.COL267
1586 ,l_listentry_rec.COL268
1587 ,l_listentry_rec.COL269
1588 ,l_listentry_rec.COL270
1589 ,l_listentry_rec.COL271
1590 ,l_listentry_rec.COL272
1591 ,l_listentry_rec.COL273
1592 ,l_listentry_rec.COL274
1593 ,l_listentry_rec.COL275
1594 ,l_listentry_rec.COL276
1595 ,l_listentry_rec.COL277
1596 ,l_listentry_rec.COL278
1597 ,l_listentry_rec.COL279
1598 ,l_listentry_rec.COL280
1599 ,l_listentry_rec.COL281
1600 ,l_listentry_rec.COL282
1601 ,l_listentry_rec.COL283
1602 ,l_listentry_rec.COL284
1603 ,l_listentry_rec.COL285
1604 ,l_listentry_rec.COL286
1605 ,l_listentry_rec.COL287
1606 ,l_listentry_rec.COL288
1607 ,l_listentry_rec.COL289
1608 ,l_listentry_rec.COL290
1609 ,l_listentry_rec.COL291
1610 ,l_listentry_rec.COL292
1611 ,l_listentry_rec.COL293
1612 ,l_listentry_rec.COL294
1613 ,l_listentry_rec.COL295
1614 ,l_listentry_rec.COL296
1615 ,l_listentry_rec.COL297
1616 ,l_listentry_rec.COL298
1617 ,l_listentry_rec.COL299
1618 ,l_listentry_rec.COL300
1619 ,l_listentry_rec.ADDRESS_LINE1
1620 ,l_listentry_rec.ADDRESS_LINE2
1621 ,l_listentry_rec.CALLBACK_FLAG
1622 ,l_listentry_rec.CITY
1623 ,l_listentry_rec.COUNTRY
1624 ,l_listentry_rec.DO_NOT_USE_FLAG
1625 ,l_listentry_rec.DO_NOT_USE_REASON
1626 ,l_listentry_rec.EMAIL_ADDRESS
1627 ,l_listentry_rec.FAX
1628 ,l_listentry_rec.PHONE
1629 ,l_listentry_rec.RECORD_OUT_FLAG
1630 ,l_listentry_rec.STATE
1631 ,l_listentry_rec.SUFFIX
1632 ,l_listentry_rec.TITLE
1633 ,l_listentry_rec.USAGE_RESTRICTION
1634 ,l_listentry_rec.ZIPCODE
1635 ,l_listentry_rec.CURR_CP_COUNTRY_CODE
1636 ,l_listentry_rec.CURR_CP_PHONE_NUMBER
1637 ,l_listentry_rec.CURR_CP_RAW_PHONE_NUMBER
1638 ,l_listentry_rec.CURR_CP_AREA_CODE
1639 ,l_listentry_rec.CURR_CP_ID
1640 ,l_listentry_rec.CURR_CP_INDEX
1641 ,l_listentry_rec.CURR_CP_TIME_ZONE
1642 ,l_listentry_rec.CURR_CP_TIME_ZONE_AUX
1643 ,l_listentry_rec.IMP_SOURCE_LINE_ID
1644 ,l_listentry_rec.NEXT_CALL_TIME
1645 ,l_listentry_rec.RECORD_RELEASE_TIME
1646 ,l_listentry_rec.PARTY_ID
1647 ,l_listentry_rec.PARENT_PARTY_ID
1648 );
1649
1650 ------------------------- finish -------------------------------
1651 x_entry_id := l_listentry_rec.list_entry_id;
1652
1653 -- Standard check of p_commit.
1654 IF FND_API.To_Boolean ( p_commit )
1655 THEN
1656 COMMIT WORK;
1657 END IF;
1658
1659 -- Success Message
1660 -- MMSG
1661 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1662 THEN
1663 FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1664 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Create_ListEntry', TRUE);
1665 FND_MSG_PUB.Add;
1666 END IF;
1667
1668
1669 IF (AMS_DEBUG_HIGH_ON) THEN
1670 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1671 FND_MESSAGE.Set_Token('ROW','AMS_List_Entry_PVT.Create_ListEntry: END', TRUE);
1672 FND_MSG_PUB.Add;
1673 END IF;
1674
1675
1676 -- Standard call to get message count AND IF count is 1, get message info.
1677 FND_MSG_PUB.Count_AND_Get
1678 ( p_count => x_msg_count,
1679 p_data => x_msg_data,
1680 p_encoded => FND_API.G_FALSE
1681 );
1682
1683
1684
1685 EXCEPTION
1686
1687 WHEN FND_API.G_EXC_ERROR THEN
1688
1689 ROLLBACK TO Create_ListEntry_PVT;
1690 x_return_status := FND_API.G_RET_STS_ERROR ;
1691
1692 FND_MSG_PUB.Count_AND_Get
1693 ( p_count => x_msg_count,
1694 p_data => x_msg_data,
1695 p_encoded => FND_API.G_FALSE
1696 );
1697
1698
1699 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1700
1701 ROLLBACK TO Create_ListEntry_PVT;
1705 FND_MSG_PUB.Count_AND_Get
1702 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1703
1704
1706 ( p_count => x_msg_count,
1707 p_data => x_msg_data,
1708 p_encoded => FND_API.G_FALSE
1709 );
1710
1711 WHEN OTHERS THEN
1712
1713 ROLLBACK TO Create_ListEntry_PVT;
1714 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1715
1716 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1717 THEN
1718 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1719 END IF;
1720
1721 FND_MSG_PUB.Count_AND_Get
1722 ( p_count => x_msg_count,
1723 p_data => x_msg_data,
1724 p_encoded => FND_API.G_FALSE
1725 );
1726
1727 END Create_ListEntry;
1728
1729 ---------------------------------------------------------------------
1730 -- PROCEDURE
1731 -- update_listentry
1732 --
1733 -- PURPOSE
1734 -- Update a listentry.
1735 --
1736 -- PARAMETERS
1737 -- p_entry_rec: the record with new items
1738 --
1739 -- NOTES
1740 --
1741 -- HISTORY
1742 -- 06/06/2000 tdonohoe added SOURCE_CODE_FOR_ID,PARTY_ID AND PARENT_PARTY_ID columns.
1743 ----------------------------------------------------------------------
1744 PROCEDURE update_listentry(
1745 p_api_version IN NUMBER,
1746 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
1747 p_commit IN VARCHAR2 := FND_API.g_false,
1748 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
1749
1750 x_return_status OUT NOCOPY VARCHAR2,
1751 x_msg_count OUT NOCOPY NUMBER,
1752 x_msg_data OUT NOCOPY VARCHAR2,
1753
1754 p_entry_rec IN entry_rec_type
1755 ) IS
1756
1757 l_api_name CONSTANT VARCHAR2(30) := 'Update_ListEntry';
1758 l_api_version CONSTANT NUMBER := 1.0;
1759
1760 -- Status Local Variables
1761 l_return_status VARCHAR2(1); -- Return value from procedures
1762 l_listentry_rec entry_rec_type := p_entry_rec;
1763
1764
1765 BEGIN
1766
1767
1768 -- Standard Start of API savepoint
1769 SAVEPOINT Update_ListEntry_PVT;
1770
1771 -- Standard call to check for call compatibility.
1772 IF NOT FND_API.Compatible_API_Call ( l_api_version,
1773 p_api_version,
1774 l_api_name,
1775 G_PKG_NAME)
1776 THEN
1777 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778 END IF;
1779
1780 -- Initialize message list IF p_init_msg_list is set to TRUE.
1781 IF FND_API.to_Boolean( p_init_msg_list ) THEN
1782 FND_MSG_PUB.initialize;
1783 END IF;
1784
1785 -- Debug Message
1786 IF (AMS_DEBUG_HIGH_ON) THEN
1787 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1788 FND_MESSAGE.Set_Token('ROW','AMS_List_Header_PVT.Update_list_entry: Start', TRUE);
1789 FND_MSG_PUB.Add;
1790 END IF;
1791
1792
1793
1794
1795 -- Initialize API return status to success
1796 x_return_status := FND_API.G_RET_STS_SUCCESS;
1797 -- replace g_miss_char/num/date with current column values
1798 --init_entry_rec(l_listentry_rec);
1799 complete_entry_rec(p_entry_rec, l_listentry_rec);
1800
1801 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1802 check_entry_items(
1803 p_entry_rec => l_listentry_rec,
1804 p_validation_mode => JTF_PLSQL_API.g_update,
1805 x_return_status => l_return_status
1806 );
1807
1808 IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1809 RAISE FND_API.g_exc_unexpected_error;
1810 ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1811 RAISE FND_API.g_exc_error;
1812 END IF;
1813 END IF;
1814
1815
1816 IF p_validation_level >= JTF_PLSQL_API.g_valid_level_record THEN
1817 check_entry_record(
1818 p_entry_rec => p_entry_rec,
1819 p_complete_rec => l_listentry_rec,
1820 x_return_status => l_return_status
1821 );
1822
1823 IF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1824 RAISE FND_API.g_exc_unexpected_error;
1825 ELSIF l_return_status = FND_API.g_ret_sts_error THEN
1826 RAISE FND_API.g_exc_error;
1827 END IF;
1828 END IF;
1829
1830 update ams_list_entries
1831 set
1832 last_update_date = sysdate
1833 ,last_updated_by = FND_GLOBAL.User_Id
1834 ,last_update_login = FND_GLOBAL.Conc_Login_Id
1835 ,object_version_number = l_listentry_rec.object_version_number + 1
1836
1837 ,EXCLUDE_IN_TRIGGERED_LIST_FLAG = l_listentry_rec.EXCLUDE_IN_TRIGGERED_LIST_FLAG
1838 ,CELL_CODE = l_listentry_rec.CELL_CODE
1842 ,CHANNEL_SCHEDULE_ID = l_listentry_rec.CHANNEL_SCHEDULE_ID
1839 ,CAMPAIGN_ID = l_listentry_rec.CAMPAIGN_ID
1840 ,MEDIA_ID = l_listentry_rec.MEDIA_ID
1841 ,CHANNEL_ID = l_listentry_rec.CHANNEL_ID
1843 ,EVENT_OFFER_ID = l_listentry_rec.EVENT_OFFER_ID
1844 ,CUSTOMER_ID = l_listentry_rec.CUSTOMER_ID
1845 ,MARKET_SEGMENT_ID = l_listentry_rec.MARKET_SEGMENT_ID
1846 ,VENDOR_ID = l_listentry_rec.VENDOR_ID
1847 ,TRANSFER_FLAG = l_listentry_rec.TRANSFER_FLAG
1848 ,TRANSFER_STATUS = l_listentry_rec.TRANSFER_STATUS
1849 ,LIST_SOURCE = l_listentry_rec.LIST_SOURCE
1850 ,DUPLICATE_MASTER_ENTRY_ID = l_listentry_rec.DUPLICATE_MASTER_ENTRY_ID
1851 ,MARKED_FLAG = l_listentry_rec.MARKED_FLAG
1852 ,LEAD_ID = l_listentry_rec.LEAD_ID
1853 ,LETTER_ID = l_listentry_rec.LETTER_ID
1854 ,PICKING_HEADER_ID = l_listentry_rec.PICKING_HEADER_ID
1855 ,BATCH_ID = l_listentry_rec.BATCH_ID
1856 ,COL1 = l_listentry_rec.COL1
1857 ,COL2 = l_listentry_rec.COL2
1858 ,COL3 = l_listentry_rec.COL3
1859 ,COL4 = l_listentry_rec.COL4
1860 ,COL5 = l_listentry_rec.COL5
1861 ,COL6 = l_listentry_rec.COL6
1862 ,COL7 = l_listentry_rec.COL7
1863 ,COL8 = l_listentry_rec.COL8
1864 ,COL9 = l_listentry_rec.COL9
1865 ,COL10 = l_listentry_rec.COL10
1866 ,COL11 = l_listentry_rec.COL11
1867 ,COL12 = l_listentry_rec.COL12
1868 ,COL13 = l_listentry_rec.COL13
1869 ,COL14 = l_listentry_rec.COL14
1870 ,COL15 = l_listentry_rec.COL15
1871 ,COL16 = l_listentry_rec.COL16
1872 ,COL17 = l_listentry_rec.COL17
1873 ,COL18 = l_listentry_rec.COL18
1874 ,COL19 = l_listentry_rec.COL19
1875 ,COL20 = l_listentry_rec.COL20
1876 ,COL21 = l_listentry_rec.COL21
1877 ,COL22 = l_listentry_rec.COL22
1878 ,COL23 = l_listentry_rec.COL23
1879 ,COL24 = l_listentry_rec.COL24
1880 ,COL25 = l_listentry_rec.COL25
1881 ,COL26 = l_listentry_rec.COL26
1882 ,COL27 = l_listentry_rec.COL27
1883 ,COL28 = l_listentry_rec.COL28
1884 ,COL29 = l_listentry_rec.COL29
1885 ,COL30 = l_listentry_rec.COL30
1886 ,COL31 = l_listentry_rec.COL31
1887 ,COL32 = l_listentry_rec.COL32
1888 ,COL33 = l_listentry_rec.COL33
1889 ,COL34 = l_listentry_rec.COL34
1890 ,COL35 = l_listentry_rec.COL35
1891 ,COL36 = l_listentry_rec.COL36
1892 ,COL37 = l_listentry_rec.COL37
1893 ,COL38 = l_listentry_rec.COL38
1894 ,COL39 = l_listentry_rec.COL39
1895 ,COL40 = l_listentry_rec.COL40
1896 ,COL41 = l_listentry_rec.COL41
1897 ,COL42 = l_listentry_rec.COL42
1898 ,COL43 = l_listentry_rec.COL43
1899 ,COL44 = l_listentry_rec.COL44
1900 ,COL45 = l_listentry_rec.COL45
1901 ,COL46 = l_listentry_rec.COL46
1902 ,COL47 = l_listentry_rec.COL47
1903 ,COL48 = l_listentry_rec.COL48
1904 ,COL49 = l_listentry_rec.COL49
1905 ,COL50 = l_listentry_rec.COL50
1906 ,COL51 = l_listentry_rec.COL51
1907 ,COL52 = l_listentry_rec.COL52
1908 ,COL53 = l_listentry_rec.COL53
1909 ,COL54 = l_listentry_rec.COL54
1910 ,COL55 = l_listentry_rec.COL55
1911 ,COL56 = l_listentry_rec.COL56
1912 ,COL57 = l_listentry_rec.COL57
1913 ,COL58 = l_listentry_rec.COL58
1914 ,COL59 = l_listentry_rec.COL59
1915 ,COL60 = l_listentry_rec.COL60
1916 ,COL61 = l_listentry_rec.COL61
1917 ,COL62 = l_listentry_rec.COL62
1918 ,COL63 = l_listentry_rec.COL63
1919 ,COL64 = l_listentry_rec.COL64
1920 ,COL65 = l_listentry_rec.COL65
1921 ,COL66 = l_listentry_rec.COL66
1922 ,COL67 = l_listentry_rec.COL67
1926 ,COL71 = l_listentry_rec.COL71
1923 ,COL68 = l_listentry_rec.COL68
1924 ,COL69 = l_listentry_rec.COL69
1925 ,COL70 = l_listentry_rec.COL70
1927 ,COL72 = l_listentry_rec.COL72
1928 ,COL73 = l_listentry_rec.COL73
1929 ,COL74 = l_listentry_rec.COL74
1930 ,COL75 = l_listentry_rec.COL75
1931 ,COL76 = l_listentry_rec.COL76
1932 ,COL77 = l_listentry_rec.COL77
1933 ,COL78 = l_listentry_rec.COL78
1934 ,COL79 = l_listentry_rec.COL79
1935 ,COL80 = l_listentry_rec.COL80
1936 ,COL81 = l_listentry_rec.COL81
1937 ,COL82 = l_listentry_rec.COL82
1938 ,COL83 = l_listentry_rec.COL83
1939 ,COL84 = l_listentry_rec.COL84
1940 ,COL85 = l_listentry_rec.COL85
1941 ,COL86 = l_listentry_rec.COL86
1942 ,COL87 = l_listentry_rec.COL87
1943 ,COL88 = l_listentry_rec.COL88
1944 ,COL89 = l_listentry_rec.COL89
1945 ,COL90 = l_listentry_rec.COL90
1946 ,COL91 = l_listentry_rec.COL91
1947 ,COL92 = l_listentry_rec.COL92
1948 ,COL93 = l_listentry_rec.COL93
1949 ,COL94 = l_listentry_rec.COL94
1950 ,COL95 = l_listentry_rec.COL95
1951 ,COL96 = l_listentry_rec.COL96
1952 ,COL97 = l_listentry_rec.COL97
1953 ,COL98 = l_listentry_rec.COL98
1954 ,COL99 = l_listentry_rec.COL99
1955 ,COL100 = l_listentry_rec.COL100
1956 ,COL101 = l_listentry_rec.COL101
1957 ,COL102 = l_listentry_rec.COL102
1958 ,COL103 = l_listentry_rec.COL103
1959 ,COL104 = l_listentry_rec.COL104
1960 ,COL105 = l_listentry_rec.COL105
1961 ,COL106 = l_listentry_rec.COL106
1962 ,COL107 = l_listentry_rec.COL107
1963 ,COL108 = l_listentry_rec.COL108
1964 ,COL109 = l_listentry_rec.COL109
1965 ,COL110 = l_listentry_rec.COL110
1966 ,COL111 = l_listentry_rec.COL111
1967 ,COL112 = l_listentry_rec.COL112
1968 ,COL113 = l_listentry_rec.COL113
1969 ,COL114 = l_listentry_rec.COL114
1970 ,COL115 = l_listentry_rec.COL115
1971 ,COL116 = l_listentry_rec.COL116
1972 ,COL117 = l_listentry_rec.COL117
1973 ,COL118 = l_listentry_rec.COL118
1974 ,COL119 = l_listentry_rec.COL119
1975 ,COL120 = l_listentry_rec.COL120
1976 ,COL121 = l_listentry_rec.COL121
1977 ,COL122 = l_listentry_rec.COL122
1978 ,COL123 = l_listentry_rec.COL123
1979 ,COL124 = l_listentry_rec.COL124
1980 ,COL125 = l_listentry_rec.COL125
1981 ,COL126 = l_listentry_rec.COL126
1982 ,COL127 = l_listentry_rec.COL127
1983 ,COL128 = l_listentry_rec.COL128
1984 ,COL129 = l_listentry_rec.COL129
1985 ,COL130 = l_listentry_rec.COL130
1986 ,COL131 = l_listentry_rec.COL131
1987 ,COL132 = l_listentry_rec.COL132
1988 ,COL133 = l_listentry_rec.COL133
1989 ,COL134 = l_listentry_rec.COL134
1990 ,COL135 = l_listentry_rec.COL135
1991 ,COL136 = l_listentry_rec.COL136
1992 ,COL137 = l_listentry_rec.COL137
1993 ,COL138 = l_listentry_rec.COL138
1994 ,COL139 = l_listentry_rec.COL139
1995 ,COL140 = l_listentry_rec.COL140
1996 ,COL141 = l_listentry_rec.COL141
1997 ,COL142 = l_listentry_rec.COL142
1998 ,COL143 = l_listentry_rec.COL143
1999 ,COL144 = l_listentry_rec.COL144
2000 ,COL145 = l_listentry_rec.COL145
2001 ,COL146 = l_listentry_rec.COL146
2002 ,COL147 = l_listentry_rec.COL147
2003 ,COL148 = l_listentry_rec.COL148
2004 ,COL149 = l_listentry_rec.COL149
2005 ,COL150 = l_listentry_rec.COL150
2006 ,COL151 = l_listentry_rec.COL151
2007 ,COL152 = l_listentry_rec.COL152
2008 ,COL153 = l_listentry_rec.COL153
2012 ,COL157 = l_listentry_rec.COL157
2009 ,COL154 = l_listentry_rec.COL154
2010 ,COL155 = l_listentry_rec.COL155
2011 ,COL156 = l_listentry_rec.COL156
2013 ,COL158 = l_listentry_rec.COL158
2014 ,COL159 = l_listentry_rec.COL159
2015 ,COL160 = l_listentry_rec.COL160
2016 ,COL161 = l_listentry_rec.COL161
2017 ,COL162 = l_listentry_rec.COL162
2018 ,COL163 = l_listentry_rec.COL163
2019 ,COL164 = l_listentry_rec.COL164
2020 ,COL165 = l_listentry_rec.COL165
2021 ,COL166 = l_listentry_rec.COL166
2022 ,COL167 = l_listentry_rec.COL167
2023 ,COL168 = l_listentry_rec.COL168
2024 ,COL169 = l_listentry_rec.COL169
2025 ,COL170 = l_listentry_rec.COL170
2026 ,COL171 = l_listentry_rec.COL171
2027 ,COL172 = l_listentry_rec.COL172
2028 ,COL173 = l_listentry_rec.COL173
2029 ,COL174 = l_listentry_rec.COL174
2030 ,COL175 = l_listentry_rec.COL175
2031 ,COL176 = l_listentry_rec.COL176
2032 ,COL177 = l_listentry_rec.COL177
2033 ,COL178 = l_listentry_rec.COL178
2034 ,COL179 = l_listentry_rec.COL179
2035 ,COL180 = l_listentry_rec.COL180
2036 ,COL181 = l_listentry_rec.COL181
2037 ,COL182 = l_listentry_rec.COL182
2038 ,COL183 = l_listentry_rec.COL183
2039 ,COL184 = l_listentry_rec.COL184
2040 ,COL185 = l_listentry_rec.COL185
2041 ,COL186 = l_listentry_rec.COL186
2042 ,COL187 = l_listentry_rec.COL187
2043 ,COL188 = l_listentry_rec.COL188
2044 ,COL189 = l_listentry_rec.COL189
2045 ,COL190 = l_listentry_rec.COL190
2046 ,COL200 = l_listentry_rec.COL200
2047 ,COL201 = l_listentry_rec.COL201
2048 ,COL202 = l_listentry_rec.COL202
2049 ,COL203 = l_listentry_rec.COL203
2050 ,COL204 = l_listentry_rec.COL204
2051 ,COL205 = l_listentry_rec.COL205
2052 ,COL206 = l_listentry_rec.COL206
2053 ,COL207 = l_listentry_rec.COL207
2054 ,COL208 = l_listentry_rec.COL208
2055 ,COL209 = l_listentry_rec.COL209
2056 ,COL210 = l_listentry_rec.COL210
2057 ,COL211 = l_listentry_rec.COL211
2058 ,COL212 = l_listentry_rec.COL212
2059 ,COL213 = l_listentry_rec.COL213
2060 ,COL214 = l_listentry_rec.COL214
2061 ,COL215 = l_listentry_rec.COL215
2062 ,COL216 = l_listentry_rec.COL216
2063 ,COL217 = l_listentry_rec.COL217
2064 ,COL218 = l_listentry_rec.COL218
2065 ,COL219 = l_listentry_rec.COL219
2066 ,COL220 = l_listentry_rec.COL220
2067 ,COL221 = l_listentry_rec.COL221
2068 ,COL222 = l_listentry_rec.COL222
2069 ,COL223 = l_listentry_rec.COL223
2070 ,COL224 = l_listentry_rec.COL224
2071 ,COL225 = l_listentry_rec.COL225
2072 ,COL226 = l_listentry_rec.COL226
2073 ,COL227 = l_listentry_rec.COL227
2074 ,COL228 = l_listentry_rec.COL228
2075 ,COL229 = l_listentry_rec.COL229
2076 ,COL230 = l_listentry_rec.COL230
2077 ,COL231 = l_listentry_rec.COL231
2078 ,COL232 = l_listentry_rec.COL232
2079 ,COL233 = l_listentry_rec.COL233
2080 ,COL234 = l_listentry_rec.COL234
2081 ,COL235 = l_listentry_rec.COL235
2082 ,COL236 = l_listentry_rec.COL236
2083 ,COL237 = l_listentry_rec.COL237
2084 ,COL238 = l_listentry_rec.COL238
2085 ,COL239 = l_listentry_rec.COL239
2086 ,COL240 = l_listentry_rec.COL240
2087 ,COL241 = l_listentry_rec.COL241
2088 ,COL242 = l_listentry_rec.COL242
2089 ,COL243 = l_listentry_rec.COL243
2090 ,COL244 = l_listentry_rec.COL244
2091 ,COL245 = l_listentry_rec.COL245
2092 ,COL246 = l_listentry_rec.COL246
2093 ,COL247 = l_listentry_rec.COL247
2094 ,COL248 = l_listentry_rec.COL248
2098 ,COL252 = l_listentry_rec.COL252
2095 ,COL249 = l_listentry_rec.COL249
2096 ,COL250 = l_listentry_rec.COL250
2097 ,COL251 = l_listentry_rec.COL251
2099 ,COL253 = l_listentry_rec.COL253
2100 ,COL254 = l_listentry_rec.COL254
2101 ,COL255 = l_listentry_rec.COL255
2102 ,COL256 = l_listentry_rec.COL256
2103 ,COL257 = l_listentry_rec.COL257
2104 ,COL258 = l_listentry_rec.COL258
2105 ,COL259 = l_listentry_rec.COL259
2106 ,COL260 = l_listentry_rec.COL260
2107 ,COL261 = l_listentry_rec.COL261
2108 ,COL262 = l_listentry_rec.COL262
2109 ,COL263 = l_listentry_rec.COL263
2110 ,COL264 = l_listentry_rec.COL264
2111 ,COL265 = l_listentry_rec.COL265
2112 ,COL266 = l_listentry_rec.COL266
2113 ,COL267 = l_listentry_rec.COL267
2114 ,COL268 = l_listentry_rec.COL268
2115 ,COL269 = l_listentry_rec.COL269
2116 ,COL270 = l_listentry_rec.COL270
2117 ,COL271 = l_listentry_rec.COL271
2118 ,COL272 = l_listentry_rec.COL272
2119 ,COL273 = l_listentry_rec.COL273
2120 ,COL274 = l_listentry_rec.COL274
2121 ,COL275 = l_listentry_rec.COL275
2122 ,COL276 = l_listentry_rec.COL276
2123 ,COL277 = l_listentry_rec.COL277
2124 ,COL278 = l_listentry_rec.COL278
2125 ,COL279 = l_listentry_rec.COL279
2126 ,COL280 = l_listentry_rec.COL280
2127 ,COL281 = l_listentry_rec.COL281
2128 ,COL282 = l_listentry_rec.COL282
2129 ,COL283 = l_listentry_rec.COL283
2130 ,COL284 = l_listentry_rec.COL284
2131 ,COL285 = l_listentry_rec.COL285
2132 ,COL286 = l_listentry_rec.COL286
2133 ,COL287 = l_listentry_rec.COL287
2134 ,COL288 = l_listentry_rec.COL288
2135 ,COL289 = l_listentry_rec.COL289
2136 ,COL290 = l_listentry_rec.COL290
2137 ,COL291 = l_listentry_rec.COL291
2138 ,COL292 = l_listentry_rec.COL292
2139 ,COL293 = l_listentry_rec.COL293
2140 ,COL294 = l_listentry_rec.COL294
2141 ,COL295 = l_listentry_rec.COL295
2142 ,COL296 = l_listentry_rec.COL296
2143 ,COL297 = l_listentry_rec.COL297
2144 ,COL298 = l_listentry_rec.COL298
2145 ,COL299 = l_listentry_rec.COL299
2146 ,COL300 = l_listentry_rec.COL300
2147 ,ADDRESS_LINE1 = l_listentry_rec.ADDRESS_LINE1
2148 ,ADDRESS_LINE2 = l_listentry_rec.ADDRESS_LINE2
2149 ,CALLBACK_FLAG = l_listentry_rec.CALLBACK_FLAG
2150 ,CITY = l_listentry_rec.CITY
2151 ,COUNTRY = l_listentry_rec.COUNTRY
2152 ,DO_NOT_USE_FLAG = l_listentry_rec.DO_NOT_USE_FLAG
2153 ,DO_NOT_USE_REASON = l_listentry_rec.DO_NOT_USE_REASON
2154 ,EMAIL_ADDRESS = l_listentry_rec.EMAIL_ADDRESS
2155 ,FAX = l_listentry_rec.FAX
2156 ,PHONE = l_listentry_rec.PHONE
2157 ,RECORD_OUT_FLAG = l_listentry_rec.RECORD_OUT_FLAG
2158 ,STATE = l_listentry_rec.STATE
2159 ,SUFFIX = l_listentry_rec.SUFFIX
2160 ,TITLE = l_listentry_rec.TITLE
2161 ,USAGE_RESTRICTION = l_listentry_rec.USAGE_RESTRICTION
2162 ,ZIPCODE = l_listentry_rec.ZIPCODE
2163 ,CURR_CP_COUNTRY_CODE = l_listentry_rec.CURR_CP_COUNTRY_CODE
2164 ,CURR_CP_PHONE_NUMBER = l_listentry_rec.CURR_CP_PHONE_NUMBER
2165 ,CURR_CP_RAW_PHONE_NUMBER = l_listentry_rec.CURR_CP_RAW_PHONE_NUMBER
2166 ,CURR_CP_AREA_CODE = l_listentry_rec.CURR_CP_AREA_CODE
2167 ,CURR_CP_ID = l_listentry_rec.CURR_CP_ID
2168 ,CURR_CP_INDEX = l_listentry_rec.CURR_CP_INDEX
2169 ,CURR_CP_TIME_ZONE = l_listentry_rec.CURR_CP_TIME_ZONE
2170 ,CURR_CP_TIME_ZONE_AUX = l_listentry_rec.CURR_CP_TIME_ZONE_AUX
2171 ,IMP_SOURCE_LINE_ID = l_listentry_rec.IMP_SOURCE_LINE_ID
2172 ,NEXT_CALL_TIME = l_listentry_rec.NEXT_CALL_TIME
2173 ,RECORD_RELEASE_TIME = l_listentry_rec.RECORD_RELEASE_TIME
2174 ,PARTY_ID = l_listentry_rec.PARTY_ID
2175 ,PARENT_PARTY_ID = l_listentry_rec.PARENT_PARTY_ID
2176 WHERE list_entry_id = l_listentry_rec.list_entry_id
2177 AND object_version_number = l_listentry_rec.object_version_number;
2178
2179
2180 if (SQL%NOTFOUND) then
2181 -- Error, check the msg level and added an error message to the
2182 -- API message list
2183 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2184 THEN -- MMSG
2185 FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2186 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_List_Entry API', TRUE);
2187 FND_MSG_PUB.Add;
2188 END IF;
2189 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190 end if;
2191
2192 -- Standard check of p_commit.
2193 IF FND_API.To_Boolean ( p_commit )
2194 THEN
2195 COMMIT WORK;
2196 END IF;
2197
2198
2199 -- Success Message
2200 -- MMSG
2201 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2202 THEN
2203 FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2204 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry', TRUE);
2205 FND_MSG_PUB.Add;
2206 END IF;
2207
2208
2209 IF (AMS_DEBUG_HIGH_ON) THEN
2213 END IF;
2210 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2211 FND_MESSAGE.Set_Token('ROW','AMS_List_Entry_PVT.Update_ListEntry: END', TRUE);
2212 FND_MSG_PUB.Add;
2214
2215
2216 -- Standard call to get message count AND IF count is 1, get message info.
2217 FND_MSG_PUB.Count_AND_Get
2218 ( p_count => x_msg_count,
2219 p_data => x_msg_data,
2220 p_encoded => FND_API.G_FALSE
2221 );
2222
2223
2224
2225 EXCEPTION
2226
2227 WHEN FND_API.G_EXC_ERROR THEN
2228
2229 ROLLBACK TO Update_ListEntry_PVT;
2230 x_return_status := FND_API.G_RET_STS_ERROR ;
2231
2232 FND_MSG_PUB.Count_AND_Get
2233 ( p_count => x_msg_count,
2234 p_data => x_msg_data,
2235 p_encoded => FND_API.G_FALSE
2236 );
2237
2238
2239 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2240
2241 ROLLBACK TO Update_ListEntry_PVT;
2242 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2243
2244 FND_MSG_PUB.Count_AND_Get
2245 ( p_count => x_msg_count,
2246 p_data => x_msg_data,
2247 p_encoded => FND_API.G_FALSE
2248 );
2249
2250
2251 WHEN OTHERS THEN
2252
2253 ROLLBACK TO Update_ListEntry_PVT;
2254 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2255
2256 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2257 THEN
2258 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2259 END IF;
2260
2261 FND_MSG_PUB.Count_AND_Get
2262 ( p_count => x_msg_count,
2263 p_data => x_msg_data,
2264 p_encoded => FND_API.G_FALSE
2265 );
2266
2267 END Update_ListEntry;
2268
2269
2270 --------------------------------------------------------------------
2271 -- PROCEDURE
2272 -- delete_listentry
2273 --
2274 -- PURPOSE
2275 -- Delete a listentry.
2276 --
2277 -- PARAMETERS
2278 -- p_entry_id: the listentry_id
2279 -- p_object_version: the object_version_number
2280 --
2281 -- NOTES
2282 -- 1. Raise exception if the object_version_number doesn't match.
2283 --------------------------------------------------------------------
2284 PROCEDURE delete_listentry(
2285 p_api_version IN NUMBER,
2286 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2287 p_commit IN VARCHAR2 := FND_API.g_false,
2288 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2289
2290 x_return_status OUT NOCOPY VARCHAR2,
2291 x_msg_count OUT NOCOPY NUMBER,
2292 x_msg_data OUT NOCOPY VARCHAR2,
2293
2294 p_entry_id IN NUMBER,
2295 p_object_version_number IN NUMBER
2296 ) IS
2297
2298 l_api_name CONSTANT VARCHAR2(30) := 'Delete_ListEntry';
2299 l_api_version CONSTANT NUMBER := 1.0;
2300
2301 -- Status Local Variables
2302 l_return_status VARCHAR2(1); -- Return value from procedures
2303 l_return_val VARCHAR2(1);
2304
2305 BEGIN
2306
2307 -- Standard Start of API savepoint
2308 SAVEPOINT Delete_ListEntry_PVT;
2309
2310 -- Standard call to check for call compatibility.
2311 IF NOT FND_API.Compatible_API_Call ( l_api_version,
2312 p_api_version,
2313 l_api_name,
2314 G_PKG_NAME)
2315 THEN
2316 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317 END IF;
2318
2319
2320
2321 -- Initialize message list IF p_init_msg_list is set to TRUE.
2322 IF FND_API.to_Boolean( p_init_msg_list ) THEN
2323 FND_MSG_PUB.initialize;
2324 END IF;
2325
2326 -- Debug Message
2327 IF (AMS_DEBUG_HIGH_ON) THEN
2328 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2329 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_ListEntry: Start', TRUE);
2330 FND_MSG_PUB.Add;
2331 END IF;
2332
2333 -- Initialize API return status to success
2334 x_return_status := FND_API.G_RET_STS_SUCCESS;
2335
2336
2337
2338 --
2339 -- API body
2340 --
2341
2342 -- Perform the database operation
2343
2344
2345 IF (AMS_DEBUG_LOW_ON) THEN
2346 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2347 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT - DELETE FROM ams_list_entries', TRUE);
2348 FND_MSG_PUB.Add;
2349 END IF;
2350
2351
2355 WHERE list_entry_id = p_entry_id
2352 -- Delete header data
2353 DELETE
2354 FROM ams_list_entries
2356 AND object_version_number = p_object_version_number;
2357
2358 if (SQL%NOTFOUND) then
2359 -- Error, check the msg level and added an error message to the
2360 -- API message list
2361 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2362 THEN -- MMSG
2363 FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2364 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_ListEntry API', TRUE);
2365 FND_MSG_PUB.Add;
2366 END IF;
2367 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2368 end if;
2369
2370 --
2371 -- END of API body.
2372 --
2373
2374 -- Standard check of p_commit.
2375 IF FND_API.To_Boolean ( p_commit )
2376 THEN
2377 COMMIT WORK;
2378 END IF;
2379
2380 -- Success Message
2381 -- MMSG
2382 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2383 THEN
2384 FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2385 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_List_Entry', TRUE);
2386 FND_MSG_PUB.Add;
2387 END IF;
2388
2389
2390 IF (AMS_DEBUG_HIGH_ON) THEN
2391 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2392 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Delete_List_Entry: END', TRUE);
2393 FND_MSG_PUB.Add;
2394 END IF;
2395
2396
2397 -- Standard call to get message count AND IF count is 1, get message info.
2398 FND_MSG_PUB.Count_AND_Get
2399 ( p_count => x_msg_count,
2400 p_data => x_msg_data,
2401 p_encoded => FND_API.G_FALSE
2402 );
2403
2404
2405
2406 EXCEPTION
2407
2408 WHEN FND_API.G_EXC_ERROR THEN
2409
2410 ROLLBACK TO Delete_ListEntry_PVT;
2411 x_return_status := FND_API.G_RET_STS_ERROR ;
2412
2413 FND_MSG_PUB.Count_AND_Get
2414 ( p_count => x_msg_count,
2415 p_data => x_msg_data,
2416 p_encoded => FND_API.G_FALSE
2417 );
2418
2419 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2420
2421 ROLLBACK TO Delete_ListEntry_PVT;
2422 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2423
2424 FND_MSG_PUB.Count_AND_Get
2425 ( p_count => x_msg_count,
2426 p_data => x_msg_data,
2427 p_encoded => FND_API.G_FALSE
2428 );
2429
2430
2431 WHEN OTHERS THEN
2432
2433 ROLLBACK TO Delete_ListEntry_PVT;
2434 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2435
2436 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2437 THEN
2438 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2439 END IF;
2440
2441 FND_MSG_PUB.Count_AND_Get
2442 ( p_count => x_msg_count,
2443 p_data => x_msg_data,
2444 p_encoded => FND_API.G_FALSE
2445 );
2446
2447
2448 END Delete_ListEntry;
2449
2450
2451
2452 -------------------------------------------------------------------
2453 -- PROCEDURE
2454 -- lock_listentry
2455 --
2456 -- PURPOSE
2457 -- Lock a List Entry.
2458 --
2459 -- PARAMETERS
2460 -- p_entry_id: the list_entry_id
2461 -- p_object_version: the object_version_number
2462 --
2463 -- NOTES
2464 -- 1. Raise exception if the object_version_number doesn't match.
2465 --------------------------------------------------------------------
2466 PROCEDURE lock_listentry(
2467 p_api_version IN NUMBER,
2468 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
2469 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
2470
2471 x_return_status OUT NOCOPY VARCHAR2,
2472 x_msg_count OUT NOCOPY NUMBER,
2473 x_msg_data OUT NOCOPY VARCHAR2,
2474
2475 p_entry_id IN NUMBER,
2476 p_object_version IN NUMBER
2477 ) IS
2478
2479 l_api_name CONSTANT VARCHAR2(30) := 'Lock_ListEntry';
2480 l_api_version CONSTANT NUMBER := 1.0;
2481 l_entry_id NUMBER;
2482
2483 CURSOR c_entry IS
2484 SELECT list_entry_id
2485 FROM ams_list_entries
2486 WHERE list_entry_id = p_entry_id
2487 AND object_version_number = p_object_version
2488 FOR UPDATE OF list_entry_id NOWAIT;
2489
2490 BEGIN
2491
2492
2493 -- Standard call to check for call compatibility.
2494 IF NOT FND_API.Compatible_API_Call ( l_api_version,
2495 p_api_version,
2496 l_api_name,
2497 G_PKG_NAME)
2501
2498 THEN
2499 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500 END IF;
2502 -- Initialize message list if p_init_msg_list is set to TRUE.
2503 IF FND_API.to_Boolean( p_init_msg_list ) THEN
2504 FND_MSG_PUB.initialize;
2505 END IF;
2506
2507 -- Debug Message
2508 IF (AMS_DEBUG_HIGH_ON) THEN
2509 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2510 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry: Start', TRUE);
2511 FND_MSG_PUB.Add;
2512 END IF;
2513
2514 -- Initialize API return status to success
2515 x_return_status := FND_API.G_RET_STS_SUCCESS;
2516
2517 ------------------------ lock -------------------------
2518 OPEN c_entry;
2519 FETCH c_entry INTO l_entry_id;
2520 IF (c_entry%NOTFOUND) THEN
2521 CLOSE c_entry;
2522 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2523 FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2524 FND_MSG_PUB.add;
2525 END IF;
2526 RAISE FND_API.g_exc_error;
2527 END IF;
2528 CLOSE c_entry;
2529
2530
2531 -- Success Message
2532 -- MMSG
2533 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
2534 THEN
2535 FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2536 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry', TRUE);
2537 FND_MSG_PUB.Add;
2538 END IF;
2539
2540
2541 IF (AMS_DEBUG_HIGH_ON) THEN
2542 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2543 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Lock_ListEntry: END', TRUE);
2544 FND_MSG_PUB.Add;
2545 END IF;
2546
2547 -- Standard call to get message count AND IF count is 1, get message info.
2548 FND_MSG_PUB.Count_AND_Get
2549 ( p_count => x_msg_count,
2550 p_data => x_msg_data,
2551 p_encoded => FND_API.G_FALSE
2552 );
2553
2554
2555
2556 EXCEPTION
2557
2558 WHEN FND_API.G_EXC_ERROR THEN
2559
2560 x_return_status := FND_API.G_RET_STS_ERROR ;
2561
2562 FND_MSG_PUB.Count_AND_Get
2563 ( p_count => x_msg_count,
2564 p_data => x_msg_data,
2565 p_encoded => FND_API.G_FALSE
2566 );
2567
2568
2569 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2570
2571 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2572
2573 FND_MSG_PUB.Count_AND_Get
2574 ( p_count => x_msg_count,
2575 p_data => x_msg_data,
2576 p_encoded => FND_API.G_FALSE
2577 );
2578
2579 WHEN AMS_Utility_PVT.RESOURCE_LOCKED THEN
2580
2581 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2582
2583 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
2584 THEN -- MMSG
2585 FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
2586 FND_MSG_PUB.Add;
2587 END IF;
2588
2589 FND_MSG_PUB.Count_AND_Get
2590 ( p_count => x_msg_count,
2591 p_data => x_msg_data,
2592 p_encoded => FND_API.G_FALSE
2593 );
2594
2595 WHEN OTHERS THEN
2596
2597 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2598
2599 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2600 THEN
2601 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2602 END IF;
2603
2604 FND_MSG_PUB.Count_AND_Get
2605 ( p_count => x_msg_count,
2606 p_data => x_msg_data,
2607 p_encoded => FND_API.G_FALSE
2608 );
2609
2610 END Lock_ListEntry;
2611
2612 ---------------------------------------------------------------------
2613 -- PROCEDURE
2614 -- check_entry_items
2615 --
2616 -- HISTORY
2617 -- 10/16/99 tdonohoe Created.
2618 ---------------------------------------------------------------------
2619 PROCEDURE check_entry_items(
2620 p_entry_rec IN entry_rec_type,
2621 p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
2622 x_return_status OUT NOCOPY VARCHAR2
2623 )
2624 IS
2625 BEGIN
2626
2627 check_entry_req_items(
2628 p_entry_rec => p_entry_rec,
2629 x_return_status => x_return_status
2630 );
2631
2632 IF x_return_status <> FND_API.g_ret_sts_success THEN
2633 RETURN;
2634 END IF;
2635
2636 check_entry_uk_items(
2637 p_entry_rec => p_entry_rec,
2638 p_validation_mode => p_validation_mode,
2639 x_return_status => x_return_status
2640 );
2641
2642 IF x_return_status <> FND_API.g_ret_sts_success THEN
2643 RETURN;
2644 END IF;
2645
2649 );
2646 check_entry_fk_items(
2647 p_entry_rec => p_entry_rec,
2648 x_return_status => x_return_status
2650
2651 IF x_return_status <> FND_API.g_ret_sts_success THEN
2652 RETURN;
2653 END IF;
2654
2655 check_entry_lookup_items(
2656 p_entry_rec => p_entry_rec,
2657 x_return_status => x_return_status
2658 );
2659
2660 IF x_return_status <> FND_API.g_ret_sts_success THEN
2661 RETURN;
2662 END IF;
2663
2664 check_entry_flag_items(
2665 p_entry_rec => p_entry_rec,
2666 x_return_status => x_return_status
2667 );
2668
2669 IF x_return_status <> FND_API.g_ret_sts_success THEN
2670 RETURN;
2671 END IF;
2672
2673 END check_entry_items;
2674
2675
2676
2677 ---------------------------------------------------------------------
2678 -- PROCEDURE
2679 -- check_entry_record
2680 --
2681 -- HISTORY
2682 -- 10/17/99 tdonohoe Created.
2683 ---------------------------------------------------------------------
2684 PROCEDURE check_entry_record(
2685 p_entry_rec IN entry_rec_type,
2686 p_complete_rec IN entry_rec_type,
2687 x_return_status OUT NOCOPY VARCHAR2
2688 )
2689 IS
2690
2691
2692
2693 BEGIN
2694 x_return_status := FND_API.g_ret_sts_success;
2695
2696 END check_entry_record;
2697
2698 ---------------------------------------------------------------------
2699 -- PROCEDURE
2700 -- init_entry_rec
2701 --
2702 -- PURPOSE
2703 -- Initialize all attributes to be FND_API.g_miss_char/num/date.
2704 ---------------------------------------------------------------------
2705 PROCEDURE init_entry_rec(
2706 x_entry_rec OUT NOCOPY entry_rec_type
2707 ) IS
2708
2709 Begin
2710
2711 x_entry_rec.LIST_ENTRY_ID := FND_API.g_miss_num;
2712 x_entry_rec.LIST_HEADER_ID := FND_API.g_miss_num;
2713
2714 x_entry_rec.LAST_UPDATE_DATE := FND_API.g_miss_date;
2715 x_entry_rec.LAST_UPDATED_BY := FND_API.g_miss_num;
2716
2717 x_entry_rec.CREATION_DATE := FND_API.g_miss_date;
2718 x_entry_rec.CREATED_BY := FND_API.g_miss_num;
2719
2720 x_entry_rec.LAST_UPDATE_LOGIN := FND_API.g_miss_num;
2721 x_entry_rec.OBJECT_VERSION_NUMBER := FND_API.g_miss_num;
2722 x_entry_rec.LIST_SELECT_ACTION_ID := FND_API.g_miss_num;
2723
2724 x_entry_rec.ARC_LIST_SELECT_ACTION_FROM := FND_API.g_miss_char;
2725 x_entry_rec.LIST_SELECT_ACTION_FROM_NAME := FND_API.g_miss_char;
2726 x_entry_rec.SOURCE_CODE := FND_API.g_miss_char;
2727 x_entry_rec.SOURCE_CODE_FOR_ID := FND_API.g_miss_num;
2728 x_entry_rec.ARC_LIST_USED_BY_SOURCE := FND_API.g_miss_char;
2729 x_entry_rec.PIN_CODE := FND_API.g_miss_char;
2730
2731 x_entry_rec.LIST_ENTRY_SOURCE_SYSTEM_ID := FND_API.g_miss_num;
2732 x_entry_rec.LIST_ENTRY_SOURCE_SYSTEM_TYPE := FND_API.g_miss_char;
2733
2734 x_entry_rec.VIEW_APPLICATION_ID := FND_API.g_miss_num;
2735
2736 x_entry_rec.MANUALLY_ENTERED_FLAG := FND_API.g_miss_char;
2737 x_entry_rec.MARKED_AS_DUPLICATE_FLAG := FND_API.g_miss_char;
2738 x_entry_rec.MARKED_AS_RANDOM_FLAG := FND_API.g_miss_char;
2739 x_entry_rec.PART_OF_CONTROL_GROUP_FLAG := FND_API.g_miss_char;
2740 x_entry_rec.EXCLUDE_IN_TRIGGERED_LIST_FLAG := FND_API.g_miss_char;
2741 x_entry_rec.ENABLED_FLAG := FND_API.g_miss_char;
2742 x_entry_rec.CELL_CODE := FND_API.g_miss_char;
2743 x_entry_rec.DEDUPE_KEY := FND_API.g_miss_char;
2744
2745 x_entry_rec.RANDOMLY_GENERATED_NUMBER := FND_API.g_miss_num;
2746 x_entry_rec.CAMPAIGN_ID := FND_API.g_miss_num;
2747 x_entry_rec.MEDIA_ID := FND_API.g_miss_num;
2748 x_entry_rec.CHANNEL_ID := FND_API.g_miss_num;
2749 x_entry_rec.CHANNEL_SCHEDULE_ID := FND_API.g_miss_num;
2750 x_entry_rec.EVENT_OFFER_ID := FND_API.g_miss_num;
2751 x_entry_rec.CUSTOMER_ID := FND_API.g_miss_num;
2752 x_entry_rec.MARKET_SEGMENT_ID := FND_API.g_miss_num;
2753 x_entry_rec.VENDOR_ID := FND_API.g_miss_num;
2754
2755 x_entry_rec.TRANSFER_FLAG := FND_API.g_miss_char;
2756 x_entry_rec.TRANSFER_STATUS := FND_API.g_miss_char;
2757
2758 x_entry_rec.LIST_SOURCE := FND_API.g_miss_char;
2759
2760 x_entry_rec.DUPLICATE_MASTER_ENTRY_ID := FND_API.g_miss_num;
2761
2762 x_entry_rec.MARKED_FLAG := FND_API.g_miss_char;
2763
2764 x_entry_rec.LEAD_ID := FND_API.g_miss_num;
2765 x_entry_rec.LETTER_ID := FND_API.g_miss_num;
2766 x_entry_rec.PICKING_HEADER_ID := FND_API.g_miss_num;
2767 x_entry_rec.BATCH_ID := FND_API.g_miss_num;
2768
2769 x_entry_rec.COL1 := FND_API.g_miss_char;
2770 x_entry_rec.COL2 := FND_API.g_miss_char;
2771 x_entry_rec.COL3 := FND_API.g_miss_char;
2772 x_entry_rec.COL4 := FND_API.g_miss_char;
2776 x_entry_rec.COL8 := FND_API.g_miss_char;
2773 x_entry_rec.COL5 := FND_API.g_miss_char;
2774 x_entry_rec.COL6 := FND_API.g_miss_char;
2775 x_entry_rec.COL7 := FND_API.g_miss_char;
2777 x_entry_rec.COL9 := FND_API.g_miss_char;
2778 x_entry_rec.COL10 := FND_API.g_miss_char;
2779 x_entry_rec.COL11 := FND_API.g_miss_char;
2780 x_entry_rec.COL12 := FND_API.g_miss_char;
2781 x_entry_rec.COL13 := FND_API.g_miss_char;
2782 x_entry_rec.COL14 := FND_API.g_miss_char;
2783 x_entry_rec.COL15 := FND_API.g_miss_char;
2784 x_entry_rec.COL16 := FND_API.g_miss_char;
2785 x_entry_rec.COL17 := FND_API.g_miss_char;
2786 x_entry_rec.COL18 := FND_API.g_miss_char;
2787 x_entry_rec.COL19 := FND_API.g_miss_char;
2788 x_entry_rec.COL20 := FND_API.g_miss_char;
2789 x_entry_rec.COL21 := FND_API.g_miss_char;
2790 x_entry_rec.COL22 := FND_API.g_miss_char;
2791 x_entry_rec.COL23 := FND_API.g_miss_char;
2792 x_entry_rec.COL24 := FND_API.g_miss_char;
2793 x_entry_rec.COL25 := FND_API.g_miss_char;
2794 x_entry_rec.COL26 := FND_API.g_miss_char;
2795 x_entry_rec.COL27 := FND_API.g_miss_char;
2796 x_entry_rec.COL28 := FND_API.g_miss_char;
2797 x_entry_rec.COL29 := FND_API.g_miss_char;
2798 x_entry_rec.COL30 := FND_API.g_miss_char;
2799 x_entry_rec.COL31 := FND_API.g_miss_char;
2800 x_entry_rec.COL32 := FND_API.g_miss_char;
2801 x_entry_rec.COL33 := FND_API.g_miss_char;
2802 x_entry_rec.COL34 := FND_API.g_miss_char;
2803 x_entry_rec.COL35 := FND_API.g_miss_char;
2804 x_entry_rec.COL36 := FND_API.g_miss_char;
2805 x_entry_rec.COL37 := FND_API.g_miss_char;
2806 x_entry_rec.COL38 := FND_API.g_miss_char;
2807 x_entry_rec.COL39 := FND_API.g_miss_char;
2808 x_entry_rec.COL40 := FND_API.g_miss_char;
2809 x_entry_rec.COL41 := FND_API.g_miss_char;
2810 x_entry_rec.COL42 := FND_API.g_miss_char;
2811 x_entry_rec.COL43 := FND_API.g_miss_char;
2812 x_entry_rec.COL44 := FND_API.g_miss_char;
2813 x_entry_rec.COL45 := FND_API.g_miss_char;
2814 x_entry_rec.COL46 := FND_API.g_miss_char;
2815 x_entry_rec.COL47 := FND_API.g_miss_char;
2816 x_entry_rec.COL48 := FND_API.g_miss_char;
2817 x_entry_rec.COL49 := FND_API.g_miss_char;
2818 x_entry_rec.COL50 := FND_API.g_miss_char;
2819 x_entry_rec.COL51 := FND_API.g_miss_char;
2820 x_entry_rec.COL52 := FND_API.g_miss_char;
2821 x_entry_rec.COL53 := FND_API.g_miss_char;
2822 x_entry_rec.COL54 := FND_API.g_miss_char;
2823 x_entry_rec.COL55 := FND_API.g_miss_char;
2824 x_entry_rec.COL56 := FND_API.g_miss_char;
2825 x_entry_rec.COL57 := FND_API.g_miss_char;
2826 x_entry_rec.COL58 := FND_API.g_miss_char;
2827 x_entry_rec.COL59 := FND_API.g_miss_char;
2828 x_entry_rec.COL60 := FND_API.g_miss_char;
2829 x_entry_rec.COL61 := FND_API.g_miss_char;
2830 x_entry_rec.COL62 := FND_API.g_miss_char;
2831 x_entry_rec.COL63 := FND_API.g_miss_char;
2832 x_entry_rec.COL64 := FND_API.g_miss_char;
2833 x_entry_rec.COL65 := FND_API.g_miss_char;
2834 x_entry_rec.COL66 := FND_API.g_miss_char;
2835 x_entry_rec.COL67 := FND_API.g_miss_char;
2836 x_entry_rec.COL68 := FND_API.g_miss_char;
2837 x_entry_rec.COL69 := FND_API.g_miss_char;
2838 x_entry_rec.COL70 := FND_API.g_miss_char;
2839 x_entry_rec.COL71 := FND_API.g_miss_char;
2840 x_entry_rec.COL72 := FND_API.g_miss_char;
2841 x_entry_rec.COL73 := FND_API.g_miss_char;
2842 x_entry_rec.COL74 := FND_API.g_miss_char;
2843 x_entry_rec.COL75 := FND_API.g_miss_char;
2844 x_entry_rec.COL76 := FND_API.g_miss_char;
2845 x_entry_rec.COL77 := FND_API.g_miss_char;
2846 x_entry_rec.COL78 := FND_API.g_miss_char;
2847 x_entry_rec.COL79 := FND_API.g_miss_char;
2848 x_entry_rec.COL80 := FND_API.g_miss_char;
2849 x_entry_rec.COL81 := FND_API.g_miss_char;
2850 x_entry_rec.COL82 := FND_API.g_miss_char;
2851 x_entry_rec.COL83 := FND_API.g_miss_char;
2852 x_entry_rec.COL84 := FND_API.g_miss_char;
2856 x_entry_rec.COL88 := FND_API.g_miss_char;
2853 x_entry_rec.COL85 := FND_API.g_miss_char;
2854 x_entry_rec.COL86 := FND_API.g_miss_char;
2855 x_entry_rec.COL87 := FND_API.g_miss_char;
2857 x_entry_rec.COL89 := FND_API.g_miss_char;
2858 x_entry_rec.COL90 := FND_API.g_miss_char;
2859 x_entry_rec.COL91 := FND_API.g_miss_char;
2860 x_entry_rec.COL92 := FND_API.g_miss_char;
2861 x_entry_rec.COL93 := FND_API.g_miss_char;
2862 x_entry_rec.COL94 := FND_API.g_miss_char;
2863 x_entry_rec.COL95 := FND_API.g_miss_char;
2864 x_entry_rec.COL96 := FND_API.g_miss_char;
2865 x_entry_rec.COL97 := FND_API.g_miss_char;
2866 x_entry_rec.COL98 := FND_API.g_miss_char;
2867 x_entry_rec.COL99 := FND_API.g_miss_char;
2868 x_entry_rec.COL100 := FND_API.g_miss_char;
2869 x_entry_rec.COL101 := FND_API.g_miss_char;
2870 x_entry_rec.COL102 := FND_API.g_miss_char;
2871 x_entry_rec.COL103 := FND_API.g_miss_char;
2872 x_entry_rec.COL104 := FND_API.g_miss_char;
2873 x_entry_rec.COL105 := FND_API.g_miss_char;
2874 x_entry_rec.COL106 := FND_API.g_miss_char;
2875 x_entry_rec.COL107 := FND_API.g_miss_char;
2876 x_entry_rec.COL108 := FND_API.g_miss_char;
2877 x_entry_rec.COL109 := FND_API.g_miss_char;
2878 x_entry_rec.COL110 := FND_API.g_miss_char;
2879 x_entry_rec.COL111 := FND_API.g_miss_char;
2880 x_entry_rec.COL112 := FND_API.g_miss_char;
2881 x_entry_rec.COL113 := FND_API.g_miss_char;
2882 x_entry_rec.COL114 := FND_API.g_miss_char;
2883 x_entry_rec.COL115 := FND_API.g_miss_char;
2884 x_entry_rec.COL116 := FND_API.g_miss_char;
2885 x_entry_rec.COL117 := FND_API.g_miss_char;
2886 x_entry_rec.COL118 := FND_API.g_miss_char;
2887 x_entry_rec.COL119 := FND_API.g_miss_char;
2888 x_entry_rec.COL120 := FND_API.g_miss_char;
2889 x_entry_rec.COL121 := FND_API.g_miss_char;
2890 x_entry_rec.COL122 := FND_API.g_miss_char;
2891 x_entry_rec.COL123 := FND_API.g_miss_char;
2892 x_entry_rec.COL124 := FND_API.g_miss_char;
2893 x_entry_rec.COL125 := FND_API.g_miss_char;
2894 x_entry_rec.COL126 := FND_API.g_miss_char;
2895 x_entry_rec.COL127 := FND_API.g_miss_char;
2896 x_entry_rec.COL128 := FND_API.g_miss_char;
2897 x_entry_rec.COL129 := FND_API.g_miss_char;
2898 x_entry_rec.COL130 := FND_API.g_miss_char;
2899 x_entry_rec.COL131 := FND_API.g_miss_char;
2900 x_entry_rec.COL132 := FND_API.g_miss_char;
2901 x_entry_rec.COL133 := FND_API.g_miss_char;
2902 x_entry_rec.COL134 := FND_API.g_miss_char;
2903 x_entry_rec.COL135 := FND_API.g_miss_char;
2904 x_entry_rec.COL136 := FND_API.g_miss_char;
2905 x_entry_rec.COL137 := FND_API.g_miss_char;
2906 x_entry_rec.COL138 := FND_API.g_miss_char;
2907 x_entry_rec.COL139 := FND_API.g_miss_char;
2908 x_entry_rec.COL140 := FND_API.g_miss_char;
2909 x_entry_rec.COL141 := FND_API.g_miss_char;
2910 x_entry_rec.COL142 := FND_API.g_miss_char;
2911 x_entry_rec.COL143 := FND_API.g_miss_char;
2912 x_entry_rec.COL144 := FND_API.g_miss_char;
2913 x_entry_rec.COL145 := FND_API.g_miss_char;
2914 x_entry_rec.COL146 := FND_API.g_miss_char;
2915 x_entry_rec.COL147 := FND_API.g_miss_char;
2916 x_entry_rec.COL148 := FND_API.g_miss_char;
2917 x_entry_rec.COL149 := FND_API.g_miss_char;
2918 x_entry_rec.COL150 := FND_API.g_miss_char;
2919 x_entry_rec.COL151 := FND_API.g_miss_char;
2920 x_entry_rec.COL152 := FND_API.g_miss_char;
2921 x_entry_rec.COL153 := FND_API.g_miss_char;
2922 x_entry_rec.COL154 := FND_API.g_miss_char;
2923 x_entry_rec.COL155 := FND_API.g_miss_char;
2924 x_entry_rec.COL156 := FND_API.g_miss_char;
2925 x_entry_rec.COL157 := FND_API.g_miss_char;
2926 x_entry_rec.COL158 := FND_API.g_miss_char;
2927 x_entry_rec.COL159 := FND_API.g_miss_char;
2928 x_entry_rec.COL160 := FND_API.g_miss_char;
2929 x_entry_rec.COL161 := FND_API.g_miss_char;
2930 x_entry_rec.COL162 := FND_API.g_miss_char;
2931 x_entry_rec.COL163 := FND_API.g_miss_char;
2932 x_entry_rec.COL164 := FND_API.g_miss_char;
2933 x_entry_rec.COL165 := FND_API.g_miss_char;
2934 x_entry_rec.COL166 := FND_API.g_miss_char;
2938 x_entry_rec.COL170 := FND_API.g_miss_char;
2935 x_entry_rec.COL167 := FND_API.g_miss_char;
2936 x_entry_rec.COL168 := FND_API.g_miss_char;
2937 x_entry_rec.COL169 := FND_API.g_miss_char;
2939 x_entry_rec.COL171 := FND_API.g_miss_char;
2940 x_entry_rec.COL172 := FND_API.g_miss_char;
2941 x_entry_rec.COL173 := FND_API.g_miss_char;
2942 x_entry_rec.COL174 := FND_API.g_miss_char;
2943 x_entry_rec.COL175 := FND_API.g_miss_char;
2944 x_entry_rec.COL176 := FND_API.g_miss_char;
2945 x_entry_rec.COL177 := FND_API.g_miss_char;
2946 x_entry_rec.COL178 := FND_API.g_miss_char;
2947 x_entry_rec.COL179 := FND_API.g_miss_char;
2948 x_entry_rec.COL180 := FND_API.g_miss_char;
2949 x_entry_rec.COL181 := FND_API.g_miss_char;
2950 x_entry_rec.COL182 := FND_API.g_miss_char;
2951 x_entry_rec.COL183 := FND_API.g_miss_char;
2952 x_entry_rec.COL184 := FND_API.g_miss_char;
2953 x_entry_rec.COL185 := FND_API.g_miss_char;
2954 x_entry_rec.COL186 := FND_API.g_miss_char;
2955 x_entry_rec.COL187 := FND_API.g_miss_char;
2956 x_entry_rec.COL188 := FND_API.g_miss_char;
2957 x_entry_rec.COL189 := FND_API.g_miss_char;
2958 x_entry_rec.COL190 := FND_API.g_miss_char;
2959 x_entry_rec.COL191 := FND_API.g_miss_char;
2960 x_entry_rec.COL192 := FND_API.g_miss_char;
2961 x_entry_rec.COL193 := FND_API.g_miss_char;
2962 x_entry_rec.COL194 := FND_API.g_miss_char;
2963 x_entry_rec.COL195 := FND_API.g_miss_char;
2964 x_entry_rec.COL196 := FND_API.g_miss_char;
2965 x_entry_rec.COL197 := FND_API.g_miss_char;
2966 x_entry_rec.COL198 := FND_API.g_miss_char;
2967 x_entry_rec.COL199 := FND_API.g_miss_char;
2968 x_entry_rec.COL200 := FND_API.g_miss_char;
2969 x_entry_rec.COL201 := FND_API.g_miss_char;
2970 x_entry_rec.COL202 := FND_API.g_miss_char;
2971 x_entry_rec.COL203 := FND_API.g_miss_char;
2972 x_entry_rec.COL204 := FND_API.g_miss_char;
2973 x_entry_rec.COL205 := FND_API.g_miss_char;
2974 x_entry_rec.COL206 := FND_API.g_miss_char;
2975 x_entry_rec.COL207 := FND_API.g_miss_char;
2976 x_entry_rec.COL208 := FND_API.g_miss_char;
2977 x_entry_rec.COL209 := FND_API.g_miss_char;
2978 x_entry_rec.COL210 := FND_API.g_miss_char;
2979 x_entry_rec.COL211 := FND_API.g_miss_char;
2980 x_entry_rec.COL212 := FND_API.g_miss_char;
2981 x_entry_rec.COL213 := FND_API.g_miss_char;
2982 x_entry_rec.COL214 := FND_API.g_miss_char;
2983 x_entry_rec.COL215 := FND_API.g_miss_char;
2984 x_entry_rec.COL216 := FND_API.g_miss_char;
2985 x_entry_rec.COL217 := FND_API.g_miss_char;
2986 x_entry_rec.COL218 := FND_API.g_miss_char;
2987 x_entry_rec.COL219 := FND_API.g_miss_char;
2988 x_entry_rec.COL220 := FND_API.g_miss_char;
2989 x_entry_rec.COL221 := FND_API.g_miss_char;
2990 x_entry_rec.COL222 := FND_API.g_miss_char;
2991 x_entry_rec.COL223 := FND_API.g_miss_char;
2992 x_entry_rec.COL224 := FND_API.g_miss_char;
2993 x_entry_rec.COL225 := FND_API.g_miss_char;
2994 x_entry_rec.COL226 := FND_API.g_miss_char;
2995 x_entry_rec.COL227 := FND_API.g_miss_char;
2996 x_entry_rec.COL228 := FND_API.g_miss_char;
2997 x_entry_rec.COL229 := FND_API.g_miss_char;
2998 x_entry_rec.COL230 := FND_API.g_miss_char;
2999 x_entry_rec.COL231 := FND_API.g_miss_char;
3000 x_entry_rec.COL232 := FND_API.g_miss_char;
3001 x_entry_rec.COL233 := FND_API.g_miss_char;
3002 x_entry_rec.COL234 := FND_API.g_miss_char;
3003 x_entry_rec.COL235 := FND_API.g_miss_char;
3004 x_entry_rec.COL236 := FND_API.g_miss_char;
3005 x_entry_rec.COL237 := FND_API.g_miss_char;
3006 x_entry_rec.COL238 := FND_API.g_miss_char;
3007 x_entry_rec.COL239 := FND_API.g_miss_char;
3008 x_entry_rec.COL240 := FND_API.g_miss_char;
3009 x_entry_rec.COL241 := FND_API.g_miss_char;
3010 x_entry_rec.COL242 := FND_API.g_miss_char;
3011 x_entry_rec.COL243 := FND_API.g_miss_char;
3012 x_entry_rec.COL244 := FND_API.g_miss_char;
3013 x_entry_rec.COL245 := FND_API.g_miss_char;
3014 x_entry_rec.COL246 := FND_API.g_miss_char;
3015 x_entry_rec.COL247 := FND_API.g_miss_char;
3016 x_entry_rec.COL248 := FND_API.g_miss_char;
3020 x_entry_rec.COL251 := FND_API.g_miss_char;
3017 x_entry_rec.COL249 := FND_API.g_miss_char;
3018 x_entry_rec.COL250 := FND_API.g_miss_char;
3019 x_entry_rec.PARTY_ID := FND_API.g_miss_num;
3021 x_entry_rec.COL252 := FND_API.g_miss_char;
3022 x_entry_rec.COL253 := FND_API.g_miss_char;
3023 x_entry_rec.COL254 := FND_API.g_miss_char;
3024 x_entry_rec.COL255 := FND_API.g_miss_char;
3025 x_entry_rec.COL256 := FND_API.g_miss_char;
3026 x_entry_rec.COL257 := FND_API.g_miss_char;
3027 x_entry_rec.COL258 := FND_API.g_miss_char;
3028 x_entry_rec.COL259 := FND_API.g_miss_char;
3029 x_entry_rec.COL260 := FND_API.g_miss_char;
3030 x_entry_rec.COL261 := FND_API.g_miss_char;
3031 x_entry_rec.COL262 := FND_API.g_miss_char;
3032 x_entry_rec.COL263 := FND_API.g_miss_char;
3033 x_entry_rec.COL264 := FND_API.g_miss_char;
3034 x_entry_rec.COL265 := FND_API.g_miss_char;
3035 x_entry_rec.COL266 := FND_API.g_miss_char;
3036 x_entry_rec.COL267 := FND_API.g_miss_char;
3037 x_entry_rec.COL268 := FND_API.g_miss_char;
3038 x_entry_rec.COL269 := FND_API.g_miss_char;
3039 x_entry_rec.COL270 := FND_API.g_miss_char;
3040 x_entry_rec.COL271 := FND_API.g_miss_char;
3041 x_entry_rec.COL272 := FND_API.g_miss_char;
3042 x_entry_rec.COL273 := FND_API.g_miss_char;
3043 x_entry_rec.COL274 := FND_API.g_miss_char;
3044 x_entry_rec.COL275 := FND_API.g_miss_char;
3045 x_entry_rec.COL276 := FND_API.g_miss_char;
3046 x_entry_rec.COL277 := FND_API.g_miss_char;
3047 x_entry_rec.COL278 := FND_API.g_miss_char;
3048 x_entry_rec.COL279 := FND_API.g_miss_char;
3049 x_entry_rec.COL280 := FND_API.g_miss_char;
3050 x_entry_rec.COL281 := FND_API.g_miss_char;
3051 x_entry_rec.COL282 := FND_API.g_miss_char;
3052 x_entry_rec.COL283 := FND_API.g_miss_char;
3053 x_entry_rec.COL284 := FND_API.g_miss_char;
3054 x_entry_rec.COL285 := FND_API.g_miss_char;
3055 x_entry_rec.COL286 := FND_API.g_miss_char;
3056 x_entry_rec.COL287 := FND_API.g_miss_char;
3057 x_entry_rec.COL288 := FND_API.g_miss_char;
3058 x_entry_rec.COL289 := FND_API.g_miss_char;
3059 x_entry_rec.COL290 := FND_API.g_miss_char;
3060 x_entry_rec.COL291 := FND_API.g_miss_char;
3061 x_entry_rec.COL292 := FND_API.g_miss_char;
3062 x_entry_rec.COL293 := FND_API.g_miss_char;
3063 x_entry_rec.COL294 := FND_API.g_miss_char;
3064 x_entry_rec.COL295 := FND_API.g_miss_char;
3065 x_entry_rec.COL296 := FND_API.g_miss_char;
3066 x_entry_rec.COL297 := FND_API.g_miss_char;
3067 x_entry_rec.COL298 := FND_API.g_miss_char;
3068 x_entry_rec.COL299 := FND_API.g_miss_char;
3069 x_entry_rec.COL300 := FND_API.g_miss_char;
3070 x_entry_rec.ADDRESS_LINE1 := FND_API.g_miss_char;
3071 x_entry_rec.ADDRESS_LINE2 := FND_API.g_miss_char;
3072 x_entry_rec.CALLBACK_FLAG := FND_API.g_miss_char;
3073 x_entry_rec.CITY := FND_API.g_miss_char;
3074 x_entry_rec.COUNTRY := FND_API.g_miss_char;
3075 x_entry_rec.DO_NOT_USE_FLAG := FND_API.g_miss_char;
3076 x_entry_rec.DO_NOT_USE_REASON := FND_API.g_miss_char;
3077 x_entry_rec.EMAIL_ADDRESS := FND_API.g_miss_char;
3078 x_entry_rec.FAX := FND_API.g_miss_char;
3079 x_entry_rec.PHONE := FND_API.g_miss_char;
3080 x_entry_rec.RECORD_OUT_FLAG := FND_API.g_miss_char;
3081 x_entry_rec.STATE := FND_API.g_miss_char;
3082 x_entry_rec.SUFFIX := FND_API.g_miss_char;
3083 x_entry_rec.TITLE := FND_API.g_miss_char;
3084 x_entry_rec.USAGE_RESTRICTION := FND_API.g_miss_char;
3085 x_entry_rec.ZIPCODE := FND_API.g_miss_char;
3086 x_entry_rec.CURR_CP_COUNTRY_CODE := FND_API.g_miss_char;
3087 x_entry_rec.CURR_CP_PHONE_NUMBER := FND_API.g_miss_char;
3088 x_entry_rec.CURR_CP_RAW_PHONE_NUMBER := FND_API.g_miss_char;
3089 x_entry_rec.CURR_CP_AREA_CODE := FND_API.g_miss_num;
3090 x_entry_rec.CURR_CP_ID := FND_API.g_miss_num;
3091 x_entry_rec.CURR_CP_INDEX := FND_API.g_miss_num;
3092 x_entry_rec.CURR_CP_TIME_ZONE := FND_API.g_miss_num;
3093 x_entry_rec.CURR_CP_TIME_ZONE_AUX := FND_API.g_miss_num;
3094 x_entry_rec.IMP_SOURCE_LINE_ID := FND_API.g_miss_num;
3095 x_entry_rec.NEXT_CALL_TIME := FND_API.g_miss_date;
3096 x_entry_rec.RECORD_RELEASE_TIME := FND_API.g_miss_date;
3097 x_entry_rec.PARENT_PARTY_ID := FND_API.g_miss_num;
3098
3099 END init_entry_rec;
3100
3101 ---------------------------------------------------------------------
3105 -- HISTORY
3102 -- PROCEDURE
3103 -- complete_entry_rec
3104 --
3106 -- 10/16/99 tdonohoe Created.
3107 ---------------------------------------------------------------------
3108 PROCEDURE complete_entry_rec(
3109 p_entry_rec IN entry_rec_type,
3110 x_complete_rec OUT NOCOPY entry_rec_type
3111 )
3112 IS
3113
3114 CURSOR c_entry IS
3115 SELECT *
3116 FROM ams_list_entries
3117 WHERE list_entry_id = p_entry_rec.list_entry_id;
3118
3119 l_entry_rec c_entry%ROWTYPE;
3120
3121 BEGIN
3122
3123 x_complete_rec := p_entry_rec;
3124
3125 OPEN c_entry;
3126 FETCH c_entry INTO l_entry_rec;
3127 IF c_entry%NOTFOUND THEN
3128 CLOSE c_entry;
3129 IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3130 FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
3131 FND_MSG_PUB.add;
3132 END IF;
3133 RAISE FND_API.g_exc_error;
3134 END IF;
3135 CLOSE c_entry;
3136
3137
3138 IF p_entry_rec.ARC_LIST_SELECT_ACTION_FROM = FND_API.g_miss_char THEN
3139 x_complete_rec.ARC_LIST_SELECT_ACTION_FROM := l_entry_rec.ARC_LIST_SELECT_ACTION_FROM;
3140 END IF;
3141
3142 IF p_entry_rec.LIST_SELECT_ACTION_FROM_NAME = FND_API.g_miss_char THEN
3143 x_complete_rec.LIST_SELECT_ACTION_FROM_NAME := l_entry_rec.LIST_SELECT_ACTION_FROM_NAME;
3144 END IF;
3145
3146 IF p_entry_rec.SOURCE_CODE = FND_API.g_miss_char THEN
3147 x_complete_rec.SOURCE_CODE := l_entry_rec.SOURCE_CODE;
3148 END IF;
3149
3150 IF p_entry_rec.ARC_LIST_USED_BY_SOURCE = FND_API.g_miss_char THEN
3151 x_complete_rec.ARC_LIST_USED_BY_SOURCE := l_entry_rec.ARC_LIST_USED_BY_SOURCE;
3152 END IF;
3153
3154 --added 06-Jun-2000 tdonohoe
3155 IF p_entry_rec.SOURCE_CODE_FOR_ID = FND_API.g_miss_num THEN
3156 x_complete_rec.SOURCE_CODE_FOR_ID := l_entry_rec.SOURCE_CODE_FOR_ID;
3157 END IF;
3158 --end added 06-Jun-2000 tdonohoe
3159
3160 IF p_entry_rec.PIN_CODE = FND_API.g_miss_char THEN
3161 x_complete_rec.PIN_CODE := l_entry_rec.PIN_CODE;
3162 END IF;
3163
3164 IF p_entry_rec.LIST_ENTRY_SOURCE_SYSTEM_ID = FND_API.g_miss_num THEN
3165 x_complete_rec.LIST_ENTRY_SOURCE_SYSTEM_ID := l_entry_rec.LIST_ENTRY_SOURCE_SYSTEM_ID;
3166 END IF;
3167
3168 IF p_entry_rec.LIST_ENTRY_SOURCE_SYSTEM_TYPE = FND_API.g_miss_char THEN
3169 x_complete_rec.LIST_ENTRY_SOURCE_SYSTEM_TYPE := l_entry_rec.LIST_ENTRY_SOURCE_SYSTEM_TYPE;
3170 END IF;
3171 IF p_entry_rec.VIEW_APPLICATION_ID = FND_API.g_miss_num THEN
3172 x_complete_rec.VIEW_APPLICATION_ID := l_entry_rec.VIEW_APPLICATION_ID;
3173 END IF;
3174 IF p_entry_rec.MANUALLY_ENTERED_FLAG = FND_API.g_miss_char THEN
3175 x_complete_rec.MANUALLY_ENTERED_FLAG := l_entry_rec.MANUALLY_ENTERED_FLAG;
3176 END IF;
3177 IF p_entry_rec.MARKED_AS_DUPLICATE_FLAG = FND_API.g_miss_char THEN
3178 x_complete_rec.MARKED_AS_DUPLICATE_FLAG := l_entry_rec.MARKED_AS_DUPLICATE_FLAG;
3179 END IF;
3180
3181 IF p_entry_rec.MARKED_AS_RANDOM_FLAG = FND_API.g_miss_char THEN
3182 x_complete_rec.MARKED_AS_RANDOM_FLAG := l_entry_rec.MARKED_AS_RANDOM_FLAG;
3183 END IF;
3184
3185 IF p_entry_rec.PART_OF_CONTROL_GROUP_FLAG = FND_API.g_miss_char THEN
3186 x_complete_rec.PART_OF_CONTROL_GROUP_FLAG := l_entry_rec.PART_OF_CONTROL_GROUP_FLAG;
3187 END IF;
3188
3189 IF p_entry_rec.EXCLUDE_IN_TRIGGERED_LIST_FLAG = FND_API.g_miss_char THEN
3190 x_complete_rec.EXCLUDE_IN_TRIGGERED_LIST_FLAG := l_entry_rec.EXCLUDE_IN_TRIGGERED_LIST_FLAG;
3191 END IF;
3192
3193 IF p_entry_rec.ENABLED_FLAG = FND_API.g_miss_char THEN
3194 x_complete_rec.ENABLED_FLAG := l_entry_rec.ENABLED_FLAG;
3195 END IF;
3196
3197 IF p_entry_rec.CELL_CODE = FND_API.g_miss_char THEN
3198 x_complete_rec.CELL_CODE := l_entry_rec.CELL_CODE;
3199 END IF;
3200
3201 IF p_entry_rec.DEDUPE_KEY = FND_API.g_miss_char THEN
3202 x_complete_rec.DEDUPE_KEY := l_entry_rec.DEDUPE_KEY;
3203 END IF;
3204
3205 IF p_entry_rec.RANDOMLY_GENERATED_NUMBER = FND_API.g_miss_num THEN
3206 x_complete_rec.RANDOMLY_GENERATED_NUMBER := l_entry_rec.RANDOMLY_GENERATED_NUMBER ;
3207 END IF;
3208
3209 IF p_entry_rec.CAMPAIGN_ID = FND_API.g_miss_num THEN
3210 x_complete_rec.CAMPAIGN_ID := l_entry_rec.CAMPAIGN_ID;
3211 END IF;
3212
3213 IF p_entry_rec.MEDIA_ID = FND_API.g_miss_num THEN
3214 x_complete_rec.MEDIA_ID := l_entry_rec.MEDIA_ID;
3215 END IF;
3216
3217 IF p_entry_rec.CHANNEL_ID = FND_API.g_miss_num THEN
3218 x_complete_rec.CHANNEL_ID := l_entry_rec.CHANNEL_ID;
3219 END IF;
3220
3221 IF p_entry_rec.CHANNEL_SCHEDULE_ID = FND_API.g_miss_num THEN
3222 x_complete_rec.CHANNEL_SCHEDULE_ID := l_entry_rec.CHANNEL_SCHEDULE_ID;
3223 END IF;
3224
3225 IF p_entry_rec.EVENT_OFFER_ID = FND_API.g_miss_num THEN
3226 x_complete_rec.EVENT_OFFER_ID := l_entry_rec.EVENT_OFFER_ID;
3227 END IF;
3228
3229 IF p_entry_rec.CUSTOMER_ID = FND_API.g_miss_num THEN
3230 x_complete_rec.CUSTOMER_ID := l_entry_rec.CUSTOMER_ID;
3231 END IF;
3232
3233 IF p_entry_rec.MARKET_SEGMENT_ID = FND_API.g_miss_num THEN
3234 x_complete_rec.MARKET_SEGMENT_ID := l_entry_rec.MARKET_SEGMENT_ID ;
3235 END IF;
3236
3237 IF p_entry_rec.VENDOR_ID = FND_API.g_miss_num THEN
3238 x_complete_rec.VENDOR_ID := l_entry_rec.VENDOR_ID ;
3239 END IF;
3243 END IF;
3240
3241 IF p_entry_rec.TRANSFER_FLAG = FND_API.g_miss_char THEN
3242 x_complete_rec.TRANSFER_FLAG := l_entry_rec.TRANSFER_FLAG;
3244
3245 IF p_entry_rec.TRANSFER_STATUS = FND_API.g_miss_char THEN
3246 x_complete_rec.TRANSFER_STATUS := l_entry_rec.TRANSFER_STATUS;
3247 END IF;
3248
3249 IF p_entry_rec.LIST_SOURCE = FND_API.g_miss_char THEN
3250 x_complete_rec.LIST_SOURCE := l_entry_rec.LIST_SOURCE;
3251 END IF;
3252
3253 IF p_entry_rec.DUPLICATE_MASTER_ENTRY_ID = FND_API.g_miss_num THEN
3254 x_complete_rec.DUPLICATE_MASTER_ENTRY_ID := l_entry_rec.DUPLICATE_MASTER_ENTRY_ID;
3255 END IF;
3256
3257 IF p_entry_rec.MARKED_FLAG = FND_API.g_miss_char THEN
3258 x_complete_rec.MARKED_FLAG := l_entry_rec.MARKED_FLAG;
3259 END IF;
3260 IF p_entry_rec.LEAD_ID = FND_API.g_miss_num THEN
3261 x_complete_rec.LEAD_ID := l_entry_rec.LEAD_ID;
3262 END IF;
3263
3264 IF p_entry_rec.LETTER_ID = FND_API.g_miss_num THEN
3265 x_complete_rec.LETTER_ID := l_entry_rec.LETTER_ID;
3266 END IF;
3267
3268 IF p_entry_rec.PICKING_HEADER_ID = FND_API.g_miss_num THEN
3269 x_complete_rec.PICKING_HEADER_ID := l_entry_rec.PICKING_HEADER_ID;
3270 END IF;
3271
3272 IF p_entry_rec.BATCH_ID = FND_API.g_miss_num THEN
3273 x_complete_rec.BATCH_ID := l_entry_rec.BATCH_ID;
3274 END IF;
3275
3276 IF p_entry_rec.COL1 = FND_API.g_miss_char THEN
3277 x_complete_rec.COL1 := l_entry_rec.COL1 ;
3278 END IF;
3279
3280 IF p_entry_rec.COL2 = FND_API.g_miss_char THEN
3281 x_complete_rec.COL2 := l_entry_rec.COL2 ;
3282 END IF;
3283
3284 IF p_entry_rec.COL3 = FND_API.g_miss_char THEN
3285 x_complete_rec.COL3 := l_entry_rec.COL3 ;
3286 END IF;
3287
3288 IF p_entry_rec.COL4 = FND_API.g_miss_char THEN
3289 x_complete_rec.COL4 := l_entry_rec.COL4;
3290 END IF;
3291
3292 IF p_entry_rec.COL5 = FND_API.g_miss_char THEN
3293 x_complete_rec.COL5 := l_entry_rec.COL5;
3294 END IF;
3295
3296 IF p_entry_rec.COL6 = FND_API.g_miss_char THEN
3297 x_complete_rec.COL6 := l_entry_rec.COL6;
3298 END IF;
3299
3300 IF p_entry_rec.COL7 = FND_API.g_miss_char THEN
3301 x_complete_rec.COL7 := l_entry_rec.COL7;
3302 END IF;
3303
3304 IF p_entry_rec.COL8 = FND_API.g_miss_char THEN
3305 x_complete_rec.COL8 := l_entry_rec.COL8;
3306 END IF;
3307
3308 IF p_entry_rec.COL9 = FND_API.g_miss_char THEN
3309 x_complete_rec.COL9 := l_entry_rec.COL9;
3310 END IF;
3311
3312 IF p_entry_rec.COL10 = FND_API.g_miss_char THEN
3313 x_complete_rec.COL10 := l_entry_rec.COL10;
3314 END IF;
3315
3316 IF p_entry_rec.COL11 = FND_API.g_miss_char THEN
3317 x_complete_rec.COL11 := l_entry_rec.COL11;
3318 END IF;
3319
3320 IF p_entry_rec.COL12 = FND_API.g_miss_char THEN
3321 x_complete_rec.COL12 := l_entry_rec.COL12 ;
3322 END IF;
3323
3324 IF p_entry_rec.COL13 = FND_API.g_miss_char THEN
3325 x_complete_rec.COL13 := l_entry_rec.COL13;
3326 END IF;
3327
3328 IF p_entry_rec.COL14 = FND_API.g_miss_char THEN
3329 x_complete_rec.COL14 := l_entry_rec.COL14;
3330 END IF;
3331
3332 IF p_entry_rec.COL15 = FND_API.g_miss_char THEN
3333 x_complete_rec.COL15 := l_entry_rec.COL15;
3334 END IF;
3335
3336 IF p_entry_rec.COL16 = FND_API.g_miss_char THEN
3337 x_complete_rec.COL16 := l_entry_rec.COL16;
3338 END IF;
3339
3340 IF p_entry_rec.COL17 = FND_API.g_miss_char THEN
3341 x_complete_rec.COL17 := l_entry_rec.COL17;
3342 END IF;
3343
3344 IF p_entry_rec.COL18 = FND_API.g_miss_char THEN
3345 x_complete_rec.COL18 := l_entry_rec.COL18;
3346 END IF;
3347
3348 IF p_entry_rec.COL19 = FND_API.g_miss_char THEN
3349 x_complete_rec.COL19 := l_entry_rec.COL19;
3350 END IF;
3351
3352 IF p_entry_rec.COL20 = FND_API.g_miss_char THEN
3353 x_complete_rec.COL20 := l_entry_rec.COL20;
3354 END IF;
3355
3356 IF p_entry_rec.COL21 = FND_API.g_miss_char THEN
3357 x_complete_rec.COL21 := l_entry_rec.COL21;
3358 END IF;
3359
3360 IF p_entry_rec.COL22 = FND_API.g_miss_char THEN
3361 x_complete_rec.COL22 := l_entry_rec.COL22;
3362 END IF;
3363
3364 IF p_entry_rec.COL23 = FND_API.g_miss_char THEN
3365 x_complete_rec.COL23 := l_entry_rec.COL23;
3366 END IF;
3367
3368 IF p_entry_rec.COL24 = FND_API.g_miss_char THEN
3369 x_complete_rec.COL24 := l_entry_rec.COL24;
3370 END IF;
3371
3372 IF p_entry_rec.COL25 = FND_API.g_miss_char THEN
3373 x_complete_rec.COL25 := l_entry_rec.COL25;
3374 END IF;
3375
3376 IF p_entry_rec.COL26 = FND_API.g_miss_char THEN
3377 x_complete_rec.COL26 := l_entry_rec.COL26;
3378 END IF;
3379
3380 IF p_entry_rec.COL27 = FND_API.g_miss_char THEN
3381 x_complete_rec.COL27 := l_entry_rec.COL27;
3382 END IF;
3383
3384 IF p_entry_rec.COL28 = FND_API.g_miss_char THEN
3385 x_complete_rec.COL28 := l_entry_rec.COL28;
3386 END IF;
3387
3388 IF p_entry_rec.COL29 = FND_API.g_miss_char THEN
3389 x_complete_rec.COL29 := l_entry_rec.COL29;
3390 END IF;
3391
3392 IF p_entry_rec.COL30 = FND_API.g_miss_char THEN
3396 IF p_entry_rec.COL31 = FND_API.g_miss_char THEN
3393 x_complete_rec.COL30 := l_entry_rec.COL30;
3394 END IF;
3395
3397 x_complete_rec.COL31 := l_entry_rec.COL31;
3398 END IF;
3399
3400 IF p_entry_rec.COL32 = FND_API.g_miss_char THEN
3401 x_complete_rec.COL32 := l_entry_rec.COL32;
3402 END IF;
3403
3404 IF p_entry_rec.COL33 = FND_API.g_miss_char THEN
3405 x_complete_rec.COL33 := l_entry_rec.COL33;
3406 END IF;
3407
3408 IF p_entry_rec.COL34 = FND_API.g_miss_char THEN
3409 x_complete_rec.COL34 := l_entry_rec.COL34;
3410 END IF;
3411
3412 IF p_entry_rec.COL35 = FND_API.g_miss_char THEN
3413 x_complete_rec.COL35 := l_entry_rec.COL35;
3414 END IF;
3415
3416 IF p_entry_rec.COL36 = FND_API.g_miss_char THEN
3417 x_complete_rec.COL36 := l_entry_rec.COL36;
3418 END IF;
3419
3420 IF p_entry_rec.COL37 = FND_API.g_miss_char THEN
3421 x_complete_rec.COL37 := l_entry_rec.COL37;
3422 END IF;
3423
3424 IF p_entry_rec.COL38 = FND_API.g_miss_char THEN
3425 x_complete_rec.COL38 := l_entry_rec.COL38;
3426 END IF;
3427
3428 IF p_entry_rec.COL39 = FND_API.g_miss_char THEN
3429 x_complete_rec.COL39 := l_entry_rec.COL39;
3430 END IF;
3431
3432 IF p_entry_rec.COL40 = FND_API.g_miss_char THEN
3433 x_complete_rec.COL40 := l_entry_rec.COL40;
3434 END IF;
3435
3436 IF p_entry_rec.COL41 = FND_API.g_miss_char THEN
3437 x_complete_rec.COL41 := l_entry_rec.COL41;
3438 END IF;
3439
3440 IF p_entry_rec.COL42 = FND_API.g_miss_char THEN
3441 x_complete_rec.COL42 := l_entry_rec.COL42;
3442 END IF;
3443
3444 IF p_entry_rec.COL43 = FND_API.g_miss_char THEN
3445 x_complete_rec.COL43 := l_entry_rec.COL43;
3446 END IF;
3447
3448 IF p_entry_rec.COL44 = FND_API.g_miss_char THEN
3449 x_complete_rec.COL44 := l_entry_rec.COL44;
3450 END IF;
3451
3452 IF p_entry_rec.COL45 = FND_API.g_miss_char THEN
3453 x_complete_rec.COL45 := l_entry_rec.COL45;
3454 END IF;
3455
3456 IF p_entry_rec.COL46 = FND_API.g_miss_char THEN
3457 x_complete_rec.COL46 := l_entry_rec.COL46;
3458 END IF;
3459
3460 IF p_entry_rec.COL47 = FND_API.g_miss_char THEN
3461 x_complete_rec.COL47 := l_entry_rec.COL47;
3462 END IF;
3463
3464 IF p_entry_rec.COL48 = FND_API.g_miss_char THEN
3465 x_complete_rec.COL48 := l_entry_rec.COL48;
3466 END IF;
3467
3468 IF p_entry_rec.COL49 = FND_API.g_miss_char THEN
3469 x_complete_rec.COL49 := l_entry_rec.COL49;
3470 END IF;
3471
3472 IF p_entry_rec.COL50 = FND_API.g_miss_char THEN
3473 x_complete_rec.COL50 := l_entry_rec.COL50;
3474 END IF;
3475
3476 IF p_entry_rec.COL51 = FND_API.g_miss_char THEN
3477 x_complete_rec.COL51 := l_entry_rec.COL51;
3478 END IF;
3479
3480 IF p_entry_rec.COL52 = FND_API.g_miss_char THEN
3481 x_complete_rec.COL52 := l_entry_rec.COL52;
3482 END IF;
3483
3484 IF p_entry_rec.COL53 = FND_API.g_miss_char THEN
3485 x_complete_rec.COL53 := l_entry_rec.COL53;
3486 END IF;
3487
3488 IF p_entry_rec.COL54 = FND_API.g_miss_char THEN
3489 x_complete_rec.COL54 := l_entry_rec.COL54;
3490 END IF;
3491
3492 IF p_entry_rec.COL55 = FND_API.g_miss_char THEN
3493 x_complete_rec.COL55 := l_entry_rec.COL55;
3494 END IF;
3495
3496 IF p_entry_rec.COL56 = FND_API.g_miss_char THEN
3497 x_complete_rec.COL56 := l_entry_rec.COL56;
3498 END IF;
3499
3500 IF p_entry_rec.COL57 = FND_API.g_miss_char THEN
3501 x_complete_rec.COL57 := l_entry_rec.COL57;
3502 END IF;
3503
3504 IF p_entry_rec.COL58 = FND_API.g_miss_char THEN
3505 x_complete_rec.COL58 := l_entry_rec.COL58;
3506 END IF;
3507
3508 IF p_entry_rec.COL59 = FND_API.g_miss_char THEN
3509 x_complete_rec.COL59 := l_entry_rec.COL59;
3510 END IF;
3511
3512 IF p_entry_rec.COL60 = FND_API.g_miss_char THEN
3513 x_complete_rec.COL60 := l_entry_rec.COL60;
3514 END IF;
3515
3516 IF p_entry_rec.COL61 = FND_API.g_miss_char THEN
3517 x_complete_rec.COL61 := l_entry_rec.COL61;
3518 END IF;
3519
3520 IF p_entry_rec.COL62 = FND_API.g_miss_char THEN
3521 x_complete_rec.COL62 := l_entry_rec.COL62;
3522 END IF;
3523
3524 IF p_entry_rec.COL63 = FND_API.g_miss_char THEN
3525 x_complete_rec.COL63 := l_entry_rec.COL63;
3526 END IF;
3527
3528 IF p_entry_rec.COL64 = FND_API.g_miss_char THEN
3529 x_complete_rec.COL64 := l_entry_rec.COL64;
3530 END IF;
3531
3532 IF p_entry_rec.COL65 = FND_API.g_miss_char THEN
3533 x_complete_rec.COL65 := l_entry_rec.COL65;
3534 END IF;
3535
3536 IF p_entry_rec.COL66 = FND_API.g_miss_char THEN
3537 x_complete_rec.COL66 := l_entry_rec.COL66;
3538 END IF;
3539
3540 IF p_entry_rec.COL67 = FND_API.g_miss_char THEN
3541 x_complete_rec.COL67 := l_entry_rec.COL67;
3542 END IF;
3543
3544 IF p_entry_rec.COL68 = FND_API.g_miss_char THEN
3545 x_complete_rec.COL68 := l_entry_rec.COL68;
3546 END IF;
3547
3548 IF p_entry_rec.COL69 = FND_API.g_miss_char THEN
3549 x_complete_rec.COL69 := l_entry_rec.COL69;
3550 END IF;
3551
3552 IF p_entry_rec.COL70 = FND_API.g_miss_char THEN
3553 x_complete_rec.COL70 := l_entry_rec.COL70 ;
3557 x_complete_rec.COL71 := l_entry_rec.COL71;
3554 END IF;
3555
3556 IF p_entry_rec.COL71 = FND_API.g_miss_char THEN
3558 END IF;
3559
3560 IF p_entry_rec.COL72 = FND_API.g_miss_char THEN
3561 x_complete_rec.COL72 := l_entry_rec.COL72;
3562 END IF;
3563
3564 IF p_entry_rec.COL73 = FND_API.g_miss_char THEN
3565 x_complete_rec.COL73 := l_entry_rec.COL73;
3566 END IF;
3567
3568 IF p_entry_rec.COL74 = FND_API.g_miss_char THEN
3569 x_complete_rec.COL74 := l_entry_rec.COL74 ;
3570 END IF;
3571
3572 IF p_entry_rec.COL75 = FND_API.g_miss_char THEN
3573 x_complete_rec.COL75 := l_entry_rec.COL75;
3574 END IF;
3575
3576 IF p_entry_rec.COL76 = FND_API.g_miss_char THEN
3577 x_complete_rec.COL76 := l_entry_rec.COL76;
3578 END IF;
3579
3580 IF p_entry_rec.COL77 = FND_API.g_miss_char THEN
3581 x_complete_rec.COL77 := l_entry_rec.COL77 ;
3582 END IF;
3583
3584 IF p_entry_rec.COL78 = FND_API.g_miss_char THEN
3585 x_complete_rec.COL78 := l_entry_rec.COL78;
3586 END IF;
3587
3588 IF p_entry_rec.COL79 = FND_API.g_miss_char THEN
3589 x_complete_rec.COL79 := l_entry_rec.COL79;
3590 END IF;
3591
3592 IF p_entry_rec.COL80 = FND_API.g_miss_char THEN
3593 x_complete_rec.COL80 := l_entry_rec.COL80;
3594 END IF;
3595
3596 IF p_entry_rec.COL81 = FND_API.g_miss_char THEN
3597 x_complete_rec.COL81 := l_entry_rec.COL81;
3598 END IF;
3599
3600 IF p_entry_rec.COL82 = FND_API.g_miss_char THEN
3601 x_complete_rec.COL82 := l_entry_rec.COL82;
3602 END IF;
3603
3604 IF p_entry_rec.COL83 = FND_API.g_miss_char THEN
3605 x_complete_rec.COL83 := l_entry_rec.COL83;
3606 END IF;
3607
3608 IF p_entry_rec.COL84 = FND_API.g_miss_char THEN
3609 x_complete_rec.COL84 := l_entry_rec.COL84;
3610 END IF;
3611
3612 IF p_entry_rec.COL85 = FND_API.g_miss_char THEN
3613 x_complete_rec.COL85 := l_entry_rec.COL85;
3614 END IF;
3615
3616 IF p_entry_rec.COL86 = FND_API.g_miss_char THEN
3617 x_complete_rec.COL86 := l_entry_rec.COL86;
3618 END IF;
3619
3620 IF p_entry_rec.COL87 = FND_API.g_miss_char THEN
3621 x_complete_rec.COL87 := l_entry_rec.COL87;
3622 END IF;
3623
3624 IF p_entry_rec.COL88 = FND_API.g_miss_char THEN
3625 x_complete_rec.COL88 := l_entry_rec.COL88;
3626 END IF;
3627
3628 IF p_entry_rec.COL89 = FND_API.g_miss_char THEN
3629 x_complete_rec.COL89 := l_entry_rec.COL89;
3630 END IF;
3631
3632 IF p_entry_rec.COL90 = FND_API.g_miss_char THEN
3633 x_complete_rec.COL90 := l_entry_rec.COL90;
3634 END IF;
3635
3636 IF p_entry_rec.COL91 = FND_API.g_miss_char THEN
3637 x_complete_rec.COL91 := l_entry_rec.COL91;
3638 END IF;
3639
3640 IF p_entry_rec.COL92 = FND_API.g_miss_char THEN
3641 x_complete_rec.COL92 := l_entry_rec.COL92;
3642 END IF;
3643
3644 IF p_entry_rec.COL93 = FND_API.g_miss_char THEN
3645 x_complete_rec.COL93 := l_entry_rec.COL93;
3646 END IF;
3647
3648 IF p_entry_rec.COL94 = FND_API.g_miss_char THEN
3649 x_complete_rec.COL94:= l_entry_rec.COL94;
3650 END IF;
3651
3652 IF p_entry_rec.COL95 = FND_API.g_miss_char THEN
3653 x_complete_rec.COL95 := l_entry_rec.COL95;
3654 END IF;
3655
3656 IF p_entry_rec.COL96 = FND_API.g_miss_char THEN
3657 x_complete_rec.COL96 := l_entry_rec.COL96;
3658 END IF;
3659
3660 IF p_entry_rec.COL97 = FND_API.g_miss_char THEN
3661 x_complete_rec.COL97 := l_entry_rec.COL97 ;
3662 END IF;
3663
3664 IF p_entry_rec.COL98 = FND_API.g_miss_char THEN
3665 x_complete_rec.COL98 := l_entry_rec.COL98;
3666 END IF;
3667
3668 IF p_entry_rec.COL99 = FND_API.g_miss_char THEN
3669 x_complete_rec.COL99 := l_entry_rec.COL99;
3670 END IF;
3671
3672 IF p_entry_rec.COL100 = FND_API.g_miss_char THEN
3673 x_complete_rec.COL100 := l_entry_rec.COL100 ;
3674 END IF;
3675
3676 IF p_entry_rec.COL101 = FND_API.g_miss_char THEN
3677 x_complete_rec.COL101 := l_entry_rec.COL101 ;
3678 END IF;
3679
3680 IF p_entry_rec.COL102 = FND_API.g_miss_char THEN
3681 x_complete_rec.COL102 := l_entry_rec.COL102;
3682 END IF;
3683
3684 IF p_entry_rec.COL103 = FND_API.g_miss_char THEN
3685 x_complete_rec.COL103 := l_entry_rec.COL103;
3686 END IF;
3687
3688 IF p_entry_rec.COL104 = FND_API.g_miss_char THEN
3689 x_complete_rec.COL104 := l_entry_rec.COL104 ;
3690 END IF;
3691
3692 IF p_entry_rec.COL105 = FND_API.g_miss_char THEN
3693 x_complete_rec.COL105 := l_entry_rec.COL105;
3694 END IF;
3695
3696 IF p_entry_rec.COL106 = FND_API.g_miss_char THEN
3697 x_complete_rec.COL106 := l_entry_rec.COL106;
3698 END IF;
3699
3700 IF p_entry_rec.COL107 = FND_API.g_miss_char THEN
3701 x_complete_rec.COL107 := l_entry_rec.COL107;
3702 END IF;
3703
3704 IF p_entry_rec.COL108 = FND_API.g_miss_char THEN
3705 x_complete_rec.COL108 := l_entry_rec.COL108 ;
3706 END IF;
3707
3708 IF p_entry_rec.COL109 = FND_API.g_miss_char THEN
3709 x_complete_rec.COL109 := l_entry_rec.COL109 ;
3710 END IF;
3711
3712 IF p_entry_rec.COL110 = FND_API.g_miss_char THEN
3713 x_complete_rec.COL110 := l_entry_rec.COL110 ;
3714 END IF;
3715
3716 IF p_entry_rec.COL111 = FND_API.g_miss_char THEN
3720 IF p_entry_rec.COL112 = FND_API.g_miss_char THEN
3717 x_complete_rec.COL111 := l_entry_rec.COL111;
3718 END IF;
3719
3721 x_complete_rec.COL112 := l_entry_rec.COL112;
3722 END IF;
3723
3724 IF p_entry_rec.COL113 = FND_API.g_miss_char THEN
3725 x_complete_rec.COL113 := l_entry_rec.COL113;
3726 END IF;
3727
3728 IF p_entry_rec.COL114 = FND_API.g_miss_char THEN
3729 x_complete_rec.COL114 := l_entry_rec.COL114;
3730 END IF;
3731
3732 IF p_entry_rec.COL115 = FND_API.g_miss_char THEN
3733 x_complete_rec.COL115 := l_entry_rec.COL115;
3734 END IF;
3735
3736 IF p_entry_rec.COL116 = FND_API.g_miss_char THEN
3737 x_complete_rec.COL116 := l_entry_rec.COL116;
3738 END IF;
3739
3740 IF p_entry_rec.COL117 = FND_API.g_miss_char THEN
3741 x_complete_rec.COL117 := l_entry_rec.COL117;
3742 END IF;
3743
3744 IF p_entry_rec.COL118 = FND_API.g_miss_char THEN
3745 x_complete_rec.COL118 := l_entry_rec.COL118;
3746 END IF;
3747
3748 IF p_entry_rec.COL119 = FND_API.g_miss_char THEN
3749 x_complete_rec.COL119 := l_entry_rec.COL119;
3750 END IF;
3751
3752 IF p_entry_rec.COL120 = FND_API.g_miss_char THEN
3753 x_complete_rec.COL120 := l_entry_rec.COL120;
3754 END IF;
3755
3756 IF p_entry_rec.COL121 = FND_API.g_miss_char THEN
3757 x_complete_rec.COL121 := l_entry_rec.COL121;
3758 END IF;
3759
3760 IF p_entry_rec.COL122 = FND_API.g_miss_char THEN
3761 x_complete_rec.COL122 := l_entry_rec.COL122 ;
3762 END IF;
3763
3764 IF p_entry_rec.COL123 = FND_API.g_miss_char THEN
3765 x_complete_rec.COL123 := l_entry_rec.COL123 ;
3766 END IF;
3767
3768 IF p_entry_rec.COL124 = FND_API.g_miss_char THEN
3769 x_complete_rec.COL124 := l_entry_rec.COL124;
3770 END IF;
3771
3772 IF p_entry_rec.COL125 = FND_API.g_miss_char THEN
3773 x_complete_rec.COL125 := l_entry_rec.COL125;
3774 END IF;
3775
3776 IF p_entry_rec.COL126 = FND_API.g_miss_char THEN
3777 x_complete_rec.COL126 := l_entry_rec.COL126;
3778 END IF;
3779
3780 IF p_entry_rec.COL127 = FND_API.g_miss_char THEN
3781 x_complete_rec.COL127 := l_entry_rec.COL127;
3782 END IF;
3783
3784 IF p_entry_rec.COL128 = FND_API.g_miss_char THEN
3785 x_complete_rec.COL128 := l_entry_rec.COL128;
3786 END IF;
3787
3788 IF p_entry_rec.COL129 = FND_API.g_miss_char THEN
3789 x_complete_rec.COL129 := l_entry_rec.COL129 ;
3790 END IF;
3791
3792 IF p_entry_rec.COL130 = FND_API.g_miss_char THEN
3793 x_complete_rec.COL130 := l_entry_rec.COL130;
3794 END IF;
3795
3796 IF p_entry_rec.COL131 = FND_API.g_miss_char THEN
3797 x_complete_rec.COL131 := l_entry_rec.COL131;
3798 END IF;
3799
3800 IF p_entry_rec.COL132 = FND_API.g_miss_char THEN
3801 x_complete_rec.COL132 := l_entry_rec.COL132;
3802 END IF;
3803
3804 IF p_entry_rec.COL133 = FND_API.g_miss_char THEN
3805 x_complete_rec.COL133 := l_entry_rec.COL133;
3806 END IF;
3807
3808 IF p_entry_rec.COL134 = FND_API.g_miss_char THEN
3809 x_complete_rec.COL134 := l_entry_rec.COL134;
3810 END IF;
3811
3812 IF p_entry_rec.COL135 = FND_API.g_miss_char THEN
3813 x_complete_rec.COL135 := l_entry_rec.COL135;
3814 END IF;
3815
3816 IF p_entry_rec.COL136 = FND_API.g_miss_char THEN
3817 x_complete_rec.COL136 := l_entry_rec.COL136;
3818 END IF;
3819
3820 IF p_entry_rec.COL137 = FND_API.g_miss_char THEN
3821 x_complete_rec.COL137 := l_entry_rec.COL137 ;
3822 END IF;
3823
3824 IF p_entry_rec.COL138 = FND_API.g_miss_char THEN
3825 x_complete_rec.COL138 := l_entry_rec.COL138;
3826 END IF;
3827
3828 IF p_entry_rec.COL139 = FND_API.g_miss_char THEN
3829 x_complete_rec.COL139 := l_entry_rec.COL139;
3830 END IF;
3831
3832 IF p_entry_rec.COL140 = FND_API.g_miss_char THEN
3833 x_complete_rec.COL140 := l_entry_rec.COL140;
3834 END IF;
3835
3836 IF p_entry_rec.COL141 = FND_API.g_miss_char THEN
3837 x_complete_rec.COL141 := l_entry_rec.COL141;
3838 END IF;
3839
3840 IF p_entry_rec.COL142 = FND_API.g_miss_char THEN
3841 x_complete_rec.COL142 := l_entry_rec.COL142 ;
3842 END IF;
3843
3844 IF p_entry_rec.COL143 = FND_API.g_miss_char THEN
3845 x_complete_rec.COL143 := l_entry_rec.COL143;
3846 END IF;
3847
3848 IF p_entry_rec.COL144 = FND_API.g_miss_char THEN
3849 x_complete_rec.COL144 := l_entry_rec.COL144;
3850 END IF;
3851
3852 IF p_entry_rec.COL145 = FND_API.g_miss_char THEN
3853 x_complete_rec.COL145 := l_entry_rec.COL145;
3854 END IF;
3855
3856 IF p_entry_rec.COL146 = FND_API.g_miss_char THEN
3857 x_complete_rec.COL146 := l_entry_rec.COL146;
3858 END IF;
3859
3860 IF p_entry_rec.COL147 = FND_API.g_miss_char THEN
3861 x_complete_rec.COL147 := l_entry_rec.COL147 ;
3862 END IF;
3863
3864 IF p_entry_rec.COL148 = FND_API.g_miss_char THEN
3865 x_complete_rec.COL148 := l_entry_rec.COL148;
3866 END IF;
3867
3868 IF p_entry_rec.COL149 = FND_API.g_miss_char THEN
3869 x_complete_rec.COL149 := l_entry_rec.COL149;
3870 END IF;
3871
3875
3872 IF p_entry_rec.COL150 = FND_API.g_miss_char THEN
3873 x_complete_rec.COL150 := l_entry_rec.COL150;
3874 END IF;
3876 IF p_entry_rec.COL151 = FND_API.g_miss_char THEN
3877 x_complete_rec.COL151 := l_entry_rec.COL151;
3878 END IF;
3879
3880 IF p_entry_rec.COL152 = FND_API.g_miss_char THEN
3881 x_complete_rec.COL152 := l_entry_rec.COL152 ;
3882
3883 END IF;
3884
3885 IF p_entry_rec.COL153 = FND_API.g_miss_char THEN
3886 x_complete_rec.COL153 := l_entry_rec.COL153;
3887 END IF;
3888
3889 IF p_entry_rec.COL154 = FND_API.g_miss_char THEN
3890 x_complete_rec.COL154 := l_entry_rec.COL154;
3891 END IF;
3892
3893 IF p_entry_rec.COL155 = FND_API.g_miss_char THEN
3894 x_complete_rec.COL155 := l_entry_rec.COL155;
3895 END IF;
3896
3897 IF p_entry_rec.COL156 = FND_API.g_miss_char THEN
3898 x_complete_rec.COL156 := l_entry_rec.COL156;
3899 END IF;
3900
3901 IF p_entry_rec.COL157 = FND_API.g_miss_char THEN
3902 x_complete_rec.COL157 := l_entry_rec.COL157;
3903 END IF;
3904
3905 IF p_entry_rec.COL158 = FND_API.g_miss_char THEN
3906 x_complete_rec.COL158 := l_entry_rec.COL158;
3907 END IF;
3908
3909 IF p_entry_rec.COL159 = FND_API.g_miss_char THEN
3910 x_complete_rec.COL159 := l_entry_rec.COL159;
3911 END IF;
3912
3913 IF p_entry_rec.COL160 = FND_API.g_miss_char THEN
3914 x_complete_rec.COL160 := l_entry_rec.COL160;
3915 END IF;
3916
3917 IF p_entry_rec.COL161 = FND_API.g_miss_char THEN
3918 x_complete_rec.COL161 := l_entry_rec.COL161;
3919 END IF;
3920
3921 IF p_entry_rec.COL162 = FND_API.g_miss_char THEN
3922 x_complete_rec.COL162 := l_entry_rec.COL162 ;
3923 END IF;
3924
3925 IF p_entry_rec.COL163 = FND_API.g_miss_char THEN
3926 x_complete_rec.COL163 := l_entry_rec.COL163;
3927 END IF;
3928
3929 IF p_entry_rec.COL164 = FND_API.g_miss_char THEN
3930 x_complete_rec.COL164 := l_entry_rec.COL164;
3931 END IF;
3932
3933 IF p_entry_rec.COL165 = FND_API.g_miss_char THEN
3934 x_complete_rec.COL165 := l_entry_rec.COL165;
3935 END IF;
3936
3937 IF p_entry_rec.COL166 = FND_API.g_miss_char THEN
3938 x_complete_rec.COL166 := l_entry_rec.COL166;
3939 END IF;
3940
3941 IF p_entry_rec.COL167 = FND_API.g_miss_char THEN
3942 x_complete_rec.COL167 := l_entry_rec.COL167;
3943 END IF;
3944
3945 IF p_entry_rec.COL168 = FND_API.g_miss_char THEN
3946 x_complete_rec.COL168 := l_entry_rec.COL168;
3947 END IF;
3948
3949 IF p_entry_rec.COL169 = FND_API.g_miss_char THEN
3950 x_complete_rec.COL169 := l_entry_rec.COL169;
3951 END IF;
3952
3953 IF p_entry_rec.COL170 = FND_API.g_miss_char THEN
3954 x_complete_rec.COL170 := l_entry_rec.COL170;
3955 END IF;
3956
3957 IF p_entry_rec.COL171 = FND_API.g_miss_char THEN
3958 x_complete_rec.COL171 := l_entry_rec.COL171;
3959 END IF;
3960
3961 IF p_entry_rec.COL172 = FND_API.g_miss_char THEN
3962 x_complete_rec.COL172 := l_entry_rec.COL172;
3963 END IF;
3964
3965 IF p_entry_rec.COL173 = FND_API.g_miss_char THEN
3966 x_complete_rec.COL173 := l_entry_rec.COL173 ;
3967 END IF;
3968
3969 IF p_entry_rec.COL174 = FND_API.g_miss_char THEN
3970 x_complete_rec.COL174 := l_entry_rec.COL174;
3971 END IF;
3972
3973 IF p_entry_rec.COL175 = FND_API.g_miss_char THEN
3974 x_complete_rec.COL175 := l_entry_rec.COL175;
3975 END IF;
3976
3977 IF p_entry_rec.COL176 = FND_API.g_miss_char THEN
3978 x_complete_rec.COL176 := l_entry_rec.COL176;
3979 END IF;
3980
3981 IF p_entry_rec.COL177 = FND_API.g_miss_char THEN
3982 x_complete_rec.COL177 := l_entry_rec.COL177;
3983 END IF;
3984
3985 IF p_entry_rec.COL178 = FND_API.g_miss_char THEN
3986 x_complete_rec.COL178 := l_entry_rec.COL178;
3987 END IF;
3988
3989 IF p_entry_rec.COL179 = FND_API.g_miss_char THEN
3990 x_complete_rec.COL179 := l_entry_rec.COL179;
3991 END IF;
3992
3993 IF p_entry_rec.COL180 = FND_API.g_miss_char THEN
3994 x_complete_rec.COL180 := l_entry_rec.COL180;
3995 END IF;
3996
3997 IF p_entry_rec.COL181 = FND_API.g_miss_char THEN
3998 x_complete_rec.COL181 := l_entry_rec.COL181;
3999 END IF;
4000
4001 IF p_entry_rec.COL182 = FND_API.g_miss_char THEN
4002 x_complete_rec.COL182 := l_entry_rec.COL182;
4003 END IF;
4004
4005 IF p_entry_rec.COL183 = FND_API.g_miss_char THEN
4006 x_complete_rec.COL183 := l_entry_rec.COL183;
4007 END IF;
4008
4009 IF p_entry_rec.COL184 = FND_API.g_miss_char THEN
4010 x_complete_rec.COL184 := l_entry_rec.COL184 ;
4011 END IF;
4012
4013 IF p_entry_rec.COL185 = FND_API.g_miss_char THEN
4014 x_complete_rec.COL185 := l_entry_rec.COL185;
4015 END IF;
4016
4017 IF p_entry_rec.COL186 = FND_API.g_miss_char THEN
4018 x_complete_rec.COL186 := l_entry_rec.COL186;
4019 END IF;
4020
4021 IF p_entry_rec.COL187 = FND_API.g_miss_char THEN
4022 x_complete_rec.COL187 := l_entry_rec.COL187;
4023 END IF;
4024
4025 IF p_entry_rec.COL188 = FND_API.g_miss_char THEN
4026 x_complete_rec.COL188 := l_entry_rec.COL188;
4027 END IF;
4028
4032
4029 IF p_entry_rec.COL189 = FND_API.g_miss_char THEN
4030 x_complete_rec.COL189 := l_entry_rec.COL189;
4031 END IF;
4033 IF p_entry_rec.COL190 = FND_API.g_miss_char THEN
4034 x_complete_rec.COL190 := l_entry_rec.COL190;
4035 END IF;
4036
4037 IF p_entry_rec.COL191 = FND_API.g_miss_char THEN
4038 x_complete_rec.COL191 := l_entry_rec.COL191;
4039 END IF;
4040
4041 IF p_entry_rec.COL192 = FND_API.g_miss_char THEN
4042 x_complete_rec.COL192 := l_entry_rec.COL192;
4043 END IF;
4044
4045 IF p_entry_rec.COL193 = FND_API.g_miss_char THEN
4046 x_complete_rec.COL193 := l_entry_rec.COL193 ;
4047 END IF;
4048
4049 IF p_entry_rec.COL194 = FND_API.g_miss_char THEN
4050 x_complete_rec.COL194 := l_entry_rec.COL194;
4051 END IF;
4052
4053 IF p_entry_rec.COL195 = FND_API.g_miss_char THEN
4054 x_complete_rec.COL195 := l_entry_rec.COL195;
4055 END IF;
4056
4057 IF p_entry_rec.COL196 = FND_API.g_miss_char THEN
4058 x_complete_rec.COL196 := l_entry_rec.COL196;
4059 END IF;
4060
4061 IF p_entry_rec.COL197 = FND_API.g_miss_char THEN
4062 x_complete_rec.COL197 := l_entry_rec.COL197 ;
4063 END IF;
4064
4065 IF p_entry_rec.COL198 = FND_API.g_miss_char THEN
4066 x_complete_rec.COL198 := l_entry_rec.COL198;
4067 END IF;
4068
4069 IF p_entry_rec.COL199 = FND_API.g_miss_char THEN
4070 x_complete_rec.COL199 := l_entry_rec.COL199;
4071 END IF;
4072
4073 IF p_entry_rec.COL200 = FND_API.g_miss_char THEN
4074 x_complete_rec.COL200 := l_entry_rec.COL200;
4075 END IF;
4076
4077 IF p_entry_rec.COL201 = FND_API.g_miss_char THEN
4078 x_complete_rec.COL201 := l_entry_rec.COL201;
4079 END IF;
4080
4081 IF p_entry_rec.COL202 = FND_API.g_miss_char THEN
4082 x_complete_rec.COL202 := l_entry_rec.COL202;
4083 END IF;
4084
4085 IF p_entry_rec.COL203 = FND_API.g_miss_char THEN
4086 x_complete_rec.COL203 := l_entry_rec.COL203;
4087 END IF;
4088
4089 IF p_entry_rec.COL204 = FND_API.g_miss_char THEN
4090 x_complete_rec.COL204 := l_entry_rec.COL204;
4091 END IF;
4092
4093 IF p_entry_rec.COL205 = FND_API.g_miss_char THEN
4094 x_complete_rec.COL205 := l_entry_rec.COL205;
4095 END IF;
4096
4097 IF p_entry_rec.COL206 = FND_API.g_miss_char THEN
4098 x_complete_rec.COL206 := l_entry_rec.COL206;
4099 END IF;
4100
4101 IF p_entry_rec.COL207 = FND_API.g_miss_char THEN
4102 x_complete_rec.COL207 := l_entry_rec.COL207;
4103 END IF;
4104
4105 IF p_entry_rec.COL208 = FND_API.g_miss_char THEN
4106 x_complete_rec.COL208 := l_entry_rec.COL208;
4107 END IF;
4108
4109 IF p_entry_rec.COL209 = FND_API.g_miss_char THEN
4110 x_complete_rec.COL209 := l_entry_rec.COL209;
4111 END IF;
4112
4113 IF p_entry_rec.COL210 = FND_API.g_miss_char THEN
4114 x_complete_rec.COL210 := l_entry_rec.COL210;
4115 END IF;
4116
4117 IF p_entry_rec.COL211 = FND_API.g_miss_char THEN
4118 x_complete_rec.COL211 := l_entry_rec.COL211;
4119 END IF;
4120
4121 IF p_entry_rec.COL212 = FND_API.g_miss_char THEN
4122 x_complete_rec.COL212 := l_entry_rec.COL212;
4123 END IF;
4124
4125 IF p_entry_rec.COL213 = FND_API.g_miss_char THEN
4126 x_complete_rec.COL213 := l_entry_rec.COL213;
4127 END IF;
4128
4129 IF p_entry_rec.COL214 = FND_API.g_miss_char THEN
4130 x_complete_rec.COL214 := l_entry_rec.COL214;
4131 END IF;
4132
4133 IF p_entry_rec.COL215 = FND_API.g_miss_char THEN
4134 x_complete_rec.COL215 := l_entry_rec.COL215;
4135 END IF;
4136
4137 IF p_entry_rec.COL216 = FND_API.g_miss_char THEN
4138 x_complete_rec.COL216 := l_entry_rec.COL216;
4139 END IF;
4140
4141 IF p_entry_rec.COL217 = FND_API.g_miss_char THEN
4142 x_complete_rec.COL217 := l_entry_rec.COL217;
4143 END IF;
4144
4145 IF p_entry_rec.COL218 = FND_API.g_miss_char THEN
4146 x_complete_rec.COL218 := l_entry_rec.COL218;
4147 END IF;
4148
4149 IF p_entry_rec.COL219 = FND_API.g_miss_char THEN
4150 x_complete_rec.COL219 := l_entry_rec.COL219;
4151 END IF;
4152
4153 IF p_entry_rec.COL220 = FND_API.g_miss_char THEN
4154 x_complete_rec.COL220 := l_entry_rec.COL220 ;
4155 END IF;
4156
4157 IF p_entry_rec.COL221 = FND_API.g_miss_char THEN
4158 x_complete_rec.COL221 := l_entry_rec.COL221;
4159 END IF;
4160
4161 IF p_entry_rec.COL222 = FND_API.g_miss_char THEN
4162 x_complete_rec.COL222 := l_entry_rec.COL222;
4163 END IF;
4164
4165 IF p_entry_rec.COL223 = FND_API.g_miss_char THEN
4166 x_complete_rec.COL223 := l_entry_rec.COL223;
4167 END IF;
4168
4169 IF p_entry_rec.COL224 = FND_API.g_miss_char THEN
4170 x_complete_rec.COL224 := l_entry_rec.COL224;
4171 END IF;
4172
4173 IF p_entry_rec.COL225 = FND_API.g_miss_char THEN
4174 x_complete_rec.COL225 := l_entry_rec.COL225;
4175 END IF;
4176
4177 IF p_entry_rec.COL226 = FND_API.g_miss_char THEN
4178 x_complete_rec.COL226 := l_entry_rec.COL226;
4179 END IF;
4180
4181 IF p_entry_rec.COL227 = FND_API.g_miss_char THEN
4182 x_complete_rec.COL227 := l_entry_rec.COL227 ;
4183 END IF;
4184
4185 IF p_entry_rec.COL228 = FND_API.g_miss_char THEN
4189 IF p_entry_rec.COL229 = FND_API.g_miss_char THEN
4186 x_complete_rec.COL228 := l_entry_rec.COL228 ;
4187 END IF;
4188
4190 x_complete_rec.COL229 := l_entry_rec.COL229;
4191 END IF;
4192
4193 IF p_entry_rec.COL230 = FND_API.g_miss_char THEN
4194 x_complete_rec.COL230 := l_entry_rec.COL230 ;
4195 END IF;
4196
4197 IF p_entry_rec.COL231 = FND_API.g_miss_char THEN
4198 x_complete_rec.COL231 := l_entry_rec.COL231;
4199 END IF;
4200
4201 IF p_entry_rec.COL232 = FND_API.g_miss_char THEN
4202 x_complete_rec.COL232 := l_entry_rec.COL232;
4203 END IF;
4204
4205 IF p_entry_rec.COL233 = FND_API.g_miss_char THEN
4206 x_complete_rec.COL233 := l_entry_rec.COL233;
4207 END IF;
4208
4209 IF p_entry_rec.COL234 = FND_API.g_miss_char THEN
4210 x_complete_rec.COL234 := l_entry_rec.COL234;
4211 END IF;
4212
4213 IF p_entry_rec.COL235 = FND_API.g_miss_char THEN
4214 x_complete_rec.COL235 := l_entry_rec.COL235 ;
4215 END IF;
4216
4217 IF p_entry_rec.COL236 = FND_API.g_miss_char THEN
4218 x_complete_rec.COL236 := l_entry_rec.COL236;
4219 END IF;
4220
4221 IF p_entry_rec.COL237 = FND_API.g_miss_char THEN
4222 x_complete_rec.COL237 := l_entry_rec.COL237;
4223 END IF;
4224
4225 IF p_entry_rec.COL238 = FND_API.g_miss_char THEN
4226 x_complete_rec.COL238 := l_entry_rec.COL238 ;
4227 END IF;
4228
4229 IF p_entry_rec.COL239 = FND_API.g_miss_char THEN
4230 x_complete_rec.COL239 := l_entry_rec.COL239;
4231 END IF;
4232
4233 IF p_entry_rec.COL240 = FND_API.g_miss_char THEN
4234 x_complete_rec.COL240 := l_entry_rec.COL240;
4235 END IF;
4236
4237 IF p_entry_rec.COL241 = FND_API.g_miss_char THEN
4238 x_complete_rec.COL241 := l_entry_rec.COL241 ;
4239 END IF;
4240
4241 IF p_entry_rec.COL242 = FND_API.g_miss_char THEN
4242 x_complete_rec.COL242 := l_entry_rec.COL242;
4243 END IF;
4244
4245 IF p_entry_rec.COL243 = FND_API.g_miss_char THEN
4246 x_complete_rec.COL243 := l_entry_rec.COL243;
4247 END IF;
4248
4249 IF p_entry_rec.COL244 = FND_API.g_miss_char THEN
4250 x_complete_rec.COL244 := l_entry_rec.COL244;
4251 END IF;
4252
4253 IF p_entry_rec.COL245 = FND_API.g_miss_char THEN
4254 x_complete_rec.COL245 := l_entry_rec.COL245;
4255 END IF;
4256
4257 IF p_entry_rec.COL246 = FND_API.g_miss_char THEN
4258 x_complete_rec.COL246 := l_entry_rec.COL246;
4259 END IF;
4260
4261 IF p_entry_rec.COL247 = FND_API.g_miss_char THEN
4262 x_complete_rec.COL247 := l_entry_rec.COL247;
4263 END IF;
4264
4265 IF p_entry_rec.COL248 = FND_API.g_miss_char THEN
4266 x_complete_rec.COL248 := l_entry_rec.COL248 ;
4267 END IF;
4268
4269 IF p_entry_rec.COL249 = FND_API.g_miss_char THEN
4270 x_complete_rec.COL249 := l_entry_rec.COL249;
4271 END IF;
4272
4273 IF p_entry_rec.COL250 = FND_API.g_miss_char THEN
4274 x_complete_rec.COL250 := l_entry_rec.COL250;
4275 END IF;
4276
4277 IF p_entry_rec.COL251 = FND_API.g_miss_char THEN
4278 x_complete_rec.COL251 := l_entry_rec.COL251;
4279 END IF;
4280
4281
4282 IF p_entry_rec.COL252 = FND_API.g_miss_char THEN
4283 x_complete_rec.COL252 := l_entry_rec.COL252;
4284 END IF;
4285
4286
4287 IF p_entry_rec.COL253 = FND_API.g_miss_char THEN
4288 x_complete_rec.COL253 := l_entry_rec.COL253;
4289 END IF;
4290
4291
4292 IF p_entry_rec.COL254 = FND_API.g_miss_char THEN
4293 x_complete_rec.COL254 := l_entry_rec.COL254;
4294 END IF;
4295
4296
4297 IF p_entry_rec.COL255 = FND_API.g_miss_char THEN
4298 x_complete_rec.COL255 := l_entry_rec.COL255;
4299 END IF;
4300
4301
4302 IF p_entry_rec.COL256 = FND_API.g_miss_char THEN
4303 x_complete_rec.COL256 := l_entry_rec.COL256;
4304 END IF;
4305
4306
4307 IF p_entry_rec.COL257 = FND_API.g_miss_char THEN
4308 x_complete_rec.COL257 := l_entry_rec.COL257;
4309 END IF;
4310
4311
4312 IF p_entry_rec.COL258 = FND_API.g_miss_char THEN
4313 x_complete_rec.COL258 := l_entry_rec.COL258;
4314 END IF;
4315
4316
4317 IF p_entry_rec.COL259 = FND_API.g_miss_char THEN
4318 x_complete_rec.COL259 := l_entry_rec.COL259;
4319 END IF;
4320
4321
4322 IF p_entry_rec.COL260 = FND_API.g_miss_char THEN
4323 x_complete_rec.COL260 := l_entry_rec.COL260;
4324 END IF;
4325
4326
4327 IF p_entry_rec.COL261 = FND_API.g_miss_char THEN
4328 x_complete_rec.COL261 := l_entry_rec.COL261;
4329 END IF;
4330
4331
4332 IF p_entry_rec.COL262 = FND_API.g_miss_char THEN
4333 x_complete_rec.COL262 := l_entry_rec.COL262;
4334 END IF;
4335
4336
4337 IF p_entry_rec.COL263 = FND_API.g_miss_char THEN
4338 x_complete_rec.COL263 := l_entry_rec.COL263;
4339 END IF;
4340
4341
4342 IF p_entry_rec.COL264 = FND_API.g_miss_char THEN
4343 x_complete_rec.COL264 := l_entry_rec.COL264;
4344 END IF;
4345
4346
4347 IF p_entry_rec.COL265 = FND_API.g_miss_char THEN
4348 x_complete_rec.COL265 := l_entry_rec.COL265;
4349 END IF;
4350
4351
4352 IF p_entry_rec.COL266 = FND_API.g_miss_char THEN
4356
4353 x_complete_rec.COL266 := l_entry_rec.COL266;
4354 END IF;
4355
4357 IF p_entry_rec.COL267 = FND_API.g_miss_char THEN
4358 x_complete_rec.COL267 := l_entry_rec.COL267;
4359 END IF;
4360
4361
4362 IF p_entry_rec.COL268 = FND_API.g_miss_char THEN
4363 x_complete_rec.COL268 := l_entry_rec.COL268;
4364 END IF;
4365
4366
4367 IF p_entry_rec.COL269 = FND_API.g_miss_char THEN
4368 x_complete_rec.COL269 := l_entry_rec.COL269;
4369 END IF;
4370
4371
4372 IF p_entry_rec.COL270 = FND_API.g_miss_char THEN
4373 x_complete_rec.COL270 := l_entry_rec.COL270;
4374 END IF;
4375
4376
4377 IF p_entry_rec.COL271 = FND_API.g_miss_char THEN
4378 x_complete_rec.COL271 := l_entry_rec.COL271;
4379 END IF;
4380
4381
4382 IF p_entry_rec.COL272 = FND_API.g_miss_char THEN
4383 x_complete_rec.COL272 := l_entry_rec.COL272;
4384 END IF;
4385
4386
4387 IF p_entry_rec.COL273 = FND_API.g_miss_char THEN
4388 x_complete_rec.COL273 := l_entry_rec.COL273;
4389 END IF;
4390
4391
4392 IF p_entry_rec.COL274 = FND_API.g_miss_char THEN
4393 x_complete_rec.COL274 := l_entry_rec.COL274;
4394 END IF;
4395
4396
4397 IF p_entry_rec.COL275 = FND_API.g_miss_char THEN
4398 x_complete_rec.COL275 := l_entry_rec.COL275;
4399 END IF;
4400
4401
4402 IF p_entry_rec.COL276 = FND_API.g_miss_char THEN
4403 x_complete_rec.COL276 := l_entry_rec.COL276;
4404 END IF;
4405
4406
4407 IF p_entry_rec.COL277 = FND_API.g_miss_char THEN
4408 x_complete_rec.COL277 := l_entry_rec.COL277;
4409 END IF;
4410
4411
4412 IF p_entry_rec.COL278 = FND_API.g_miss_char THEN
4413 x_complete_rec.COL278 := l_entry_rec.COL278;
4414 END IF;
4415
4416
4417 IF p_entry_rec.COL279 = FND_API.g_miss_char THEN
4418 x_complete_rec.COL279 := l_entry_rec.COL279;
4419 END IF;
4420
4421
4422 IF p_entry_rec.COL280 = FND_API.g_miss_char THEN
4423 x_complete_rec.COL280 := l_entry_rec.COL280;
4424 END IF;
4425
4426
4427 IF p_entry_rec.COL281 = FND_API.g_miss_char THEN
4428 x_complete_rec.COL281 := l_entry_rec.COL281;
4429 END IF;
4430
4431
4432 IF p_entry_rec.COL282 = FND_API.g_miss_char THEN
4433 x_complete_rec.COL282 := l_entry_rec.COL282;
4434 END IF;
4435
4436
4437 IF p_entry_rec.COL283 = FND_API.g_miss_char THEN
4438 x_complete_rec.COL283 := l_entry_rec.COL283;
4439 END IF;
4440
4441
4442 IF p_entry_rec.COL284 = FND_API.g_miss_char THEN
4443 x_complete_rec.COL284 := l_entry_rec.COL284;
4444 END IF;
4445
4446
4447 IF p_entry_rec.COL285 = FND_API.g_miss_char THEN
4448 x_complete_rec.COL285 := l_entry_rec.COL285;
4449 END IF;
4450
4451
4452 IF p_entry_rec.COL286 = FND_API.g_miss_char THEN
4453 x_complete_rec.COL286 := l_entry_rec.COL286;
4454 END IF;
4455
4456
4457 IF p_entry_rec.COL287 = FND_API.g_miss_char THEN
4458 x_complete_rec.COL287 := l_entry_rec.COL287;
4459 END IF;
4460
4461
4462 IF p_entry_rec.COL288 = FND_API.g_miss_char THEN
4463 x_complete_rec.COL288 := l_entry_rec.COL288;
4464 END IF;
4465
4466
4467 IF p_entry_rec.COL289 = FND_API.g_miss_char THEN
4468 x_complete_rec.COL289 := l_entry_rec.COL289;
4469 END IF;
4470
4471
4472 IF p_entry_rec.COL290 = FND_API.g_miss_char THEN
4473 x_complete_rec.COL290 := l_entry_rec.COL290;
4474 END IF;
4475
4476
4477 IF p_entry_rec.COL291 = FND_API.g_miss_char THEN
4478 x_complete_rec.COL291 := l_entry_rec.COL291;
4479 END IF;
4480
4481
4482 IF p_entry_rec.COL292 = FND_API.g_miss_char THEN
4483 x_complete_rec.COL292 := l_entry_rec.COL292;
4484 END IF;
4485
4486
4487 IF p_entry_rec.COL293 = FND_API.g_miss_char THEN
4488 x_complete_rec.COL293 := l_entry_rec.COL293;
4489 END IF;
4490
4491
4492 IF p_entry_rec.COL294 = FND_API.g_miss_char THEN
4493 x_complete_rec.COL294 := l_entry_rec.COL294;
4494 END IF;
4495
4496
4497 IF p_entry_rec.COL295 = FND_API.g_miss_char THEN
4498 x_complete_rec.COL295 := l_entry_rec.COL295;
4499 END IF;
4500
4501
4502 IF p_entry_rec.COL296 = FND_API.g_miss_char THEN
4503 x_complete_rec.COL296 := l_entry_rec.COL296;
4504 END IF;
4505
4506
4507 IF p_entry_rec.COL297 = FND_API.g_miss_char THEN
4508 x_complete_rec.COL297 := l_entry_rec.COL297;
4509 END IF;
4510
4511
4512 IF p_entry_rec.COL298 = FND_API.g_miss_char THEN
4513 x_complete_rec.COL298 := l_entry_rec.COL298;
4514 END IF;
4515
4516
4517 IF p_entry_rec.COL299 = FND_API.g_miss_char THEN
4518 x_complete_rec.COL299 := l_entry_rec.COL299;
4519 END IF;
4520
4521
4522 IF p_entry_rec.COL300 = FND_API.g_miss_char THEN
4523 x_complete_rec.COL300 := l_entry_rec.COL300;
4524 END IF;
4525
4526
4527 IF p_entry_rec.ADDRESS_LINE1 = FND_API.g_miss_char THEN
4528 x_complete_rec.ADDRESS_LINE1 := l_entry_rec.ADDRESS_LINE1;
4529 END IF;
4530
4531
4532 IF p_entry_rec.ADDRESS_LINE2 = FND_API.g_miss_char THEN
4536
4533 x_complete_rec.ADDRESS_LINE2 := l_entry_rec.ADDRESS_LINE2;
4534 END IF;
4535
4537 IF p_entry_rec.CALLBACK_FLAG = FND_API.g_miss_char THEN
4538 x_complete_rec.CALLBACK_FLAG := l_entry_rec.CALLBACK_FLAG;
4539 END IF;
4540
4541
4542 IF p_entry_rec.CITY = FND_API.g_miss_char THEN
4543 x_complete_rec.CITY := l_entry_rec.CITY;
4544 END IF;
4545
4546
4547 IF p_entry_rec.COUNTRY = FND_API.g_miss_char THEN
4548 x_complete_rec.COUNTRY := l_entry_rec.COUNTRY;
4549 END IF;
4550
4551
4552 IF p_entry_rec.DO_NOT_USE_FLAG = FND_API.g_miss_char THEN
4553 x_complete_rec.DO_NOT_USE_FLAG := l_entry_rec.DO_NOT_USE_FLAG;
4554 END IF;
4555
4556
4557 IF p_entry_rec.DO_NOT_USE_REASON = FND_API.g_miss_char THEN
4558 x_complete_rec.DO_NOT_USE_REASON := l_entry_rec.DO_NOT_USE_REASON;
4559 END IF;
4560
4561
4562 IF p_entry_rec.EMAIL_ADDRESS = FND_API.g_miss_char THEN
4563 x_complete_rec.EMAIL_ADDRESS := l_entry_rec.EMAIL_ADDRESS;
4564 END IF;
4565
4566
4567 IF p_entry_rec.FAX = FND_API.g_miss_char THEN
4568 x_complete_rec.FAX := l_entry_rec.FAX;
4569 END IF;
4570
4571
4572 IF p_entry_rec.PHONE = FND_API.g_miss_char THEN
4573 x_complete_rec.PHONE := l_entry_rec.PHONE;
4574 END IF;
4575
4576
4577 IF p_entry_rec.RECORD_OUT_FLAG = FND_API.g_miss_char THEN
4578 x_complete_rec.RECORD_OUT_FLAG := l_entry_rec.RECORD_OUT_FLAG;
4579 END IF;
4580
4581
4582 IF p_entry_rec.STATE = FND_API.g_miss_char THEN
4583 x_complete_rec.STATE := l_entry_rec.STATE;
4584 END IF;
4585
4586
4587 IF p_entry_rec.SUFFIX = FND_API.g_miss_char THEN
4588 x_complete_rec.SUFFIX := l_entry_rec.SUFFIX;
4589 END IF;
4590
4591
4592 IF p_entry_rec.TITLE = FND_API.g_miss_char THEN
4593 x_complete_rec.TITLE := l_entry_rec.TITLE;
4594 END IF;
4595
4596
4597 IF p_entry_rec.USAGE_RESTRICTION = FND_API.g_miss_char THEN
4598 x_complete_rec.USAGE_RESTRICTION := l_entry_rec.USAGE_RESTRICTION;
4599 END IF;
4600
4601
4602 IF p_entry_rec.ZIPCODE = FND_API.g_miss_char THEN
4603 x_complete_rec.ZIPCODE := l_entry_rec.ZIPCODE;
4604 END IF;
4605
4606
4607 IF p_entry_rec.CURR_CP_COUNTRY_CODE = FND_API.g_miss_char THEN
4608 x_complete_rec.CURR_CP_COUNTRY_CODE := l_entry_rec.CURR_CP_COUNTRY_CODE;
4609 END IF;
4610
4611
4612 IF p_entry_rec.CURR_CP_PHONE_NUMBER = FND_API.g_miss_char THEN
4613 x_complete_rec.CURR_CP_PHONE_NUMBER := l_entry_rec.CURR_CP_PHONE_NUMBER;
4614 END IF;
4615
4616
4617 IF p_entry_rec.CURR_CP_RAW_PHONE_NUMBER = FND_API.g_miss_char THEN
4618 x_complete_rec.CURR_CP_RAW_PHONE_NUMBER := l_entry_rec.CURR_CP_RAW_PHONE_NUMBER;
4619 END IF;
4620
4621
4622 IF p_entry_rec.CURR_CP_AREA_CODE = FND_API.g_miss_num THEN
4623 x_complete_rec.CURR_CP_AREA_CODE := l_entry_rec.CURR_CP_AREA_CODE;
4624 END IF;
4625
4626
4627 IF p_entry_rec.CURR_CP_ID = FND_API.g_miss_num THEN
4628 x_complete_rec.CURR_CP_ID := l_entry_rec.CURR_CP_ID;
4629 END IF;
4630
4631
4632 IF p_entry_rec.CURR_CP_INDEX = FND_API.g_miss_num THEN
4633 x_complete_rec.CURR_CP_INDEX := l_entry_rec.CURR_CP_INDEX;
4634 END IF;
4635
4636
4637 IF p_entry_rec.CURR_CP_TIME_ZONE = FND_API.g_miss_num THEN
4638 x_complete_rec.CURR_CP_TIME_ZONE := l_entry_rec.CURR_CP_TIME_ZONE;
4639 END IF;
4640
4641
4642 IF p_entry_rec.CURR_CP_TIME_ZONE_AUX = FND_API.g_miss_num THEN
4643 x_complete_rec.CURR_CP_TIME_ZONE_AUX := l_entry_rec.CURR_CP_TIME_ZONE_AUX;
4644 END IF;
4645
4646
4647 IF p_entry_rec.IMP_SOURCE_LINE_ID = FND_API.g_miss_num THEN
4648 x_complete_rec.IMP_SOURCE_LINE_ID := l_entry_rec.IMP_SOURCE_LINE_ID;
4649 END IF;
4650
4651
4652 IF p_entry_rec.NEXT_CALL_TIME = FND_API.g_miss_date THEN
4653 x_complete_rec.NEXT_CALL_TIME := l_entry_rec.NEXT_CALL_TIME;
4654 END IF;
4655
4656
4657 IF p_entry_rec.RECORD_RELEASE_TIME = FND_API.g_miss_date THEN
4658 x_complete_rec.RECORD_RELEASE_TIME := l_entry_rec.RECORD_RELEASE_TIME;
4659 END IF;
4660
4661 --added 06-Jun-2000 tdonohoe
4662 IF p_entry_rec.PARTY_ID = FND_API.g_miss_num THEN
4663 x_complete_rec.PARTY_ID := l_entry_rec.PARTY_ID;
4664 END IF;
4665 --end added 06-Jun-2000 tdonohoe
4666
4667 --added 06-Jun-2000 tdonohoe
4668 IF p_entry_rec.PARENT_PARTY_ID = FND_API.g_miss_num THEN
4669 x_complete_rec.PARENT_PARTY_ID := l_entry_rec.PARENT_PARTY_ID;
4670 END IF;
4671 --end added 06-Jun-2000 tdonohoe
4672
4673
4674 END complete_entry_rec;
4675
4676
4677 ---------------------------------------------------------------------
4678 -- PROCEDURE
4679 -- update_listentry_source_code
4680 --
4681 -- PURPOSE
4682 -- Updates The Source_Code and Arc_List_Used_By_Source fields on The List Entry table.
4683
4684 -- A List may be generated without a Source Code Associated , in this case the two columns
4685 -- will be defaulted to NONE and 0.
4686
4687 -- If The List later gets a Source code we must update the two columns to reflect this change
4688 -- to allow list tracking from the interactions table.
4689
4693 -- HISTORY
4690 -- PARAMETERS
4691 -- p_list_id -- the list header id.
4692 -- NOTES
4694 -- 06-Jan-2000 choang Modified call to get_source_code to include
4695 -- x_source_id.
4696 ---------------------------------------------------------------------
4697
4698 PROCEDURE Update_ListEntry_Source_Code(
4699 p_api_version IN NUMBER,
4700 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
4701 p_commit IN VARCHAR2 := FND_API.g_false,
4702 p_validation_level IN NUMBER := FND_API.g_valid_level_full,
4703
4704 x_return_status OUT NOCOPY VARCHAR2,
4705 x_msg_count OUT NOCOPY NUMBER,
4706 x_msg_data OUT NOCOPY VARCHAR2,
4707
4708 p_list_id IN NUMBER
4709 ) IS
4710
4711 l_api_name CONSTANT VARCHAR2(30) := 'Update_ListEntry_Source_Code';
4712 l_api_version CONSTANT NUMBER := 1.0;
4713
4714 --taken from ams_list_headers_all table.
4715 l_list_used_by_id NUMBER;
4716 l_arc_list_used_by VARCHAR2(30);
4717
4718
4719 l_return_status VARCHAR2(1);
4720 l_source_code VARCHAR2(30);
4721 l_source_id NUMBER;
4722
4723 Cursor C_Header_Dets Is Select list_used_by_id,
4724 arc_list_used_by
4725 From ams_list_headers_all
4726 where list_header_id = p_list_id;
4727
4728 Cursor C_Current_Code IS select max(Source_Code)
4729 from ams_list_entries
4730 where list_header_id = p_list_id;
4731
4732 l_current_code varchar(30);
4733
4734 l_source_code_flag varchar2(1) := 'N' ;
4735 l_campaign_id number;
4736 Cursor c_camp_source_code(cur_list_used_by_id number) is
4737 select cp.campaign_id , cp.cascade_source_code_flag
4738 from ams_campaigns_all_b cp ,
4739 ams_campaign_schedules sc
4740 where sc.campaign_id = cp.campaign_id
4741 and sc.CAMPAIGN_SCHEDULE_ID = cur_list_used_by_id ;
4742
4743
4744 Begin
4745
4746 -- Standard Start of API savepoint
4747 SAVEPOINT Update_ListEntry_Source_Code;
4748
4749 -- Standard call to check for call compatibility.
4750 IF NOT FND_API.Compatible_API_Call ( l_api_version,
4751 p_api_version,
4752 l_api_name,
4753 G_PKG_NAME)
4754 THEN
4755 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4756 END IF;
4757
4758
4759 -- Initialize message list IF p_init_msg_list is set to TRUE.
4760 IF FND_API.to_Boolean( p_init_msg_list ) THEN
4761 FND_MSG_PUB.initialize;
4762 END IF;
4763
4764 -- Debug Message
4765 IF (AMS_DEBUG_HIGH_ON) THEN
4766 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
4767 FND_MESSAGE.Set_Token('ROW', 'AMS_ListEntry_PVT.Update_ListEntry_Source_Code: Start', TRUE);
4768 FND_MSG_PUB.Add;
4769 END IF;
4770
4771 -- Initialize API return status to success
4772 x_return_status := FND_API.G_RET_STS_SUCCESS;
4773
4774 Open C_header_dets;
4775 Fetch C_header_dets into l_list_used_by_id,l_arc_list_used_by;
4776 Close C_header_dets;
4777
4778 Open C_Current_Code;
4779 Fetch C_Current_Code into l_current_code;
4780 Close C_Current_Code;
4781
4782 if l_arc_list_used_by = 'CSCH' then
4783 open c_camp_source_code(l_list_used_by_id );
4784 fetch c_camp_source_code into
4785 l_campaign_id , l_source_code_flag ;
4786 close c_camp_source_code;
4787 end if;
4788
4789 if(l_arc_list_used_by <> 'NONE')then
4790 if l_source_code_flag = 'Y' then
4791 ams_utility_pvt.get_source_code(
4792 p_activity_type => 'CAMP',
4793 p_activity_id => l_campaign_id,
4794 x_return_status => l_return_status,
4795 x_source_code => l_source_code,
4796 x_source_id => l_source_id);
4797 else
4798 ams_utility_pvt.get_source_code(
4799 p_activity_type => l_arc_list_used_by,
4800 p_activity_id => l_list_used_by_id,
4801 x_return_status => l_return_status,
4802 x_source_code => l_source_code,
4803 x_source_id => l_source_id);
4804 end if;
4805
4806
4807 --found a valid source code
4808 if(l_return_status = FND_API.G_TRUE)then
4809 if(l_current_code <> l_source_code)then
4810 update ams_list_entries
4811 set source_code = l_source_code,
4812 arc_list_used_by_source = l_arc_list_used_by,
4813 source_code_for_id = l_list_used_by_id
4814 where list_header_id = p_list_id;
4815 end if;
4816 end if;
4817 end if;
4818
4819 -- MMSG
4820 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
4821 THEN
4822 FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
4823 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry_Source_Code', TRUE);
4824 FND_MSG_PUB.Add;
4825 END IF;
4826
4827
4828 IF (AMS_DEBUG_HIGH_ON) THEN
4829 FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
4830 FND_MESSAGE.Set_Token('ROW', 'AMS_List_Entry_PVT.Update_ListEntry_Source_Code: END', TRUE);
4831 FND_MSG_PUB.Add;
4832 END IF;
4833
4834 -- Standard call to get message count AND IF count is 1, get message info.
4835 FND_MSG_PUB.Count_AND_Get
4836 ( p_count => x_msg_count,
4837 p_data => x_msg_data,
4838 p_encoded => FND_API.G_FALSE
4839 );
4840
4841
4842
4843 EXCEPTION
4844
4845 WHEN FND_API.G_EXC_ERROR THEN
4846
4847 x_return_status := FND_API.G_RET_STS_ERROR ;
4848
4849 FND_MSG_PUB.Count_AND_Get
4850 ( p_count => x_msg_count,
4851 p_data => x_msg_data,
4852 p_encoded => FND_API.G_FALSE
4853 );
4854
4855
4856 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4857
4858 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4859
4860 FND_MSG_PUB.Count_AND_Get
4861 ( p_count => x_msg_count,
4862 p_data => x_msg_data,
4863 p_encoded => FND_API.G_FALSE
4864 );
4865
4866 WHEN AMS_Utility_PVT.RESOURCE_LOCKED THEN
4867
4868 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4869
4870 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
4871 THEN -- MMSG
4872 FND_MESSAGE.SET_NAME('AMS','API_RESOURCE_LOCKED');
4873 FND_MSG_PUB.Add;
4874 END IF;
4875
4876 FND_MSG_PUB.Count_AND_Get
4877 ( p_count => x_msg_count,
4878 p_data => x_msg_data,
4879 p_encoded => FND_API.G_FALSE
4880 );
4881
4882 WHEN OTHERS THEN
4883
4884 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4885
4886 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4887 THEN
4888 FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
4889 END IF;
4890
4891 FND_MSG_PUB.Count_AND_Get
4892 ( p_count => x_msg_count,
4893 p_data => x_msg_data,
4894 p_encoded => FND_API.G_FALSE
4895 );
4896
4897 End update_listentry_source_code;
4898
4899
4900 END AMS_ListEntry_PVT;