1 PACKAGE BODY PER_FR_CONTRACTS_VAL AS
2 /* $Header: perfrctc.pkb 120.0.12000000.2 2007/02/28 11:06:27 spendhar noship $ */
3 --
4 g_package varchar2(80) := 'per_fr_contracts_val.';
5 --
6
7 PROCEDURE PERSON_CONTRACT_CREATE
8 (p_ctr_information_category IN VARCHAR2
9 ,p_ctr_information10 IN VARCHAR2
10 ,p_ctr_information11 IN VARCHAR2) IS
11 l_proc VARCHAR2(200) := g_package||'person_contract_create';
12 --
13 BEGIN
14
15 /* Added for GSI Bug 5472781 */
16 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'FR') THEN
17 hr_utility.set_location('Leaving : '||l_proc , 10);
18 return;
19 END IF;
20
21 --
22 IF p_ctr_information_category = 'FR' THEN
23 --
24 IF p_ctr_information10 = 'Y' THEN
25 IF p_ctr_information11 is null
26 OR p_ctr_information11 = '0'
27 OR p_ctr_information11 = '' THEN
28 -- raise error, do not save
29 -- Modified application id for 3944415
30 hr_utility.set_message(800,'PER_75091_CTR_HRS');
31 hr_utility.raise_error;
32 --
33 END IF;
34 END IF;
35 --
36 END IF;
37 --
38 END PERSON_CONTRACT_CREATE;
39 --
40 PROCEDURE PERSON_CONTRACT_UPDATE
41 (p_ctr_information_category IN VARCHAR2
42 ,p_ctr_information10 IN VARCHAR2
43 ,p_ctr_information11 IN VARCHAR2 ) IS
44 l_proc VARCHAR2(200) := g_package||'person_contract_update';
45 --
46 BEGIN
47
48 /* Added for GSI Bug 5472781 */
49 IF NOT hr_utility.chk_product_install('Oracle Human Resources', 'FR') THEN
50 hr_utility.set_location('Leaving : '||l_proc , 10);
51 return;
52 END IF;
53
54 --
55 IF p_ctr_information_category = 'FR' THEN
56 --
57 IF p_ctr_information10 = 'Y' THEN
58 IF p_ctr_information11 is null
59 OR p_ctr_information11 = '0'
60 OR p_ctr_information11 = '' THEN
61 -- raise error, do not save
62 -- Modified application id for 3944415
63 hr_utility.set_message(800,'PER_75091_CTR_HRS');
64 hr_utility.raise_error;
65 --
66 END IF;
67 END IF;
68 --
69 END IF;
70 --
71 END PERSON_CONTRACT_UPDATE;
72 --
73 END PER_FR_CONTRACTS_VAL;