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 167: FND_MSG_PUB.initialize;

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

Line 202: FND_MSG_PUB.ADD;

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

Line 232: FND_MSG_PUB.ADD;

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

Line 240: FND_MSG_PUB.ADD;

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

Line 276: FND_MSG_PUB.ADD;

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

Line 302: FND_MSG_PUB.ADD;

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

Line 328: FND_MSG_PUB.ADD;

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

Line 355: FND_MSG_PUB.ADD;

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

Line 367: FND_MSG_PUB.ADD;

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

Line 382: FND_MSG_PUB.ADD;

378: THEN
379: IF p_x_revision_tbl(i).approved_date IS NULL
380: THEN
381: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
382: FND_MSG_PUB.ADD;
383: ELSE
384: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
385: FND_MSG_PUB.ADD;
386: END IF;

Line 385: FND_MSG_PUB.ADD;

381: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
382: FND_MSG_PUB.ADD;
383: ELSE
384: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
385: FND_MSG_PUB.ADD;
386: END IF;
387: END IF;
388: END IF;
389:

Line 400: FND_MSG_PUB.ADD;

396: THEN
397: IF p_x_revision_tbl(i).approved_date IS NULL
398: THEN
399: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
400: FND_MSG_PUB.ADD;
401: ELSE
402: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
403: FND_MSG_PUB.ADD;
404: END IF;

Line 403: FND_MSG_PUB.ADD;

399: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
400: FND_MSG_PUB.ADD;
401: ELSE
402: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
403: FND_MSG_PUB.ADD;
404: END IF;
405: END IF;
406: END IF;
407:

Line 415: FND_MSG_PUB.ADD;

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

Line 425: FND_MSG_PUB.ADD;

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

Line 432: FND_MSG_PUB.ADD;

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

Line 438: FND_MSG_PUB.ADD;

434:
435: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
436: THEN
437: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_EFFDT');
438: FND_MSG_PUB.ADD;
439: END IF;
440:
441: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
442: THEN

Line 444: FND_MSG_PUB.ADD;

440:
441: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
442: THEN
443: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_ISSDT');
444: FND_MSG_PUB.ADD;
445: END IF;
446:
447: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
448: THEN

Line 450: FND_MSG_PUB.ADD;

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

Line 509: l_msg_count := FND_MSG_PUB.count_msg;

505: l_revision_tbl(i).delete_flag := p_x_revision_tbl(i).delete_flag;
506: l_revision_tbl(i).object_version_number := p_x_revision_tbl(i).object_version_number;
507:
508: -- Standard call to get message count and if count is get message info.
509: l_msg_count := FND_MSG_PUB.count_msg;
510:
511: IF l_msg_count > 0 THEN
512: X_msg_count := l_msg_count;
513: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 617: l_msg_count := FND_MSG_PUB.count_msg;

613: );
614:
615: -- Standard call to get message count and if count is get message info.
616:
617: l_msg_count := FND_MSG_PUB.count_msg;
618:
619: IF l_msg_count > 0 THEN
620: X_msg_count := l_msg_count;
621: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

726: EXCEPTION
727: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
728: ROLLBACK TO create_revision;
729: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
730: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
732: p_data => x_msg_data);
733: IF G_DEBUG='Y' THEN
734: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

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

742:
743: WHEN FND_API.G_EXC_ERROR THEN
744: ROLLBACK TO create_revision;
745: X_return_status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
747: p_count => x_msg_count,
748: p_data => X_msg_data);
749: -- Debug info.
750: IF G_DEBUG='Y' THEN

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

760:
761: WHEN OTHERS THEN
762: ROLLBACK TO create_revision;
763: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
767: p_procedure_name => 'CREATE_REVISION',
768: p_error_text => SUBSTR(SQLERRM,1,240));

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

762: ROLLBACK TO create_revision;
763: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
765: THEN
766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
767: p_procedure_name => 'CREATE_REVISION',
768: p_error_text => SUBSTR(SQLERRM,1,240));
769: END IF;
770: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

766: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
767: p_procedure_name => 'CREATE_REVISION',
768: p_error_text => SUBSTR(SQLERRM,1,240));
769: END IF;
770: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
771: p_count => x_msg_count,
772: p_data => X_msg_data);
773: -- Debug info.
774: IF G_DEBUG='Y' THEN

Line 907: FND_MSG_PUB.initialize;

903: END IF;
904: -- Standard call to check for call compatibility.
905: IF FND_API.to_boolean(l_init_msg_list)
906: THEN
907: FND_MSG_PUB.initialize;
908: END IF;
909: -- Initialize API return status to success
910: x_return_status := 'S';
911: -- Initialize message list if p_init_msg_list is set to TRUE.

Line 937: FND_MSG_PUB.ADD;

933: THEN
934: p_x_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
935: ELSE
936: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
937: FND_MSG_PUB.ADD;
938: END IF;
939: CLOSE approved_by_party_desc;
940:
941:

Line 971: FND_MSG_PUB.ADD;

