DBA Data[Home] [Help]

APPS.DPP_COVEREDINVENTORY_PVT dependencies on FND_MSG_PUB

Line 11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);

7: -- NOTE :Contains Procedures - Select Covered Inventory from INV, Populate Covered Inventory in DPP
8: -- End of Comments
9:
10: G_PKG_NAME CONSTANT VARCHAR2(30) := 'DPP_COVEREDINVENTORY_PVT';
11: G_DEBUG BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
12: G_FILE_NAME CONSTANT VARCHAR2(14) := 'dppvcovb.pls';
13:
14: ---------------------------------------------------------------------
15: -- PROCEDURE

Line 145: FND_MSG_PUB.initialize;

141: END IF;
142: -- Initialize message list if p_init_msg_list is set to TRUE.
143: IF FND_API.to_Boolean( p_init_msg_list )
144: THEN
145: FND_MSG_PUB.initialize;
146: END IF;
147: -- Debug Message
148: IF g_debug THEN
149: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

Line 159: FND_MSG_PUB.add;

155: --
156: IF l_hdr_rec.org_id IS NULL THEN
157: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
158: FND_MESSAGE.set_token('ID', 'Org ID');
159: FND_MSG_PUB.add;
160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Effective Start Date');

Line 164: FND_MSG_PUB.add;

160: RAISE FND_API.G_EXC_ERROR;
161: ELSIF l_hdr_rec.effective_start_date IS NULL THEN
162: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
163: FND_MESSAGE.set_token('ID', 'Effective Start Date');
164: FND_MSG_PUB.add;
165: RAISE FND_API.G_EXC_ERROR;
166: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
167: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
168: FND_MESSAGE.set_token('ID', 'Effective End Date');

Line 169: FND_MSG_PUB.add;

165: RAISE FND_API.G_EXC_ERROR;
166: ELSIF l_hdr_rec.effective_end_date IS NULL THEN
167: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
168: FND_MESSAGE.set_token('ID', 'Effective End Date');
169: FND_MSG_PUB.add;
170: RAISE FND_API.G_EXC_ERROR;
171: ELSE
172: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
173: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN

Line 176: FND_MSG_PUB.add;

172: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
173: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
174: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
175: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
176: FND_MSG_PUB.add;
177: RAISE FND_API.G_EXC_ERROR;
178: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
179: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
180: FND_MESSAGE.set_token('ID', 'Inventory Item ID');

Line 181: FND_MSG_PUB.add;

177: RAISE FND_API.G_EXC_ERROR;
178: ELSIF l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
179: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
180: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
181: FND_MSG_PUB.add;
182: RAISE FND_API.G_EXC_ERROR;
183: ELSE
184: FOR get_covered_inventory_rec IN get_covered_inventory_csr(l_hdr_rec.org_id, l_hdr_rec.effective_start_date, l_hdr_rec.effective_end_date, l_covered_inv_tbl(i).Inventory_ITem_ID)
185: LOOP

Line 264: FND_MSG_PUB.Count_And_Get

260: IF g_debug THEN
261: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
262: END IF;
263: -- Standard call to get message count and if count is 1, get message info.
264: FND_MSG_PUB.Count_And_Get
265: (p_count => x_msg_count,
266: p_data => x_msg_data
267: );
268:

Line 276: FND_MSG_PUB.Count_And_Get (

272: WHEN FND_API.G_EXC_ERROR THEN
273: ROLLBACK TO Select_CoveredInventory_PVT;
274: x_return_status := FND_API.G_RET_STS_ERROR;
275: -- Standard call to get message count and if count=1, get the message
276: FND_MSG_PUB.Count_And_Get (
277: p_encoded => FND_API.G_FALSE,
278: p_count => x_msg_count,
279: p_data => x_msg_data
280: );

Line 284: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

280: );
281:
282: IF x_msg_count > 1 THEN
283: FOR I IN 1..x_msg_count LOOP
284: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
285: END LOOP;
286: END IF;
287:
288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 292: FND_MSG_PUB.Count_And_Get (

288: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
289: ROLLBACK TO Select_CoveredInventory_PVT;
290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
291: -- Standard call to get message count and if count=1, get the message
292: FND_MSG_PUB.Count_And_Get (
293: p_encoded => FND_API.G_FALSE,
294: p_count => x_msg_count,
295: p_data => x_msg_data
296: );

Line 299: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

295: p_data => x_msg_data
296: );
297: IF x_msg_count > 1 THEN
298: FOR I IN 1..x_msg_count LOOP
299: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
300: END LOOP;
301: END IF;
302:
303: WHEN OTHERS THEN

