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: l_default_ro_item VARCHAR2(1);
75:
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: l_default_ro_item VARCHAR2(1);
75:
76: BEGIN
93: l_job_header_rec.process_phase := l_validation_phase;
94: l_job_header_rec.process_status := l_pending_status;
95: l_job_header_rec.source_code := l_depot_repair_source_code;
96: l_job_header_rec.source_line_id := l_depot_app_source_line_id ;
97: l_job_header_rec.load_type := l_non_standard_load_type;
98:
99: l_job_header_rec.group_id := p_group_id;
100:
101: l_default_ro_item := nvl(FND_PROFILE.VALUE('CSD_DEFAULT_RO_ITEM_AS_MATERIAL_ON_JOB'), 'N');
409: END insert_job_header;
410:
411:
412:
413: -- This Procedure verifies that both the Internal and Standard Concurrent
414: -- managers are up. If either one is down, it writes an error to the
415: -- message list and returns an error status.
416:
417: PROCEDURE verify_conc_manager_status
430: l_callstat NUMBER;
431:
432: -- Declare the constants
433:
434: -- FND Application_id under which the standard and intenral concurrent managers are registered,
435: -- Concurrent Manager Id for Standard and Internal Managers.
436: -- These are used in the call to get_manager_status to see if the standard and internal concurrent
437: -- managers are up
438:
431:
432: -- Declare the constants
433:
434: -- FND Application_id under which the standard and intenral concurrent managers are registered,
435: -- Concurrent Manager Id for Standard and Internal Managers.
436: -- These are used in the call to get_manager_status to see if the standard and internal concurrent
437: -- managers are up
438:
439: l_fnd_application_id CONSTANT NUMBER := 0;
432: -- Declare the constants
433:
434: -- FND Application_id under which the standard and intenral concurrent managers are registered,
435: -- Concurrent Manager Id for Standard and Internal Managers.
436: -- These are used in the call to get_manager_status to see if the standard and internal concurrent
437: -- managers are up
438:
439: l_fnd_application_id CONSTANT NUMBER := 0;
440: l_internal_manager_id CONSTANT NUMBER := 1;
437: -- managers are up
438:
439: l_fnd_application_id CONSTANT NUMBER := 0;
440: l_internal_manager_id CONSTANT NUMBER := 1;
441: l_standard_manager_id CONSTANT NUMBER := 0;
442:
443:
444: BEGIN
445:
454: pmon_method => l_pmon_method,
455: callstat => l_callstat);
456:
457:
458: -- Validate if Standard Concurrent Manager is up
459:
460: fnd_concurrent.get_manager_status(applid => l_fnd_application_id,
461: managerid => l_standard_manager_id,
462: targetp => l_targetp,
457:
458: -- Validate if Standard Concurrent Manager is up
459:
460: fnd_concurrent.get_manager_status(applid => l_fnd_application_id,
461: managerid => l_standard_manager_id,
462: targetp => l_targetp,
463: activep => l_activep,
464: pmon_method => l_pmon_method,
465: callstat => l_callstat);
464: pmon_method => l_pmon_method,
465: callstat => l_callstat);
466:
467: -- If the actual number of processes that are up for either the Internal
468: -- or Standard Manager is <= 0, which indicates that the concurrent manager
469: -- is down, then add the message to the message list and exit
470:
471: IF (l_activep <= 0 OR l_activep1 <= 0) THEN
472: FND_MESSAGE.SET_NAME('CSD','CSD_CONC_MGR_DOWN');
928: l_mod_name||'begin',
929: 'Entering Private API submit_jobs');
930: END IF;
931:
932: -- Standard call to check for call compatibility
933: IF Not FND_API.COMPATIBLE_API_CALL( l_api_version,
934: p_api_version,
935: l_api_name,
936: G_PKG_NAME) THEN
945: -- Initialize API return status to success
946: x_return_status:=FND_API.G_RET_STS_SUCCESS;
947:
948:
949: -- Verify that the Standard and Internal Concurrent Managers are UP
950:
951: verify_conc_manager_status ( x_return_status => x_return_status );
952:
953: IF ( x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1453:
1454: l_api_version CONSTANT NUMBER := 1.0;
1455: l_procedure_name CONSTANT VARCHAR2(30) := 'Submit_Wip_Mass_Load_Conc' ;
1456:
1457: -- Used for standard concurrent progam parameter 'retcode' value
1458: l_success CONSTANT NUMBER := 0;
1459: l_warning CONSTANT NUMBER := 1;
1460: l_error CONSTANT NUMBER := 2;
1461:
1800:
1801: lc_released_status_code CONSTANT NUMBER := 3;
1802: lc_unreleased_status_code CONSTANT NUMBER := 1;
1803:
1804: -- Non Standard Discrete Job Load Type
1805: lc_non_standard_load_type CONSTANT NUMBER := 4;
1806:
1807:
1808: -- Constants used for FND_LOG debug messages
1801: lc_released_status_code CONSTANT NUMBER := 3;
1802: lc_unreleased_status_code CONSTANT NUMBER := 1;
1803:
1804: -- Non Standard Discrete Job Load Type
1805: lc_non_standard_load_type CONSTANT NUMBER := 4;
1806:
1807:
1808: -- Constants used for FND_LOG debug messages
1809:
1827: lc_mod_name||'begin',
1828: 'Entering Private API create_job_from_estimate');
1829: END IF;
1830:
1831: -- Standard Start of API savepoint
1832: SAVEPOINT CREATE_WIP_JOB_PVT;
1833: -- Standard call to check for call compatibility.
1834: IF NOT FND_API.Compatible_API_Call
1835: (lc_api_version_number,
1829: END IF;
1830:
1831: -- Standard Start of API savepoint
1832: SAVEPOINT CREATE_WIP_JOB_PVT;
1833: -- Standard call to check for call compatibility.
1834: IF NOT FND_API.Compatible_API_Call
1835: (lc_api_version_number,
1836: p_api_version_number,
1837: lc_api_name,
1895: l_job_header_rec.status_type := lc_unreleased_status_code;
1896: END IF;
1897:
1898:
1899: l_job_header_rec.load_type := lc_non_standard_load_type;
1900:
1901: l_job_header_rec.first_unit_start_date := SYSDATE;
1902: l_job_header_rec.last_unit_completion_date := SYSDATE;
1903:
2179: RETURN;
2180:
2181: END IF;
2182:
2183: -- Standard check for p_commit
2184: IF FND_API.to_Boolean( p_commit )
2185: THEN
2186: COMMIT WORK;
2187: END IF;