[Home] [Help]
52: <> per_suc_shd.g_old_rec.succession_plan_id) then
53: --
54: -- raise error as PK has changed
55: --
56: per_suc_shd.constraint_error('PER_SUCCESSION_PLANNING_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_succession_plan_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: per_suc_shd.constraint_error('PER_SUCCESSION_PLANNING_PK');
67: --
68: end if;
69: --
70: end if;
268: close c1;
269: --
270: -- raise error as position does not exist as of effective date.
271: --
272: per_suc_shd.constraint_error('PER_SUCCESSION_PLANNING_FK1');
273: --
274: end if;
275: --
276: close c1;
369: close c1;
370: --
371: -- raise error as job does not exist as of effective date.
372: --
373: per_suc_shd.constraint_error('PER_SUCCESSION_PLANNING_FK2');
374: --
375: end if;
376: --
377: close c1;
951: l_dummy varchar2(1);
952: --
953: cursor c1 is
954: select null
955: from per_succession_planning per
956: where per.person_id = p_person_id
957: and per.succession_plan_id <> nvl(p_succession_plan_id,-1)
958: and ( (p_position_id is not null and per.position_id = p_position_id) or
959: (p_job_id is not null and per.job_id = p_job_id) or
992: close c1;
993: --
994: -- raise error as succession plan records overlap.
995: --
996: per_suc_shd.constraint_error('PER_SUCCESSION_PLANNING_UK');
997: --
998: end if;
999: --
1000: close c1;
1095: -- b) During insert.
1096: --
1097: hr_dflex_utility.ins_or_upd_descflex_attribs
1098: (p_appl_short_name => 'PER'
1099: ,p_descflex_name => 'PER_SUCCESSION_PLANNING'
1100: ,p_attribute_category => p_rec.attribute_category
1101: ,p_attribute1_name => 'ATTRIBUTE1'
1102: ,p_attribute1_value => p_rec.attribute1
1103: ,p_attribute2_name => 'ATTRIBUTE2'