[Home] [Help]
50:
51: procedure Load_Sections
52: (p_api_version IN NUMBER,
53: p_init_msg_list IN VARCHAR2 := NULL,
54: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
55: x_return_status OUT NOCOPY VARCHAR2,
56: x_msg_count OUT NOCOPY NUMBER,
57: x_msg_data OUT NOCOPY VARCHAR2,
58: p_sectid_tbl IN JTF_NUMBER_TABLE,
145: -- Standard initialization tasks
146: ----------------------
147:
148: -- Standard call to check for call compatibility.
149: IF NOT FND_API.Compatible_API_Call (l_api_version,
150: p_api_version,
151: l_api_name,
152: G_PKG_NAME )
153: THEN
150: p_api_version,
151: l_api_name,
152: G_PKG_NAME )
153: THEN
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: IF p_init_msg_list IS NULL THEN
158: l_init_msg_list := FND_API.G_FALSE;
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: END IF;
156:
157: IF p_init_msg_list IS NULL THEN
158: l_init_msg_list := FND_API.G_FALSE;
159: END IF;
160:
161: -- Initialize message list if L_init_msg_list is set to TRUE.
162: IF FND_API.to_Boolean(L_init_msg_list) THEN
158: l_init_msg_list := FND_API.G_FALSE;
159: END IF;
160:
161: -- Initialize message list if L_init_msg_list is set to TRUE.
162: IF FND_API.to_Boolean(L_init_msg_list) THEN
163: FND_MSG_PUB.initialize;
164: END IF;
165:
166: -- Initialize API return status to success.
163: FND_MSG_PUB.initialize;
164: END IF;
165:
166: -- Initialize API return status to success.
167: x_return_status := FND_API.G_RET_STS_SUCCESS;
168:
169: -- Print debugging info.
170: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
171: IBE_UTIL.debug('IBE_CATALOG_PVT.Load_Sections(+)');
166: -- Initialize API return status to success.
167: x_return_status := FND_API.G_RET_STS_SUCCESS;
168:
169: -- Print debugging info.
170: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
171: IBE_UTIL.debug('IBE_CATALOG_PVT.Load_Sections(+)');
172: IBE_UTIL.debug('IBE_CATALOG_PVT.p_msite_id = ' || p_msite_id);
173: END IF;
174:
178: ----------------------
179:
180: -- Verify list of section IDs is not null.
181: IF p_sectid_tbl IS NULL THEN
182: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
183: IBE_UTIL.debug('IBE_CATALOG_PVT.Error p_sect_id_tbl is NULL');
184: END IF;
185: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
186: FND_MSG_PUB.Add;
183: IBE_UTIL.debug('IBE_CATALOG_PVT.Error p_sect_id_tbl is NULL');
184: END IF;
185: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
186: FND_MSG_PUB.Add;
187: RAISE FND_API.G_EXC_ERROR;
188: ELSE
189: l_sectid_tbl := p_sectid_tbl;
190: END IF;
191:
205: l_processed_sectid_index := 1;
206:
207: FOR j IN 1..l_sectid_tbl.COUNT LOOP
208: l_get_supersects := true;
209: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
210: IBE_UTIL.debug('IBE_CATALOG_PVT.l_sectionid_tbl('||j ||')='||l_sectid_tbl(j));
211: END IF;
212:
213: -- Check whether we already retrieved supersection information for the
220: END LOOP;
221:
222:
223: IF l_get_supersects THEN
224: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
225: IBE_UTIL.debug('IBE_CATALOG_PVT.l_get_supersects is TRUE');
226: END IF;
227: -- Record the current section ID in our list of "already processed section IDs".
228: l_processed_sectid_tbl.extend();
229: l_processed_sectid_tbl(l_processed_sectid_index) := l_sectid_tbl(j);
230: l_processed_sectid_index := l_processed_sectid_index + 1;
231:
232: -- Retrieve the supersection information for the current section ID.
233: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
234: IBE_UTIL.debug('Start Calling IBE_CATALOG_PVT.GetSuperSectIDs ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
235: END IF;
236: GetSuperSectIDs(p_api_version => p_api_version,
237: x_return_status => x_return_status,
239: x_msg_data => x_msg_data,
240: p_sectid => l_sectid_tbl(j),
241: p_msite_id => p_msite_id,
242: x_supersectid_csr => l_supersectid_csr);
243: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
244: IBE_UTIL.debug('End Calling IBE_CATALOG_PVT.GetSuperSectIDs ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
245: END IF;
246:
247: -- Extract the supersection information into our final output arrays.
247: -- Extract the supersection information into our final output arrays.
248: LOOP
249: FETCH l_supersectid_csr INTO l_tmp_id;
250: EXIT WHEN l_supersectid_csr%NOTFOUND;
251: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
252: IBE_UTIL.debug('IBE_CATALOG_PVT:value of l_tmp_id= ' || l_tmp_id);
253: END IF;
254: x_supersect_sect_tbl.EXTEND;
255: x_supersect_supersect_tbl.EXTEND;
258: l_table_index := l_table_index + 1;
259:
260: END LOOP;
261: close l_supersectid_csr;
262: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
263: IBE_UTIL.debug('IBE_CATALOG_PVT:closing l_supersectid_csr');
264: END IF;
265: END IF;
266:
272: IF x_supersect_supersect_tbl.COUNT = 0 THEN
273: x_supersect_supersect_tbl := NULL;
274: END IF;
275:
276: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
277: IBE_UTIL.debug('IBE_CATALOG_PVT.Before get items per sections');
278: END IF;
279: ----------------------
280: -- Get item information
298: IF (l_str_itms_per_sct IS NOT NULL) THEN
299:
300: l_itms_per_sct := TO_NUMBER(l_str_itms_per_sct);
301: END IF;
302: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
303: IBE_UTIL.debug('IBE_CATALOG_PVT.l_itms_per_sct'||l_itms_per_sct);
304: END IF;
305:
306: -- Loop through our list of requested section IDs and retrieve item information.
309:
310:
311: -- Get the order by clause from the database (if any).
312: l_sid := l_sectid_tbl(i);
313: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
314: IBE_UTIL.debug('IBE_CATALOG_PVT.l_sid'||l_sid);
315: END IF;
316: OPEN l_orderby_csr(l_sid);
317: FETCH l_orderby_csr INTO l_tmp_ord_by_clause;
314: IBE_UTIL.debug('IBE_CATALOG_PVT.l_sid'||l_sid);
315: END IF;
316: OPEN l_orderby_csr(l_sid);
317: FETCH l_orderby_csr INTO l_tmp_ord_by_clause;
318: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
319: IBE_UTIL.debug('IBE_CATALOG_PVT.l_tmp_ord_by_clause'||l_tmp_ord_by_clause);
320: END IF;
321: CLOSE l_orderby_csr;
322: Process_Order_By_Clause(l_tmp_ord_by_clause, l_ord_by_clause);
320: END IF;
321: CLOSE l_orderby_csr;
322: Process_Order_By_Clause(l_tmp_ord_by_clause, l_ord_by_clause);
323:
324: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
325: IBE_UTIL.debug('IBE_CATALOG_PVT.After Process_order_by');
326: END IF;
327:
328: -- Retrieve the item information for the current section ID.
333: l_stmt := L_MSIV_STMT || 'ORDER BY ' || l_ord_by_clause || ', '
334: || L_SECT_MSIV_ORDER_STMT;
335: END IF;
336:
337: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
338: IBE_UTIL.debug('IBE_CATALOG_PVT.l_stmt First =' ||l_stmt);
339: END IF;
340:
341: OPEN l_itmids_csr FOR l_stmt USING l_sid ;
347: l_stmt := 'SELECT * FROM (' || L_MSIV_STMT || 'ORDER BY ' ||
348: l_ord_by_clause || ', ' || L_SECT_MSIV_ORDER_STMT ||
349: ') WHERE rownum <= :itms_per_sct';
350: END IF;
351: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
352: IBE_UTIL.debug('IBE_CATALOG_PVT.l_stmt Second =' ||l_stmt);
353: END IF;
354: OPEN l_itmids_csr FOR l_stmt USING l_sid, l_itms_per_sct;
355: END IF;
360: FETCH l_itmids_csr INTO l_tmp_itmid, l_tmp_orgid, l_tmp_usage, l_tmp_status_flag,
361: l_tmp_assoc_startdt, l_tmp_assoc_enddt,l_tmp_startdt, l_tmp_enddt;
362: EXIT WHEN l_itmids_csr%NOTFOUND;
363:
364: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
365: IBE_UTIL.debug('IBE_CATALOG_PVT.l_tmp_itmid =' ||l_tmp_itmid || ':l_tmp_orgid='||l_tmp_orgid ||
366: ':l_tmp_usage='||l_tmp_usage || ':l_tmp_status_flag='||l_tmp_status_flag||':l_tmp_startdt='||l_tmp_startdt||
367: ':l_tmp_enddt='||l_tmp_enddt|| ':l_tmp_assoc_startdt='||l_tmp_assoc_startdt||':l_tmp_assoc_enddt='||l_tmp_assoc_enddt);
368: END IF;
388: END LOOP;
389: CLOSE l_itmids_csr;
390:
391: END LOOP;
392: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
393: IBE_UTIL.debug('IBE_CATALOG_PVT.After extracting info from output arrays');
394: END IF;
395: IF x_sctitm_itmid_tbl.COUNT = 0 THEN
396: x_sctitm_itmid_tbl := NULL;
422: ----------------------
423: -- Standard cleanup tasks
424: ----------------------
425:
426: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
427: IBE_UTIL.debug('IBE_CATALOG_PVT.Load_Sections(-)');
428: END IF;
429:
430: -- standard call to get message count and if count is 1, get message info.
428: END IF;
429:
430: -- standard call to get message count and if count is 1, get message info.
431: FND_MSG_PUB.Count_And_Get
432: ( p_encoded => FND_API.G_FALSE,
433: p_count => x_msg_count,
434: p_data => x_msg_data
435: );
436: EXCEPTION
433: p_count => x_msg_count,
434: p_data => x_msg_data
435: );
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: FND_MSG_PUB.Count_And_Get
440: ( p_encoded => FND_API.G_FALSE,
441: p_count => x_msg_count,
434: p_data => x_msg_data
435: );
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: FND_MSG_PUB.Count_And_Get
440: ( p_encoded => FND_API.G_FALSE,
441: p_count => x_msg_count,
442: p_data => x_msg_data
436: EXCEPTION
437: WHEN FND_API.G_EXC_ERROR THEN
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: FND_MSG_PUB.Count_And_Get
440: ( p_encoded => FND_API.G_FALSE,
441: p_count => x_msg_count,
442: p_data => x_msg_data
443: );
444: --gzhang 08/08/2002, bug#2488246
442: p_data => x_msg_data
443: );
444: --gzhang 08/08/2002, bug#2488246
445: --ibe_util.disable_debug;
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448: FND_MSG_PUB.Count_And_Get
449: ( p_encoded => FND_API.G_FALSE,
450: p_count => x_msg_count,
443: );
444: --gzhang 08/08/2002, bug#2488246
445: --ibe_util.disable_debug;
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448: FND_MSG_PUB.Count_And_Get
449: ( p_encoded => FND_API.G_FALSE,
450: p_count => x_msg_count,
451: p_data => x_msg_data
445: --ibe_util.disable_debug;
446: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448: FND_MSG_PUB.Count_And_Get
449: ( p_encoded => FND_API.G_FALSE,
450: p_count => x_msg_count,
451: p_data => x_msg_data
452: );
453: --gzhang 08/08/2002, bug#2488246
452: );
453: --gzhang 08/08/2002, bug#2488246
454: --ibe_util.disable_debug;
455: WHEN OTHERS THEN
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
457: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
458: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
459: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
460: FND_MESSAGE.Set_Token('REASON', SQLERRM);
466: l_api_name
467: );
468: END IF;
469: FND_MSG_PUB.Count_And_Get
470: ( p_encoded => FND_API.G_FALSE,
471: p_count => x_msg_count,
472: p_data => x_msg_data
473: );
474: END LOAD_SECTIONS;
487: -- Pre-reqs : None.
488: -- Parameters :
489: -- IN : p_api_version IN NUMBER Required
490: -- p_init_msg_list IN VARCHAR2 Optional
491: -- Default = FND_API.G_FALSE
492: -- p_validation_level IN NUMBER Optional
493: -- Default = FND_API.G_VALID_LEVEL_FULL
494: -- p_preview_flag IN VARCHAR2 Optional
495: -- p_msite_id IN NUMBER
489: -- IN : p_api_version IN NUMBER Required
490: -- p_init_msg_list IN VARCHAR2 Optional
491: -- Default = FND_API.G_FALSE
492: -- p_validation_level IN NUMBER Optional
493: -- Default = FND_API.G_VALID_LEVEL_FULL
494: -- p_preview_flag IN VARCHAR2 Optional
495: -- p_msite_id IN NUMBER
496: -- p_sectid IN NUMBER
497: --
514: procedure GetLeafSubSectIDs
515: (
516: p_api_version IN NUMBER,
517: p_init_msg_list IN VARCHAR2 := NULL,
518: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
519: x_return_status OUT NOCOPY VARCHAR2,
520: x_msg_count OUT NOCOPY NUMBER,
521: x_msg_data OUT NOCOPY VARCHAR2,
522:
535: BEGIN
536: --gzhang 08/08/2002, bug#2488246
537: --ibe_util.enable_debug;
538: -- standard call to check for call compatibility
539: IF NOT FND_API.Compatible_API_Call (l_api_version,
540: p_api_version,
541: l_api_name,
542: G_PKG_NAME )
543: THEN
540: p_api_version,
541: l_api_name,
542: G_PKG_NAME )
543: THEN
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: END IF;
546:
547: IF p_init_msg_list IS NULL THEN
548: l_init_msg_list := FND_API.G_FALSE;
544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
545: END IF;
546:
547: IF p_init_msg_list IS NULL THEN
548: l_init_msg_list := FND_API.G_FALSE;
549: END IF;
550:
551: IF p_preview_flag IS NULL THEN
552: l_preview_flag := FND_API.G_FALSE;
548: l_init_msg_list := FND_API.G_FALSE;
549: END IF;
550:
551: IF p_preview_flag IS NULL THEN
552: l_preview_flag := FND_API.G_FALSE;
553: END IF;
554:
555:
556: -- initialize message list if l_init_msg_list is set to TRUE
553: END IF;
554:
555:
556: -- initialize message list if l_init_msg_list is set to TRUE
557: IF FND_API.to_Boolean(l_init_msg_list) THEN
558: FND_MSG_PUB.initialize;
559: END IF;
560:
561: -- initialize API return status to success
558: FND_MSG_PUB.initialize;
559: END IF;
560:
561: -- initialize API return status to success
562: x_return_status := FND_API.G_RET_STS_SUCCESS;
563:
564: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
565: IBE_UTIL.debug('IBE_CATALOG_PVT.GetLeafSubSectIDs(+)');
566: IBE_UTIL.debug('p_sectid : p_msite_id =' || p_sectid || ' : ' || p_msite_id);
560:
561: -- initialize API return status to success
562: x_return_status := FND_API.G_RET_STS_SUCCESS;
563:
564: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
565: IBE_UTIL.debug('IBE_CATALOG_PVT.GetLeafSubSectIDs(+)');
566: IBE_UTIL.debug('p_sectid : p_msite_id =' || p_sectid || ' : ' || p_msite_id);
567: END IF;
568:
566: IBE_UTIL.debug('p_sectid : p_msite_id =' || p_sectid || ' : ' || p_msite_id);
567: END IF;
568:
569: -- API Body
570: IF FND_API.to_Boolean(l_preview_flag) THEN
571: OPEN x_leafsubsectid_csr FOR
572: SELECT mss.child_section_id, mss.sort_order
573: FROM IBE_DSP_MSITE_SCT_SECTS mss, IBE_DSP_SECTIONS_B jdsb
574: WHERE mss.mini_site_id = p_msite_id
617: ORDER BY mss.sort_order;
618: END IF;
619:
620: -- End API Body
621: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
622: IBE_UTIL.debug('IBE_CATALOG_PVT.GetLeafSubSectIDs(-)');
623: END IF;
624: -- standard call to get message count and if count is 1, get message info.
625: FND_MSG_PUB.Count_And_Get
622: IBE_UTIL.debug('IBE_CATALOG_PVT.GetLeafSubSectIDs(-)');
623: END IF;
624: -- standard call to get message count and if count is 1, get message info.
625: FND_MSG_PUB.Count_And_Get
626: ( p_encoded => FND_API.G_FALSE,
627: p_count => x_msg_count,
628: p_data => x_msg_data
629: );
630: --gzhang 08/08/2002, bug#2488246
629: );
630: --gzhang 08/08/2002, bug#2488246
631: --ibe_util.disable_debug;
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: FND_MSG_PUB.Count_And_Get
636: ( p_encoded => FND_API.G_FALSE,
637: p_count => x_msg_count,
630: --gzhang 08/08/2002, bug#2488246
631: --ibe_util.disable_debug;
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: FND_MSG_PUB.Count_And_Get
636: ( p_encoded => FND_API.G_FALSE,
637: p_count => x_msg_count,
638: p_data => x_msg_data
632: EXCEPTION
633: WHEN FND_API.G_EXC_ERROR THEN
634: x_return_status := FND_API.G_RET_STS_ERROR;
635: FND_MSG_PUB.Count_And_Get
636: ( p_encoded => FND_API.G_FALSE,
637: p_count => x_msg_count,
638: p_data => x_msg_data
639: );
640: --gzhang 08/08/2002, bug#2488246
638: p_data => x_msg_data
639: );
640: --gzhang 08/08/2002, bug#2488246
641: --ibe_util.disable_debug;
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: FND_MSG_PUB.Count_And_Get
645: ( p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
639: );
640: --gzhang 08/08/2002, bug#2488246
641: --ibe_util.disable_debug;
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: FND_MSG_PUB.Count_And_Get
645: ( p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
647: p_data => x_msg_data
641: --ibe_util.disable_debug;
642: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
643: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
644: FND_MSG_PUB.Count_And_Get
645: ( p_encoded => FND_API.G_FALSE,
646: p_count => x_msg_count,
647: p_data => x_msg_data
648: );
649: --gzhang 08/08/2002, bug#2488246
648: );
649: --gzhang 08/08/2002, bug#2488246
650: --ibe_util.disable_debug;
651: WHEN OTHERS THEN
652: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
653: IF FND_MSG_PUB.Check_Msg_Level
654: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
655: THEN FND_MSG_PUB.Add_Exc_Msg
656: ( G_PKG_NAME,
657: l_api_name
658: );
659: END IF;
660: FND_MSG_PUB.Count_And_Get
661: ( p_encoded => FND_API.G_FALSE,
662: p_count => x_msg_count,
663: p_data => x_msg_data
664: );
665: --gzhang 08/08/2002, bug#2488246
677: -- Pre-reqs : None.
678: -- Parameters :
679: -- IN : p_api_version IN NUMBER Required
680: -- p_init_msg_list IN VARCHAR2 Optional
681: -- Default = FND_API.G_FALSE
682: -- p_validation_level IN NUMBER Optional
683: -- Default = FND_API.G_VALID_LEVEL_FULL
684: -- p_sectid IN NUMBER Required
685: -- p_msite_id IN NUMBER Required
679: -- IN : p_api_version IN NUMBER Required
680: -- p_init_msg_list IN VARCHAR2 Optional
681: -- Default = FND_API.G_FALSE
682: -- p_validation_level IN NUMBER Optional
683: -- Default = FND_API.G_VALID_LEVEL_FULL
684: -- p_sectid IN NUMBER Required
685: -- p_msite_id IN NUMBER Required
686: --
687: -- OUT : x_return_status OUT VARCHAR2(1)
702:
703: procedure GetSuperSectIDs
704: (p_api_version IN NUMBER,
705: p_init_msg_list IN VARCHAR2 := NULL,
706: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
707: x_return_status OUT NOCOPY VARCHAR2,
708: x_msg_count OUT NOCOPY NUMBER,
709: x_msg_data OUT NOCOPY VARCHAR2,
710: p_sectid IN NUMBER,
722: -- Standard initialization tasks
723: ----------------------
724:
725: -- Standard call to check for call compatibility.
726: IF NOT FND_API.Compatible_API_Call (l_api_version,
727: p_api_version,
728: l_api_name,
729: G_PKG_NAME )
730: THEN
727: p_api_version,
728: l_api_name,
729: G_PKG_NAME )
730: THEN
731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732: END IF;
733:
734: IF p_init_msg_list IS NULL THEN
735: l_init_msg_list := FND_API.G_FALSE;
731: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
732: END IF;
733:
734: IF p_init_msg_list IS NULL THEN
735: l_init_msg_list := FND_API.G_FALSE;
736: END IF;
737:
738: -- Initialize message list if l_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean(l_init_msg_list) THEN
735: l_init_msg_list := FND_API.G_FALSE;
736: END IF;
737:
738: -- Initialize message list if l_init_msg_list is set to TRUE.
739: IF FND_API.to_Boolean(l_init_msg_list) THEN
740: FND_MSG_PUB.initialize;
741: END IF;
742:
743: -- Initialize API return status to success.
740: FND_MSG_PUB.initialize;
741: END IF;
742:
743: -- Initialize API return status to success.
744: x_return_status := FND_API.G_RET_STS_SUCCESS;
745:
746: -- Print debugging info.
747: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
748: IBE_UTIL.debug('IBE_CATALOG_PVT.GetSuperSectIDs(+)');
743: -- Initialize API return status to success.
744: x_return_status := FND_API.G_RET_STS_SUCCESS;
745:
746: -- Print debugging info.
747: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
748: IBE_UTIL.debug('IBE_CATALOG_PVT.GetSuperSectIDs(+)');
749: IBE_UTIL.debug('p_sectid : p_msite_id =' || p_sectid || ' : ' || p_msite_id);
750: END IF;
751:
765: ----------------------
766: -- Standard cleanup tasks
767: ----------------------
768:
769: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
770: IBE_UTIL.debug('IBE_CATALOG_PVT.GetSuperSectIDs(-)');
771: END IF;
772:
773: -- standard call to get message count and if count is 1, get message info.
771: END IF;
772:
773: -- standard call to get message count and if count is 1, get message info.
774: FND_MSG_PUB.Count_And_Get
775: ( p_encoded => FND_API.G_FALSE,
776: p_count => x_msg_count,
777: p_data => x_msg_data
778: );
779: EXCEPTION
776: p_count => x_msg_count,
777: p_data => x_msg_data
778: );
779: EXCEPTION
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782: FND_MSG_PUB.Count_And_Get
783: ( p_encoded => FND_API.G_FALSE,
784: p_count => x_msg_count,
777: p_data => x_msg_data
778: );
779: EXCEPTION
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782: FND_MSG_PUB.Count_And_Get
783: ( p_encoded => FND_API.G_FALSE,
784: p_count => x_msg_count,
785: p_data => x_msg_data
779: EXCEPTION
780: WHEN FND_API.G_EXC_ERROR THEN
781: x_return_status := FND_API.G_RET_STS_ERROR;
782: FND_MSG_PUB.Count_And_Get
783: ( p_encoded => FND_API.G_FALSE,
784: p_count => x_msg_count,
785: p_data => x_msg_data
786: );
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
783: ( p_encoded => FND_API.G_FALSE,
784: p_count => x_msg_count,
785: p_data => x_msg_data
786: );
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: FND_MSG_PUB.Count_And_Get
790: ( p_encoded => FND_API.G_FALSE,
791: p_count => x_msg_count,
784: p_count => x_msg_count,
785: p_data => x_msg_data
786: );
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: FND_MSG_PUB.Count_And_Get
790: ( p_encoded => FND_API.G_FALSE,
791: p_count => x_msg_count,
792: p_data => x_msg_data
786: );
787: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
789: FND_MSG_PUB.Count_And_Get
790: ( p_encoded => FND_API.G_FALSE,
791: p_count => x_msg_count,
792: p_data => x_msg_data
793: );
794: WHEN OTHERS THEN
791: p_count => x_msg_count,
792: p_data => x_msg_data
793: );
794: WHEN OTHERS THEN
795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
796: IF FND_MSG_PUB.Check_Msg_Level
797: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
798: THEN FND_MSG_PUB.Add_Exc_Msg
799: ( G_PKG_NAME,
800: l_api_name
801: );
802: END IF;
803: FND_MSG_PUB.Count_And_Get
804: ( p_encoded => FND_API.G_FALSE,
805: p_count => x_msg_count,
806: p_data => x_msg_data
807: );
808:
824: -- Parameters :
825: -- IN :
826: -- p_api_version IN NUMBER Required
827: -- p_init_msg_list IN VARCHAR2 Optional
828: -- Default = FND_API.G_FALSE
829: -- p_validation_level IN NUMBER Optional
830: -- Default = FND_API.G_VALID_LEVEL_FULL
831: -- p_preview_flag IN VARCHAR2 Optional
832: -- Default = FND_API.G_FALSE
826: -- p_api_version IN NUMBER Required
827: -- p_init_msg_list IN VARCHAR2 Optional
828: -- Default = FND_API.G_FALSE
829: -- p_validation_level IN NUMBER Optional
830: -- Default = FND_API.G_VALID_LEVEL_FULL
831: -- p_preview_flag IN VARCHAR2 Optional
832: -- Default = FND_API.G_FALSE
833: -- p_originid IN NUMBER Required
834: -- p_origintype IN VARCHAR2(240) Required
828: -- Default = FND_API.G_FALSE
829: -- p_validation_level IN NUMBER Optional
830: -- Default = FND_API.G_VALID_LEVEL_FULL
831: -- p_preview_flag IN VARCHAR2 Optional
832: -- Default = FND_API.G_FALSE
833: -- p_originid IN NUMBER Required
834: -- p_origintype IN VARCHAR2(240) Required
835: -- p_reltype_code IN VARCHAR2(30) Required
836: -- p_dest_type IN VARCHAR2(240) Required
833: -- p_originid IN NUMBER Required
834: -- p_origintype IN VARCHAR2(240) Required
835: -- p_reltype_code IN VARCHAR2(30) Required
836: -- p_dest_type IN VARCHAR2(240) Required
837: -- p_commit IN VARCHAR2 := FND_API.G_FALSE Optional
838: -- p_product_item_id IN NUMBER Required
839: -- p_customer_id IN NUMBER Optional,
840: -- p_product_revision IN VARCHAR2 Optional
841: -- p_request_date IN DATE Optional
883:
884: -- new
885: BEGIN
886: SAVEPOINT AVAILABLE_SERVICES_PUB;
887: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
888: IBE_UTIL.Debug('Start IBE_CATALOG_PVT.GetAvailableServices');
889: IBE_UTIL.Debug(' Parms: [p_product_item_id=' || p_product_item_id || ', ' ||
890: p_customer_id || ', ' || p_product_revision || ', ' ||
891: p_request_date || ']');
891: p_request_date || ']');
892: END IF;
893:
894: IF p_init_msg_list IS NULL THEN
895: l_init_msg_list := FND_API.G_TRUE;
896: END IF;
897:
898: IF p_commit IS NULL THEN
899: l_commit := FND_API.G_FALSE;
895: l_init_msg_list := FND_API.G_TRUE;
896: END IF;
897:
898: IF p_commit IS NULL THEN
899: l_commit := FND_API.G_FALSE;
900: END IF;
901:
902: -- Setting Rec values to be passed to OKS API
903:
900: END IF;
901:
902: -- Setting Rec values to be passed to OKS API
903:
904: IF p_product_item_id = FND_API.G_MISS_NUM THEN
905: l_avail_service_rec.PRODUCT_ITEM_ID := NULL;
906: ELSE
907: l_avail_service_rec.PRODUCT_ITEM_ID := p_product_item_id;
908: END IF;
905: l_avail_service_rec.PRODUCT_ITEM_ID := NULL;
906: ELSE
907: l_avail_service_rec.PRODUCT_ITEM_ID := p_product_item_id;
908: END IF;
909: IF p_customer_id = FND_API.G_MISS_NUM THEN
910: l_avail_service_rec.CUSTOMER_ID := NULL;
911: ELSE
912: l_avail_service_rec.CUSTOMER_ID := p_customer_id;
913: END IF;
910: l_avail_service_rec.CUSTOMER_ID := NULL;
911: ELSE
912: l_avail_service_rec.CUSTOMER_ID := p_customer_id;
913: END IF;
914: IF p_product_revision = FND_API.G_MISS_CHAR THEN
915: l_avail_service_rec.PRODUCT_REVISION := NULL;
916: ELSE
917: l_avail_service_rec.PRODUCT_REVISION := p_product_revision;
918: END IF;
915: l_avail_service_rec.PRODUCT_REVISION := NULL;
916: ELSE
917: l_avail_service_rec.PRODUCT_REVISION := p_product_revision;
918: END IF;
919: IF p_request_date = FND_API.G_MISS_DATE THEN
920: l_avail_service_rec.request_date := NULL;
921: ELSE
922: l_avail_service_rec.request_date := p_request_date;
923: END IF;
922: l_avail_service_rec.request_date := p_request_date;
923: END IF;
924:
925:
926: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
927: IBE_UTIL.Debug('OKS_OMINT_PUB.Available_Services Starts');
928: END IF;
929:
930:
938: X_Orderable_Service_tbl => l_Orderable_Service_tbl
939: );
940:
941:
942: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
939: );
940:
941:
942: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
941:
942: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: l_count := l_orderable_service_tbl.COUNT;
942: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: l_count := l_orderable_service_tbl.COUNT;
950: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
947: END IF;
948:
949: l_count := l_orderable_service_tbl.COUNT;
950: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
951: IBE_UTIL.Debug(' OKS_OMINT_PUB.Available_Services Finishes ' || x_return_status || ' ' ||
952: 'l_orderable_service_tbl.COUNT=' || l_count);
953: END IF;
954:
960: x_service_item_ids(i) := l_orderable_service_tbl(i).service_item_id;
961: END LOOP;
962: END IF;
963:
964: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
965: IBE_UTIL.Debug('End IBE_CATALOG_PVT.GetAvailableServices');
966: END IF;
967:
968: EXCEPTION
965: IBE_UTIL.Debug('End IBE_CATALOG_PVT.GetAvailableServices');
966: END IF;
967:
968: EXCEPTION
969: WHEN FND_API.G_EXC_ERROR THEN
970: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
971: IBE_Util.Debug('Expected error IBE_CATALOG_PVT.GetAvailableServices');
972: END IF;
973:
966: END IF;
967:
968: EXCEPTION
969: WHEN FND_API.G_EXC_ERROR THEN
970: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
971: IBE_Util.Debug('Expected error IBE_CATALOG_PVT.GetAvailableServices');
972: END IF;
973:
974: ROLLBACK TO AVAILABLE_SERVICES_PUB;
971: IBE_Util.Debug('Expected error IBE_CATALOG_PVT.GetAvailableServices');
972: END IF;
973:
974: ROLLBACK TO AVAILABLE_SERVICES_PUB;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
977: p_count => x_msg_count,
978: p_data => x_msg_data);
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
972: END IF;
973:
974: ROLLBACK TO AVAILABLE_SERVICES_PUB;
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
977: p_count => x_msg_count,
978: p_data => x_msg_data);
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
975: x_return_status := FND_API.G_RET_STS_ERROR;
976: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
977: p_count => x_msg_count,
978: p_data => x_msg_data);
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
981: IBE_Util.Debug('Expected error IBE_CATALOG_PVT.GetAvailableServices');
982: END IF;
983:
976: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
977: p_count => x_msg_count,
978: p_data => x_msg_data);
979: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
980: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
981: IBE_Util.Debug('Expected error IBE_CATALOG_PVT.GetAvailableServices');
982: END IF;
983:
984: ROLLBACK TO AVAILABLE_SERVICES_PUB;
981: IBE_Util.Debug('Expected error IBE_CATALOG_PVT.GetAvailableServices');
982: END IF;
983:
984: ROLLBACK TO AVAILABLE_SERVICES_PUB;
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
987: p_count => x_msg_count,
988: p_data => x_msg_data);
989: WHEN OTHERS THEN
982: END IF;
983:
984: ROLLBACK TO AVAILABLE_SERVICES_PUB;
985: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
986: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
987: p_count => x_msg_count,
988: p_data => x_msg_data);
989: WHEN OTHERS THEN
990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
986: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
987: p_count => x_msg_count,
988: p_data => x_msg_data);
989: WHEN OTHERS THEN
990: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
991: IBE_Util.Debug('unknown error IBE_CATALOG_PVT.GetAvailableServices');
992: END IF;
993:
994: ROLLBACK TO AVAILABLE_SERVICES_PUB;
991: IBE_Util.Debug('unknown error IBE_CATALOG_PVT.GetAvailableServices');
992: END IF;
993:
994: ROLLBACK TO AVAILABLE_SERVICES_PUB;
995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
996:
997: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
998: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
999: l_api_name);
998: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,
999: l_api_name);
1000: END IF;
1001:
1002: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE,
1003: p_count => x_msg_count,
1004: p_data => x_msg_data);
1005:
1006: END GetAvailableServices;
1022: -- Pre-reqs : None.
1023: -- Parameters :
1024: -- IN : p_api_version IN NUMBER Required
1025: -- p_init_msg_list IN VARCHAR2 Optional
1026: -- Default = FND_API.G_FALSE
1027: -- p_validation_level IN NUMBER Optional
1028: -- Default = FND_API.G_VALID_LEVEL_FULL
1029: -- p_preview_flag IN VARCHAR2 Optional
1030: -- Default = FND_API.G_FALSE
1024: -- IN : p_api_version IN NUMBER Required
1025: -- p_init_msg_list IN VARCHAR2 Optional
1026: -- Default = FND_API.G_FALSE
1027: -- p_validation_level IN NUMBER Optional
1028: -- Default = FND_API.G_VALID_LEVEL_FULL
1029: -- p_preview_flag IN VARCHAR2 Optional
1030: -- Default = FND_API.G_FALSE
1031: -- p_originid IN NUMBER Required
1032: -- p_origintype IN VARCHAR2(240) Required
1026: -- Default = FND_API.G_FALSE
1027: -- p_validation_level IN NUMBER Optional
1028: -- Default = FND_API.G_VALID_LEVEL_FULL
1029: -- p_preview_flag IN VARCHAR2 Optional
1030: -- Default = FND_API.G_FALSE
1031: -- p_originid IN NUMBER Required
1032: -- p_origintype IN VARCHAR2(240) Required
1033: -- p_reltype_code IN VARCHAR2(30) Required
1034: -- p_dest_type IN VARCHAR2(240) Required
1050: procedure GetRelatedCatOrSectIDs
1051: (
1052: p_api_version IN NUMBER,
1053: p_init_msg_list IN VARCHAR2 := NULL,
1054: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1055: x_return_status OUT NOCOPY VARCHAR2,
1056: x_msg_count OUT NOCOPY NUMBER,
1057: x_msg_data OUT NOCOPY VARCHAR2,
1058:
1085: BEGIN
1086: --gzhang 08/08/2002, bug#2488246
1087: --ibe_util.enable_debug;
1088: -- standard call to check for call compatibility
1089: IF NOT FND_API.Compatible_API_Call (l_api_version,
1090: p_api_version,
1091: l_api_name,
1092: G_PKG_NAME )
1093: THEN
1090: p_api_version,
1091: l_api_name,
1092: G_PKG_NAME )
1093: THEN
1094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1095: END IF;
1096:
1097: IF p_init_msg_list IS NULL THEN
1098: l_init_msg_list := FND_API.G_FALSE;
1094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1095: END IF;
1096:
1097: IF p_init_msg_list IS NULL THEN
1098: l_init_msg_list := FND_API.G_FALSE;
1099: END IF;
1100:
1101: IF p_preview_flag IS NULL THEN
1102: l_preview_flag := FND_API.G_FALSE;
1098: l_init_msg_list := FND_API.G_FALSE;
1099: END IF;
1100:
1101: IF p_preview_flag IS NULL THEN
1102: l_preview_flag := FND_API.G_FALSE;
1103: END IF;
1104:
1105: -- initialize message list if l_init_msg_list is set to TRUE
1106: IF FND_API.to_Boolean(l_init_msg_list) THEN
1102: l_preview_flag := FND_API.G_FALSE;
1103: END IF;
1104:
1105: -- initialize message list if l_init_msg_list is set to TRUE
1106: IF FND_API.to_Boolean(l_init_msg_list) THEN
1107: FND_MSG_PUB.initialize;
1108: END IF;
1109:
1110: -- initialize API return status to success
1107: FND_MSG_PUB.initialize;
1108: END IF;
1109:
1110: -- initialize API return status to success
1111: x_return_status := FND_API.G_RET_STS_SUCCESS;
1112:
1113: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1114: IBE_UTIL.debug('IBE_CATALOG_PVT.GETRELATEDCATORSECTIDS(+)');
1115: IBE_UTIL.debug('p_originid : p_origintype : p_reltype_code : p_dest_type ='
1109:
1110: -- initialize API return status to success
1111: x_return_status := FND_API.G_RET_STS_SUCCESS;
1112:
1113: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1114: IBE_UTIL.debug('IBE_CATALOG_PVT.GETRELATEDCATORSECTIDS(+)');
1115: IBE_UTIL.debug('p_originid : p_origintype : p_reltype_code : p_dest_type ='
1116: || p_originid || ' : ' || p_origintype || ' : ' || p_reltype_code ||
1117: ' : ' || p_dest_type);
1125: CLOSE l_reltype_csr;
1126: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_REL_NOT_EXIST');
1127: FND_MESSAGE.Set_Token('RELATIONSHIP_TYPE', p_reltype_code);
1128: FND_MSG_PUB.Add;
1129: RAISE FND_API.G_EXC_ERROR;
1130: END IF;
1131: CLOSE l_reltype_csr;
1132:
1133: -- if relationship type code is not active, return NULL table
1143: -- initialize table index
1144: l_table_index := 1;
1145:
1146: IF p_dest_type = 'S' THEN
1147: IF FND_API.to_Boolean(l_preview_flag) THEN
1148: l_relobj_stmt := 'SELECT rr.DEST_OBJECT_ID ' ||
1149: 'FROM IBE_CT_RELATION_RULES rr, IBE_DSP_SECTIONS_B jdsb ' ||
1150: 'WHERE rr.ORIGIN_OBJECT_TYPE = :p_origintype ' ||
1151: 'AND rr.ORIGIN_OBJECT_ID = :p_originid ' ||
1196: x_relatedid_tbl := NULL;
1197: END IF;
1198:
1199: -- End API Body
1200: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1201: IBE_UTIL.debug('IBE_CATALOG_PVT.GETRELATEDCATORSECTIDS(-)');
1202: END IF ;
1203:
1204: -- standard call to get messgae count and if count is 1, get message info.
1202: END IF ;
1203:
1204: -- standard call to get messgae count and if count is 1, get message info.
1205: FND_MSG_PUB.Count_And_Get
1206: ( p_encoded => FND_API.G_FALSE,
1207: p_count => x_msg_count,
1208: p_data => x_msg_data
1209: );
1210: --gzhang 08/08/2002, bug#2488246
1209: );
1210: --gzhang 08/08/2002, bug#2488246
1211: --ibe_util.disable_debug;
1212: EXCEPTION
1213: WHEN FND_API.G_EXC_ERROR THEN
1214: x_return_status := FND_API.G_RET_STS_ERROR;
1215: FND_MSG_PUB.Count_And_Get
1216: ( p_encoded => FND_API.G_FALSE,
1217: p_count => x_msg_count,
1210: --gzhang 08/08/2002, bug#2488246
1211: --ibe_util.disable_debug;
1212: EXCEPTION
1213: WHEN FND_API.G_EXC_ERROR THEN
1214: x_return_status := FND_API.G_RET_STS_ERROR;
1215: FND_MSG_PUB.Count_And_Get
1216: ( p_encoded => FND_API.G_FALSE,
1217: p_count => x_msg_count,
1218: p_data => x_msg_data
1212: EXCEPTION
1213: WHEN FND_API.G_EXC_ERROR THEN
1214: x_return_status := FND_API.G_RET_STS_ERROR;
1215: FND_MSG_PUB.Count_And_Get
1216: ( p_encoded => FND_API.G_FALSE,
1217: p_count => x_msg_count,
1218: p_data => x_msg_data
1219: );
1220: --gzhang 08/08/2002, bug#2488246
1218: p_data => x_msg_data
1219: );
1220: --gzhang 08/08/2002, bug#2488246
1221: --ibe_util.disable_debug;
1222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1224: FND_MSG_PUB.Count_And_Get
1225: ( p_encoded => FND_API.G_FALSE,
1226: p_count => x_msg_count,
1219: );
1220: --gzhang 08/08/2002, bug#2488246
1221: --ibe_util.disable_debug;
1222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1224: FND_MSG_PUB.Count_And_Get
1225: ( p_encoded => FND_API.G_FALSE,
1226: p_count => x_msg_count,
1227: p_data => x_msg_data
1221: --ibe_util.disable_debug;
1222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1224: FND_MSG_PUB.Count_And_Get
1225: ( p_encoded => FND_API.G_FALSE,
1226: p_count => x_msg_count,
1227: p_data => x_msg_data
1228: );
1229: --gzhang 08/08/2002, bug#2488246
1228: );
1229: --gzhang 08/08/2002, bug#2488246
1230: --ibe_util.disable_debug;
1231: WHEN OTHERS THEN
1232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1233: IF FND_MSG_PUB.Check_Msg_Level
1234: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1235: THEN FND_MSG_PUB.Add_Exc_Msg
1236: ( G_PKG_NAME,
1237: l_api_name
1238: );
1239: END IF;
1240: FND_MSG_PUB.Count_And_Get
1241: ( p_encoded => FND_API.G_FALSE,
1242: p_count => x_msg_count,
1243: p_data => x_msg_data
1244: );
1245: --gzhang 08/08/2002, bug#2488246
1409: -- Pre-reqs : None.
1410: -- Parameters :
1411: -- IN : p_api_version IN NUMBER Required
1412: -- p_init_msg_list IN VARCHAR2 Optional
1413: -- Default = FND_API.G_FALSE
1414: -- p_validation_level IN NUMBER Optional
1415: -- Default = FND_API.G_VALID_LEVEL_FULL
1416: -- p_currency_code IN NUMBER
1417: -- p_length IN NUMBER
1411: -- IN : p_api_version IN NUMBER Required
1412: -- p_init_msg_list IN VARCHAR2 Optional
1413: -- Default = FND_API.G_FALSE
1414: -- p_validation_level IN NUMBER Optional
1415: -- Default = FND_API.G_VALID_LEVEL_FULL
1416: -- p_currency_code IN NUMBER
1417: -- p_length IN NUMBER
1418: --
1419: -- OUT : x_return_status OUT VARCHAR2(1)
1432: -- End of comments
1433: procedure Get_Format_Mask_and_Symbol
1434: (p_api_version IN NUMBER,
1435: p_init_msg_list IN VARCHAR2 := NULL,
1436: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1437: x_return_status OUT NOCOPY VARCHAR2,
1438: x_msg_count OUT NOCOPY NUMBER,
1439: x_msg_data OUT NOCOPY VARCHAR2,
1440:
1455: BEGIN
1456: --gzhang 08/08/2002, bug#2488246
1457: --ibe_util.enable_debug;
1458: -- standard call to check for call compatibility
1459: IF NOT FND_API.Compatible_API_Call (l_api_version,
1460: p_api_version,
1461: l_api_name,
1462: G_PKG_NAME )
1463: THEN
1460: p_api_version,
1461: l_api_name,
1462: G_PKG_NAME )
1463: THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: END IF;
1466: IF p_init_msg_list IS NULL THEN
1467: l_init_msg_list := FND_API.G_FALSE;
1468: END IF;
1463: THEN
1464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1465: END IF;
1466: IF p_init_msg_list IS NULL THEN
1467: l_init_msg_list := FND_API.G_FALSE;
1468: END IF;
1469:
1470: -- initialize message list if l_init_msg_list is set to TRUE
1471: IF FND_API.to_Boolean(l_init_msg_list) THEN
1467: l_init_msg_list := FND_API.G_FALSE;
1468: END IF;
1469:
1470: -- initialize message list if l_init_msg_list is set to TRUE
1471: IF FND_API.to_Boolean(l_init_msg_list) THEN
1472: FND_MSG_PUB.initialize;
1473: END IF;
1474:
1475: -- initialize API return status to success
1472: FND_MSG_PUB.initialize;
1473: END IF;
1474:
1475: -- initialize API return status to success
1476: x_return_status := FND_API.G_RET_STS_SUCCESS;
1477:
1478: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1479: IBE_UTIL.debug('IBE_CATALOG_PVT.Get_Format_Mask_and_Symbol(+)');
1480: IBE_UTIL.debug('p_currency_code : p_length = ' || p_currency_code ||
1474:
1475: -- initialize API return status to success
1476: x_return_status := FND_API.G_RET_STS_SUCCESS;
1477:
1478: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1479: IBE_UTIL.debug('IBE_CATALOG_PVT.Get_Format_Mask_and_Symbol(+)');
1480: IBE_UTIL.debug('p_currency_code : p_length = ' || p_currency_code ||
1481: ' : ' || p_length);
1482: END IF;
1480: IBE_UTIL.debug('p_currency_code : p_length = ' || p_currency_code ||
1481: ' : ' || p_length);
1482: END IF;
1483: -- begin API body
1484: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1485: IBE_UTIL.debug('Calling FND_CURRENCY.Get_Format_Mask ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1486: END IF;
1487: x_format_mask := FND_CURRENCY.Get_Format_Mask(p_currency_code, p_length);
1488: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1484: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1485: IBE_UTIL.debug('Calling FND_CURRENCY.Get_Format_Mask ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1486: END IF;
1487: x_format_mask := FND_CURRENCY.Get_Format_Mask(p_currency_code, p_length);
1488: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1489: IBE_UTIL.debug('Return from FND_CURRENCY.Get_Format_Mask ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1490: END IF;
1491: OPEN l_currency_symbol_csr(p_currency_code);
1492: FETCH l_currency_symbol_csr INTO x_currency_symbol;
1492: FETCH l_currency_symbol_csr INTO x_currency_symbol;
1493: CLOSE l_currency_symbol_csr;
1494:
1495: -- end API body
1496: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1497: IBE_UTIL.debug('IBE_CATALOG_PVT.Get_Format_Mask_and_Symbol(-)');
1498: END IF;
1499: -- standard call to get message count and if count is 1, get message info.
1500: FND_MSG_PUB.Count_And_Get
1497: IBE_UTIL.debug('IBE_CATALOG_PVT.Get_Format_Mask_and_Symbol(-)');
1498: END IF;
1499: -- standard call to get message count and if count is 1, get message info.
1500: FND_MSG_PUB.Count_And_Get
1501: ( p_encoded => FND_API.G_FALSE,
1502: p_count => x_msg_count,
1503: p_data => x_msg_data
1504: );
1505: --gzhang 08/08/2002, bug#2488246
1504: );
1505: --gzhang 08/08/2002, bug#2488246
1506: --ibe_util.disable_debug;
1507: EXCEPTION
1508: WHEN FND_API.G_EXC_ERROR THEN
1509: x_return_status := FND_API.G_RET_STS_ERROR;
1510: FND_MSG_PUB.Count_And_Get
1511: ( p_encoded => FND_API.G_FALSE,
1512: p_count => x_msg_count,
1505: --gzhang 08/08/2002, bug#2488246
1506: --ibe_util.disable_debug;
1507: EXCEPTION
1508: WHEN FND_API.G_EXC_ERROR THEN
1509: x_return_status := FND_API.G_RET_STS_ERROR;
1510: FND_MSG_PUB.Count_And_Get
1511: ( p_encoded => FND_API.G_FALSE,
1512: p_count => x_msg_count,
1513: p_data => x_msg_data
1507: EXCEPTION
1508: WHEN FND_API.G_EXC_ERROR THEN
1509: x_return_status := FND_API.G_RET_STS_ERROR;
1510: FND_MSG_PUB.Count_And_Get
1511: ( p_encoded => FND_API.G_FALSE,
1512: p_count => x_msg_count,
1513: p_data => x_msg_data
1514: );
1515: --gzhang 08/08/2002, bug#2488246
1513: p_data => x_msg_data
1514: );
1515: --gzhang 08/08/2002, bug#2488246
1516: --ibe_util.disable_debug;
1517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1519: FND_MSG_PUB.Count_And_Get
1520: ( p_encoded => FND_API.G_FALSE,
1521: p_count => x_msg_count,
1514: );
1515: --gzhang 08/08/2002, bug#2488246
1516: --ibe_util.disable_debug;
1517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1519: FND_MSG_PUB.Count_And_Get
1520: ( p_encoded => FND_API.G_FALSE,
1521: p_count => x_msg_count,
1522: p_data => x_msg_data
1516: --ibe_util.disable_debug;
1517: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1519: FND_MSG_PUB.Count_And_Get
1520: ( p_encoded => FND_API.G_FALSE,
1521: p_count => x_msg_count,
1522: p_data => x_msg_data
1523: );
1524: --gzhang 08/08/2002, bug#2488246
1523: );
1524: --gzhang 08/08/2002, bug#2488246
1525: --ibe_util.disable_debug;
1526: WHEN OTHERS THEN
1527: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1528: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1529: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1530: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1531: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1537: l_api_name
1538: );
1539: END IF;
1540: FND_MSG_PUB.Count_And_Get
1541: ( p_encoded => FND_API.G_FALSE,
1542: p_count => x_msg_count,
1543: p_data => x_msg_data
1544: );
1545: --gzhang 08/08/2002, bug#2488246
1548:
1549: procedure validate_quantity
1550: (p_api_version IN NUMBER,
1551: p_init_msg_list IN VARCHAR2 := NULL,
1552: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1553: x_return_status OUT NOCOPY VARCHAR2,
1554: x_msg_count OUT NOCOPY NUMBER,
1555: x_msg_data OUT NOCOPY VARCHAR2,
1556:
1570:
1571: --gzhang 08/08/2002, bug#2488246
1572: --ibe_util.enable_debug;
1573: -- standard call to check for call compatibility
1574: IF NOT FND_API.Compatible_API_Call (l_api_version,
1575: p_api_version,
1576: l_api_name,
1577: G_PKG_NAME )
1578: THEN
1575: p_api_version,
1576: l_api_name,
1577: G_PKG_NAME )
1578: THEN
1579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1580: END IF;
1581:
1582: IF p_init_msg_list IS NULL THEN
1583: l_init_msg_list := FND_API.G_FALSE;
1579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1580: END IF;
1581:
1582: IF p_init_msg_list IS NULL THEN
1583: l_init_msg_list := FND_API.G_FALSE;
1584: END IF;
1585:
1586: -- initialize message list if L_init_msg_list is set to TRUE
1587: IF FND_API.to_Boolean(l_init_msg_list) THEN
1583: l_init_msg_list := FND_API.G_FALSE;
1584: END IF;
1585:
1586: -- initialize message list if L_init_msg_list is set to TRUE
1587: IF FND_API.to_Boolean(l_init_msg_list) THEN
1588: FND_MSG_PUB.initialize;
1589: END IF;
1590:
1591: -- initialize API return status to success
1588: FND_MSG_PUB.initialize;
1589: END IF;
1590:
1591: -- initialize API return status to success
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1595: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(+)');
1596: END IF;
1590:
1591: -- initialize API return status to success
1592: x_return_status := FND_API.G_RET_STS_SUCCESS;
1593:
1594: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1595: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(+)');
1596: END IF;
1597: -- begin API body
1598:
1600: x_valid_qty_tbl.extend(p_item_id_tbl.count);
1601:
1602: for i in 1..p_item_id_tbl.count loop
1603:
1604: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1605: IBE_UTIL.debug('Calling INV_DECIMALS_PUB.validate_quantity ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1606: END IF;
1607: inv_decimals_pub.validate_quantity(p_item_id_tbl(i), p_organization_id_tbl(i), p_qty_tbl(i),
1608: p_uom_code_tbl(i), l_output_qty, l_primary_qty, x_valid_qty_tbl(i));
1605: IBE_UTIL.debug('Calling INV_DECIMALS_PUB.validate_quantity ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1606: END IF;
1607: inv_decimals_pub.validate_quantity(p_item_id_tbl(i), p_organization_id_tbl(i), p_qty_tbl(i),
1608: p_uom_code_tbl(i), l_output_qty, l_primary_qty, x_valid_qty_tbl(i));
1609: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1610: IBE_UTIL.debug('Return from INV_DECIMALS_PUB.validate_quantity ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1611: END IF;
1612: end loop;
1613:
1611: END IF;
1612: end loop;
1613:
1614: -- end API body
1615: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1616: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(-)');
1617: END IF;
1618:
1619: -- standard call to get message count and if count is 1, get message info.
1617: END IF;
1618:
1619: -- standard call to get message count and if count is 1, get message info.
1620: FND_MSG_PUB.Count_And_Get
1621: ( p_encoded => FND_API.G_FALSE,
1622: p_count => x_msg_count,
1623: p_data => x_msg_data
1624: );
1625: --gzhang 08/08/2002, bug#2488246
1624: );
1625: --gzhang 08/08/2002, bug#2488246
1626: --ibe_util.disable_debug;
1627: EXCEPTION
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: FND_MSG_PUB.Count_And_Get
1631: ( p_encoded => FND_API.G_FALSE,
1632: p_count => x_msg_count,
1625: --gzhang 08/08/2002, bug#2488246
1626: --ibe_util.disable_debug;
1627: EXCEPTION
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: FND_MSG_PUB.Count_And_Get
1631: ( p_encoded => FND_API.G_FALSE,
1632: p_count => x_msg_count,
1633: p_data => x_msg_data
1627: EXCEPTION
1628: WHEN FND_API.G_EXC_ERROR THEN
1629: x_return_status := FND_API.G_RET_STS_ERROR;
1630: FND_MSG_PUB.Count_And_Get
1631: ( p_encoded => FND_API.G_FALSE,
1632: p_count => x_msg_count,
1633: p_data => x_msg_data
1634: );
1635: --gzhang 08/08/2002, bug#2488246
1633: p_data => x_msg_data
1634: );
1635: --gzhang 08/08/2002, bug#2488246
1636: --ibe_util.disable_debug;
1637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1639: FND_MSG_PUB.Count_And_Get
1640: ( p_encoded => FND_API.G_FALSE,
1641: p_count => x_msg_count,
1634: );
1635: --gzhang 08/08/2002, bug#2488246
1636: --ibe_util.disable_debug;
1637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1639: FND_MSG_PUB.Count_And_Get
1640: ( p_encoded => FND_API.G_FALSE,
1641: p_count => x_msg_count,
1642: p_data => x_msg_data
1636: --ibe_util.disable_debug;
1637: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1639: FND_MSG_PUB.Count_And_Get
1640: ( p_encoded => FND_API.G_FALSE,
1641: p_count => x_msg_count,
1642: p_data => x_msg_data
1643: );
1644: --gzhang 08/08/2002, bug#2488246
1643: );
1644: --gzhang 08/08/2002, bug#2488246
1645: --ibe_util.disable_debug;
1646: WHEN OTHERS THEN
1647: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1649: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1650: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1651: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1657: l_api_name
1658: );
1659: END IF;
1660: FND_MSG_PUB.Count_And_Get
1661: ( p_encoded => FND_API.G_FALSE,
1662: p_count => x_msg_count,
1663: p_data => x_msg_data
1664: );
1665: --gzhang 08/08/2002, bug#2488246
1693:
1694: --gzhang 08/08/2002, bug#2488246
1695: --ibe_util.enable_debug;
1696: -- standard call to check for call compatibility
1697: IF NOT FND_API.Compatible_API_Call (l_api_version,
1698: p_api_version,
1699: l_api_name,
1700: G_PKG_NAME )
1701: THEN
1698: p_api_version,
1699: l_api_name,
1700: G_PKG_NAME )
1701: THEN
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: END IF;
1704:
1705: IF p_init_msg_list IS NULL THEN
1706: l_init_msg_list := FND_API.G_FALSE;
1702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1703: END IF;
1704:
1705: IF p_init_msg_list IS NULL THEN
1706: l_init_msg_list := FND_API.G_FALSE;
1707: END IF;
1708:
1709: -- initialize message list if L_init_msg_list is set to TRUE
1710: IF FND_API.to_Boolean(l_init_msg_list) THEN
1706: l_init_msg_list := FND_API.G_FALSE;
1707: END IF;
1708:
1709: -- initialize message list if L_init_msg_list is set to TRUE
1710: IF FND_API.to_Boolean(l_init_msg_list) THEN
1711: FND_MSG_PUB.initialize;
1712: END IF;
1713:
1714: -- initialize API return status to success
1711: FND_MSG_PUB.initialize;
1712: END IF;
1713:
1714: -- initialize API return status to success
1715: x_return_status := FND_API.G_RET_STS_SUCCESS;
1716:
1717: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1718: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(+)');
1719: END IF;
1713:
1714: -- initialize API return status to success
1715: x_return_status := FND_API.G_RET_STS_SUCCESS;
1716:
1717: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1718: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(+)');
1719: END IF;
1720:
1721: -- begin API body
1724: x_valid_qty_tbl.extend(p_item_id_tbl.count);
1725:
1726: for i in 1..p_item_id_tbl.count loop
1727:
1728: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1729: IBE_UTIL.debug('Calling INV_DECIMALS_PUB.validate_quantity ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1730: END IF;
1731: inv_decimals_pub.validate_quantity(p_item_id_tbl(i), p_organization_id_tbl(i), p_qty_tbl(i),
1732: p_uom_code_tbl(i), l_output_qty, l_primary_qty, x_valid_qty_tbl(i));
1729: IBE_UTIL.debug('Calling INV_DECIMALS_PUB.validate_quantity ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1730: END IF;
1731: inv_decimals_pub.validate_quantity(p_item_id_tbl(i), p_organization_id_tbl(i), p_qty_tbl(i),
1732: p_uom_code_tbl(i), l_output_qty, l_primary_qty, x_valid_qty_tbl(i));
1733: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1734: IBE_UTIL.debug('Return from INV_DECIMALS_PUB.validate_quantity ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
1735: END IF;
1736: end loop;
1737:
1735: END IF;
1736: end loop;
1737:
1738: -- end API body
1739: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1740: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(-)');
1741: END IF;
1742:
1743: for i in 1..x_valid_qty_tbl.count loop
1740: IBE_UTIL.debug('IBE_CATALOG_PVT.validate_quantity(-)');
1741: END IF;
1742:
1743: for i in 1..x_valid_qty_tbl.count loop
1744: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1745: IBE_UTIL.debug('checking the value in x_valid_qty_tbl');
1746: END IF;
1747: if (x_valid_qty_tbl(i) = 'S') then
1748: x_valid_qty_tbl(i) := '';
1752: end loop;
1753:
1754: -- standard call to get message count and if count is 1, get message info.
1755: FND_MSG_PUB.Count_And_Get
1756: ( p_encoded => FND_API.G_FALSE,
1757: p_count => x_msg_count,
1758: p_data => x_msg_data
1759: );
1760: --gzhang 08/08/2002, bug#2488246
1785: END IF;
1786: END IF;
1787: END LOOP;
1788: EXCEPTION
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR;
1791: FND_MSG_PUB.Count_And_Get
1792: ( p_encoded => FND_API.G_FALSE,
1793: p_count => x_msg_count,
1786: END IF;
1787: END LOOP;
1788: EXCEPTION
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR;
1791: FND_MSG_PUB.Count_And_Get
1792: ( p_encoded => FND_API.G_FALSE,
1793: p_count => x_msg_count,
1794: p_data => x_msg_data
1788: EXCEPTION
1789: WHEN FND_API.G_EXC_ERROR THEN
1790: x_return_status := FND_API.G_RET_STS_ERROR;
1791: FND_MSG_PUB.Count_And_Get
1792: ( p_encoded => FND_API.G_FALSE,
1793: p_count => x_msg_count,
1794: p_data => x_msg_data
1795: );
1796: --gzhang 08/08/2002, bug#2488246
1794: p_data => x_msg_data
1795: );
1796: --gzhang 08/08/2002, bug#2488246
1797: --ibe_util.disable_debug;
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1800: FND_MSG_PUB.Count_And_Get
1801: ( p_encoded => FND_API.G_FALSE,
1802: p_count => x_msg_count,
1795: );
1796: --gzhang 08/08/2002, bug#2488246
1797: --ibe_util.disable_debug;
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1800: FND_MSG_PUB.Count_And_Get
1801: ( p_encoded => FND_API.G_FALSE,
1802: p_count => x_msg_count,
1803: p_data => x_msg_data
1797: --ibe_util.disable_debug;
1798: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1799: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1800: FND_MSG_PUB.Count_And_Get
1801: ( p_encoded => FND_API.G_FALSE,
1802: p_count => x_msg_count,
1803: p_data => x_msg_data
1804: );
1805: --gzhang 08/08/2002, bug#2488246
1804: );
1805: --gzhang 08/08/2002, bug#2488246
1806: --ibe_util.disable_debug;
1807: WHEN OTHERS THEN
1808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1809: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
1810: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
1811: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
1812: FND_MESSAGE.Set_Token('REASON', SQLERRM);
1818: l_api_name
1819: );
1820: END IF;
1821: FND_MSG_PUB.Count_And_Get
1822: ( p_encoded => FND_API.G_FALSE,
1823: p_count => x_msg_count,
1824: p_data => x_msg_data
1825: );
1826: --gzhang 08/08/2002, bug#2488246
1844:
1845: BEGIN
1846: --gzhang 08/08/2002, bug#2488246
1847: --ibe_util.enable_debug;
1848: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1849: IBE_UTIL.debug('In IBE_CATALOG_PVT.load_msite_languages...');
1850: END IF;
1851:
1852: x_lang_code_tbl := JTF_VARCHAR2_TABLE_100();
1862: x_lang_code_tbl(l_index) := l_lang_rec.language_code;
1863: x_tran_lang_code_tbl(l_index) := l_lang_rec.language;
1864: x_desc_tbl(l_index) := l_lang_rec.description;
1865:
1866: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1867: IBE_UTIL.debug('language code='||x_lang_code_tbl(l_index)||',translated language code='||x_tran_lang_code_tbl(l_index)||',desc='||x_desc_tbl(l_index));
1868: END IF;
1869:
1870: l_index := l_index + 1;
1868: END IF;
1869:
1870: l_index := l_index + 1;
1871: END LOOP;
1872: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1873: IBE_UTIL.debug('IBE_CATALOG_PVT.load_msite_languages:done');
1874: END IF;
1875: --gzhang 08/08/2002, bug#2488246
1876: --ibe_util.disable_debug;
1875: --gzhang 08/08/2002, bug#2488246
1876: --ibe_util.disable_debug;
1877: EXCEPTION
1878: WHEN OTHERS THEN
1879: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1880: IBE_UTIL.debug('Exception in IBE_CATALOG_PVT.load_msite_languages');
1881: END IF;
1882: --gzhang 08/08/2002, bug#2488246
1883: --ibe_util.disable_debug;
1904:
1905: BEGIN
1906: --gzhang 08/08/2002, bug#2488246
1907: --ibe_util.enable_debug;
1908: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1909: IBE_UTIL.debug('In IBE_CATALOG_PVT.LOAD_LANGUAGE...');
1910: IBE_UTIL.debug('p_lang_code ='||p_lang_code);
1911: END IF;
1912:
1920:
1921: x_tran_lang_code_tbl(l_index) := l_lang_rec.language;
1922: x_desc_tbl(l_index) := l_lang_rec.description;
1923:
1924: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1925: IBE_UTIL.debug('translated language code='||x_tran_lang_code_tbl(l_index)||',desc='||x_desc_tbl(l_index));
1926: END IF;
1927:
1928: l_index := l_index + 1;
1931: OPEN l_nls_lang_csr(p_lang_code);
1932: FETCH l_nls_lang_csr INTO x_nls_lang;
1933: CLOSE l_nls_lang_csr;
1934:
1935: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1936: IBE_UTIL.debug('IBE_CATALOG_PVT.LOAD_LANGUAGE:done');
1937: END IF;
1938: --gzhang 08/08/2002, bug#2488246
1939: --ibe_util.disable_debug;
1938: --gzhang 08/08/2002, bug#2488246
1939: --ibe_util.disable_debug;
1940: EXCEPTION
1941: WHEN OTHERS THEN
1942: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
1943: IBE_UTIL.debug('Exception in IBE_CATALOG_PVT.load_language');
1944: END IF ;
1945: --gzhang 08/08/2002, bug#2488246
1946: --ibe_util.disable_debug;
1953: --integration with QP_TEMP_TABLE
1954: procedure FETCH_ITEM
1955: (p_api_version IN NUMBER,
1956: p_init_msg_list IN VARCHAR2 := NULL,
1957: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1958: x_return_status OUT NOCOPY VARCHAR2,
1959: x_msg_count OUT NOCOPY NUMBER,
1960: x_msg_data OUT NOCOPY VARCHAR2,
1961:
1962: p_load_level IN NUMBER,
1963: p_preview_flag IN VARCHAR2,
1964: p_itmid IN NUMBER,
1965: p_partnum IN VARCHAR2,
1966: p_model_id IN NUMBER := FND_API.G_MISS_NUM,
1967: p_organization_id IN NUMBER,
1968: p_category_set_id IN NUMBER,
1969: x_item_csr OUT NOCOPY IBE_CATALOG_REFCURSOR_CSR_TYPE,
1970: x_category_id_csr OUT NOCOPY IBE_CATALOG_REFCURSOR_CSR_TYPE,
1992: l_end_time NUMBER;
1993: l_init_msg_list VARCHAR2(5);
1994:
1995: BEGIN
1996: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: END IF;
1999:
2000: IF p_init_msg_list IS NULL THEN
1993: l_init_msg_list VARCHAR2(5);
1994:
1995: BEGIN
1996: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: END IF;
1999:
2000: IF p_init_msg_list IS NULL THEN
2001: l_init_msg_list := FND_API.G_FALSE;
1997: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1998: END IF;
1999:
2000: IF p_init_msg_list IS NULL THEN
2001: l_init_msg_list := FND_API.G_FALSE;
2002: END IF;
2003:
2004: -- initialize message list if L_init_msg_list is set to TRUE
2005: IF FND_API.to_Boolean(l_init_msg_list) THEN
2001: l_init_msg_list := FND_API.G_FALSE;
2002: END IF;
2003:
2004: -- initialize message list if L_init_msg_list is set to TRUE
2005: IF FND_API.to_Boolean(l_init_msg_list) THEN
2006: FND_MSG_PUB.initialize;
2007: END IF;
2008:
2009: -- initialize API return status to success
2006: FND_MSG_PUB.initialize;
2007: END IF;
2008:
2009: -- initialize API return status to success
2010: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011:
2012:
2013: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2014: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_ITEM(+)');
2009: -- initialize API return status to success
2010: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011:
2012:
2013: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2014: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_ITEM(+)');
2015: END IF;
2016: l_start_time := DBMS_UTILITY.GET_TIME;
2017:
2019: Get_Basic_Item_Load_Query(p_load_level, l_itm_stmt);
2020:
2021: IF p_itmid IS NULL THEN
2022: IF p_partnum IS NULL THEN
2023: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2024: IBE_UTIL.debug('Error: p_itm_id and p_accessname are both NULL');
2025: END IF;
2026: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2027: FND_MESSAGE.Set_Token('ID_NAME', p_partnum);
2025: END IF;
2026: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2027: FND_MESSAGE.Set_Token('ID_NAME', p_partnum);
2028: FND_MSG_PUB.Add;
2029: RAISE FND_API.G_EXC_ERROR;
2030: ELSE
2031: --loading by part number
2032:
2033: -- need to get item id
2044: -- add check in where clause for organization id, active dates, web_status
2045: l_itm_stmt := l_itm_stmt || 'WHERE MSIV.INVENTORY_ITEM_ID = :p_itmid ' ||
2046: ' AND MSIV.ORGANIZATION_ID = :p_organization_id ';
2047:
2048: IF NOT FND_API.to_Boolean(p_preview_flag) THEN
2049: l_itm_stmt := l_itm_stmt || ' AND MSIV.WEB_STATUS = ''PUBLISHED'' ';
2050: END IF;
2051:
2052: l_itm_stmt := l_itm_stmt ||
2085:
2086: -- call configurator API
2087: l_resp_id := FND_PROFILE.value('RESP_ID');
2088: l_resp_appl_id := FND_PROFILE.value('RESP_APPL_ID');
2089: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2090: IBE_UTIL.debug('Calling CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2091: ibe_util.debug('item id=' || l_itmid);
2092: ibe_util.debug('organization id=' || p_organization_id);
2093: ibe_util.debug('responsibility id=' || l_resp_id);
2094: ibe_util.debug('application id=' || l_resp_appl_id);
2095: END IF;
2096:
2097: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (l_itmid, p_organization_id, SYSDATE,
2098: 'DHTML', FND_API.G_MISS_NUM, l_resp_id, l_resp_appl_id);
2099: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2100: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2101: ibe_util.debug('ui_def_id=' || l_ui_def_id);
2102: END IF;
2095: END IF;
2096:
2097: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (l_itmid, p_organization_id, SYSDATE,
2098: 'DHTML', FND_API.G_MISS_NUM, l_resp_id, l_resp_appl_id);
2099: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2100: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2101: ibe_util.debug('ui_def_id=' || l_ui_def_id);
2102: END IF;
2103: IF l_ui_def_id IS NULL THEN
2100: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2101: ibe_util.debug('ui_def_id=' || l_ui_def_id);
2102: END IF;
2103: IF l_ui_def_id IS NULL THEN
2104: x_configurable := FND_API.G_FALSE;
2105: ELSE
2106: x_configurable := FND_API.G_TRUE;
2107: END IF;
2108:
2102: END IF;
2103: IF l_ui_def_id IS NULL THEN
2104: x_configurable := FND_API.G_FALSE;
2105: ELSE
2106: x_configurable := FND_API.G_TRUE;
2107: END IF;
2108:
2109: IF /*l_bom_item_type = 1 AND*/ x_configurable = FND_API.G_FALSE THEN
2110: x_model_bundle_flag := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0, p_model_id =>l_itmid, p_organization_id => p_organization_id);
2105: ELSE
2106: x_configurable := FND_API.G_TRUE;
2107: END IF;
2108:
2109: IF /*l_bom_item_type = 1 AND*/ x_configurable = FND_API.G_FALSE THEN
2110: x_model_bundle_flag := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0, p_model_id =>l_itmid, p_organization_id => p_organization_id);
2111: ELSE
2112: x_model_bundle_flag := FND_API.G_FALSE;
2113: END IF;
2108:
2109: IF /*l_bom_item_type = 1 AND*/ x_configurable = FND_API.G_FALSE THEN
2110: x_model_bundle_flag := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0, p_model_id =>l_itmid, p_organization_id => p_organization_id);
2111: ELSE
2112: x_model_bundle_flag := FND_API.G_FALSE;
2113: END IF;
2114:
2115: l_end_time := DBMS_UTILITY.GET_TIME;
2116: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2112: x_model_bundle_flag := FND_API.G_FALSE;
2113: END IF;
2114:
2115: l_end_time := DBMS_UTILITY.GET_TIME;
2116: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2117: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_ITEM(-), elapsed time (s) ='||(l_end_time-l_start_time)/100);
2118: END IF;
2119: --end API body
2120:
2119: --end API body
2120:
2121: -- standard call to get message count and if count is 1, get message info.
2122: FND_MSG_PUB.Count_And_Get
2123: ( p_encoded => FND_API.G_FALSE,
2124: p_count => x_msg_count,
2125: p_data => x_msg_data
2126: );
2127: EXCEPTION
2124: p_count => x_msg_count,
2125: p_data => x_msg_data
2126: );
2127: EXCEPTION
2128: WHEN FND_API.G_EXC_ERROR THEN
2129: x_return_status := FND_API.G_RET_STS_ERROR;
2130: FND_MSG_PUB.Count_And_Get
2131: ( p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2125: p_data => x_msg_data
2126: );
2127: EXCEPTION
2128: WHEN FND_API.G_EXC_ERROR THEN
2129: x_return_status := FND_API.G_RET_STS_ERROR;
2130: FND_MSG_PUB.Count_And_Get
2131: ( p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data
2127: EXCEPTION
2128: WHEN FND_API.G_EXC_ERROR THEN
2129: x_return_status := FND_API.G_RET_STS_ERROR;
2130: FND_MSG_PUB.Count_And_Get
2131: ( p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data
2134: );
2135: --gzhang 08/08/2002, bug#2488246
2133: p_data => x_msg_data
2134: );
2135: --gzhang 08/08/2002, bug#2488246
2136: --ibe_util.disable_debug;
2137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2139: FND_MSG_PUB.Count_And_Get
2140: ( p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2134: );
2135: --gzhang 08/08/2002, bug#2488246
2136: --ibe_util.disable_debug;
2137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2139: FND_MSG_PUB.Count_And_Get
2140: ( p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data
2136: --ibe_util.disable_debug;
2137: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2138: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2139: FND_MSG_PUB.Count_And_Get
2140: ( p_encoded => FND_API.G_FALSE,
2141: p_count => x_msg_count,
2142: p_data => x_msg_data
2143: );
2144: --gzhang 08/08/2002, bug#2488246
2143: );
2144: --gzhang 08/08/2002, bug#2488246
2145: --ibe_util.disable_debug;
2146: WHEN OTHERS THEN
2147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2148: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2149: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2150: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2151: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2157: l_api_name
2158: );
2159: END IF;
2160: FND_MSG_PUB.Count_And_Get
2161: ( p_encoded => FND_API.G_FALSE,
2162: p_count => x_msg_count,
2163: p_data => x_msg_data
2164: );
2165: --gzhang 08/08/2002, bug#2488246
2168:
2169: Procedure FETCH_PRICE
2170: (p_itmid IN NUMBER,
2171: p_model_bundle_flag IN VARCHAR2,
2172: p_model_id IN NUMBER := FND_API.G_MISS_NUM,
2173: p_organization_id IN NUMBER,
2174: p_price_list_id IN NUMBER,
2175: p_currency_code IN VARCHAR2,
2176: p_price_request_type IN VARCHAR2,
2218: l_end_time NUMBER;
2219:
2220:
2221: BEGIN
2222: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2223: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_PRICE(+), item ='||p_itmid);
2224: END IF;
2225: l_start_time := DBMS_UTILITY.GET_TIME;
2226:
2225: l_start_time := DBMS_UTILITY.GET_TIME;
2226:
2227: --don't convert model_id=-1 here
2228: --IF p_model_id = -1 THEN
2229: --l_model_id := FND_API.G_MISS_NUM;
2230: --ELSE
2231: l_model_id := p_model_id;
2232: --END IF;
2233: l_model_id_tbl := JTF_NUMBER_TABLE();
2232: --END IF;
2233: l_model_id_tbl := JTF_NUMBER_TABLE();
2234: idx := 1;
2235: l_retrieve_all_uom := fnd_profile.value_specific('IBE_RETRIEVE_ALL_ITEM_UOMS', NULL, NULL, 671);
2236: IF p_model_bundle_flag = FND_API.G_TRUE OR l_retrieve_all_uom = 'N' THEN
2237: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2238: IBE_UTIL.debug('pricing for primary uom only...');
2239: END IF;
2240: OPEN l_primary_uom_csr;
2233: l_model_id_tbl := JTF_NUMBER_TABLE();
2234: idx := 1;
2235: l_retrieve_all_uom := fnd_profile.value_specific('IBE_RETRIEVE_ALL_ITEM_UOMS', NULL, NULL, 671);
2236: IF p_model_bundle_flag = FND_API.G_TRUE OR l_retrieve_all_uom = 'N' THEN
2237: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2238: IBE_UTIL.debug('pricing for primary uom only...');
2239: END IF;
2240: OPEN l_primary_uom_csr;
2241: FETCH l_primary_uom_csr INTO l_primary_uom;
2241: FETCH l_primary_uom_csr INTO l_primary_uom;
2242: IF l_primary_uom_csr%FOUND THEN
2243: l_uom_code_tbl(idx) := l_primary_uom;
2244: ELSE
2245: l_uom_code_tbl(idx) := FND_API.G_MISS_CHAR;
2246: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2247: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':no primary uom code found');
2248: END IF;
2249: END IF;
2242: IF l_primary_uom_csr%FOUND THEN
2243: l_uom_code_tbl(idx) := l_primary_uom;
2244: ELSE
2245: l_uom_code_tbl(idx) := FND_API.G_MISS_CHAR;
2246: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2247: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':no primary uom code found');
2248: END IF;
2249: END IF;
2250: CLOSE l_primary_uom_csr;
2253: l_line_quantity_tbl(idx) := 1;
2254: l_model_id_tbl.EXTEND;
2255: l_model_id_tbl(idx) := l_model_id;
2256: idx := idx + 1;
2257: IF p_model_bundle_flag = FND_API.G_TRUE THEN
2258: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2259: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':loading component items...');
2260: END IF;
2261: IBE_CCTBOM_PVT.Load_Components(p_api_version =>1.0,
2254: l_model_id_tbl.EXTEND;
2255: l_model_id_tbl(idx) := l_model_id;
2256: idx := idx + 1;
2257: IF p_model_bundle_flag = FND_API.G_TRUE THEN
2258: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2259: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':loading component items...');
2260: END IF;
2261: IBE_CCTBOM_PVT.Load_Components(p_api_version =>1.0,
2262: x_return_status=>l_return_status,
2264: x_msg_count =>l_msg_count,
2265: p_model_id =>p_itmid,
2266: p_organization_id =>p_organization_id,
2267: x_item_csr =>l_bom_item_csr);
2268: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2269: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2270: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':adding component items..., idx='||idx);
2271: END IF;
2272: FETCH l_bom_item_csr INTO l_bom_exp_rec;
2265: p_model_id =>p_itmid,
2266: p_organization_id =>p_organization_id,
2267: x_item_csr =>l_bom_item_csr);
2268: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2269: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2270: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':adding component items..., idx='||idx);
2271: END IF;
2272: FETCH l_bom_item_csr INTO l_bom_exp_rec;
2273: WHILE l_bom_item_csr%FOUND LOOP
2279: idx := idx + 1;
2280: FETCH l_bom_item_csr INTO l_bom_exp_rec;
2281: END LOOP;
2282: CLOSE l_bom_item_csr;
2283: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2284: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':component items added to request line, idx='||idx);
2285: END IF;
2286: ELSE
2287: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2283: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2284: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':component items added to request line, idx='||idx);
2285: END IF;
2286: ELSE
2287: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2288: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':Failed to load component items');
2289: END IF;
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2286: ELSE
2287: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2288: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':Failed to load component items');
2289: END IF;
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2292: END IF;
2293: ELSE
2294: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2290: RAISE FND_API.G_EXC_ERROR;
2291: END IF;
2292: END IF;
2293: ELSE
2294: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2295: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': pricing for all uom codes...');
2296: END IF;
2297: FOR uom_rec IN l_item_uom_csr LOOP
2298: l_uom_code_tbl(idx) := uom_rec.UOM_CODE;
2303: idx := idx + 1;
2304: END LOOP;
2305: END IF;
2306:
2307: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2308: IBE_UTIL.debug('Calling IBE_PRICE_PVT.PRICE_REQUEST...');
2309: END IF;
2310: IBE_PRICE_PVT.PRICE_REQUEST(
2311: p_price_list_id => p_price_list_id,
2324: x_return_status => x_return_status,
2325: x_return_status_text=> x_return_status_text);
2326:
2327: l_end_time := DBMS_UTILITY.GET_TIME;
2328: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2329: IBE_UTIL.debug('Return from IBE_PRICE_PVT.PRICE_REQUEST');
2330: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_PRICE(-), elapsed time (s) ='||(l_end_time-l_start_time)/100);
2331: END IF;
2332: --end API body
2332: --end API body
2333:
2334: EXCEPTION
2335: WHEN OTHERS THEN
2336: x_return_status := FND_API.G_RET_STS_ERROR;
2337: x_return_status_text :=SQLERRM;
2338: END FETCH_PRICE;
2339:
2340: Procedure LOAD_ITEM
2339:
2340: Procedure LOAD_ITEM
2341: (p_api_version IN NUMBER,
2342: p_init_msg_list IN VARCHAR2 := NULL,
2343: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2344: x_return_status OUT NOCOPY VARCHAR2,
2345: x_msg_count OUT NOCOPY NUMBER,
2346: x_msg_data OUT NOCOPY VARCHAR2,
2347:
2348: p_load_level IN NUMBER,
2349: p_preview_flag IN VARCHAR2,
2350: p_itmid IN NUMBER,
2351: p_partnum IN VARCHAR2,
2352: p_model_id IN NUMBER := FND_API.G_MISS_NUM,
2353: p_organization_id IN NUMBER,
2354: p_category_set_id IN NUMBER,
2355: p_retrieve_price IN VARCHAR2,
2356:
2384: l_init_msg_list VARCHAR2(5);
2385:
2386: BEGIN
2387: -- standard call to check for call compatibility
2388: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
2389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2390: END IF;
2391: IF p_init_msg_list IS NULL THEN
2392: l_init_msg_list := FND_API.G_FALSE;
2385:
2386: BEGIN
2387: -- standard call to check for call compatibility
2388: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
2389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2390: END IF;
2391: IF p_init_msg_list IS NULL THEN
2392: l_init_msg_list := FND_API.G_FALSE;
2393: END IF;
2388: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
2389: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2390: END IF;
2391: IF p_init_msg_list IS NULL THEN
2392: l_init_msg_list := FND_API.G_FALSE;
2393: END IF;
2394:
2395: -- initialize message list if p_init_msg_list is set to TRUE
2396: IF FND_API.to_Boolean(p_init_msg_list) THEN
2392: l_init_msg_list := FND_API.G_FALSE;
2393: END IF;
2394:
2395: -- initialize message list if p_init_msg_list is set to TRUE
2396: IF FND_API.to_Boolean(p_init_msg_list) THEN
2397: FND_MSG_PUB.initialize;
2398: END IF;
2399:
2400: -- initialize API return status to success
2397: FND_MSG_PUB.initialize;
2398: END IF;
2399:
2400: -- initialize API return status to success
2401: x_return_status := FND_API.G_RET_STS_SUCCESS;
2402:
2403: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2404: IBE_UTIL.debug('IBE_CATALOG_PVT.LOAD_ITEM(+)');
2405: END IF;
2399:
2400: -- initialize API return status to success
2401: x_return_status := FND_API.G_RET_STS_SUCCESS;
2402:
2403: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2404: IBE_UTIL.debug('IBE_CATALOG_PVT.LOAD_ITEM(+)');
2405: END IF;
2406: l_start_time := DBMS_UTILITY.GET_TIME;
2407: -- load item inventory info
2426: x_uom_csr
2427: );
2428:
2429:
2430: IF FND_API.to_Boolean(p_retrieve_price) THEN
2431: FETCH_PRICE(
2432: p_itmid =>p_itmid,
2433: p_model_bundle_flag => x_model_bundle_flag,
2434: p_model_id =>p_model_id,
2444: x_return_status_text => x_price_status_text);
2445: END IF;
2446:
2447: l_end_time := DBMS_UTILITY.GET_TIME;
2448: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2449: IBE_UTIL.debug('IBE_CATALOG_PVT.LOAD_ITEM(-), elapsed time (s) ='||(l_end_time-l_start_time)/100);
2450: END IF;
2451: --end API body
2452:
2451: --end API body
2452:
2453: -- standard call to get message count and if count is 1, get message info.
2454: FND_MSG_PUB.Count_And_Get
2455: ( p_encoded => FND_API.G_FALSE,
2456: p_count => x_msg_count,
2457: p_data => x_msg_data
2458: );
2459: EXCEPTION
2456: p_count => x_msg_count,
2457: p_data => x_msg_data
2458: );
2459: EXCEPTION
2460: WHEN FND_API.G_EXC_ERROR THEN
2461: x_return_status := FND_API.G_RET_STS_ERROR;
2462: FND_MSG_PUB.Count_And_Get
2463: ( p_encoded => FND_API.G_FALSE,
2464: p_count => x_msg_count,
2457: p_data => x_msg_data
2458: );
2459: EXCEPTION
2460: WHEN FND_API.G_EXC_ERROR THEN
2461: x_return_status := FND_API.G_RET_STS_ERROR;
2462: FND_MSG_PUB.Count_And_Get
2463: ( p_encoded => FND_API.G_FALSE,
2464: p_count => x_msg_count,
2465: p_data => x_msg_data
2459: EXCEPTION
2460: WHEN FND_API.G_EXC_ERROR THEN
2461: x_return_status := FND_API.G_RET_STS_ERROR;
2462: FND_MSG_PUB.Count_And_Get
2463: ( p_encoded => FND_API.G_FALSE,
2464: p_count => x_msg_count,
2465: p_data => x_msg_data
2466: );
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2463: ( p_encoded => FND_API.G_FALSE,
2464: p_count => x_msg_count,
2465: p_data => x_msg_data
2466: );
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: FND_MSG_PUB.Count_And_Get
2470: ( p_encoded => FND_API.G_FALSE,
2471: p_count => x_msg_count,
2464: p_count => x_msg_count,
2465: p_data => x_msg_data
2466: );
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: FND_MSG_PUB.Count_And_Get
2470: ( p_encoded => FND_API.G_FALSE,
2471: p_count => x_msg_count,
2472: p_data => x_msg_data
2466: );
2467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: FND_MSG_PUB.Count_And_Get
2470: ( p_encoded => FND_API.G_FALSE,
2471: p_count => x_msg_count,
2472: p_data => x_msg_data
2473: );
2474: WHEN OTHERS THEN
2471: p_count => x_msg_count,
2472: p_data => x_msg_data
2473: );
2474: WHEN OTHERS THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2477: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2478: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2479: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2485: l_api_name
2486: );
2487: END IF;
2488: FND_MSG_PUB.Count_And_Get
2489: ( p_encoded => FND_API.G_FALSE,
2490: p_count => x_msg_count,
2491: p_data => x_msg_data
2492: );
2493: END LOAD_ITEM;
2542:
2543: BEGIN
2544:
2545: -- initialize API return status to success
2546: x_return_status := FND_API.G_RET_STS_SUCCESS;
2547:
2548: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2549: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_ITEMS(+)');
2550: END IF;
2544:
2545: -- initialize API return status to success
2546: x_return_status := FND_API.G_RET_STS_SUCCESS;
2547:
2548: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2549: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_ITEMS(+)');
2550: END IF;
2551: l_start_time := DBMS_UTILITY.GET_TIME;
2552:
2554: l_itmid_tbl := JTF_NUMBER_TABLE();
2555:
2556: IF p_itmid_tbl IS NULL THEN
2557: IF p_partnum_tbl IS NULL THEN
2558: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2559: IBE_UTIL.debug('Error: p_itmid_tbl and p_partnum_tbl are both NULL');
2560: END IF;
2561: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2562: FND_MESSAGE.Set_Token('ID_NAME', 'NULL');
2560: END IF;
2561: FND_MESSAGE.Set_Name('IBE', 'IBE_CT_INVALID_ID_OR_NAME');
2562: FND_MESSAGE.Set_Token('ID_NAME', 'NULL');
2563: FND_MSG_PUB.Add;
2564: RAISE FND_API.G_EXC_ERROR;
2565: RETURN;
2566: ELSE
2567: --loading by part number
2568: l_itmid_index := 1;
2579: l_itmid_tbl(l_table_index) := l_itmid;
2580:
2581: ELSE
2582: l_itmid_tbl.EXTEND;
2583: l_itmid_tbl(l_table_index) := FND_API.G_MISS_NUM;
2584: END IF;
2585: CLOSE l_itmid_csr;
2586:
2587: END LOOP;
2626: l_resp_id := FND_PROFILE.value('RESP_ID');
2627: l_resp_appl_id := FND_PROFILE.value('RESP_APPL_ID');
2628:
2629: FOR l_table_index IN 1..x_configurable_tbl.COUNT LOOP
2630: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2631: IBE_UTIL.debug('Calling CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2632: ibe_util.debug('item id=' || l_itmid_tbl(l_table_index));
2633: ibe_util.debug('organization id=' || p_organization_id);
2634: ibe_util.debug('responsibility id=' || l_resp_id);
2634: ibe_util.debug('responsibility id=' || l_resp_id);
2635: ibe_util.debug('application id=' || l_resp_appl_id);
2636: END IF;
2637: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (l_itmid_tbl(l_table_index), p_organization_id,
2638: SYSDATE, 'DHTML', FND_API.G_MISS_NUM,
2639: l_resp_id, l_resp_appl_id);
2640: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2641: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2642: ibe_util.debug('ui_def_id=' || l_ui_def_id);
2636: END IF;
2637: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (l_itmid_tbl(l_table_index), p_organization_id,
2638: SYSDATE, 'DHTML', FND_API.G_MISS_NUM,
2639: l_resp_id, l_resp_appl_id);
2640: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2641: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
2642: ibe_util.debug('ui_def_id=' || l_ui_def_id);
2643: END IF;
2644:
2642: ibe_util.debug('ui_def_id=' || l_ui_def_id);
2643: END IF;
2644:
2645: IF l_ui_def_id IS NULL THEN
2646: x_configurable_tbl(l_table_index) := FND_API.G_FALSE;
2647: ELSE
2648: x_configurable_tbl(l_table_index) := FND_API.G_TRUE;
2649: END IF;
2650:
2644:
2645: IF l_ui_def_id IS NULL THEN
2646: x_configurable_tbl(l_table_index) := FND_API.G_FALSE;
2647: ELSE
2648: x_configurable_tbl(l_table_index) := FND_API.G_TRUE;
2649: END IF;
2650:
2651: IF x_configurable_tbl(l_table_index) = FND_API.G_FALSE THEN
2652: x_model_bundle_flag_tbl(l_table_index) := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0, p_model_id =>l_itmid_tbl(l_table_index), p_organization_id => p_organization_id);
2647: ELSE
2648: x_configurable_tbl(l_table_index) := FND_API.G_TRUE;
2649: END IF;
2650:
2651: IF x_configurable_tbl(l_table_index) = FND_API.G_FALSE THEN
2652: x_model_bundle_flag_tbl(l_table_index) := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0, p_model_id =>l_itmid_tbl(l_table_index), p_organization_id => p_organization_id);
2653: ELSE
2654: x_model_bundle_flag_tbl(l_table_index) := FND_API.G_FALSE;
2655: END IF;
2650:
2651: IF x_configurable_tbl(l_table_index) = FND_API.G_FALSE THEN
2652: x_model_bundle_flag_tbl(l_table_index) := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0, p_model_id =>l_itmid_tbl(l_table_index), p_organization_id => p_organization_id);
2653: ELSE
2654: x_model_bundle_flag_tbl(l_table_index) := FND_API.G_FALSE;
2655: END IF;
2656: END LOOP;
2657:
2658: l_end_time := DBMS_UTILITY.GET_TIME;
2655: END IF;
2656: END LOOP;
2657:
2658: l_end_time := DBMS_UTILITY.GET_TIME;
2659: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2660: IBE_UTIL.debug('IBE_CATALOG_PVT.FETCH_ITEMS(-), elapsed time (s) ='||(l_end_time-l_start_time)/100);
2661: END IF;
2662: --end API body
2663:
2663:
2664: -- standard call to get message count and if count is 1, get message info.
2665: EXCEPTION
2666: WHEN OTHERS THEN
2667: x_return_status := FND_API.G_RET_STS_ERROR;
2668: x_return_status_text :=SQLERRM;
2669: END FETCH_ITEMS;
2670:
2671: Procedure FETCH_PRICES(
2721: l_start_time NUMBER;
2722: l_end_time NUMBER;
2723:
2724: BEGIN
2725: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2726: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':BEGIN');
2727: END IF;
2728: l_start_time := DBMS_UTILITY.GET_TIME;
2729: l_retrieve_all_uom := fnd_profile.value_specific('IBE_RETRIEVE_ALL_ITEM_UOMS', NULL, NULL, 671);
2728: l_start_time := DBMS_UTILITY.GET_TIME;
2729: l_retrieve_all_uom := fnd_profile.value_specific('IBE_RETRIEVE_ALL_ITEM_UOMS', NULL, NULL, 671);
2730: l_model_id_tbl := JTF_NUMBER_TABLE();
2731: idx := 1;
2732: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2733: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':l_retrieve_all_uom='||l_retrieve_all_uom);
2734: END IF;
2735: FOR l_table_index IN 1..p_itmid_tbl.COUNT LOOP
2736: -- construct item id tbl, uomcode tbl to pass into pricing engine if retrieving price
2734: END IF;
2735: FOR l_table_index IN 1..p_itmid_tbl.COUNT LOOP
2736: -- construct item id tbl, uomcode tbl to pass into pricing engine if retrieving price
2737: l_itmid := p_itmid_tbl(l_table_index);
2738: IF p_model_bundle_flag_tbl(l_table_index) = FND_API.G_TRUE OR l_retrieve_all_uom = 'N' THEN
2739: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2740: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': only pricing primary uom');
2741: END IF;
2742: OPEN l_primary_uom_csr(l_itmid);
2735: FOR l_table_index IN 1..p_itmid_tbl.COUNT LOOP
2736: -- construct item id tbl, uomcode tbl to pass into pricing engine if retrieving price
2737: l_itmid := p_itmid_tbl(l_table_index);
2738: IF p_model_bundle_flag_tbl(l_table_index) = FND_API.G_TRUE OR l_retrieve_all_uom = 'N' THEN
2739: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2740: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': only pricing primary uom');
2741: END IF;
2742: OPEN l_primary_uom_csr(l_itmid);
2743: FETCH l_primary_uom_csr INTO l_primary_uom;
2743: FETCH l_primary_uom_csr INTO l_primary_uom;
2744: IF l_primary_uom_csr%FOUND THEN
2745: l_uom_code_tbl(idx) := l_primary_uom;
2746: ELSE
2747: l_uom_code_tbl(idx) := FND_API.G_MISS_CHAR;
2748: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2749: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':item has no primary uom code, item='||l_itmid);
2750: END IF;
2751: END IF;
2744: IF l_primary_uom_csr%FOUND THEN
2745: l_uom_code_tbl(idx) := l_primary_uom;
2746: ELSE
2747: l_uom_code_tbl(idx) := FND_API.G_MISS_CHAR;
2748: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2749: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':item has no primary uom code, item='||l_itmid);
2750: END IF;
2751: END IF;
2752: CLOSE l_primary_uom_csr;
2756: --don't covert model_id=-1 here
2757: --IF p_model_id_tbl(l_table_index) <> -1 THEN
2758: l_model_id_tbl(idx) := p_model_id_tbl(l_table_index);
2759: --ELSE
2760: --l_model_id_tbl(idx) := FND_API.G_MISS_NUM;
2761: --END IF;
2762: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2763: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': item ='||l_itmid||', primary uom='||l_primary_uom);
2764: END IF;
2758: l_model_id_tbl(idx) := p_model_id_tbl(l_table_index);
2759: --ELSE
2760: --l_model_id_tbl(idx) := FND_API.G_MISS_NUM;
2761: --END IF;
2762: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2763: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': item ='||l_itmid||', primary uom='||l_primary_uom);
2764: END IF;
2765: idx := idx + 1;
2766:
2763: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': item ='||l_itmid||', primary uom='||l_primary_uom);
2764: END IF;
2765: idx := idx + 1;
2766:
2767: IF p_model_bundle_flag_tbl(l_table_index) = FND_API.G_TRUE THEN
2768: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2769: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':loading component items...');
2770: END IF;
2771: IBE_CCTBOM_PVT.Load_Components(p_api_version =>1.0,
2764: END IF;
2765: idx := idx + 1;
2766:
2767: IF p_model_bundle_flag_tbl(l_table_index) = FND_API.G_TRUE THEN
2768: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2769: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':loading component items...');
2770: END IF;
2771: IBE_CCTBOM_PVT.Load_Components(p_api_version =>1.0,
2772: x_return_status=>l_return_status,
2774: x_msg_count =>l_msg_count,
2775: p_model_id =>l_itmid,
2776: p_organization_id =>p_organization_id,
2777: x_item_csr =>l_bom_item_csr);
2778: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2779: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2780: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':adding component items..., idx='||idx);
2781: END IF;
2782: FETCH l_bom_item_csr INTO l_bom_exp_rec;
2775: p_model_id =>l_itmid,
2776: p_organization_id =>p_organization_id,
2777: x_item_csr =>l_bom_item_csr);
2778: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2779: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2780: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':adding component items..., idx='||idx);
2781: END IF;
2782: FETCH l_bom_item_csr INTO l_bom_exp_rec;
2783: WHILE l_bom_item_csr%FOUND LOOP
2789: idx := idx + 1;
2790: FETCH l_bom_item_csr INTO l_bom_exp_rec;
2791: END LOOP;
2792: CLOSE l_bom_item_csr;
2793: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2794: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':component items added to request line, idx='||idx);
2795: END IF;
2796: ELSE
2797: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2793: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2794: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':component items added to request line, idx='||idx);
2795: END IF;
2796: ELSE
2797: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2798: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':failed to load component items');
2799: END IF;
2800: END IF;
2801: END IF;
2808: --don't convert model_id=-1 here
2809: --IF p_model_id_tbl(l_table_index) <> -1 THEN
2810: l_model_id_tbl(idx) := p_model_id_tbl(l_table_index);
2811: --ELSE
2812: --l_model_id_tbl(idx) := FND_API.G_MISS_NUM;
2813: --END IF;
2814: --IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': line '||idx||', item='||l_itmid_tbl(idx)||',uom='||l_uom_code_tbl(idx)||',model id='||l_model_id_tbl(idx));
2815: idx := idx + 1;
2816: END LOOP;
2815: idx := idx + 1;
2816: END LOOP;
2817: END IF;
2818: END LOOP;
2819: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2820: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':uom codes loaded');
2821: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':request pricing...');
2822: END IF;
2823:
2841: x_return_status_text=> x_return_status_text);
2842:
2843:
2844: l_end_time := DBMS_UTILITY.GET_TIME;
2845: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2846: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':pricing done');
2847: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':END, elapsed time (s) ='||(l_end_time-l_start_time)/100);
2848: END IF;
2849: --end API body
2849: --end API body
2850:
2851: EXCEPTION
2852: WHEN OTHERS THEN
2853: x_return_status := FND_API.G_RET_STS_ERROR;
2854: x_return_status_text :=SQLERRM;
2855: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2856: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':'||SQLERRM);
2857: END IF;
2851: EXCEPTION
2852: WHEN OTHERS THEN
2853: x_return_status := FND_API.G_RET_STS_ERROR;
2854: x_return_status_text :=SQLERRM;
2855: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2856: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':'||SQLERRM);
2857: END IF;
2858: END FETCH_PRICES;
2859:
2859:
2860: Procedure LOAD_ITEMS
2861: (p_api_version IN NUMBER,
2862: p_init_msg_list IN VARCHAR2 := NULL,
2863: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2864: x_return_status OUT NOCOPY VARCHAR2,
2865: x_msg_count OUT NOCOPY NUMBER,
2866: x_msg_data OUT NOCOPY VARCHAR2,
2867:
2894: l_start_time NUMBER;
2895: l_end_time NUMBER;
2896: l_init_msg_list VARCHAR2(5);
2897: BEGIN
2898: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2899: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':BEGIN');
2900: END IF;
2901: IF NOT FND_API.Compatible_API_Call (l_api_version,
2902: p_api_version,
2897: BEGIN
2898: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2899: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':BEGIN');
2900: END IF;
2901: IF NOT FND_API.Compatible_API_Call (l_api_version,
2902: p_api_version,
2903: l_api_name,
2904: G_PKG_NAME )
2905: THEN
2902: p_api_version,
2903: l_api_name,
2904: G_PKG_NAME )
2905: THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: END IF;
2908: IF p_init_msg_list IS NULL THEN
2909: l_init_msg_list := FND_API.G_FALSE;
2910: END IF;
2905: THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: END IF;
2908: IF p_init_msg_list IS NULL THEN
2909: l_init_msg_list := FND_API.G_FALSE;
2910: END IF;
2911: -- initialize message list if L_init_msg_list is set to TRUE
2912: IF FND_API.to_Boolean(l_init_msg_list) THEN
2913: FND_MSG_PUB.initialize;
2908: IF p_init_msg_list IS NULL THEN
2909: l_init_msg_list := FND_API.G_FALSE;
2910: END IF;
2911: -- initialize message list if L_init_msg_list is set to TRUE
2912: IF FND_API.to_Boolean(l_init_msg_list) THEN
2913: FND_MSG_PUB.initialize;
2914: END IF;
2915:
2916: -- initialize API return status to success
2913: FND_MSG_PUB.initialize;
2914: END IF;
2915:
2916: -- initialize API return status to success
2917: x_return_status := FND_API.G_RET_STS_SUCCESS;
2918:
2919: -- load inv info
2920: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2921: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': Loading inventory info...');
2916: -- initialize API return status to success
2917: x_return_status := FND_API.G_RET_STS_SUCCESS;
2918:
2919: -- load inv info
2920: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2921: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': Loading inventory info...');
2922: END IF;
2923: l_start_time := DBMS_UTILITY.GET_TIME;
2924: FETCH_ITEMS(p_load_level =>p_load_level,
2933: x_return_status_text =>l_return_status_text);
2934:
2935:
2936: -- pricing
2937: IF FND_API.to_Boolean(p_retrieve_price) THEN
2938: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2939: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': Loading prices...');
2940: END IF;
2941: FETCH_PRICES(
2934:
2935:
2936: -- pricing
2937: IF FND_API.to_Boolean(p_retrieve_price) THEN
2938: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2939: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': Loading prices...');
2940: END IF;
2941: FETCH_PRICES(
2942: p_itmid_tbl =>p_itmid_tbl,
2951: x_price_csr => x_price_csr,
2952: x_line_index_tbl=> x_line_index_tbl,
2953: x_return_status => x_price_status_code,
2954: x_return_status_text => x_price_status_text);
2955: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2956: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||': prices loaded');
2957: END IF;
2958: END IF;
2959: --end API body
2958: END IF;
2959: --end API body
2960:
2961: -- standard call to get message count and if count is 1, get message info.
2962: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_count => x_msg_count, p_data => x_msg_data);
2963: l_end_time := DBMS_UTILITY.GET_TIME;
2964: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2965: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':END, elapsed time (s) ='||(l_end_time-l_start_time)/100);
2966: END IF;
2960:
2961: -- standard call to get message count and if count is 1, get message info.
2962: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE, p_count => x_msg_count, p_data => x_msg_data);
2963: l_end_time := DBMS_UTILITY.GET_TIME;
2964: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
2965: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':END, elapsed time (s) ='||(l_end_time-l_start_time)/100);
2966: END IF;
2967:
2968: EXCEPTION
2965: IBE_UTIL.debug(G_PKG_NAME||'.'||l_api_name||':END, elapsed time (s) ='||(l_end_time-l_start_time)/100);
2966: END IF;
2967:
2968: EXCEPTION
2969: WHEN FND_API.G_EXC_ERROR THEN
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: FND_MSG_PUB.Count_And_Get
2972: ( p_encoded => FND_API.G_FALSE,
2973: p_count => x_msg_count,
2966: END IF;
2967:
2968: EXCEPTION
2969: WHEN FND_API.G_EXC_ERROR THEN
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: FND_MSG_PUB.Count_And_Get
2972: ( p_encoded => FND_API.G_FALSE,
2973: p_count => x_msg_count,
2974: p_data => x_msg_data
2968: EXCEPTION
2969: WHEN FND_API.G_EXC_ERROR THEN
2970: x_return_status := FND_API.G_RET_STS_ERROR;
2971: FND_MSG_PUB.Count_And_Get
2972: ( p_encoded => FND_API.G_FALSE,
2973: p_count => x_msg_count,
2974: p_data => x_msg_data
2975: );
2976: --gzhang 08/08/2002, bug#2488246
2974: p_data => x_msg_data
2975: );
2976: --gzhang 08/08/2002, bug#2488246
2977: --ibe_util.disable_debug;
2978: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2980: FND_MSG_PUB.Count_And_Get
2981: ( p_encoded => FND_API.G_FALSE,
2982: p_count => x_msg_count,
2975: );
2976: --gzhang 08/08/2002, bug#2488246
2977: --ibe_util.disable_debug;
2978: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2980: FND_MSG_PUB.Count_And_Get
2981: ( p_encoded => FND_API.G_FALSE,
2982: p_count => x_msg_count,
2983: p_data => x_msg_data
2977: --ibe_util.disable_debug;
2978: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2979: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2980: FND_MSG_PUB.Count_And_Get
2981: ( p_encoded => FND_API.G_FALSE,
2982: p_count => x_msg_count,
2983: p_data => x_msg_data
2984: );
2985: --gzhang 08/08/2002, bug#2488246
2984: );
2985: --gzhang 08/08/2002, bug#2488246
2986: --ibe_util.disable_debug;
2987: WHEN OTHERS THEN
2988: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2989: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
2990: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
2991: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
2992: FND_MESSAGE.Set_Token('REASON', SQLERRM);
2998: l_api_name
2999: );
3000: END IF;
3001: FND_MSG_PUB.Count_And_Get
3002: ( p_encoded => FND_API.G_FALSE,
3003: p_count => x_msg_count,
3004: p_data => x_msg_data
3005: );
3006: --gzhang 08/08/2002, bug#2488246
3010: PROCEDURE GET_ITEM_TYPE
3011: (
3012: p_api_version IN NUMBER,
3013: p_init_msg_list IN VARCHAR2 := NULL,
3014: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3015: p_item_ids IN JTF_NUMBER_TABLE,
3016: p_organization_id IN NUMBER,
3017: x_item_type OUT NOCOPY JTF_VARCHAR2_TABLE_100,
3018: x_return_status OUT NOCOPY VARCHAR2,
3042: where MSIV.INVENTORY_ITEM_ID IN (select NUM_VAL from IBE_TEMP_TABLE where key =
3043: l_temp_key ) and MSIV.ORGANIZATION_ID = l_org_id;
3044:
3045: BEGIN
3046: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
3047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3048: END IF;
3049: IF p_init_msg_list IS NULL THEN
3050: l_init_msg_list := FND_API.G_FALSE;
3043: l_temp_key ) and MSIV.ORGANIZATION_ID = l_org_id;
3044:
3045: BEGIN
3046: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
3047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3048: END IF;
3049: IF p_init_msg_list IS NULL THEN
3050: l_init_msg_list := FND_API.G_FALSE;
3051: END IF;
3046: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
3047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3048: END IF;
3049: IF p_init_msg_list IS NULL THEN
3050: l_init_msg_list := FND_API.G_FALSE;
3051: END IF;
3052: -- initialize message list if p_init_msg_list is set to TRUE
3053: IF FND_API.to_Boolean(p_init_msg_list) THEN
3054: FND_MSG_PUB.initialize;
3049: IF p_init_msg_list IS NULL THEN
3050: l_init_msg_list := FND_API.G_FALSE;
3051: END IF;
3052: -- initialize message list if p_init_msg_list is set to TRUE
3053: IF FND_API.to_Boolean(p_init_msg_list) THEN
3054: FND_MSG_PUB.initialize;
3055: END IF;
3056:
3057: -- initialize API return status to success
3054: FND_MSG_PUB.initialize;
3055: END IF;
3056:
3057: -- initialize API return status to success
3058: x_return_status := FND_API.G_RET_STS_SUCCESS;
3059: -- Populate the itemIds into a temporary table.
3060: FOR i in p_item_ids.FIRST .. p_item_ids.LAST
3061: LOOP
3062:
3069: x_item_type := JTF_VARCHAR2_TABLE_100();
3070: x_item_type.extend(p_item_ids.COUNT);
3071:
3072: FOR l_table_index IN 1..p_item_ids.COUNT LOOP
3073: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3074: ibe_util.debug('Calling CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3075: ibe_util.debug('item id=' || p_item_ids(l_table_index));
3076: ibe_util.debug('organization id=' || p_organization_id);
3077: ibe_util.debug('responsibility id=' || l_resp_id);
3077: ibe_util.debug('responsibility id=' || l_resp_id);
3078: ibe_util.debug('application id=' || l_resp_appl_id);
3079: END IF;
3080: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (p_item_ids(l_table_index), p_organization_id,
3081: SYSDATE, 'DHTML', FND_API.G_MISS_NUM,
3082: l_resp_id, l_resp_appl_id);
3083: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3084: ibe_util.debug('Return from CZ_CF_API.UI_FOR_ITEM ' ||
3085: TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3079: END IF;
3080: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (p_item_ids(l_table_index), p_organization_id,
3081: SYSDATE, 'DHTML', FND_API.G_MISS_NUM,
3082: l_resp_id, l_resp_appl_id);
3083: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3084: ibe_util.debug('Return from CZ_CF_API.UI_FOR_ITEM ' ||
3085: TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3086: END IF;
3087: IF l_ui_def_id IS NULL THEN
3084: ibe_util.debug('Return from CZ_CF_API.UI_FOR_ITEM ' ||
3085: TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3086: END IF;
3087: IF l_ui_def_id IS NULL THEN
3088: l_configurable := FND_API.G_FALSE;
3089: ELSE
3090: l_configurable := FND_API.G_TRUE;
3091: END IF;
3092:
3086: END IF;
3087: IF l_ui_def_id IS NULL THEN
3088: l_configurable := FND_API.G_FALSE;
3089: ELSE
3090: l_configurable := FND_API.G_TRUE;
3091: END IF;
3092:
3093: -- check if the item is a iStore bundle.
3094: IF l_configurable = FND_API.G_FALSE THEN
3090: l_configurable := FND_API.G_TRUE;
3091: END IF;
3092:
3093: -- check if the item is a iStore bundle.
3094: IF l_configurable = FND_API.G_FALSE THEN
3095: l_model_bundle_flag := IBE_CCTBOM_PVT.Is_Model_Bundle(p_api_version =>1.0,
3096: p_model_id =>p_item_ids(l_table_index), p_organization_id => p_organization_id);
3097: END IF;
3098:
3096: p_model_id =>p_item_ids(l_table_index), p_organization_id => p_organization_id);
3097: END IF;
3098:
3099:
3100: IF (l_model_bundle_flag = FND_API.G_TRUE OR l_configurable = FND_API.G_TRUE) THEN
3101: x_item_type(l_table_index) := IBE_CATALOG_PVT.G_ITEM_MODEL;
3102: END IF;
3103: END LOOP;
3104:
3121: END LOOP;
3122: l_status := IBE_UTIL.delete_from_temp_table(l_temp_key);
3123: CLOSE l_itm_attr_csr;
3124: EXCEPTION
3125: WHEN FND_API.G_EXC_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_ERROR;
3127: FND_MSG_PUB.Count_And_Get
3128: ( p_encoded => FND_API.G_FALSE,
3129: p_count => x_msg_count,
3122: l_status := IBE_UTIL.delete_from_temp_table(l_temp_key);
3123: CLOSE l_itm_attr_csr;
3124: EXCEPTION
3125: WHEN FND_API.G_EXC_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_ERROR;
3127: FND_MSG_PUB.Count_And_Get
3128: ( p_encoded => FND_API.G_FALSE,
3129: p_count => x_msg_count,
3130: p_data => x_msg_data
3124: EXCEPTION
3125: WHEN FND_API.G_EXC_ERROR THEN
3126: x_return_status := FND_API.G_RET_STS_ERROR;
3127: FND_MSG_PUB.Count_And_Get
3128: ( p_encoded => FND_API.G_FALSE,
3129: p_count => x_msg_count,
3130: p_data => x_msg_data
3131: );
3132: --gzhang 08/08/2002, bug#2488246
3130: p_data => x_msg_data
3131: );
3132: --gzhang 08/08/2002, bug#2488246
3133: --ibe_util.disable_debug;
3134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: FND_MSG_PUB.Count_And_Get
3137: ( p_encoded => FND_API.G_FALSE,
3138: p_count => x_msg_count,
3131: );
3132: --gzhang 08/08/2002, bug#2488246
3133: --ibe_util.disable_debug;
3134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: FND_MSG_PUB.Count_And_Get
3137: ( p_encoded => FND_API.G_FALSE,
3138: p_count => x_msg_count,
3139: p_data => x_msg_data
3133: --ibe_util.disable_debug;
3134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3135: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3136: FND_MSG_PUB.Count_And_Get
3137: ( p_encoded => FND_API.G_FALSE,
3138: p_count => x_msg_count,
3139: p_data => x_msg_data
3140: );
3141: --gzhang 08/08/2002, bug#2488246
3140: );
3141: --gzhang 08/08/2002, bug#2488246
3142: --ibe_util.disable_debug;
3143: WHEN OTHERS THEN
3144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3145: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3146: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3147: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3148: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3154: l_api_name
3155: );
3156: END IF;
3157: FND_MSG_PUB.Count_And_Get
3158: ( p_encoded => FND_API.G_FALSE,
3159: p_count => x_msg_count,
3160: p_data => x_msg_data
3161: );
3162:
3165: PROCEDURE IS_ITEM_IN_MINISITE
3166: (
3167: p_api_version IN NUMBER,
3168: p_init_msg_list IN VARCHAR2 := NULL,
3169: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
3170: p_item_ids IN JTF_NUMBER_TABLE,
3171: p_minisite_id IN NUMBER,
3172: x_minisite_item_ids OUT NOCOPY JTF_NUMBER_TABLE,
3173: x_return_status OUT NOCOPY VARCHAR2,
3191: (select NUM_VAL from IBE_TEMP_TABLE where key = l_temp_key );
3192:
3193: BEGIN
3194:
3195: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
3196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3197: END IF;
3198: IF p_init_msg_list IS NULL THEN
3199: l_init_msg_list := FND_API.G_FALSE;
3192:
3193: BEGIN
3194:
3195: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
3196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3197: END IF;
3198: IF p_init_msg_list IS NULL THEN
3199: l_init_msg_list := FND_API.G_FALSE;
3200: END IF;
3195: IF NOT FND_API.Compatible_API_Call (l_api_version,p_api_version,l_api_name,G_PKG_NAME) THEN
3196: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3197: END IF;
3198: IF p_init_msg_list IS NULL THEN
3199: l_init_msg_list := FND_API.G_FALSE;
3200: END IF;
3201: -- initialize message list if l_init_msg_list is set to TRUE
3202: IF FND_API.to_Boolean(l_init_msg_list) THEN
3203: FND_MSG_PUB.initialize;
3198: IF p_init_msg_list IS NULL THEN
3199: l_init_msg_list := FND_API.G_FALSE;
3200: END IF;
3201: -- initialize message list if l_init_msg_list is set to TRUE
3202: IF FND_API.to_Boolean(l_init_msg_list) THEN
3203: FND_MSG_PUB.initialize;
3204: END IF;
3205:
3206: -- initialize API return status to success
3203: FND_MSG_PUB.initialize;
3204: END IF;
3205:
3206: -- initialize API return status to success
3207: x_return_status := FND_API.G_RET_STS_SUCCESS;
3208: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3209: ibe_util.debug('Calling IS_ITEM_IN_MINISITE ' );
3210: END IF;
3211:
3204: END IF;
3205:
3206: -- initialize API return status to success
3207: x_return_status := FND_API.G_RET_STS_SUCCESS;
3208: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3209: ibe_util.debug('Calling IS_ITEM_IN_MINISITE ' );
3210: END IF;
3211:
3212: -- Populate the itemIds into a temporary table.
3228: END LOOP;
3229: l_status := IBE_UTIL.delete_from_temp_table(l_temp_key);
3230: CLOSE l_itms_msite_csr;
3231: EXCEPTION
3232: WHEN FND_API.G_EXC_ERROR THEN
3233: x_return_status := FND_API.G_RET_STS_ERROR;
3234: FND_MSG_PUB.Count_And_Get
3235: ( p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3229: l_status := IBE_UTIL.delete_from_temp_table(l_temp_key);
3230: CLOSE l_itms_msite_csr;
3231: EXCEPTION
3232: WHEN FND_API.G_EXC_ERROR THEN
3233: x_return_status := FND_API.G_RET_STS_ERROR;
3234: FND_MSG_PUB.Count_And_Get
3235: ( p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data
3231: EXCEPTION
3232: WHEN FND_API.G_EXC_ERROR THEN
3233: x_return_status := FND_API.G_RET_STS_ERROR;
3234: FND_MSG_PUB.Count_And_Get
3235: ( p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data
3238: );
3239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3235: ( p_encoded => FND_API.G_FALSE,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data
3238: );
3239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241: FND_MSG_PUB.Count_And_Get
3242: ( p_encoded => FND_API.G_FALSE,
3243: p_count => x_msg_count,
3236: p_count => x_msg_count,
3237: p_data => x_msg_data
3238: );
3239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241: FND_MSG_PUB.Count_And_Get
3242: ( p_encoded => FND_API.G_FALSE,
3243: p_count => x_msg_count,
3244: p_data => x_msg_data
3238: );
3239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3240: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3241: FND_MSG_PUB.Count_And_Get
3242: ( p_encoded => FND_API.G_FALSE,
3243: p_count => x_msg_count,
3244: p_data => x_msg_data
3245: );
3246: WHEN OTHERS THEN
3243: p_count => x_msg_count,
3244: p_data => x_msg_data
3245: );
3246: WHEN OTHERS THEN
3247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3248: FND_MESSAGE.Set_Name('FND', 'SQL_PLSQL_ERROR');
3249: FND_MESSAGE.Set_Token('ROUTINE', l_api_name);
3250: FND_MESSAGE.Set_Token('ERRNO', SQLCODE);
3251: FND_MESSAGE.Set_Token('REASON', SQLERRM);
3257: l_api_name
3258: );
3259: END IF;
3260: FND_MSG_PUB.Count_And_Get
3261: ( p_encoded => FND_API.G_FALSE,
3262: p_count => x_msg_count,
3263: p_data => x_msg_data
3264: );
3265:
3277: l_resp_appl_id NUMBER;
3278: BEGIN
3279: l_resp_id := FND_PROFILE.value('RESP_ID');
3280: l_resp_appl_id := FND_PROFILE.value('RESP_APPL_ID');
3281: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3282: IBE_UTIL.debug('Calling CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3283: ibe_util.debug('item id=' || p_item_id);
3284: ibe_util.debug('organization id=' || p_organization_id);
3285: ibe_util.debug('responsibility id=' || l_resp_id);
3286: ibe_util.debug('application id=' || l_resp_appl_id);
3287: END IF;
3288:
3289: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (p_item_id, p_organization_id, SYSDATE,
3290: 'DHTML', FND_API.G_MISS_NUM, l_resp_id, l_resp_appl_id);
3291: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3292: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3293: ibe_util.debug('ui_def_id=' || l_ui_def_id);
3294: END IF;
3287: END IF;
3288:
3289: l_ui_def_id := CZ_CF_API.UI_FOR_ITEM (p_item_id, p_organization_id, SYSDATE,
3290: 'DHTML', FND_API.G_MISS_NUM, l_resp_id, l_resp_appl_id);
3291: IF (IBE_UTIL.G_DEBUGON = FND_API.G_TRUE) THEN
3292: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3293: ibe_util.debug('ui_def_id=' || l_ui_def_id);
3294: END IF;
3295: IF l_ui_def_id IS NULL THEN
3292: IBE_UTIL.debug('Return from CZ_CF_API.UI_FOR_ITEM ' || TO_CHAR(SYSDATE,'DD-MON-YYYY:HH24:MI:SS'));
3293: ibe_util.debug('ui_def_id=' || l_ui_def_id);
3294: END IF;
3295: IF l_ui_def_id IS NULL THEN
3296: x_configurable := FND_API.G_FALSE;
3297: ELSE
3298: x_configurable := FND_API.G_TRUE;
3299: END IF;
3300: END IS_ITEM_CONFIGURABLE;
3294: END IF;
3295: IF l_ui_def_id IS NULL THEN
3296: x_configurable := FND_API.G_FALSE;
3297: ELSE
3298: x_configurable := FND_API.G_TRUE;
3299: END IF;
3300: END IS_ITEM_CONFIGURABLE;
3301:
3302: END IBE_CATALOG_PVT;