[Home] [Help]
9: /* new record as well before modification */
10: /* takes place */
11: /*---------------------------------------------------------*/
12:
13: G_DEBUG VARCHAR2(1):=AHL_DEBUG_PUB.is_log_enabled;
14: PROCEDURE VALIDATE_REVISION
15: (
16: P_DOC_REVISION_ID IN NUMBER ,
17: P_DOCUMENT_ID IN NUMBER ,
349:
350: -- Validating if media type is enigma enigma_doc_id should not be null
351: -- if null throw error message
352: IF G_DEBUG='Y' THEN
353: AHL_DEBUG_PUB.debug( 'in Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
354: AHL_DEBUG_PUB.debug( 'in Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
355: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
356: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
357: END IF;
350: -- Validating if media type is enigma enigma_doc_id should not be null
351: -- if null throw error message
352: IF G_DEBUG='Y' THEN
353: AHL_DEBUG_PUB.debug( 'in Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
354: AHL_DEBUG_PUB.debug( 'in Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
355: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
356: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
357: END IF;
358:
351: -- if null throw error message
352: IF G_DEBUG='Y' THEN
353: AHL_DEBUG_PUB.debug( 'in Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
354: AHL_DEBUG_PUB.debug( 'in Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
355: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
356: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
357: END IF;
358:
359: /* IF (p_media_type_code = 'ENIGMA' AND p_enigma_doc_id IS NULL)
352: IF G_DEBUG='Y' THEN
353: AHL_DEBUG_PUB.debug( 'in Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
354: AHL_DEBUG_PUB.debug( 'in Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
355: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
356: AHL_DEBUG_PUB.debug( 'in Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
357: END IF;
358:
359: /* IF (p_media_type_code = 'ENIGMA' AND p_enigma_doc_id IS NULL)
360: THEN
368: END IF;*/
369:
370:
371: IF G_DEBUG='Y' THEN
372: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
373: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
374: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
375: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
376: END IF;
369:
370:
371: IF G_DEBUG='Y' THEN
372: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
373: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
374: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
375: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
376: END IF;
377: -- Validating if media type is enigma enigma_model_code should not be null
370:
371: IF G_DEBUG='Y' THEN
372: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
373: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
374: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
375: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
376: END IF;
377: -- Validating if media type is enigma enigma_model_code should not be null
378: -- if null throw error message
371: IF G_DEBUG='Y' THEN
372: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_media_type_code ' ||p_enigma_doc_id||'p_media_type_code:'||p_media_type_code);
373: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_enigma_doc_id ' ||p_enigma_doc_id);
374: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_code ' ||p_x_enigma_model_code);
375: AHL_DEBUG_PUB.debug( 'in AFter lookup Validate :p_x_enigma_model_meaning ' ||p_x_enigma_model_meaning);
376: END IF;
377: -- Validating if media type is enigma enigma_model_code should not be null
378: -- if null throw error message
379: IF ( p_media_type_code = 'ENIGMA' )
574: RETURN ;
575: END IF;
576:
577: IF G_DEBUG='Y' THEN
578: AHL_DEBUG_PUB.debug( 'Got Max Revision Id' || l_latest_doc_revision_id);
579: END IF;
580:
581:
582: -- For each association record which has use_latest_flag = 'Y' and this document is attached,
606: FETCH get_pc_status INTO l_object_status_code;
607: CLOSE get_pc_status;
608: END IF;
609: IF G_DEBUG='Y' THEN
610: AHL_DEBUG_PUB.debug( 'Object Status Code ' || l_object_status_code);
611: END IF;
612: -- Updation is allowed only if the associated object status is complete or approval rejected or
613: -- draft.
614: IF l_object_status_code = 'COMPLETE' OR l_object_status_code = 'APPROVAL_REJECTED'
613: -- draft.
614: IF l_object_status_code = 'COMPLETE' OR l_object_status_code = 'APPROVAL_REJECTED'
615: OR l_object_status_code = 'DRAFT' THEN
616: IF G_DEBUG='Y' THEN
617: AHL_DEBUG_PUB.debug( 'Before Update in New Procedure' );
618: END IF;
619: UPDATE AHL_DOC_TITLE_ASSOS_B
620: SET doc_revision_id = l_latest_doc_revision_id,
621: object_version_number = l_asso_record.object_version_number + 1,
663: -- Standard Start of API savepoint
664: SAVEPOINT create_revision;
665: -- Check if API is called in debug mode. If yes, enable debug.
666: IF G_DEBUG='Y' THEN
667: AHL_DEBUG_PUB.enable_debug;
668:
669: END IF;
670: -- Debug info.
671: IF G_DEBUG='Y' THEN
669: END IF;
670: -- Debug info.
671: IF G_DEBUG='Y' THEN
672: IF G_DEBUG='Y' THEN
673: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_revision_pvt.Create Revision','+REV+');
674:
675: END IF;
676: END IF;
677: -- Standard call to check for call compatibility.
940: COMMIT;
941: END IF;
942: -- Debug info
943: IF G_DEBUG='Y' THEN
944: AHL_DEBUG_PUB.debug( 'End of private api Create Revision','+REV+');
945:
946: END IF;
947: -- Check if API is called in debug mode. If yes, disable debug.
948: IF G_DEBUG='Y' THEN
945:
946: END IF;
947: -- Check if API is called in debug mode. If yes, disable debug.
948: IF G_DEBUG='Y' THEN
949: AHL_DEBUG_PUB.disable_debug;
950:
951: END IF;
952:
953: EXCEPTION
958: p_count => x_msg_count,
959: p_data => x_msg_data);
960: --Debug Info
961: IF G_DEBUG='Y' THEN
962: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
963: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
964:
965:
966: -- Check if API is called in debug mode. If yes, disable debug.
959: p_data => x_msg_data);
960: --Debug Info
961: IF G_DEBUG='Y' THEN
962: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
963: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
964:
965:
966: -- Check if API is called in debug mode. If yes, disable debug.
967: AHL_DEBUG_PUB.disable_debug;
963: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
964:
965:
966: -- Check if API is called in debug mode. If yes, disable debug.
967: AHL_DEBUG_PUB.disable_debug;
968:
969: END IF;
970:
971: WHEN FND_API.G_EXC_ERROR THEN
975: p_count => x_msg_count,
976: p_data => X_msg_data);
977: -- Debug info.
978: IF G_DEBUG='Y' THEN
979: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
980: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
981:
982:
983: -- Check if API is called in debug mode. If yes, disable debug.
976: p_data => X_msg_data);
977: -- Debug info.
978: IF G_DEBUG='Y' THEN
979: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
980: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
981:
982:
983: -- Check if API is called in debug mode. If yes, disable debug.
984: AHL_DEBUG_PUB.disable_debug;
980: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
981:
982:
983: -- Check if API is called in debug mode. If yes, disable debug.
984: AHL_DEBUG_PUB.disable_debug;
985:
986: END IF;
987:
988: WHEN OTHERS THEN
998: p_count => x_msg_count,
999: p_data => X_msg_data);
1000: -- Debug info.
1001: IF G_DEBUG='Y' THEN
1002: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
1003: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
1004:
1005: -- Check if API is called in debug mode. If yes, disable debug.
1006: AHL_DEBUG_PUB.disable_debug;
999: p_data => X_msg_data);
1000: -- Debug info.
1001: IF G_DEBUG='Y' THEN
1002: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
1003: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
1004:
1005: -- Check if API is called in debug mode. If yes, disable debug.
1006: AHL_DEBUG_PUB.disable_debug;
1007:
1002: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
1003: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Create Revision','+REV+');
1004:
1005: -- Check if API is called in debug mode. If yes, disable debug.
1006: AHL_DEBUG_PUB.disable_debug;
1007:
1008: END IF;
1009:
1010: END CREATE_REVISION;
1102: -- Standard Start of API savepoint
1103: SAVEPOINT modify_revision;
1104: -- Check if API is called in debug mode. If yes, enable debug.
1105: IF G_DEBUG='Y' THEN
1106: AHL_DEBUG_PUB.enable_debug;
1107:
1108: END IF;
1109: -- Debug info.
1110: IF G_DEBUG='Y' THEN
1108: END IF;
1109: -- Debug info.
1110: IF G_DEBUG='Y' THEN
1111: IF G_DEBUG='Y' THEN
1112: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1113:
1114: END IF;
1115: END IF;
1116: -- Standard call to check for call compatibility.
1202: l_revision_info.revision_status_code := p_x_revision_tbl(i).revision_status_code;
1203: END IF;
1204:
1205: IF G_DEBUG='Y' THEN
1206: AHL_DEBUG_PUB.debug( 'obs date ' || l_revision_info.obsolete_date);
1207: AHL_DEBUG_PUB.debug( 'rev_status_code ' || l_revision_info.revision_status_code);
1208: END IF;
1209: -- End of FP
1210: l_revision_info.issue_date := p_x_revision_tbl(i).issue_date;
1203: END IF;
1204:
1205: IF G_DEBUG='Y' THEN
1206: AHL_DEBUG_PUB.debug( 'obs date ' || l_revision_info.obsolete_date);
1207: AHL_DEBUG_PUB.debug( 'rev_status_code ' || l_revision_info.revision_status_code);
1208: END IF;
1209: -- End of FP
1210: l_revision_info.issue_date := p_x_revision_tbl(i).issue_date;
1211: l_revision_info.received_date := p_x_revision_tbl(i).received_date;
1410: COMMIT;
1411: END IF;
1412: -- Debug info
1413: IF G_DEBUG='Y' THEN
1414: AHL_DEBUG_PUB.debug( 'End of private api Modify Revision','+REV+');
1415:
1416: END IF;
1417: -- Check if API is called in debug mode. If yes, disable debug.
1418: IF G_DEBUG='Y' THEN
1415:
1416: END IF;
1417: -- Check if API is called in debug mode. If yes, disable debug.
1418: IF G_DEBUG='Y' THEN
1419: AHL_DEBUG_PUB.disable_debug;
1420:
1421: END IF;
1422: EXCEPTION
1423: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1427: p_count => x_msg_count,
1428: p_data => x_msg_data);
1429:
1430: IF G_DEBUG='Y' THEN
1431: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
1432: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1433:
1434:
1435: -- Check if API is called in debug mode. If yes, disable debug.
1428: p_data => x_msg_data);
1429:
1430: IF G_DEBUG='Y' THEN
1431: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'ERROR' );
1432: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1433:
1434:
1435: -- Check if API is called in debug mode. If yes, disable debug.
1436: AHL_DEBUG_PUB.disable_debug;
1432: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1433:
1434:
1435: -- Check if API is called in debug mode. If yes, disable debug.
1436: AHL_DEBUG_PUB.disable_debug;
1437:
1438: END IF;
1439:
1440: WHEN FND_API.G_EXC_ERROR THEN
1444: p_count => x_msg_count,
1445: p_data => X_msg_data);
1446: -- Debug info.
1447: IF G_DEBUG='Y' THEN
1448: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
1449: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1450:
1451:
1452: -- Check if API is called in debug mode. If yes, disable debug.
1445: p_data => X_msg_data);
1446: -- Debug info.
1447: IF G_DEBUG='Y' THEN
1448: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'UNEXPECTED ERROR' );
1449: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1450:
1451:
1452: -- Check if API is called in debug mode. If yes, disable debug.
1453: AHL_DEBUG_PUB.disable_debug;
1449: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1450:
1451:
1452: -- Check if API is called in debug mode. If yes, disable debug.
1453: AHL_DEBUG_PUB.disable_debug;
1454:
1455: END IF;
1456:
1457: WHEN OTHERS THEN
1468: p_data => X_msg_data);
1469:
1470: -- Debug info.
1471: IF G_DEBUG='Y' THEN
1472: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
1473: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1474:
1475:
1476: -- Check if API is called in debug mode. If yes, disable debug.
1469:
1470: -- Debug info.
1471: IF G_DEBUG='Y' THEN
1472: AHL_DEBUG_PUB.log_app_messages (x_msg_count, x_msg_data, 'SQL ERROR' );
1473: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1474:
1475:
1476: -- Check if API is called in debug mode. If yes, disable debug.
1477: AHL_DEBUG_PUB.disable_debug;
1473: AHL_DEBUG_PUB.debug( 'ahl_di_doc_revision_pvt.Modify Revision','+REV+');
1474:
1475:
1476: -- Check if API is called in debug mode. If yes, disable debug.
1477: AHL_DEBUG_PUB.disable_debug;
1478:
1479: END IF;
1480:
1481: END MODIFY_REVISION;