Line 310: FND_MSG_PUB.add;

306: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
307: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Select_CoveredInventory');
308: fnd_message.set_token('ERRNO', sqlcode);
309: fnd_message.set_token('REASON', sqlerrm);
310: FND_MSG_PUB.add;
311: -- Standard call to get message count and if count=1, get the message
312: FND_MSG_PUB.Count_And_Get (
313: p_encoded => FND_API.G_FALSE,
314: p_count => x_msg_count,

Line 312: FND_MSG_PUB.Count_And_Get (

308: fnd_message.set_token('ERRNO', sqlcode);
309: fnd_message.set_token('REASON', sqlerrm);
310: FND_MSG_PUB.add;
311: -- Standard call to get message count and if count=1, get the message
312: FND_MSG_PUB.Count_And_Get (
313: p_encoded => FND_API.G_FALSE,
314: p_count => x_msg_count,
315: p_data => x_msg_data
316: );

Line 319: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

315: p_data => x_msg_data
316: );
317: IF x_msg_count > 1 THEN
318: FOR I IN 1..x_msg_count LOOP
319: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
320: END LOOP;
321: END IF;
322:
323:

Line 388: FND_MSG_PUB.initialize;

384: END IF;
385: -- Initialize message list if p_init_msg_list is set to TRUE.
386: IF FND_API.to_Boolean( p_init_msg_list )
387: THEN
388: FND_MSG_PUB.initialize;
389: END IF;
390:
391: -- Debug Message
392: IF g_debug THEN

Line 450: FND_MSG_PUB.Count_And_Get

446: IF g_debug THEN
447: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
448: END IF;
449: -- Standard call to get message count and if count is 1, get message info.
450: FND_MSG_PUB.Count_And_Get
451: (p_count => x_msg_count,
452: p_data => x_msg_data
453: );
454:

Line 461: FND_MSG_PUB.Count_And_Get (

457: WHEN DPP_UTILITY_PVT.resource_locked THEN
458: ROLLBACK TO Populate_CoveredInventory_PVT;
459: x_return_status := FND_API.g_ret_sts_error;
460: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
461: FND_MSG_PUB.Count_And_Get (
462: p_encoded => FND_API.G_FALSE,
463: p_count => x_msg_count,
464: p_data => x_msg_data
465: );

Line 468: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

464: p_data => x_msg_data
465: );
466: IF x_msg_count > 1 THEN
467: FOR I IN 1..x_msg_count LOOP
468: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
469: END LOOP;
470: END IF;
471:
472: WHEN FND_API.G_EXC_ERROR THEN

Line 476: FND_MSG_PUB.Count_And_Get (

472: WHEN FND_API.G_EXC_ERROR THEN
473: ROLLBACK TO Populate_CoveredInventory_PVT;
474: x_return_status := FND_API.G_RET_STS_ERROR;
475: -- Standard call to get message count and if count=1, get the message
476: FND_MSG_PUB.Count_And_Get (
477: p_encoded => FND_API.G_FALSE,
478: p_count => x_msg_count,
479: p_data => x_msg_data
480: );

Line 483: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

479: p_data => x_msg_data
480: );
481: IF x_msg_count > 1 THEN
482: FOR I IN 1..x_msg_count LOOP
483: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
484: END LOOP;
485: END IF;
486:
487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 491: FND_MSG_PUB.Count_And_Get (

487: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
488: ROLLBACK TO Populate_CoveredInventory_PVT;
489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
490: -- Standard call to get message count and if count=1, get the message
491: FND_MSG_PUB.Count_And_Get (
492: p_encoded => FND_API.G_FALSE,
493: p_count => x_msg_count,
494: p_data => x_msg_data
495: );

Line 498: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

494: p_data => x_msg_data
495: );
496: IF x_msg_count > 1 THEN
497: FOR I IN 1..x_msg_count LOOP
498: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
499: END LOOP;
500: END IF;
501:
502: WHEN OTHERS THEN

Line 509: FND_MSG_PUB.add;

505: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
506: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Populate_CoveredInventory');
507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: -- Standard call to get message count and if count=1, get the message
511: FND_MSG_PUB.Count_And_Get (
512: p_encoded => FND_API.G_FALSE,
513: p_count => x_msg_count,

Line 511: FND_MSG_PUB.Count_And_Get (

507: fnd_message.set_token('ERRNO', sqlcode);
508: fnd_message.set_token('REASON', sqlerrm);
509: FND_MSG_PUB.add;
510: -- Standard call to get message count and if count=1, get the message
511: FND_MSG_PUB.Count_And_Get (
512: p_encoded => FND_API.G_FALSE,
513: p_count => x_msg_count,
514: p_data => x_msg_data
515: );

Line 518: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

514: p_data => x_msg_data
515: );
516: IF x_msg_count > 1 THEN
517: FOR I IN 1..x_msg_count LOOP
518: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
519: END LOOP;
520: END IF;
521:
522: END Populate_CoveredInventory;

Line 575: FND_MSG_PUB.initialize;

571: END IF;
572: -- Initialize message list if p_init_msg_list is set to TRUE.
573: IF FND_API.to_Boolean( p_init_msg_list )
574: THEN
575: FND_MSG_PUB.initialize;
576: END IF;
577: -- Debug Message
578: IF g_debug THEN
579: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');

Line 590: FND_MSG_PUB.add;

586: --Check whether the last updated by value is passed
587: IF l_inv_hdr_rec.Last_Updated_By IS NULL THEN
588: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
589: FND_MESSAGE.set_token('ID', 'Last Updated By');
590: FND_MSG_PUB.add;
591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
594: FND_MESSAGE.set_token('ID', 'Effective Start Date');

Line 595: FND_MSG_PUB.add;

591: RAISE FND_API.G_EXC_ERROR;
592: ELSIF l_inv_hdr_rec.effective_start_date IS NULL THEN
593: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
594: FND_MESSAGE.set_token('ID', 'Effective Start Date');
595: FND_MSG_PUB.add;
596: RAISE FND_API.G_EXC_ERROR;
597: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
598: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
599: FND_MESSAGE.set_token('ID', 'Effective End Date');

Line 600: FND_MSG_PUB.add;

596: RAISE FND_API.G_EXC_ERROR;
597: ELSIF l_inv_hdr_rec.effective_end_date IS NULL THEN
598: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
599: FND_MESSAGE.set_token('ID', 'Effective End Date');
600: FND_MSG_PUB.add;
601: RAISE FND_API.G_EXC_ERROR;
602: END IF;
603:
604: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP

Line 608: FND_MSG_PUB.add;

604: FOR i IN l_covered_inv_tbl.FIRST..l_covered_inv_tbl.LAST LOOP
605: IF l_covered_inv_tbl(i).Transaction_Line_Id IS NULL THEN
606: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
607: FND_MESSAGE.set_token('ID', 'Transaction Line ID');
608: FND_MSG_PUB.add;
609: RAISE FND_API.G_EXC_ERROR;
610: ELSIF
611: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
612: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');

Line 614: FND_MSG_PUB.add;

610: ELSIF
611: l_covered_inv_tbl(i).inventory_item_id IS NULL THEN
612: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
613: FND_MESSAGE.set_token('ID', 'Inventory Item ID');
614: FND_MSG_PUB.add;
615: RAISE FND_API.G_EXC_ERROR;
616: ELSIF
617: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
618: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');

Line 620: FND_MSG_PUB.add;

616: ELSIF
617: l_covered_inv_tbl(i).UOM_Code IS NULL THEN
618: FND_MESSAGE.set_name('DPP', 'DPP_API_INPUT_ID_MISSING');
619: FND_MESSAGE.set_token('ID', 'UOM Code');
620: FND_MSG_PUB.add;
621: RAISE FND_API.G_EXC_ERROR;
622: ELSE
623: BEGIN
624: UPDATE DPP_TRANSACTION_LINES_ALL

Line 695: FND_MSG_PUB.add;

691: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
692: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory - Delete rows');
693: fnd_message.set_token('ERRNO', sqlcode);
694: fnd_message.set_token('REASON', sqlerrm);
695: FND_MSG_PUB.add;
696: END IF;
697: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
698: END;
699: --Insert child records if covered quantity <> 0

Line 832: FND_MSG_PUB.Count_And_Get

828: IF g_debug THEN
829: DPP_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'end');
830: END IF;
831: -- Standard call to get message count and if count is 1, get message info.
832: FND_MSG_PUB.Count_And_Get
833: (p_count => x_msg_count,
834: p_data => x_msg_data
835: );
836:

Line 843: FND_MSG_PUB.Count_And_Get (

839: WHEN DPP_UTILITY_PVT.resource_locked THEN
840: ROLLBACK TO Update_CoveredInventory_PVT;
841: x_return_status := FND_API.g_ret_sts_error;
842: DPP_UTILITY_PVT.Error_Message(p_message_name => 'API_RESOURCE_LOCKED');
843: FND_MSG_PUB.Count_And_Get (
844: p_encoded => FND_API.G_FALSE,
845: p_count => x_msg_count,
846: p_data => x_msg_data
847: );

Line 850: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

846: p_data => x_msg_data
847: );
848: IF x_msg_count > 1 THEN
849: FOR I IN 1..x_msg_count LOOP
850: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
851: END LOOP;
852: END IF;
853:
854: WHEN FND_API.G_EXC_ERROR THEN

Line 858: FND_MSG_PUB.Count_And_Get (

854: WHEN FND_API.G_EXC_ERROR THEN
855: ROLLBACK TO Update_CoveredInventory_PVT;
856: x_return_status := FND_API.G_RET_STS_ERROR;
857: -- Standard call to get message count and if count=1, get the message
858: FND_MSG_PUB.Count_And_Get (
859: p_encoded => FND_API.G_FALSE,
860: p_count => x_msg_count,
861: p_data => x_msg_data
862: );

Line 865: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

861: p_data => x_msg_data
862: );
863: IF x_msg_count > 1 THEN
864: FOR I IN 1..x_msg_count LOOP
865: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
866: END LOOP;
867: END IF;
868:
869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 873: FND_MSG_PUB.Count_And_Get (

869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
870: ROLLBACK TO Update_CoveredInventory_PVT;
871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
872: -- Standard call to get message count and if count=1, get the message
873: FND_MSG_PUB.Count_And_Get (
874: p_encoded => FND_API.G_FALSE,
875: p_count => x_msg_count,
876: p_data => x_msg_data
877: );

Line 880: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

876: p_data => x_msg_data
877: );
878: IF x_msg_count > 1 THEN
879: FOR I IN 1..x_msg_count LOOP
880: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
881: END LOOP;
882: END IF;
883:
884: WHEN OTHERS THEN

Line 891: FND_MSG_PUB.add;

887: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
888: fnd_message.set_token('ROUTINE', 'DPP_COVEREDINVENTORY_PVT.Update_CoveredInventory');
889: fnd_message.set_token('ERRNO', sqlcode);
890: fnd_message.set_token('REASON', sqlerrm);
891: FND_MSG_PUB.add;
892: -- Standard call to get message count and if count=1, get the message
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,

Line 893: FND_MSG_PUB.Count_And_Get (

889: fnd_message.set_token('ERRNO', sqlcode);
890: fnd_message.set_token('REASON', sqlerrm);
891: FND_MSG_PUB.add;
892: -- Standard call to get message count and if count=1, get the message
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,
896: p_data => x_msg_data
897: );

Line 900: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);

896: p_data => x_msg_data
897: );
898: IF x_msg_count > 1 THEN
899: FOR I IN 1..x_msg_count LOOP
900: x_msg_data := SUBSTR((x_msg_data||' '|| FND_MSG_PUB.GET(P_MSG_INDEX => I, P_ENCODED => 'F')), 1, 4000);
901: END LOOP;
902: END IF;
903:
904: