105: END IF;
106: --
107:
108: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
109: FND_MSG_PUB.initialize ;
110: END IF;
111: --
112: p_return_status := FND_API.G_RET_STS_SUCCESS ;
113: --
211: IF FND_API.To_Boolean ( p_commit ) THEN
212: COMMIT WORK;
213: END IF;
214: --
215: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
216: p_data => p_msg_data );
217: --
218: EXCEPTION
219: --
220: WHEN FND_API.G_EXC_ERROR THEN
221: --
222: ROLLBACK TO Enforce_BR_Concurrency_Pvt ;
223: p_return_status := FND_API.G_RET_STS_ERROR;
224: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
225: p_data => p_msg_data );
226: --
227: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228: --
227: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228: --
229: ROLLBACK TO Enforce_BR_Concurrency_Pvt ;
230: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
231: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
232: p_data => p_msg_data );
233: --
234: WHEN OTHERS THEN
235: --
235: --
236: ROLLBACK TO Enforce_BR_Concurrency_Pvt ;
237: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: --
239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
240: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
241: l_api_name);
242: END if;
243: --
236: ROLLBACK TO Enforce_BR_Concurrency_Pvt ;
237: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: --
239: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
240: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
241: l_api_name);
242: END if;
243: --
244: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
240: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
241: l_api_name);
242: END if;
243: --
244: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
245: p_data => p_msg_data );
246: --
247: END Enforce_BR_Concurrency ;
248: /*---------------------------------------------------------------------------*/
289: END IF;
290: --
291:
292: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
293: FND_MSG_PUB.initialize ;
294: END IF;
295: --
296: p_return_status := FND_API.G_RET_STS_SUCCESS ;
297: --
348: ELSE
349: --
350: Fnd_Message.Set_Name ('PSB', 'PSB_INVALID_ARGUMENT') ;
351: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
352: FND_MSG_PUB.Add;
353: RAISE FND_API.G_EXC_ERROR ;
354: --
355: END IF ;
356:
358: IF FND_API.To_Boolean ( p_commit ) THEN
359: COMMIT WORK;
360: END IF;
361: --
362: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
363: p_data => p_msg_data );
364: --
365: EXCEPTION
366: --
367: WHEN FND_API.G_EXC_ERROR THEN
368: --
369: ROLLBACK TO Check_BR_Ops_Concurrency_Pvt ;
370: p_return_status := FND_API.G_RET_STS_ERROR;
371: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
372: p_data => p_msg_data );
373: --
374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375: --
374: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
375: --
376: ROLLBACK TO Check_BR_Ops_Concurrency_Pvt ;
377: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
378: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
379: p_data => p_msg_data );
380: --
381: WHEN OTHERS THEN
382: --
382: --
383: ROLLBACK TO Check_BR_Ops_Concurrency_Pvt ;
384: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: --
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
387: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
388: l_api_name );
389: END if;
390: --
383: ROLLBACK TO Check_BR_Ops_Concurrency_Pvt ;
384: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: --
386: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
387: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
388: l_api_name );
389: END if;
390: --
391: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
387: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
388: l_api_name );
389: END if;
390: --
391: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
392: p_data => p_msg_data );
393: --
394: END Check_BR_Ops_Concurrency ;
395:
464: END IF;
465: --
466:
467: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
468: FND_MSG_PUB.initialize ;
469: END IF;
470: --
471: p_return_status := FND_API.G_RET_STS_SUCCESS ;
472: --
487: IF ( l_budget_revisions_csr%NOTFOUND ) THEN
488: --
489: Fnd_Message.Set_Name ('PSB','PSB_INVALID_BUDGET_REVISION_ID') ;
490: Fnd_Message.Set_Token('ROUTINE', l_api_name ) ;
491: FND_MSG_PUB.Add;
492: RAISE FND_API.G_EXC_ERROR ;
493: END IF ;
494:
495: -- l_budget_by_position defines whether budget revision contains positions
742: IF FND_API.To_Boolean ( p_commit ) THEN
743: COMMIT WORK;
744: END IF;
745: --
746: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
747: p_data => p_msg_data );
748: --
749: EXCEPTION
750: --
751: WHEN FND_API.G_EXC_ERROR THEN
752: --
753: ROLLBACK TO Create_Budget_Revision_Pvt ;
754: p_return_status := FND_API.G_RET_STS_ERROR;
755: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
756: p_data => p_msg_data );
757: --
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759: --
758: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
759: --
760: ROLLBACK TO Create_Budget_Revision_Pvt ;
761: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
762: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
763: p_data => p_msg_data );
764: --
765: WHEN OTHERS THEN
766: --
770: --
771: ROLLBACK TO Create_Budget_Revision_Pvt ;
772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: --
774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
775: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
776: l_api_name);
777: END if;
778: --
771: ROLLBACK TO Create_Budget_Revision_Pvt ;
772: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
773: --
774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
775: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
776: l_api_name);
777: END if;
778: --
779: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
775: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
776: l_api_name);
777: END if;
778: --
779: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
780: p_data => p_msg_data );
781: --
782:
783: END Create_Budget_Revision;
828: END IF;
829: --
830:
831: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
832: FND_MSG_PUB.initialize ;
833: END IF;
834: --
835: p_return_status := FND_API.G_RET_STS_SUCCESS ;
836: --
873:
874: IF l_parent_freeze_flag = 'Y' THEN
875:
876: Fnd_Message.Set_Name('PSB','PSB_CANNOT_UNFREEZE_REVISION') ;
877: FND_MSG_PUB.Add;
878: RAISE FND_API.G_EXC_ERROR ;
879:
880: END IF ;
881:
949: IF FND_API.To_Boolean ( p_commit ) THEN
950: COMMIT WORK;
951: END IF;
952: --
953: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
954: p_data => p_msg_data );
955: --
956: EXCEPTION
957: --
958: WHEN FND_API.G_EXC_ERROR THEN
959: --
960: ROLLBACK TO Freeze_Budget_Revision_Pvt ;
961: p_return_status := FND_API.G_RET_STS_ERROR;
962: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
963: p_data => p_msg_data );
964: --
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966: --
965: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
966: --
967: ROLLBACK TO Freeze_Budget_Revision_Pvt ;
968: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
969: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
970: p_data => p_msg_data );
971: --
972: WHEN OTHERS THEN
973: --
973: --
974: ROLLBACK TO Freeze_Budget_Revision_Pvt ;
975: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
976: --
977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
978: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
979: l_api_name);
980: END if;
981: --
974: ROLLBACK TO Freeze_Budget_Revision_Pvt ;
975: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
976: --
977: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
978: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
979: l_api_name);
980: END if;
981: --
982: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
978: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
979: l_api_name);
980: END if;
981: --
982: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
983: p_data => p_msg_data );
984: --
985: END Freeze_Budget_Revision;
986: /*---------------------------------------------------------------------------*/
1033: END IF;
1034: --
1035:
1036: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
1037: FND_MSG_PUB.initialize ;
1038: END IF;
1039: --
1040: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1041: p_budget_revision_id_OUT := -99 ;
1119: IF FND_API.To_Boolean ( p_commit ) THEN
1120: COMMIT WORK;
1121: END IF;
1122: --
1123: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1124: p_data => p_msg_data );
1125: --
1126: EXCEPTION
1127: --
1128: WHEN FND_API.G_EXC_ERROR THEN
1129: --
1130: ROLLBACK TO Find_Parent_Revision_Pvt ;
1131: p_return_status := FND_API.G_RET_STS_ERROR;
1132: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1133: p_data => p_msg_data );
1134: --
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: --
1135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1136: --
1137: ROLLBACK TO Find_Parent_Revision_Pvt ;
1138: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1140: p_data => p_msg_data );
1141: --
1142: WHEN OTHERS THEN
1143: --
1143: --
1144: ROLLBACK TO Find_Parent_Revision_Pvt ;
1145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: --
1147: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1149: l_api_name);
1150: END if;
1151: --
1144: ROLLBACK TO Find_Parent_Revision_Pvt ;
1145: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1146: --
1147: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1149: l_api_name);
1150: END if;
1151: --
1152: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1149: l_api_name);
1150: END if;
1151: --
1152: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1153: p_data => p_msg_data );
1154: --
1155: END Find_Parent_Budget_Revision;
1156: /*---------------------------------------------------------------------------*/
1201: END IF;
1202: --
1203:
1204: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
1205: FND_MSG_PUB.initialize ;
1206: END IF;
1207: --
1208: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1209: --
1259: IF FND_API.To_Boolean ( p_commit ) THEN
1260: COMMIT WORK;
1261: END IF;
1262: --
1263: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1264: p_data => p_msg_data );
1265: --
1266: EXCEPTION
1267: --
1268: WHEN FND_API.G_EXC_ERROR THEN
1269: --
1270: ROLLBACK TO Find_Parent_Revisions_Pvt;
1271: p_return_status := FND_API.G_RET_STS_ERROR;
1272: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1273: p_data => p_msg_data );
1274: --
1275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1276: --
1275: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1276: --
1277: ROLLBACK TO Find_Parent_Revisions_Pvt;
1278: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1279: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1280: p_data => p_msg_data );
1281: --
1282: WHEN OTHERS THEN
1283: --
1283: --
1284: ROLLBACK TO Find_Parent_Revisions_Pvt;
1285: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286: --
1287: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1288: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1289: l_api_name);
1290: END if;
1291: --
1284: ROLLBACK TO Find_Parent_Revisions_Pvt;
1285: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1286: --
1287: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1288: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1289: l_api_name);
1290: END if;
1291: --
1292: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1288: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1289: l_api_name);
1290: END if;
1291: --
1292: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1293: p_data => p_msg_data );
1294: --
1295: END Find_Parent_Budget_Revisions;
1296: /*---------------------------------------------------------------------------*/
1345: END IF;
1346: --
1347:
1348: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
1349: FND_MSG_PUB.initialize ;
1350: END IF;
1351: --
1352: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1353: --
1456: IF FND_API.To_Boolean ( p_commit ) THEN
1457: COMMIT WORK;
1458: END IF;
1459: --
1460: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1461: p_data => p_msg_data );
1462: --
1463: EXCEPTION
1464: --
1465: WHEN FND_API.G_EXC_ERROR THEN
1466: --
1467: ROLLBACK TO Find_Child_Revisions_Pvt ;
1468: p_return_status := FND_API.G_RET_STS_ERROR;
1469: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1470: p_data => p_msg_data );
1471: --
1472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: --
1472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1473: --
1474: ROLLBACK TO Find_Child_Revisions_Pvt ;
1475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1476: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1477: p_data => p_msg_data );
1478: --
1479: WHEN OTHERS THEN
1480: --
1480: --
1481: ROLLBACK TO Find_Child_Revisions_Pvt ;
1482: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1483: --
1484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1486: l_api_name);
1487: END if;
1488: --
1481: ROLLBACK TO Find_Child_Revisions_Pvt ;
1482: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1483: --
1484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1486: l_api_name);
1487: END if;
1488: --
1489: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1486: l_api_name);
1487: END if;
1488: --
1489: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1490: p_data => p_msg_data );
1491: --
1492: END Find_Child_Budget_Revisions ;
1493: /*---------------------------------------------------------------------------*/
1560: END IF;
1561: --
1562:
1563: IF FND_API.To_Boolean ( p_init_msg_list ) THEN
1564: FND_MSG_PUB.initialize ;
1565: END IF;
1566: --
1567: p_return_status := FND_API.G_RET_STS_SUCCESS ;
1568: --
1771: IF FND_API.To_Boolean ( p_commit ) THEN
1772: COMMIT WORK;
1773: END IF;
1774: --
1775: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1776: p_data => p_msg_data );
1777: --
1778: EXCEPTION
1779: --
1780: WHEN FND_API.G_EXC_ERROR THEN
1781: --
1782: ROLLBACK TO Update_Target_Revision_Pvt ;
1783: p_return_status := FND_API.G_RET_STS_ERROR;
1784: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1785: p_data => p_msg_data );
1786: --
1787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1788: --
1787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1788: --
1789: ROLLBACK TO Update_Target_Revision_Pvt ;
1790: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1791: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1792: p_data => p_msg_data );
1793: --
1794: WHEN OTHERS THEN
1795: --
1796: ROLLBACK TO Update_Target_Revision_Pvt ;
1797: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798: --
1799:
1800: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1801: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1802: l_api_name);
1803: END if;
1804: --
1797: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1798: --
1799:
1800: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1801: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1802: l_api_name);
1803: END if;
1804: --
1805: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1801: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1802: l_api_name);
1803: END if;
1804: --
1805: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
1806: p_data => p_msg_data );
1807: --
1808: END Update_Target_Budget_Revision ;
1809: /*---------------------------------------------------------------------------*/
1879: WHEN OTHERS THEN
1880: --
1881: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1882: --
1883: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1884: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1885: l_api_name );
1886: END IF;
1887: --
1880: --
1881: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1882: --
1883: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1884: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1885: l_api_name );
1886: END IF;
1887: --
1888: END Insert_BR_Lines_Pvt ;
1960: WHEN OTHERS THEN
1961: --
1962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1963: --
1964: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1965: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1966: l_api_name );
1967: END IF;
1968: --
1961: --
1962: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1963: --
1964: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1965: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
1966: l_api_name );
1967: END IF;
1968: --
1969: END Insert_BR_Pos_Lines_Pvt ;