[Home] [Help]
118: end if;
119:
120: dbms_output.put_line(off_line);
121:
122: stmt:= 'insert into fnd_notifications'
123: || '(notification_id, employee_id, message_name, priority, status, object_id, deletable, from_id, application_id, doc_type, ' ||
124: 'doc_number, amount, currency, note, start_effective_date, end_effective_date, doc_creation_date, date1, date2, date3, off_line,
125: '
126: || 'attribute1, attribute2, attribute3, attribute4, attribute5,'
132: || 'attribute31, attribute32, '
133: || 'last_update_date, last_updated_by, last_update_login, '
134: || 'creation_date, created_by)'
135: || ' values '
136: || '(fnd_notifications_s.nextval, :employee_id, :message_name, :priority, :status, :object_id, :deletable, :from_id, :application_id, ' ||
137: ':doc_type, :doc_number, :amount, :currency, :note, :start_effective_date, :end_effective_date, :doc_creation_date, :date1, :date2, :date3, :off_line, '
138: || ':a1, :a2, :a3, :a4, :a5, :a6, :a7, :a8, :a9, :a10,'
139: || ':a11, :a12, :a13, :a14, :a15, :a16,'
140: || ':a17, :a18, :a19, :a20, :a21, :a22,'
185: -- sys.dbms_output.put_line(stmt);
186:
187: rows_processed := sys.dbms_sql.execute(c);
188: sys.dbms_sql.close_cursor(c);
189: select fnd_notifications_s.currval into notification_id from dual;
190: return_code:=0;
191: dbms_output.put_line('after send notification');
192:
193:
210: candelete varchar2(25) := '';
211: begin
212: select 'record_exists'
213: into candelete
214: from fnd_notifications
215: where notification_id = p_notification_id;
216: if candelete = 'record_exists' then
217: delete from fnd_notifications
218: where notification_id = p_notification_id;
213: into candelete
214: from fnd_notifications
215: where notification_id = p_notification_id;
216: if candelete = 'record_exists' then
217: delete from fnd_notifications
218: where notification_id = p_notification_id;
219: return_code:=0;
220: else
221: return_code:=1;
226: p_object_id number,
227: p_doc_type varchar2)
228: is
229: /* DEBUG. gtummala. 9/16/97.
230: * fnd_notifications_view isn't in the sep10 install.
231: * Just to make this package compile I'm going to take
232: * this whole procedure and replace with a null.
233: * We're going to drop this package
234: * next week anyway.
236:
237:
238: /*
239: cursor c1 is select notification_id
240: from fnd_notifications_view
241: where object_id=p_object_id
242: and p_doc_type = doc_type;
243:
244: */
268: -- Check for valid employee id
269: select rowid into xxx
270: from hr_employees where employee_id=p_new_recip;
271:
272: update fnd_notifications
273: set from_id = employee_id,
274: employee_id = p_new_recip,
275: note = p_note,
276: last_update_date = sysdate,
333: x_progress := '010';
334:
335: SELECT count(1)
336: INTO x_data_exists
337: FROM fnd_notifications
338: WHERE notification_id = x_notification_id;
339:
340: ELSE
341: x_progress := '015';