[Home] [Help]
23: --Start 3537282 : Gather stats before running
24: IF fnd_global.conc_program_id <> -1 THEN
25:
26: SELECT count(*) INTO l_records
27: FROM mtl_ci_interface
28: WHERE process_flag = 1;
29: -- Bug 6983407 Collect statistics only if the no. of records is bigger than the profile
30: -- option threshold
31: IF l_records > nvl(fnd_profile.value('EGO_GATHER_STATS'),100) AND FND_INSTALLATION.GET_APP_INFO('INV', l_status, l_industry, l_schema) THEN
29: -- Bug 6983407 Collect statistics only if the no. of records is bigger than the profile
30: -- option threshold
31: IF l_records > nvl(fnd_profile.value('EGO_GATHER_STATS'),100) AND FND_INSTALLATION.GET_APP_INFO('INV', l_status, l_industry, l_schema) THEN
32: IF l_schema IS NOT NULL THEN
33: FND_STATS.GATHER_TABLE_STATS(l_schema, 'MTL_CI_INTERFACE');
34: END IF;
35: END IF;
36: END IF;
37: --End 3537282 : Gather stats before running
164: Request_Id,
165: Program_Application_Id,
166: Program_Id,
167: Program_Update_Date
168: FROM MTL_CI_INTERFACE
169: WHERE Process_Flag = 1
170: AND Process_Mode = 1
171: OR Process_Mode = 3
172: AND UPPER(Transaction_Type) = 'CREATE'
310:
311: L_Success := 3;
312: Error_Counter := Error_Counter + 1;
313: FND_MESSAGE.Set_Token('TABLE',
314: 'MTL_CI_INTERFACE', FALSE);
315: Error_Message := FND_MESSAGE.Get;
316: Manage_Error_Code('OUT', NULL, Curr_Error);
317:
318: UPDATE MTL_CI_INTERFACE MCII
314: 'MTL_CI_INTERFACE', FALSE);
315: Error_Message := FND_MESSAGE.Get;
316: Manage_Error_Code('OUT', NULL, Curr_Error);
317:
318: UPDATE MTL_CI_INTERFACE MCII
319: SET MCII.Error_Code = Curr_Error,
320: MCII.Error_Explanation = substrb(Error_Message,1,235),
321: MCII.Process_Mode = 2
322: WHERE MCII.Rowid = Recinfo.Row_Id;
328: L_Success := 2;
329: Error_Number := SQLCODE;
330: Error_Message := SUBSTRB(SQLERRM, 1, 512);
331:
332: UPDATE MTL_CI_INTERFACE MCII
333: SET MCII.Error_Code = TO_CHAR(Error_Number),
334: MCII.Error_Explanation = substrb(Error_Message,1,235),
335: MCII.Process_Mode = 2
336: WHERE MCII.Rowid = Recinfo.Row_Id;
346:
347: IF (Error_Counter > 0) THEN
348: L_Success := 3;
349: FND_MESSAGE.Set_Name('INV', 'INV_CI_OPEN_INT_WARNING');
350: FND_MESSAGE.Set_Token('TABLE', 'MTL_CI_INTERFACE', FALSE);
351: FND_MESSAGE.Set_Token('ERROR_COUNT', Error_Counter, FALSE);
352: Error_Message := FND_MESSAGE.Get;
353: --DBMS_OUTPUT.Put_Line(Error_Message);
354: END IF;
362: WHEN Error THEN
363:
364: L_Success := 3;
365: Error_Counter := Error_Counter + 1;
366: FND_MESSAGE.Set_Token('TABLE', 'MTL_CI_INTERFACE', FALSE);
367: Error_Message := FND_MESSAGE.Get;
368: Manage_Error_Code('OUT', NULL, Curr_Error);
369:
370: UPDATE MTL_CI_INTERFACE MCII
366: FND_MESSAGE.Set_Token('TABLE', 'MTL_CI_INTERFACE', FALSE);
367: Error_Message := FND_MESSAGE.Get;
368: Manage_Error_Code('OUT', NULL, Curr_Error);
369:
370: UPDATE MTL_CI_INTERFACE MCII
371: SET MCII.Error_Code = Curr_Error,
372: MCII.Error_Explanation = substrb(Error_Message,1,235),
373: MCII.Process_Mode = 2
374: WHERE MCII.Rowid = Recinfo.Row_Id;
385: Error_Message := SUBSTRB(SQLERRM, 1, 512);
386:
387: /* Fix for bug 5263099 - Added the below code to handle the scenario
388: where Cursor CI_Cur fails to open because the rows in
389: MTL_CI_INTERFACE are already locked by some other session.
390: It leads to "ORA-00054-resource busy and acquire with NOWAIT specified" error.
391: So we check for this error condition SQLCODE= -54.
392: Manage_Error_Code will set the Current_Error_Code to the corresponding
393: error msg which shall then be shown in the conc prog log file.
395: If SQLCODE= -54 Then
396: Manage_Error_Code('IN',substrb(Error_Message,1,235), Curr_Error);
397: End If;
398:
399: UPDATE MTL_CI_INTERFACE MCII
400: SET MCII.Error_Code = TO_CHAR(Error_Number),
401: MCII.Error_Explanation = substrb(Error_Message,1,235),
402: MCII.Process_Mode = 2
403: WHERE MCII.Rowid = Recinfo.Row_Id;
5666:
5667: IF ((P_Origin = 'I') AND (UPPER(P_Delete_Record) = 'Y')) THEN
5668:
5669: DELETE
5670: FROM MTL_CI_INTERFACE
5671: WHERE Rowid = P_Temp_RowId;
5672:
5673: ELSIF ((P_Origin = 'X') AND (UPPER(P_Delete_Record) = 'Y')) THEN
5674:
5677: WHERE Rowid = P_Temp_RowId;
5678:
5679: ELSIF ((P_Origin = 'I') AND (UPPER(P_Delete_Record) = 'N')) THEN
5680:
5681: UPDATE MTL_CI_INTERFACE
5682: SET Process_Mode = 3
5683: WHERE Rowid = P_Temp_RowId;
5684:
5685: ELSIF ((P_Origin = 'X') AND (UPPER(P_Delete_Record) = 'N')) THEN