I did not find my submitrequest id while start the GLLEZL interface from backend.

Question

Hello experts
I have write a package to start the interface for General Ledger-Import(GLLEZL).
CREATE OR REPLACE Package body XXGL_INT_BUDGET_PKG is     PROCEDURE UPLOAD_BUDGET_JV(P_BUDGET_ID IN NUMBER) IS       lv_request_id NUMBER;       irun_id number;       errbuf          VARCHAR2(2000);     BEGIN       SELECT gl_journal_import_s.NEXTVAL       INTO irun_id       FROM DUAL;       dbms_output.put_line(irun_id);       INSERT INTO gl_interface_control       (status, set_of_books_id, je_source_name, group_id, interface_run_id)       VALUES       ('S', 1001, 'Spreadsheet', null, irun_id);       /* Launch the concurrent request */       lv_request_id         := fnd_request.submit_request(             'SQLGL',             'GLLEZL',             '',             '',             FALSE,             to_char(irun_id),             '1000',             'NO',             '',             '',             'NO',             'NO',             'Y',         chr(0),             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '', '', '', '', '', '', '', '', '', '',             '');                   dbms_output.put_line('req_nu - '||lv_request_id);       IF (lv_request_id = 0) THEN         errbuf := fnd_message.get;         fnd_file.put_line(FND_FILE.Log, errbuf);         gl_message.write_log('LEZS0001');         IF (fnd_concurrent.set_completion_status('ERROR', errbuf)) THEN           NULL;         END IF;       ELSE         gl_message.write_log('LEZS0000', 1, 'REQ_ID', to_char(lv_request_id));         IF (fnd_concurrent.set_completion_status('NORMAL', NULL)) THEN           NULL;         END IF;       END IF;       IF lv_request_id = 0       THEN           UPDATE XXGP_GL_BUDGET_STG             SET attribute1 = 'ERROR IN RUNNING PAYABLE IMPORT PROGRAM',attribute2 = lv_request_id,status='ERROR'           WHERE BUDGET_ID =P_BUDGET_ID;       ELSE           UPDATE XXGP_GL_BUDGET_STG             SET attribute2 = lv_request_id, attribute1 = 'PROCESSED',status='PROCESSED'           WHERE BUDGET_ID=P_BUDGET_ID;       END IF;              end UPLOAD_BUDGET_JV;     Procedure xx_glbudget_int_prc(p_budget_id number,errbuf out varchar2,Retcode out varchar2)     is         cursor BUDGET_CUR         IS         SELECT a.BUDGET_ID,a.BUDGET_NAME,a.FIN_YEAR,a.BUDGET_FREQUENCY,a.BUDGET_TYPE,a.ORG_ID,a.BUDGET_CATG,a.BUSINESS_LINE,a.COST_CENTER,         a.BUDGET_AMOUNT,a.CREATED_BY,b.LINE_NUMBER,B.LINE_ID,         b.STATE,b.BUDGET_ACTIVITY,b.PROJECT,b.AMOUNT,b.WD_TOWN,b.CODE_COMBINATION_ID,         b.STATE_NAME,b.CODE_COMBINATION         FROM XXGPIL_BUDG_HDR a,XXGPil_budg_lines b         where a.budget_id=b.budget_id and a.budget_id=p_budget_id;         /*AND APPRVL_STATUS='Approved'*/         lv_status varchar2(50);         lv_sob_id Number(15);         lv_user_je_source_name varchar2(25);         lv_user_je_category_name varchar2(25);         lv_cur_code varchar2(15);         lv_actual_flag varchar2(1);         lv_err_flag varchar2(2);         lv_flag varchar2(2);         l_fnd_user number(15) := 5581;     BEGIN         BEGIN         for rec in budget_cur         loop         insert into XXGP_GL_BUDGET_STG(status,         set_of_books_id,User_JE_Source_name,user_je_category_name,currency_code,         actual_flag,ACCOUNTING_DATE,DATE_CREATED,CREATED_BY,entered_dr,entered_cr,         accounted_dr,accounted_cr,segment1,segment2,segment3,segment4,segment5,segment6,segment7,segment8,segment9,segment10,BUDGET_ID,LINE_ID)         values('NEW','1001','Spreadsheet','Budget','INR','A',trunc(sysdate),trunc(sysdate),rec.created_by,rec.amount,rec.amount,rec.amount,rec.amount,         rec.ORG_ID,rec.STATE,rec.BUSINESS_LINE,REC.BUDGET_ACTIVITY,REC.COST_CENTER,'000000','0000','000000','000000','00000000',REC.BUDGET_ID,REC.LINE_ID);         end loop;         END;         /* END OF INSERTING DATA FROM XXGP_BUDG_HDR AND LINES TABLE TO  XXGP_GL_BUDGET_STG TABLE */         DECLARE         CURSOR GL_CURR IS         SELECT status,         set_of_books_id,User_JE_Source_name,user_je_category_name,currency_code,         actual_flag,ACCOUNTING_DATE,DATE_CREATED,CREATED_BY,entered_dr,entered_cr,         accounted_dr,accounted_cr,segment1,segment2,segment3,segment4,segment5,segment6,segment7,segment8,segment9,segment10         FROM XXGP_GL_BUDGET_STG where status='NEW';         BEGIN             FOR rec in GL_CURR             LOOP                 lv_flag := 'A';                 lv_err_flag := 'A';                 BEGIN                 SELECT distinct Status into lv_status from XXGP_GL_BUDGET_STG Where status = 'NEW';                 EXCEPTION                 When no_data_found Then                 lv_status := null;                 lv_flag := 'E';                 lv_err_flag := 'E';                 FND_FILE.PUT_line(FND_FILE.LOG,'The status is not correct so change the status');                 FND_FILE.PUT_line(FND_FILE.LOG,'The data is inserting'|| lv_status );                 END;                 BEGIN                 SELECT set_of_books_id into lv_sob_id from gl_sets_of_books                 where set_of_books_id=rec.set_of_books_id;                 Exception                 When no_data_found Then                 lv_sob_id:=null;                 lv_flag := 'E';                 lv_err_flag := 'E';                 FND_FILE.PUT_line(FND_FILE.LOG,'The SOB is not correct change SOB ID');                 End;                 FND_FILE.PUT_line(FND_FILE.LOG,'The data is inserting'|| lv_sob_id );                 BEGIN                 SELECT user_je_source_name into lv_user_je_source_name FROM GL_JE_SOURCES                 WHERE user_je_source_name=rec.user_je_source_name;                 EXCEPTION                 WHEN no_data_found THEN                 lv_user_je_source_name := NULL;                 lv_flag := 'E';                 lv_err_flag := 'E';                 FND_FILE.PUT_line(FND_FILE.LOG,'The SOURCE NAME is not correct change It');                 END;                 FND_FILE.PUT_line(FND_FILE.LOG,'The data inserting is'|| lv_user_je_source_name );                 BEGIN                 SELECT user_je_category_name INTO lv_user_je_category_name FROM GL_JE_CATEGORIES                 where user_je_category_name=rec.user_je_category_name;                 EXCEPTION                 When no_data_found Then                 lv_user_je_category_name:=NULL;                 lv_flag := 'E';                 lv_err_flag := 'E';                 FND_FILE.PUT_line(FND_FILE.LOG,'The Category name is not correct Change it');                 FND_FILE.PUT_line(FND_FILE.LOG,'The data inserting is'|| lv_user_je_category_name );                 END;                 BEGIN                 SELECT currency_code into lv_cur_code from FND_CURRENCIES                 where currency_code=rec.currency_code;                 Exception                 When no_data_found Then                 lv_cur_code:=null;                 lv_flag := 'E';                 lv_err_flag := 'E';                 FND_FILE.PUT_line(FND_FILE.LOG,'The Currency code is not correct ');                 End;                 FND_FILE.PUT_line(FND_FILE.LOG,'The data inserting is'|| lv_cur_code);                 BEGIN                 SELECT distinct ACTUAL_FLAG into lv_actual_flag from XXGP_GL_BUDGET_STG where budget_id=p_budget_id and status='NEW'                 and actual_flag in ('A','B','E');                 Exception                 When no_data_found then                 lv_actual_flag := null;                 lv_flag := 'E';                 lv_err_flag := 'E';                 FND_FILE.PUT_line(FND_FILE.LOG,'The Flag is not correct');                 END;                 FND_FILE.PUT_line(FND_FILE.LOG,'The dat inserting is... '|| lv_actual_flag);                 IF lv_flag = 'A' THEN                 INSERT into GL_INTERFACE (                 STATUS, SET_OF_BOOKS_ID, USER_JE_SOURCE_NAME ,USER_JE_CATEGORY_NAME,                 CURRENCY_CODE,ACTUAL_FLAG,                 ACCOUNTING_DATE, DATE_CREATED,CREATED_BY, ENTERED_DR,ENTERED_CR,                 ACCOUNTED_DR,ACCOUNTED_CR,segment1, segment2, segment3, segment4, segment5)                 VALUES (                 lv_Status, lv_sob_id, lv_User_JE_Source_name, lv_user_je_category_name,                 lv_cur_code,lv_actual_flag,rec.ACCOUNTING_DATE, rec.DATE_CREATED,                 1318,rec.entered_dr, rec.entered_cr, rec.accounted_dr,rec.accounted_cr,                 rec.segment1, rec.segment2, rec.segment3, rec.segment4, rec.segment5);                 END IF;                 --call to start General-Import Journals interface--                                 lv_flag :=null;                 lv_err_flag:=null;             END LOOP;                                     UPLOAD_BUDGET_JV(p_budget_id);             --COMMIT;         END;     End; END XXGL_INT_BUDGET_PKG;
Following is the code i used to run the package:
DECLARE
L_errbuf
varchar2(240
L_Retcode
varchar2(240
XXGL_INT_BUDGET_PKG
.XX_GLBUDGET_INT_PRC(101001,L_errbuf,L_Retcode
DBMS_OUTPUT.PUT_LINE
(L_errbuf||' AND '||L_Retcode
I did not find my request in oracle applications GL responsibility.
Please help.
Thanks in advance.
Yash

Answer 1

Welcome to the Apple Community.
Unless you mistakenly logged into his account then the most probable explanation is that he is using your ID. As for yours not showing up, have you enabled Find my phone on your device.
The best thing to do would be to change your password, this will stop him seeing any of your information. Of course this would cause a problem for him if he is using your account since he will get locked out of using his devices when you do this. It could be interesting, he may need to admit what he's been doing and ask you to release his devices so he can use them.