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