1 PACKAGE BODY MRP_Id_To_Value AS
2 /* $Header: MRPSIDVB.pls 115.2 1999/12/13 14:38:50 pkm ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_Id_To_Value';
7
8 -- Procedure Get_Attr_Tbl.
9 --
10 -- Used by generator to avoid overriding or duplicating existing
11 -- Id_To_Value functions.
12 --
13 -- DO NOT REMOVE
14
15 PROCEDURE Get_Attr_Tbl
16 IS
17 I NUMBER:=0;
18 BEGIN
19
20 FND_API.g_attr_tbl.DELETE;
21
22 -- START GEN attributes
23
24 -- Generator will append new attributes before end generate comment.
25 I := I + 1;
26 FND_API.g_attr_tbl(I).name := 'completion_locator';
27 I := I + 1;
28 FND_API.g_attr_tbl(I).name := 'line';
29 I := I + 1;
30 FND_API.g_attr_tbl(I).name := 'organization';
31 I := I + 1;
32 FND_API.g_attr_tbl(I).name := 'primary_item';
33 I := I + 1;
34 FND_API.g_attr_tbl(I).name := 'project';
35 I := I + 1;
36 FND_API.g_attr_tbl(I).name := 'schedule_group';
37 I := I + 1;
38 FND_API.g_attr_tbl(I).name := 'task';
39 I := I + 1;
40 FND_API.g_attr_tbl(I).name := 'wip_entity';
41 -- END GEN attributes
42
43 END Get_Attr_Tbl;
44
45 -- Prototypes for Id_To_Value functions.
46
47 -- START GEN Id_To_Value
48
49 -- Generator will append new prototypes before end generate comment.
50
51
52 FUNCTION Completion_Locator
53 ( p_completion_locator_id IN NUMBER
54 ) RETURN VARCHAR2
55 IS
56 l_completion_locator VARCHAR2(240) := NULL;
57 BEGIN
58
59 IF p_completion_locator_id IS NOT NULL THEN
60
61 -- SELECT COMPLETION_LOCATOR
62 -- INTO l_completion_locator
63 -- FROM DB_TABLE
64 -- WHERE DB_COLUMN = p_completion_locator_id;
65
66 NULL;
67
68 END IF;
69
70 RETURN l_completion_locator;
71
72 EXCEPTION
73
74 WHEN NO_DATA_FOUND THEN
75
76 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
77 THEN
78
79 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
80 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','completion_locator');
81 FND_MSG_PUB.Add;
82
83 END IF;
84
85 RETURN NULL;
86
87 WHEN OTHERS THEN
88
89 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
90 THEN
91 FND_MSG_PUB.Add_Exc_Msg
92 ( G_PKG_NAME
93 , 'Completion_Locator'
94 );
95 END IF;
96
97 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98
99 END Completion_Locator;
100
101 FUNCTION Line
102 ( p_line_id IN NUMBER
103 ) RETURN VARCHAR2
104 IS
105 l_line VARCHAR2(240) := NULL;
106 BEGIN
107
108 IF p_line_id IS NOT NULL THEN
109
110 SELECT LINE_CODE
111 INTO l_line
112 FROM WIP_LINES
113 WHERE LINE_ID = p_line_id;
114
115 END IF;
116
117 RETURN l_line;
118
119 EXCEPTION
120
121 WHEN NO_DATA_FOUND THEN
122
123 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
124 THEN
125
126 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
127 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line');
128 FND_MSG_PUB.Add;
129
130 END IF;
131
132 RETURN NULL;
133
134 WHEN OTHERS THEN
135
136 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
137 THEN
138 FND_MSG_PUB.Add_Exc_Msg
139 ( G_PKG_NAME
140 , 'Line'
144 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
141 );
142 END IF;
143
145
146 END Line;
147
148 FUNCTION Organization
149 ( p_organization_id IN NUMBER
150 ) RETURN VARCHAR2
151 IS
152 l_organization VARCHAR2(240) := NULL;
153 BEGIN
154
155 IF p_organization_id IS NOT NULL THEN
156
157 SELECT ORGANIZATION_CODE
158 INTO l_organization
159 FROM ORG_ORGANIZATION_DEFINITIONS
160 WHERE ORGANIZATION_ID = p_organization_id;
161
162 END IF;
163
164 RETURN l_organization;
165
166 EXCEPTION
167
168 WHEN NO_DATA_FOUND THEN
169
170 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
171 THEN
172
173 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
174 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','organization');
175 FND_MSG_PUB.Add;
176
177 END IF;
178
179 RETURN NULL;
180
181 WHEN OTHERS THEN
182
183 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
184 THEN
185 FND_MSG_PUB.Add_Exc_Msg
186 ( G_PKG_NAME
187 , 'Organization'
188 );
189 END IF;
190
191 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
192
193 END Organization;
194
195 FUNCTION Primary_Item
196 ( p_primary_item_id IN NUMBER
197 ) RETURN VARCHAR2
198 IS
199 l_primary_item VARCHAR2(240) := NULL;
200 BEGIN
201
202 IF p_primary_item_id IS NOT NULL THEN
203
204 -- SELECT PRIMARY_ITEM
205 -- INTO l_primary_item
206 -- FROM DB_TABLE
207 -- WHERE DB_COLUMN = p_primary_item_id;
208
209 NULL;
210
211 END IF;
212
213 RETURN l_primary_item;
214
215 EXCEPTION
216
217 WHEN NO_DATA_FOUND THEN
218
219 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
220 THEN
221
222 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
223 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','primary_item');
224 FND_MSG_PUB.Add;
225
226 END IF;
227
228 RETURN NULL;
229
230 WHEN OTHERS THEN
231
232 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
233 THEN
234 FND_MSG_PUB.Add_Exc_Msg
235 ( G_PKG_NAME
236 , 'Primary_Item'
237 );
238 END IF;
239
240 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241
242 END Primary_Item;
243
244 FUNCTION Project
245 ( p_project_id IN NUMBER
246 ) RETURN VARCHAR2
247 IS
248 l_project VARCHAR2(240) := NULL;
249 BEGIN
250
251 IF p_project_id IS NOT NULL THEN
252
253 SELECT PROJECT_NAME
254 INTO l_project
255 FROM MTL_PROJECT_V
256 WHERE PROJECT_ID = p_project_id;
257
258 END IF;
259
260 RETURN l_project;
261
262 EXCEPTION
263
264 WHEN NO_DATA_FOUND THEN
265
266 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
267 THEN
268
269 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
270 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','project');
271 FND_MSG_PUB.Add;
272
273 END IF;
274
275 RETURN NULL;
276
277 WHEN OTHERS THEN
278
279 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
280 THEN
281 FND_MSG_PUB.Add_Exc_Msg
282 ( G_PKG_NAME
283 , 'Project'
284 );
285 END IF;
286
287 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
288
289 END Project;
290
291 FUNCTION Schedule_Group
292 ( p_schedule_group_id IN NUMBER
293 ) RETURN VARCHAR2
294 IS
295 l_schedule_group VARCHAR2(240) := NULL;
296 BEGIN
297
298 IF p_schedule_group_id IS NOT NULL THEN
299
300 SELECT SCHEDULE_GROUP_NAME
301 INTO l_schedule_group
302 FROM WIP_SCHEDULE_GROUPS
303 WHERE SCHEDULE_GROUP_ID = p_schedule_group_id;
304
305 NULL;
306
307 END IF;
308
309 RETURN l_schedule_group;
310
311 EXCEPTION
312
313 WHEN NO_DATA_FOUND THEN
314
315 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
316 THEN
317
318 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
319 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','schedule_group');
320 FND_MSG_PUB.Add;
321
322 END IF;
323
324 RETURN NULL;
325
326 WHEN OTHERS THEN
327
328 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
329 THEN
330 FND_MSG_PUB.Add_Exc_Msg
331 ( G_PKG_NAME
332 , 'Schedule_Group'
333 );
334 END IF;
335
336 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
337
338 END Schedule_Group;
339
340 FUNCTION Task
341 ( p_task_id IN NUMBER
342 ) RETURN VARCHAR2
343 IS
344 l_task VARCHAR2(240) := NULL;
345 BEGIN
346
347 IF p_task_id IS NOT NULL THEN
348
349 -- SELECT TASK
350 -- INTO l_task
351 -- FROM DB_TABLE
352 -- WHERE DB_COLUMN = p_task_id;
353
354 NULL;
355
356 END IF;
357
358 RETURN l_task;
359
360 EXCEPTION
361
362 WHEN NO_DATA_FOUND THEN
363
364 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
365 THEN
366
367 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
368 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','task');
369 FND_MSG_PUB.Add;
370
371 END IF;
372
373 RETURN NULL;
374
375 WHEN OTHERS THEN
376
377 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
378 THEN
379 FND_MSG_PUB.Add_Exc_Msg
380 ( G_PKG_NAME
381 , 'Task'
382 );
383 END IF;
384
385 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
386
387 END Task;
388
389 FUNCTION Wip_Entity
390 ( p_wip_entity_id IN NUMBER
391 ) RETURN VARCHAR2
392 IS
393 l_wip_entity VARCHAR2(240) := NULL;
394 BEGIN
395
396 IF p_wip_entity_id IS NOT NULL THEN
397
398 -- SELECT WIP_ENTITY
399 -- INTO l_wip_entity
400 -- FROM DB_TABLE
401 -- WHERE DB_COLUMN = p_wip_entity_id;
402
403 NULL;
404
405 END IF;
406
407 RETURN l_wip_entity;
408
409 EXCEPTION
410
411 WHEN NO_DATA_FOUND THEN
412
413 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_SUCCESS)
414 THEN
415
416 FND_MESSAGE.SET_NAME('MRP','MRP_ID_TO_VALUE_ERROR');
417 FND_MESSAGE.SET_TOKEN('ATTRIBUTE','wip_entity');
418 FND_MSG_PUB.Add;
419
420 END IF;
421
422 RETURN NULL;
423
424 WHEN OTHERS THEN
425
426 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
427 THEN
428 FND_MSG_PUB.Add_Exc_Msg
429 ( G_PKG_NAME
430 , 'Wip_Entity'
431 );
432 END IF;
433
434 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
435
436 END Wip_Entity;
437 -- END GEN Id_To_Value
438
439 END MRP_Id_To_Value;