967: END LOOP;
968:
969: IF get_party_name%ROWCOUNT = 0 THEN
970: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APP_BY_PTY_ID_NOT_EXIST');
971: FND_MSG_PUB.ADD;
972: ELSIF get_party_name%ROWCOUNT = 1 THEN
973: p_x_revision_tbl(i).approved_by_party_id := l_approved_by_party_id;
974: ELSE
975: -- It will show the message to use LOV , so it would take care

Line 980: FND_MSG_PUB.ADD;

976: -- for duplicate records as well
977:
978:
979: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APPROVED_BY_USE_LOV');
980: FND_MSG_PUB.ADD;
981:
982: END IF;
983: CLOSE get_party_name;
984: END IF;

Line 1014: FND_MSG_PUB.ADD;

1010:
1011: IF nvl(l_return_status, 'X') <> 'S'
1012: THEN
1013: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_TYPE_CODE_NOT_EXIST');
1014: FND_MSG_PUB.ADD;
1015: END IF;
1016: END IF;
1017: -- If Code is present
1018: IF p_x_revision_tbl(i).revision_type_code IS NOT NULL

Line 1040: FND_MSG_PUB.ADD;

1036:
1037: IF nvl(l_return_status, 'X') <> 'S'
1038: THEN
1039: FND_MESSAGE.SET_NAME('AHL','AHL_DI_MEDTYP_CODE_NOT_EXISTS');
1040: FND_MSG_PUB.ADD;
1041: END IF;
1042: END IF;
1043: -- If ID presnt
1044: IF p_x_revision_tbl(i).media_type_code IS NOT NULL

Line 1067: FND_MSG_PUB.ADD;

1063:
1064: IF nvl(l_return_status, 'X') <> 'S'
1065: THEN
1066: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REV_STAT_CODE_NOT_EXIST');
1067: FND_MSG_PUB.ADD;
1068: END IF;
1069: END IF;
1070: -- If Revision status code presents
1071: IF p_x_revision_tbl(i).revision_status_code IS NOT NULL

Line 1087: FND_MSG_PUB.ADD;

1083:
1084: IF p_x_revision_tbl(i).revision_date IS NULL OR p_x_revision_tbl(i).revision_date = FND_API.G_MISS_DATE
1085: THEN
1086: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVDT_NULL');
1087: FND_MSG_PUB.ADD;
1088: ELSE
1089: -- select the current revision date. the edited date cannot be less than that.
1090: SELECT REVISION_DATE INTO l_current_revision_date from
1091: ahl_doc_revisions_b

Line 1100: FND_MSG_PUB.ADD;

1096:
1097: IF p_x_revision_tbl(i).revision_date < l_current_revision_date
1098: THEN
1099: FND_MESSAGE.SET_NAME('AHL','AHL_DI_REVDT_LESS_PREVDATE');
1100: FND_MSG_PUB.ADD;
1101: END IF;
1102: END IF;
1103: /* Vineet - FP for Bug 5930628 - Removing all date validations as per PM discussion
1104: --if approved_date < revision_date then error

Line 1111: FND_MSG_PUB.ADD;

1107: THEN
1108: IF p_x_revision_tbl(i).approved_date < p_x_revision_tbl(i).revision_date
1109: THEN
1110: FND_MESSAGE.SET_NAME('AHL','AHL_DI_APVDT_LESS_REVDT');
1111: FND_MSG_PUB.ADD;
1112: END IF;
1113: END IF;
1114:
1115: --if( issue date < either of (approved date,revision date)) then error.

Line 1125: FND_MSG_PUB.ADD;

1121: THEN
1122: IF p_x_revision_tbl(i).approved_date IS NULL
1123: THEN
1124: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
1125: FND_MSG_PUB.ADD;
1126: ELSE
1127: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
1128: FND_MSG_PUB.ADD;
1129: END IF;

Line 1128: FND_MSG_PUB.ADD;

1124: FND_MESSAGE.SET_NAME('AHL', 'AHL_DI_ISSDT_LESS_REVDT');
1125: FND_MSG_PUB.ADD;
1126: ELSE
1127: FND_MESSAGE.SET_NAME('AHL','AHL_DI_ISSDT_LESS_APVDT');
1128: FND_MSG_PUB.ADD;
1129: END IF;
1130: END IF;
1131:
1132: END IF;

Line 1144: FND_MSG_PUB.ADD;

1140: THEN
1141: IF p_x_revision_tbl(i).approved_date IS NULL
1142: THEN
1143: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
1144: FND_MSG_PUB.ADD;
1145: ELSE
1146: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
1147: FND_MSG_PUB.ADD;
1148: END IF;

Line 1147: FND_MSG_PUB.ADD;

1143: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_REVDT');
1144: FND_MSG_PUB.ADD;
1145: ELSE
1146: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_APVDT');
1147: FND_MSG_PUB.ADD;
1148: END IF;
1149: END IF;
1150: END IF;
1151:

Line 1159: FND_MSG_PUB.ADD;

1155: THEN
1156: IF p_x_revision_tbl(i).received_date > p_x_revision_tbl(i).revision_date
1157: THEN
1158: FND_MESSAGE.SET_NAME('AHL','AHL_DI_RECDT_GT_REVDT');
1159: FND_MSG_PUB.ADD;
1160: END IF;
1161: END IF;
1162: */
1163: -- if obsolete date is not null, check if it is less than any other date

