[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;
452: l_job_level_old NUMBER;
453: l_job_level_new NUMBER;
454: l_job_id_old PER_JOBS.JOB_ID%type;
455: l_job_id_new PER_JOBS.JOB_ID%type;
456: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
457:
458: BEGIN
459: -- Initialize the Error stack
460: PA_DEBUG.init_err_stack('PA_HR_UPDATE_API.update_job_level_res_denorm');
546: AND pjr.from_job_id = l_job_id
547: AND pjr.from_job_group_id = pjg.job_group_id;
548:
549: -- P_DEBUG_MODE varchar2(1); -- Bug 4352236
550: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
551:
552: BEGIN
553:
554: -- Initialize the Error stack
570: fetch get_job_ids into l_job_id;
571: Exit when get_job_ids%NOTFOUND;
572:
573: If l_job_id is NOT NULL then
574: -- P_DEBUG_MODE := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
575: IF (P_DEBUG_MODE ='Y') THEN
576: pa_debug.g_err_stage := 'Log: Job Level change for job_id';
577: pa_debug.write_file('LOG',pa_debug.g_err_stage);
578: end if;
629: l_job_id PER_JOBS.JOB_ID%type;
630: l_master_job_id PER_JOBS.JOB_ID%type;
631: l_PRJG_job_id PER_JOBS.JOB_ID%type;
632: l_condition VARCHAR2(10);
633: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
634:
635: BEGIN
636: -- Initialize the Error stack
637: PA_DEBUG.init_err_stack('PA_HR_UPDATE_API.pa_job_relation_job_id');
934: l_master_job_id PER_JOBS.JOB_ID%type;
935: l_job_level_old pa_resources_denorm.resource_job_level%type;
936: l_job_level_new pa_resources_denorm.resource_job_level%type;
937: l_job_group_id per_job_groups.job_group_id%type;
938: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
939:
940: -- Cursor to get the associated master job id of the PRJG job id
941: CURSOR get_master_job (
942: l_job_id per_jobs.job_id%type
1056: l_job_level_old pa_resources_denorm.resource_job_level%type;
1057: l_job_level_new pa_resources_denorm.resource_job_level%type;
1058: l_job_group_id per_job_groups.job_group_id%type;
1059: l_isPRJG VARCHAR2(1);
1060: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1061:
1062: BEGIN
1063:
1064: -- Initialize the Error stack
1887: l_job_level NUMBER;
1888: l_proj_job_group_new NUMBER;
1889: l_proj_job_group_old NUMBER;
1890: l_job_group_id NUMBER;
1891: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
1892:
1893: CURSOR get_new_job_ids IS
1894: SELECT job_id
1895: FROM per_jobs
1916: log_message('old proj res job group value = ' || l_proj_job_group_old);
1917: log_message('new proj res job group value = ' || l_proj_job_group_new);
1918: END IF;
1919:
1920: IF p_calling_mode = 'INSERT' and fnd_profile.value('HR_CROSS_BUSINESS_GROUP') = 'N' THEN
1921:
1922: -- When Insert, we update all resource denorm records with job_id that
1923: -- belongs to the new Project Resource Job Group Id
1924: OPEN get_new_job_ids;
1942: );
1943: END LOOP;
1944: CLOSE get_new_job_ids;
1945:
1946: ELSIF p_calling_mode = 'UPDATE' and fnd_profile.value('HR_CROSS_BUSINESS_GROUP') = 'N' THEN
1947:
1948: -- When update we have to set the resource denorm records job level to NULL for job id
1949: -- that belongs to the old Project Resource Job Group Id
1950: OPEN get_old_job_ids;
2001: END LOOP;
2002: CLOSE get_new_job_ids;
2003:
2004:
2005: ELSIF p_calling_mode = 'DELETE' and fnd_profile.value('HR_CROSS_BUSINESS_GROUP') = 'N' THEN
2006:
2007: -- When Delete, we have to set the resource denorm records job level to NULL for job id
2008: -- that belongs to the old Project Resource Job Group Id
2009:
2735: l_pull_res_flag VARCHAR2(1) := 'N';
2736: l_end_date_res_flag VARCHAR2(1) := 'N';
2737: l_prv_person_id NUMBER;
2738: l_resource_id NUMBER;
2739: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
2740:
2741: /*
2742: CURSOR all_job_res_recs IS
2743: SELECT person_id, min(resource_effective_start_date) resource_effective_start_date,
3044:
3045: l_resource_id NUMBER;
3046: l_status_code VARCHAR2(30);
3047: l_rec_ver_num NUMBER;
3048: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
3049:
3050: CURSOR get_nominations(l_resource_id IN NUMBER) IS
3051: select cand.candidate_id, cand.record_version_number
3052: from pa_candidates cand,
3078: l_resource_id := PA_RESOURCE_UTILS.get_resource_id(p_person_id);
3079:
3080: IF (l_resource_id <> -999) THEN
3081:
3082: l_status_code := FND_PROFILE.value('PA_INV_RES_CAND_STATUS');
3083: IF P_DEBUG_MODE = 'Y' THEN
3084: log_message('Candidate status code = ' || l_status_code);
3085: END IF;
3086:
3789: l_old_job_utilizable pa_resources_denorm.utilization_flag%type;
3790: l_new_job_utilizable pa_resources_denorm.utilization_flag%type;
3791: l_old_job_schedulable pa_resources_denorm.schedulable_flag%type;
3792: l_new_job_schedulable pa_resources_denorm.schedulable_flag%type;
3793: P_DEBUG_MODE VARCHAR2(1) := NVL(FND_PROFILE.value('PA_DEBUG_MODE'), 'N');
3794:
3795: -- Cursor to get all denormalized resource records
3796: -- for this HR assignment
3797: CURSOR res_denorm_recs IS