1: package body AZ_STRUCTURES_PKG as
2: /* $Header: aztstrctb.pls 120.2 2006/01/13 07:39:58 sbandi noship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_STRUCTURE_CODE in VARCHAR2,
296: from AZ_STRUCTURES_B
297: where STRUCTURE_CODE = X_STRUCTURE_CODE;
298:
299: IF luby = 1 THEN
300: AZ_STRUCTURES_PKG.UPDATE_ROW(
301: X_STRUCTURE_CODE => X_STRUCTURE_CODE,
302: X_HIERARCHICAL_FLAG => X_HIERARCHICAL_FLAG,
303: X_ACTIVE => X_ACTIVE,
304: X_STRUCTURE_NAME => X_STRUCTURE_NAME,
311:
312: exception
313: when NO_DATA_FOUND then
314:
315: AZ_STRUCTURES_PKG.INSERT_ROW(
316: X_ROWID => l_row_id,
317: X_STRUCTURE_CODE => X_STRUCTURE_CODE,
318: X_HIERARCHICAL_FLAG => X_HIERARCHICAL_FLAG,
319: X_ACTIVE => X_ACTIVE,
329: end;
330:
331: end LOAD_ROW;
332:
333: end AZ_STRUCTURES_PKG;