67:
68: -- Depot repair Application Id passed as source_line_id
69: l_depot_app_source_line_id CONSTANT NUMBER := 512;
70:
71: -- Non Standard Discrete Job Load Type
72: l_non_standard_load_type CONSTANT NUMBER := 4;
73:
74:
75: BEGIN
68: -- Depot repair Application Id passed as source_line_id
69: l_depot_app_source_line_id CONSTANT NUMBER := 512;
70:
71: -- Non Standard Discrete Job Load Type
72: l_non_standard_load_type CONSTANT NUMBER := 4;
73:
74:
75: BEGIN
76:
92: l_job_header_rec.process_phase := l_validation_phase;
93: l_job_header_rec.process_status := l_pending_status;
94: l_job_header_rec.source_code := l_depot_repair_source_code;
95: l_job_header_rec.source_line_id := l_depot_app_source_line_id ;
96: l_job_header_rec.load_type := l_non_standard_load_type;
97:
98: l_job_header_rec.group_id := p_group_id;
99:
100: -- nnadig: bug 9263438 - Use wip_interface_s for interface_id, not sequence from group_id
414: END insert_job_header;
415:
416:
417:
418: -- This Procedure verifies that both the Internal and Standard Concurrent
419: -- managers are up. If either one is down, it writes an error to the
420: -- message list and returns an error status.
421:
422: PROCEDURE verify_conc_manager_status
435: l_callstat NUMBER;
436:
437: -- Declare the constants
438:
439: -- FND Application_id under which the standard and intenral concurrent managers are registered,
440: -- Concurrent Manager Id for Standard and Internal Managers.
441: -- These are used in the call to get_manager_status to see if the standard and internal concurrent
442: -- managers are up
443:
436:
437: -- Declare the constants
438:
439: -- FND Application_id under which the standard and intenral concurrent managers are registered,
440: -- Concurrent Manager Id for Standard and Internal Managers.
441: -- These are used in the call to get_manager_status to see if the standard and internal concurrent
442: -- managers are up
443:
444: l_fnd_application_id CONSTANT NUMBER := 0;
437: -- Declare the constants
438:
439: -- FND Application_id under which the standard and intenral concurrent managers are registered,
440: -- Concurrent Manager Id for Standard and Internal Managers.
441: -- These are used in the call to get_manager_status to see if the standard and internal concurrent
442: -- managers are up
443:
444: l_fnd_application_id CONSTANT NUMBER := 0;
445: l_internal_manager_id CONSTANT NUMBER := 1;
442: -- managers are up
443:
444: l_fnd_application_id CONSTANT NUMBER := 0;
445: l_internal_manager_id CONSTANT NUMBER := 1;
446: l_standard_manager_id CONSTANT NUMBER := 0;
447:
448:
449: BEGIN
450:
459: pmon_method => l_pmon_method,
460: callstat => l_callstat);
461:
462:
463: -- Validate if Standard Concurrent Manager is up
464:
465: fnd_concurrent.get_manager_status(applid => l_fnd_application_id,
466: managerid => l_standard_manager_id,
467: targetp => l_targetp,
462:
463: -- Validate if Standard Concurrent Manager is up
464:
465: fnd_concurrent.get_manager_status(applid => l_fnd_application_id,
466: managerid => l_standard_manager_id,
467: targetp => l_targetp,
468: activep => l_activep,
469: pmon_method => l_pmon_method,
470: callstat => l_callstat);
469: pmon_method => l_pmon_method,
470: callstat => l_callstat);
471:
472: -- If the actual number of processes that are up for either the Internal
473: -- or Standard Manager is <= 0, which indicates that the concurrent manager
474: -- is down, then add the message to the message list and exit
475:
476: IF (l_activep <= 0 OR l_activep1 <= 0) THEN
477: FND_MESSAGE.SET_NAME('CSD','CSD_CONC_MGR_DOWN');
935: l_mod_name||'begin',
936: 'Entering Private API submit_jobs');
937: END IF;
938:
939: -- Standard call to check for call compatibility
940: IF Not FND_API.COMPATIBLE_API_CALL( l_api_version,
941: p_api_version,
942: l_api_name,
943: G_PKG_NAME) THEN
952: -- Initialize API return status to success
953: x_return_status:=FND_API.G_RET_STS_SUCCESS;
954:
955:
956: -- Verify that the Standard and Internal Concurrent Managers are UP
957:
958: verify_conc_manager_status ( x_return_status => x_return_status );
959:
960: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1505:
1506: l_api_version CONSTANT NUMBER := 1.0;
1507: l_procedure_name CONSTANT VARCHAR2(30) := 'Submit_Wip_Mass_Load_Conc' ;
1508:
1509: -- Used for standard concurrent progam parameter 'retcode' value
1510: l_success CONSTANT NUMBER := 0;
1511: l_warning CONSTANT NUMBER := 1;
1512: l_error CONSTANT NUMBER := 2;
1513:
1969:
1970: lc_released_status_code CONSTANT NUMBER := 3;
1971: lc_unreleased_status_code CONSTANT NUMBER := 1;
1972:
1973: -- Non Standard Discrete Job Load Type
1974: lc_non_standard_load_type CONSTANT NUMBER := 4;
1975:
1976:
1977: -- Constants used for FND_LOG debug messages
1970: lc_released_status_code CONSTANT NUMBER := 3;
1971: lc_unreleased_status_code CONSTANT NUMBER := 1;
1972:
1973: -- Non Standard Discrete Job Load Type
1974: lc_non_standard_load_type CONSTANT NUMBER := 4;
1975:
1976:
1977: -- Constants used for FND_LOG debug messages
1978:
1996: lc_mod_name||'begin',
1997: 'Entering Private API create_job_from_estimate');
1998: END IF;
1999:
2000: -- Standard Start of API savepoint
2001: SAVEPOINT CREATE_WIP_JOB_PVT;
2002: -- Standard call to check for call compatibility.
2003: IF NOT FND_API.Compatible_API_Call
2004: (lc_api_version_number,
1998: END IF;
1999:
2000: -- Standard Start of API savepoint
2001: SAVEPOINT CREATE_WIP_JOB_PVT;
2002: -- Standard call to check for call compatibility.
2003: IF NOT FND_API.Compatible_API_Call
2004: (lc_api_version_number,
2005: p_api_version_number,
2006: lc_api_name,
2064: l_job_header_rec.status_type := lc_unreleased_status_code;
2065: END IF;
2066:
2067:
2068: l_job_header_rec.load_type := lc_non_standard_load_type;
2069:
2070: l_job_header_rec.first_unit_start_date := SYSDATE;
2071: l_job_header_rec.last_unit_completion_date := SYSDATE;
2072:
2373: RETURN;
2374:
2375: END IF;
2376:
2377: -- Standard check for p_commit
2378: IF FND_API.to_Boolean( p_commit )
2379: THEN
2380: COMMIT WORK;
2381: END IF;
2582: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
2583: fnd_log.string(fnd_log.level_statement, lc_module_name,'Begin bulk_submit_jobs API');
2584: END IF;
2585:
2586: -- standard check for API compatibility.
2587: IF NOT Fnd_Api.Compatible_API_Call
2588: (lc_api_version,
2589: p_api_version,
2590: lc_module_name,