40:
41: G_PKG_NAME CONSTANT VARCHAR2(30):='AMS_ListHeader_PVT';
42: G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlshb.pls';
43:
44: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
45: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
46: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
47:
48: -- Start of Comments
41: G_PKG_NAME CONSTANT VARCHAR2(30):='AMS_ListHeader_PVT';
42: G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlshb.pls';
43:
44: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
45: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
46: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
47:
48: -- Start of Comments
49: --
42: G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlshb.pls';
43:
44: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
45: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
46: AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
47:
48: -- Start of Comments
49: --
50: -- NAME
102: ----------------------- ENABLE_LOG_FLAG ------------------------
103: IF p_listheader_rec.ENABLE_LOG_FLAG <> FND_API.g_miss_char
104: AND p_listheader_rec.ENABLE_LOG_FLAG IS NOT NULL THEN
105: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLE_LOG_FLAG) = FND_API.g_false THEN
106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
107: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_LOG_FLAG');
108: FND_MSG_PUB.add;
109: END IF;
110: x_return_status := FND_API.g_ret_sts_error;
104: AND p_listheader_rec.ENABLE_LOG_FLAG IS NOT NULL THEN
105: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLE_LOG_FLAG) = FND_API.g_false THEN
106: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
107: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_LOG_FLAG');
108: FND_MSG_PUB.add;
109: END IF;
110: x_return_status := FND_API.g_ret_sts_error;
111: RETURN;
112: END IF;
115: ----------------------- ENABLE_WORD_REPLACEMENT_FLAG------------------------
116: IF p_listheader_rec.ENABLE_WORD_REPLACEMENT_FLAG <> FND_API.g_miss_char
117: AND p_listheader_rec.ENABLE_WORD_REPLACEMENT_FLAG IS NOT NULL THEN
118: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLE_WORD_REPLACEMENT_FLAG) = FND_API.g_false THEN
119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
120: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_WORD_FLAG');
121: FND_MSG_PUB.add;
122: END IF;
123:
117: AND p_listheader_rec.ENABLE_WORD_REPLACEMENT_FLAG IS NOT NULL THEN
118: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLE_WORD_REPLACEMENT_FLAG) = FND_API.g_false THEN
119: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
120: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_WORD_FLAG');
121: FND_MSG_PUB.add;
122: END IF;
123:
124: x_return_status := FND_API.g_ret_sts_error;
125: RETURN;
129: ----------------------- ENABLE_PARALLEL_DML_FLAG------------------------
130: IF p_listheader_rec.ENABLE_PARALLEL_DML_FLAG <> FND_API.g_miss_char
131: AND p_listheader_rec.ENABLE_PARALLEL_DML_FLAG IS NOT NULL THEN
132: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLE_PARALLEL_DML_FLAG) = FND_API.g_false THEN
133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
134: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_DML_FLAG');
135: FND_MSG_PUB.add;
136: END IF;
137:
131: AND p_listheader_rec.ENABLE_PARALLEL_DML_FLAG IS NOT NULL THEN
132: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLE_PARALLEL_DML_FLAG) = FND_API.g_false THEN
133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
134: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_DML_FLAG');
135: FND_MSG_PUB.add;
136: END IF;
137:
138: x_return_status := FND_API.g_ret_sts_error;
139: RETURN;
143: ----------------------- DEDUPE_DURING_GENERATION_FLAG ------------------------
144: IF p_listheader_rec.DEDUPE_DURING_GENERATION_FLAG <> FND_API.g_miss_char
145: AND p_listheader_rec.DEDUPE_DURING_GENERATION_FLAG IS NOT NULL THEN
146: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.DEDUPE_DURING_GENERATION_FLAG) = FND_API.g_false THEN
147: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
148: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_DEDUPE_FLAG');
149: FND_MSG_PUB.add;
150: END IF;
151:
145: AND p_listheader_rec.DEDUPE_DURING_GENERATION_FLAG IS NOT NULL THEN
146: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.DEDUPE_DURING_GENERATION_FLAG) = FND_API.g_false THEN
147: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
148: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_DEDUPE_FLAG');
149: FND_MSG_PUB.add;
150: END IF;
151:
152: x_return_status := FND_API.g_ret_sts_error;
153: RETURN;
158: IF p_listheader_rec.GENERATE_CONTROL_GROUP_FLAG <> FND_API.g_miss_char
159: AND p_listheader_rec.GENERATE_CONTROL_GROUP_FLAG IS NOT NULL THEN
160: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.GENERATE_CONTROL_GROUP_FLAG) = FND_API.g_false
161: THEN
162: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
163: THEN
164: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_CONTROL_FLAG');
165: FND_MSG_PUB.add;
166: END IF;
161: THEN
162: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
163: THEN
164: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_CONTROL_FLAG');
165: FND_MSG_PUB.add;
166: END IF;
167:
168: x_return_status := FND_API.g_ret_sts_error;
169: RETURN;
176: AND p_listheader_rec.LAST_GENERATION_SUCCESS_FLAG IS NOT NULL
177: THEN
178: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.LAST_GENERATION_SUCCESS_FLAG ) = FND_API.g_false
179: THEN
180: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
181: THEN
182: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_GEN_FLAG');
183: FND_MSG_PUB.add;
184: END IF;
179: THEN
180: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
181: THEN
182: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_GEN_FLAG');
183: FND_MSG_PUB.add;
184: END IF;
185:
186: x_return_status := FND_API.g_ret_sts_error;
187: RETURN;
195: AND p_listheader_rec.ENABLED_FLAG IS NOT NULL
196: THEN
197: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.ENABLED_FLAG ) = FND_API.g_false
198: THEN
199: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
200: THEN
201: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
202: FND_MSG_PUB.add;
203: END IF;
198: THEN
199: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
200: THEN
201: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_ENABLED_FLAG');
202: FND_MSG_PUB.add;
203: END IF;
204:
205: x_return_status := FND_API.g_ret_sts_error;
206: RETURN;
214: AND p_listheader_rec.PURGE_FLAG IS NOT NULL
215: THEN
216: IF AMS_Utility_PVT.is_Y_or_N(p_listheader_rec.PURGE_FLAG ) = FND_API.g_false
217: THEN
218: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
219: THEN
220: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_PURGE_FLAG');
221: FND_MSG_PUB.add;
222: END IF;
217: THEN
218: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
219: THEN
220: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_PURGE_FLAG');
221: FND_MSG_PUB.add;
222: END IF;
223:
224: x_return_status := FND_API.g_ret_sts_error;
225: RETURN;
262: x_system_status_code => x_status_code,
263: x_return_status => x_return_status) ;
264:
265: if x_return_status = FND_API.g_ret_sts_error THEN
266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
267: FND_MESSAGE.set_name('AMS', 'AMS_LIST_STATUS_INVALID');
268: FND_MSG_PUB.add;
269: END IF;
270: RETURN;
264:
265: if x_return_status = FND_API.g_ret_sts_error THEN
266: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
267: FND_MESSAGE.set_name('AMS', 'AMS_LIST_STATUS_INVALID');
268: FND_MSG_PUB.add;
269: END IF;
270: RETURN;
271: end if;
272: END IF;
278: IF AMS_Utility_PVT.check_lookup_exists(
279: p_lookup_type => 'AMS_LIST_STATUS',
280: p_lookup_code => p_listheader_rec.status_code
281: ) = FND_API.g_false THEN
282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
283: FND_MESSAGE.set_name('AMS', 'AMS_LIST_STATUS_INVALID');
284: FND_MSG_PUB.add;
285: END IF;
286:
280: p_lookup_code => p_listheader_rec.status_code
281: ) = FND_API.g_false THEN
282: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
283: FND_MESSAGE.set_name('AMS', 'AMS_LIST_STATUS_INVALID');
284: FND_MSG_PUB.add;
285: END IF;
286:
287: x_return_status := FND_API.g_ret_sts_error;
288: RETURN;
296: IF AMS_Utility_PVT.check_lookup_exists(
297: p_lookup_type => 'AMS_LIST_GENERATION_TYPE',
298: p_lookup_code => p_listheader_rec.generation_type
299: ) = FND_API.g_false THEN
300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
301: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_GEN_TYPE');
302: FND_MSG_PUB.add;
303: END IF;
304: x_return_status := FND_API.g_ret_sts_error;
298: p_lookup_code => p_listheader_rec.generation_type
299: ) = FND_API.g_false THEN
300: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
301: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_GEN_TYPE');
302: FND_MSG_PUB.add;
303: END IF;
304: x_return_status := FND_API.g_ret_sts_error;
305: RETURN;
306: END IF;
312: IF AMS_Utility_PVT.check_lookup_exists(
313: p_lookup_type => 'AMS_LIST_ROW_SELECT_TYPE',
314: p_lookup_code => p_listheader_rec.row_selection_type
315: ) = FND_API.g_false THEN
316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
317: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_ROW_SELECT_TYPE');
318: FND_MSG_PUB.add;
319: END IF;
320: x_return_status := FND_API.g_ret_sts_error;
314: p_lookup_code => p_listheader_rec.row_selection_type
315: ) = FND_API.g_false THEN
316: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
317: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_ROW_SELECT_TYPE');
318: FND_MSG_PUB.add;
319: END IF;
320: x_return_status := FND_API.g_ret_sts_error;
321: RETURN;
322: END IF;
328: IF AMS_Utility_PVT.check_lookup_exists(
329: p_lookup_type => 'AMS_LIST_TYPE',
330: p_lookup_code => p_listheader_rec.list_type
331: ) = FND_API.g_false THEN
332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_LIST_TYPE_INVALID');
334: FND_MSG_PUB.add;
335: END IF;
336:
330: p_lookup_code => p_listheader_rec.list_type
331: ) = FND_API.g_false THEN
332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
333: FND_MESSAGE.set_name('AMS', 'AMS_LIST_TYPE_INVALID');
334: FND_MSG_PUB.add;
335: END IF;
336:
337: x_return_status := FND_API.g_ret_sts_error;
338: RETURN;
348: open c_check_source_type(p_listheader_rec.list_source_type );
349: fetch c_check_source_type into l_valid_flag;
350: close c_check_source_type;
351: IF l_valid_flag = 'N' THEN
352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
353: FND_MESSAGE.set_name('AMS', 'AMS_LIST_SOURCE_TYPE_INVALID');
354: FND_MSG_PUB.add;
355: END IF;
356:
350: close c_check_source_type;
351: IF l_valid_flag = 'N' THEN
352: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
353: FND_MESSAGE.set_name('AMS', 'AMS_LIST_SOURCE_TYPE_INVALID');
354: FND_MSG_PUB.add;
355: END IF;
356:
357: x_return_status := FND_API.g_ret_sts_error;
358: RETURN;
367: IF AMS_Utility_PVT.check_lookup_exists(
368: p_lookup_type => 'AMS_ACTIVITY_PURPOSES',
369: p_lookup_code => p_listheader_rec.purpose_code
370: ) = FND_API.g_false THEN
371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
372: FND_MESSAGE.set_name('AMS', 'AMS_LIST_PURPOSE_INVALID');
373: FND_MSG_PUB.add;
374: END IF;
375:
369: p_lookup_code => p_listheader_rec.purpose_code
370: ) = FND_API.g_false THEN
371: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
372: FND_MESSAGE.set_name('AMS', 'AMS_LIST_PURPOSE_INVALID');
373: FND_MSG_PUB.add;
374: END IF;
375:
376: x_return_status := FND_API.g_ret_sts_error;
377: RETURN;
404: 'fnd_timezones_b',
405: 'upgrade_tz_id',
406: p_listheader_rec.timezone_id
407: ) = FND_API.g_false THEN
408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
409: THEN
410: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_TIMEZONE_ID');
411: FND_MSG_PUB.add;
412: END IF;
407: ) = FND_API.g_false THEN
408: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
409: THEN
410: FND_MESSAGE.set_name('AMS', 'AMS_LIST_BAD_TIMEZONE_ID');
411: FND_MSG_PUB.add;
412: END IF;
413:
414: x_return_status := FND_API.g_ret_sts_error;
415: RETURN;
516: 'ams_list_headers_all',
517: 'list_header_id = ' || p_listheader_rec.list_header_id
518: ) = FND_API.g_false
519: THEN
520: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
521: THEN
522: FND_MESSAGE.set_name('AMS', 'AMS_LIST_PK_EXISTS');
523: FND_MSG_PUB.add;
524: END IF;
519: THEN
520: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
521: THEN
522: FND_MESSAGE.set_name('AMS', 'AMS_LIST_PK_EXISTS');
523: FND_MSG_PUB.add;
524: END IF;
525:
526: x_return_status := FND_API.g_ret_sts_error;
527: RETURN;
555: END IF;
556: END IF;
557:
558: IF l_valid_flag = FND_API.g_false THEN
559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
560: THEN
561: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPLICATE_NAME');
562: FND_MSG_PUB.add;
563: END IF;
558: IF l_valid_flag = FND_API.g_false THEN
559: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
560: THEN
561: FND_MESSAGE.set_name('AMS', 'AMS_LIST_DUPLICATE_NAME');
562: FND_MSG_PUB.add;
563: END IF;
564: x_return_status := FND_API.g_ret_sts_error;
565: RETURN;
566: END IF;
592: -----------------------------------------------------------------------
593: --The List Name is Mandatory.
594: -----------------------------------------------------------------------
595: IF(p_listheader_rec.list_name IS NULL) THEN
596: IF(FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR))THEN
597: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_NAME_MISSING');
598: FND_MSG_PUB.Add;
599: END IF;
600: x_return_status := FND_API.G_RET_STS_ERROR;
594: -----------------------------------------------------------------------
595: IF(p_listheader_rec.list_name IS NULL) THEN
596: IF(FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR))THEN
597: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_NAME_MISSING');
598: FND_MSG_PUB.Add;
599: END IF;
600: x_return_status := FND_API.G_RET_STS_ERROR;
601: -- If any errors happen abort API/Procedure.
602: return;
605: -----------------------------------------------------------------------
606: --The List Type is Mandatory.
607: -----------------------------------------------------------------------
608: IF (p_listheader_rec.list_type IS NULL) THEN
609: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
610: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_TYPE_MISSING');
611: FND_MSG_PUB.Add;
612: END IF;
613: x_return_status := FND_API.G_RET_STS_ERROR;
607: -----------------------------------------------------------------------
608: IF (p_listheader_rec.list_type IS NULL) THEN
609: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
610: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_TYPE_MISSING');
611: FND_MSG_PUB.Add;
612: END IF;
613: x_return_status := FND_API.G_RET_STS_ERROR;
614: return;
615: END IF;
617: -----------------------------------------------------------------------
618: --The List source Type is Mandatory.
619: -----------------------------------------------------------------------
620: IF (p_listheader_rec.list_source_type IS NULL) THEN
621: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
622: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_SOURCE_TYPE_MISSING');
623: FND_MSG_PUB.Add;
624: END IF;
625: x_return_status := FND_API.G_RET_STS_ERROR;
619: -----------------------------------------------------------------------
620: IF (p_listheader_rec.list_source_type IS NULL) THEN
621: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
622: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_SOURCE_TYPE_MISSING');
623: FND_MSG_PUB.Add;
624: END IF;
625: x_return_status := FND_API.G_RET_STS_ERROR;
626: return;
627: END IF;
629: -----------------------------------------------------------------------
630: --The List Owner User Id is Mandatory.
631: -----------------------------------------------------------------------
632: IF (p_listheader_rec.owner_user_id IS NULL) THEN
633: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
634: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_OWNER_MISSING');
635: FND_MSG_PUB.Add;
636: END IF;
637: x_return_status := FND_API.G_RET_STS_ERROR;
631: -----------------------------------------------------------------------
632: IF (p_listheader_rec.owner_user_id IS NULL) THEN
633: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
634: FND_MESSAGE.Set_Name('AMS', 'AMS_LIST_OWNER_MISSING');
635: FND_MSG_PUB.Add;
636: END IF;
637: x_return_status := FND_API.G_RET_STS_ERROR;
638: return;
639: END IF;
646: THEN
647:
648: IF ((p_listheader_rec.MAIN_RANDOM_PCT_ROW_SELECTION < 0) OR
649: (p_listheader_rec.MAIN_RANDOM_PCT_ROW_SELECTION >= 100) )THEN
650: IF(FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
651: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RANDOM_PCT');
652: FND_MESSAGE.Set_Token('RAND_VALUE',p_listheader_rec.MAIN_RANDOM_PCT_ROW_SELECTION);
653: FND_MSG_PUB.Add;
654: END IF;
649: (p_listheader_rec.MAIN_RANDOM_PCT_ROW_SELECTION >= 100) )THEN
650: IF(FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
651: FND_MESSAGE.set_name('AMS', 'AMS_LIST_RANDOM_PCT');
652: FND_MESSAGE.Set_Token('RAND_VALUE',p_listheader_rec.MAIN_RANDOM_PCT_ROW_SELECTION);
653: FND_MSG_PUB.Add;
654: END IF;
655: x_return_status := FND_API.G_RET_STS_ERROR;
656: RAISE FND_API.G_EXC_ERROR;
657: END IF;
664: (p_listheader_rec.CTRL_RANDOM_PCT_ROW_SELECTION <> FND_API.G_MISS_NUM)
665: THEN
666: IF ((p_listheader_rec.CTRL_RANDOM_PCT_ROW_SELECTION < 0) OR
667: (p_listheader_rec.CTRL_RANDOM_PCT_ROW_SELECTION > 100) )THEN
668: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
669: FND_MESSAGE.set_name('AMS', 'AMS_LIST_CONTROL_PCT_INVALID');
670: FND_MSG_PUB.Add;
671: END IF;
672: x_return_status := FND_API.G_RET_STS_ERROR;
666: IF ((p_listheader_rec.CTRL_RANDOM_PCT_ROW_SELECTION < 0) OR
667: (p_listheader_rec.CTRL_RANDOM_PCT_ROW_SELECTION > 100) )THEN
668: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
669: FND_MESSAGE.set_name('AMS', 'AMS_LIST_CONTROL_PCT_INVALID');
670: FND_MSG_PUB.Add;
671: END IF;
672: x_return_status := FND_API.G_RET_STS_ERROR;
673: RAISE FND_API.G_EXC_ERROR;
674: END IF;
679: WHEN FND_API.g_exc_unexpected_error THEN
680: x_return_status := FND_API.g_ret_sts_unexp_error ;
681: WHEN OTHERS THEN
682: x_return_status := FND_API.g_ret_sts_unexp_error ;
683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
684: THEN
685: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
686: END IF;
687: END Check_List_Req_Items;
681: WHEN OTHERS THEN
682: x_return_status := FND_API.g_ret_sts_unexp_error ;
683: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
684: THEN
685: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
686: END IF;
687: END Check_List_Req_Items;
688:
689:
718: -- Debug Message
719: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
720: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
721: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record: Start', TRUE);
722: FND_MSG_PUB.Add;
723: END IF; */
724:
725:
726: IF (AMS_DEBUG_HIGH_ON) THEN
734:
735: IF (p_listheader_rec.forecasted_start_date <> FND_API.g_miss_date) OR
736: (p_listheader_rec.forecasted_end_date <> FND_API.g_miss_date) THEN
737: IF (l_listheader_rec.forecasted_start_date > l_listheader_rec.forecasted_end_date) THEN
738: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
739: FND_MESSAGE.set_name('AMS', 'AMS_LIST_FCAST_RANGE_INVALID');
740: FND_MSG_PUB.Add;
741: END IF;
742: x_return_status := FND_API.G_RET_STS_ERROR;
736: (p_listheader_rec.forecasted_end_date <> FND_API.g_miss_date) THEN
737: IF (l_listheader_rec.forecasted_start_date > l_listheader_rec.forecasted_end_date) THEN
738: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
739: FND_MESSAGE.set_name('AMS', 'AMS_LIST_FCAST_RANGE_INVALID');
740: FND_MSG_PUB.Add;
741: END IF;
742: x_return_status := FND_API.G_RET_STS_ERROR;
743: RAISE FND_API.G_EXC_ERROR;
744: END IF;
751: (p_listheader_rec.main_gen_end_time <> FND_API.g_miss_date)
752: THEN
753:
754: IF (l_listheader_rec.main_gen_end_time > l_listheader_rec.sent_out_date) THEN
755: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
756: FND_MESSAGE.set_name('AMS', 'AMS_LIST_GEN_START_DATE');
757: FND_MSG_PUB.Add;
758: END IF;
759: x_return_status := FND_API.G_RET_STS_ERROR;
753:
754: IF (l_listheader_rec.main_gen_end_time > l_listheader_rec.sent_out_date) THEN
755: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
756: FND_MESSAGE.set_name('AMS', 'AMS_LIST_GEN_START_DATE');
757: FND_MSG_PUB.Add;
758: END IF;
759: x_return_status := FND_API.G_RET_STS_ERROR;
760: -- If any errors happen abort API/Procedure.
761: RAISE FND_API.G_EXC_ERROR;
768: (p_listheader_rec.no_of_rows_max_requested <> FND_API.g_miss_num)
769: THEN
770:
771: IF l_listheader_rec.no_of_rows_max_requested < 0 THEN
772: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
773: FND_MESSAGE.set_name('AMS', 'AMS_LIST_MIN_MAX_NEGATIVE');
774: FND_MSG_PUB.Add;
775: END IF;
776: x_return_status := FND_API.G_RET_STS_ERROR;
770:
771: IF l_listheader_rec.no_of_rows_max_requested < 0 THEN
772: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
773: FND_MESSAGE.set_name('AMS', 'AMS_LIST_MIN_MAX_NEGATIVE');
774: FND_MSG_PUB.Add;
775: END IF;
776: x_return_status := FND_API.G_RET_STS_ERROR;
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
777: RAISE FND_API.G_EXC_ERROR;
778: END IF;
779:
780: IF l_listheader_rec.no_of_rows_min_requested < 0 THEN
781: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
782: FND_MESSAGE.set_name('AMS', 'AMS_LIST_MIN_MAX_NEGATIVE');
783: FND_MSG_PUB.Add;
784: END IF;
785: x_return_status := FND_API.G_RET_STS_ERROR;
779:
780: IF l_listheader_rec.no_of_rows_min_requested < 0 THEN
781: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
782: FND_MESSAGE.set_name('AMS', 'AMS_LIST_MIN_MAX_NEGATIVE');
783: FND_MSG_PUB.Add;
784: END IF;
785: x_return_status := FND_API.G_RET_STS_ERROR;
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
786: RAISE FND_API.G_EXC_ERROR;
787: END IF;
788:
789: IF l_listheader_rec.no_of_rows_max_requested <= l_listheader_rec.no_of_rows_min_requested THEN
790: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
791: FND_MESSAGE.set_name('AMS', 'AMS_LIST_MIN_MAX_RANGE_INVALID');
792: FND_MSG_PUB.Add;
793: END IF;
794: x_return_status := FND_API.G_RET_STS_ERROR;
788:
789: IF l_listheader_rec.no_of_rows_max_requested <= l_listheader_rec.no_of_rows_min_requested THEN
790: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
791: FND_MESSAGE.set_name('AMS', 'AMS_LIST_MIN_MAX_RANGE_INVALID');
792: FND_MSG_PUB.Add;
793: END IF;
794: x_return_status := FND_API.G_RET_STS_ERROR;
795: RAISE FND_API.G_EXC_ERROR;
796: END IF;
808: x_pk_name => l_pk_name);
809:
810: IF((l_table_name is not null) and (l_pk_name is not null))THEN
811: IF(AMS_UTILITY_PVT.Check_FK_Exists(l_table_name,l_pk_name,p_listheader_rec.list_used_by_id) = FND_API.G_FALSE)THEN
812: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
813: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTIVITY_INVALID');
814: FND_MESSAGE.Set_Token('LIST_ACTIVITY_CODE',p_listheader_rec.arc_list_used_by);
815: FND_MSG_PUB.Add;
816: END IF;
811: IF(AMS_UTILITY_PVT.Check_FK_Exists(l_table_name,l_pk_name,p_listheader_rec.list_used_by_id) = FND_API.G_FALSE)THEN
812: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
813: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTIVITY_INVALID');
814: FND_MESSAGE.Set_Token('LIST_ACTIVITY_CODE',p_listheader_rec.arc_list_used_by);
815: FND_MSG_PUB.Add;
816: END IF;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: -- If any errors happen abort API/Procedure.
819: RAISE FND_API.G_EXC_ERROR;
820: END IF;
821: ELSE
822: -- Error, check the msg level and added an error message to the
823: -- API message list
824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
825: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTIVTY_INVALID');
826: FND_MESSAGE.Set_Token('LIST_ACTIVITY_CODE',p_listheader_rec.arc_list_used_by);
827: FND_MSG_PUB.Add;
828: END IF;
823: -- API message list
824: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)THEN
825: FND_MESSAGE.set_name('AMS', 'AMS_LIST_ACTIVTY_INVALID');
826: FND_MESSAGE.Set_Token('LIST_ACTIVITY_CODE',p_listheader_rec.arc_list_used_by);
827: FND_MSG_PUB.Add;
828: END IF;
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: -- If any errors happen abort API/Procedure.
831: RAISE FND_API.G_EXC_ERROR;
833: END IF;
834: END IF;--The List must be associcated to a valid Marketing Activity.
835:
836: -- Success Message
837: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
838: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
839: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record', TRUE);
840: FND_MSG_PUB.Add;
841: END IF;
836: -- Success Message
837: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
838: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
839: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record', TRUE);
840: FND_MSG_PUB.Add;
841: END IF;
842:
843:
844: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
843:
844: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
845: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
846: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_List_Record: END', TRUE);
847: FND_MSG_PUB.Add;
848: END IF; */
849:
850: EXCEPTION
851: WHEN FND_API.G_EXC_ERROR THEN
890: CLOSE C;
891: IF l_dummy >= 1 THEN
892: -- Error, check the msg level and added an error message to the
893: -- API message list
894: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
895: FND_MESSAGE.set_name('AMS', 'AMS_LIST_PK_EXISTS');
896: FND_MESSAGE.Set_Token('LIST_PK',p_listheader_rec.list_header_id, FALSE);
897: FND_MSG_PUB.Add;
898: END IF;
893: -- API message list
894: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
895: FND_MESSAGE.set_name('AMS', 'AMS_LIST_PK_EXISTS');
896: FND_MESSAGE.Set_Token('LIST_PK',p_listheader_rec.list_header_id, FALSE);
897: FND_MSG_PUB.Add;
898: END IF;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: ELSE
901: x_listheader_id := p_listheader_rec.list_header_id;
1040: END IF;
1041:
1042: -- Initialize message list if p_init_msg_list is set to TRUE.
1043: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1044: FND_MSG_PUB.initialize;
1045: END IF;
1046:
1047: -- Debug Message
1048: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1047: -- Debug Message
1048: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1049: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1050: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader: Start', TRUE);
1051: FND_MSG_PUB.Add;
1052: END IF; */
1053:
1054: IF (AMS_DEBUG_HIGH_ON) THEN
1055: AMS_Utility_PVT.debug_message('AMS_ListHeaders_PVT.Validate_listheaders: Start');
1105: --
1106:
1107: -- Success Message
1108: -- MMSG
1109: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1110: THEN
1111: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1112: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader', TRUE);
1113: FND_MSG_PUB.Add;
1109: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1110: THEN
1111: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1112: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader', TRUE);
1113: FND_MSG_PUB.Add;
1114: END IF;
1115:
1116:
1117: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1116:
1117: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1118: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1119: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader: END', TRUE);
1120: FND_MSG_PUB.Add;
1121: END IF; */
1122: -- Standard call to get message count AND IF count is 1, get message info.
1123: FND_MSG_PUB.Count_AND_Get
1124: ( p_count => x_msg_count,
1119: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeader_PVT.Validate_ListHeader: END', TRUE);
1120: FND_MSG_PUB.Add;
1121: END IF; */
1122: -- Standard call to get message count AND IF count is 1, get message info.
1123: FND_MSG_PUB.Count_AND_Get
1124: ( p_count => x_msg_count,
1125: p_data => x_msg_data,
1126: p_encoded => FND_API.G_FALSE
1127: );
1129: EXCEPTION
1130: WHEN FND_API.G_EXC_ERROR THEN
1131: x_return_status := FND_API.G_RET_STS_ERROR ;
1132:
1133: FND_MSG_PUB.Count_AND_Get
1134: ( p_count => x_msg_count,
1135: p_data => x_msg_data,
1136: p_encoded => FND_API.G_FALSE
1137: );
1140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1141:
1142: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1143:
1144: FND_MSG_PUB.Count_AND_Get
1145: ( p_count => x_msg_count,
1146: p_data => x_msg_data,
1147: p_encoded => FND_API.G_FALSE
1148: );
1148: );
1149: WHEN OTHERS THEN
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1151:
1152: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1153: THEN
1154: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1155: END IF;
1156:
1150: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1151:
1152: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1153: THEN
1154: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1155: END IF;
1156:
1157: FND_MSG_PUB.Count_AND_Get
1158: ( p_count => x_msg_count,
1153: THEN
1154: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1155: END IF;
1156:
1157: FND_MSG_PUB.Count_AND_Get
1158: ( p_count => x_msg_count,
1159: p_data => x_msg_data,
1160: p_encoded => FND_API.G_FALSE
1161: );
1255:
1256:
1257: -- Initialize message list IF p_init_msg_list is set to TRUE.
1258: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1259: FND_MSG_PUB.initialize;
1260: END IF;
1261:
1262: -- Debug Message
1263: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1262: -- Debug Message
1263: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1264: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1265: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeaders_PVT.Create_listheaders: Start', TRUE);
1266: FND_MSG_PUB.Add;
1267: END IF; */
1268:
1269: IF (AMS_DEBUG_HIGH_ON) THEN
1270: AMS_Utility_PVT.debug_message('AMS_ListHeaders_PVT.Create_listheaders: Start');
1631: COMMIT WORK;
1632: END IF;
1633:
1634: -- Success Message
1635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1636: THEN
1637: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1638: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders', TRUE);
1639: FND_MSG_PUB.Add;
1635: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1636: THEN
1637: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1638: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders', TRUE);
1639: FND_MSG_PUB.Add;
1640: END IF;
1641:
1642: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1643: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1641:
1642: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1643: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1644: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders: END', TRUE);
1645: FND_MSG_PUB.Add;
1646: END IF; */
1647:
1648:
1649: -- Standard call to get message count AND IF count is 1, get message info.
1646: END IF; */
1647:
1648:
1649: -- Standard call to get message count AND IF count is 1, get message info.
1650: FND_MSG_PUB.Count_AND_Get
1651: ( p_count => x_msg_count,
1652: p_data => x_msg_data,
1653: p_encoded => FND_API.G_FALSE
1654: );
1657: WHEN FND_API.G_EXC_ERROR THEN
1658: ROLLBACK TO Create_listheaders_PVT;
1659: x_return_status := FND_API.G_RET_STS_ERROR ;
1660:
1661: FND_MSG_PUB.Count_AND_Get
1662: ( p_count => x_msg_count,
1663: p_data => x_msg_data,
1664: p_encoded => FND_API.G_FALSE
1665: );
1667:
1668: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1669: ROLLBACK TO Create_listheaders_PVT;
1670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1671: FND_MSG_PUB.Count_AND_Get
1672: ( p_count => x_msg_count,
1673: p_data => x_msg_data,
1674: p_encoded => FND_API.G_FALSE
1675: );
1676:
1677: WHEN OTHERS THEN
1678: ROLLBACK TO Create_listheaders_PVT;
1679: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
1680: FND_MSG_PUB.Add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1684: END IF;
1678: ROLLBACK TO Create_listheaders_PVT;
1679: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
1680: FND_MSG_PUB.Add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1684: END IF;
1685:
1686: FND_MSG_PUB.Count_AND_Get
1679: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
1680: FND_MSG_PUB.Add;
1681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1684: END IF;
1685:
1686: FND_MSG_PUB.Count_AND_Get
1687: ( p_count => x_msg_count,
1682: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1683: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1684: END IF;
1685:
1686: FND_MSG_PUB.Count_AND_Get
1687: ( p_count => x_msg_count,
1688: p_data => x_msg_data,
1689: p_encoded => FND_API.G_FALSE
1690: );
1751: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1752: END IF;
1753: -- Initialize message list IF p_init_msg_list is set to TRUE.
1754: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1755: FND_MSG_PUB.initialize;
1756: END IF;
1757: -- Debug Message
1758: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1759: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1757: -- Debug Message
1758: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1759: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1760: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Start', TRUE);
1761: FND_MSG_PUB.Add;
1762: END IF; */
1763:
1764: IF (AMS_DEBUG_HIGH_ON) THEN
1765: AMS_Utility_PVT.debug_message('AMS_ListHeaders_PVT.Update_listheaders: Start');
1803: -- Debug Message
1804: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1805: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1806: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Done Timezone', TRUE);
1807: FND_MSG_PUB.Add;
1808: END IF; */
1809:
1810: IF (AMS_DEBUG_HIGH_ON) THEN
1811: AMS_Utility_PVT.debug_message('AMS_ListHeaders_PVT.Update_listheaders: Done timezone');
1831: -- Debug Message
1832: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1833: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1834: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Item Level Validation', TRUE);
1835: FND_MSG_PUB.Add;
1836: END IF; */
1837:
1838: IF (AMS_DEBUG_HIGH_ON) THEN
1839: AMS_Utility_PVT.debug_message('AMS_ListHeaders_PVT.Update_listheaders: Item level validation');
1857: -- Perform the database operation
1858: /* ckapoor IF (AMS_DEBUG_LOW_ON) THEN
1859: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1860: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT - update ams_listheaders', TRUE);
1861: FND_MSG_PUB.Add;
1862: END IF; */
1863:
1864: IF (AMS_DEBUG_LOW_ON) THEN
1865: AMS_Utility_PVT.debug_message('AMS_ListHeaders_PVT.update ams_listheaders');
2037: ------------------------------------------------------------------
2038: -- Error, check the msg level and added an error message to the --
2039: -- API message list. --
2040: ------------------------------------------------------------------
2041: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2042: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2043: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2044: FND_MSG_PUB.Add;
2045: END IF;
2040: ------------------------------------------------------------------
2041: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2042: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2043: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2044: FND_MSG_PUB.Add;
2045: END IF;
2046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF;
2048:
2060: ------------------------------------------------------------------
2061: -- Error, check the msg level and added an error message to the --
2062: -- API message list. --
2063: ------------------------------------------------------------------
2064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2065: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2066: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2067: FND_MSG_PUB.Add;
2068: END IF;
2063: ------------------------------------------------------------------
2064: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2065: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2066: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2067: FND_MSG_PUB.Add;
2068: END IF;
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
2071:
2092: COMMIT WORK;
2093: END IF;
2094:
2095: -- Success Message
2096: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2097: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2098: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders', TRUE);
2099: FND_MSG_PUB.Add;
2100: END IF;
2095: -- Success Message
2096: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2097: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2098: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders', TRUE);
2099: FND_MSG_PUB.Add;
2100: END IF;
2101:
2102: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2103: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2101:
2102: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2103: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2104: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: END', TRUE);
2105: FND_MSG_PUB.Add;
2106: END IF; */
2107:
2108: -- Standard call to get message count AND IF count is 1, get message info.
2109: FND_MSG_PUB.Count_AND_Get
2105: FND_MSG_PUB.Add;
2106: END IF; */
2107:
2108: -- Standard call to get message count AND IF count is 1, get message info.
2109: FND_MSG_PUB.Count_AND_Get
2110: ( p_count => x_msg_count,
2111: p_data => x_msg_data,
2112: p_encoded => FND_API.G_FALSE
2113: );
2114: EXCEPTION
2115: WHEN FND_API.G_EXC_ERROR THEN
2116: ROLLBACK TO Update_listheaders_PVT;
2117: x_return_status := FND_API.G_RET_STS_ERROR ;
2118: FND_MSG_PUB.Count_AND_Get
2119: ( p_count => x_msg_count,
2120: p_data => x_msg_data,
2121: p_encoded => FND_API.G_FALSE
2122: );
2124:
2125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2126: ROLLBACK TO Update_listheaders_PVT;
2127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2128: FND_MSG_PUB.Count_AND_Get
2129: ( p_count => x_msg_count,
2130: p_data => x_msg_data,
2131: p_encoded => FND_API.G_FALSE
2132: );
2132: );
2133: WHEN OTHERS THEN
2134: ROLLBACK TO Update_listheaders_PVT;
2135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2136: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2137: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2138: END IF;
2139:
2140: FND_MSG_PUB.Count_AND_Get
2133: WHEN OTHERS THEN
2134: ROLLBACK TO Update_listheaders_PVT;
2135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2136: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2137: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2138: END IF;
2139:
2140: FND_MSG_PUB.Count_AND_Get
2141: ( p_count => x_msg_count,
2136: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2137: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2138: END IF;
2139:
2140: FND_MSG_PUB.Count_AND_Get
2141: ( p_count => x_msg_count,
2142: p_data => x_msg_data,
2143: p_encoded => FND_API.G_FALSE
2144: );
2196: END IF;
2197:
2198: -- Initialize message list IF p_init_msg_list is set to TRUE.
2199: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2200: FND_MSG_PUB.initialize;
2201: END IF;
2202:
2203: -- Debug Message
2204: IF (AMS_DEBUG_HIGH_ON) THEN
2203: -- Debug Message
2204: IF (AMS_DEBUG_HIGH_ON) THEN
2205: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2206: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders: Start', TRUE);
2207: FND_MSG_PUB.Add;
2208: END IF;
2209:
2210: -- Initialize API return status to success
2211: x_return_status := FND_API.G_RET_STS_SUCCESS;
2212:
2213:
2214: -- Check required parameters
2215: IF (l_list_header_id = FND_API.G_MISS_NUM OR l_list_header_id IS NULL )THEN
2216: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2217: FND_MESSAGE.Set_Name('AMS', 'API_INCOMPLETE_INFO');
2218: FND_MESSAGE.Set_Token ('PARAM', 'listheader_id', FALSE);
2219: FND_MSG_PUB.Add;
2220: END IF;
2215: IF (l_list_header_id = FND_API.G_MISS_NUM OR l_list_header_id IS NULL )THEN
2216: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2217: FND_MESSAGE.Set_Name('AMS', 'API_INCOMPLETE_INFO');
2218: FND_MESSAGE.Set_Token ('PARAM', 'listheader_id', FALSE);
2219: FND_MSG_PUB.Add;
2220: END IF;
2221: RAISE FND_API.G_EXC_ERROR;
2222: END IF;
2223:
2248: COMMIT WORK;
2249: END IF;
2250:
2251: -- Success Message
2252: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2253: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2254: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders', TRUE);
2255: FND_MSG_PUB.Add;
2256: END IF;
2251: -- Success Message
2252: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2253: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2254: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders', TRUE);
2255: FND_MSG_PUB.Add;
2256: END IF;
2257:
2258:
2259: IF (AMS_DEBUG_HIGH_ON) THEN
2258:
2259: IF (AMS_DEBUG_HIGH_ON) THEN
2260: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2261: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheader: END', TRUE);
2262: FND_MSG_PUB.Add;
2263: END IF;
2264:
2265:
2266: -- Standard call to get message count AND IF count is 1, get message info.
2263: END IF;
2264:
2265:
2266: -- Standard call to get message count AND IF count is 1, get message info.
2267: FND_MSG_PUB.Count_AND_Get
2268: ( p_count => x_msg_count,
2269: p_data => x_msg_data,
2270: p_encoded => FND_API.G_FALSE
2271: );
2273: WHEN FND_API.G_EXC_ERROR THEN
2274: ROLLBACK TO Delete_listheader_PVT;
2275: x_return_status := FND_API.G_RET_STS_ERROR ;
2276:
2277: FND_MSG_PUB.Count_AND_Get
2278: ( p_count => x_msg_count,
2279: p_data => x_msg_data,
2280: p_encoded => FND_API.G_FALSE
2281: );
2283: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2284: ROLLBACK TO Delete_listheader_PVT;
2285: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2286:
2287: FND_MSG_PUB.Count_AND_Get
2288: ( p_count => x_msg_count,
2289: p_data => x_msg_data,
2290: p_encoded => FND_API.G_FALSE
2291: );
2293:
2294: WHEN OTHERS THEN
2295: ROLLBACK TO Delete_listheader_PVT;
2296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2297: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2298: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2299: END IF;
2300:
2301: FND_MSG_PUB.Count_AND_Get
2294: WHEN OTHERS THEN
2295: ROLLBACK TO Delete_listheader_PVT;
2296: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2297: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2298: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2299: END IF;
2300:
2301: FND_MSG_PUB.Count_AND_Get
2302: ( p_count => x_msg_count,
2297: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2298: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2299: END IF;
2300:
2301: FND_MSG_PUB.Count_AND_Get
2302: ( p_count => x_msg_count,
2303: p_data => x_msg_data,
2304: p_encoded => FND_API.G_FALSE
2305: );
2357: AMS_Utility_PVT.debug_message(l_full_name||': start');
2358: END IF;
2359:
2360: IF FND_API.to_boolean(p_init_msg_list) THEN
2361: FND_MSG_PUB.initialize;
2362: END IF;
2363:
2364: IF NOT FND_API.compatible_api_call(
2365: l_api_version,
2381: OPEN c_list_header_id;
2382: FETCH c_list_header_id INTO l_list_header_id;
2383: IF (c_list_header_id%NOTFOUND) THEN
2384: CLOSE c_list_header_id;
2385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2386: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2387: FND_MSG_PUB.add;
2388: END IF;
2389: RAISE FND_API.g_exc_error;
2383: IF (c_list_header_id%NOTFOUND) THEN
2384: CLOSE c_list_header_id;
2385: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2386: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2387: FND_MSG_PUB.add;
2388: END IF;
2389: RAISE FND_API.g_exc_error;
2390: END IF;
2391: CLOSE c_list_header_id;
2390: END IF;
2391: CLOSE c_list_header_id;
2392:
2393: -------------------- finish --------------------------
2394: FND_MSG_PUB.count_and_get(
2395: p_encoded => FND_API.g_false,
2396: p_count => x_msg_count,
2397: p_data => x_msg_data
2398: );
2408: EXCEPTION
2409:
2410: WHEN AMS_Utility_PVT.resource_locked THEN
2411: x_return_status := FND_API.g_ret_sts_error;
2412: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2413: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2414: FND_MSG_PUB.add;
2415: END IF;
2416:
2410: WHEN AMS_Utility_PVT.resource_locked THEN
2411: x_return_status := FND_API.g_ret_sts_error;
2412: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2413: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2414: FND_MSG_PUB.add;
2415: END IF;
2416:
2417: FND_MSG_PUB.count_and_get(
2418: p_encoded => FND_API.g_false,
2413: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2414: FND_MSG_PUB.add;
2415: END IF;
2416:
2417: FND_MSG_PUB.count_and_get(
2418: p_encoded => FND_API.g_false,
2419: p_count => x_msg_count,
2420: p_data => x_msg_data
2421: );
2421: );
2422:
2423: WHEN FND_API.g_exc_error THEN
2424: x_return_status := FND_API.g_ret_sts_error;
2425: FND_MSG_PUB.count_and_get(
2426: p_encoded => FND_API.g_false,
2427: p_count => x_msg_count,
2428: p_data => x_msg_data
2429: );
2429: );
2430:
2431: WHEN FND_API.g_exc_unexpected_error THEN
2432: x_return_status := FND_API.g_ret_sts_unexp_error ;
2433: FND_MSG_PUB.count_and_get(
2434: p_encoded => FND_API.g_false,
2435: p_count => x_msg_count,
2436: p_data => x_msg_data
2437: );
2437: );
2438:
2439: WHEN OTHERS THEN
2440: x_return_status := FND_API.g_ret_sts_unexp_error ;
2441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2442: THEN
2443: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2444: END IF;
2445:
2439: WHEN OTHERS THEN
2440: x_return_status := FND_API.g_ret_sts_unexp_error ;
2441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error)
2442: THEN
2443: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2444: END IF;
2445:
2446: FND_MSG_PUB.count_and_get(
2447: p_encoded => FND_API.g_false,
2442: THEN
2443: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
2444: END IF;
2445:
2446: FND_MSG_PUB.count_and_get(
2447: p_encoded => FND_API.g_false,
2448: p_count => x_msg_count,
2449: p_data => x_msg_data
2450: );
2612: OPEN c_listheader;
2613: FETCH c_listheader INTO l_listheader_rec;
2614: IF c_listheader%NOTFOUND THEN
2615: CLOSE c_listheader;
2616: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2617: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2618: FND_MSG_PUB.add;
2619: END IF;
2620: RAISE FND_API.g_exc_error;
2614: IF c_listheader%NOTFOUND THEN
2615: CLOSE c_listheader;
2616: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2617: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2618: FND_MSG_PUB.add;
2619: END IF;
2620: RAISE FND_API.g_exc_error;
2621: END IF;
2622: CLOSE c_listheader;
3014: l_new_status_id number;
3015: --l_no_of_rows_prev_contacted number;
3016: BEGIN
3017: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3018: FND_MSG_PUB.initialize;
3019: END IF;
3020:
3021: open c_count_list_entries(p_list_header_id);
3022: fetch c_count_list_entries
3064:
3065: IF (AMS_DEBUG_HIGH_ON) THEN
3066: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3067: FND_MESSAGE.Set_Token('ROW', 'AMS_LIST_HEADER_UPDATE: END');
3068: FND_MSG_PUB.Add;
3069: END IF;
3070:
3071:
3072: IF (AMS_DEBUG_HIGH_ON) THEN
3073: AMS_Utility_PVT.debug_message('AMS_LIST_HEADER_UPDATE: END');
3074: END IF;
3075:
3076:
3077: FND_MSG_PUB.count_and_get(
3078: p_encoded => FND_API.g_false,
3079: p_count => x_msg_count,
3080: p_data => x_msg_data
3081: );
3083: EXCEPTION
3084: WHEN FND_API.G_EXC_ERROR THEN
3085: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3086: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3087: FND_MSG_PUB.Add;
3088: -- Check if reset of the status is required
3089: x_return_status := FND_API.G_RET_STS_ERROR ;
3090: FND_MSG_PUB.count_and_get(
3091: p_encoded => FND_API.g_false,
3086: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3087: FND_MSG_PUB.Add;
3088: -- Check if reset of the status is required
3089: x_return_status := FND_API.G_RET_STS_ERROR ;
3090: FND_MSG_PUB.count_and_get(
3091: p_encoded => FND_API.g_false,
3092: p_count => x_msg_count,
3093: p_data => x_msg_data);
3094:
3094:
3095: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3096: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3097: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3098: FND_MSG_PUB.Add;
3099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3100: FND_MSG_PUB.count_and_get(
3101: p_encoded => FND_API.g_false,
3102: p_count => x_msg_count,
3096: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3097: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3098: FND_MSG_PUB.Add;
3099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3100: FND_MSG_PUB.count_and_get(
3101: p_encoded => FND_API.g_false,
3102: p_count => x_msg_count,
3103: p_data => x_msg_data);
3104:
3104:
3105: WHEN OTHERS THEN
3106: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3107: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3108: FND_MSG_PUB.Add;
3109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3110: FND_MSG_PUB.count_and_get(
3111: p_encoded => FND_API.g_false,
3112: p_count => x_msg_count,
3106: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3107: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3108: FND_MSG_PUB.Add;
3109: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3110: FND_MSG_PUB.count_and_get(
3111: p_encoded => FND_API.g_false,
3112: p_count => x_msg_count,
3113: p_data => x_msg_data);
3114:
3168: l_list_header_id number;
3169:
3170: BEGIN
3171: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3172: FND_MSG_PUB.initialize;
3173: END IF;
3174:
3175:
3176: open c_get_list_header_id(p_used_by,p_used_by_id);
3208:
3209: IF (AMS_DEBUG_HIGH_ON) THEN
3210: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3211: FND_MESSAGE.Set_Token('ROW', 'AMS_LIST_HEADER_UPDATE: END');
3212: FND_MSG_PUB.Add;
3213: END IF;
3214:
3215:
3216:
3213: END IF;
3214:
3215:
3216:
3217: FND_MSG_PUB.count_and_get(
3218: p_encoded => FND_API.g_false,
3219: p_count => x_msg_count,
3220: p_data => x_msg_data
3221: );
3223: EXCEPTION
3224: WHEN FND_API.G_EXC_ERROR THEN
3225: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3226: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3227: FND_MSG_PUB.Add;
3228: -- Check if reset of the status is required
3229: x_return_status := FND_API.G_RET_STS_ERROR ;
3230: FND_MSG_PUB.count_and_get(
3231: p_encoded => FND_API.g_false,
3226: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3227: FND_MSG_PUB.Add;
3228: -- Check if reset of the status is required
3229: x_return_status := FND_API.G_RET_STS_ERROR ;
3230: FND_MSG_PUB.count_and_get(
3231: p_encoded => FND_API.g_false,
3232: p_count => x_msg_count,
3233: p_data => x_msg_data);
3234:
3234:
3235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3236: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3237: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3238: FND_MSG_PUB.Add;
3239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3240: FND_MSG_PUB.count_and_get(
3241: p_encoded => FND_API.g_false,
3242: p_count => x_msg_count,
3236: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3237: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3238: FND_MSG_PUB.Add;
3239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3240: FND_MSG_PUB.count_and_get(
3241: p_encoded => FND_API.g_false,
3242: p_count => x_msg_count,
3243: p_data => x_msg_data);
3244:
3244:
3245: WHEN OTHERS THEN
3246: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3247: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3248: FND_MSG_PUB.Add;
3249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3250: FND_MSG_PUB.count_and_get(
3251: p_encoded => FND_API.g_false,
3252: p_count => x_msg_count,
3246: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3247: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3248: FND_MSG_PUB.Add;
3249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3250: FND_MSG_PUB.count_and_get(
3251: p_encoded => FND_API.g_false,
3252: p_count => x_msg_count,
3253: p_data => x_msg_data);
3254:
3333:
3334:
3335: -- Initialize message list IF p_init_msg_list is set to TRUE.
3336: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3337: FND_MSG_PUB.initialize;
3338: END IF;
3339:
3340: -- Debug Message
3341: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3340: -- Debug Message
3341: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3342: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3343: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeaders_PVT.Copy_Lists: Start', TRUE);
3344: FND_MSG_PUB.Add;
3345: END IF; */
3346:
3347: IF (AMS_DEBUG_HIGH_ON) THEN
3348: AMS_Utility_PVT.debug_message('AMS_ListHeader_PVT.Copy_List: Start');
3453: COMMIT WORK;
3454: END IF;
3455:
3456: -- Success Message
3457: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3458: THEN
3459: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
3460: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists', TRUE);
3461: FND_MSG_PUB.Add;
3457: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3458: THEN
3459: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
3460: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists', TRUE);
3461: FND_MSG_PUB.Add;
3462: END IF;
3463:
3464: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3465: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3463:
3464: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3465: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3466: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists: END', TRUE);
3467: FND_MSG_PUB.Add;
3468: END IF; */
3469:
3470:
3471: -- Standard call to get message count AND IF count is 1, get message info.
3468: END IF; */
3469:
3470:
3471: -- Standard call to get message count AND IF count is 1, get message info.
3472: FND_MSG_PUB.Count_AND_Get
3473: ( p_count => x_msg_count,
3474: p_data => x_msg_data,
3475: p_encoded => FND_API.G_FALSE
3476: );
3479: WHEN FND_API.G_EXC_ERROR THEN
3480: ROLLBACK TO Copy_Lists_PVT;
3481: x_return_status := FND_API.G_RET_STS_ERROR ;
3482:
3483: FND_MSG_PUB.Count_AND_Get
3484: ( p_count => x_msg_count,
3485: p_data => x_msg_data,
3486: p_encoded => FND_API.G_FALSE
3487: );
3489:
3490: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3491: ROLLBACK TO Copy_Lists_PVT;
3492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3493: FND_MSG_PUB.Count_AND_Get
3494: ( p_count => x_msg_count,
3495: p_data => x_msg_data,
3496: p_encoded => FND_API.G_FALSE
3497: );
3498:
3499: WHEN OTHERS THEN
3500: ROLLBACK TO Copy_Lists_PVT;
3501: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
3502: FND_MSG_PUB.Add;
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3504: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3505: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3506: END IF;
3500: ROLLBACK TO Copy_Lists_PVT;
3501: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
3502: FND_MSG_PUB.Add;
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3504: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3505: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3506: END IF;
3507:
3508: FND_MSG_PUB.Count_AND_Get
3501: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
3502: FND_MSG_PUB.Add;
3503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3504: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3505: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3506: END IF;
3507:
3508: FND_MSG_PUB.Count_AND_Get
3509: ( p_count => x_msg_count,
3504: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3505: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3506: END IF;
3507:
3508: FND_MSG_PUB.Count_AND_Get
3509: ( p_count => x_msg_count,
3510: p_data => x_msg_data,
3511: p_encoded => FND_API.G_FALSE
3512: );