DBA Data[Home] [Help]

APPS.PA_PURGE_VALIDATE dependencies on PA_PURGE_VALIDATE

Line 1: package body pa_purge_validate as

1: package body pa_purge_validate as
2: /* $Header: PAXVALDB.pls 120.2 2005/08/19 17:22:18 mwasowic noship $ */
3:
4: -- forward declarations
5:

Line 109: pa_purge_validate.g_user := fnd_profile.value('USER_ID');

105:
106:
107: g_delete_errors := 'Y'; /* Bug#2416385 Added for Phase -III Archive and Purge */
108: g_active_flag := l_GetBatchDet_csr.active_closed_flag ;
109: pa_purge_validate.g_user := fnd_profile.value('USER_ID');
110: pa_purge_validate.g_request_id := fnd_global.conc_request_id ;
111: pa_purge_validate.g_Program_Application_Id := fnd_global.prog_appl_id ;
112: pa_purge_validate.g_program_id := fnd_global.conc_program_id ;
113:

Line 110: pa_purge_validate.g_request_id := fnd_global.conc_request_id ;

106:
107: g_delete_errors := 'Y'; /* Bug#2416385 Added for Phase -III Archive and Purge */
108: g_active_flag := l_GetBatchDet_csr.active_closed_flag ;
109: pa_purge_validate.g_user := fnd_profile.value('USER_ID');
110: pa_purge_validate.g_request_id := fnd_global.conc_request_id ;
111: pa_purge_validate.g_Program_Application_Id := fnd_global.prog_appl_id ;
112: pa_purge_validate.g_program_id := fnd_global.conc_program_id ;
113:
114: Open GetProjectsInBatch ;

Line 111: pa_purge_validate.g_Program_Application_Id := fnd_global.prog_appl_id ;

107: g_delete_errors := 'Y'; /* Bug#2416385 Added for Phase -III Archive and Purge */
108: g_active_flag := l_GetBatchDet_csr.active_closed_flag ;
109: pa_purge_validate.g_user := fnd_profile.value('USER_ID');
110: pa_purge_validate.g_request_id := fnd_global.conc_request_id ;
111: pa_purge_validate.g_Program_Application_Id := fnd_global.prog_appl_id ;
112: pa_purge_validate.g_program_id := fnd_global.conc_program_id ;
113:
114: Open GetProjectsInBatch ;
115: l_err_stage := 'After open cursor GetProjectsInBatch' ;

Line 112: pa_purge_validate.g_program_id := fnd_global.conc_program_id ;

108: g_active_flag := l_GetBatchDet_csr.active_closed_flag ;
109: pa_purge_validate.g_user := fnd_profile.value('USER_ID');
110: pa_purge_validate.g_request_id := fnd_global.conc_request_id ;
111: pa_purge_validate.g_Program_Application_Id := fnd_global.prog_appl_id ;
112: pa_purge_validate.g_program_id := fnd_global.conc_program_id ;
113:
114: Open GetProjectsInBatch ;
115: l_err_stage := 'After open cursor GetProjectsInBatch' ;
116: -- l_err_stack := err_stack || ' ->After open cursor GetProjectsInBatch' ;

Line 152: Fetch Getpurge_summaryflag into pa_purge_validate_pjrm.g_purge_summary_flag ;

148:
149:
150: /* bug 4255353 starts here*/
151: open Getpurge_summaryflag(l_GetProjectsInBatch_csr.project_id);
152: Fetch Getpurge_summaryflag into pa_purge_validate_pjrm.g_purge_summary_flag ;
153: close Getpurge_summaryflag;
154: /* bug 4255353 ends here*/
155: /* IF (l_GetProjectsInBatch_csr.project_status_code <> 'PENDING_PURGE') AND
156: (l_GetProjectsInBatch_csr.project_status_code <> Commented for Bug 2715317 */

Line 172: pa_purge_validate_capital.g_purge_capital_flag :=

168: -- If current project status for project is same as in batch project last project status.
169: -- Then run validation process.
170: g_txn_to_date := l_GetProjectsInBatch_csr.txn_to_date ;
171:
172: pa_purge_validate_capital.g_purge_capital_flag :=
173: l_GetProjectsInBatch_csr.purge_capital_flag; /* Bug#2387342 */
174:
175: /* g_project_type_class_code := l_GetProjectsInBatch_csr.project_type_class_code ; Commented for Bug 2715317 */
176: g_project_type_class_code := l_project_type_class_code ; /* Added for Bug 2715317 */

Line 222: pa_purge_validate_pjrm.Validate_Perf_reporting(p_project_id => l_GetProjectsInBatch_csr.project_id,

218: , x_err_stack => l_err_stack ) ;
219: else
220:
221: /* Code changes for Bug 4255353 starts here */
222: pa_purge_validate_pjrm.Validate_Perf_reporting(p_project_id => l_GetProjectsInBatch_csr.project_id,
223: x_err_code => l_err_code,
224: x_err_stack => l_err_stack,
225: x_err_stage => l_err_stage
226: );

