eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AHL_DI_DOC_REVISION_PUB dependencies on FND_MSG_PUB

Line 163: FND_MSG_PUB.initialize;

159: END IF;
160: -- Standard call to check for call compatibility.
161: IF FND_API.to_boolean(l_init_msg_list)
162: THEN
163: FND_MSG_PUB.initialize;
164: END IF;
165: -- Initialize API return status to success
166: x_return_status := 'S';
167: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 198: FND_MSG_PUB.ADD;

194:
195: p_x_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
196: ELSE
197: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
198: FND_MSG_PUB.ADD;
199: END IF;
200: CLOSE approved_by_party_desc;
201: ELSIF ahl_di_doc_index_pvt.get_product_install_status('PER') in ('I','S')
202: THEN

Line 228: FND_MSG_PUB.ADD;

224: END LOOP;
225:
226: IF get_party_name%ROWCOUNT = 0 THEN
227: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
228: FND_MSG_PUB.ADD;
229: ELSIF get_party_name%ROWCOUNT = 1 THEN
230: p_x_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
231: ELSE
232: -- It will show the message to use LOV , so it would take care

Line 236: FND_MSG_PUB.ADD;

232: -- It will show the message to use LOV , so it would take care
233: -- for duplicate records as well
234:
235: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APPROVED_BY_USE_LOV');
236: FND_MSG_PUB.ADD;
237:
238: END IF;
239: CLOSE get_party_name;
240: END IF;

Line 272: FND_MSG_PUB.ADD;

268:
269: IF nvl(l_return_status, 'X') <> 'S'
270: THEN
271: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NOT_EXIST');
272: FND_MSG_PUB.ADD;
273: END IF;
274: END IF;
275: -- If Code is present
276: IF p_x_revision_tbl(i).revision_type_code IS NOT NULL

Line 298: FND_MSG_PUB.ADD;

294:
295: IF nvl(l_return_status, 'X') <> 'S'
296: THEN
297: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
298: FND_MSG_PUB.ADD;
299: END IF;
300: END IF;
301: -- If ID presnt
302: IF p_x_revision_tbl(i).media_type_code IS NOT NULL

Line 324: FND_MSG_PUB.ADD;

320:
321: IF nvl(l_return_status, 'X') <> 'S'
322: THEN
323: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STAT_CODE_NOT_EXIST');
324: FND_MSG_PUB.ADD;
325: END IF;
326: END IF;
327: -- If Revision status code presents
328: IF p_x_revision_tbl(i).revision_status_code IS NOT NULL

Line 351: FND_MSG_PUB.ADD;

347: SELECT SYSDATE into l_sysdate FROM DUAL;
348: IF p_x_revision_tbl(i).revision_date < TRUNC(l_sysdate)
349: THEN
350: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVDT_LESS_SYSDT');
351: FND_MSG_PUB.ADD;
352: END IF;
353: */
354: END IF;
355: /* Vineet - As per the FP for 11510 Bug 5930628 where PM had decided to remove all date validations except Revision date

Line 363: FND_MSG_PUB.ADD;

359: THEN
360: IF p_x_revision_tbl(i).approved_date < p_x_revision_tbl(i).revision_date
361: THEN
362: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APVDT_LESS_REVDT');
363: FND_MSG_PUB.ADD;
364: END IF;
365: END IF;
366:
367: -- As per the FP for bug 3662906 removing issue date validation

Line 378: FND_MSG_PUB.ADD;

374: THEN
375: IF p_x_revision_tbl(i).approved_date IS NULL
376: THEN
377: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
378: FND_MSG_PUB.ADD;
379: ELSE
380: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
381: FND_MSG_PUB.ADD;
382: END IF;

Line 381: FND_MSG_PUB.ADD;

377: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
378: FND_MSG_PUB.ADD;
379: ELSE
380: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
381: FND_MSG_PUB.ADD;
382: END IF;
383: END IF;
384: END IF;
385:

Line 396: FND_MSG_PUB.ADD;

392: THEN
393: IF p_x_revision_tbl(i).approved_date IS NULL
394: THEN
395: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
396: FND_MSG_PUB.ADD;
397: ELSE
398: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
399: FND_MSG_PUB.ADD;
400: END IF;

Line 399: FND_MSG_PUB.ADD;

395: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
396: FND_MSG_PUB.ADD;
397: ELSE
398: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
399: FND_MSG_PUB.ADD;
400: END IF;
401: END IF;
402: END IF;
403:

Line 411: FND_MSG_PUB.ADD;

407: THEN
408: IF p_x_revision_tbl(i).received_date > p_x_revision_tbl(i).revision_date
409: THEN
410: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECDT_GT_REVDT');
411: FND_MSG_PUB.ADD;
412: END IF;
413: END IF;
414: */
415: -- if obsolete date is not null, check if it is less than any other date

