79: if (fnd_conc_request_pkg.restart_parent (
80: request_id,
81: parent_request_id,
82: fnd_global.user_id)) then
83: fnd_message.set_name (
84: 'FND',
85: 'CONC-Restart parent request');
86: end if;
87: end if;
137: begin
138:
139: /* Is request 2 a run alone program? */
140: if (run_alone_flag2 = 'Y') then
141: fnd_message.set_name('FND', 'CONC-RUN ALONE AHEAD');
142: return fnd_message.get;
143: end if;
144:
145: /* Are they single threaded? */
138:
139: /* Is request 2 a run alone program? */
140: if (run_alone_flag2 = 'Y') then
141: fnd_message.set_name('FND', 'CONC-RUN ALONE AHEAD');
142: return fnd_message.get;
143: end if;
144:
145: /* Are they single threaded? */
146: if (single_thread_flag1 = 'Y' and single_thread_flag2 = 'Y' and
144:
145: /* Are they single threaded? */
146: if (single_thread_flag1 = 'Y' and single_thread_flag2 = 'Y' and
147: requested_by1 = requested_by2) then
148: fnd_message.set_name('FND', 'CONC-SINGLE THREAD AHEAD');
149: fnd_message.set_token('REQUEST_ID', request_id1);
150: return fnd_message.get;
151: end if;
152:
145: /* Are they single threaded? */
146: if (single_thread_flag1 = 'Y' and single_thread_flag2 = 'Y' and
147: requested_by1 = requested_by2) then
148: fnd_message.set_name('FND', 'CONC-SINGLE THREAD AHEAD');
149: fnd_message.set_token('REQUEST_ID', request_id1);
150: return fnd_message.get;
151: end if;
152:
153: /* Are they incompatible? */
146: if (single_thread_flag1 = 'Y' and single_thread_flag2 = 'Y' and
147: requested_by1 = requested_by2) then
148: fnd_message.set_name('FND', 'CONC-SINGLE THREAD AHEAD');
149: fnd_message.set_token('REQUEST_ID', request_id1);
150: return fnd_message.get;
151: end if;
152:
153: /* Are they incompatible? */
154: select count(*) into c
158: and to_run_application_id = program_appl1
159: and to_run_concurrent_program_id = program_id1;
160:
161: if (c > 0) then
162: fnd_message.set_name('FND', 'CONC-INCOMPATIBLE AHEAD');
163: fnd_message.set_token('REQUEST_ID', request_id1);
164: return fnd_message.get;
165: end if;
166:
159: and to_run_concurrent_program_id = program_id1;
160:
161: if (c > 0) then
162: fnd_message.set_name('FND', 'CONC-INCOMPATIBLE AHEAD');
163: fnd_message.set_token('REQUEST_ID', request_id1);
164: return fnd_message.get;
165: end if;
166:
167: /* Is this the wating request1 the parent of request2? */
160:
161: if (c > 0) then
162: fnd_message.set_name('FND', 'CONC-INCOMPATIBLE AHEAD');
163: fnd_message.set_token('REQUEST_ID', request_id1);
164: return fnd_message.get;
165: end if;
166:
167: /* Is this the wating request1 the parent of request2? */
168: if (status_code1 = 'W' and is_sub_request2 = 'Y'
166:
167: /* Is this the wating request1 the parent of request2? */
168: if (status_code1 = 'W' and is_sub_request2 = 'Y'
169: and parent_request2 = request_id1) then
170: fnd_message.set_name('FND', 'CONC-SUB-REQUEST');
171: fnd_message.set_token('REQUEST_ID', request_id1);
172: return fnd_message.get;
173: end if;
174:
167: /* Is this the wating request1 the parent of request2? */
168: if (status_code1 = 'W' and is_sub_request2 = 'Y'
169: and parent_request2 = request_id1) then
170: fnd_message.set_name('FND', 'CONC-SUB-REQUEST');
171: fnd_message.set_token('REQUEST_ID', request_id1);
172: return fnd_message.get;
173: end if;
174:
175:
168: if (status_code1 = 'W' and is_sub_request2 = 'Y'
169: and parent_request2 = request_id1) then
170: fnd_message.set_name('FND', 'CONC-SUB-REQUEST');
171: fnd_message.set_token('REQUEST_ID', request_id1);
172: return fnd_message.get;
173: end if;
174:
175:
176: /* Finally check user limit */
175:
176: /* Finally check user limit */
177: if (request_limit1 = 'Y' and request_limit2 = 'Y' and
178: requested_by1 = requested_by2) then
179: fnd_message.set_name('FND', 'CONC-LIMITED REQUESTS');
180: return fnd_message.get;
181: end if;
182:
183: return NULL;
176: /* Finally check user limit */
177: if (request_limit1 = 'Y' and request_limit2 = 'Y' and
178: requested_by1 = requested_by2) then
179: fnd_message.set_name('FND', 'CONC-LIMITED REQUESTS');
180: return fnd_message.get;
181: end if;
182:
183: return NULL;
184: exception
182:
183: return NULL;
184: exception
185: when others then
186: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
187: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.WHY_WAIT');
188: fnd_message.set_token('ERRNO', SQLCODE);
189: fnd_message.set_token('REASON', SQLERRM);
190: return fnd_message.get;
183: return NULL;
184: exception
185: when others then
186: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
187: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.WHY_WAIT');
188: fnd_message.set_token('ERRNO', SQLCODE);
189: fnd_message.set_token('REASON', SQLERRM);
190: return fnd_message.get;
191: end why_wait;
184: exception
185: when others then
186: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
187: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.WHY_WAIT');
188: fnd_message.set_token('ERRNO', SQLCODE);
189: fnd_message.set_token('REASON', SQLERRM);
190: return fnd_message.get;
191: end why_wait;
192:
185: when others then
186: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
187: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.WHY_WAIT');
188: fnd_message.set_token('ERRNO', SQLCODE);
189: fnd_message.set_token('REASON', SQLERRM);
190: return fnd_message.get;
191: end why_wait;
192:
193:
186: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
187: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.WHY_WAIT');
188: fnd_message.set_token('ERRNO', SQLCODE);
189: fnd_message.set_token('REASON', SQLERRM);
190: return fnd_message.get;
191: end why_wait;
192:
193:
194: --
350: return 2;
351:
352: exception
353: when others then
354: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
355: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.KILL_SESSION');
356: fnd_message.set_token('ERRNO', SQLCODE);
357: fnd_message.set_token('REASON', SQLERRM);
358: message := fnd_message.get;
351:
352: exception
353: when others then
354: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
355: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.KILL_SESSION');
356: fnd_message.set_token('ERRNO', SQLCODE);
357: fnd_message.set_token('REASON', SQLERRM);
358: message := fnd_message.get;
359: return 0;
352: exception
353: when others then
354: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
355: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.KILL_SESSION');
356: fnd_message.set_token('ERRNO', SQLCODE);
357: fnd_message.set_token('REASON', SQLERRM);
358: message := fnd_message.get;
359: return 0;
360: end;
353: when others then
354: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
355: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.KILL_SESSION');
356: fnd_message.set_token('ERRNO', SQLCODE);
357: fnd_message.set_token('REASON', SQLERRM);
358: message := fnd_message.get;
359: return 0;
360: end;
361:
354: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
355: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.KILL_SESSION');
356: fnd_message.set_token('ERRNO', SQLCODE);
357: fnd_message.set_token('REASON', SQLERRM);
358: message := fnd_message.get;
359: return 0;
360: end;
361:
362:
432: new_status := 'D';
433:
434: -- Who cancelled the request
435: current_user := FND_PROFILE.VALUE('USERNAME');
436: fnd_message.set_name ('FND', 'CONC-Cancelled by');
437: fnd_message.set_token ('USER', current_user);
438: who_cancelled := fnd_message.get;
439: end if;
440:
433:
434: -- Who cancelled the request
435: current_user := FND_PROFILE.VALUE('USERNAME');
436: fnd_message.set_name ('FND', 'CONC-Cancelled by');
437: fnd_message.set_token ('USER', current_user);
438: who_cancelled := fnd_message.get;
439: end if;
440:
441:
434: -- Who cancelled the request
435: current_user := FND_PROFILE.VALUE('USERNAME');
436: fnd_message.set_name ('FND', 'CONC-Cancelled by');
437: fnd_message.set_token ('USER', current_user);
438: who_cancelled := fnd_message.get;
439: end if;
440:
441:
442: update fnd_concurrent_requests
458: end if;
459:
460: exception
461: when others then
462: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
463: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TERMINATE_REQUEST');
464: fnd_message.set_token('ERRNO', SQLCODE);
465: fnd_message.set_token('REASON', SQLERRM);
466: message := fnd_message.get;
459:
460: exception
461: when others then
462: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
463: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TERMINATE_REQUEST');
464: fnd_message.set_token('ERRNO', SQLCODE);
465: fnd_message.set_token('REASON', SQLERRM);
466: message := fnd_message.get;
467: rollback;
460: exception
461: when others then
462: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
463: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TERMINATE_REQUEST');
464: fnd_message.set_token('ERRNO', SQLCODE);
465: fnd_message.set_token('REASON', SQLERRM);
466: message := fnd_message.get;
467: rollback;
468: return 0;
461: when others then
462: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
463: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TERMINATE_REQUEST');
464: fnd_message.set_token('ERRNO', SQLCODE);
465: fnd_message.set_token('REASON', SQLERRM);
466: message := fnd_message.get;
467: rollback;
468: return 0;
469: end;
462: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
463: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TERMINATE_REQUEST');
464: fnd_message.set_token('ERRNO', SQLCODE);
465: fnd_message.set_token('REASON', SQLERRM);
466: message := fnd_message.get;
467: rollback;
468: return 0;
469: end;
470:
541: return retval;
542:
543: exception
544: when others then
545: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
546: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TOGGLE_REQUEST_HOLD');
547: fnd_message.set_token('ERRNO', SQLCODE);
548: fnd_message.set_token('REASON', SQLERRM);
549: message := fnd_message.get;
542:
543: exception
544: when others then
545: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
546: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TOGGLE_REQUEST_HOLD');
547: fnd_message.set_token('ERRNO', SQLCODE);
548: fnd_message.set_token('REASON', SQLERRM);
549: message := fnd_message.get;
550: rollback to fnd_amp_private_hold_req;
543: exception
544: when others then
545: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
546: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TOGGLE_REQUEST_HOLD');
547: fnd_message.set_token('ERRNO', SQLCODE);
548: fnd_message.set_token('REASON', SQLERRM);
549: message := fnd_message.get;
550: rollback to fnd_amp_private_hold_req;
551: return 0;
544: when others then
545: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
546: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TOGGLE_REQUEST_HOLD');
547: fnd_message.set_token('ERRNO', SQLCODE);
548: fnd_message.set_token('REASON', SQLERRM);
549: message := fnd_message.get;
550: rollback to fnd_amp_private_hold_req;
551: return 0;
552: end;
545: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
546: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.TOGGLE_REQUEST_HOLD');
547: fnd_message.set_token('ERRNO', SQLCODE);
548: fnd_message.set_token('REASON', SQLERRM);
549: message := fnd_message.get;
550: rollback to fnd_amp_private_hold_req;
551: return 0;
552: end;
553:
610: return 3;
611:
612: exception
613: when others then
614: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
615: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.ALTER_REQUEST_PRIORITY');
616: fnd_message.set_token('ERRNO', SQLCODE);
617: fnd_message.set_token('REASON', SQLERRM);
618: message := fnd_message.get;
611:
612: exception
613: when others then
614: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
615: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.ALTER_REQUEST_PRIORITY');
616: fnd_message.set_token('ERRNO', SQLCODE);
617: fnd_message.set_token('REASON', SQLERRM);
618: message := fnd_message.get;
619: rollback to fnd_amp_private_alter_priority;
612: exception
613: when others then
614: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
615: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.ALTER_REQUEST_PRIORITY');
616: fnd_message.set_token('ERRNO', SQLCODE);
617: fnd_message.set_token('REASON', SQLERRM);
618: message := fnd_message.get;
619: rollback to fnd_amp_private_alter_priority;
620: return 0;
613: when others then
614: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
615: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.ALTER_REQUEST_PRIORITY');
616: fnd_message.set_token('ERRNO', SQLCODE);
617: fnd_message.set_token('REASON', SQLERRM);
618: message := fnd_message.get;
619: rollback to fnd_amp_private_alter_priority;
620: return 0;
621: end;
614: fnd_message.set_name('FND', 'SQL_PLSQL_ERROR');
615: fnd_message.set_token('ROUTINE', 'FND_AMP_PRIVATE.ALTER_REQUEST_PRIORITY');
616: fnd_message.set_token('ERRNO', SQLCODE);
617: fnd_message.set_token('REASON', SQLERRM);
618: message := fnd_message.get;
619: rollback to fnd_amp_private_alter_priority;
620: return 0;
621: end;
622: