184:
185: -- added for PERF ADMIN ACTIONS
186: TYPE t_selected_entities IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
187: g_selected_entities t_selected_entities;
188: TYPE t_plan_rec IS TABLE OF per_perf_mgmt_plans%ROWTYPE INDEX BY
189: BINARY_INTEGER;
190: g_plan_rec t_plan_rec;
191: g_plan_dtls t_plan_rec;
192: g_appraisals_exist VARCHAR2(1) := 'N';
431: --
432: -- {End Of Comments}
433: -- ----------------------------------------------------------------------------
434: procedure populate_qual_plan_population
435: (p_plan_rec in per_perf_mgmt_plans%ROWTYPE
436: ,p_effective_date in date
437: ) is
438:
439: -- Declare local variables
570: and p_effective_date between pos.date_effective and nvl(pos.date_end,p_effective_date)
571: UNION
572: select p_plan_rec.top_position_id subordinate_position_id from dual));
573:
574: CURSOR csr_apprl_periods(p_pln_id per_perf_mgmt_plans.plan_id%TYPE) IS
575: select prds.appraisal_period_id, prds.appraisal_template_id, templ.business_group_id
576: from per_appraisal_periods prds, per_appraisal_templates templ
577: where prds.plan_id = p_pln_id
578: and templ.appraisal_template_id = prds.appraisal_template_id;
3000: -- |-----------------------------< start_process >----------------------------|
3001: -- ----------------------------------------------------------------------------
3002: --
3003: procedure start_process
3004: (p_plan_rec in per_perf_mgmt_plans%ROWTYPE
3005: ,p_effective_date in date
3006: ,p_reverse_mode in varchar2
3007: ,p_item_type in varchar2
3008: ,p_wf_process in varchar2)
3197:
3198: -- Plan record
3199: CURSOR csr_get_plan_rec (p_plan_id number) IS
3200: SELECT *
3201: FROM per_perf_mgmt_plans
3202: WHERE plan_id = p_plan_id;
3203: --
3204: l_plan_rec per_perf_mgmt_plans%ROWTYPE;
3205: begin
3200: SELECT *
3201: FROM per_perf_mgmt_plans
3202: WHERE plan_id = p_plan_id;
3203: --
3204: l_plan_rec per_perf_mgmt_plans%ROWTYPE;
3205: begin
3206: --
3207: IF (funcmode = 'RUN') then
3208:
3561: ,p_status_code in out nocopy varchar2)
3562: is
3563: --
3564: l_object_version_number number := p_object_version_number;
3565: l_status_code per_perf_mgmt_plans.status_code%TYPE;
3566: l_dummy boolean;
3567: l_request_id number;
3568: l_effective_date date := nvl(p_effective_date,trunc(sysdate));
3569: -- Plan record
3568: l_effective_date date := nvl(p_effective_date,trunc(sysdate));
3569: -- Plan record
3570: CURSOR csr_get_plan_rec IS
3571: SELECT *
3572: FROM per_perf_mgmt_plans
3573: WHERE plan_id = p_plan_id;
3574: l_plan_rec per_perf_mgmt_plans%ROWTYPE;
3575: --
3576: begin
3570: CURSOR csr_get_plan_rec IS
3571: SELECT *
3572: FROM per_perf_mgmt_plans
3573: WHERE plan_id = p_plan_id;
3574: l_plan_rec per_perf_mgmt_plans%ROWTYPE;
3575: --
3576: begin
3577: -- Submit the request
3578: l_request_id := fnd_request.submit_request(
3642:
3643: --
3644: cursor csr_plan_ovn is
3645: select object_version_number
3646: from per_perf_mgmt_plans
3647: where plan_id = p_plan_id;
3648: cursor csr_plan_status_code is
3649: select status_code
3650: from per_perf_mgmt_plans
3646: from per_perf_mgmt_plans
3647: where plan_id = p_plan_id;
3648: cursor csr_plan_status_code is
3649: select status_code
3650: from per_perf_mgmt_plans
3651: where plan_id = p_plan_id;
3652:
3653: l_object_version_number number;
3654: l_status_code per_perf_mgmt_plans.status_code%TYPE;
3650: from per_perf_mgmt_plans
3651: where plan_id = p_plan_id;
3652:
3653: l_object_version_number number;
3654: l_status_code per_perf_mgmt_plans.status_code%TYPE;
3655: l_dummy boolean;
3656: --
3657: begin
3658: --
3713: rollback;
3714: --
3715: -- update status of the plan to 'Failed'
3716: --
3717: update per_perf_mgmt_plans
3718: set status_code = 'FAILED'
3719: where plan_id = p_plan_id;
3720: commit;
3721: --
3747: l_logging pay_action_parameters.parameter_value%type;
3748: l_debug boolean := FALSE;
3749: l_effective_date date := TRUNC(nvl(p_effective_date, sysdate));
3750: l_object_version_number number;
3751: l_status_code per_perf_mgmt_plans.status_code%TYPE;
3752: l_dummy boolean;
3753:
3754: --
3755: l_scorecard_id per_personal_scorecards.scorecard_id%TYPE;
3774:
3775: -- Plan record
3776: CURSOR csr_get_plan_rec IS
3777: SELECT *
3778: FROM per_perf_mgmt_plans
3779: WHERE plan_id = p_plan_id;
3780:
3781: -- Scorecard Objectives
3782: CURSOR csr_sc_objectives(p_scorecard_id number) IS
3795: and APPRAISEE_PERSON_ID =pps.person_id
3796: and pps.scorecard_id =p_scorecard_id;
3797:
3798:
3799: l_plan_rec per_perf_mgmt_plans%ROWTYPE;
3800: l_obj_date date :=trunc(sysdate);
3801: l_scorecard_status_code varchar2(30);
3802: l_process_date date;
3803: l_process_date_char varchar2(50);
4654: SELECT
4655: administrator_person_id
4656: ,supervisor_id
4657: FROM
4658: PER_PERF_MGMT_PLANS
4659: WHERE plan_id = l_plan_id;
4660: l_admin_person_id number;
4661: l_supervisor_id number;
4662: --
4715: -- |------------------------------< send_fyi_admin >--------------------------|
4716: -- ----------------------------------------------------------------------------
4717: --
4718: procedure SEND_FYI_ADMIN
4719: (p_plan_rec in per_perf_mgmt_plans%ROWTYPE
4720: ,p_status in varchar2
4721: ,p_request_id in number
4722: )
4723: IS
5087:
5088: (p_plan_id in number
5089: )
5090: IS
5091: l_status_code per_perf_mgmt_plans.status_code%type;
5092: BEGIN
5093:
5094: select status_code into l_status_code from per_perf_mgmt_plans where plan_id =p_plan_id;
5095: --- this is the logic for dectivating a published plan .
5090: IS
5091: l_status_code per_perf_mgmt_plans.status_code%type;
5092: BEGIN
5093:
5094: select status_code into l_status_code from per_perf_mgmt_plans where plan_id =p_plan_id;
5095: --- this is the logic for dectivating a published plan .
5096: if (l_status_code ='PUBLISHED') then
5097: UPDATE per_perf_mgmt_plans
5098: SET STATUS_CODE = 'INACTIVE'
5093:
5094: select status_code into l_status_code from per_perf_mgmt_plans where plan_id =p_plan_id;
5095: --- this is the logic for dectivating a published plan .
5096: if (l_status_code ='PUBLISHED') then
5097: UPDATE per_perf_mgmt_plans
5098: SET STATUS_CODE = 'INACTIVE'
5099: WHERE plan_id =p_plan_id;
5100: commit;
5101: --- logic for status code updated to published if already inactive
5099: WHERE plan_id =p_plan_id;
5100: commit;
5101: --- logic for status code updated to published if already inactive
5102: elsif (l_status_code ='INACTIVE') then
5103: UPDATE per_perf_mgmt_plans
5104: SET STATUS_CODE = 'PUBLISHED'
5105: WHERE plan_id =p_plan_id;
5106: commit;
5107: -- UI allows only published plan and Inactivate plan to access this function through the functional button.
5322: l_proc VARCHAR2(72) :=
5323: g_package||'backout_perf_mgmt_plan';
5324: CURSOR csr_valid_plan (p_plan_id IN NUMBER) IS
5325: SELECT *
5326: FROM per_perf_mgmt_plans
5327: WHERE plan_id = p_plan_id;
5328: l_plan_rec csr_valid_plan%ROWTYPE;
5329: --psugumar 7294077
5330: CURSOR csr_person_ids(p_plan_id IN NUMBER) IS
5333: WHERE plan_id = p_plan_id;
5334:
5335:
5336:
5337: l_plan_name per_perf_mgmt_plans.plan_name%type;
5338: TYPE tab_person_id IS TABLE OF per_appraisals.appraisee_person_id%TYPE INDEX BY binary_integer;
5339: person_ids tab_person_id;
5340: l_effective_date DATE;
5341: l_object_version_number number;
5338: TYPE tab_person_id IS TABLE OF per_appraisals.appraisee_person_id%TYPE INDEX BY binary_integer;
5339: person_ids tab_person_id;
5340: l_effective_date DATE;
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
5786: --
5787: PROCEDURE admin_enroll_into_plan(p_plan_id IN NUMBER
5788: ,p_effective_date IN DATE) IS
5789: l_proc VARCHAR2(72) := g_package||'admin_enroll_into_plan';
5790: l_plan_name per_perf_mgmt_plans.plan_name%type;
5791: --
5792: CURSOR csr_person_dtls (p_assignment_id IN NUMBER
5793: ,p_effective_date IN DATE) IS
5794: SELECT papf.person_id
6432: l_proc VARCHAR2(72) := g_package||'plan_admin_actions';
6433: l_person_count NUMBER;
6434: CURSOR csr_plan_dtls(p_plan_id IN NUMBER) IS
6435: SELECT *
6436: FROM per_perf_mgmt_plans
6437: WHERE plan_id = p_plan_id;
6438: l_effective_date DATE;
6439: BEGIN
6440: --
6518: END plan_admin_actions;
6519: --
6520: procedure send_message_notification (p_person_id in number,
6521: p_message varchar2,
6522: p_plan_id per_perf_mgmt_plans.plan_id%type default null,
6523: p_full_name per_all_people_f.full_name%type
6524: )
6525: is
6526:
6530: from wf_roles wf
6531: where wf.orig_system = 'PER'
6532: and wf.orig_system_id = person_id;
6533:
6534: cursor csr_plan_det(p_plan_id per_perf_mgmt_plans.plan_id%type)
6535: is
6536: select plan_name,administrator_person_id
6537: from per_perf_mgmt_plans
6538: where plan_id = p_plan_id;
6533:
6534: cursor csr_plan_det(p_plan_id per_perf_mgmt_plans.plan_id%type)
6535: is
6536: select plan_name,administrator_person_id
6537: from per_perf_mgmt_plans
6538: where plan_id = p_plan_id;
6539:
6540: l_plan_rec csr_plan_det%rowtype;
6541: