[Home] [Help]
PACKAGE BODY: APPS.XTR_RM_MD_SETS_PKG
Source
1 PACKAGE BODY XTR_RM_MD_SETS_PKG as
2 /* $Header: xtrmdstb.pls 120.3 2005/06/29 10:44:33 badiredd ship $ */
3
4 PROCEDURE insert_row(p_rowid IN OUT NOCOPY VARCHAR2,
5 p_set_code IN VARCHAR2,
6 p_description IN VARCHAR2,
7 p_authorized IN VARCHAR2,
8 p_fx_spot_side IN VARCHAR2,
9 p_bond_price_side IN VARCHAR2,
10 p_stock_price_side IN VARCHAR2,
11 p_attribute_category IN VARCHAR2,
12 p_attribute1 IN VARCHAR2,
13 p_attribute2 IN VARCHAR2,
14 p_attribute3 IN VARCHAR2,
15 p_attribute4 IN VARCHAR2,
16 p_attribute5 IN VARCHAR2,
17 p_attribute6 IN VARCHAR2,
18 p_attribute7 IN VARCHAR2,
19 p_attribute8 IN VARCHAR2,
20 p_attribute9 IN VARCHAR2,
21 p_attribute10 IN VARCHAR2,
22 p_attribute11 IN VARCHAR2,
23 p_attribute12 IN VARCHAR2,
24 p_attribute13 IN VARCHAR2,
25 p_attribute14 IN VARCHAR2,
26 p_attribute15 IN VARCHAR2,
27 p_created_by IN NUMBER,
28 p_creation_date IN DATE,
29 p_last_updated_by IN NUMBER,
30 p_last_update_date IN DATE,
31 p_last_update_login IN NUMBER) IS
32
33 CURSOR C IS select rowid from xtr_rm_md_sets
34 where set_code = p_set_code;
35
36 BEGIN
37
38 INSERT INTO xtr_rm_md_sets(set_code,
39 description,
40 authorized_yn,
41 fx_spot_side,
42 bond_price_side,
43 stock_price_side,
44 attribute_category,
45 attribute1,
46 attribute2,
47 attribute3,
48 attribute4,
49 attribute5,
50 attribute6,
51 attribute7,
52 attribute8,
53 attribute9,
54 attribute10,
55 attribute11,
56 attribute12,
57 attribute13,
58 attribute14,
59 attribute15,
60 created_by,
61 creation_date,
62 last_updated_by,
63 last_update_date,
64 last_update_login)
65 VALUES (p_set_code,
66 p_description,
67 p_authorized,
68 p_fx_spot_side,
69 p_bond_price_side,
70 p_stock_price_side,
71 p_attribute_category,
72 p_attribute1,
73 p_attribute2,
74 p_attribute3,
75 p_attribute4,
76 p_attribute5,
77 p_attribute6,
78 p_attribute7,
79 p_attribute8,
80 p_attribute9,
81 p_attribute10,
82 p_attribute11,
83 p_attribute12,
84 p_attribute13,
85 p_attribute14,
86 p_attribute15,
87 p_created_by,
88 p_creation_date,
89 p_last_updated_by,
90 p_last_update_date,
91 p_last_update_login);
92
93 OPEN C;
94 FETCH C INTO p_rowid;
95 IF (C%NOTFOUND) THEN
96 CLOSE C;
97 raise NO_DATA_FOUND;
98 END IF;
99 CLOSE C;
100
101 END insert_row;
102
103
104 PROCEDURE update_row(p_rowid IN VARCHAR2,
105 p_set_code IN VARCHAR2,
106 p_description IN VARCHAR2,
107 p_authorized IN VARCHAR2,
108 p_fx_spot_side IN VARCHAR2,
109 p_bond_price_side IN VARCHAR2,
110 p_stock_price_side IN VARCHAR2,
111 p_attribute_category IN VARCHAR2,
112 p_attribute1 IN VARCHAR2,
113 p_attribute2 IN VARCHAR2,
114 p_attribute3 IN VARCHAR2,
115 p_attribute4 IN VARCHAR2,
116 p_attribute5 IN VARCHAR2,
117 p_attribute6 IN VARCHAR2,
118 p_attribute7 IN VARCHAR2,
119 p_attribute8 IN VARCHAR2,
120 p_attribute9 IN VARCHAR2,
121 p_attribute10 IN VARCHAR2,
122 p_attribute11 IN VARCHAR2,
123 p_attribute12 IN VARCHAR2,
124 p_attribute13 IN VARCHAR2,
125 p_attribute14 IN VARCHAR2,
126 p_attribute15 IN VARCHAR2,
127 p_last_updated_by IN NUMBER,
128 p_last_update_date IN DATE,
129 p_last_update_login IN NUMBER) IS
130
131 BEGIN
132
133 UPDATE xtr_rm_md_sets SET set_code = p_set_code,
134 description = p_description,
135 authorized_yn = p_authorized,
136 fx_spot_side = p_fx_spot_side,
137 bond_price_side = p_bond_price_side,
138 stock_price_side = p_stock_price_side,
139 attribute_category = p_attribute_category,
140 attribute1 = p_attribute1,
141 attribute2 = p_attribute2,
142 attribute3 = p_attribute3,
143 attribute4 = p_attribute4,
144 attribute5 = p_attribute5,
145 attribute6 = p_attribute6,
146 attribute7 = p_attribute7,
147 attribute8 = p_attribute8,
148 attribute9 = p_attribute9,
149 attribute10 = p_attribute10,
150 attribute11 = p_attribute11,
151 attribute12 = p_attribute12,
152 attribute13 = p_attribute13,
153 attribute14 = p_attribute14,
154 attribute15 = p_attribute15,
155 last_updated_by = p_last_updated_by,
156 last_update_date = p_last_update_date,
157 last_update_login = p_last_update_login
158 WHERE rowid = p_rowid;
159
160 IF (SQL%NOTFOUND) THEN
161 Raise NO_DATA_FOUND;
162 END IF;
163
164 END update_row;
165
166
167
168 PROCEDURE lock_row (p_rowid IN VARCHAR2,
169 p_set_code IN VARCHAR2,
170 p_description IN VARCHAR2,
171 p_authorized IN VARCHAR2,
172 p_fx_spot_side IN VARCHAR2,
173 p_bond_price_side IN VARCHAR2) IS
174
175 CURSOR C IS
176 select * from xtr_rm_md_sets
177 where rowid = p_rowid
178 for update of set_code NOWAIT;
179 recinfo C%ROWTYPE;
180
181 BEGIN
182
183 OPEN C;
184 FETCH C INTO recinfo;
185
186 IF (C%NOTFOUND) THEN
187 CLOSE C;
188 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
189 app_exception.raise_exception;
190 END IF;
191 CLOSE C;
192
193 IF ((recinfo.set_code = p_set_code) AND
194 ((recinfo.description = p_description) or
195 ((recinfo.description IS NULL) and (p_description IS NULL))) AND
196 ((recinfo.authorized_yn = p_authorized) OR
197 ((recinfo.authorized_yn IS NULL) and (p_authorized IS NULL)))) THEN
198 -- (recinfo.fx_spot_side = p_fx_spot_side) AND
199 -- (recinfo.bond_price_side = p_bond_price_side)) THEN
200 return;
201 ELSE
202 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
203 app_exception.raise_exception;
204 END IF;
205
206
207 END lock_row;
208
209
210
211
212 PROCEDURE delete_row(p_rowid IN VARCHAR2) IS
213
214 BEGIN
215
216 DELETE FROM xtr_rm_md_sets WHERE rowid = p_rowid;
217
218 IF (SQL%NOTFOUND) THEN
219 Raise NO_DATA_FOUND;
220 END IF;
221
222 END delete_row;
223
224
225 END XTR_RM_MD_SETS_PKG;
226