[Home] [Help]
PACKAGE BODY: APPS.JG_ZZ_TA_RULE_LINES_PKG
Source
1 PACKAGE BODY JG_ZZ_TA_RULE_LINES_PKG AS
2 /* $Header: jgzztaib.pls 120.1 2006/02/21 15:23:12 farishol ship $ */
3 --
4 -- PUBLIC FUNCTIONS
5 --
6
7 PROCEDURE Insert_Row( X_rowid IN OUT NOCOPY VARCHAR2
8 ,X_rule_line_id IN OUT NOCOPY NUMBER
9 ,X_account_range_id NUMBER
10 ,X_natural_account VARCHAR2
11 ,X_allocation_percent NUMBER
12 ,X_offset_account VARCHAR2
13 ,X_creation_date DATE
14 ,X_created_by NUMBER
15 ,X_last_updated_by NUMBER
16 ,X_last_update_date DATE
17 ,X_last_update_login NUMBER
18 ,X_Context VARCHAR2
19 ,X_attribute1 VARCHAR2
20 ,X_attribute2 VARCHAR2
21 ,X_attribute3 VARCHAR2
22 ,X_attribute4 VARCHAR2
23 ,X_attribute5 VARCHAR2
24 ,X_attribute6 VARCHAR2
25 ,X_attribute7 VARCHAR2
26 ,X_attribute8 VARCHAR2
27 ,X_attribute9 VARCHAR2
28 ,X_attribute10 VARCHAR2
29 ,X_attribute11 VARCHAR2
30 ,X_attribute12 VARCHAR2
31 ,X_attribute13 VARCHAR2
32 ,X_attribute14 VARCHAR2
33 ,X_attribute15 VARCHAR2 ) IS
34
35 CURSOR C IS SELECT rowid
36 FROM JG_ZZ_TA_RULE_LINES
37 WHERE X_rule_line_id = rule_line_id;
38 CURSOR C2 IS SELECT JG_ZZ_TA_RULE_LINES_S.nextval FROM sys.dual;
39 BEGIN
40 IF (X_rule_line_id IS NULL) THEN
41 OPEN C2;
42 FETCH C2 INTO X_rule_line_id;
43 CLOSE C2;
44 END IF;
45 INSERT INTO JG_ZZ_TA_RULE_LINES
46 (
47 rule_line_id
48 ,account_range_id
49 ,natural_account
50 ,allocation_percent
51 ,offset_account
52 ,creation_date
53 ,created_by
54 ,last_updated_by
55 ,last_update_date
56 ,last_update_login
57 ,context
58 ,attribute1
59 ,attribute2
60 ,attribute3
61 ,attribute4
62 ,attribute5
63 ,attribute6
64 ,attribute7
65 ,attribute8
66 ,attribute9
67 ,attribute10
68 ,attribute11
69 ,attribute12
70 ,attribute13
71 ,attribute14
72 ,attribute15
73 )
74 VALUES
75 (
76 X_rule_line_id
77 ,X_account_range_id
78 ,X_natural_account
79 ,X_allocation_percent
80 ,X_offset_account
81 ,X_creation_date
82 ,X_created_by
83 ,X_last_updated_by
84 ,X_last_update_date
85 ,X_last_update_login
86 ,X_context
87 ,X_attribute1
88 ,X_attribute2
89 ,X_attribute3
90 ,X_attribute4
91 ,X_attribute5
92 ,X_attribute6
93 ,X_attribute7
94 ,X_attribute8
95 ,X_attribute9
96 ,X_attribute10
97 ,X_attribute11
98 ,X_attribute12
99 ,X_attribute13
100 ,X_attribute14
101 ,X_attribute15
102 );
103 OPEN C;
104 FETCH C INTO X_rowid;
105 IF (C%NOTFOUND) THEN
106 CLOSE C;
107 raise NO_DATA_FOUND;
108 END IF;
109 CLOSE C;
110 END insert_row;
111
112 PROCEDURE Update_Row( X_rowid VARCHAR2
113 ,X_rule_line_id NUMBER
114 ,X_account_range_id NUMBER
115 ,X_natural_account VARCHAR2
116 ,X_allocation_percent NUMBER
117 ,X_offset_account VARCHAR2
118 ,X_creation_date DATE
119 ,X_created_by NUMBER
120 ,X_last_updated_by NUMBER
121 ,X_last_update_date DATE
122 ,X_last_update_login NUMBER
123 ,X_Context VARCHAR2
124 ,X_attribute1 VARCHAR2
125 ,X_attribute2 VARCHAR2
126 ,X_attribute3 VARCHAR2
127 ,X_attribute4 VARCHAR2
128 ,X_attribute5 VARCHAR2
129 ,X_attribute6 VARCHAR2
130 ,X_attribute7 VARCHAR2
131 ,X_attribute8 VARCHAR2
132 ,X_attribute9 VARCHAR2
133 ,X_attribute10 VARCHAR2
134 ,X_attribute11 VARCHAR2
135 ,X_attribute12 VARCHAR2
136 ,X_attribute13 VARCHAR2
137 ,X_attribute14 VARCHAR2
138 ,X_attribute15 VARCHAR2 )
139 IS
140 BEGIN
141 --
142 -- Standard ON-UPDATE routine
143 --
144 UPDATE JG_ZZ_TA_RULE_LINES
145 SET
146 rule_line_id = X_rule_line_id
147 ,account_range_id = X_account_range_id
148 ,natural_account = X_natural_account
149 ,allocation_percent = X_allocation_percent
150 ,offset_account = X_offset_account
151 ,creation_date = X_creation_date
152 ,created_by = X_created_by
153 ,last_updated_by = X_last_updated_by
154 ,last_update_date = X_last_update_date
155 ,last_update_login = X_last_update_login
156 ,context = X_context
157 ,attribute1 = X_attribute1
158 ,attribute2 = X_attribute2
159 ,attribute3 = X_attribute3
160 ,attribute4 = X_attribute4
161 ,attribute5 = X_attribute5
162 ,attribute6 = X_attribute6
163 ,attribute7 = X_attribute7
164 ,attribute8 = X_attribute8
165 ,attribute9 = X_attribute9
166 ,attribute10 = X_attribute10
167 ,attribute11 = X_attribute11
168 ,attribute12 = X_attribute12
169 ,attribute13 = X_attribute13
170 ,attribute14 = X_attribute14
171 ,attribute15 = X_attribute15
172 WHERE
173 rowid = X_rowid;
174 IF (SQL%NOTFOUND) THEN
175 RAISE NO_DATA_FOUND;
176 END IF;
177 END Update_Row;
178
179 PROCEDURE Delete_Row( X_rowid VARCHAR2 ) IS
180 BEGIN
181 DELETE FROM JG_ZZ_TA_RULE_LINES
182 WHERE
183 ROWID = X_rowid;
184 IF (SQL%NOTFOUND) THEN
185 RAISE NO_DATA_FOUND;
186 END IF;
187 END Delete_Row;
188
189 PROCEDURE Lock_Row( X_rowid VARCHAR2
190 ,X_rule_line_id NUMBER
191 ,X_account_range_id NUMBER
192 ,X_natural_account VARCHAR2
193 ,X_allocation_percent NUMBER
194 ,X_offset_account VARCHAR2
195 ,X_creation_date DATE
196 ,X_created_by NUMBER
197 ,X_last_updated_by NUMBER
198 ,X_last_update_date DATE
199 ,X_last_update_login NUMBER
200 ,X_Context VARCHAR2
201 ,X_attribute1 VARCHAR2
202 ,X_attribute2 VARCHAR2
203 ,X_attribute3 VARCHAR2
204 ,X_attribute4 VARCHAR2
205 ,X_attribute5 VARCHAR2
206 ,X_attribute6 VARCHAR2
207 ,X_attribute7 VARCHAR2
208 ,X_attribute8 VARCHAR2
209 ,X_attribute9 VARCHAR2
210 ,X_attribute10 VARCHAR2
211 ,X_attribute11 VARCHAR2
212 ,X_attribute12 VARCHAR2
213 ,X_attribute13 VARCHAR2
214 ,X_attribute14 VARCHAR2
215 ,X_attribute15 VARCHAR2 )
216 IS
217 CURSOR C IS
218 SELECT *
219 FROM JG_ZZ_TA_RULE_LINES
220 WHERE rowid = X_Rowid
221 FOR UPDATE of rule_line_id NOWAIT;
222 Recinfo C%ROWTYPE;
223 BEGIN
224 OPEN C;
225 FETCH C INTO Recinfo;
226 IF (C%NOTFOUND) THEN
227 CLOSE C;
228 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
229 APP_EXCEPTION.raise_exception;
230 END IF;
231 CLOSE C;
232
233 IF (
234 ( ( (Recinfo.rule_line_id = X_rule_line_id )
235 OR ( (Recinfo.rule_line_id IS NULL)
236 AND (X_rule_line_id IS NULL))))
237 AND ( ( (Recinfo.account_range_id = X_account_range_id )
238 OR ( (Recinfo.account_range_id IS NULL)
239 AND (X_account_range_id IS NULL))))
240 AND ( ( (Recinfo.natural_account = X_natural_account )
241 OR ( (Recinfo.natural_account IS NULL)
242 AND (X_natural_account IS NULL))))
243 AND ( ( (Recinfo.allocation_percent = X_allocation_percent )
244 OR ( (Recinfo.allocation_percent IS NULL)
245 AND (X_allocation_percent IS NULL))))
246 AND ( ( (Recinfo.offset_account = X_offset_account )
247 OR ( (Recinfo.offset_account IS NULL)
248 AND (X_offset_account IS NULL))))
249 AND ( ( (Recinfo.context = X_context )
250 OR ( (Recinfo.context IS NULL)
251 AND (X_context IS NULL))))
252 AND ( ( (Recinfo.attribute1 = X_attribute1 )
253 OR ( (Recinfo.attribute1 IS NULL)
254 AND (X_attribute1 IS NULL))))
255 AND ( ( (Recinfo.attribute2 = X_attribute2 )
256 OR ( (Recinfo.attribute2 IS NULL)
257 AND (X_attribute2 IS NULL))))
258 AND ( ( (Recinfo.attribute3 = X_attribute3 )
259 OR ( (Recinfo.attribute3 IS NULL)
260 AND (X_attribute3 IS NULL))))
261 AND ( ( (Recinfo.attribute4 = X_attribute4 )
262 OR ( (Recinfo.attribute4 IS NULL)
263 AND (X_attribute4 IS NULL))))
264 AND ( ( (Recinfo.attribute5 = X_attribute5 )
265 OR ( (Recinfo.attribute5 IS NULL)
266 AND (X_attribute5 IS NULL))))
267 AND ( ( (Recinfo.attribute6 = X_attribute6 )
268 OR ( (Recinfo.attribute6 IS NULL)
269 AND (X_attribute6 IS NULL))))
270 AND ( ( (Recinfo.attribute7 = X_attribute7 )
271 OR ( (Recinfo.attribute7 IS NULL)
272 AND (X_attribute7 IS NULL))))
273 AND ( ( (Recinfo.attribute8 = X_attribute8 )
274 OR ( (Recinfo.attribute8 IS NULL)
275 AND (X_attribute8 IS NULL))))
276 AND ( ( (Recinfo.attribute9 = X_attribute9 )
277 OR ( (Recinfo.attribute9 IS NULL)
278 AND (X_attribute9 IS NULL))))
279 AND ( ( (Recinfo.attribute10 = X_attribute10 )
280 OR ( (Recinfo.attribute10 IS NULL)
281 AND (X_attribute10 IS NULL))))
282 AND ( ( (Recinfo.attribute11 = X_attribute11 )
283 OR ( (Recinfo.attribute11 IS NULL)
284 AND (X_attribute11 IS NULL))))
285 AND ( ( (Recinfo.attribute12 = X_attribute12 )
286 OR ( (Recinfo.attribute12 IS NULL)
287 AND (X_attribute12 IS NULL))))
288 AND ( ( (Recinfo.attribute13 = X_attribute13 )
289 OR ( (Recinfo.attribute13 IS NULL)
290 AND (X_attribute13 IS NULL))))
291 AND ( ( (Recinfo.attribute14 = X_attribute14 )
292 OR ( (Recinfo.attribute14 IS NULL)
293 AND (X_attribute14 IS NULL))))
294 AND ( ( (Recinfo.attribute15 = X_attribute15 )
295 OR ( (Recinfo.attribute15 IS NULL)
296 AND (X_attribute15 IS NULL))))
297 ) THEN
298 return;
299 ELSE
300 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
301 APP_EXCEPTION.RAISE_EXCEPTION;
302 END IF;
303 END Lock_Row;
304 END JG_ZZ_TA_RULE_LINES_PKG;