[Home] [Help]
PACKAGE BODY: APPS.JL_ZZ_GL_AXI_MODELS_PKG
Source
1 PACKAGE BODY JL_ZZ_GL_AXI_MODELS_PKG AS
2 /* $Header: jlzzgamb.pls 115.1 2002/11/13 23:56:24 vsidhart ship $ */
3
4 ------------------------------------------------------------
5 -- Insert row procedure --
6 ------------------------------------------------------------
7 PROCEDURE insert_row (p_rowid IN OUT NOCOPY VARCHAR2
8 , p_model_id NUMBER
9 , p_name VARCHAR2
10 , p_description VARCHAR2
11 , p_last_update_date DATE
12 , p_last_updated_by NUMBER
13 , p_creation_date DATE
14 , p_created_by NUMBER
15 , p_last_update_login NUMBER
16 , p_set_of_books_id NUMBER
17 , p_attribute_category VARCHAR2
18 , p_attribute1 VARCHAR2
19 , p_attribute2 VARCHAR2
20 , p_attribute3 VARCHAR2
21 , p_attribute4 VARCHAR2
22 , p_attribute5 VARCHAR2
23 , p_attribute6 VARCHAR2
24 , p_attribute7 VARCHAR2
25 , p_attribute8 VARCHAR2
26 , p_attribute9 VARCHAR2
27 , p_attribute10 VARCHAR2
28 , p_attribute11 VARCHAR2
29 , p_attribute12 VARCHAR2
30 , p_attribute13 VARCHAR2
31 , p_attribute14 VARCHAR2
32 , p_attribute15 VARCHAR2
33 , p_calling_sequence IN VARCHAR2) IS
34
35 CURSOR c IS
36 SELECT ROWID
37 FROM jl_zz_gl_axi_models
38 WHERE model_id = p_model_id;
39
40 current_calling_sequence VARCHAR2(2000);
41 debug_info VARCHAR2(100);
42
43 BEGIN
44
45 current_calling_sequence := 'JL_ZZ_GL_AXI_MODELS_PKG.INSERT_ROW <-' ||
46 p_CALLING_SEQUENCE;
47
48 debug_info := 'INSERT INTO JL_ZZ_GL_AXI_MODELS';
49
50 INSERT INTO jl_zz_gl_axi_models
51 (model_id
52 , name
53 , description
54 , last_update_date
55 , last_updated_by
56 , creation_date
57 , created_by
58 , last_update_login
59 , set_of_books_id
60 , attribute_category
61 , attribute1
62 , attribute2
63 , attribute3
64 , attribute4
65 , attribute5
66 , attribute6
67 , attribute7
68 , attribute8
69 , attribute9
70 , attribute10
71 , attribute11
72 , attribute12
73 , attribute13
74 , attribute14
75 , attribute15)
76 VALUES( p_model_id
77 , p_name
78 , p_description
79 , p_last_update_date
80 , p_last_updated_by
81 , p_creation_date
82 , p_created_by
83 , p_last_update_login
84 , p_set_of_books_id
85 , p_attribute_category
86 , p_attribute1
87 , p_attribute2
88 , p_attribute3
89 , p_attribute4
90 , p_attribute5
91 , p_attribute6
92 , p_attribute7
93 , p_attribute8
94 , p_attribute9
95 , p_attribute10
96 , p_attribute11
97 , p_attribute12
98 , p_attribute13
99 , p_attribute14
100 , p_attribute15);
101
102 debug_info := 'OPEN CURSOR C';
103
104 OPEN c;
105
106 debug_info := 'FETCH CURSOR C';
107
108 FETCH c INTO p_Rowid;
109
110 IF (C%NOTFOUND) THEN
111 debug_info := 'CLOSE CURSOR C - DATA NOTFOUND';
112 CLOSE c;
113 RAISE NO_DATA_FOUND;
114 END IF;
115
116 debug_info := 'CLOSE CURSOR C';
117
118 CLOSE c;
119
120 EXCEPTION
121 WHEN OTHERS THEN
122 IF (SQLCODE <> -20001) THEN
123 fnd_message.set_name ('SQLGL','GL_DEBUG');
124 fnd_message.set_token ('ERROR',SQLERRM);
125 fnd_message.set_token ('CALLING_SEQUENCE', current_calling_sequence);
126 fnd_message.set_token ('PARAMETERS','MODEL_ID = ' || p_model_id);
127 fnd_message.set_token ('DEBUG_INFO', debug_info);
128 END IF;
129
130 app_exception.raise_exception;
131 END Insert_Row;
132
133 ------------------------------------------------------------
134 -- Update row procedure --
135 ------------------------------------------------------------
136 PROCEDURE update_row (p_Rowid VARCHAR2,
137 p_model_id NUMBER
138 , p_name VARCHAR2
139 , p_description VARCHAR2
140 , p_last_update_date DATE
141 , p_last_updated_by NUMBER
142 , p_creation_date DATE
143 , p_created_by NUMBER
144 , p_last_update_login NUMBER
145 , p_set_of_books_id NUMBER
146 , p_attribute_category VARCHAR2
147 , p_attribute1 VARCHAR2
148 , p_attribute2 VARCHAR2
149 , p_attribute3 VARCHAR2
150 , p_attribute4 VARCHAR2
151 , p_attribute5 VARCHAR2
152 , p_attribute6 VARCHAR2
153 , p_attribute7 VARCHAR2
154 , p_attribute8 VARCHAR2
155 , p_attribute9 VARCHAR2
156 , p_attribute10 VARCHAR2
157 , p_attribute11 VARCHAR2
158 , p_attribute12 VARCHAR2
159 , p_attribute13 VARCHAR2
160 , p_attribute14 VARCHAR2
161 , p_attribute15 VARCHAR2
162 , p_calling_sequence IN VARCHAR2) IS
163
164 current_calling_sequence VARCHAR2(2000);
165 debug_info VARCHAR2(100);
166
167 BEGIN
168 current_calling_sequence := 'JL_ZZ_GL_AXI_MODELS_PKG.UPDATE_ROW <-' ||
169 p_calling_sequence;
170 debug_info := 'UPDATE JL_ZZ_GL_AXI_MODELS';
171
172 UPDATE jl_zz_gl_axi_models
173 SET model_id = p_model_id
174 , name = p_name
175 , description = p_description
176 , last_update_date = p_last_update_date
177 , last_updated_by = p_last_updated_by
178 , creation_date = p_creation_date
179 , created_by = p_created_by
180 , last_update_login = p_last_update_login
181 , set_of_books_id = p_set_of_books_id
182 , attribute_category= p_attribute_category
183 , attribute1 = p_attribute1
184 , attribute2 = p_attribute2
185 , attribute3 = p_attribute3
186 , attribute4 = p_attribute4
187 , attribute5 = p_attribute5
188 , attribute6 = p_attribute6
189 , attribute7 = p_attribute7
190 , attribute8 = p_attribute8
191 , attribute9 = p_attribute9
192 , attribute10 = p_attribute10
193 , attribute11 = p_attribute11
194 , attribute12 = p_attribute12
195 , attribute13 = p_attribute13
196 , attribute14 = p_attribute14
197 , attribute15 = p_attribute15
198 WHERE rowid = p_rowid;
199
200 IF (SQL%NOTFOUND) THEN
201 RAISE NO_DATA_FOUND;
202 END IF;
203
204 EXCEPTION
205 WHEN OTHERS THEN
206 IF (SQLCODE <> -20001) THEN
207 fnd_message.set_name ('SQLGL','GL_DEBUG');
208 fnd_message.set_token ('ERROR',SQLERRM);
209 fnd_message.set_token ('CALLING_SEQUENCE', current_calling_sequence);
210 fnd_message.set_token ('PARAMETERS','MODEL_ID = '||p_model_id);
211 fnd_message.set_token ('DEBUG_INFO', debug_info);
212 END IF;
213
214 app_exception.raise_exception;
215
216 END Update_Row;
217
218 ------------------------------------------------------------
219 -- Delete row procedure --
220 ------------------------------------------------------------
221 PROCEDURE delete_row (p_rowid VARCHAR2,
222 p_model_id NUMBER,
223 p_calling_sequence IN VARCHAR2) IS
224
225 current_calling_sequence VARCHAR2(2000);
226 debug_info VARCHAR2(100);
227 CURSOR c1 IS SELECT rowid
228 FROM jl_zz_gl_axi_model_ranges
229 WHERE model_id = p_model_id;
230 BEGIN
231 current_calling_sequence := 'JL_ZZ_GL_AXI_MODELS_PKG.DELETE_ROW<-' ||
232 p_calling_sequence;
233
234 debug_info := 'DELETE FROM JL_ZZ_GL_AXI_MODELS';
235
236 DELETE FROM jl_zz_gl_axi_models
237 WHERE rowid = p_rowid;
238 FOR c1_rec IN c1 LOOP
239 jl_zz_gl_axi_model_ranges_pkg.delete_row(c1_rec.rowid,'JLZZGAAM');
240 END LOOP;
241
242 IF (SQL%NOTFOUND) THEN
243 RAISE NO_DATA_FOUND;
244 END IF;
245
246 EXCEPTION
247 WHEN OTHERS THEN
248 IF (SQLCODE <> -20001) THEN
249 fnd_message.set_name ('SQLGL','GL_DEBUG');
250 fnd_message.set_token ('ERROR',SQLERRM);
251 fnd_message.set_token ('CALLING_SEQUENCE', current_calling_sequence);
252 fnd_message.set_token ('PARAMETERS','MODEL_ID = '||p_rowid);
253 fnd_message.set_token ('DEBUG_INFO', debug_info);
254 END IF;
255
256 app_exception.raise_exception;
257 END Delete_Row;
258
259 END JL_ZZ_GL_AXI_MODELS_PKG;