230: IF FND_API.To_Boolean(p_init_msg_list) THEN
231: FND_MSG_PUB.Initialize;
232: END IF;
233:
234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
236: END IF;
237:
238: IF p_x_Inv_serv_item_rec.operation_flag IS NULL THEN
231: FND_MSG_PUB.Initialize;
232: END IF;
233:
234: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
235: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.begin', 'Entering Procedure');
236: END IF;
237:
238: IF p_x_Inv_serv_item_rec.operation_flag IS NULL THEN
239: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OPER_FLAG_NULL');
237:
238: IF p_x_Inv_serv_item_rec.operation_flag IS NULL THEN
239: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OPER_FLAG_NULL');
240: FND_MSG_PUB.ADD;
241: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
243: END IF;
244: RAISE Fnd_Api.g_exc_error;
245: END IF;
238: IF p_x_Inv_serv_item_rec.operation_flag IS NULL THEN
239: FND_MESSAGE.set_name('AHL', 'AHL_OSP_OPER_FLAG_NULL');
240: FND_MSG_PUB.ADD;
241: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
242: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
243: END IF;
244: RAISE Fnd_Api.g_exc_error;
245: END IF;
246:
251: (p_x_Inv_serv_item_rec.inv_org_name IS NULL OR
252: p_x_Inv_serv_item_rec.inv_org_name = FND_API.G_MISS_CHAR) THEN
253: FND_MESSAGE.set_name('AHL', 'AHL_OSP_ORG_NAME_NULL');
254: FND_MSG_PUB.ADD;
255: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
257: END IF;
258: END IF;
259:
252: p_x_Inv_serv_item_rec.inv_org_name = FND_API.G_MISS_CHAR) THEN
253: FND_MESSAGE.set_name('AHL', 'AHL_OSP_ORG_NAME_NULL');
254: FND_MSG_PUB.ADD;
255: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
256: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
257: END IF;
258: END IF;
259:
260: IF (p_x_Inv_serv_item_rec.inv_item_id IS NULL OR
262: (p_x_Inv_serv_item_rec.inv_item_name IS NULL OR
263: p_x_Inv_serv_item_rec.inv_item_name = FND_API.G_MISS_CHAR) THEN
264: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INV_ITEM_NULL');
265: FND_MSG_PUB.ADD;
266: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
267: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
268: END IF;
269: END IF;
270:
263: p_x_Inv_serv_item_rec.inv_item_name = FND_API.G_MISS_CHAR) THEN
264: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INV_ITEM_NULL');
265: FND_MSG_PUB.ADD;
266: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
267: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
268: END IF;
269: END IF;
270:
271: IF (p_x_Inv_serv_item_rec.service_item_id IS NULL OR
273: (p_x_Inv_serv_item_rec.service_item_name IS NULL OR
274: p_x_Inv_serv_item_rec.service_item_name = FND_API.G_MISS_CHAR) THEN
275: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SER_ITEM_NULL');
276: FND_MSG_PUB.ADD;
277: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
278: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
279: END IF;
280: END IF;
281:
274: p_x_Inv_serv_item_rec.service_item_name = FND_API.G_MISS_CHAR) THEN
275: FND_MESSAGE.set_name('AHL', 'AHL_OSP_SER_ITEM_NULL');
276: FND_MSG_PUB.ADD;
277: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
278: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
279: END IF;
280: END IF;
281:
282: IF p_x_Inv_serv_item_rec.inv_org_name IS NOT NULL
288: p_x_Inv_serv_item_rec.inv_org_id;
289: IF get_Item_info_csr%NOTFOUND THEN
290: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
291: FND_MSG_PUB.ADD;
292: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
294: END IF;
295: CLOSE get_Item_info_csr;
296: RAISE Fnd_Api.g_exc_error;
289: IF get_Item_info_csr%NOTFOUND THEN
290: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
291: FND_MSG_PUB.ADD;
292: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
294: END IF;
295: CLOSE get_Item_info_csr;
296: RAISE Fnd_Api.g_exc_error;
297: END IF;
303: p_x_Inv_serv_item_rec.inv_org_id;
304: IF get_Item_info_id_csr%NOTFOUND THEN
305: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
306: FND_MSG_PUB.ADD;
307: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
308: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
309: END IF;
310: CLOSE get_Item_info_id_csr;
311: RAISE Fnd_Api.g_exc_error;
304: IF get_Item_info_id_csr%NOTFOUND THEN
305: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_INV_ITEM');
306: FND_MSG_PUB.ADD;
307: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
308: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
309: END IF;
310: CLOSE get_Item_info_id_csr;
311: RAISE Fnd_Api.g_exc_error;
312: END IF;
316:
317: IF TRUNC(p_x_Inv_serv_item_rec.active_start_date) < TRUNC(SYSDATE) THEN
318: FND_MESSAGE.set_name('AHL', 'AHL_VENDOR_START_DATE_PAST');
319: FND_MSG_PUB.ADD;
320: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
322: END IF;
323: END IF;
324:
317: IF TRUNC(p_x_Inv_serv_item_rec.active_start_date) < TRUNC(SYSDATE) THEN
318: FND_MESSAGE.set_name('AHL', 'AHL_VENDOR_START_DATE_PAST');
319: FND_MSG_PUB.ADD;
320: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
322: END IF;
323: END IF;
324:
325: IF p_x_Inv_serv_item_rec.service_item_name IS NOT NULL
331: p_x_Inv_serv_item_rec.inv_org_id;
332: IF get_Item_info_csr%NOTFOUND THEN
333: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_SERV_ITEM');
334: FND_MSG_PUB.ADD;
335: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
337: END IF;
338: CLOSE get_Item_info_csr;
339: RAISE Fnd_Api.g_exc_error;
332: IF get_Item_info_csr%NOTFOUND THEN
333: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_SERV_ITEM');
334: FND_MSG_PUB.ADD;
335: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
336: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
337: END IF;
338: CLOSE get_Item_info_csr;
339: RAISE Fnd_Api.g_exc_error;
340: END IF;
346: p_x_Inv_serv_item_rec.inv_org_id;
347: IF get_Item_info_id_csr%NOTFOUND THEN
348: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_SERV_ITEM');
349: FND_MSG_PUB.ADD;
350: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
352: END IF;
353: CLOSE get_Item_info_id_csr;
354: RAISE Fnd_Api.g_exc_error;
347: IF get_Item_info_id_csr%NOTFOUND THEN
348: FND_MESSAGE.set_name('AHL', 'AHL_OSP_INVALID_SERV_ITEM');
349: FND_MSG_PUB.ADD;
350: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
351: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
352: END IF;
353: CLOSE get_Item_info_id_csr;
354: RAISE Fnd_Api.g_exc_error;
355: END IF;
364: FETCH Item_Ser_rel_exists_csr INTO l_dummy;
365: IF Item_Ser_rel_exists_csr%FOUND THEN
366: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RELATION_EXISTS');
367: FND_MSG_PUB.ADD;
368: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
370: END IF;
371: CLOSE Item_Ser_rel_exists_csr;
372: RAISE Fnd_Api.g_exc_error;
365: IF Item_Ser_rel_exists_csr%FOUND THEN
366: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RELATION_EXISTS');
367: FND_MSG_PUB.ADD;
368: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
370: END IF;
371: CLOSE Item_Ser_rel_exists_csr;
372: RAISE Fnd_Api.g_exc_error;
373: END IF;
383: IF (p_x_Inv_serv_item_rec.rank IS NULL OR
384: p_x_Inv_serv_item_rec.rank = FND_API.G_MISS_NUM) THEN
385: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RANK_NULL');
386: FND_MSG_PUB.ADD;
387: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
389: END IF;
390: RAISE Fnd_Api.g_exc_error;
391: ELSIF ( p_x_Inv_serv_item_rec.rank < 1 OR
384: p_x_Inv_serv_item_rec.rank = FND_API.G_MISS_NUM) THEN
385: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RANK_NULL');
386: FND_MSG_PUB.ADD;
387: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
388: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
389: END IF;
390: RAISE Fnd_Api.g_exc_error;
391: ELSIF ( p_x_Inv_serv_item_rec.rank < 1 OR
392: FLOOR(p_x_Inv_serv_item_rec.rank) <> p_x_Inv_serv_item_rec.rank) THEN
391: ELSIF ( p_x_Inv_serv_item_rec.rank < 1 OR
392: FLOOR(p_x_Inv_serv_item_rec.rank) <> p_x_Inv_serv_item_rec.rank) THEN
393: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RANK_INVALID_NUM');
394: FND_MSG_PUB.ADD;
395: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
396: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
397: END IF;
398: RAISE Fnd_Api.g_exc_error;
399: END IF;
392: FLOOR(p_x_Inv_serv_item_rec.rank) <> p_x_Inv_serv_item_rec.rank) THEN
393: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RANK_INVALID_NUM');
394: FND_MSG_PUB.ADD;
395: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
396: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
397: END IF;
398: RAISE Fnd_Api.g_exc_error;
399: END IF;
400:
402: IF (p_x_Inv_serv_item_rec.active_start_date IS NULL OR
403: p_x_Inv_serv_item_rec.active_start_date = FND_API.G_MISS_DATE) THEN
404: FND_MESSAGE.set_name('AHL', 'AHL_OSP_START_DATE_NULL');
405: FND_MSG_PUB.ADD;
406: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
408: END IF;
409: ELSIF p_x_Inv_serv_item_rec.active_start_date > NVL(p_x_Inv_serv_item_rec.active_end_date,
410: p_x_Inv_serv_item_rec.active_start_date) THEN
403: p_x_Inv_serv_item_rec.active_start_date = FND_API.G_MISS_DATE) THEN
404: FND_MESSAGE.set_name('AHL', 'AHL_OSP_START_DATE_NULL');
405: FND_MSG_PUB.ADD;
406: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
407: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
408: END IF;
409: ELSIF p_x_Inv_serv_item_rec.active_start_date > NVL(p_x_Inv_serv_item_rec.active_end_date,
410: p_x_Inv_serv_item_rec.active_start_date) THEN
411: FND_MESSAGE.set_name('AHL', 'AHL_OSP_START_DATE_GT');
409: ELSIF p_x_Inv_serv_item_rec.active_start_date > NVL(p_x_Inv_serv_item_rec.active_end_date,
410: p_x_Inv_serv_item_rec.active_start_date) THEN
411: FND_MESSAGE.set_name('AHL', 'AHL_OSP_START_DATE_GT');
412: FND_MSG_PUB.ADD;
413: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
415: END IF;
416: END IF;
417:
410: p_x_Inv_serv_item_rec.active_start_date) THEN
411: FND_MESSAGE.set_name('AHL', 'AHL_OSP_START_DATE_GT');
412: FND_MSG_PUB.ADD;
413: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
414: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
415: END IF;
416: END IF;
417:
418: IF p_x_Inv_serv_item_rec.operation_flag = 'C' THEN
430: FETCH Item_rank_exists_csr INTO l_dummy;
431: IF Item_rank_exists_csr%FOUND THEN
432: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RANK_DUP');
433: FND_MSG_PUB.ADD;
434: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
435: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
436: END IF;
437: CLOSE Item_rank_exists_csr;
438: RAISE Fnd_Api.g_exc_error;
431: IF Item_rank_exists_csr%FOUND THEN
432: FND_MESSAGE.set_name('AHL', 'AHL_OSP_RANK_DUP');
433: FND_MSG_PUB.ADD;
434: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
435: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED, L_DEBUG_KEY, FALSE);
436: END IF;
437: CLOSE Item_rank_exists_csr;
438: RAISE Fnd_Api.g_exc_error;
439: END IF;
474: IF x_msg_count > 0 THEN
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_Inv_serv_item_rec.operation_flag: ' || p_x_Inv_serv_item_rec.operation_flag );
480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_Inv_serv_item_rec.for_all_org_flag: ' || p_x_Inv_serv_item_rec.for_all_org_flag );
481: END IF;
482:
475: RAISE FND_API.G_EXC_ERROR;
476: END IF;
477:
478: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_Inv_serv_item_rec.operation_flag: ' || p_x_Inv_serv_item_rec.operation_flag );
480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_Inv_serv_item_rec.for_all_org_flag: ' || p_x_Inv_serv_item_rec.for_all_org_flag );
481: END IF;
482:
483: IF p_x_Inv_serv_item_rec.operation_flag = 'C' THEN
476: END IF;
477:
478: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
479: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_Inv_serv_item_rec.operation_flag: ' || p_x_Inv_serv_item_rec.operation_flag );
480: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'p_x_Inv_serv_item_rec.for_all_org_flag: ' || p_x_Inv_serv_item_rec.for_all_org_flag );
481: END IF;
482:
483: IF p_x_Inv_serv_item_rec.operation_flag = 'C' THEN
484: IF p_x_Inv_serv_item_rec.for_all_org_flag = 'Y' THEN
482:
483: IF p_x_Inv_serv_item_rec.operation_flag = 'C' THEN
484: IF p_x_Inv_serv_item_rec.for_all_org_flag = 'Y' THEN
485:
486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Inserting Relationships across Multiple Orgs');
488: END IF;
489: /* Commented by mpothuku on 25-jul-2005 to create the relationships in the Orgs where the relationship is
490: not already defined. The relationship if already existing is left intact.
483: IF p_x_Inv_serv_item_rec.operation_flag = 'C' THEN
484: IF p_x_Inv_serv_item_rec.for_all_org_flag = 'Y' THEN
485:
486: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
487: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Inserting Relationships across Multiple Orgs');
488: END IF;
489: /* Commented by mpothuku on 25-jul-2005 to create the relationships in the Orgs where the relationship is
490: not already defined. The relationship if already existing is left intact.
491: */
497:
498: --Validation to check if there already exists a service item with the same Rank for the given inventory
499: --item in any of the orgs in which the relationship is being created.
500: l_count := 0;
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before Validation for Org, Inventory, Rank Check');
503: END IF;
504:
505: OPEN org_item_rank_exists_csr(p_x_Inv_serv_item_rec.inv_item_id, p_x_Inv_serv_item_rec.service_item_id, p_x_Inv_serv_item_rec.rank);
498: --Validation to check if there already exists a service item with the same Rank for the given inventory
499: --item in any of the orgs in which the relationship is being created.
500: l_count := 0;
501: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
502: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Before Validation for Org, Inventory, Rank Check');
503: END IF;
504:
505: OPEN org_item_rank_exists_csr(p_x_Inv_serv_item_rec.inv_item_id, p_x_Inv_serv_item_rec.service_item_id, p_x_Inv_serv_item_rec.rank);
506: LOOP
516: END LOOP;
517: CLOSE org_item_rank_exists_csr;
518:
519: IF(l_count > 0) THEN
520: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
521: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validation for Org, Inventory, Rank Check failed');
522: END IF;
523: RAISE Fnd_Api.g_exc_error;
524: END IF;
517: CLOSE org_item_rank_exists_csr;
518:
519: IF(l_count > 0) THEN
520: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
521: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validation for Org, Inventory, Rank Check failed');
522: END IF;
523: RAISE Fnd_Api.g_exc_error;
524: END IF;
525:
522: END IF;
523: RAISE Fnd_Api.g_exc_error;
524: END IF;
525:
526: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
527: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validation for Org, Inventory, Rank Check sucessful');
528: END IF;
529:
530:
523: RAISE Fnd_Api.g_exc_error;
524: END IF;
525:
526: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
527: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Validation for Org, Inventory, Rank Check sucessful');
528: END IF;
529:
530:
531: INSERT INTO AHL_INV_SERVICE_ITEM_RELS
609: mo_global.get_current_org_id();
610:
611: ELSE
612:
613: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Inserting Relationship in Single Org');
615: END IF;
616:
617: INSERT INTO AHL_INV_SERVICE_ITEM_RELS
610:
611: ELSE
612:
613: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
614: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'Inserting Relationship in Single Org');
615: END IF;
616:
617: INSERT INTO AHL_INV_SERVICE_ITEM_RELS
618: (INV_SERVICE_ITEM_REL_ID,
683:
684: --Validate that end_date is not in past during updation of the record
685: --Added by mpothuku on 25-Aug-05 to fix the bug #4552227
686: IF TRUNC(p_x_Inv_serv_item_rec.active_end_date) < TRUNC(SYSDATE) THEN
687: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
688: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'End Date is in Past');
689: END IF;
690: FND_MESSAGE.set_name('AHL', 'AHL_VENDOR_CER_END_DATE_PAST');
691: FND_MSG_PUB.ADD;
684: --Validate that end_date is not in past during updation of the record
685: --Added by mpothuku on 25-Aug-05 to fix the bug #4552227
686: IF TRUNC(p_x_Inv_serv_item_rec.active_end_date) < TRUNC(SYSDATE) THEN
687: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
688: fnd_log.string(fnd_log.level_statement, L_DEBUG_KEY, 'End Date is in Past');
689: END IF;
690: FND_MESSAGE.set_name('AHL', 'AHL_VENDOR_CER_END_DATE_PAST');
691: FND_MSG_PUB.ADD;
692: RAISE Fnd_Api.g_exc_error;
728:
729:
730: -- Standard check of p_commit
731: IF FND_API.To_Boolean(p_commit) THEN
732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
734: END IF;
735: COMMIT WORK;
736: END IF;
729:
730: -- Standard check of p_commit
731: IF FND_API.To_Boolean(p_commit) THEN
732: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
733: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT, L_DEBUG_KEY, 'About to commit work');
734: END IF;
735: COMMIT WORK;
736: END IF;
737:
740: FND_MSG_PUB.Count_And_Get
741: ( p_count => x_msg_count,
742: p_data => x_msg_data,
743: p_encoded => fnd_api.g_false);
744: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
745: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
746: END IF;
747:
748: EXCEPTION
741: ( p_count => x_msg_count,
742: p_data => x_msg_data,
743: p_encoded => fnd_api.g_false);
744: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
745: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, L_DEBUG_KEY || '.end', 'Exiting Procedure');
746: END IF;
747:
748: EXCEPTION
749: WHEN FND_API.G_EXC_ERROR THEN