249: (p_doc_revision_id IS NOT NULL
250: AND l_document_id IS NULL))
251:
252: THEN
253: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
254: FND_MSG_PUB.ADD;
255: END IF;
256: --This condition checks fro Revision Number, when the action is insert or update
257: IF ((p_doc_revision_id IS NULL AND
260:
261: (p_doc_revision_id IS NOT NULL
262: AND l_revision_no IS NULL))
263: THEN
264: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVISION_NO_NULL');
265: FND_MSG_PUB.ADD;
266: END IF;
267: --This condition checks for Revision Type Code
268: IF ((p_doc_revision_id IS NULL AND
271:
272: (p_doc_revision_id IS NOT NULL
273: AND l_revision_type_code IS NULL))
274: THEN
275: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NULL');
276: FND_MSG_PUB.ADD;
277: END IF;
278: --This condition checks for Revision Status Code
279: IF ((p_doc_revision_id IS NULL AND
283: (p_doc_revision_id IS NOT NULL
284: AND l_revision_status_code IS NULL))
285:
286: THEN
287: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STATUS_CODE_NULL');
288: FND_MSG_PUB.ADD;
289: END IF;
290: -- Checks for existence of Revision type code in fnd lookups
291: IF p_revision_type_code IS NOT NULL
293: OPEN get_revision_type_code(p_revision_type_code);
294: FETCH get_revision_type_code INTO l_dummy;
295: IF get_revision_type_code%NOTFOUND
296: THEN
297: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NOT_EXIST');
298: FND_MSG_PUB.ADD;
299: END IF;
300: CLOSE get_revision_type_code;
301: END IF;
305: OPEN get_revision_status_code(p_revision_status_code);
306: FETCH get_revision_status_code INTO l_dummy;
307: IF get_revision_status_code%NOTFOUND
308: THEN
309: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STAT_CODE_NOT_EXIST');
310: FND_MSG_PUB.ADD;
311: END IF;
312: CLOSE get_revision_status_code;
313: END IF;
317: OPEN get_media_type_code(p_media_type_code);
318: FETCH get_media_type_code INTO l_dummy;
319: IF get_media_type_code%NOTFOUND
320: THEN
321: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
322: FND_MSG_PUB.ADD;
323: END IF;
324: CLOSE get_media_type_code;
325: END IF;
335: SELECT MEANING into l_media_type_meaning
336: FROM FND_LOOKUP_VALUES_VL
337: WHERE LOOKUP_TYPE='AHL_MEDIA_TYPE' AND LOOKUP_CODE='E-FILE';
338:
339: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_NOT_EFILE');
340: FND_MESSAGE.SET_TOKEN('EFILE',l_media_type_meaning);
341: FND_MSG_PUB.ADD;
342: END IF;
343: CLOSE get_record_from_AHL;
336: FROM FND_LOOKUP_VALUES_VL
337: WHERE LOOKUP_TYPE='AHL_MEDIA_TYPE' AND LOOKUP_CODE='E-FILE';
338:
339: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_NOT_EFILE');
340: FND_MESSAGE.SET_TOKEN('EFILE',l_media_type_meaning);
341: FND_MSG_PUB.ADD;
342: END IF;
343: CLOSE get_record_from_AHL;
344: END IF;
357: END IF;
358:
359: /* IF (p_media_type_code = 'ENIGMA' AND p_enigma_doc_id IS NULL)
360: THEN
361: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ENIGMA_DOC_ID_NOT_NULL');
362: FND_MSG_PUB.ADD;
363: END IF;
364: IF (p_media_type_code <> 'ENIGMA' AND p_enigma_doc_id IS NOT NULL)
365: THEN
362: FND_MSG_PUB.ADD;
363: END IF;
364: IF (p_media_type_code <> 'ENIGMA' AND p_enigma_doc_id IS NOT NULL)
365: THEN
366: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDIATYPE_IS_NOT_ENIGMA');
367: FND_MSG_PUB.ADD;
368: END IF;*/
369:
370:
380: THEN
381:
382: IF (p_enigma_doc_id IS NULL)
383: THEN
384: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ENIGMA_DOC_ID_NOT_NULL');
385: FND_MSG_PUB.ADD;
386: END IF;
387:
388: IF( p_x_enigma_model_code IS NULL AND p_x_enigma_model_meaning IS NULL)
386: END IF;
387:
388: IF( p_x_enigma_model_code IS NULL AND p_x_enigma_model_meaning IS NULL)
389: THEN
390: FND_MESSAGE.set_name( 'AHL','AHL_RM_MODEL_CODE_NULL' );
391: FND_MSG_PUB.add;
392: END IF;
393:
394: -- There is MODULE_TYPE passed to this package. assuming only call from JSP.
407:
408: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
409:
410: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
411: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_INVALID_MODEL' );
412: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
413: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_TOO_MANY_MODELS' );
414: ELSE
415: FND_MESSAGE.set_name( 'AHL', l_msg_data );
409:
410: IF ( l_msg_data = 'AHL_COM_INVALID_LOOKUP' ) THEN
411: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_INVALID_MODEL' );
412: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
413: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_TOO_MANY_MODELS' );
414: ELSE
415: FND_MESSAGE.set_name( 'AHL', l_msg_data );
416: END IF;
417:
411: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_INVALID_MODEL' );
412: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
413: FND_MESSAGE.set_name( 'AHL', 'AHL_CM_TOO_MANY_MODELS' );
414: ELSE
415: FND_MESSAGE.set_name( 'AHL', l_msg_data );
416: END IF;
417:
418: IF ( p_x_enigma_model_meaning IS NULL OR
419: p_x_enigma_model_meaning = FND_API.G_MISS_CHAR ) THEN
416: END IF;
417:
418: IF ( p_x_enigma_model_meaning IS NULL OR
419: p_x_enigma_model_meaning = FND_API.G_MISS_CHAR ) THEN
420: FND_MESSAGE.set_token( 'FIELD', p_x_enigma_model_code );
421: ELSE
422: FND_MESSAGE.set_token( 'FIELD', p_x_enigma_model_meaning );
423: END IF;
424:
418: IF ( p_x_enigma_model_meaning IS NULL OR
419: p_x_enigma_model_meaning = FND_API.G_MISS_CHAR ) THEN
420: FND_MESSAGE.set_token( 'FIELD', p_x_enigma_model_code );
421: ELSE
422: FND_MESSAGE.set_token( 'FIELD', p_x_enigma_model_meaning );
423: END IF;
424:
425: FND_MSG_PUB.add;
426:
430: ELSIF (p_media_type_code <> 'ENIGMA' OR p_media_type_code IS NULL)
431: THEN
432: IF( p_x_enigma_model_meaning IS NOT NULL OR p_enigma_doc_id IS NOT NULL )
433: THEN
434: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDIATYPE_IS_NOT_ENIGMA');
435: FND_MSG_PUB.ADD;
436: ELSIF(p_x_enigma_model_meaning IS NULL)
437: THEN
438: p_x_enigma_model_code := NULL ;
450: OPEN Check_doc_info(p_document_id);
451: FETCH Check_doc_info INTO l_dummy;
452: IF Check_doc_info%NOTFOUND
453: THEN
454: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NOT_EXISTS');
455: FND_MSG_PUB.ADD;
456: END IF;
457: CLOSE Check_doc_info;
458: END IF;
463: l_issue_number IS NOT NULL
464: THEN
465: IF(p_issue_number <= 0 or l_issue_number <= 0)
466: THEN
467: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSUE_NUM_INVALID');
468: FND_MSG_PUB.ADD;
469: END IF;
470: END IF;
471: --Validations for Duplicate Record
473: THEN
474: OPEN dup_rec(l_document_id, l_revision_no);
475: FETCH dup_rec INTO l_dummy;
476: IF dup_rec%FOUND THEN
477: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVISION_DUP_RECORD');
478: FND_MSG_PUB.ADD;
479: END IF;
480: CLOSE dup_rec;
481: END IF;
1178: -- This bug fix when concurrent users update
1179: -- updating same record...02/05/02
1180: if (l_revision_info.object_version_number <>p_x_revision_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
1538: l_obsolete_date,
1539: l_object_version_number;
1540: IF (get_revision_rec_b_info%NOTFOUND)
1541: THEN
1542: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REVI_RECORD_INVALID');
1543: FND_MSG_PUB.ADD;
1544: END IF;
1545: CLOSE get_revision_rec_b_info;
1546: -- Check for version number
1545: CLOSE get_revision_rec_b_info;
1546: -- Check for version number
1547: IF (l_object_version_number <> p_x_revision_tbl(i).object_version_number)
1548: THEN
1549: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REVI_RECORD_CHANGED');
1550: FND_MSG_PUB.ADD;
1551: END IF;
1552: -- Validate with end date
1553: IF (l_obsolete_date IS NOT NULL AND l_obsolete_date <= SYSDATE)
1551: END IF;
1552: -- Validate with end date
1553: IF (l_obsolete_date IS NOT NULL AND l_obsolete_date <= SYSDATE)
1554: THEN
1555: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REVI_RECORD_CLOSED');
1556: FND_MSG_PUB.ADD;
1557: END IF;
1558: IF (TRUNC(NVL(l_obsolete_date, SYSDATE)) >
1559: TRUNC(NVL(p_x_revision_tbl(i).obsolete_date,SYSDATE)))
1557: END IF;
1558: IF (TRUNC(NVL(l_obsolete_date, SYSDATE)) >
1559: TRUNC(NVL(p_x_revision_tbl(i).obsolete_date,SYSDATE)))
1560: THEN
1561: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSOLETE_DATE_INVALID');
1562: FND_MSG_PUB.ADD;
1563: END IF;
1564: -- Update the end date in subscriptions table
1565: UPDATE AHL_DOC_REVISIONS_B
1646: CLOSE get_all_document_ids;
1647: EXCEPTION
1648: WHEN OTHERS THEN
1649: retcode := 2;
1650: FND_MESSAGE.SET_NAME('AHL','AHL_DI_CONC_UPDT_FAILED');
1651: FND_MSG_PUB.ADD;
1652: errbuf := FND_MSG_PUB.GET;
1653: fnd_file.put_line(fnd_file.log, errbuf);
1654: