[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
1260: END IF;
1261:
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:
1261:
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
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;
1640: END IF;
1641:
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;
1640: END IF;
1641:
1642: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
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');
1644: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Create_listheaders: END', TRUE);
1645: FND_MSG_PUB.Add;
1646: END IF; */
1647:
1640: END IF;
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:
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);
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');
1760: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: Start', TRUE);
1761: FND_MSG_PUB.Add;
1762: END IF; */
1763:
1756: END IF;
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
1801: END IF;
1802:
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:
1802:
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
1829: END IF;
1830:
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:
1830:
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
1855: END IF;
1856:
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:
1856:
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
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;
2046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
2046: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF;
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;
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
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;
2069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2070: END IF;
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;
2101:
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;
2101:
2102: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
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');
2104: FND_MESSAGE.Set_Token('ROW', 'AMS_listheader_PVT.Update_listheaders: END', TRUE);
2105: FND_MSG_PUB.Add;
2106: END IF; */
2107:
2100: END IF;
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.
2201: END IF;
2202:
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:
2202:
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
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;
2221: RAISE FND_API.G_EXC_ERROR;
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;
2221: RAISE FND_API.G_EXC_ERROR;
2222: END IF;
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;
2257:
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;
2257:
2258:
2256: END IF;
2257:
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:
2257:
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:
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;
2390: END IF;
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:
2417: FND_MSG_PUB.count_and_get(
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;
2621: END IF;
3062: END IF;
3063:
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:
3063:
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:
3081: );
3082:
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 ;
3082:
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(
3092: p_count => x_msg_count,
3093: p_data => x_msg_data);
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(
3093: p_data => x_msg_data);
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,
3103: p_data => x_msg_data);
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(
3103: p_data => x_msg_data);
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,
3206: END IF;
3207:
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:
3207:
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:
3221: );
3222:
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 ;
3222:
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(
3232: p_count => x_msg_count,
3233: p_data => x_msg_data);
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(
3233: p_data => x_msg_data);
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,
3243: p_data => x_msg_data);
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(
3243: p_data => x_msg_data);
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,
3338: END IF;
3339:
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:
3339:
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
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;
3462: END IF;
3463:
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;
3462: END IF;
3463:
3464: /* ckapoor IF (AMS_DEBUG_HIGH_ON) THEN
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');
3466: FND_MESSAGE.Set_Token('ROW', 'AMS_listheaders_PVT.Copy_Lists: END', TRUE);
3467: FND_MSG_PUB.Add;
3468: END IF; */
3469:
3462: END IF;
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:
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);