1: package body IEU_WR_ITEMS_PKG as
2: /* $Header: IEUVUWRB.pls 120.0 2005/06/02 15:42:25 appldev noship $ */
3:
4: procedure INSERT_ROW
5: ( p_workitem_obj_code IN VARCHAR2,
214: begin
215:
216: x_return_status := fnd_api.g_ret_sts_success;
217:
218: IEU_WR_ITEMS_PKG.UPDATE_ROW
219: ( p_WORKITEM_OBJ_CODE,
220: p_workitem_pk_id,
221: p_title,
222: p_party_id,
246: raise no_data_found;
247: end if;
248: Exception
249: when no_data_found then
250: IEU_WR_ITEMS_PKG.INSERT_ROW
251: ( p_workitem_obj_code,
252: p_workitem_pk_id,
253: p_work_item_number,
254: p_title,
347: x_return_status := fnd_api.g_ret_sts_error;
348: end if;
349:
350: end UPDATE_STATUS_FLAG;
351: end IEU_WR_ITEMS_PKG;