257:
258: EXCEPTION
259: WHEN API_ERROR THEN
260: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
261: fnd_message.set_name('PJM','SEIB-AMG PROJECT ERROR');
262: fnd_message.set_token('DETAIL', l_errbuf);
263:
264: WHEN OTHERS THEN
265: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
258: EXCEPTION
259: WHEN API_ERROR THEN
260: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
261: fnd_message.set_name('PJM','SEIB-AMG PROJECT ERROR');
262: fnd_message.set_token('DETAIL', l_errbuf);
263:
264: WHEN OTHERS THEN
265: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
266: fnd_message.set_name('PJM','SEIB-AMG PROJECT ERROR');
262: fnd_message.set_token('DETAIL', l_errbuf);
263:
264: WHEN OTHERS THEN
265: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
266: fnd_message.set_name('PJM','SEIB-AMG PROJECT ERROR');
267: fnd_message.set_token('DETAIL', l_errbuf);
268:
269: END create_amg_project;
270:
263:
264: WHEN OTHERS THEN
265: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
266: fnd_message.set_name('PJM','SEIB-AMG PROJECT ERROR');
267: fnd_message.set_token('DETAIL', l_errbuf);
268:
269: END create_amg_project;
270:
271:
347:
348: EXCEPTION
349: WHEN API_ERROR THEN
350: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
351: fnd_message.set_name('PJM','SEIB-AMG TASK ERROR');
352: fnd_message.set_token('DETAIL', l_errbuf);
353:
354: WHEN OTHERS THEN
355: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
348: EXCEPTION
349: WHEN API_ERROR THEN
350: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
351: fnd_message.set_name('PJM','SEIB-AMG TASK ERROR');
352: fnd_message.set_token('DETAIL', l_errbuf);
353:
354: WHEN OTHERS THEN
355: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
356: fnd_message.set_name('PJM','SEIB-AMG TASK ERROR');
352: fnd_message.set_token('DETAIL', l_errbuf);
353:
354: WHEN OTHERS THEN
355: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
356: fnd_message.set_name('PJM','SEIB-AMG TASK ERROR');
357: fnd_message.set_token('DETAIL', l_errbuf);
358:
359: END create_amg_task;
360:
353:
354: WHEN OTHERS THEN
355: l_errbuf := get_messages( X_msg_count => l_msg_count , X_msg_data => l_msg_data );
356: fnd_message.set_name('PJM','SEIB-AMG TASK ERROR');
357: fnd_message.set_token('DETAIL', l_errbuf);
358:
359: END create_amg_task;
360:
361:
411: --
412: project_number_dup(X_project_number, L_Return_Status);
413:
414: if ( L_Return_Status = 'Y' ) then
415: fnd_message.set_name('PJM', 'FORM-DUPLICATE PROJECT NUM');
416: pjm_conc.put_line( fnd_message.get );
417: Raise Proj_Creation_Error;
418: end if;
419:
412: project_number_dup(X_project_number, L_Return_Status);
413:
414: if ( L_Return_Status = 'Y' ) then
415: fnd_message.set_name('PJM', 'FORM-DUPLICATE PROJECT NUM');
416: pjm_conc.put_line( fnd_message.get );
417: Raise Proj_Creation_Error;
418: end if;
419:
420: --
422: --
423: project_name_dup(X_project_name, L_Return_Status);
424:
425: if ( L_Return_Status = 'Y' ) then
426: fnd_message.set_name('PJM', 'FORM-DUPLICATE PROJECT NAME');
427: pjm_conc.put_line( fnd_message.get );
428: Raise Proj_Creation_Error;
429: end if;
430:
423: project_name_dup(X_project_name, L_Return_Status);
424:
425: if ( L_Return_Status = 'Y' ) then
426: fnd_message.set_name('PJM', 'FORM-DUPLICATE PROJECT NAME');
427: pjm_conc.put_line( fnd_message.get );
428: Raise Proj_Creation_Error;
429: end if;
430:
431: Create_AMG_Project( X_Project_Template
443: pjm_conc.put_line('AMG return_status = ' || L_Return_Status);
444: pjm_conc.new_line(1);
445:
446: if ( L_Return_Status <> 'S' ) then
447: pjm_conc.put_line( fnd_message.get );
448: Raise Proj_Creation_Error;
449: end if;
450:
451: --
526: 'AMG return_status = ' || L_Return_Status);
527:
528: if ( L_Return_Status <> 'S' ) then
529: pjm_conc.new_line(1);
530: pjm_conc.put_line( fnd_message.get );
531: Raise Task_Creation_Error;
532: end if;
533:
534: commit;
555: , l_err_stage
556: , l_err_code );
557:
558: if ( l_err_code <> 0 ) then
559: fnd_message.set_name('PA', l_err_stage);
560: errbuf := fnd_message.get;
561: pjm_conc.put_line( errbuf );
562: commit;
563: retcode := PJM_CONC.G_conc_warning;
556: , l_err_code );
557:
558: if ( l_err_code <> 0 ) then
559: fnd_message.set_name('PA', l_err_stage);
560: errbuf := fnd_message.get;
561: pjm_conc.put_line( errbuf );
562: commit;
563: retcode := PJM_CONC.G_conc_warning;
564: end if;
572: retcode := PJM_CONC.G_conc_success;
573:
574: EXCEPTION
575: WHEN Proj_Creation_Error THEN
576: fnd_message.set_name('PJM', 'SEIB-PROJ CREATION FAILED');
577: errbuf := fnd_message.get;
578: pjm_conc.put_line( errbuf );
579: retcode := PJM_CONC.G_conc_failure;
580:
573:
574: EXCEPTION
575: WHEN Proj_Creation_Error THEN
576: fnd_message.set_name('PJM', 'SEIB-PROJ CREATION FAILED');
577: errbuf := fnd_message.get;
578: pjm_conc.put_line( errbuf );
579: retcode := PJM_CONC.G_conc_failure;
580:
581: WHEN Task_Creation_Error THEN
578: pjm_conc.put_line( errbuf );
579: retcode := PJM_CONC.G_conc_failure;
580:
581: WHEN Task_Creation_Error THEN
582: fnd_message.set_name('PJM', 'SEIB-TASK CREATION FAILED');
583: errbuf := fnd_message.get;
584: pjm_conc.put_line( errbuf );
585: retcode := PJM_CONC.G_conc_failure;
586:
579: retcode := PJM_CONC.G_conc_failure;
580:
581: WHEN Task_Creation_Error THEN
582: fnd_message.set_name('PJM', 'SEIB-TASK CREATION FAILED');
583: errbuf := fnd_message.get;
584: pjm_conc.put_line( errbuf );
585: retcode := PJM_CONC.G_conc_failure;
586:
587: WHEN OTHERS THEN