DBA Data[Home] [Help]

APPS.AHL_DI_DOC_REVISION_PVT dependencies on FND_MSG_PUB

Line 216: FND_MSG_PUB.ADD;

212: AND l_document_id IS NULL))
213:
214: THEN
215: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NULL');
216: FND_MSG_PUB.ADD;
217: END IF;
218: --This condition checks fro Revision Number, when the action is insert or update
219: IF ((p_doc_revision_id IS NULL AND
220: p_revision_no IS NULL)

Line 227: FND_MSG_PUB.ADD;

223: (p_doc_revision_id IS NOT NULL
224: AND l_revision_no IS NULL))
225: THEN
226: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVISION_NO_NULL');
227: FND_MSG_PUB.ADD;
228: END IF;
229: --This condition checks for Revision Type Code
230: IF ((p_doc_revision_id IS NULL AND
231: p_revision_type_code IS NULL)

Line 238: FND_MSG_PUB.ADD;

234: (p_doc_revision_id IS NOT NULL
235: AND l_revision_type_code IS NULL))
236: THEN
237: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NULL');
238: FND_MSG_PUB.ADD;
239: END IF;
240: --This condition checks for Revision Status Code
241: IF ((p_doc_revision_id IS NULL AND
242: p_revision_status_code IS NULL)

Line 250: FND_MSG_PUB.ADD;

246: AND l_revision_status_code IS NULL))
247:
248: THEN
249: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STATUS_CODE_NULL');
250: FND_MSG_PUB.ADD;
251: END IF;
252: -- Checks for existence of Revision type code in fnd lookups
253: IF p_revision_type_code IS NOT NULL
254: THEN

Line 260: FND_MSG_PUB.ADD;

256: FETCH get_revision_type_code INTO l_dummy;
257: IF get_revision_type_code%NOTFOUND
258: THEN
259: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NOT_EXIST');
260: FND_MSG_PUB.ADD;
261: END IF;
262: CLOSE get_revision_type_code;
263: END IF;
264: --Checks for existence of Revision Status Code in fnd lookups

Line 272: FND_MSG_PUB.ADD;

268: FETCH get_revision_status_code INTO l_dummy;
269: IF get_revision_status_code%NOTFOUND
270: THEN
271: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STAT_CODE_NOT_EXIST');
272: FND_MSG_PUB.ADD;
273: END IF;
274: CLOSE get_revision_status_code;
275: END IF;
276: -- Checks for existence of Media Type Code in fnd lookups

Line 284: FND_MSG_PUB.ADD;

280: FETCH get_media_type_code INTO l_dummy;
281: IF get_media_type_code%NOTFOUND
282: THEN
283: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
284: FND_MSG_PUB.ADD;
285: END IF;
286: CLOSE get_media_type_code;
287: END IF;
288:

Line 303: FND_MSG_PUB.ADD;

299: WHERE LOOKUP_TYPE='AHL_MEDIA_TYPE' AND LOOKUP_CODE='E-FILE';
300:
301: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_NOT_EFILE');
302: FND_MESSAGE.SET_TOKEN('EFILE',l_media_type_meaning);
303: FND_MSG_PUB.ADD;
304: END IF;
305: CLOSE get_record_from_AHL;
306: END IF;
307: --Modified pjha 25-Jun-2002 for restricting Media Type to Electronic File

Line 318: FND_MSG_PUB.ADD;

314: FETCH Check_doc_info INTO l_dummy;
315: IF Check_doc_info%NOTFOUND
316: THEN
317: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOCUMENT_ID_NOT_EXISTS');
318: FND_MSG_PUB.ADD;
319: END IF;
320: CLOSE Check_doc_info;
321: END IF;
322:

Line 331: FND_MSG_PUB.ADD;

327: THEN
328: IF(p_issue_number <= 0 or l_issue_number <= 0)
329: THEN
330: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSUE_NUM_INVALID');
331: FND_MSG_PUB.ADD;
332: END IF;
333: END IF;
334: --Validations for Duplicate Record
335: IF p_doc_revision_id IS NULL

Line 341: FND_MSG_PUB.ADD;

337: OPEN dup_rec(l_document_id, l_revision_no);
338: FETCH dup_rec INTO l_dummy;
339: IF dup_rec%FOUND THEN
340: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVISION_DUP_RECORD');
341: FND_MSG_PUB.ADD;
342: END IF;
343: CLOSE dup_rec;
344: END IF;
345:

Line 396: FND_MSG_PUB.initialize;

