60:
61:
62: AMS_ListGeneration_PKG.Generate_List (
63: p_api_version => L_API_VERSION,
64: p_init_msg_list => FND_API.g_true,
65: p_commit => FND_API.g_true,
66: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
67: p_list_header_id => l_list_header_id,
68: x_return_status => l_return_status,
61:
62: AMS_ListGeneration_PKG.Generate_List (
63: p_api_version => L_API_VERSION,
64: p_init_msg_list => FND_API.g_true,
65: p_commit => FND_API.g_true,
66: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
67: p_list_header_id => l_list_header_id,
68: x_return_status => l_return_status,
69: x_msg_count => l_msg_count,
62: AMS_ListGeneration_PKG.Generate_List (
63: p_api_version => L_API_VERSION,
64: p_init_msg_list => FND_API.g_true,
65: p_commit => FND_API.g_true,
66: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
67: p_list_header_id => l_list_header_id,
68: x_return_status => l_return_status,
69: x_msg_count => l_msg_count,
70: x_msg_data => l_msg_data
70: x_msg_data => l_msg_data
71:
72: );
73:
74: IF l_return_status <> FND_API.g_ret_sts_success THEN
75: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
76: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
77: FND_MSG_PUB.Add;
78: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION in list gen package: AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
78: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION in list gen package: AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
79:
80: l_msg_count := FND_MSG_PUB.count_msg;
81: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
82: l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
83: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : AMS_Gen_Sup_List_PVT.Schedule_Suppression_List '|| l_msg_data);
84: END LOOP;
85:
86: -- clear message buffer
83: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : AMS_Gen_Sup_List_PVT.Schedule_Suppression_List '|| l_msg_data);
84: END LOOP;
85:
86: -- clear message buffer
87: l_return_status := FND_API.g_ret_sts_success ;
88: FND_MSG_PUB.initialize;
89: END IF;
90:
91: END LOOP;
94:
95: FND_FILE.PUT_LINE(FND_FILE.LOG,'End Suppression List Generation ');
96:
97: EXCEPTION
98: WHEN FND_API.G_EXC_ERROR THEN
99: FND_MESSAGE.set_name('AMS', 'API_DEBUG_MESSAGE');
100: FND_MESSAGE.Set_Token('ROW', sqlerrm||' '||sqlcode);
101: FND_MSG_PUB.Add;
102: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION in list gen package: AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
102: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION in list gen package: AMS_Gen_Sup_List_PVT.Schedule_Suppression_List ');
103:
104: l_msg_count := FND_MSG_PUB.count_msg;
105: FOR i IN 1..FND_MSG_PUB.count_msg LOOP
106: l_msg_data := FND_MSG_PUB.get(i, FND_API.G_FALSE);
107: FND_FILE.PUT_LINE(FND_FILE.LOG,'EXCEPTION : AMS_Gen_Sup_List_PVT.Schedule_Suppression_List '|| l_msg_data);
108: END LOOP;
109:
110: -- clear message buffer