Line 234: pa_purge_validate.insert_errors(p_Purge_Batch_Id => p_purge_batch_id,

230: END IF; -- Validation.
231:
232: END IF; -- Project status is changed.
233:
234: pa_purge_validate.insert_errors(p_Purge_Batch_Id => p_purge_batch_id,
235: p_Project_Id => l_GetProjectsInBatch_csr.project_id,
236: p_Error_Type => 'E',
237: p_User => pa_purge_validate.g_user,
238: x_Err_Stack => l_err_stack,

Line 237: p_User => pa_purge_validate.g_user,

233:
234: pa_purge_validate.insert_errors(p_Purge_Batch_Id => p_purge_batch_id,
235: p_Project_Id => l_GetProjectsInBatch_csr.project_id,
236: p_Error_Type => 'E',
237: p_User => pa_purge_validate.g_user,
238: x_Err_Stack => l_err_stack,
239: x_Err_Stage => l_err_stage,
240: x_Err_Code => l_err_code
241: );

Line 248: pb.request_id = pa_purge_validate.g_request_id,

244:
245: -- Update the batch status to working.
246: update pa_purge_batches pb
247: set pb.batch_status_code = 'W',
248: pb.request_id = pa_purge_validate.g_request_id,
249: pb.program_application_id = pa_purge_validate.g_program_application_id,
250: pb.program_id = pa_purge_validate.g_program_id ,
251: pb.program_update_date = sysdate,
252: pb.last_update_login = -1,

Line 249: pb.program_application_id = pa_purge_validate.g_program_application_id,

245: -- Update the batch status to working.
246: update pa_purge_batches pb
247: set pb.batch_status_code = 'W',
248: pb.request_id = pa_purge_validate.g_request_id,
249: pb.program_application_id = pa_purge_validate.g_program_application_id,
250: pb.program_id = pa_purge_validate.g_program_id ,
251: pb.program_update_date = sysdate,
252: pb.last_update_login = -1,
253: pb.last_updated_by = -1,

Line 250: pb.program_id = pa_purge_validate.g_program_id ,

246: update pa_purge_batches pb
247: set pb.batch_status_code = 'W',
248: pb.request_id = pa_purge_validate.g_request_id,
249: pb.program_application_id = pa_purge_validate.g_program_application_id,
250: pb.program_id = pa_purge_validate.g_program_id ,
251: pb.program_update_date = sysdate,
252: pb.last_update_login = -1,
253: pb.last_updated_by = -1,
254: pb.last_update_date = sysdate

Line 279: pa_purge_validate_icip.g_insert_errors_no_duplicate := 'N'; /* Bug# 2431705 */

275:
276: FOR c_prj_in_batch in GetProjectsInBatch LOOP
277:
278: g_delete_errors := 'N';
279: pa_purge_validate_icip.g_insert_errors_no_duplicate := 'N'; /* Bug# 2431705 */
280:
281: FND_MSG_PUB.Initialize;
282:
283: if c_prj_in_batch.last_project_status_code <> 'PARTIALLY_PURGED' then

Line 285: if pa_purge_validate_icip.Is_InterPrj_Receiver_Project(c_prj_in_batch.project_id) = 'Y' then

281: FND_MSG_PUB.Initialize;
282:
283: if c_prj_in_batch.last_project_status_code <> 'PARTIALLY_PURGED' then
284:
285: if pa_purge_validate_icip.Is_InterPrj_Receiver_Project(c_prj_in_batch.project_id) = 'Y' then
286:
287: pa_debug.debug(' * Calling validate process for IP receiver project for project '||
288: to_char(c_prj_in_batch.project_id));
289:

Line 290: pa_purge_validate_icip.Validate_IP_Rcvr ( c_prj_in_batch.project_id,

286:
287: pa_debug.debug(' * Calling validate process for IP receiver project for project '||
288: to_char(c_prj_in_batch.project_id));
289:
290: pa_purge_validate_icip.Validate_IP_Rcvr ( c_prj_in_batch.project_id,
291: l_err_code,
292: l_err_stack,
293: l_err_stage );
294:

Line 295: pa_purge_validate.insert_errors ( p_Purge_Batch_Id => p_purge_batch_id,

291: l_err_code,
292: l_err_stack,
293: l_err_stage );
294:
295: pa_purge_validate.insert_errors ( p_Purge_Batch_Id => p_purge_batch_id,
296: p_Project_Id => c_prj_in_batch.project_id,
297: p_Error_Type => 'E',
298: p_User => pa_purge_validate.g_user,
299: x_Err_Stack => l_err_stack,

Line 298: p_User => pa_purge_validate.g_user,

294:
295: pa_purge_validate.insert_errors ( p_Purge_Batch_Id => p_purge_batch_id,
296: p_Project_Id => c_prj_in_batch.project_id,
297: p_Error_Type => 'E',
298: p_User => pa_purge_validate.g_user,
299: x_Err_Stack => l_err_stack,
300: x_Err_Stage => l_err_stage,
301: x_Err_Code => l_err_code );
302:

Line 321: end if; /* pa_purge_validate_icip.Is_InterPrj_Receiver_Project check */

317: where p.project_id = c_prj_in_batch.project_id;
318:
319: end if;
320:
321: end if; /* pa_purge_validate_icip.Is_InterPrj_Receiver_Project check */
322:
323: end if; /* c_prj_in_batch.last_project_status_code <> 'PARTIALLY_PURGED' check */
324:
325: END LOOP;

Line 424: pp.request_id = pa_purge_validate.g_request_id,

420: X_err_stage := 'No errors . Updating purge_project_status_code to valid for project '||to_char(p_project_id) ;
421:
422: update pa_purge_projects pp
423: set pp.purge_project_status_code = 'V',
424: pp.request_id = pa_purge_validate.g_request_id,
425: pp.program_application_id = pa_purge_validate.g_program_application_id,
426: pp.program_id = pa_purge_validate.g_program_id ,
427: pp.program_update_date = sysdate
428: where pp.project_id = p_project_id

Line 425: pp.program_application_id = pa_purge_validate.g_program_application_id,

421:
422: update pa_purge_projects pp
423: set pp.purge_project_status_code = 'V',
424: pp.request_id = pa_purge_validate.g_request_id,
425: pp.program_application_id = pa_purge_validate.g_program_application_id,
426: pp.program_id = pa_purge_validate.g_program_id ,
427: pp.program_update_date = sysdate
428: where pp.project_id = p_project_id
429: and pp.purge_batch_id = p_purge_batch_id ;

Line 426: pp.program_id = pa_purge_validate.g_program_id ,

422: update pa_purge_projects pp
423: set pp.purge_project_status_code = 'V',
424: pp.request_id = pa_purge_validate.g_request_id,
425: pp.program_application_id = pa_purge_validate.g_program_application_id,
426: pp.program_id = pa_purge_validate.g_program_id ,
427: pp.program_update_date = sysdate
428: where pp.project_id = p_project_id
429: and pp.purge_batch_id = p_purge_batch_id ;
430:

Line 496: pp.request_id = pa_purge_validate.g_request_id,

492: pa_debug.debug('Updating purge_project_status_code to invalid for project '||to_char(p_project_id));
493: X_err_stage := 'Updating purge_project_status_code to invalid for project '||to_char(p_project_id) ;
494: update pa_purge_projects pp
495: set pp.purge_project_status_code = 'I',
496: pp.request_id = pa_purge_validate.g_request_id,
497: pp.program_application_id = pa_purge_validate.g_program_application_id,
498: pp.program_id = pa_purge_validate.g_program_id ,
499: pp.program_update_date = sysdate
500: where pp.project_id = p_project_id

Line 497: pp.program_application_id = pa_purge_validate.g_program_application_id,

493: X_err_stage := 'Updating purge_project_status_code to invalid for project '||to_char(p_project_id) ;
494: update pa_purge_projects pp
495: set pp.purge_project_status_code = 'I',
496: pp.request_id = pa_purge_validate.g_request_id,
497: pp.program_application_id = pa_purge_validate.g_program_application_id,
498: pp.program_id = pa_purge_validate.g_program_id ,
499: pp.program_update_date = sysdate
500: where pp.project_id = p_project_id
501: and pp.purge_batch_id = p_purge_batch_id ;

Line 498: pp.program_id = pa_purge_validate.g_program_id ,

494: update pa_purge_projects pp
495: set pp.purge_project_status_code = 'I',
496: pp.request_id = pa_purge_validate.g_request_id,
497: pp.program_application_id = pa_purge_validate.g_program_application_id,
498: pp.program_id = pa_purge_validate.g_program_id ,
499: pp.program_update_date = sysdate
500: where pp.project_id = p_project_id
501: and pp.purge_batch_id = p_purge_batch_id ;
502: end if;

Line 512: pa_debug.debug('Error Procedure Name := PA_PURGE_VALIDATE.INSERT_ERRORS' );

508: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
509:
510: WHEN OTHERS THEN
511: -- x_err_stage := l_err_stage ;
512: pa_debug.debug('Error Procedure Name := PA_PURGE_VALIDATE.INSERT_ERRORS' );
513: pa_debug.debug('Error stage is '||x_err_stage );
514: pa_debug.debug('Error stack is '||x_err_stack );
515: pa_debug.debug(SQLERRM);
516: PA_PROJECT_UTILS2.g_sqlerrm := SQLERRM ;

Line 522: END pa_purge_validate;

518: RAISE PA_PROJECT_UTILS2.PA_Arch_Pur_Subroutine_Error ;
519:
520: END insert_errors ;
521:
522: END pa_purge_validate;