DBA Data[Home] [Help]

APPS.HR_PERF_MGMT_PLAN_INTERNAL dependencies on HR_UTILITY

Line 8: g_debug BOOLEAN := hr_utility.debug_enabled;

4: -- Package Variables
5: --
6:
7: g_package VARCHAR2(33) := 'hr_perf_mgmt_plan_internal.';
8: g_debug BOOLEAN := hr_utility.debug_enabled;
9: g_num_errors NUMBER := 0;
10: g_max_errors NUMBER;
11:
12: --

Line 316: hr_utility.set_location(SUBSTR(l_msg, 1, 70), p_location);

312: WHILE LENGTH(l_msg) > 0
313: LOOP
314: IF g_dbg_type = g_PIPE OR g_debug THEN
315: IF p_location IS NOT NULL THEN
316: hr_utility.set_location(SUBSTR(l_msg, 1, 70), p_location);
317: ELSE
318: hr_utility.trace(SUBSTR(l_msg, 1, 70));
319: END IF;
320: ELSIF g_dbg_type = g_FND_LOG THEN

Line 318: hr_utility.trace(SUBSTR(l_msg, 1, 70));

314: IF g_dbg_type = g_PIPE OR g_debug THEN
315: IF p_location IS NOT NULL THEN
316: hr_utility.set_location(SUBSTR(l_msg, 1, 70), p_location);
317: ELSE
318: hr_utility.trace(SUBSTR(l_msg, 1, 70));
319: END IF;
320: ELSIF g_dbg_type = g_FND_LOG THEN
321: IF p_location IS NOT NULL THEN
322: fnd_file.put_line(FND_FILE.log, SUBSTR(l_msg, 1, 70)

Line 4341: hr_utility.set_location('Before transfer out _for_person',107);

4337: IF (l_plan_rec.include_appraisals_flag = 'Y') THEN
4338: -- FOR plan_appraisals IN csr_plan_appraisals(p_plan_id)
4339: open csr_find_appr_for_scorecard(p_plan_id,g_curr_sc_pop_tbl(l_curr_sc_pop_index).scorecard_id);
4340: LOOP
4341: hr_utility.set_location('Before transfer out _for_person',107);
4342: fetch csr_find_appr_for_scorecard into l_appr_id,l_appr_ovn,l_appr_sys_status;
4343: exit when csr_find_appr_for_scorecard%notfound;
4344: IF l_appr_sys_status <> 'COMPLETED' THEN
4345: UPDATE per_appraisals

Line 4359: hr_utility.set_location('After transfer out appraisal_for_person appraisal_id: '|| l_appr_id,107);

4355: -- we are doing a direct update as update API will not work for terminated and traansfer employees
4356: -- update it to transfer out so as to not show the details anywhere
4357:
4358: END IF;
4359: hr_utility.set_location('After transfer out appraisal_for_person appraisal_id: '|| l_appr_id,107);
4360:
4361: END LOOP;
4362: close csr_find_appr_for_scorecard;
4363: END IF;

Line 5121: hr_utility.trace(SUBSTR(p_message_text,1,200));

5117: --
5118: PROCEDURE log_message(p_message_text IN VARCHAR2) IS
5119: BEGIN
5120: IF fnd_global.conc_request_id = -1 THEN
5121: hr_utility.trace(SUBSTR(p_message_text,1,200));
5122: hr_utility.trace(SUBSTR(p_message_text,201,200));
5123: ELSE
5124: fnd_file.put_line(fnd_file.log,p_message_text);
5125: END IF;

Line 5122: hr_utility.trace(SUBSTR(p_message_text,201,200));

5118: PROCEDURE log_message(p_message_text IN VARCHAR2) IS
5119: BEGIN
5120: IF fnd_global.conc_request_id = -1 THEN
5121: hr_utility.trace(SUBSTR(p_message_text,1,200));
5122: hr_utility.trace(SUBSTR(p_message_text,201,200));
5123: ELSE
5124: fnd_file.put_line(fnd_file.log,p_message_text);
5125: END IF;
5126: END log_message;

Line 5282: hr_utility.set_location('Entering '||l_proc,10);

5278: l_request_id NUMBER;
5279: l_proc VARCHAR2(72) :=
5280: g_package||'backout_perf_mgmt_plan_cp';
5281: BEGIN
5282: hr_utility.set_location('Entering '||l_proc,10);
5283: IF p_plan_id IS NULL THEN
5284: hr_api.mandatory_arg_error(p_api_name => 'BACKOUT_PERF_MGMT_PLAN_CP'
5285: ,p_argument => 'P_PLAN_ID'
5286: ,p_argument_value => p_plan_id);

Line 5303: hr_utility.trace('Request id: '||l_request_id);

5299: ,argument2 => p_plan_id
5300: ,argument3 => p_report_only);
5301: COMMIT;
5302:
5303: hr_utility.trace('Request id: '||l_request_id);
5304: hr_utility.set_location('Leaving '||l_proc,20);
5305: return l_request_id;
5306: EXCEPTION
5307: WHEN Others THEN

