[Home] [Help]
684: end Apps_Initialize;
685:
686: --+set_mode() is necessary to get rid of the ORA= 2074
687: --+Error -2074: ORA-02074: cannot SET SAVEPOINT in a distributed transaction
688: --+ORA-06512: at "APPS.FND_REQUEST", line 2434
689: --+ORA-06512: at "APPS.GL_FND_REQUEST_PKG", line 54
690: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
691: --+Submit a concurrent request to do Journal Import
692: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
685:
686: --+set_mode() is necessary to get rid of the ORA= 2074
687: --+Error -2074: ORA-02074: cannot SET SAVEPOINT in a distributed transaction
688: --+ORA-06512: at "APPS.FND_REQUEST", line 2434
689: --+ORA-06512: at "APPS.GL_FND_REQUEST_PKG", line 54
690: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
691: --+Submit a concurrent request to do Journal Import
692: --+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
693: function Run_Journal_Import(
702: reqid number;
703: value_return boolean;
704: begin
705: fnd_global.Apps_Initialize(user_id, resp_id, app_id);
706: value_return := fnd_request.set_mode(TRUE);
707: reqid := fnd_request.submit_request(
708: 'SQLGL',
709: 'GLLEZL',
710: '',
703: value_return boolean;
704: begin
705: fnd_global.Apps_Initialize(user_id, resp_id, app_id);
706: value_return := fnd_request.set_mode(TRUE);
707: reqid := fnd_request.submit_request(
708: 'SQLGL',
709: 'GLLEZL',
710: '',
711: '',
858: fetch ledger into l_coa_id;
859: close ledger;
860: l_coa_id := get_coa_id(ledger_id);
861:
862: value_return := fnd_request.set_mode(TRUE);
863: --+bug fix for bug#3278513, check the status of this batch
864: --+if it is 'S'= SELECTED and concurrent request is found and not COMPLETED
865: --+or it is 'I' = UNDERWAY and concurrent request is RUNNING then don't post
866: --+if the status is 'P', don't post again, just exit
980: END IF;
981: CLOSE v_Ledger_Cursor;
982:
983: IF (l_ledger_id = -99) THEN
984: reqid := fnd_request.submit_request(
985: 'SQLGL',
986: 'GLPPOS',
987: '',
988: '',
1002: '', '', '', '', '', '', '', '', '', '',
1003: '', '', '', '', '', '', '', '', '', '',
1004: '');
1005: ELSE
1006: reqid := fnd_request.submit_request(
1007: 'SQLGL',
1008: 'GLPPOSS',
1009: '',
1010: '',