[Home] [Help]
19: -- Package (private) constants.
20: --
21: LOGGING CONSTANT pay_action_parameters.parameter_name%TYPE := 'LOGGING';
22: max_errors CONSTANT pay_action_parameters.parameter_name%TYPE := 'MAX_ERRORS_ALLOWED';
23: NEWLINE CONSTANT VARCHAR2 (10) := fnd_global.NEWLINE;
24: tab CONSTANT VARCHAR2 (30) := fnd_global.tab;
25: --
26: g_error_txt VARCHAR2 (32000);
27: g_cp_error_txt VARCHAR2 (32000);
20: --
21: LOGGING CONSTANT pay_action_parameters.parameter_name%TYPE := 'LOGGING';
22: max_errors CONSTANT pay_action_parameters.parameter_name%TYPE := 'MAX_ERRORS_ALLOWED';
23: NEWLINE CONSTANT VARCHAR2 (10) := fnd_global.NEWLINE;
24: tab CONSTANT VARCHAR2 (30) := fnd_global.tab;
25: --
26: g_error_txt VARCHAR2 (32000);
27: g_cp_error_txt VARCHAR2 (32000);
28:
235: --
236: PROCEDURE log_message (p_message_text IN VARCHAR2)
237: IS
238: BEGIN
239: IF fnd_global.conc_request_id = -1
240: THEN
241: hr_utility.trace (SUBSTR (p_message_text, 1, 200));
242: hr_utility.trace (SUBSTR (p_message_text, 201, 200));
243: ELSE
499:
500: END IF;*/
501:
502: --
503: IF (p_log_output = 'Y' AND fnd_global.conc_request_id > 0)
504: THEN
505: -- Call from concurrent program
506: g_dbg := TRUE;
507: g_dbg_type := g_fnd_log;
580: fnd_file.put_line (fnd_file.LOG, SUBSTR (l_msg, 1, 70) || ', ' || TO_CHAR (p_location));
581: ELSE
582: fnd_file.put_line (fnd_file.LOG, SUBSTR (l_msg, 1, 70));
583: END IF;
584: ELSIF fnd_global.conc_request_id = -1 THEN
585: log_message(l_msg);
586: END IF;
587:
588: l_msg := SUBSTR (l_msg, 71);
2615: BEGIN
2616: -- to be derived from plan id
2617:
2618: /*
2619: fnd_global.apps_initialize(user_id =>1922,
2620: resp_id =>21540,
2621: resp_appl_id=> 800);
2622: */
2623: IF g_dbg
2626: END IF;
2627:
2628: IF g_dbg
2629: THEN
2630: op ('login person = ' || fnd_global.user_id, g_debug_log);
2631: END IF;
2632:
2633: IF g_dbg
2634: THEN
2631: END IF;
2632:
2633: IF g_dbg
2634: THEN
2635: op ('login name = ' || fnd_global.user_name, g_debug_log);
2636: END IF;
2637:
2638: IF g_dbg
2639: THEN
2636: END IF;
2637:
2638: IF g_dbg
2639: THEN
2640: op ('resp id = ' || fnd_global.resp_id, g_debug_log);
2641: END IF;
2642:
2643: l_initiation_type := 'MGR';
2644: l_resp_id := fnd_global.resp_id;
2640: op ('resp id = ' || fnd_global.resp_id, g_debug_log);
2641: END IF;
2642:
2643: l_initiation_type := 'MGR';
2644: l_resp_id := fnd_global.resp_id;
2645: l_appraisal_mgr_menu := fnd_profile.value_specific (NAME => 'HR_MANAGER_APPRAISALS_MENU', responsibility_id => l_resp_id);
2646:
2647: IF g_dbg
2648: THEN
4092: -- Get the Role for the Owner
4093: -- ---------------------------------
4094: --
4095: wf_directory.getrolename (p_orig_system => 'FND_USR',
4096: p_orig_system_id => fnd_global.user_id,
4097: p_name => l_role_name,
4098: p_display_name => l_role_displayname
4099: );
4100: --
4682: INSERT INTO per_wpm_batch_actions
4683: (wpm_batch_action_id, conc_request_id, conc_program_name, plan_id, appraisal_period_id, status, start_date,
4684: end_date
4685: )
4686: VALUES (l_wpm_batch_action_id, fnd_global.conc_request_id, 'PERPLNPUB', p_plan_id, NULL, 'PENDING', SYSDATE,
4687: --p_effective_date, -- trunc(sysdate)
4688: NULL
4689: );
4690:
4952: THEN
4953: op (l_proc, g_debug_log, 20);
4954: END IF;
4955:
4956: l_request_id := fnd_global.conc_request_id;
4957:
4958: IF g_dbg
4959: THEN
4960: op ('Plan Name: ' || SUBSTR (l_plan_rec.plan_name, 1, 40), g_debug_log, 21);
5983:
5984: --
5985: -- Always Send notification to administrator that plan has been published.
5986: --
5987: send_fyi_admin (p_plan_rec => l_plan_rec, p_status => 'PUBLISHED', p_request_id => fnd_global.conc_request_id);
5988:
5989: IF g_dbg
5990: THEN
5991: op (l_proc, g_debug_log, 210);
6134:
6135: --
6136: -- Send notification to administrator that plan publish errored
6137: --
6138: send_fyi_admin (p_plan_rec => l_plan_rec, p_status => 'ERROR', p_request_id => fnd_global.conc_request_id);
6139:
6140: IF g_dbg
6141: THEN
6142: op ('Leaving:' || l_proc, g_regular_log, 91);
6356: -- ---------------------------------
6357: --
6358: wf_directory.getRoleName
6359: (p_orig_system => 'FND_USR'
6360: ,p_orig_system_id => fnd_global.user_id
6361: ,p_name => l_from_role_name
6362: ,p_display_name => l_from_role_displayname);
6363: --
6364: IF g_dbg THEN op(l_proc, g_DEBUG_LOG, 30); END IF;
7189: --Update the plan status to SUBMITTED so that no further updates can happen to the plan
7190: l_object_version_number := l_plan_rec.object_version_number;
7191: l_status_code := 'SUBMITTED';
7192: -- added for 13650421
7193: l_request_id := fnd_global.conc_request_id;
7194: per_pmp_upd.upd (p_plan_id => p_plan_id,
7195: p_effective_date => l_effective_date,
7196: p_object_version_number => l_object_version_number,
7197: p_status_code => l_status_code,
10986: THEN
10987: op (l_proc, g_debug_log, 20);
10988: END IF;
10989:
10990: l_request_id := fnd_global.conc_request_id;
10991:
10992: IF g_dbg
10993: THEN
10994: op ('Plan Name: ' || SUBSTR (l_plan_rec.plan_name, 1, 40), g_debug_log, 21);
11133: INSERT INTO per_wpm_batch_actions
11134: (wpm_batch_action_id, conc_request_id, conc_program_name, plan_id, appraisal_period_id, status, start_date,
11135: end_date
11136: )
11137: VALUES (l_wpm_batch_action_id, fnd_global.conc_request_id, 'PERPLNREPUB', p_plan_id, NULL, 'PENDING', SYSDATE,
11138: NULL
11139: );
11140:
11141: --