[Home] [Help]
PACKAGE BODY: APPS.AMS_DM_BIN_VALUES_PKG
Source
1 PACKAGE BODY AMS_DM_BIN_VALUES_PKG as
2 /* $Header: amstdbvb.pls 115.3 2002/12/09 11:03:20 choang noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_DM_BIN_VALUES_PKG
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15
16
17 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_DM_BIN_VALUES_PKG';
18 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amstdbvb.pls';
19
20
21 ----------------------------------------------------------
22 ---- MEDIA ----
23 ----------------------------------------------------------
24
25 -- ========================================================
26 --
27 -- NAME
28 -- createInsertBody
29 --
30 -- PURPOSE
31 --
32 -- NOTES
33 --
34 -- HISTORY
35 --
36 -- ========================================================
37 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
38 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
39 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
40
41 PROCEDURE Insert_Row(
42 px_bin_value_id IN OUT NOCOPY NUMBER,
43 p_last_update_date DATE,
44 p_last_updated_by NUMBER,
45 p_creation_date DATE,
46 p_created_by NUMBER,
47 p_last_update_login NUMBER,
48 px_object_version_number IN OUT NOCOPY NUMBER,
49 p_source_field_id NUMBER,
50 p_bucket NUMBER,
51 p_bin_value VARCHAR2,
52 p_start_value NUMBER,
53 p_end_value NUMBER)
54
55 IS
56 x_rowid VARCHAR2(30);
57
58
59 BEGIN
60
61
62 px_object_version_number := 1;
63
64
65 INSERT INTO AMS_DM_BIN_VALUES(
66 bin_value_id,
67 last_update_date,
68 last_updated_by,
69 creation_date,
70 created_by,
71 last_update_login,
72 object_version_number,
73 source_field_id,
74 bucket,
75 bin_value,
76 start_value,
77 end_value
78 ) VALUES (
79 DECODE( px_bin_value_id, FND_API.g_miss_num, NULL, px_bin_value_id),
80 DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date),
81 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
82 DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
83 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
84 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
85 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
86 DECODE( p_source_field_id, FND_API.g_miss_num, NULL, p_source_field_id),
87 DECODE( p_bucket, FND_API.g_miss_num, NULL, p_bucket),
88 DECODE( p_bin_value, FND_API.g_miss_char, NULL, p_bin_value),
89 DECODE( p_start_value, FND_API.g_miss_num, NULL, p_start_value),
90 DECODE( p_end_value, FND_API.g_miss_num, NULL, p_end_value));
91 END Insert_Row;
92
93
94 ----------------------------------------------------------
95 ---- MEDIA ----
96 ----------------------------------------------------------
97
98 -- ========================================================
99 --
100 -- NAME
101 -- createUpdateBody
102 --
103 -- PURPOSE
104 --
105 -- NOTES
106 --
107 -- HISTORY
108 --
109 -- ========================================================
110 PROCEDURE Update_Row(
111 p_bin_value_id NUMBER,
112 p_last_update_date DATE,
113 p_last_updated_by NUMBER,
114 p_creation_date DATE,
115 p_created_by NUMBER,
116 p_last_update_login NUMBER,
117 p_object_version_number NUMBER,
118 p_source_field_id NUMBER,
119 p_bucket NUMBER,
120 p_bin_value VARCHAR2,
121 p_start_value NUMBER,
122 p_end_value NUMBER)
123
124 IS
125 BEGIN
126 Update AMS_DM_BIN_VALUES
127 SET
128 bin_value_id = DECODE( p_bin_value_id, FND_API.g_miss_num, bin_value_id, p_bin_value_id),
129 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
130 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
131 creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
132 created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
133 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
134 object_version_number = DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
135 source_field_id = DECODE( p_source_field_id, FND_API.g_miss_num, source_field_id, p_source_field_id),
136 bucket = DECODE( p_bucket, FND_API.g_miss_num, bucket, p_bucket),
137 bin_value = DECODE( p_bin_value, FND_API.g_miss_char, bin_value, p_bin_value),
138 start_value = DECODE( p_start_value, FND_API.g_miss_num, start_value, p_start_value),
139 end_value = DECODE( p_end_value, FND_API.g_miss_num, end_value, p_end_value)
140 WHERE BIN_VALUE_ID = p_BIN_VALUE_ID
141 AND object_version_number = p_object_version_number;
142
143 IF (SQL%NOTFOUND) THEN
144 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
145 END IF;
146 END Update_Row;
147
148
149 ----------------------------------------------------------
150 ---- MEDIA ----
151 ----------------------------------------------------------
152
153 -- ========================================================
154 --
155 -- NAME
156 -- createDeleteBody
157 --
158 -- PURPOSE
159 --
160 -- NOTES
161 --
162 -- HISTORY
163 --
164 -- ========================================================
165 PROCEDURE Delete_Row(
166 p_BIN_VALUE_ID NUMBER)
167 IS
168 BEGIN
169 DELETE FROM AMS_DM_BIN_VALUES
170 WHERE BIN_VALUE_ID = p_BIN_VALUE_ID;
171 If (SQL%NOTFOUND) then
172 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173 End If;
174 END Delete_Row ;
175
176
177
178 ----------------------------------------------------------
179 ---- MEDIA ----
180 ----------------------------------------------------------
181
182 -- ========================================================
183 --
184 -- NAME
185 -- createLockBody
186 --
187 -- PURPOSE
188 --
189 -- NOTES
190 --
191 -- HISTORY
192 --
193 -- ========================================================
194 PROCEDURE Lock_Row(
195 p_bin_value_id NUMBER,
196 p_last_update_date DATE,
197 p_last_updated_by NUMBER,
198 p_creation_date DATE,
199 p_created_by NUMBER,
200 p_last_update_login NUMBER,
201 p_object_version_number NUMBER,
202 p_source_field_id NUMBER,
203 p_bucket NUMBER,
204 p_bin_value VARCHAR2,
205 p_start_value NUMBER,
206 p_end_value NUMBER)
207
208 IS
209 CURSOR C IS
210 SELECT *
211 FROM AMS_DM_BIN_VALUES
212 WHERE BIN_VALUE_ID = p_BIN_VALUE_ID
213 FOR UPDATE of BIN_VALUE_ID NOWAIT;
214 Recinfo C%ROWTYPE;
215 BEGIN
216 OPEN c;
217 FETCH c INTO Recinfo;
218 If (c%NOTFOUND) then
219 CLOSE c;
220 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
221 APP_EXCEPTION.RAISE_EXCEPTION;
222 END IF;
223 CLOSE C;
224 IF (
225 ( Recinfo.bin_value_id = p_bin_value_id)
226 AND ( ( Recinfo.last_update_date = p_last_update_date)
227 OR ( ( Recinfo.last_update_date IS NULL )
228 AND ( p_last_update_date IS NULL )))
229 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
230 OR ( ( Recinfo.last_updated_by IS NULL )
231 AND ( p_last_updated_by IS NULL )))
232 AND ( ( Recinfo.creation_date = p_creation_date)
233 OR ( ( Recinfo.creation_date IS NULL )
234 AND ( p_creation_date IS NULL )))
235 AND ( ( Recinfo.created_by = p_created_by)
236 OR ( ( Recinfo.created_by IS NULL )
237 AND ( p_created_by IS NULL )))
238 AND ( ( Recinfo.last_update_login = p_last_update_login)
239 OR ( ( Recinfo.last_update_login IS NULL )
240 AND ( p_last_update_login IS NULL )))
241 AND ( ( Recinfo.object_version_number = p_object_version_number)
242 OR ( ( Recinfo.object_version_number IS NULL )
243 AND ( p_object_version_number IS NULL )))
244 AND ( ( Recinfo.source_field_id = p_source_field_id)
245 OR ( ( Recinfo.source_field_id IS NULL )
246 AND ( p_source_field_id IS NULL )))
247 AND ( ( Recinfo.bucket = p_bucket)
248 OR ( ( Recinfo.bucket IS NULL )
249 AND ( p_bucket IS NULL )))
250 AND ( ( Recinfo.bin_value = p_bin_value)
251 OR ( ( Recinfo.bin_value IS NULL )
252 AND ( p_bin_value IS NULL )))
253 AND ( ( Recinfo.start_value = p_start_value)
254 OR ( ( Recinfo.start_value IS NULL )
255 AND ( p_start_value IS NULL )))
256 AND ( ( Recinfo.end_value = p_end_value)
257 OR ( ( Recinfo.end_value IS NULL )
258 AND ( p_end_value IS NULL )))
259 ) THEN
260 RETURN;
261 ELSE
262 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
263 APP_EXCEPTION.RAISE_EXCEPTION;
264 END IF;
265 END Lock_Row;
266
267 END AMS_DM_BIN_VALUES_PKG;