[Home] [Help]
3:
4: --FUNCTION Get_Country_name(p_country_code VARCHAR2) RETURN VARCHAR2 ;
5:
6: -- Global variable for debugging. Bug 4352236.
7: -- G_DEBUG_MODE varchar2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
8: --------------------------------------------------------------------------------------------------------------
9: -- This procedure prints the text which is being passed as the input
10: -- Input parameters
11: -- Parameters Type Required Description
17: IS
18: -- P_DEBUG_MODE varchar2(1); -- Bug 4352236 - use global variable G_DEBUG_MODE
19: BEGIN
20: --dbms_output.put_line('log: ' || p_log_msg);
21: -- P_DEBUG_MODE := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
22: -- IF (G_DEBUG_MODE ='Y') THEN
23: pa_debug.write('HR_UPDATE_API', 'log: ' || p_log_msg, 3);
24: -- END IF;
25: -- NULL;
449: l_job_level_old NUMBER;
450: l_job_level_new NUMBER;
451: l_job_id_old PER_JOBS.JOB_ID%type;
452: l_job_id_new PER_JOBS.JOB_ID%type;
453: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
454:
455: BEGIN
456: -- Initialize the Error stack
457: PA_DEBUG.init_err_stack('PA_HR_UPDATE_API.update_job_level_res_denorm');
543: AND pjr.from_job_id = l_job_id
544: AND pjr.from_job_group_id = pjg.job_group_id;
545:
546: -- P_DEBUG_MODE varchar2(1); -- Bug 4352236
547: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
548:
549: BEGIN
550:
551: -- Initialize the Error stack
567: fetch get_job_ids into l_job_id;
568: Exit when get_job_ids%NOTFOUND;
569:
570: If l_job_id is NOT NULL then
571: -- P_DEBUG_MODE := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
572: IF (P_DEBUG_MODE ='Y') THEN
573: pa_debug.g_err_stage := 'Log: Job Level change for job_id';
574: pa_debug.write_file('LOG',pa_debug.g_err_stage);
575: end if;
626: l_job_id PER_JOBS.JOB_ID%type;
627: l_master_job_id PER_JOBS.JOB_ID%type;
628: l_PRJG_job_id PER_JOBS.JOB_ID%type;
629: l_condition VARCHAR2(10);
630: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
631:
632: BEGIN
633: -- Initialize the Error stack
634: PA_DEBUG.init_err_stack('PA_HR_UPDATE_API.pa_job_relation_job_id');
931: l_master_job_id PER_JOBS.JOB_ID%type;
932: l_job_level_old pa_resources_denorm.resource_job_level%type;
933: l_job_level_new pa_resources_denorm.resource_job_level%type;
934: l_job_group_id per_job_groups.job_group_id%type;
935: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
936:
937: -- Cursor to get the associated master job id of the PRJG job id
938: CURSOR get_master_job (
939: l_job_id per_jobs.job_id%type
1053: l_job_level_old pa_resources_denorm.resource_job_level%type;
1054: l_job_level_new pa_resources_denorm.resource_job_level%type;
1055: l_job_group_id per_job_groups.job_group_id%type;
1056: l_isPRJG VARCHAR2(1);
1057: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1058:
1059: BEGIN
1060:
1061: -- Initialize the Error stack
1880: l_job_level NUMBER;
1881: l_proj_job_group_new NUMBER;
1882: l_proj_job_group_old NUMBER;
1883: l_job_group_id NUMBER;
1884: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1885:
1886: CURSOR get_new_job_ids IS
1887: SELECT job_id
1888: FROM per_jobs
1909: log_message('old proj res job group value = ' || l_proj_job_group_old);
1910: log_message('new proj res job group value = ' || l_proj_job_group_new);
1911: END IF;
1912:
1913: IF p_calling_mode = 'INSERT' and fnd_profile.value('HR_CROSS_BUSINESS_GROUP') = 'N' THEN
1914:
1915: -- When Insert, we update all resource denorm records with job_id that
1916: -- belongs to the new Project Resource Job Group Id
1917: OPEN get_new_job_ids;
1935: );
1936: END LOOP;
1937: CLOSE get_new_job_ids;
1938:
1939: ELSIF p_calling_mode = 'UPDATE' and fnd_profile.value('HR_CROSS_BUSINESS_GROUP') = 'N' THEN
1940:
1941: -- When update we have to set the resource denorm records job level to NULL for job id
1942: -- that belongs to the old Project Resource Job Group Id
1943: OPEN get_old_job_ids;
1994: END LOOP;
1995: CLOSE get_new_job_ids;
1996:
1997:
1998: ELSIF p_calling_mode = 'DELETE' and fnd_profile.value('HR_CROSS_BUSINESS_GROUP') = 'N' THEN
1999:
2000: -- When Delete, we have to set the resource denorm records job level to NULL for job id
2001: -- that belongs to the old Project Resource Job Group Id
2002:
2728: l_pull_res_flag VARCHAR2(1) := 'N';
2729: l_end_date_res_flag VARCHAR2(1) := 'N';
2730: l_prv_person_id NUMBER;
2731: l_resource_id NUMBER;
2732: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
2733:
2734: /*
2735: CURSOR all_job_res_recs IS
2736: SELECT person_id, min(resource_effective_start_date) resource_effective_start_date,
3037:
3038: l_resource_id NUMBER;
3039: l_status_code VARCHAR2(30);
3040: l_rec_ver_num NUMBER;
3041: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
3042:
3043: CURSOR get_nominations(l_resource_id IN NUMBER) IS
3044: select cand.candidate_id, cand.record_version_number
3045: from pa_candidates cand,
3069: l_resource_id := PA_RESOURCE_UTILS.get_resource_id(p_person_id);
3070:
3071: IF (l_resource_id <> -999) THEN
3072:
3073: l_status_code := FND_PROFILE.value('PA_INV_RES_CAND_STATUS');
3074: IF P_DEBUG_MODE = 'Y' THEN
3075: log_message('Candidate status code = ' || l_status_code);
3076: END IF;
3077:
3668: l_old_job_utilizable pa_resources_denorm.utilization_flag%type;
3669: l_new_job_utilizable pa_resources_denorm.utilization_flag%type;
3670: l_old_job_schedulable pa_resources_denorm.schedulable_flag%type;
3671: l_new_job_schedulable pa_resources_denorm.schedulable_flag%type;
3672: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
3673:
3674: -- Cursor to get all denormalized resource records
3675: -- for this HR assignment
3676: CURSOR res_denorm_recs IS