21: OPEN C1;
22: FETCH C1 INTO dummy;
23: IF (C1%NOTFOUND) THEN
24: CLOSE C1;
25: fnd_message.set_name('SQLGL','GL_SAME_CALENDAR');
26: app_exception.raise_exception;
27: END IF;
28: CLOSE C1;
29: EXCEPTION
28: CLOSE C1;
29: EXCEPTION
30: WHEN app_exceptions.application_exception THEN RAISE;
31: WHEN OTHERS THEN
32: fnd_message.set_name('SQLGL','Unhandled Exception');
33: fnd_message.set_token('PROCEDURE', 'Check_Unique_User_Type');
34: RAISE;
35: END Check_Calendar;
36:
29: EXCEPTION
30: WHEN app_exceptions.application_exception THEN RAISE;
31: WHEN OTHERS THEN
32: fnd_message.set_name('SQLGL','Unhandled Exception');
33: fnd_message.set_token('PROCEDURE', 'Check_Unique_User_Type');
34: RAISE;
35: END Check_Calendar;
36:
37: PROCEDURE Get_New_Id(next_val IN OUT NOCOPY NUMBER) IS
471: '','','','','','');
472: IF (Std_Request_Id = 0) THEN
473:
474: --+ submission failed
475: FND_MESSAGE.set_name('SQLGL', 'GL_CONS_SET_REQUEST_FAILED');
476: FND_MESSAGE.set_token('CONSOLIDATION',X_Consolidation_Name, FALSE);
477: APP_EXCEPTION.RAISE_EXCEPTION;
478:
479: ELSE
472: IF (Std_Request_Id = 0) THEN
473:
474: --+ submission failed
475: FND_MESSAGE.set_name('SQLGL', 'GL_CONS_SET_REQUEST_FAILED');
476: FND_MESSAGE.set_token('CONSOLIDATION',X_Consolidation_Name, FALSE);
477: APP_EXCEPTION.RAISE_EXCEPTION;
478:
479: ELSE
480: --+ Set the conc_request variable
604: '','','','','','');
605:
606: IF (avg_request_id = 0) THEN
607: --+ submission failed
608: FND_MESSAGE.set_name('SQLGL', 'GL_CONS_SET_REQUEST_FAILED');
609: FND_MESSAGE.set_token('CONSOLIDATION',X_Consolidation_Name, FALSE);
610: APP_EXCEPTION.RAISE_EXCEPTION;
611:
612: ELSE
605:
606: IF (avg_request_id = 0) THEN
607: --+ submission failed
608: FND_MESSAGE.set_name('SQLGL', 'GL_CONS_SET_REQUEST_FAILED');
609: FND_MESSAGE.set_token('CONSOLIDATION',X_Consolidation_Name, FALSE);
610: APP_EXCEPTION.RAISE_EXCEPTION;
611:
612: ELSE
613:
730: X_num_conc_requests := X_num_conc_requests + 1;
731: IF X_last_request_Id < CIRequestId THEN
732: X_last_request_Id := CIRequestId;
733: END IF;
734: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
735: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
736: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
737:
738: ELSE
731: IF X_last_request_Id < CIRequestId THEN
732: X_last_request_Id := CIRequestId;
733: END IF;
734: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
735: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
736: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
737:
738: ELSE
739: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
732: X_last_request_Id := CIRequestId;
733: END IF;
734: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
735: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
736: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
737:
738: ELSE
739: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
740: APP_EXCEPTION.RAISE_EXCEPTION;
735: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
736: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
737:
738: ELSE
739: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
740: APP_EXCEPTION.RAISE_EXCEPTION;
741: --+ FND_MESSAGE.show;
742: END IF;
743: --+ END IF; --+if wait_result is complete:pass
737:
738: ELSE
739: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
740: APP_EXCEPTION.RAISE_EXCEPTION;
741: --+ FND_MESSAGE.show;
742: END IF;
743: --+ END IF; --+if wait_result is complete:pass
744: END IF;
745: IF (remote_flag = 'Y') and (X_Usage_Code IN ('A', 'B')) AND (avg_request_id <> 0) THEN
786: X_last_request_Id := CIRequestId;
787: END IF;
788: --+ get program name
789: --+ gl_message.get(msgbuf, 'GL_US_CI_CROSSINSTANCE');
790: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
791: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
792: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
793: ELSE
794: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
787: END IF;
788: --+ get program name
789: --+ gl_message.get(msgbuf, 'GL_US_CI_CROSSINSTANCE');
790: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
791: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
792: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
793: ELSE
794: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
795: APP_EXCEPTION.RAISE_EXCEPTION;
788: --+ get program name
789: --+ gl_message.get(msgbuf, 'GL_US_CI_CROSSINSTANCE');
790: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
791: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
792: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
793: ELSE
794: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
795: APP_EXCEPTION.RAISE_EXCEPTION;
796: END IF;
790: FND_MESSAGE.set_name('SQLGL', 'GL_CONC_REQUEST_SUBMITTED');
791: FND_MESSAGE.set_token('MODULE',msgbuf, FALSE);
792: FND_MESSAGE.set_token('REQUEST_ID', TO_CHAR(CIRequestId), FALSE);
793: ELSE
794: FND_MESSAGE.set_name('SQLGL', 'GL_US_CI_PRE_FAIL');
795: APP_EXCEPTION.RAISE_EXCEPTION;
796: END IF;
797: --+ END IF; --+if wait_result is complete:pass
798: END IF;
798: END IF;
799: EXCEPTION
800: WHEN app_exceptions.application_exception THEN RAISE;
801: WHEN OTHERS THEN
802: fnd_message.set_name('SQLGL','Unhandled Exception');
803: fnd_message.set_token('PROCEDURE', 'Insert_Cons_Set_Row');
804: RAISE;
805:
806: END Insert_Cons_Set_Row;
799: EXCEPTION
800: WHEN app_exceptions.application_exception THEN RAISE;
801: WHEN OTHERS THEN
802: fnd_message.set_name('SQLGL','Unhandled Exception');
803: fnd_message.set_token('PROCEDURE', 'Insert_Cons_Set_Row');
804: RAISE;
805:
806: END Insert_Cons_Set_Row;
807: