[Home] [Help]
262: (p_subscription_id IS NOT NULL
263: AND l_document_id IS NULL))
264:
265: THEN
266: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
267: FND_MSG_PUB.ADD;
268: END IF;
269: -- This condition checks Status Code, When the action is insert or update
270: IF ((p_subscription_id IS NULL AND
272:
273: (p_subscription_id IS NOT NULL
274: AND l_status_code IS NULL))
275: THEN
276: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NULL');
277: FND_MSG_PUB.ADD;
278: END IF;
279:
280: -- Perf Fixes for 4919023
300:
301: (p_subscription_id IS NOT NULL
302: AND p_quantity IS NULL))
303: THEN
304: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUAN_REQID_NULL');
305: FND_MESSAGE.SET_TOKEN('REQ',l_requested_by_name);
306: FND_MSG_PUB.ADD;
307: END IF;
308:
301: (p_subscription_id IS NOT NULL
302: AND p_quantity IS NULL))
303: THEN
304: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUAN_REQID_NULL');
305: FND_MESSAGE.SET_TOKEN('REQ',l_requested_by_name);
306: FND_MSG_PUB.ADD;
307: END IF;
308:
309:
315: IF ahl_di_doc_index_pvt.get_product_install_status('PO') in ('I','S')THEN
316: OPEN for_ponumber_id(p_purchase_order_no);
317: FETCH for_ponumber_id INTO l_purchase_order_no;
318: IF for_ponumber_id%NOTFOUND THEN
319: FND_MESSAGE.SET_NAME('AHL','AHL_DI_PO_NUM_NOT_EXISTS');
320: FND_MSG_PUB.ADD;
321: END IF;
322: CLOSE for_ponumber_id;
323: END IF;
342: --Modified pjha 05-Jul-2002 for bug# 2448536: validating supplier: End
343: FETCH subc_from_pty_info INTO l_dummy;
344: IF subc_from_pty_info%NOTFOUND
345: THEN
346: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_PTY_ID_INVALID');
347: FND_MSG_PUB.ADD;
348: END IF;
349: CLOSE subc_from_pty_info;
350: END IF;
356: (p_subscription_id IS NOT NULL
357: AND l_requested_by_party_id IS NULL))
358: THEN
359:
360: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REQUES_BY_PARTY_ID_NULL');
361: FND_MSG_PUB.ADD;
362: END IF;
363: -- Validates the Quantity Field
364: IF p_quantity IS NOT NULL
365: OR
366: l_quantity IS NOT NULL
367: THEN
368: IF(p_quantity <= 0 or l_quantity <= 0) THEN
369: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUANTITY_INVALID');
370:
371: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUAN_REQID_NULL');
372: FND_MESSAGE.SET_TOKEN('REQ',l_requested_by_name);
373: FND_MSG_PUB.ADD;
367: THEN
368: IF(p_quantity <= 0 or l_quantity <= 0) THEN
369: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUANTITY_INVALID');
370:
371: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUAN_REQID_NULL');
372: FND_MESSAGE.SET_TOKEN('REQ',l_requested_by_name);
373: FND_MSG_PUB.ADD;
374: END IF;
375: END IF;
368: IF(p_quantity <= 0 or l_quantity <= 0) THEN
369: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUANTITY_INVALID');
370:
371: FND_MESSAGE.SET_NAME('AHL','AHL_DI_QUAN_REQID_NULL');
372: FND_MESSAGE.SET_TOKEN('REQ',l_requested_by_name);
373: FND_MSG_PUB.ADD;
374: END IF;
375: END IF;
376: -- Validations for start date
385: /*
386: IF(p_start_date > nvl(l_end_date, p_start_date)) OR
387: (l_start_date > nvl(l_end_date,l_start_date))
388: THEN
389: FND_MESSAGE.SET_NAME('AHL','AHL_DI_INVALID_DATE');
390: FND_MSG_PUB.ADD;
391: END IF;
392: */
393: IF(p_start_date >= nvl(l_end_date, p_start_date)) OR
392: */
393: IF(p_start_date >= nvl(l_end_date, p_start_date)) OR
394: (l_start_date >= nvl(l_end_date,l_start_date))
395: THEN
396: FND_MESSAGE.SET_NAME('AHL','AHL_DI_INVALID_DATE_RANGE');
397: FND_MSG_PUB.ADD;
398: END IF;
399:
400: --Modified pjha 12-Jun-2002 for date range check and for picking right message bug# 2314334 End
405: OPEN get_status_code(p_status_code);
406: FETCH get_status_code INTO l_dummy;
407: IF get_status_code%NOTFOUND
408: THEN
409: FND_MESSAGE.SET_NAME('AHL','AHL_DI_STATUS_CODE_NOT_EXISTS');
410: FND_MSG_PUB.ADD;
411: END IF;
412: CLOSE get_status_code;
413: END IF;
417: OPEN Check_doc_info(p_document_id);
418: FETCH Check_doc_info INTO l_dummy;
419: IF Check_doc_info%NOTFOUND
420: THEN
421: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NOT_EXISTS');
422: FND_MSG_PUB.ADD;
423: END IF;
424: CLOSE Check_doc_info;
425: END IF;
429: OPEN get_media_type_code(p_media_type_code);
430: FETCH get_media_type_code INTO l_dummy;
431: IF get_media_type_code%NOTFOUND
432: THEN
433: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
434: FND_MSG_PUB.ADD;
435: END IF;
436: CLOSE get_media_type_code;
437: END IF;
441: OPEN get_sub_type_code(p_subscription_type_code);
442: FETCH get_sub_type_code INTO l_dummy;
443: IF get_sub_type_code%NOTFOUND
444: THEN
445: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBTYP_CODE_NOT_EXISTS');
446: FND_MSG_PUB.ADD;
447: END IF;
448: CLOSE get_sub_type_code;
449: END IF;
453: OPEN get_frequency_code(p_frequency_code);
454: FETCH get_frequency_code INTO l_dummy;
455: IF get_frequency_code%NOTFOUND
456: THEN
457: FND_MESSAGE.SET_NAME('AHL','AHL_DI_FREQCY_CODE_NOT_EXISTS');
458: FND_MSG_PUB.ADD;
459: END IF;
460: CLOSE get_frequency_code;
461: END IF;
465: OPEN dup_rec(l_document_id ,
466: l_requested_by_party_id);
467: FETCH dup_rec INTO l_dummy;
468: IF dup_rec%FOUND THEN
469: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_DUP_RECORD');
470:
471: /*
472: OPEN get_requested_name(l_requested_by_party_id);
473: FETCH get_requested_name INTO l_requested_by_name;
473: FETCH get_requested_name INTO l_requested_by_name;
474: CLOSE get_requested_name;
475: */
476:
477: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBS_DUP_RECORD');
478: FND_MESSAGE.SET_TOKEN('REQID',l_requested_by_name);
479: FND_MSG_PUB.ADD;
480: END IF;
481: CLOSE dup_rec;
474: CLOSE get_requested_name;
475: */
476:
477: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBS_DUP_RECORD');
478: FND_MESSAGE.SET_TOKEN('REQID',l_requested_by_name);
479: FND_MSG_PUB.ADD;
480: END IF;
481: CLOSE dup_rec;
482: END IF;
853:
854: WHEN DUP_VAL_ON_INDEX THEN
855: ROLLBACK TO create_subscription;
856: X_return_status := FND_API.G_RET_STS_ERROR;
857: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_DUP_RECORD');
858: FND_MSG_PUB.ADD;
859: -- Check if API is called in debug mode. If yes, disable debug.
860: IF G_DEBUG='Y' THEN
861: AHL_DEBUG_PUB.disable_debug;
1095: OPEN get_old_sub (p_x_subscription_tbl(i).document_id,
1096: p_x_subscription_tbl(i).requested_by_party_id);
1097: FETCH get_old_sub INTO l_old_sub_id;
1098: IF (l_old_sub_id <> p_x_subscription_tbl(i).subscription_id) THEN
1099: --FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBSC_DUP_RECORD');
1100: FOR j IN p_x_subscription_tbl.FIRST..p_x_subscription_tbl.LAST
1101: LOOP
1102: IF ((l_old_sub_id = p_x_subscription_tbl(j).subscription_id) AND (l_old_sub_id <> p_x_subscription_tbl(i).subscription_id)) THEN
1103: l_dup_flag := 'Y';
1119: FETCH get_requested_name_ppf INTO l_requested_by_name;
1120: CLOSE get_requested_name_ppf;
1121: END IF;
1122:
1123: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBS_DUP_RECORD');
1124: FND_MESSAGE.SET_TOKEN('REQID',l_requested_by_name);
1125: FND_MSG_PUB.ADD;
1126: END IF;
1127: END IF;
1120: CLOSE get_requested_name_ppf;
1121: END IF;
1122:
1123: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBS_DUP_RECORD');
1124: FND_MESSAGE.SET_TOKEN('REQID',l_requested_by_name);
1125: FND_MSG_PUB.ADD;
1126: END IF;
1127: END IF;
1128: END LOOP;
1143: FETCH get_requested_name_ppf INTO l_requested_by_name;
1144: CLOSE get_requested_name_ppf;
1145: END IF;
1146:
1147: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBS_DUP_RECORD');
1148: FND_MESSAGE.SET_TOKEN('REQID',l_requested_by_name);
1149: FND_MSG_PUB.ADD;
1150: END IF;
1151: l_dup_flag := 'N';
1144: CLOSE get_requested_name_ppf;
1145: END IF;
1146:
1147: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUBS_DUP_RECORD');
1148: FND_MESSAGE.SET_TOKEN('REQID',l_requested_by_name);
1149: FND_MSG_PUB.ADD;
1150: END IF;
1151: l_dup_flag := 'N';
1152: END IF;
1178: --This is a fix for earlier bug when concurrent users are
1179: -- updating same record...02/05/02
1180: if (l_subscription_info.object_version_number <>p_x_subscription_tbl(i).object_version_number)
1181: then
1182: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
1183: FND_MSG_PUB.ADD;
1184: RAISE FND_API.G_EXC_ERROR;
1185: end if;
1186: -- The following conditions compare the new record value with old record
1527: l_object_version_number;
1528:
1529: IF (get_sub_rec_b_info%NOTFOUND)
1530: THEN
1531: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_RECORD_NOT_EXISTS');
1532: FND_MSG_PUB.ADD;
1533: END IF;
1534: CLOSE get_sub_rec_b_info;
1535: /* No need, it's done in modify document
1535: /* No need, it's done in modify document
1536: -- Check for version number
1537: IF (l_object_version_number <> p_x_subscription_tbl(i).object_version_number)
1538: THEN
1539: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_RECORD_CHANGED');
1540: FND_MSG_PUB.ADD;
1541: END IF;
1542: */
1543: -- Validate with end date
1544: /* Not required, user should be able to delete subscriptions
1545: after they have become obsolete: pjha 09-Jul-2002
1546: IF (l_end_date IS NOT NULL AND l_end_date < sysdate )
1547: THEN
1548: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_RECORD_CLOSED');
1549: FND_MSG_PUB.ADD;
1550: END IF;
1551: */
1552: /* Not required
1552: /* Not required
1553: -- Check for start date
1554: IF l_start_date IS NULL
1555: THEN
1556: FND_MESSAGE.SET_NAME('AHL','AHL_DI_START_DATE_INVALID');
1557: FND_MSG_PUB.ADD;
1558: END IF;
1559:
1560: --Check for End Date
1560: --Check for End Date
1561: IF (TRUNC(NVL(l_end_date, SYSDATE)) >
1562: TRUNC(NVL(p_x_subscription_tbl(i).end_date,SYSDATE)))
1563: THEN
1564: FND_MESSAGE.SET_NAME('AHL','AHL_DI_SUB_E_DATE_INVALID');
1565: FND_MSG_PUB.ADD;
1566: END IF;
1567: */
1568: -- Update the end date in subscriptions table