1559: l_msg_index_out number;
1560: l_app_code varchar2(10);
1561: l_msg_name varchar2(100);
1562: begin
1563: l_count := FND_MSG_PUB.Count_Msg;
1564:
1565: while l_msg_index <= l_count loop
1566: FND_MSG_PUB.Get(p_msg_index => l_msg_index,
1567: p_data => l_data,
1562: begin
1563: l_count := FND_MSG_PUB.Count_Msg;
1564:
1565: while l_msg_index <= l_count loop
1566: FND_MSG_PUB.Get(p_msg_index => l_msg_index,
1567: p_data => l_data,
1568: p_msg_index_out => l_msg_index_out
1569: );
1570:
1579: l_msg_name = 'CS_SR_OPEN_CHARGES_EXISTS' or
1580: l_msg_name = 'CS_SR_SCHEDULED_TASKS_EXISTS' or
1581: l_msg_name = 'CS_SR_TASK_DEBRIEF_INCOMPLETE') then
1582:
1583: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1584: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_CLOSE_SR');
1585: FND_MSG_PUB.Add;
1586: l_count := l_count - 1;
1587: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1581: l_msg_name = 'CS_SR_TASK_DEBRIEF_INCOMPLETE') then
1582:
1583: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1584: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_CLOSE_SR');
1585: FND_MSG_PUB.Add;
1586: l_count := l_count - 1;
1587: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1588: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1589: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_UPDATE_SR');
1584: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_CLOSE_SR');
1585: FND_MSG_PUB.Add;
1586: l_count := l_count - 1;
1587: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1588: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1589: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_UPDATE_SR');
1590: FND_MSG_PUB.Add;
1591: l_count := l_count - 1;
1592: else
1586: l_count := l_count - 1;
1587: elsif (l_msg_name = 'FORM_RECORD_CHANGED') then
1588: FND_MSG_PUB.Delete_Msg(l_msg_index_out);
1589: FND_MESSAGE.SET_NAME('IBU', 'IBU_SR_CANNOT_UPDATE_SR');
1590: FND_MSG_PUB.Add;
1591: l_count := l_count - 1;
1592: else
1593: l_msg_index := l_msg_index + 1;
1594: end if;