108:
109: EXCEPTION
110:
111: WHEN OTHERS THEN
112: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
113: THEN
114: FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
115: , 'Build'
116: );
110:
111: WHEN OTHERS THEN
112: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
113: THEN
114: FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
115: , 'Build'
116: );
117: END IF;
118: x_retcode := 2;
116: );
117: END IF;
118: x_retcode := 2;
119: x_errbuff := SUBSTR
120: ( FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
121: , 1, 255
122: );
123: ROLLBACK;
124:
190:
191: EXCEPTION
192:
193: WHEN OTHERS THEN
194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
195: THEN
196: FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
197: , 'Purge'
198: );
192:
193: WHEN OTHERS THEN
194: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
195: THEN
196: FND_MSG_PUB.Add_Exc_Msg( 'INV_MGD_POSITIONS_CP'
197: , 'Purge'
198: );
199: END IF;
200: x_retcode := 2;
198: );
199: END IF;
200: x_retcode := 2;
201: x_errbuff := SUBSTR
202: ( FND_MSG_PUB.Get(p_encoded => FND_API.G_FALSE)
203: , 1, 255
204: );
205: ROLLBACK;
206: