193: THEN
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')
223: EXIT WHEN get_party_name%NOTFOUND;
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
231: ELSE
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;
267: x_return_status => l_return_status);
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
293: x_return_status => l_return_status);
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
319: x_return_status => l_return_status);
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
346: ELSE
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;
358: IF p_x_revision_tbl(i).approved_date IS NOT NULL
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:
373: IF p_x_revision_tbl(i).issue_date < nvl(p_x_revision_tbl(i).approved_date, p_x_revision_tbl(i).revision_date)
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;
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;
383: END IF;
384: END IF;
391: IF p_x_revision_tbl(i).effective_date < nvl(p_x_revision_tbl(i).approved_date, p_x_revision_tbl(i).revision_date)
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;
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;
401: END IF;
402: END IF;
406: IF p_x_revision_tbl(i).received_date IS NOT NULL
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: */
416: IF p_x_revision_tbl(i).obsolete_date IS NOT NULL
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
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
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
429: END IF;
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
435: END IF;
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
441: END IF;
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;
911: IF approved_by_party_desc%FOUND
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:
945: EXIT WHEN get_party_name%NOTFOUND;
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
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;
988: x_return_status => l_return_status);
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
1014: x_return_status => l_return_status);
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
1041: x_return_status => l_return_status);
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
1061: --if rev date is null then rev date = sysdate.
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
1074: ahl_doc_revisions_b.document_id = p_x_revision_tbl(i).document_id;
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
1085: IF p_x_revision_tbl(i).approved_date IS NOT NULL
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:
1099: IF p_x_revision_tbl(i).issue_date < nvl(p_x_revision_tbl(i).approved_date, p_x_revision_tbl(i).revision_date)
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;
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;
1109: END IF;
1110:
1118: IF p_x_revision_tbl(i).effective_date < nvl(p_x_revision_tbl(i).approved_date, p_x_revision_tbl(i).revision_date)
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;
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;
1128: END IF;
1129: END IF;
1133: IF p_x_revision_tbl(i).received_date IS NOT NULL
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: */
1143: IF p_x_revision_tbl(i).obsolete_date IS NOT NULL
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
1149: END IF;
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
1155: END IF;
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
1161: END IF;
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
1167: END IF;
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;