Line 421: FND_MSG_PUB.ADD;

417: THEN
418: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).revision_date
419: THEN
420: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_REVDT');
421: FND_MSG_PUB.ADD;
422: END IF;
423:
424: /* Removing following validations too for FP for bug 5930628
425: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).approved_date

Line 428: FND_MSG_PUB.ADD;

424: /* Removing following validations too for FP for bug 5930628
425: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).approved_date
426: THEN
427: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_APVDT');
428: FND_MSG_PUB.ADD;
429: END IF;
430:
431: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
432: THEN

Line 434: FND_MSG_PUB.ADD;

430:
431: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
432: THEN
433: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_EFFDT');
434: FND_MSG_PUB.ADD;
435: END IF;
436:
437: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
438: THEN

Line 440: FND_MSG_PUB.ADD;

436:
437: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
438: THEN
439: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_ISSDT');
440: FND_MSG_PUB.ADD;
441: END IF;
442:
443: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
444: THEN

Line 446: FND_MSG_PUB.ADD;

442:
443: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
444: THEN
445: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_RECDT');
446: FND_MSG_PUB.ADD;
447: END IF;
448: */
449: END IF;
450: -- if REVISION_STATUS_CODE == OBSOLETE and obsolete date is null then set it to sysdate.

Line 500: l_msg_count := FND_MSG_PUB.count_msg;

496: l_revision_tbl(i).delete_flag := p_x_revision_tbl(i).delete_flag;
497: l_revision_tbl(i).object_version_number := p_x_revision_tbl(i).object_version_number;
498:
499: -- Standard call to get message count and if count is get message info.
500: l_msg_count := FND_MSG_PUB.count_msg;
501:
502: IF l_msg_count > 0 THEN
503: X_msg_count := l_msg_count;
504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 608: l_msg_count := FND_MSG_PUB.count_msg;

604: );
605:
606: -- Standard call to get message count and if count is get message info.
607:
608: l_msg_count := FND_MSG_PUB.count_msg;
609:
610: IF l_msg_count > 0 THEN
611: X_msg_count := l_msg_count;
612: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

717: EXCEPTION
718: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
719: ROLLBACK TO create_revision;
720: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
721: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
722: p_count => x_msg_count,
723: p_data => x_msg_data);
724: IF G_DEBUG='Y' THEN
725: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

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

733:
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO create_revision;
736: X_return_status := FND_API.G_RET_STS_ERROR;
737: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
738: p_count => x_msg_count,
739: p_data => X_msg_data);
740: -- Debug info.
741: IF G_DEBUG='Y' THEN

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

751:
752: WHEN OTHERS THEN
753: ROLLBACK TO create_revision;
754: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
756: THEN
757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
758: p_procedure_name => 'CREATE_REVISION',
759: p_error_text => SUBSTR(SQLERRM,1,240));

Line 757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',

753: ROLLBACK TO create_revision;
754: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
755: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
756: THEN
757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
758: p_procedure_name => 'CREATE_REVISION',
759: p_error_text => SUBSTR(SQLERRM,1,240));
760: END IF;
761: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

757: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
758: p_procedure_name => 'CREATE_REVISION',
759: p_error_text => SUBSTR(SQLERRM,1,240));
760: END IF;
761: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
762: p_count => x_msg_count,
763: p_data => X_msg_data);
764: -- Debug info.
765: IF G_DEBUG='Y' THEN

Line 884: FND_MSG_PUB.initialize;

880: END IF;
881: -- Standard call to check for call compatibility.
882: IF FND_API.to_boolean(l_init_msg_list)
883: THEN
884: FND_MSG_PUB.initialize;
885: END IF;
886: -- Initialize API return status to success
887: x_return_status := 'S';
888: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 916: FND_MSG_PUB.ADD;