392: END IF;
393: -- Standard call to check for call compatibility.
394: IF FND_API.to_boolean(p_init_msg_list)
395: THEN
396: FND_MSG_PUB.initialize;
397: END IF;
398: -- Initialize API return status to success
399: x_return_status := 'S';
400: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 433: l_msg_count := FND_MSG_PUB.count_msg;

429: p_delete_flag => p_x_revision_tbl(i).delete_flag
430: );
431: END LOOP;
432: -- Standard call to get message count and if count is get message info.
433: l_msg_count := FND_MSG_PUB.count_msg;
434:
435:
436: IF l_msg_count > 0 THEN
437: X_msg_count := l_msg_count;

Line 525: l_msg_count := FND_MSG_PUB.count_msg;

521: assignments: Prakash : 24-Dec-2001*/
522: --Assign doc revision id
523: p_x_revision_tbl(i).doc_revision_id := l_doc_revision_id;
524: p_x_revision_tbl(i).object_version_number := 1;
525: l_msg_count := FND_MSG_PUB.count_msg;
526:
527: IF l_msg_count > 0 THEN
528: X_msg_count := l_msg_count;
529: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

Line 554: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

550: EXCEPTION
551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
552: ROLLBACK TO create_revision;
553: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
555: p_count => x_msg_count,
556: p_data => x_msg_data);
557: --Debug Info
558: IF G_DEBUG='Y' THEN

Line 571: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

567:
568: WHEN FND_API.G_EXC_ERROR THEN
569: ROLLBACK TO create_revision;
570: X_return_status := FND_API.G_RET_STS_ERROR;
571: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
572: p_count => x_msg_count,
573: p_data => X_msg_data);
574: -- Debug info.
575: IF G_DEBUG='Y' THEN

Line 588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

584:
585: WHEN OTHERS THEN
586: ROLLBACK TO create_revision;
587: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
589: THEN
590: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',
591: p_procedure_name => 'CREATE_REVISION',
592: p_error_text => SUBSTR(SQLERRM,1,240));

Line 590: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',

586: ROLLBACK TO create_revision;
587: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
588: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
589: THEN
590: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',
591: p_procedure_name => 'CREATE_REVISION',
592: p_error_text => SUBSTR(SQLERRM,1,240));
593: END IF;
594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

590: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',
591: p_procedure_name => 'CREATE_REVISION',
592: p_error_text => SUBSTR(SQLERRM,1,240));
593: END IF;
594: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
595: p_count => x_msg_count,
596: p_data => X_msg_data);
597: -- Debug info.
598: IF G_DEBUG='Y' THEN

Line 704: FND_MSG_PUB.initialize;

700: END IF;
701: -- Standard call to check for call compatibility.
702: IF FND_API.to_boolean(p_init_msg_list)
703: THEN
704: FND_MSG_PUB.initialize;
705: END IF;
706: -- Initialize API return status to success
707: x_return_status := 'S';
708:

Line 742: l_msg_count := FND_MSG_PUB.count_msg;

738: );
739: END LOOP;
740: --End of Validations
741: -- Standard call to get message count
742: l_msg_count := FND_MSG_PUB.count_msg;
743: IF l_msg_count > 0 THEN
744: X_msg_count := l_msg_count;
745: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746: RAISE FND_API.G_EXC_ERROR;

Line 763: FND_MSG_PUB.ADD;

759: -- updating same record...02/05/02
760: if (l_revision_info.object_version_number <>p_x_revision_tbl(i).object_version_number)
761: then
762: FND_MESSAGE.SET_NAME('AHL','AHL_COM_RECORD_CHANGED');
763: FND_MSG_PUB.ADD;
764: RAISE FND_API.G_EXC_ERROR;
765: end if;
766: -- The following conditions compare the new record value with old record
767: -- value, if its different then assign the new value else continue

Line 880: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

876: EXCEPTION
877: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
878: ROLLBACK TO modify_revision;
879: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
880: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
881: p_count => x_msg_count,
882: p_data => x_msg_data);
883:
884: IF G_DEBUG='Y' THEN

Line 897: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

893:
894: WHEN FND_API.G_EXC_ERROR THEN
895: ROLLBACK TO modify_revision;
896: X_return_status := FND_API.G_RET_STS_ERROR;
897: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
898: p_count => x_msg_count,
899: p_data => X_msg_data);
900: -- Debug info.
901: IF G_DEBUG='Y' THEN

Line 914: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

910:
911: WHEN OTHERS THEN
912: ROLLBACK TO modify_revision;
913: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
915: THEN
916: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',
917: p_procedure_name => 'MODIFY_REVISION',
918: p_error_text => SUBSTR(SQLERRM,1,240));

Line 916: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',

