1: package body ALR_ACTION_SET_MEMBERS_PKG as
2: /* $Header: ALRASTMB.pls 120.3.12010000.1 2008/07/27 06:58:33 appldev ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out nocopy VARCHAR2,
5: X_APPLICATION_ID in NUMBER,
19: X_LAST_UPDATE_DATE in DATE,
20: X_LAST_UPDATED_BY in NUMBER,
21: X_LAST_UPDATE_LOGIN in NUMBER
22: ) is
23: cursor C is select ROWID from ALR_ACTION_SET_MEMBERS
24: where APPLICATION_ID = X_APPLICATION_ID
25: and ACTION_SET_MEMBER_ID = X_ACTION_SET_MEMBER_ID
26: ;
27: begin
24: where APPLICATION_ID = X_APPLICATION_ID
25: and ACTION_SET_MEMBER_ID = X_ACTION_SET_MEMBER_ID
26: ;
27: begin
28: insert into ALR_ACTION_SET_MEMBERS (
29: APPLICATION_ID,
30: ACTION_SET_MEMBER_ID,
31: ACTION_SET_ID,
32: ACTION_ID,
159: end if;
160:
161: /* Place the columns which can be null on the bottom */
162: select distinct action_set_member_id into l_action_set_member_id
163: from alr_action_set_members
164: where application_id = l_app_id
165: and action_set_id = l_action_set_id
166: and alert_id = l_alert_id
167: and sequence = to_number(X_SEQUENCE)
186: and (error_action_sequence = to_number(X_ERROR_ACTION_SEQUENCE))));
187:
188: select last_updated_by, last_update_date
189: into db_luby, db_ludate
190: from ALR_ACTION_SET_MEMBERS
191: where application_id = l_app_id
192: and action_set_member_id = l_action_set_member_id;
193:
194: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,db_ludate,
193:
194: if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,db_ludate,
195: x_custom_mode)) then
196:
197: ALR_ACTION_SET_MEMBERS_PKG.UPDATE_ROW(
198: X_APPLICATION_ID => l_app_id,
199: X_ACTION_SET_MEMBER_ID => l_action_set_member_id,
200: X_ACTION_SET_ID => l_action_set_id,
201: X_ACTION_ID => l_action_id,
216: exception
217:
218: when NO_DATA_FOUND then
219:
220: select ALR_ACTION_SET_MEMBERS_S.nextval
221: into l_action_set_member_id
222: from dual;
223:
224: ALR_ACTION_SET_MEMBERS_PKG.INSERT_ROW(
220: select ALR_ACTION_SET_MEMBERS_S.nextval
221: into l_action_set_member_id
222: from dual;
223:
224: ALR_ACTION_SET_MEMBERS_PKG.INSERT_ROW(
225: X_ROWID => l_row_id,
226: X_APPLICATION_ID => l_app_id,
227: X_ACTION_SET_MEMBER_ID => l_action_set_member_id,
228: X_ACTION_SET_ID => l_action_set_id,
269: ABORT_FLAG,
270: ERROR_ACTION_SEQUENCE,
271: APPLICATION_ID,
272: ACTION_SET_MEMBER_ID
273: from ALR_ACTION_SET_MEMBERS
274: where APPLICATION_ID = X_APPLICATION_ID
275: and ACTION_SET_MEMBER_ID = X_ACTION_SET_MEMBER_ID
276: for update of APPLICATION_ID nowait;
277: begin
324: X_LAST_UPDATED_BY in NUMBER,
325: X_LAST_UPDATE_LOGIN in NUMBER
326: ) is
327: begin
328: update ALR_ACTION_SET_MEMBERS set
329: ACTION_SET_ID = X_ACTION_SET_ID,
330: ACTION_ID = X_ACTION_ID,
331: ACTION_GROUP_ID = X_ACTION_GROUP_ID,
332: ALERT_ID = X_ALERT_ID,
353: X_APPLICATION_ID in NUMBER,
354: X_ACTION_SET_MEMBER_ID in NUMBER
355: ) is
356: begin
357: delete from ALR_ACTION_SET_MEMBERS
358: where APPLICATION_ID = X_APPLICATION_ID
359: and ACTION_SET_MEMBER_ID = X_ACTION_SET_MEMBER_ID;
360:
361: if (sql%notfound) then
364:
365: end DELETE_ROW;
366:
367:
368: end ALR_ACTION_SET_MEMBERS_PKG;