[Home] [Help]
PACKAGE BODY: APPS.AS_ISSUE_LISTING_IDFR_PKG
Source
1 PACKAGE BODY AS_ISSUE_LISTING_IDFR_PKG AS
2 /* $Header: asxiflib.pls 115.4 2002/11/06 00:41:52 appldev ship $ */
3 -- Start of Comments
4 -- Package name : AS_ISSUE_LISTING_IDFR_PKG
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'AS_ISSUE_LISTING_IDFR_PKG';
7 G_FILE_NAME CONSTANT VARCHAR2(12) := 'asxiflib.pls';
8
9 PROCEDURE insert_row (
10 p_issue_listing_idfr_id IN OUT NUMBER,
11 p_exchange_id IN NUMBER,
12 p_issue_id IN NUMBER,
13 p_scheme IN VARCHAR2,
14 p_value IN VARCHAR2,
15 p_search_code IN VARCHAR2,
16 p_country_code IN VARCHAR2,
17 p_listing_flag IN VARCHAR2,
18 p_last_update_date IN DATE,
19 p_last_updated_by IN NUMBER,
20 p_creation_date IN DATE,
21 p_created_by IN NUMBER,
22 p_last_update_login IN NUMBER,
23 p_attribute_category IN VARCHAR2,
24 p_attribute1 IN VARCHAR2,
25 p_attribute2 IN VARCHAR2,
26 p_attribute3 IN VARCHAR2,
27 p_attribute4 IN VARCHAR2,
28 p_attribute5 IN VARCHAR2,
29 p_attribute6 IN VARCHAR2,
30 p_attribute7 IN VARCHAR2,
31 p_attribute8 IN VARCHAR2,
32 p_attribute9 IN VARCHAR2,
33 p_attribute10 IN VARCHAR2,
34 p_attribute11 IN VARCHAR2,
35 p_attribute12 IN VARCHAR2,
36 p_attribute13 IN VARCHAR2,
37 p_attribute14 IN VARCHAR2,
38 p_attribute15 IN VARCHAR2) IS
39
40 CURSOR C1 IS SELECT AS_ISSUE_LISTING_IDFR_S.nextval FROM sys.dual;
41
42 CURSOR C2 IS SELECT ROWID FROM as_issue_listing_idfr
43 WHERE issue_listing_idfr_id = p_issue_listing_idfr_id;
44
45 BEGIN
46
47 IF (p_issue_listing_idfr_id IS NULL) OR (p_issue_listing_idfr_id = FND_API.G_MISS_NUM) THEN
48 OPEN C1;
49 FETCH C1 INTO p_issue_listing_idfr_id;
50 CLOSE C1;
51 END IF;
52
53 INSERT INTO AS_ISSUE_LISTING_IDFR (
54 issue_listing_idfr_id,
55 exchange_id,
56 issue_id,
57 scheme,
58 value,
59 search_code,
60 country_code,
61 listing_flag,
62 last_update_date,
63 last_updated_by ,
64 creation_date,
65 created_by,
66 last_update_login,
67 attribute_category,
68 attribute1,
69 attribute2,
70 attribute3,
71 attribute4,
72 attribute5,
73 attribute6,
74 attribute7,
75 attribute8,
76 attribute9,
77 attribute10,
78 attribute11,
79 attribute12,
80 attribute13,
81 attribute14,
82 attribute15) VALUES
83 (DECODE(p_issue_listing_idfr_id, FND_API.G_MISS_NUM, NULL, p_issue_listing_idfr_id),
84 DECODE(p_exchange_id, FND_API.G_MISS_NUM, NULL, p_exchange_id),
85 DECODE(p_issue_id, FND_API.G_MISS_NUM, NULL, p_issue_id),
86 DECODE(p_scheme, FND_API.G_MISS_CHAR, NULL, p_scheme),
87 DECODE(p_value, FND_API.G_MISS_CHAR, NULL, p_value),
88 DECODE(p_search_code, FND_API.G_MISS_CHAR, NULL, p_search_code),
89 DECODE(p_country_code, FND_API.G_MISS_CHAR, NULL, p_country_code),
90 DECODE(p_listing_flag, FND_API.G_MISS_CHAR, NULL, p_listing_flag),
91 DECODE(p_last_update_date, FND_API.G_MISS_DATE, TO_DATE(NULL), p_last_update_date),
92 DECODE(p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
93 DECODE(p_creation_date, FND_API.G_MISS_DATE, TO_DATE(NULL), p_creation_date),
94 DECODE(p_created_by, FND_API.G_MISS_NUM, NULL, p_created_by),
95 DECODE(p_last_update_login, FND_API.G_MISS_NUM, NULL, p_last_update_login),
96 DECODE(p_attribute_category, FND_API.G_MISS_CHAR, NULL, p_attribute_category),
97 DECODE(p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
98 DECODE(p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
99 DECODE(p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
100 DECODE(p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
101 DECODE(p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
102 DECODE(p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
103 DECODE(p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
104 DECODE(p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
105 DECODE(p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
106 DECODE(p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
107 DECODE(p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
108 DECODE(p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
109 DECODE(p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
110 DECODE(p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
111 DECODE(p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15));
112
113 /*
114 OPEN c2;
115 FETCH c2 INTO X_ROWID;
116 IF (c2%NOTFOUND) THEN
117 CLOSE c2;
118 RAISE no_data_found;
119 END IF;
120 CLOSE c2;
121 */
122 END insert_row;
123
124 PROCEDURE update_row (
125 p_issue_listing_idfr_id IN NUMBER,
126 p_exchange_id IN NUMBER,
127 p_issue_id IN NUMBER,
128 p_scheme IN VARCHAR2,
129 p_value IN VARCHAR2,
130 p_search_code IN VARCHAR2,
131 p_country_code IN VARCHAR2,
132 p_listing_flag IN VARCHAR2,
133 p_last_update_date IN DATE,
134 p_last_updated_by IN NUMBER,
135 p_creation_date IN DATE,
136 p_created_by IN NUMBER,
137 p_last_update_login IN NUMBER,
138 p_attribute_category IN VARCHAR2,
139 p_attribute1 IN VARCHAR2,
140 p_attribute2 IN VARCHAR2,
141 p_attribute3 IN VARCHAR2,
142 p_attribute4 IN VARCHAR2,
143 p_attribute5 IN VARCHAR2,
144 p_attribute6 IN VARCHAR2,
145 p_attribute7 IN VARCHAR2,
146 p_attribute8 IN VARCHAR2,
147 p_attribute9 IN VARCHAR2,
148 p_attribute10 IN VARCHAR2,
149 p_attribute11 IN VARCHAR2,
150 p_attribute12 IN VARCHAR2,
151 p_attribute13 IN VARCHAR2,
152 p_attribute14 IN VARCHAR2,
153 p_attribute15 IN VARCHAR2) IS
154
155 BEGIN
156
157 UPDATE AS_ISSUE_LISTING_IDFR SET
158 exchange_id = DECODE(p_exchange_id, FND_API.G_MISS_NUM, exchange_id, p_exchange_id),
159 issue_id = DECODE(p_issue_id, FND_API.G_MISS_NUM, issue_id, p_issue_id),
160 scheme = DECODE(p_scheme, FND_API.G_MISS_CHAR, scheme, p_scheme),
161 value = DECODE(p_value, FND_API.G_MISS_CHAR, value, p_value),
162 search_code = DECODE(p_search_code, FND_API.G_MISS_CHAR, search_code, p_search_code),
163 country_code = DECODE(p_country_code, FND_API.G_MISS_CHAR, country_code, p_country_code),
164 listing_flag = DECODE(p_listing_flag, FND_API.G_MISS_CHAR, listing_flag, p_listing_flag),
165 last_update_date = DECODE(p_last_update_date, FND_API.G_MISS_DATE, last_update_date, p_last_update_date),
166 last_updated_by = DECODE(p_last_updated_by, FND_API.G_MISS_NUM, last_updated_by, p_last_updated_by),
167 creation_date = DECODE(p_creation_date, FND_API.G_MISS_DATE, creation_date, p_creation_date),
168 created_by = DECODE(p_created_by, FND_API.G_MISS_NUM, created_by, p_created_by),
169 last_update_login = DECODE(p_last_update_login, FND_API.G_MISS_NUM, last_update_login, p_last_update_login),
170 attribute1 = DECODE(p_attribute1, FND_API.G_MISS_CHAR, attribute1, p_attribute1),
171 attribute2 = DECODE(p_attribute2, FND_API.G_MISS_CHAR, attribute2, p_attribute2),
172 attribute3 = DECODE(p_attribute3, FND_API.G_MISS_CHAR, attribute3, p_attribute3),
173 attribute4 = DECODE(p_attribute4, FND_API.G_MISS_CHAR, attribute4, p_attribute4),
174 attribute5 = DECODE(p_attribute5, FND_API.G_MISS_CHAR, attribute5, p_attribute5),
175 attribute6 = DECODE(p_attribute6, FND_API.G_MISS_CHAR, attribute6, p_attribute6),
176 attribute7 = DECODE(p_attribute7, FND_API.G_MISS_CHAR, attribute7, p_attribute7),
177 attribute8 = DECODE(p_attribute8, FND_API.G_MISS_CHAR, attribute8, p_attribute8),
178 attribute9 = DECODE(p_attribute9, FND_API.G_MISS_CHAR, attribute9, p_attribute9),
179 attribute10 = DECODE(p_attribute10, FND_API.G_MISS_CHAR, attribute10, p_attribute10),
180 attribute11 = DECODE(p_attribute11, FND_API.G_MISS_CHAR, attribute11, p_attribute11),
181 attribute12 = DECODE(p_attribute12, FND_API.G_MISS_CHAR, attribute12, p_attribute12),
182 attribute13 = DECODE(p_attribute13, FND_API.G_MISS_CHAR, attribute13, p_attribute13),
183 attribute14 = DECODE(p_attribute14, FND_API.G_MISS_CHAR, attribute14, p_attribute14),
184 attribute15 = DECODE(p_attribute15, FND_API.G_MISS_CHAR, attribute15, p_attribute15),
185 attribute_category = DECODE(p_attribute_category, FND_API.G_MISS_CHAR, attribute_category, p_attribute_category)
186 WHERE issue_listing_idfr_id = p_issue_listing_idfr_id;
187
188 IF (SQL%NOTFOUND) THEN
189 RAISE NO_DATA_FOUND;
190 END IF;
191
192 END update_row;
193
194 PROCEDURE delete_row (
195 p_issue_listing_idfr_id IN NUMBER) IS
196
197 BEGIN
198
199 DELETE FROM AS_ISSUE_LISTING_IDFR
200 WHERE issue_listing_idfr_id = p_issue_listing_idfr_id;
201
202 IF (SQL%NOTFOUND) THEN
203 RAISE no_data_found;
204 END IF;
205
206 END delete_row;
207 /*
208 PROCEDURE lock_row (
209 p_issue_listing_idfr_id IN NUMBER,
210 p_exchange_id IN NUMBER,
211 p_issue_id IN NUMBER,
212 p_object_version_number IN NUMBER) IS
213
214 CURSOR C IS SELECT object_version_number
215 FROM AS_EXCHANGE_B
216 WHERE issue_listing_idfr_id = p_issue_listing_idfr_id
217 AND exchange_id = p_exchange_id
218 AND issue_id = p_issue_id
219 AND object_version_number = p_object_version_number
220 FOR UPDATE OF issue_listing_idfr_id NOWAIT;
221
222 recinfo C%rowtype;
223
224 BEGIN
225
226 OPEN C;
227 FETCH C INTO recinfo;
228 IF (C%NOTFOUND) THEN
229 CLOSE C;
230 fnd_message.set_name('FND', 'FORM RECORD_DELETED');
231 app_exception.raise_exception;
232 END IF;
233 CLOSE C;
234
235 IF (recinfo.object_vesion_number = p_object_version_number) THEN
236 NULL;
237 ELSE
238 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
239 app_exception.raise_exception;
240 END IF;
241
242 END lock_row;
243 */
244 END AS_ISSUE_LISTING_IDFR_PKG;