[Home] [Help]
PACKAGE BODY: APPS.HZ_CREDIT_USAGE_RULES_PKG
Source
1 PACKAGE BODY HZ_CREDIT_USAGE_RULES_PKG AS
2 /* $Header: ARHCRURB.pls 115.5 2003/08/18 17:51:43 rajkrish ship $ */
3
4
5 ---------------------------
6 -- PROCEDURES AND FUNCTIONS
7 ---------------------------
8
9 --========================================================================
10 -- PROCEDURE : Insert_row PUBLIC
11 -- PARAMETERS: p_row_id ROWID of the current record
12 -- p_credit_usage_rule_set_id rule set id
13 -- p_credit_usage_rule_id primary key
14 -- p_usage_type usage type
15 -- p_user_code user code=currency_code
16 -- p_exclude_flag exclude_flag = Y/N
17 -- p_include_all_flag include all currencies Y/N
18 -- p_creation_date date, when a record was inserted
19 -- p_created_by userid of the person,who inserted
20 -- a record
21 -- COMMENT : Procedure inserts record into the table HZ_CREDIT_USAGE_RULES
22 --========================================================================
23 PROCEDURE Insert_row
24 ( p_row_id IN OUT NOCOPY VARCHAR2
25 , p_credit_usage_rule_set_id NUMBER
26 , p_credit_usage_rule_id NUMBER
27 , p_usage_type VARCHAR2
28 , p_user_code VARCHAR2
29 , p_exclude_flag VARCHAR2
30 , p_include_all_flag VARCHAR2
31 , p_creation_date DATE
32 , p_created_by NUMBER
33 , p_last_update_date DATE
34 , p_last_updated_by NUMBER
35 , p_last_update_login NUMBER
36 , p_attribute_category VARCHAR2
37 , p_attribute1 VARCHAR2
38 , p_attribute2 VARCHAR2
39 , p_attribute3 VARCHAR2
40 , p_attribute4 VARCHAR2
41 , p_attribute5 VARCHAR2
42 , p_attribute6 VARCHAR2
43 , p_attribute7 VARCHAR2
44 , p_attribute8 VARCHAR2
45 , p_attribute9 VARCHAR2
46 , p_attribute10 VARCHAR2
47 , p_attribute11 VARCHAR2
48 , p_attribute12 VARCHAR2
49 , p_attribute13 VARCHAR2
50 , p_attribute14 VARCHAR2
51 , p_attribute15 VARCHAR2
52 )
53 IS
54
55 CURSOR usage_rule_csr IS
56 SELECT
57 rowid
58 FROM
59 HZ_CREDIT_USAGE_RULES
60 WHERE credit_usage_rule_id=p_credit_usage_rule_id;
61
62 BEGIN
63
64 INSERT INTO hz_credit_usage_rules
65 ( credit_usage_rule_id
66 , usage_type
67 , user_code
68 , exclude_flag
69 , include_all_flag
70 , credit_usage_rule_set_id
71 , creation_date
72 , created_by
73 , last_update_date
74 , last_updated_by
75 , last_update_login
76 , program_application_id
77 , program_id
78 , program_update_date
79 , request_id
80 , attribute_category
81 , attribute1
82 , attribute2
83 , attribute3
84 , attribute4
85 , attribute5
86 , attribute6
87 , attribute7
88 , attribute8
89 , attribute9
90 , attribute10
91 , attribute11
92 , attribute12
93 , attribute13
94 , attribute14
95 , attribute15
96 )
97 VALUES
98 ( p_credit_usage_rule_id
99 , p_usage_type
100 , p_user_code
101 , p_exclude_flag
102 , p_include_all_flag
103 , p_credit_usage_rule_set_id
104 , p_creation_date
105 , p_created_by
106 , p_last_update_date
107 , p_last_updated_by
108 , p_last_update_login
109 , null
110 , null
111 , null
112 , null
113 , p_attribute_category
114 , p_attribute1
115 , p_attribute2
116 , p_attribute3
117 , p_attribute4
118 , p_attribute5
119 , p_attribute6
120 , p_attribute7
121 , p_attribute8
122 , p_attribute9
123 , p_attribute10
124 , p_attribute11
125 , p_attribute12
126 , p_attribute13
127 , p_attribute14
128 , p_attribute15
129 );
130
131 OPEN usage_rule_csr;
132 FETCH usage_rule_csr INTO p_row_id;
133 IF (usage_rule_csr%NOTFOUND)
134 THEN
135 CLOSE usage_rule_csr;
136 RAISE NO_DATA_FOUND;
137 END IF;
138 CLOSE usage_rule_csr;
139
140 EXCEPTION
141 WHEN OTHERS THEN
142 IF FND_MSG_PUB.Check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
143 THEN
144 FND_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Insert_row');
145 END IF;
146 RAISE;
147
148 END Insert_row;
149
150 --========================================================================
151 -- PROCEDURE : Lock_row PUBLIC
152 -- PARAMETERS: p_row_id ROWID of the current record
153 -- p_usage_type usage type
154 -- p_user_code user code=currency_code
155 -- p_exclude_flag exclude_flag = Y/N
156 -- p_include_all_flag include all currencies Y/N
157 -- COMMENT : Procedure locks current record in the table HZ_CREDIT_USAGE_RULES.
158 --========================================================================
159 PROCEDURE Lock_row
160 ( p_row_id VARCHAR2
161 , p_usage_type VARCHAR2
162 , p_user_code VARCHAR2
163 , p_exclude_flag VARCHAR2
164 , p_include_all_flag VARCHAR2
165 )
166 IS
167 CURSOR usage_rule_csr
168 IS
169 SELECT *
170 FROM HZ_CREDIT_USAGE_RULES
171 WHERE ROWID=CHARTOROWID(p_row_id)
172 FOR UPDATE OF user_code NOWAIT;
173
174 recinfo usage_rule_csr%ROWTYPE;
175
176 BEGIN
177
178 OPEN usage_rule_csr;
179 FETCH usage_rule_csr INTO recinfo;
180 IF (usage_rule_csr%NOTFOUND)
181 THEN
182 CLOSE usage_rule_csr;
183 FND_MESSAGE.Set_name('FND', 'FORM_RECORD_DELETED');
184 RAISE NO_DATA_FOUND;
185 END IF;
186 CLOSE usage_rule_csr;
187
188 IF
189 ((recinfo.usage_type=p_usage_type)
190 OR (recinfo.usage_type is NULL AND p_usage_type is NULL))
191 AND
192 ((recinfo.user_code=p_user_code)
193 OR (recinfo.user_code is NULL AND p_user_code is NULL))
194 AND
195 ((recinfo.exclude_flag=p_exclude_flag)
196 OR (recinfo.exclude_flag is NULL AND p_exclude_flag is NULL))
197 AND
198 ((recinfo.include_all_flag=p_include_all_flag)
199 OR (recinfo.include_all_flag is NULL AND p_include_all_flag is NULL))
200 THEN
201 NULL;
202 ELSE
203 FND_MESSAGE.set_name('FND', 'FORM_RECORD_CHANGED');
204 APP_EXCEPTION.raise_exception;
205 END IF;
206
207 END Lock_Row;
208
209
210 --========================================================================
211 -- PROCEDURE : Update_row PUBLIC
212 -- PARAMETERS: p_row_id ROWID of the current record
213 -- p_usage_type usage type
214 -- p_user_code user code=currency_code
215 -- p_exclude_flag exclude_flag = Y/N
216 -- p_include_all_flag include all currencies Y/N
217 -- p_last_update_date date,when the record was updated
218 -- p_last_updated_by userid of the person,who updated the record
219 -- COMMENT : Procedure updates columns in the table HZ_CREDIT_USAGE_RULES
220 -- for the record with ROWID,passed as a parameter p_row_id.
221 --========================================================================
222 PROCEDURE Update_row
223 ( p_row_id VARCHAR2
224 , p_usage_type VARCHAR2
225 , p_user_code VARCHAR2
226 , p_exclude_flag VARCHAR2
227 , p_include_all_flag VARCHAR2
228 , p_last_update_date DATE
229 , p_last_updated_by NUMBER
230 , p_attribute_category VARCHAR2
231 , p_attribute1 VARCHAR2
232 , p_attribute2 VARCHAR2
233 , p_attribute3 VARCHAR2
234 , p_attribute4 VARCHAR2
235 , p_attribute5 VARCHAR2
236 , p_attribute6 VARCHAR2
237 , p_attribute7 VARCHAR2
238 , p_attribute8 VARCHAR2
239 , p_attribute9 VARCHAR2
240 , p_attribute10 VARCHAR2
241 , p_attribute11 VARCHAR2
242 , p_attribute12 VARCHAR2
243 , p_attribute13 VARCHAR2
244 , p_attribute14 VARCHAR2
245 , p_attribute15 VARCHAR2
246 )
247 IS
248
249 BEGIN
250 UPDATE HZ_CREDIT_USAGE_RULES
251 SET
252 usage_type=p_usage_type
253 ,user_code=p_user_code
254 ,exclude_flag=p_exclude_flag
255 ,include_all_flag=p_include_all_flag
256 ,last_update_date=p_last_update_date
257 ,last_updated_by=p_last_updated_by
258 , attribute_category =p_attribute_category
259 , attribute1= p_attribute1
260 , attribute2= p_attribute2
261 , attribute3= p_attribute3
262 , attribute4= p_attribute4
263 , attribute5= p_attribute5
264 , attribute6= p_attribute6
265 , attribute7= p_attribute7
266 , attribute8= p_attribute8
267 , attribute9= p_attribute9
268 , attribute10= p_attribute10
269 , attribute11= p_attribute11
270 , attribute12= p_attribute12
271 , attribute13= p_attribute13
272 , attribute14= p_attribute14
273 , attribute15= p_attribute15
274 WHERE ROWID=CHARTOROWID(p_row_id);
275
276
277 IF (SQL%NOTFOUND)
278 THEN
279 RAISE NO_DATA_FOUND;
280 END IF;
281 EXCEPTION
282 WHEN OTHERS THEN
283 IF FND_MSG_PUB.Check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
284 THEN
285 FND_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Update_row');
286 END IF;
287 RAISE;
288
289 END Update_Row;
290
291 --========================================================================
292 -- PROCEDURE : Delete_row PUBLIC
293 -- PARAMETERS: p_credit_usage_rule_id credit_usage_rule_id
294 -- COMMENT : Procedure deletes record with credit_usage_rule_id from the
295 -- table HZ_CREDIT_USAGE_RULES.
296 --========================================================================
297 PROCEDURE Delete_row
298 ( p_credit_usage_rule_id NUMBER
299 )
300 IS
301 BEGIN
302 DELETE
303 FROM HZ_CREDIT_USAGE_RULES
304 WHERE credit_usage_rule_id=p_credit_usage_rule_id;
305
306 IF (SQL%NOTFOUND)
307 THEN
308 RAISE NO_DATA_FOUND;
309 END IF;
310 EXCEPTION
311 WHEN OTHERS THEN
312 IF FND_MSG_PUB.Check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
313 THEN
314 FND_MSG_PUB.Add_exc_msg(G_PKG_NAME,'Delete_row');
315 END IF;
316 RAISE;
317
318 END Delete_row;
319
320 END HZ_CREDIT_USAGE_RULES_PKG;