2385: **********************************************************************/
2386:
2387: PROCEDURE Write_To_InterfaceTable
2388: IS
2389: l_user_id NUMBER := Fnd_Global.User_Id;
2390: l_login_id NUMBER := Fnd_Global.Login_Id;
2391: l_request_id NUMBER := Fnd_Global.Conc_Request_Id;
2392: l_program_id NUMBER := Null;
2393: l_program_appl_id NUMBER := Null;
2386:
2387: PROCEDURE Write_To_InterfaceTable
2388: IS
2389: l_user_id NUMBER := Fnd_Global.User_Id;
2390: l_login_id NUMBER := Fnd_Global.Login_Id;
2391: l_request_id NUMBER := Fnd_Global.Conc_Request_Id;
2392: l_program_id NUMBER := Null;
2393: l_program_appl_id NUMBER := Null;
2394: l_program_upd_date DATE := Null;
2387: PROCEDURE Write_To_InterfaceTable
2388: IS
2389: l_user_id NUMBER := Fnd_Global.User_Id;
2390: l_login_id NUMBER := Fnd_Global.Login_Id;
2391: l_request_id NUMBER := Fnd_Global.Conc_Request_Id;
2392: l_program_id NUMBER := Null;
2393: l_program_appl_id NUMBER := Null;
2394: l_program_upd_date DATE := Null;
2395:
2400: Error_Handler.Write_Debug('Number of Messages = ' || G_Error_Table.COUNT);
2401:
2402: IF l_request_id <> - 1
2403: THEN
2404: l_program_id := Fnd_Global.Conc_program_Id;
2405: l_program_appl_id := Fnd_Global.prog_appl_id;
2406: l_program_upd_date := sysdate;
2407: ELSE
2408: l_request_id := Null;
2401:
2402: IF l_request_id <> - 1
2403: THEN
2404: l_program_id := Fnd_Global.Conc_program_Id;
2405: l_program_appl_id := Fnd_Global.prog_appl_id;
2406: l_program_upd_date := sysdate;
2407: ELSE
2408: l_request_id := Null;
2409: END IF;