1472: l_msg_index_out number;
1473: l_app_code varchar2(10);
1474: l_msg_name varchar2(100);
1475: begin
1476: l_count := FND_MSG_PUB.Count_Msg;
1477:
1478: while l_msg_index <= l_count loop
1479: FND_MSG_PUB.Get(p_msg_index => l_msg_index,
1480: p_data => l_data,
1475: begin
1476: l_count := FND_MSG_PUB.Count_Msg;
1477:
1478: while l_msg_index <= l_count loop
1479: FND_MSG_PUB.Get(p_msg_index => l_msg_index,
1480: p_data => l_data,
1481: p_msg_index_out => l_msg_index_out
1482: );
1483:
1492: l_msg_name = 'CS_SR_OPEN_CHARGES_EXISTS' or
1493: l_msg_name = 'CS_SR_SCHEDULED_TASKS_EXISTS' or
1494: l_msg_name = 'CS_SR_TASK_DEBRIEF_INCOMPLETE') then
1495:
1496: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1497: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_CLOSE_SR');
1498: FND_MSG_PUB.Add;
1499: l_count := l_count - 1;
1500: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1494: l_msg_name = 'CS_SR_TASK_DEBRIEF_INCOMPLETE') then
1495:
1496: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1497: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_CLOSE_SR');
1498: FND_MSG_PUB.Add;
1499: l_count := l_count - 1;
1500: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1501: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1502: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_UPDATE_SR');
1497: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_CLOSE_SR');
1498: FND_MSG_PUB.Add;
1499: l_count := l_count - 1;
1500: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1501: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1502: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_UPDATE_SR');
1503: FND_MSG_PUB.Add;
1504: l_count := l_count - 1;
1505: else
1499: l_count := l_count - 1;
1500: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1501: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1502: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_UPDATE_SR');
1503: FND_MSG_PUB.Add;
1504: l_count := l_count - 1;
1505: else
1506: l_msg_index := l_msg_index + 1;
1507: end if;