1 PACKAGE BODY per_ru_veh_repos_extra_info AS
2 /* $Header: peruvehr.pkb 120.1 2006/09/20 14:38:58 mgettins noship $ */
3 g_package VARCHAR2(30);
4 --
5 PROCEDURE create_ru_veh_repos_extra_info(p_vehicle_repository_id in number
6 ,p_information_type in varchar2
7 ,p_vrei_attribute_category in varchar2
8 ,p_vrei_information_category in varchar2
9 ,p_vrei_information1 in varchar2
10 ,p_vrei_information2 in varchar2
11 ,p_vrei_information3 in varchar2
12 ,p_vrei_information4 in varchar2
13 ,p_vrei_information5 in varchar2
14 ,p_vrei_information6 in varchar2
15 ,p_vrei_information7 in varchar2
16 ,p_vrei_information8 in varchar2
17 ,p_vrei_information9 in varchar2
18 ,p_vrei_information10 in varchar2
19 ,p_vrei_information11 in varchar2
20 ,p_vrei_information12 in varchar2
21 ,p_vrei_information13 in varchar2
22 ,p_vrei_information14 in varchar2
23 ,p_vrei_information15 in varchar2
24 ,p_vrei_information16 in varchar2
25 ,p_vrei_information17 in varchar2
26 ,p_vrei_information18 in varchar2
27 ,p_vrei_information19 in varchar2
28 ,p_vrei_information20 in varchar2
29 ,p_vrei_information21 in varchar2
30 ,p_vrei_information22 in varchar2
31 ,p_vrei_information23 in varchar2
32 ,p_vrei_information24 in varchar2
33 ,p_vrei_information25 in varchar2
34 ,p_vrei_information26 in varchar2
35 ,p_vrei_information27 in varchar2
36 ,p_vrei_information28 in varchar2
37 ,p_vrei_information29 in varchar2
38 ,p_vrei_information30 in varchar2
39 ,p_request_id in number
40 ,p_program_application_id in number
41 ,p_program_id in number
42 ,p_program_update_date in date
43 ) IS
44
45 BEGIN
46 --
47 -- Added for GSI Bug 5472781
48 --
49 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
50 --
51 IF p_vrei_information_category IN ('RU_VEHICLE_INSURANCE_INFO') THEN
52 --
53 IF p_vrei_information2 IS NOT NULL AND p_vrei_information3 IS NOT NULL AND fnd_date.canonical_to_date(p_vrei_information2) >= fnd_date.canonical_to_date(p_vrei_information3) THEN
54 hr_utility.set_message(800,'HR_RU_INVALID_INSURANCE_DATES');
55 hr_utility.raise_error;
56 End if;
57 End if;
58 --
59 END IF;
60 End create_ru_veh_repos_extra_info;
61
62 PROCEDURE update_ru_veh_repos_extra_info(p_veh_repos_extra_info_id in number
63 ,p_vehicle_repository_id in number
64 ,p_information_type in varchar2
65 ,p_vrei_attribute_category in varchar2
66 ,p_vrei_information_category in varchar2
67 ,p_vrei_information1 in varchar2
68 ,p_vrei_information2 in varchar2
69 ,p_vrei_information3 in varchar2
70 ,p_vrei_information4 in varchar2
71 ,p_vrei_information5 in varchar2
72 ,p_vrei_information6 in varchar2
73 ,p_vrei_information7 in varchar2
74 ,p_vrei_information8 in varchar2
75 ,p_vrei_information9 in varchar2
76 ,p_vrei_information10 in varchar2
77 ,p_vrei_information11 in varchar2
78 ,p_vrei_information12 in varchar2
79 ,p_vrei_information13 in varchar2
80 ,p_vrei_information14 in varchar2
81 ,p_vrei_information15 in varchar2
82 ,p_vrei_information16 in varchar2
83 ,p_vrei_information17 in varchar2
84 ,p_vrei_information18 in varchar2
85 ,p_vrei_information19 in varchar2
86 ,p_vrei_information20 in varchar2
87 ,p_vrei_information21 in varchar2
88 ,p_vrei_information22 in varchar2
89 ,p_vrei_information23 in varchar2
90 ,p_vrei_information24 in varchar2
91 ,p_vrei_information25 in varchar2
92 ,p_vrei_information26 in varchar2
93 ,p_vrei_information27 in varchar2
94 ,p_vrei_information28 in varchar2
95 ,p_vrei_information29 in varchar2
96 ,p_vrei_information30 in varchar2
97 ,p_request_id in number
98 ,p_program_application_id in number
99 ,p_program_id in number
100 ,p_program_update_date in date
101 ) is
102
103
104 Begin
105 --
106 -- Added for GSI Bug 5472781
107 --
108 IF hr_utility.chk_product_install('Oracle Human Resources', 'RU') THEN
109 --
110 IF p_vrei_information_category IN ('RU_VEHICLE_INSURANCE_INFO') THEN
111 IF p_vrei_information2 IS NOT NULL AND p_vrei_information3 IS NOT NULL AND fnd_date.canonical_to_date(p_vrei_information2) >= fnd_date.canonical_to_date(p_vrei_information3) THEN
112 hr_utility.set_message(800,'HR_RU_INVALID_INSURANCE_DATES');
113 hr_utility.raise_error;
114 End if;
115 End if;
116 END IF;
117 End update_ru_veh_repos_extra_info;
118
119 END per_ru_veh_repos_extra_info;