59: l_Project_Option VARCHAR2(240);
60: PROCEDURE Test_Concurrent_Conflict IS
61: l_Message VARCHAR2(1000) := 'This concurrent is used to test both concurrents call procedure in same package';
62: BEGIN
63: Fnd_File.Put_Line(Fnd_File.Log, l_Message);
64: END;
65: --==========================================================================
66: -- PROCEDURE NAME:
67: -- get_journal_approver Private
193: 'Enter procedure');
194: END IF; --(l_proc_level >= l_dbg_level)
195: EXCEPTION
196: WHEN OTHERS THEN
197: Fnd_File.Put_Line(Fnd_File.Log, 'l_step:' || l_Step);
198: --log for debug
199: IF (l_Proc_Level >= l_Dbg_Level) THEN
200: Fnd_Log.STRING(l_Proc_Level,
201: l_Module_Prefix || '.' || l_Proc_Name ||
719: --End: Chaoqun updated for CNAOV2 on 01-19-2010
720:
721: EXCEPTION
722: WHEN OTHERS THEN
723: FND_FILE.put_line(FND_FILE.OUTPUT,SQLCODE || ':' || SQLERRM);
724: --log for debug
725: IF (l_Proc_Level >= l_Dbg_Level) THEN
726: Fnd_Log.STRING(l_Proc_Level,
727: l_Module_Prefix || '.' || l_Proc_Name ||
894: Fnd_Message.Set_Token('line num', l_Je_Line_Num, TRUE);
895: l_Error_Msg := Fnd_Message.Get;
896:
897: --Output error message
898: Fnd_File.Put_Line(Fnd_File.Log, l_Error_Msg);
899:
900: -- log for debug
901: IF (l_Proc_Level >= l_Dbg_Level) THEN
902: Fnd_Log.STRING(l_Proc_Level,
2435: DELETE FROM Ja_Cn_Journal_Lines_Req
2436: WHERE Request_Id = l_Request_Id
2437: AND Je_Header_Id > 0;
2438: COMMIT;
2439: Fnd_File.Put_Line(Fnd_File.Log, SQLCODE || ':' || SQLERRM);
2440: l_Conc_Succ := Fnd_Concurrent.Set_Completion_Status(Status => 'ERROR',
2441: Message => SQLCODE || ':' ||
2442: SQLERRM);
2443: --log for debug