1: package body AMS_SETUP_TYPES_PKG as
2: /* $Header: amslsetb.pls 115.11 2003/10/13 17:36:13 asaha ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in OUT NOCOPY VARCHAR2,
5: X_SETUP_TYPE_ID in NUMBER,
26: X_LAST_UPDATE_DATE in DATE,
27: X_LAST_UPDATED_BY in NUMBER,
28: X_LAST_UPDATE_LOGIN in NUMBER
29: ) is
30: cursor C is select ROWID from AMS_SETUP_TYPES
31: where SETUP_TYPE_ID = X_SETUP_TYPE_ID;
32: begin
33: insert into AMS_SETUP_TYPES (
34: DISPLAY_SEQUENCE_NO,
29: ) is
30: cursor C is select ROWID from AMS_SETUP_TYPES
31: where SETUP_TYPE_ID = X_SETUP_TYPE_ID;
32: begin
33: insert into AMS_SETUP_TYPES (
34: DISPLAY_SEQUENCE_NO,
35: SETUP_TYPE_ID,
36: LAST_UPDATE_DATE,
37: LAST_UPDATED_BY,
117: X_LAST_UPDATED_BY in NUMBER,
118: X_LAST_UPDATE_LOGIN in NUMBER
119: ) is
120: begin
121: update AMS_SETUP_TYPES set
122: DISPLAY_SEQUENCE_NO = X_DISPLAY_SEQUENCE_NO,
123: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
124: OBJECT_TYPE = X_OBJECT_TYPE,
125: ACTIVITY_TYPE_CODE = X_ACTIVITY_TYPE_CODE,
151: procedure DELETE_ROW (
152: X_SETUP_TYPE_ID in NUMBER
153: ) is
154: begin
155: delete from AMS_SETUP_TYPES
156: where SETUP_TYPE_ID = X_SETUP_TYPE_ID;
157:
158: if (sql%notfound) then
159: raise no_data_found;
191: l_set_id number;
192:
193: cursor c_obj_verno is
194: select object_version_number
195: from AMS_SETUP_TYPES
196: where setup_type_id = X_SETUP_TYPE_ID;
197:
198: cursor c_chk_set_exists is
199: select 'x'
196: where setup_type_id = X_SETUP_TYPE_ID;
197:
198: cursor c_chk_set_exists is
199: select 'x'
200: from AMS_SETUP_TYPES
201: where setup_type_id = X_SETUP_TYPE_ID;
202:
203: cursor c_get_setid is
204: select AMS_SETUP_TYPES_S.nextval
200: from AMS_SETUP_TYPES
201: where setup_type_id = X_SETUP_TYPE_ID;
202:
203: cursor c_get_setid is
204: select AMS_SETUP_TYPES_S.nextval
205: from dual;
206: BEGIN
207:
208: if X_OWNER = 'SEED' then
222: else
223: l_set_id := X_SETUP_TYPE_ID;
224: end if;
225: l_obj_verno := 1;
226: AMS_SETUP_TYPES_PKG.INSERT_ROW(
227: X_ROWID => l_row_id,
228: X_SETUP_TYPE_ID => X_SETUP_TYPE_ID,
229: X_DISPLAY_SEQUENCE_NO => X_DISPLAY_SEQUENCE_NO,
230: X_OBJECT_VERSION_NUMBER => l_obj_verno,
251: X_LAST_UPDATE_LOGIN => 0
252: );
253: else
254: close c_chk_set_exists;
255: AMS_SETUP_TYPES_PKG.UPDATE_ROW(
256: X_SETUP_TYPE_ID => X_SETUP_TYPE_ID,
257: X_DISPLAY_SEQUENCE_NO => X_DISPLAY_SEQUENCE_NO,
258: X_OBJECT_VERSION_NUMBER => X_OBJECT_VERSION_NUMBER + 1,
259: X_OBJECT_TYPE => X_OBJECT_TYPE,
279:
280: end if;
281: END LOAD_ROW;
282:
283: end AMS_SETUP_TYPES_PKG;