912: THEN
913: p_x_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
914: ELSE
915: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
916: FND_MSG_PUB.ADD;
917: END IF;
918: CLOSE approved_by_party_desc;
919:
920:

Line 950: FND_MSG_PUB.ADD;

946: END LOOP;
947:
948: IF get_party_name%ROWCOUNT = 0 THEN
949: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
950: FND_MSG_PUB.ADD;
951: ELSIF get_party_name%ROWCOUNT = 1 THEN
952: p_x_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
953: ELSE
954: -- It will show the message to use LOV , so it would take care

Line 959: FND_MSG_PUB.ADD;

955: -- for duplicate records as well
956:
957:
958: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APPROVED_BY_USE_LOV');
959: FND_MSG_PUB.ADD;
960:
961: END IF;
962: CLOSE get_party_name;
963: END IF;

Line 993: FND_MSG_PUB.ADD;

989:
990: IF nvl(l_return_status, 'X') <> 'S'
991: THEN
992: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NOT_EXIST');
993: FND_MSG_PUB.ADD;
994: END IF;
995: END IF;
996: -- If Code is present
997: IF p_x_revision_tbl(i).revision_type_code IS NOT NULL

Line 1019: FND_MSG_PUB.ADD;

1015:
1016: IF nvl(l_return_status, 'X') <> 'S'
1017: THEN
1018: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
1019: FND_MSG_PUB.ADD;
1020: END IF;
1021: END IF;
1022: -- If ID presnt
1023: IF p_x_revision_tbl(i).media_type_code IS NOT NULL

Line 1046: FND_MSG_PUB.ADD;

1042:
1043: IF nvl(l_return_status, 'X') <> 'S'
1044: THEN
1045: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STAT_CODE_NOT_EXIST');
1046: FND_MSG_PUB.ADD;
1047: END IF;
1048: END IF;
1049: -- If Revision status code presents
1050: IF p_x_revision_tbl(i).revision_status_code IS NOT NULL

Line 1066: FND_MSG_PUB.ADD;

1062:
1063: IF p_x_revision_tbl(i).revision_date IS NULL OR p_x_revision_tbl(i).revision_date = FND_API.G_MISS_DATE
1064: THEN
1065: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVDT_NULL');
1066: FND_MSG_PUB.ADD;
1067: ELSE
1068: -- select the current revision date. the edited date cannot be less than that.
1069: SELECT REVISION_DATE INTO l_current_revision_date from
1070: ahl_doc_revisions_b

Line 1079: FND_MSG_PUB.ADD;

1075:
1076: IF p_x_revision_tbl(i).revision_date < l_current_revision_date
1077: THEN
1078: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVDT_LESS_PREVDATE');
1079: FND_MSG_PUB.ADD;
1080: END IF;
1081: END IF;
1082: /* Vineet - FP for Bug 5930628 - Removing all date validations as per PM discussion
1083: --if approved_date < revision_date then error

Line 1090: FND_MSG_PUB.ADD;

1086: THEN
1087: IF p_x_revision_tbl(i).approved_date < p_x_revision_tbl(i).revision_date
1088: THEN
1089: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APVDT_LESS_REVDT');
1090: FND_MSG_PUB.ADD;
1091: END IF;
1092: END IF;
1093:
1094: --if( issue date < either of (approved date,revision date)) then error.

Line 1104: FND_MSG_PUB.ADD;

1100: THEN
1101: IF p_x_revision_tbl(i).approved_date IS NULL
1102: THEN
1103: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
1104: FND_MSG_PUB.ADD;
1105: ELSE
1106: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
1107: FND_MSG_PUB.ADD;
1108: END IF;

Line 1107: FND_MSG_PUB.ADD;

1103: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
1104: FND_MSG_PUB.ADD;
1105: ELSE
1106: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
1107: FND_MSG_PUB.ADD;
1108: END IF;
1109: END IF;
1110:
1111: END IF;

Line 1123: FND_MSG_PUB.ADD;

1119: THEN
1120: IF p_x_revision_tbl(i).approved_date IS NULL
1121: THEN
1122: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
1123: FND_MSG_PUB.ADD;
1124: ELSE
1125: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
1126: FND_MSG_PUB.ADD;
1127: END IF;

Line 1126: FND_MSG_PUB.ADD;

1122: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
1123: FND_MSG_PUB.ADD;
1124: ELSE
1125: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
1126: FND_MSG_PUB.ADD;
1127: END IF;
1128: END IF;
1129: END IF;
1130:

Line 1138: FND_MSG_PUB.ADD;

1134: THEN
1135: IF p_x_revision_tbl(i).received_date > p_x_revision_tbl(i).revision_date
1136: THEN
1137: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECDT_GT_REVDT');
1138: FND_MSG_PUB.ADD;
1139: END IF;
1140: END IF;
1141: */
1142: -- if obsolete date is not null, check if it is less than any other date

