120: BEGIN
121:
122: if (fnd_profile.defined('GMO_ENABLED_FLAG')) THEN
123: if GMO_SETUP_GRP.IS_GMO_ENABLED = GMO_CONSTANTS_GRP.YES THEN
124: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_IS_ENABLED_START_PROCESS') );
125: fnd_file.new_line(fnd_file.output, 1);
126:
127: OPEN CBR_EVENTS;
128: LOOP
121:
122: if (fnd_profile.defined('GMO_ENABLED_FLAG')) THEN
123: if GMO_SETUP_GRP.IS_GMO_ENABLED = GMO_CONSTANTS_GRP.YES THEN
124: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_IS_ENABLED_START_PROCESS') );
125: fnd_file.new_line(fnd_file.output, 1);
126:
127: OPEN CBR_EVENTS;
128: LOOP
129: FETCH CBR_EVENTS INTO l_EVENT_REC;
131: l_event_name := l_EVENT_REC.name;
132: IF l_EVENT_REC.STATUS = 'DISABLED' THEN
133: fnd_message.set_name('GMO', 'GMO_CBR_EVENT_PROCESSING');
134: fnd_message.set_token('EVENT', l_EVENT_REC.DISPLAY_NAME);
135: fnd_file.put_line(fnd_file.output, fnd_message.get);
136: fnd_file.new_line(fnd_file.output, 2);
137:
138: --
139: -- Enable ERES Event for Control Batch Recording
132: IF l_EVENT_REC.STATUS = 'DISABLED' THEN
133: fnd_message.set_name('GMO', 'GMO_CBR_EVENT_PROCESSING');
134: fnd_message.set_token('EVENT', l_EVENT_REC.DISPLAY_NAME);
135: fnd_file.put_line(fnd_file.output, fnd_message.get);
136: fnd_file.new_line(fnd_file.output, 2);
137:
138: --
139: -- Enable ERES Event for Control Batch Recording
140: --
159: -- disable ERES Event subscriptions owned by product teams
160: --
161: fnd_message.set_name('GMO', 'GMO_CBR_EVT_PROD_SUB_PROCESS');
162: fnd_message.set_token('EVENT', l_EVENT_REC.DISPLAY_NAME);
163: fnd_file.put_line(fnd_file.output, fnd_message.get);
164: fnd_file.new_line(fnd_file.output, 2);
165:
166: WF_EVENT_SUBSCRIPTIONS_PKG.UPDATE_ROW(X_GUID => l_CBR_EVENT_SUBCRIPTIONS_REC.GUID
167: ,X_SYSTEM_GUID => l_CBR_EVENT_SUBCRIPTIONS_REC.SYSTEM_GUID
160: --
161: fnd_message.set_name('GMO', 'GMO_CBR_EVT_PROD_SUB_PROCESS');
162: fnd_message.set_token('EVENT', l_EVENT_REC.DISPLAY_NAME);
163: fnd_file.put_line(fnd_file.output, fnd_message.get);
164: fnd_file.new_line(fnd_file.output, 2);
165:
166: WF_EVENT_SUBSCRIPTIONS_PKG.UPDATE_ROW(X_GUID => l_CBR_EVENT_SUBCRIPTIONS_REC.GUID
167: ,X_SYSTEM_GUID => l_CBR_EVENT_SUBCRIPTIONS_REC.SYSTEM_GUID
168: ,X_SOURCE_TYPE => l_CBR_EVENT_SUBCRIPTIONS_REC.SOURCE_TYPE
197: FETCH CBR_GMO_SUBCRIPTIONS INTO l_CBR_GMO_SUBCRIPTIONS_REC;
198: EXIT WHEN CBR_GMO_SUBCRIPTIONS%NOTFOUND;
199: fnd_message.set_name('GMO', 'GMO_CBR_EVT_GMO_SUB_PROCESS');
200: fnd_message.set_token('EVENT', l_EVENT_REC.DISPLAY_NAME);
201: fnd_file.put_line(fnd_file.output, fnd_message.get);
202: fnd_file.new_line(fnd_file.output, 2);
203:
204: --
205: -- enable ERES Event subscriptions owned by GMO
198: EXIT WHEN CBR_GMO_SUBCRIPTIONS%NOTFOUND;
199: fnd_message.set_name('GMO', 'GMO_CBR_EVT_GMO_SUB_PROCESS');
200: fnd_message.set_token('EVENT', l_EVENT_REC.DISPLAY_NAME);
201: fnd_file.put_line(fnd_file.output, fnd_message.get);
202: fnd_file.new_line(fnd_file.output, 2);
203:
204: --
205: -- enable ERES Event subscriptions owned by GMO
206: --
239: THEN
240: l_err := fnd_profile.save('GMO_CBR_ENABLED_DATE',TO_CHAR(sysdate, datetime_format), 'SITE');
241: fnd_message.set_name('GMO', 'GMO_EBR_ENABLED_DATE');
242: fnd_message.set_token('ENABLE_DATE',TO_DATE(fnd_profile.value('GMO_CBR_ENABLED_DATE'), datetime_format) );
243: fnd_file.put_line(fnd_file.output, fnd_message.get);
244: fnd_file.new_line(fnd_file.output, 2);
245: END IF;
246: COMMIT;
247: else
240: l_err := fnd_profile.save('GMO_CBR_ENABLED_DATE',TO_CHAR(sysdate, datetime_format), 'SITE');
241: fnd_message.set_name('GMO', 'GMO_EBR_ENABLED_DATE');
242: fnd_message.set_token('ENABLE_DATE',TO_DATE(fnd_profile.value('GMO_CBR_ENABLED_DATE'), datetime_format) );
243: fnd_file.put_line(fnd_file.output, fnd_message.get);
244: fnd_file.new_line(fnd_file.output, 2);
245: END IF;
246: COMMIT;
247: else
248: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_IS_NOT_ENABLED') );
244: fnd_file.new_line(fnd_file.output, 2);
245: END IF;
246: COMMIT;
247: else
248: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_IS_NOT_ENABLED') );
249: fnd_file.new_line(fnd_file.output, 1);
250: end if;
251: else
252: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_PROFILE_NOTFOUND') );
245: END IF;
246: COMMIT;
247: else
248: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_IS_NOT_ENABLED') );
249: fnd_file.new_line(fnd_file.output, 1);
250: end if;
251: else
252: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_PROFILE_NOTFOUND') );
253: fnd_file.new_line(fnd_file.output, 1);
248: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_IS_NOT_ENABLED') );
249: fnd_file.new_line(fnd_file.output, 1);
250: end if;
251: else
252: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_PROFILE_NOTFOUND') );
253: fnd_file.new_line(fnd_file.output, 1);
254: APP_EXCEPTION.Raise_exception;
255: end if;
256: EXCEPTION WHEN OTHERS THEN
249: fnd_file.new_line(fnd_file.output, 1);
250: end if;
251: else
252: fnd_file.put_line(fnd_file.output, fnd_message.get_string('GMO', 'GMO_PROFILE_NOTFOUND') );
253: fnd_file.new_line(fnd_file.output, 1);
254: APP_EXCEPTION.Raise_exception;
255: end if;
256: EXCEPTION WHEN OTHERS THEN
257: ERRBUF := SQLERRM;