139: l_p_allow_delete VARCHAR2(3);
140:
141: BEGIN
142:
143: DBMS_TRANSACTION.SAVEPOINT('AUTO_DETAIL_SAVE');
144:
145: IF (p_allow_delete = 1) THEN
146: l_p_allow_delete := 'YES';
147: ELSE
174: FND_MSG_PUB.GET( p_msg_index => 1,
175: p_data => x_error_msg,
176: p_encoded => 'F',
177: p_msg_index_out => l_dummy);
178: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('AUTO_DETAIL_SAVE');
179: x_return_status := 'E';
180: END IF;
181:
182: EXCEPTION
181:
182: EXCEPTION
183: WHEN others THEN
184: x_return_status := 'E';
185: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('AUTO_DETAIL_SAVE');
186: FND_Message.Set_Name('INV','UNEXP_ERROR_AUTO_DETAIL');
187: x_error_msg := FND_MESSAGE.GET;
188:
189: END Auto_Allocate;