Line 1148: FND_MSG_PUB.ADD;

1144: THEN
1145: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).revision_date
1146: THEN
1147: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_REVDT');
1148: FND_MSG_PUB.ADD;
1149: END IF;
1150:
1151: /* IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).approved_date
1152: THEN

Line 1154: FND_MSG_PUB.ADD;

1150:
1151: /* IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).approved_date
1152: THEN
1153: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_APVDT');
1154: FND_MSG_PUB.ADD;
1155: END IF;
1156:
1157: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
1158: THEN

Line 1160: FND_MSG_PUB.ADD;

1156:
1157: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
1158: THEN
1159: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_EFFDT');
1160: FND_MSG_PUB.ADD;
1161: END IF;
1162:
1163: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
1164: THEN

Line 1166: FND_MSG_PUB.ADD;

1162:
1163: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
1164: THEN
1165: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_ISSDT');
1166: FND_MSG_PUB.ADD;
1167: END IF;
1168:
1169: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
1170: THEN

Line 1172: FND_MSG_PUB.ADD;

1168:
1169: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
1170: THEN
1171: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_RECDT');
1172: FND_MSG_PUB.ADD;
1173: END IF;
1174: */
1175: END IF;
1176: -- if REVISION_STATUS_CODE == OBSOLETE and obsolete date is null then set it to sysdate.

Line 1227: l_msg_count := FND_MSG_PUB.count_msg;

1223: l_revision_tbl(i).delete_flag := p_x_revision_tbl(i).delete_flag;
1224: l_revision_tbl(i).object_version_number := p_x_revision_tbl(i).object_version_number;
1225:
1226: -- Standard call to get message count and if count is get message info.
1227: l_msg_count := FND_MSG_PUB.count_msg;
1228:
1229: IF l_msg_count > 0 THEN
1230: X_msg_count := l_msg_count;
1231: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 1328: l_msg_count := FND_MSG_PUB.count_msg;

1324: x_msg_count => l_msg_count,
1325: x_msg_data => l_msg_data
1326: );
1327: -- Standard call to get message count and if count is get message info.
1328: l_msg_count := FND_MSG_PUB.count_msg;
1329:
1330: IF l_msg_count > 0 THEN
1331: X_msg_count := l_msg_count;
1332: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

1433: EXCEPTION
1434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1435: ROLLBACK TO modify_revision;
1436: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1437: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1438: p_count => x_msg_count,
1439: p_data => x_msg_data);
1440: IF G_DEBUG='Y' THEN
1441: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

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

1448:
1449: WHEN FND_API.G_EXC_ERROR THEN
1450: ROLLBACK TO modify_revision;
1451: X_return_status := FND_API.G_RET_STS_ERROR;
1452: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1453: p_count => x_msg_count,
1454: p_data => X_msg_data);
1455: -- Debug info.
1456: IF G_DEBUG='Y' THEN

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

1465:
1466: WHEN OTHERS THEN
1467: ROLLBACK TO modify_revision;
1468: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1469: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1470: THEN
1471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1472: p_procedure_name => 'MODIFY_REVISION',
1473: p_error_text => SUBSTR(SQLERRM,1,240));

Line 1471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',

1467: ROLLBACK TO modify_revision;
1468: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1469: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1470: THEN
1471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1472: p_procedure_name => 'MODIFY_REVISION',
1473: p_error_text => SUBSTR(SQLERRM,1,240));
1474: END IF;
1475: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

1471: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1472: p_procedure_name => 'MODIFY_REVISION',
1473: p_error_text => SUBSTR(SQLERRM,1,240));
1474: END IF;
1475: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1476: p_count => x_msg_count,
1477: p_data => X_msg_data);
1478:
1479: -- Debug info.