[Home] [Help]
PACKAGE BODY: APPS.FA_CUA_HR_RULE_DETAILS_PKG
Source
1 PACKAGE BODY FA_CUA_HR_RULE_DETAILS_PKG AS
2 /* $Header: FACHRRDMB.pls 120.1 2002/11/12 07:55:54 glchen ship $ */
3
4 Procedure Insert_row ( x_rowid in out nocopy varchar2
5 , x_hierarchy_rule_set_id in number
6 , x_attribute_name in varchar2
7 , x_book_type_code in varchar2
8 , x_include_hierarchy_flag in varchar2
9 , x_include_level in varchar2
10 , x_include_asset_catg_life_flag in varchar2
11 , x_include_catg_end_date_flag in varchar2
12 , x_include_asset_end_date_flag in varchar2
13 , x_include_lease_end_date_flag in varchar2
14 , x_basis_code in varchar2
15 , x_precedence_level in varchar2
16 , x_override_allowed_flag in varchar2
17 , x_target_flag in varchar2
18 , X_CREATION_DATE in date
19 , X_CREATED_BY in number
20 , X_LAST_UPDATE_DATE in date
21 , X_LAST_UPDATED_BY in number
22 , X_LAST_UPDATE_LOGIN in number
23 )
24 is
25 cursor C is select ROWID from FA_HIERARCHY_RULE_DETAILS
26 where hierarchy_rule_set_id = X_hierarchy_rule_set_id
27 and attribute_name = x_attribute_name
28 and book_type_code = x_book_type_code ;
29 begin
30 Insert into FA_HIERARCHY_RULE_DETAILS
31 ( hierarchy_rule_set_id
32 , attribute_name
33 , book_type_code
34 , include_hierarchy_flag
35 , include_level
36 , include_asset_catg_life_flag
37 , include_catg_end_date_flag
38 , include_asset_end_date_flag
39 , include_lease_end_date_flag
40 , basis_code
41 , precedence_level
42 , override_allowed_flag
43 , target_flag
44 , CREATION_DATE
45 , CREATED_BY
46 , LAST_UPDATE_DATE
47 , LAST_UPDATED_BY
48 , LAST_UPDATE_LOGIN )
49 Values ( x_hierarchy_rule_set_id
50 , x_attribute_name
51 , x_book_type_code
52 , x_include_hierarchy_flag
53 , x_include_level
54 , x_include_asset_catg_life_flag
55 , x_include_catg_end_date_flag
56 , x_include_asset_end_date_flag
57 , x_include_lease_end_date_flag
58 , x_basis_code
59 , x_precedence_level
60 , x_override_allowed_flag
61 , x_target_flag
62 , X_CREATION_DATE
63 , X_CREATED_BY
64 , X_LAST_UPDATE_DATE
65 , X_LAST_UPDATED_BY
66 , X_LAST_UPDATE_LOGIN );
67 open c;
68 fetch c into X_ROWID;
69 if (c%notfound) then
70 close c;
71 raise no_data_found;
72 end if;
73 close c;
74 end INSERT_ROW;
75
76
77
78
79 procedure LOCK_ROW ( x_rowid in varchar2
80 , x_hierarchy_rule_set_id in number
81 , x_attribute_name in varchar2
82 , x_book_type_code in varchar2
83 , x_include_hierarchy_flag in varchar2
84 , x_include_level in varchar2
85 , x_include_asset_catg_life_flag in varchar2
86 , x_include_catg_end_date_flag in varchar2
87 , x_include_asset_end_date_flag in varchar2
88 , x_include_lease_end_date_flag in varchar2
89 , x_basis_code in varchar2
90 , x_precedence_level in varchar2
91 , x_override_allowed_flag in varchar2
92 , x_target_flag in varchar2
93 )
94 is
95 cursor c1 is
96 select hierarchy_rule_set_id
97 , attribute_name
98 , book_type_code
99 , include_hierarchy_flag
100 , include_level
101 , include_asset_catg_life_flag
102 , include_catg_end_date_flag
103 , include_asset_end_date_flag
104 , include_lease_end_date_flag
105 , basis_code
106 , precedence_level
107 , override_allowed_flag
108 , target_flag
109 from fa_hierarchy_rule_details
110 where rowid = x_rowid
111 for update of hierarchy_rule_set_id nowait;
112 tlinfo c1%rowtype;
113
114 begin
115 open c1;
116 fetch c1 into tlinfo;
117 if (c1%notfound) then
118 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
119 app_exception.raise_exception;
120 close c1;
121 return;
122 end if;
123 close c1;
124 if ( (tlinfo.attribute_name = X_attribute_name)
125 AND (tlinfo.book_type_code = x_book_type_code)
126 AND (tlinfo.include_hierarchy_flag = x_include_hierarchy_flag)
127 AND ((tlinfo.include_level = X_include_level)
128 OR ((tlinfo.include_level is null)
129 AND (X_include_level is null)))
130 AND ((tlinfo.include_asset_catg_life_flag = X_include_asset_catg_life_flag )
131 OR ((tlinfo.include_asset_catg_life_flag is null)
132 AND (X_include_asset_catg_life_flag is null)))
133 AND ((tlinfo.include_catg_end_date_flag = X_include_catg_end_date_flag )
134 OR ((tlinfo.include_catg_end_date_flag is null)
135 AND (X_include_catg_end_date_flag is null)))
136 AND ((tlinfo.include_asset_end_date_flag = X_include_asset_end_date_flag )
137 OR ((tlinfo.include_asset_end_date_flag is null)
138 AND (X_include_asset_end_date_flag is null)))
139 AND ((tlinfo.include_lease_end_date_flag = X_include_lease_end_date_flag )
140 OR ((tlinfo.include_lease_end_date_flag is null)
141 AND (X_include_lease_end_date_flag is null)))
142 AND ((tlinfo.basis_code = X_basis_code )
143 OR ((tlinfo.basis_code is null)
144 AND (X_basis_code is null)))
145 AND ((tlinfo.precedence_level = X_precedence_level )
146 OR ((tlinfo.precedence_level is null)
147 AND (X_precedence_level is null)))
148 AND ((tlinfo.override_allowed_flag = X_override_allowed_flag )
149 OR ((tlinfo.override_allowed_flag is null)
150 AND (X_override_allowed_flag is null)))
151 AND ((tlinfo.target_flag = X_target_flag )
152 OR ((tlinfo.target_flag is null)
153 AND (X_target_flag is null)))
154 ) then
155 null;
156 else
157 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
158 app_exception.raise_exception;
159 end if;
160 return;
161 end LOCK_ROW;
162
163
164
165
166
167 procedure UPDATE_ROW (
168 x_rowid in varchar2
169 , x_hierarchy_rule_set_id in number
170 , x_attribute_name in varchar2
171 , x_book_type_code in varchar2
172 , x_include_hierarchy_flag in varchar2
173 , x_include_level in varchar2
174 , x_include_asset_catg_life_flag in varchar2
175 , x_include_catg_end_date_flag in varchar2
176 , x_include_asset_end_date_flag in varchar2
177 , x_include_lease_end_date_flag in varchar2
178 , x_basis_code in varchar2
179 , x_precedence_level in varchar2
180 , x_override_allowed_flag in varchar2
181 , x_target_flag in varchar2
182 , X_LAST_UPDATE_DATE in date
183 , X_LAST_UPDATED_BY in number
184 , X_LAST_UPDATE_LOGIN in number
185 )
186 is
187 begin
188 update fa_hierarchy_rule_details
189 set hierarchy_rule_set_id = x_hierarchy_rule_set_id
190 , attribute_name = x_attribute_name
191 , book_type_code = x_book_type_code
192 , include_hierarchy_flag = x_include_hierarchy_flag
193 , include_level = x_include_level
194 , include_asset_catg_life_flag = x_include_asset_catg_life_flag
195 , include_catg_end_date_flag = x_include_catg_end_date_flag
196 , include_asset_end_date_flag = x_include_asset_end_date_flag
197 , include_lease_end_date_flag = x_include_lease_end_date_flag
198 , basis_code = x_basis_code
199 , precedence_level = x_precedence_level
200 , override_allowed_flag = x_override_allowed_flag
201 , target_flag = x_target_flag
202 , LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
203 , LAST_UPDATED_BY = X_LAST_UPDATED_BY
204 , LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
205 where rowid = x_rowid;
206 if (sql%notfound) then
207 raise no_data_found;
208 end if;
209 end UPDATE_ROW;
210
211
212
213 procedure DELETE_ROW (
214 x_rowid in varchar2
215 ) is
216 begin
217 delete from FA_HIERARCHY_RULE_DETAILS
218 where rowid = x_rowid;
219 if (sql%notfound) then
220 raise no_data_found;
221 end if;
222 end DELETE_ROW;
223
224 end FA_CUA_HR_RULE_DETAILS_PKG;