1: package body AMS_APPROVAL_RULES_PKG as
2: /* $Header: amslappb.pls 120.1 2005/06/27 05:37:55 appldev ship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in OUT NOCOPY VARCHAR2,
178: l_APPROVAL_RULE_ID := X_APPROVAL_RULE_ID;
179: end if;
180: l_obj_verno := 1;
181:
182: AMS_APPROVAL_RULES_PKG.INSERT_ROW(
183: X_ROWID => l_row_id,
184: X_APPROVAL_RULE_ID => l_APPROVAL_RULE_ID ,
185: X_OBJECT_VERSION_NUMBER => l_obj_verno,
186: X_ARC_APPROVAL_FOR_OBJECT => X_ARC_APPROVAL_FOR_OBJECT ,
203: close c_chk_app_exists;
204: open c_obj_verno;
205: fetch c_obj_verno into l_obj_verno;
206: close c_obj_verno;
207: AMS_APPROVAL_RULES_PKG.UPDATE_ROW(
208: X_APPROVAL_RULE_ID => x_APPROVAL_RULE_ID ,
209: X_OBJECT_VERSION_NUMBER => l_obj_verno + 1,
210: X_ARC_APPROVAL_FOR_OBJECT => X_ARC_APPROVAL_FOR_OBJECT ,
211: X_APPROVAL_TYPE => X_APPROVAL_TYPE,
222: );
223: end if;
224: END LOAD_ROW;
225:
226: end AMS_APPROVAL_RULES_PKG;