[Home] [Help]
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;
111: RETURN;
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:
124: x_return_status := FND_API.g_ret_sts_error;
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:
138: x_return_status := FND_API.g_ret_sts_error;
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:
152: x_return_status := FND_API.g_ret_sts_error;
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;
167:
168: x_return_status := FND_API.g_ret_sts_error;
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;
185:
186: x_return_status := FND_API.g_ret_sts_error;
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;
204:
205: x_return_status := FND_API.g_ret_sts_error;
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;
223:
224: x_return_status := FND_API.g_ret_sts_error;
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;
271: end if;
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:
287: x_return_status := FND_API.g_ret_sts_error;
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;
305: RETURN;
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;
321: RETURN;
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:
337: x_return_status := FND_API.g_ret_sts_error;
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:
357: x_return_status := FND_API.g_ret_sts_error;
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:
376: x_return_status := FND_API.g_ret_sts_error;
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;
413:
414: x_return_status := FND_API.g_ret_sts_error;
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;
525:
526: x_return_status := FND_API.g_ret_sts_error;
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;
564: x_return_status := FND_API.g_ret_sts_error;
565: RETURN;
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;
601: -- If any errors happen abort API/Procedure.
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;
614: return;
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;
626: return;
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;
638: return;
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;
655: x_return_status := FND_API.G_RET_STS_ERROR;
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;
655: x_return_status := FND_API.G_RET_STS_ERROR;
656: RAISE FND_API.G_EXC_ERROR;
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;
673: RAISE FND_API.G_EXC_ERROR;
716: l_source_code AMS_SOURCE_CODES.SOURCE_CODE%TYPE;
717: BEGIN
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:
717: BEGIN
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:
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;
743: RAISE FND_API.G_EXC_ERROR;
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;
760: -- If any errors happen abort API/Procedure.
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;
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;
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;
795: RAISE FND_API.G_EXC_ERROR;
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;
817: x_return_status := FND_API.G_RET_STS_ERROR;
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;
817: x_return_status := FND_API.G_RET_STS_ERROR;
818: -- If any errors happen abort API/Procedure.
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;
829: x_return_status := FND_API.G_RET_STS_ERROR;
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;
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: -- If any errors happen abort API/Procedure.
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;
842:
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;
842:
843:
841: END IF;
842:
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:
842:
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
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;
899: x_return_status := FND_API.G_RET_STS_ERROR;
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;
899: x_return_status := FND_API.G_RET_STS_ERROR;
900: ELSE
1045: END IF;
1046:
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:
1046:
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
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;
1114: END IF;
1115:
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;
1114: END IF;
1115:
1116:
1114: END IF;
1115:
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.
1115:
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
1255: END IF;
1256:
1257: -- Debug Message
1258: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1259: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1260: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeaders_PVT.Create_listheaders: Start', TRUE);
1261: FND_MSG_PUB.Add;
1262: END IF; */
1263:
1256:
1257: -- Debug Message
1258: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1259: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1260: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeaders_PVT.Create_listheaders: Start', TRUE);
1261: FND_MSG_PUB.Add;
1262: END IF; */
1263:
1264: IF (AMS_DEBUG_HIGH_ON) THEN
1620:
1621: -- Success Message
1622: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1623: THEN
1624: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1625: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders', TRUE);
1626: FND_MSG_PUB.Add;
1627: END IF;
1628:
1621: -- Success Message
1622: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
1623: THEN
1624: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
1625: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders', TRUE);
1626: FND_MSG_PUB.Add;
1627: END IF;
1628:
1629: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1626: FND_MSG_PUB.Add;
1627: END IF;
1628:
1629: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1630: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1631: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders: END', TRUE);
1632: FND_MSG_PUB.Add;
1633: END IF; */
1634:
1627: END IF;
1628:
1629: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1630: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1631: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders: END', TRUE);
1632: FND_MSG_PUB.Add;
1633: END IF; */
1634:
1635:
1662: );
1663:
1664: WHEN OTHERS THEN
1665: ROLLBACK TO Create_listheaders_PVT;
1666: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
1667: FND_MSG_PUB.Add;
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1669: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
1670: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1742: FND_MSG_PUB.initialize;
1743: END IF;
1744: -- Debug Message
1745: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1746: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1747: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Start', TRUE);
1748: FND_MSG_PUB.Add;
1749: END IF; */
1750:
1743: END IF;
1744: -- Debug Message
1745: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1746: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1747: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Start', TRUE);
1748: FND_MSG_PUB.Add;
1749: END IF; */
1750:
1751: IF (AMS_DEBUG_HIGH_ON) THEN
1788: END IF;
1789:
1790: -- Debug Message
1791: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1792: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1793: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Done Timezone', TRUE);
1794: FND_MSG_PUB.Add;
1795: END IF; */
1796:
1789:
1790: -- Debug Message
1791: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1792: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1793: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Done Timezone', TRUE);
1794: FND_MSG_PUB.Add;
1795: END IF; */
1796:
1797: IF (AMS_DEBUG_HIGH_ON) THEN
1816: END IF;
1817:
1818: -- Debug Message
1819: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1820: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1821: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Item Level Validation', TRUE);
1822: FND_MSG_PUB.Add;
1823: END IF; */
1824:
1817:
1818: -- Debug Message
1819: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
1820: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1821: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Item Level Validation', TRUE);
1822: FND_MSG_PUB.Add;
1823: END IF; */
1824:
1825: IF (AMS_DEBUG_HIGH_ON) THEN
1842: END IF;
1843:
1844: -- Perform the database operation
1845: /* ckapoor IF (AMS_DEBUG_LOW_ON) THEN
1846: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1847: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT - update ams_listheaders', TRUE);
1848: FND_MSG_PUB.Add;
1849: END IF; */
1850:
1843:
1844: -- Perform the database operation
1845: /* ckapoor IF (AMS_DEBUG_LOW_ON) THEN
1846: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
1847: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT - update ams_listheaders', TRUE);
1848: FND_MSG_PUB.Add;
1849: END IF; */
1850:
1851: IF (AMS_DEBUG_LOW_ON) THEN
2025: -- Error, check the msg level and added an error message to the --
2026: -- API message list. --
2027: ------------------------------------------------------------------
2028: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2029: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2030: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2031: FND_MSG_PUB.Add;
2032: END IF;
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2026: -- API message list. --
2027: ------------------------------------------------------------------
2028: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2029: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2030: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2031: FND_MSG_PUB.Add;
2032: END IF;
2033: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2034: END IF;
2048: -- Error, check the msg level and added an error message to the --
2049: -- API message list. --
2050: ------------------------------------------------------------------
2051: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2052: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2053: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2054: FND_MSG_PUB.Add;
2055: END IF;
2056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2049: -- API message list. --
2050: ------------------------------------------------------------------
2051: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2052: FND_MESSAGE.set_name('AMS', 'API_UNEXP_ERROR_IN_PROCESSING');
2053: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders API', TRUE);
2054: FND_MSG_PUB.Add;
2055: END IF;
2056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2057: END IF;
2080: END IF;
2081:
2082: -- Success Message
2083: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2084: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2085: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders', TRUE);
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2081:
2082: -- Success Message
2083: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2084: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2085: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders', TRUE);
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2089: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2086: FND_MSG_PUB.Add;
2087: END IF;
2088:
2089: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2090: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2091: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: END', TRUE);
2092: FND_MSG_PUB.Add;
2093: END IF; */
2094:
2087: END IF;
2088:
2089: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
2090: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2091: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: END', TRUE);
2092: FND_MSG_PUB.Add;
2093: END IF; */
2094:
2095: -- Standard call to get message count AND IF count is 1, get message info.
2188: END IF;
2189:
2190: -- Debug Message
2191: IF (AMS_DEBUG_HIGH_ON) THEN
2192: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2193: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders: Start', TRUE);
2194: FND_MSG_PUB.Add;
2195: END IF;
2196:
2189:
2190: -- Debug Message
2191: IF (AMS_DEBUG_HIGH_ON) THEN
2192: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2193: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders: Start', TRUE);
2194: FND_MSG_PUB.Add;
2195: END IF;
2196:
2197: -- Initialize API return status to success
2200:
2201: -- Check required parameters
2202: IF (l_list_header_id = FND_API.G_MISS_NUM OR l_list_header_id IS NULL )THEN
2203: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2204: FND_MESSAGE.Set_Name('AMS', 'API_INCOMPLETE_INFO');
2205: FND_MESSAGE.Set_Token ('PARAM', 'listheader_id', FALSE);
2206: FND_MSG_PUB.Add;
2207: END IF;
2208: RAISE FND_API.G_EXC_ERROR;
2201: -- Check required parameters
2202: IF (l_list_header_id = FND_API.G_MISS_NUM OR l_list_header_id IS NULL )THEN
2203: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
2204: FND_MESSAGE.Set_Name('AMS', 'API_INCOMPLETE_INFO');
2205: FND_MESSAGE.Set_Token ('PARAM', 'listheader_id', FALSE);
2206: FND_MSG_PUB.Add;
2207: END IF;
2208: RAISE FND_API.G_EXC_ERROR;
2209: END IF;
2236: END IF;
2237:
2238: -- Success Message
2239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2240: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2241: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders', TRUE);
2242: FND_MSG_PUB.Add;
2243: END IF;
2244:
2237:
2238: -- Success Message
2239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS) THEN
2240: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
2241: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheaders', TRUE);
2242: FND_MSG_PUB.Add;
2243: END IF;
2244:
2245:
2243: END IF;
2244:
2245:
2246: IF (AMS_DEBUG_HIGH_ON) THEN
2247: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2248: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheader: END', TRUE);
2249: FND_MSG_PUB.Add;
2250: END IF;
2251:
2244:
2245:
2246: IF (AMS_DEBUG_HIGH_ON) THEN
2247: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
2248: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Delete_listheader: END', TRUE);
2249: FND_MSG_PUB.Add;
2250: END IF;
2251:
2252:
2369: FETCH c_list_header_id INTO l_list_header_id;
2370: IF (c_list_header_id%NOTFOUND) THEN
2371: CLOSE c_list_header_id;
2372: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2373: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2374: FND_MSG_PUB.add;
2375: END IF;
2376: RAISE FND_API.g_exc_error;
2377: END IF;
2396:
2397: WHEN AMS_Utility_PVT.resource_locked THEN
2398: x_return_status := FND_API.g_ret_sts_error;
2399: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2400: FND_MESSAGE.set_name('AMS', 'AMS_API_RESOURCE_LOCKED');
2401: FND_MSG_PUB.add;
2402: END IF;
2403:
2404: FND_MSG_PUB.count_and_get(
2600: FETCH c_listheader INTO l_listheader_rec;
2601: IF c_listheader%NOTFOUND THEN
2602: CLOSE c_listheader;
2603: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2604: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
2605: FND_MSG_PUB.add;
2606: END IF;
2607: RAISE FND_API.g_exc_error;
2608: END IF;
3049: END IF;
3050:
3051:
3052: IF (AMS_DEBUG_HIGH_ON) THEN
3053: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3054: FND_MESSAGE.Set_Token('ROW', 'AMS_LIST_HEADER_UPDATE: END');
3055: FND_MSG_PUB.Add;
3056: END IF;
3057:
3050:
3051:
3052: IF (AMS_DEBUG_HIGH_ON) THEN
3053: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3054: FND_MESSAGE.Set_Token('ROW', 'AMS_LIST_HEADER_UPDATE: END');
3055: FND_MSG_PUB.Add;
3056: END IF;
3057:
3058:
3068: );
3069:
3070: EXCEPTION
3071: WHEN FND_API.G_EXC_ERROR THEN
3072: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3073: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3074: FND_MSG_PUB.Add;
3075: -- Check if reset of the status is required
3076: x_return_status := FND_API.G_RET_STS_ERROR ;
3069:
3070: EXCEPTION
3071: WHEN FND_API.G_EXC_ERROR THEN
3072: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3073: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3074: FND_MSG_PUB.Add;
3075: -- Check if reset of the status is required
3076: x_return_status := FND_API.G_RET_STS_ERROR ;
3077: FND_MSG_PUB.count_and_get(
3079: p_count => x_msg_count,
3080: p_data => x_msg_data);
3081:
3082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3083: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3084: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3085: FND_MSG_PUB.Add;
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3087: FND_MSG_PUB.count_and_get(
3080: p_data => x_msg_data);
3081:
3082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3083: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3084: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3085: FND_MSG_PUB.Add;
3086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3087: FND_MSG_PUB.count_and_get(
3088: p_encoded => FND_API.g_false,
3089: p_count => x_msg_count,
3090: p_data => x_msg_data);
3091:
3092: WHEN OTHERS THEN
3093: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3094: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3095: FND_MSG_PUB.Add;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3097: FND_MSG_PUB.count_and_get(
3090: p_data => x_msg_data);
3091:
3092: WHEN OTHERS THEN
3093: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3094: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3095: FND_MSG_PUB.Add;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3097: FND_MSG_PUB.count_and_get(
3098: p_encoded => FND_API.g_false,
3193: END IF;
3194:
3195:
3196: IF (AMS_DEBUG_HIGH_ON) THEN
3197: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3198: FND_MESSAGE.Set_Token('ROW', 'AMS_LIST_HEADER_UPDATE: END');
3199: FND_MSG_PUB.Add;
3200: END IF;
3201:
3194:
3195:
3196: IF (AMS_DEBUG_HIGH_ON) THEN
3197: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3198: FND_MESSAGE.Set_Token('ROW', 'AMS_LIST_HEADER_UPDATE: END');
3199: FND_MSG_PUB.Add;
3200: END IF;
3201:
3202:
3208: );
3209:
3210: EXCEPTION
3211: WHEN FND_API.G_EXC_ERROR THEN
3212: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3213: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3214: FND_MSG_PUB.Add;
3215: -- Check if reset of the status is required
3216: x_return_status := FND_API.G_RET_STS_ERROR ;
3209:
3210: EXCEPTION
3211: WHEN FND_API.G_EXC_ERROR THEN
3212: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3213: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3214: FND_MSG_PUB.Add;
3215: -- Check if reset of the status is required
3216: x_return_status := FND_API.G_RET_STS_ERROR ;
3217: FND_MSG_PUB.count_and_get(
3219: p_count => x_msg_count,
3220: p_data => x_msg_data);
3221:
3222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3223: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3224: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3225: FND_MSG_PUB.Add;
3226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3227: FND_MSG_PUB.count_and_get(
3220: p_data => x_msg_data);
3221:
3222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3223: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3224: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3225: FND_MSG_PUB.Add;
3226: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3227: FND_MSG_PUB.count_and_get(
3228: p_encoded => FND_API.g_false,
3229: p_count => x_msg_count,
3230: p_data => x_msg_data);
3231:
3232: WHEN OTHERS THEN
3233: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3234: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3235: FND_MSG_PUB.Add;
3236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3237: FND_MSG_PUB.count_and_get(
3230: p_data => x_msg_data);
3231:
3232: WHEN OTHERS THEN
3233: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3234: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
3235: FND_MSG_PUB.Add;
3236: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3237: FND_MSG_PUB.count_and_get(
3238: p_encoded => FND_API.g_false,
3325: END IF;
3326:
3327: -- Debug Message
3328: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3329: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3330: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeaders_PVT.Copy_Lists: Start', TRUE);
3331: FND_MSG_PUB.Add;
3332: END IF; */
3333:
3326:
3327: -- Debug Message
3328: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3329: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3330: FND_MESSAGE.Set_Token('ROW', 'AMS_ListHeaders_PVT.Copy_Lists: Start', TRUE);
3331: FND_MSG_PUB.Add;
3332: END IF; */
3333:
3334: IF (AMS_DEBUG_HIGH_ON) THEN
3442:
3443: -- Success Message
3444: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3445: THEN
3446: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
3447: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists', TRUE);
3448: FND_MSG_PUB.Add;
3449: END IF;
3450:
3443: -- Success Message
3444: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_SUCCESS)
3445: THEN
3446: FND_MESSAGE.Set_Name('AMS', 'API_SUCCESS');
3447: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists', TRUE);
3448: FND_MSG_PUB.Add;
3449: END IF;
3450:
3451: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3448: FND_MSG_PUB.Add;
3449: END IF;
3450:
3451: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3452: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3453: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists: END', TRUE);
3454: FND_MSG_PUB.Add;
3455: END IF; */
3456:
3449: END IF;
3450:
3451: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
3452: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
3453: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists: END', TRUE);
3454: FND_MSG_PUB.Add;
3455: END IF; */
3456:
3457:
3484: );
3485:
3486: WHEN OTHERS THEN
3487: ROLLBACK TO Copy_Lists_PVT;
3488: FND_MESSAGE.set_name('AMS','SQL ERROR ->' || sqlerrm );
3489: FND_MSG_PUB.Add;
3490: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3491: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
3492: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);