Line 5304: hr_utility.set_location('Leaving '||l_proc,20);

5300: ,argument3 => p_report_only);
5301: COMMIT;
5302:
5303: hr_utility.trace('Request id: '||l_request_id);
5304: hr_utility.set_location('Leaving '||l_proc,20);
5305: return l_request_id;
5306: EXCEPTION
5307: WHEN Others THEN
5308: hr_utility.set_location('Error submitting the request.'||l_proc,30);

Line 5308: hr_utility.set_location('Error submitting the request.'||l_proc,30);

5304: hr_utility.set_location('Leaving '||l_proc,20);
5305: return l_request_id;
5306: EXCEPTION
5307: WHEN Others THEN
5308: hr_utility.set_location('Error submitting the request.'||l_proc,30);
5309: RETURN -1;
5310: RAISE;
5311: END backout_perf_mgmt_plan_cp;
5312: -- ----------------------------------------------------------------------------

Line 5345: hr_utility.set_location('Entering:'||l_proc,10);

5341: l_object_version_number number;
5342: l_status_code per_perf_mgmt_plans.status_code%TYPE;
5343: l_dummy boolean;
5344: BEGIN
5345: hr_utility.set_location('Entering:'||l_proc,10);
5346: --Bug7294077
5347: OPEN csr_person_ids(p_plan_id);
5348: FETCH csr_person_ids BULK COLLECT INTO person_ids LIMIT 1000;
5349: CLOSE csr_person_ids;

Line 5364: hr_utility.set_message(800,'HR_50264_PMS_INVALID_PLAN');

5360: l_effective_date := fnd_date.canonical_to_date(p_effective_date);
5361: OPEN csr_valid_plan(p_plan_id);
5362: FETCH csr_valid_plan INTO l_plan_rec;
5363: IF csr_valid_plan%NOTFOUND THEN
5364: hr_utility.set_message(800,'HR_50264_PMS_INVALID_PLAN');
5365: log_message('Perf. Management Plan doesn''t exist.');
5366: hr_utility.raise_error;
5367: END IF;
5368: CLOSE csr_valid_plan;

Line 5366: hr_utility.raise_error;

5362: FETCH csr_valid_plan INTO l_plan_rec;
5363: IF csr_valid_plan%NOTFOUND THEN
5364: hr_utility.set_message(800,'HR_50264_PMS_INVALID_PLAN');
5365: log_message('Perf. Management Plan doesn''t exist.');
5366: hr_utility.raise_error;
5367: END IF;
5368: CLOSE csr_valid_plan;
5369: IF l_plan_rec.status_code IN ('DRAFT','INACTIVE') THEN
5370: fnd_message.set_name('PER','HR_50780_WPM_INVALID_STATUS_BACKOUT');

Line 5374: hr_utility.raise_error;

