2373: **********************************************************************/
2374:
2375: PROCEDURE Write_To_InterfaceTable
2376: IS
2377: l_user_id NUMBER := Fnd_Global.User_Id;
2378: l_login_id NUMBER := Fnd_Global.Login_Id;
2379: l_request_id NUMBER := Fnd_Global.Conc_Request_Id;
2380: l_program_id NUMBER := Null;
2381: l_program_appl_id NUMBER := Null;
2374:
2375: PROCEDURE Write_To_InterfaceTable
2376: IS
2377: l_user_id NUMBER := Fnd_Global.User_Id;
2378: l_login_id NUMBER := Fnd_Global.Login_Id;
2379: l_request_id NUMBER := Fnd_Global.Conc_Request_Id;
2380: l_program_id NUMBER := Null;
2381: l_program_appl_id NUMBER := Null;
2382: l_program_upd_date DATE := Null;
2375: PROCEDURE Write_To_InterfaceTable
2376: IS
2377: l_user_id NUMBER := Fnd_Global.User_Id;
2378: l_login_id NUMBER := Fnd_Global.Login_Id;
2379: l_request_id NUMBER := Fnd_Global.Conc_Request_Id;
2380: l_program_id NUMBER := Null;
2381: l_program_appl_id NUMBER := Null;
2382: l_program_upd_date DATE := Null;
2383:
2388: Error_Handler.Write_Debug('Number of Messages = ' || G_Error_Table.COUNT);
2389:
2390: IF l_request_id <> - 1
2391: THEN
2392: l_program_id := Fnd_Global.Conc_program_Id;
2393: l_program_appl_id := Fnd_Global.prog_appl_id;
2394: l_program_upd_date := sysdate;
2395: ELSE
2396: l_request_id := Null;
2389:
2390: IF l_request_id <> - 1
2391: THEN
2392: l_program_id := Fnd_Global.Conc_program_Id;
2393: l_program_appl_id := Fnd_Global.prog_appl_id;
2394: l_program_upd_date := sysdate;
2395: ELSE
2396: l_request_id := Null;
2397: END IF;