1: package body JTF_LOC_AREAS_PKG as
2: /* $Header: jtflloab.pls 120.2 2005/08/18 23:07:42 stopiwal ship $ */
3: procedure INSERT_ROW (
4: X_ROWID IN OUT NOCOPY /* file.sql.39 change */ VARCHAR2,
5: X_LOCATION_AREA_ID in NUMBER,
416: else
417: l_area_id := X_LOCATION_AREA_ID;
418: end if;
419: l_obj_verno := 1;
420: JTF_LOC_AREAS_PKG.INSERT_ROW(
421: X_ROWID => l_row_id,
422: X_LOCATION_AREA_ID => l_area_id,
423: X_OBJECT_VERSION_NUMBER => l_obj_verno,
424: X_PARENT_LOCATION_AREA_ID => X_PARENT_LOCATION_AREA_ID,
444: close c_chk_area_exists;
445: open c_obj_verno;
446: fetch c_obj_verno into l_obj_verno;
447: close c_obj_verno;
448: JTF_LOC_AREAS_PKG.UPDATE_ROW(
449: X_LOCATION_AREA_ID => X_LOCATION_AREA_ID,
450: X_OBJECT_VERSION_NUMBER => l_obj_verno + 1,
451: X_PARENT_LOCATION_AREA_ID => X_PARENT_LOCATION_AREA_ID,
452: X_REQUEST_ID => X_REQUEST_ID,
467: );
468: end if;
469: END LOAD_ROW;
470:
471: end JTF_LOC_AREAS_PKG;