5370: fnd_message.set_name('PER','HR_50780_WPM_INVALID_STATUS_BACKOUT');
5371: log_message('This plan cannot be backed out as this is currently in
5372: '||l_plan_rec.status_code);
5373: fnd_message.set_token('STATUS',l_plan_rec.status_code);
5374: hr_utility.raise_error;
5375: END IF;
5376: IF trunc(sysdate)>trunc(l_plan_rec.END_DATE) THEN
5377: log_message('This plan cannot be backed out as this plan is Completed');
5378: hr_utility.raise_error;

Line 5378: hr_utility.raise_error;

5374: hr_utility.raise_error;
5375: END IF;
5376: IF trunc(sysdate)>trunc(l_plan_rec.END_DATE) THEN
5377: log_message('This plan cannot be backed out as this plan is Completed');
5378: hr_utility.raise_error;
5379: END IF;
5380: log_message('Details of the Plan: '||l_plan_rec.plan_name);
5381: log_message('--------------------------------------------------------------');
5382: log_message('Administrator :

Line 5445: hr_utility.set_location('Leaving:'||l_proc,50);

5441: for j in 1..person_ids.count loop
5442: send_message_notification(person_ids(j),'WPM_PLAN_ROLLBACK_MSG',p_plan_id,null);
5443: end loop;
5444: COMMIT;
5445: hr_utility.set_location('Leaving:'||l_proc,50);
5446: EXCEPTION
5447: WHEN OTHERS THEN
5448: retcode := ERROR;
5449: errbuf := SqlERRM;

Line 5473: hr_utility.set_location('Entering '||l_proc,10);

5469: l_proc VARCHAR2(72) :=
5470: g_package||'plan_admin_actions_cp';
5471: BEGIN
5472: --
5473: hr_utility.set_location('Entering '||l_proc,10);
5474: IF p_plan_id IS NULL THEN
5475: hr_api.mandatory_arg_error(p_api_name => 'PLAN_ADMIN_ACTIONS_CP'
5476: ,p_argument => 'P_PLAN_ID'
5477: ,p_argument_value => p_plan_id);

Line 5498: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_EXISTS');

5494: IF hr_api.not_exists_in_hr_lookups(p_effective_date => p_effective_date
5495: ,p_lookup_type => 'HR_WPM_ADMIN_ACTIONS'
5496: ,p_lookup_code => p_task_code) THEN
5497: log_message('Invalid task code selected.'||p_task_code);
5498: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_EXISTS');
5499: hr_utility.raise_error;
5500: END IF;
5501: --
5502: l_request_id := fnd_request.submit_request(

Line 5499: hr_utility.raise_error;

5495: ,p_lookup_type => 'HR_WPM_ADMIN_ACTIONS'
5496: ,p_lookup_code => p_task_code) THEN
5497: log_message('Invalid task code selected.'||p_task_code);
5498: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_EXISTS');
5499: hr_utility.raise_error;
5500: END IF;
5501: --
5502: l_request_id := fnd_request.submit_request(
5503: application => 'PER'

Line 5512: hr_utility.trace('Request id: '||l_request_id);

5508: ,argument2 => p_plan_id
5509: ,argument3 => p_selected_entities_list
5510: ,argument4 => p_task_code);
5511: COMMIT;
5512: hr_utility.trace('Request id: '||l_request_id);
5513: hr_utility.set_location('Leaving '||l_proc,20);
5514: --
5515: return l_request_id;
5516: EXCEPTION

Line 5513: hr_utility.set_location('Leaving '||l_proc,20);

5509: ,argument3 => p_selected_entities_list
5510: ,argument4 => p_task_code);
5511: COMMIT;
5512: hr_utility.trace('Request id: '||l_request_id);
5513: hr_utility.set_location('Leaving '||l_proc,20);
5514: --
5515: return l_request_id;
5516: EXCEPTION
5517: WHEN Others THEN

Line 5518: hr_utility.set_location('Error submitting the request.'||l_proc,30);

5514: --
5515: return l_request_id;
5516: EXCEPTION
5517: WHEN Others THEN
5518: hr_utility.set_location('Error submitting the request.'||l_proc,30);
5519: RAISE;
5520: END plan_admin_actions_cp;
5521: --
5522: --

Line 5837: hr_utility.set_location('Entering:'||l_proc,10);

5833: AND assignment_id = p_assignment_id;
5834: l_asg_already_enrolled VARCHAR2(1);
5835: l_person_id number;
5836: BEGIN
5837: hr_utility.set_location('Entering:'||l_proc,10);
5838: g_qual_pop_tbl.DELETE;
5839: populate_qual_plan_population(g_plan_dtls(1),p_effective_date);
5840: hr_utility.set_location(l_proc,11);
5841: IF (g_plan_dtls(1).automatic_allocation_flag = 'Y') THEN

Line 5840: hr_utility.set_location(l_proc,11);

5836: BEGIN
5837: hr_utility.set_location('Entering:'||l_proc,10);
5838: g_qual_pop_tbl.DELETE;
5839: populate_qual_plan_population(g_plan_dtls(1),p_effective_date);
5840: hr_utility.set_location(l_proc,11);
5841: IF (g_plan_dtls(1).automatic_allocation_flag = 'Y') THEN
5842: populate_qual_objectives(g_plan_dtls(1).start_date,
5843: g_plan_dtls(1).end_date);
5844: END IF;

Line 5845: hr_utility.set_location(l_proc,12);

5841: IF (g_plan_dtls(1).automatic_allocation_flag = 'Y') THEN
5842: populate_qual_objectives(g_plan_dtls(1).start_date,
5843: g_plan_dtls(1).end_date);
5844: END IF;
5845: hr_utility.set_location(l_proc,12);
5846: IF (g_plan_dtls(1).include_appraisals_flag = 'Y') THEN
5847: populate_plan_apprsl_periods(g_plan_dtls(1).plan_id);
5848: OPEN csr_apprs_exist(p_plan_id);
5849: FETCH csr_apprs_exist INTO g_appraisals_exist;

Line 5852: hr_utility.set_location(l_proc,13);

5848: OPEN csr_apprs_exist(p_plan_id);
5849: FETCH csr_apprs_exist INTO g_appraisals_exist;
5850: CLOSE csr_apprs_exist;
5851: END IF;
5852: hr_utility.set_location(l_proc,13);
5853: --
5854: l_asg_already_enrolled := 'N' ;
5855: FOR i in g_selected_entities.FIRST .. g_selected_entities.LAST
5856: LOOP

Line 5857: hr_utility.set_location(l_proc,14);

5853: --
5854: l_asg_already_enrolled := 'N' ;
5855: FOR i in g_selected_entities.FIRST .. g_selected_entities.LAST
5856: LOOP
5857: hr_utility.set_location(l_proc,14);
5858: OPEN csr_asg_enrolled(g_selected_entities(i),p_plan_id);
5859: FETCH csr_asg_enrolled INTO l_asg_already_enrolled;
5860: CLOSE csr_asg_enrolled;
5861: -- Bug 7277335 Fix

Line 5866: hr_utility.set_location(l_proc,15);

5862: -- IF NVL(l_asg_already_enrolled,'N') = 'N' THEN
5863: FOR j IN csr_person_dtls(g_selected_entities(i),p_effective_date)
5864: LOOP
5865: l_chk_exists := chk_assignment_in_population(j.assignment_id);
5866: hr_utility.set_location(l_proc,15);
5867: l_person_id := j.person_id;
5868: IF l_chk_exists = 'N' THEN
5869: log_message(j.full_name||'-'||j.assignment_id||'-'||j.assignment_number||' is not in the plan population. Cannot enroll.');
5870: g_num_errors := NVL(g_num_errors,0)+1;

Line 5898: hr_utility.set_location('Leaving:'||l_proc,100);

5894: END LOOP;
5895: send_message_notification(l_person_id,'WPM_AP_ENROLL_MSG',p_plan_id,null);
5896: -- END IF; -- asg not enrolled
5897: END LOOP;
5898: hr_utility.set_location('Leaving:'||l_proc,100);
5899: END admin_enroll_into_plan;
5900: --
5901: --
5902: PROCEDURE revert_appraisal_details(p_appraisal_id IN NUMBER

Line 6441: hr_utility.set_location('Entering '||l_proc,10);

6437: WHERE plan_id = p_plan_id;
6438: l_effective_date DATE;
6439: BEGIN
6440: --
6441: hr_utility.set_location('Entering '||l_proc,10);
6442:
6443: g_plan_dtls.delete;
6444: OPEN csr_plan_dtls(p_plan_id);
6445: FETCH csr_plan_dtls INTO g_plan_dtls(1);

Line 6475: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_EXISTS');

6471: IF hr_api.not_exists_in_hr_lookups(p_effective_date => l_effective_date
6472: ,p_lookup_type => 'HR_WPM_ADMIN_ACTIONS'
6473: ,p_lookup_code => p_task_code) THEN
6474: log_message('Invalid task code selected.'||p_task_code);
6475: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_EXISTS');
6476: hr_utility.raise_error;
6477: END IF;
6478: l_person_count := string_to_array(p_selected_entities_list =>
6479: p_selected_entities_list);

Line 6476: hr_utility.raise_error;

6472: ,p_lookup_type => 'HR_WPM_ADMIN_ACTIONS'
6473: ,p_lookup_code => p_task_code) THEN
6474: log_message('Invalid task code selected.'||p_task_code);
6475: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_EXISTS');
6476: hr_utility.raise_error;
6477: END IF;
6478: l_person_count := string_to_array(p_selected_entities_list =>
6479: p_selected_entities_list);
6480: log_message('Number of selected persons: '||l_person_count);

Line 6498: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_VALID');

6494: admin_refresh_scorecard(p_plan_id => p_plan_id
6495: ,p_effective_date => l_effective_date);
6496: ELSE
6497: log_message('Invalid task code selected.'||p_task_code);
6498: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_VALID');
6499: hr_utility.raise_error;
6500: END IF;
6501: --
6502: --

Line 6499: hr_utility.raise_error;

6495: ,p_effective_date => l_effective_date);
6496: ELSE
6497: log_message('Invalid task code selected.'||p_task_code);
6498: hr_utility.set_message(800,'HR_WPM_TASK_CODE_NOT_VALID');
6499: hr_utility.raise_error;
6500: END IF;
6501: --
6502: --
6503: COMMIT;

Line 6510: hr_utility.set_location('Leaving '||l_proc,100);

6506: retcode := WARNING;
6507: errbuf := 'Errors occured processing the selected persons. Pl. check the
6508: concurrent log for details.';
6509: END IF;
6510: hr_utility.set_location('Leaving '||l_proc,100);
6511: EXCEPTION
6512: WHEN OTHERS THEN
6513: log_message('Error Completing the process.');
6514: errbuf := SQLERRM;