Line 1169: FND_MSG_PUB.ADD;

1165: THEN
1166: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).revision_date
1167: THEN
1168: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_REVDT');
1169: FND_MSG_PUB.ADD;
1170: END IF;
1171:
1172: /* IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).approved_date
1173: THEN

Line 1175: FND_MSG_PUB.ADD;

1171:
1172: /* IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).approved_date
1173: THEN
1174: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_APVDT');
1175: FND_MSG_PUB.ADD;
1176: END IF;
1177:
1178: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
1179: THEN

Line 1181: FND_MSG_PUB.ADD;

1177:
1178: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).effective_date
1179: THEN
1180: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_EFFDT');
1181: FND_MSG_PUB.ADD;
1182: END IF;
1183:
1184: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
1185: THEN

Line 1187: FND_MSG_PUB.ADD;

1183:
1184: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).issue_date
1185: THEN
1186: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_ISSDT');
1187: FND_MSG_PUB.ADD;
1188: END IF;
1189:
1190: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
1191: THEN

Line 1193: FND_MSG_PUB.ADD;

1189:
1190: IF p_x_revision_tbl(i).obsolete_date < p_x_revision_tbl(i).received_date
1191: THEN
1192: FND_MESSAGE.SET_NAME('AHL','AHL_DI_OBSDT_LT_RECDT');
1193: FND_MSG_PUB.ADD;
1194: END IF;
1195: */
1196: END IF;
1197: -- if REVISION_STATUS_CODE == OBSOLETE and obsolete date is null then set it to sysdate.

Line 1215: FND_MSG_PUB.ADD;

1211: FETCH get_current_effective_date INTO l_current_effective_date;
1212: CLOSE get_current_effective_date;
1213: IF l_current_effective_date > p_x_revision_tbl(i).effective_date THEN
1214: FND_MESSAGE.SET_NAME('AHL','AHL_DI_EFFDT_LESS_PREVDATE');
1215: FND_MSG_PUB.ADD;
1216: END IF;
1217: -- FP end
1218:
1219: l_revision_tbl(i).doc_revision_id := p_x_revision_tbl(i).doc_revision_id;

Line 1263: l_msg_count := FND_MSG_PUB.count_msg;

1259: l_revision_tbl(i).delete_flag := p_x_revision_tbl(i).delete_flag;
1260: l_revision_tbl(i).object_version_number := p_x_revision_tbl(i).object_version_number;
1261:
1262: -- Standard call to get message count and if count is get message info.
1263: l_msg_count := FND_MSG_PUB.count_msg;
1264:
1265: IF l_msg_count > 0 THEN
1266: X_msg_count := l_msg_count;
1267: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

Line 1364: l_msg_count := FND_MSG_PUB.count_msg;

1360: x_msg_count => l_msg_count,
1361: x_msg_data => l_msg_data
1362: );
1363: -- Standard call to get message count and if count is get message info.
1364: l_msg_count := FND_MSG_PUB.count_msg;
1365:
1366: IF l_msg_count > 0 THEN
1367: X_msg_count := l_msg_count;
1368: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR

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

1469: EXCEPTION
1470: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1471: ROLLBACK TO modify_revision;
1472: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1473: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1474: p_count => x_msg_count,
1475: p_data => x_msg_data);
1476: IF G_DEBUG='Y' THEN
1477: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );

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

1484:
1485: WHEN FND_API.G_EXC_ERROR THEN
1486: ROLLBACK TO modify_revision;
1487: X_return_status := FND_API.G_RET_STS_ERROR;
1488: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1489: p_count => x_msg_count,
1490: p_data => X_msg_data);
1491: -- Debug info.
1492: IF G_DEBUG='Y' THEN

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

1501:
1502: WHEN OTHERS THEN
1503: ROLLBACK TO modify_revision;
1504: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1506: THEN
1507: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1508: p_procedure_name => 'MODIFY_REVISION',
1509: p_error_text => SUBSTR(SQLERRM,1,240));

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

1503: ROLLBACK TO modify_revision;
1504: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1505: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1506: THEN
1507: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1508: p_procedure_name => 'MODIFY_REVISION',
1509: p_error_text => SUBSTR(SQLERRM,1,240));
1510: END IF;
1511: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,

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

1507: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AHL_DI_DOC_REVISION_PUB',
1508: p_procedure_name => 'MODIFY_REVISION',
1509: p_error_text => SUBSTR(SQLERRM,1,240));
1510: END IF;
1511: FND_MSG_PUB.count_and_get( p_encoded => FND_API.G_FALSE,
1512: p_count => x_msg_count,
1513: p_data => X_msg_data);
1514:
1515: -- Debug info.