912: ROLLBACK TO modify_revision;
913: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
915: THEN
916: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',
917: p_procedure_name => 'MODIFY_REVISION',
918: p_error_text => SUBSTR(SQLERRM,1,240));
919: END IF;
920: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 920: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

916: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PVT',
917: p_procedure_name => 'MODIFY_REVISION',
918: p_error_text => SUBSTR(SQLERRM,1,240));
919: END IF;
920: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
921: p_count => x_msg_count,
922: p_data => X_msg_data);
923:
924: -- Debug info.

Line 973: FND_MSG_PUB.initialize;

969: SAVEPOINT delete_revision;
970: -- Standard call to check for call compatibility.
971: IF FND_API.to_boolean(p_init_msg_list)
972: THEN
973: FND_MSG_PUB.initialize;
974: END IF;
975: -- Initialize API return status to success
976: x_return_status := 'S';
977: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 997: FND_MSG_PUB.ADD;

993: l_object_version_number;
994: IF (get_revision_rec_b_info%NOTFOUND)
995: THEN
996: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REVI_RECORD_INVALID');
997: FND_MSG_PUB.ADD;
998: END IF;
999: CLOSE get_revision_rec_b_info;
1000: -- Check for version number
1001: IF (l_object_version_number <> p_x_revision_tbl(i).object_version_number)

Line 1004: FND_MSG_PUB.ADD;

1000: -- Check for version number
1001: IF (l_object_version_number <> p_x_revision_tbl(i).object_version_number)
1002: THEN
1003: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REVI_RECORD_CHANGED');
1004: FND_MSG_PUB.ADD;
1005: END IF;
1006: -- Validate with end date
1007: IF (l_obsolete_date IS NOT NULL AND l_obsolete_date <= SYSDATE)
1008: THEN

Line 1010: FND_MSG_PUB.ADD;

1006: -- Validate with end date
1007: IF (l_obsolete_date IS NOT NULL AND l_obsolete_date <= SYSDATE)
1008: THEN
1009: FND_MESSAGE.SET_NAME('AHL','AHL_DI_DOC_REVI_RECORD_CLOSED');
1010: FND_MSG_PUB.ADD;
1011: END IF;
1012: IF (TRUNC(NVL(l_obsolete_date, SYSDATE)) >
1013: TRUNC(NVL(p_x_revision_tbl(i).obsolete_date,SYSDATE)))
1014: THEN

Line 1016: FND_MSG_PUB.ADD;

1012: IF (TRUNC(NVL(l_obsolete_date, SYSDATE)) >
1013: TRUNC(NVL(p_x_revision_tbl(i).obsolete_date,SYSDATE)))
1014: THEN
1015: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSOLETE_DATE_INVALID');
1016: FND_MSG_PUB.ADD;
1017: END IF;
1018: -- Update the end date in subscriptions table
1019: UPDATE AHL_DOC_REVISIONS_B
1020: SET OBSOLETE_DATE = p_x_revision_tbl(i).obsolete_date

Line 1033: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1029: EXCEPTION
1030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1031: ROLLBACK TO delete_revision;
1032: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1033: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1034: p_count => x_msg_count,
1035: p_data => x_msg_data);
1036:
1037: WHEN FND_API.G_EXC_ERROR THEN

Line 1040: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1036:
1037: WHEN FND_API.G_EXC_ERROR THEN
1038: ROLLBACK TO delete_revision;
1039: X_return_status := FND_API.G_RET_STS_ERROR;
1040: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1041: p_count => x_msg_count,
1042: p_data => X_msg_data);
1043: WHEN OTHERS THEN
1044: ROLLBACK TO delete_revision;

Line 1046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)

1042: p_data => X_msg_data);
1043: WHEN OTHERS THEN
1044: ROLLBACK TO delete_revision;
1045: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1047: THEN
1048: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOC_REVISIONS_PVT',
1049: p_procedure_name => 'DELETE_REVISION',
1050: p_error_text => SUBSTR(SQLERRM,1,240));

Line 1048: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOC_REVISIONS_PVT',

1044: ROLLBACK TO delete_revision;
1045: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1047: THEN
1048: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOC_REVISIONS_PVT',
1049: p_procedure_name => 'DELETE_REVISION',
1050: p_error_text => SUBSTR(SQLERRM,1,240));
1051: END IF;
1052: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

Line 1052: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

1048: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DOC_REVISIONS_PVT',
1049: p_procedure_name => 'DELETE_REVISION',
1050: p_error_text => SUBSTR(SQLERRM,1,240));
1051: END IF;
1052: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1053: p_count => x_msg_count,
1054: p_data => X_msg_data);
1055:
1056: END DELETE_REVISION;