93: v_currency_code IN VARCHAR2) IS
94:
95: cursor IMPORT_CURSOR is
96: Select *
97: from PSP_PAYROLL_INTERFACE
98: where BATCH_NAME = v_Batch_Name
99: and STATUS_CODE <> 'T'
100: FOR UPDATE OF STATUS_CODE, ERROR_CODE;
101:
106: Begin
107:
108: Begin
109: FND_STATS.Gather_Table_Stats(ownname => 'PSP',
110: tabname => 'PSP_PAYROLL_INTERFACE');
111:
112: --- percent => 10,
113: -- tmode => 'NORMAL');
114: -- Above two parameters commented out for bug fix 2463762
131: If retVal = 0 Then
132: Null;
133: Else
134: v_DB_Err_Code := Find_DB_Error_Code(retVal);
135: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
136: End If;
137: End;
138: End If;
139:
146: If retVal = 0 Then
147: Null;
148: Else
149: v_DB_Err_Code := Find_DB_Error_Code(retVal);
150: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
151: End If;
152: End;
153: End If;
154:
157: retVal := Validate_Payroll_ID(Import_Cursor_Agg.Payroll_ID, Import_Cursor_Agg.Assignment_ID,
158: Import_Cursor_Agg.Effective_Date,v_business_group_id,v_set_of_books_id);
159: If retVal <> 0 Then
160: v_DB_Err_Code := Find_DB_Error_Code(retVal);
161: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
162: End If;
163: End;
164: End If;
165:
172: If retVal = 0 Then
173: Null;
174: Else
175: v_DB_Err_Code := Find_DB_Error_Code(retVal);
176: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
177: End If;
178: End;
179: End If;
180:
187: If retVal = 0 Then
188: Null;
189: Else
190: v_DB_Err_Code := Find_DB_Error_Code(retVal);
191: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
192: End If;
193: End;
194: End If;
195:
203: If retVal = 0 Then
204: Null;
205: Else
206: v_DB_Err_Code := Find_DB_Error_Code(retVal);
207: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
208: End If;
209: End;
210: End If;
211:
215: If retVal = 0 Then
216: Null;
217: Else
218: v_DB_Err_Code := Find_DB_Error_Code(retVal);
219: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
220: End If;
221: End;
222: End If;
223:
227: If retVal = 0 Then
228: Null;
229: Else
230: v_DB_Err_Code := Find_DB_Error_Code(retVal);
231: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
232: End If;
233: End;
234: End If;
235:
245: If retVal = 0 Then
246: Null;
247: Else
248: v_DB_Err_Code := Find_DB_Error_Code(retVal);
249: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
250: End If;
251: End;
252: End If;
253:
259: If retVal = 0 Then
260: Null;
261: Else
262: v_DB_Err_Code := Find_DB_Error_Code(retVal);
263: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
264: End If;
265: End;
266: End If;
267:
273: If retVal = 0 Then
274: Null;
275: Else
276: v_DB_Err_Code := Find_DB_Error_Code(retVal);
277: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
278: End If;
279: End;
280: End If;
281: ************End Of Commenting*********************/
291: If retVal = 0 Then
292: Null;
293: Else
294: v_DB_Err_Code := Find_DB_Error_Code(retVal);
295: UPDATE PSP_PAYROLL_INTERFACE set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
296: End If;
297: End;
298: End If;
299:
307: If retVal = 0 Then
308: Null;
309: Else
310: v_DB_Err_Code := Find_DB_Error_Code(retVal);
311: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'E', ERROR_CODE = (v_DB_Err_Code) where CURRENT OF Import_Cursor;
312: End If;
313: End;
314: End If;
315: If retVal <> 0 Then
314: End If;
315: If retVal <> 0 Then
316: retVal := 0;
317: Else
318: UPDATE PSP_PAYROLL_INTERFACE Set STATUS_CODE = 'V', ERROR_CODE = '' where CURRENT OF Import_Cursor;
319: End If;
320:
321: END LOOP;
322: If b_Records_Exist_In_Cursor Then
338: -- This cursor checks if the current line's start and end date overlaps over any other line's dates for same
339: -- time period, assignment, and element type in current batch in Interface table
340: Select count(*)
341: into v_Record_Count
342: from PSP_PAYROLL_INTERFACE
343: where Payroll_Period_ID = v_Payroll_Period_ID
344: and Assignment_ID = v_Assignment_ID
345: and Element_Type_ID = v_Element_Type_ID
346: and Batch_Name = v_Batch_Name