1: package body BNE_INTERFACE_KEYS_PKG as
2: /* $Header: bneintkeyb.pls 120.2 2005/06/29 03:40:06 dvayro noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
200: -- Test for customization and version
201: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
202: db_ludate, x_custom_mode)) then
203: -- Update existing row
204: BNE_INTERFACE_KEYS_PKG.Update_Row(
205: X_APPLICATION_ID => l_app_id,
206: X_KEY_CODE => x_key_code,
207: X_OBJECT_VERSION_NUMBER => x_object_version_number,
208: X_INTERFACE_APP_ID => l_interface_app_id,
216: end if;
217: exception
218: when no_data_found then
219: -- Record doesn't exist - insert in all cases
220: BNE_INTERFACE_KEYS_PKG.Insert_Row(
221: X_ROWID => l_row_id,
222: X_APPLICATION_ID => l_app_id,
223: X_KEY_CODE => x_key_code,
224: X_OBJECT_VERSION_NUMBER => x_object_version_number,
234: );
235: end;
236: end LOAD_ROW;
237:
238: end BNE_INTERFACE_KEYS_PKG;