[Home] [Help]
470: l_document_id NUMBER;
471: l_document_info doc_rec;
472: l_rowid1 varchar2(30);
473: BEGIN
474: -- Standard Start of API savepoint
475: SAVEPOINT create_document;
476: -- Check if API is called in debug mode. If yes, enable debug.
477: IF G_DEBUG='Y' THEN
478: AHL_DEBUG_PUB.enable_debug;
484: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.create_document','+DI+');
485:
486: END IF;
487: END IF;
488: -- Standard call to check for call compatibility.
489: IF FND_API.to_boolean(p_init_msg_list)
490: THEN
491: FND_MSG_PUB.initialize;
492: END IF;
518: p_object_version_number => p_x_document_tbl(i).object_version_number,
519: p_delete_flag => p_x_document_tbl(i).delete_flag);
520:
521: END LOOP;
522: --Standard Call to count messages
523: l_msg_count := FND_MSG_PUB.count_msg;
524:
525: IF l_msg_count > 0 THEN
526: X_msg_count := l_msg_count;
664: x_msg_count => x_msg_count ,
665: x_msg_data => x_msg_data
666: );
667: END IF;
668: --Standard check for message count
669: l_msg_count := FND_MSG_PUB.count_msg;
670:
671: IF l_msg_count > 0 THEN
672: X_msg_count := l_msg_count;
672: X_msg_count := l_msg_count;
673: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
674: RAISE FND_API.G_EXC_ERROR;
675: END IF;
676: --Standard check for commit;
677: IF FND_API.TO_BOOLEAN(p_commit) THEN
678: COMMIT;
679: --DBMS_OUTPUT.PUT_LINE('THE RECORD IS NOT COMMITTED .THE TEST RUN HAS BEEN SUCESSFUL');
680: --ROLLBACK;
809: l_document_info get_doc_rec_b_info%ROWTYPE;
810: --
811: l_num VARCHAR2(10);
812: BEGIN
813: -- Standard Start of API savepoint
814: SAVEPOINT modify_document;
815:
816: -- Check if API is called in debug mode. If yes, enable debug.
817: IF G_DEBUG='Y' THEN
824: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.modify_document','+DI+');
825:
826: END IF;
827: END IF;
828: -- Standard call to check for call compatibility.
829: IF FND_API.to_boolean(p_init_msg_list)
830: THEN
831: FND_MSG_PUB.initialize;
832: END IF;
862: p_delete_flag => p_x_document_tbl(i).delete_flag);
863:
864:
865: END LOOP;
866: --Standard check to count messages
867: l_msg_count := FND_MSG_PUB.count_msg;
868:
869: IF l_msg_count > 0 THEN
870: X_msg_count := l_msg_count;
1058: x_msg_count => x_msg_count ,
1059: x_msg_data => x_msg_data
1060: );
1061: END IF;
1062: --Standard check for message count
1063: l_msg_count := FND_MSG_PUB.count_msg;
1064:
1065: IF l_msg_count > 0 THEN
1066: X_msg_count := l_msg_count;
1066: X_msg_count := l_msg_count;
1067: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: --Standard check for commit
1071: IF FND_API.TO_BOOLEAN(p_commit) THEN
1072: COMMIT;
1073: END IF;
1074: -- Debug info
1397: l_supplier_name VARCHAR2(360);
1398: l_supplier_info supplier_rec;
1399: l_prod_install_status VARCHAR2(30);
1400: BEGIN
1401: -- Standard Start of API savepoint
1402: SAVEPOINT create_supplier;
1403: -- Check if API is called in debug mode. If yes, enable debug.
1404: IF G_DEBUG='Y' THEN
1405: AHL_DEBUG_PUB.enable_debug;
1408: IF G_DEBUG='Y' THEN
1409: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Create Supplier','+SUP+');
1410: END IF;
1411:
1412: -- Standard call to check for call compatibility.
1413: IF FND_API.to_boolean(p_init_msg_list)
1414: THEN
1415: FND_MSG_PUB.initialize;
1416: END IF;
1447: p_preference_code => p_x_supplier_tbl(i).preference_code,
1448: p_delete_flag => p_x_supplier_tbl(i).delete_flag
1449: );
1450: END LOOP;
1451: -- Standard call to get message count and if count is get message info.
1452: l_msg_count := FND_MSG_PUB.count_msg;
1453:
1454: IF l_msg_count > 0 THEN
1455: X_msg_count := l_msg_count;
1596: RAISE FND_API.G_EXC_ERROR;
1597: END IF;
1598: --{{adharia
1599:
1600: -- Standard check of p_commit.
1601: IF FND_API.TO_BOOLEAN(p_commit) THEN
1602: COMMIT;
1603: END IF;
1604: -- Debug info
1753: l_supplier_name VARCHAR2(390);
1754: l_supplier_info get_supplier_rec_info%ROWTYPE;
1755: l_prod_install_status VARCHAR2(30);
1756: BEGIN
1757: -- Standard Start of API savepoint
1758: SAVEPOINT modify_supplier;
1759: -- Check if API is called in debug mode. If yes, enable debug.
1760: IF G_DEBUG='Y' THEN
1761: AHL_DEBUG_PUB.enable_debug;
1765: IF G_DEBUG='Y' THEN
1766: AHL_DEBUG_PUB.debug( 'anand enter ahl_di_doc_index_pvt.Modify Supplier','+SUP+');
1767: END IF;
1768:
1769: -- Standard call to check for call compatibility.
1770: IF FND_API.to_boolean(p_init_msg_list)
1771: THEN
1772: FND_MSG_PUB.initialize;
1773: END IF;
1814: p_delete_flag => p_supplier_tbl(i).delete_flag
1815: );
1816: END LOOP;
1817: --End of Validations
1818: -- Standard call to get message count
1819: l_msg_count := FND_MSG_PUB.count_msg;
1820: --ad
1821: IF G_DEBUG='Y' THEN
1822: IF G_DEBUG='Y' THEN
1956: RAISE FND_API.G_EXC_ERROR;
1957: END IF;
1958: --{{ADHARIA
1959:
1960: -- Standard check of p_commit.
1961: IF FND_API.TO_BOOLEAN(p_commit) THEN
1962: COMMIT;
1963: END IF;
1964:
2122: l_supplier_name VARCHAR2(30);
2123: l_dummy VARCHAR2(2000);
2124: l_prod_install_status VARCHAR2(30);
2125: BEGIN
2126: -- Standard Start of API savepoint
2127: SAVEPOINT delete_supplier;
2128: -- Check if API is called in debug mode. If yes, enable debug.
2129: IF G_DEBUG='Y' THEN
2130: AHL_DEBUG_PUB.enable_debug;
2133: -- Debug info.
2134: IF G_DEBUG='Y' THEN
2135: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Delete Supplier','+SUP+');
2136: END IF;
2137: -- Standard call to check for call compatibility.
2138: IF FND_API.to_boolean(p_init_msg_list)
2139: THEN
2140: FND_MSG_PUB.initialize;
2141: END IF;
2213: -- Delete the record from suppliers table
2214: DELETE FROM AHL_SUPPLIER_DOCUMENTS
2215: WHERE ROWID = l_rowid;
2216: --END IF;
2217: -- Standard call to get message count
2218: l_msg_count := FND_MSG_PUB.count_msg;
2219:
2220: IF l_msg_count > 0 THEN
2221: X_msg_count := l_msg_count;
2222: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2223: --AD RAISE FND_API.G_EXC_ERROR;
2224: END IF;
2225:
2226: -- Standard check of p_commit.
2227: IF FND_API.TO_BOOLEAN(p_commit) THEN
2228: COMMIT;
2229: END IF;
2230: -- Debug info
2467: l_dummy VARCHAR2(2000);
2468: l_recipient_document_id NUMBER;
2469: l_recipient_info Recipient_rec;
2470: BEGIN
2471: -- Standard Start of API savepoint
2472: SAVEPOINT create_recipient;
2473: -- Check if API is called in debug mode. If yes, enable debug.
2474: IF G_DEBUG='Y' THEN
2475: AHL_DEBUG_PUB.enable_debug;
2481: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Create Recipient','+REP+');
2482:
2483: END IF;
2484: END IF;
2485: -- Standard call to check for call compatibility.
2486: IF FND_API.to_boolean(p_init_msg_list)
2487: THEN
2488: FND_MSG_PUB.initialize;
2489: END IF;
2508: p_document_id => p_x_recipient_tbl(i).document_id,
2509: p_object_version_number => p_x_recipient_tbl(i).object_version_number,
2510: p_delete_flag => p_x_recipient_tbl(i).delete_flag);
2511: END LOOP;
2512: -- Standard call to get message count and if count is get message info.
2513: l_msg_count := FND_MSG_PUB.count_msg;
2514:
2515: IF l_msg_count > 0 THEN
2516: X_msg_count := l_msg_count;
2615: fnd_global.user_id,
2616: fnd_global.login_id
2617: );
2618: p_x_recipient_tbl(i).recipient_document_id := l_recipient_document_id;
2619: -- Standard check to count messages
2620: /*adharia
2621: l_msg_count := FND_MSG_PUB.count_msg;
2622:
2623: IF l_msg_count > 0 THEN
2640: RAISE FND_API.G_EXC_ERROR;
2641: end if;
2642: --adharia
2643:
2644: -- Standard check of p_commit.
2645: IF FND_API.TO_BOOLEAN(p_commit) THEN
2646: COMMIT;
2647: END IF;
2648: -- Debug info
2770: l_document_id NUMBER;
2771: l_recipient_document_id NUMBER;
2772: l_recipient_info get_recipient_rec_info%ROWTYPE;
2773: BEGIN
2774: -- Standard Start of API savepoint
2775: SAVEPOINT modify_recipient;
2776: -- Check if API is called in debug mode. If yes, enable debug.
2777:
2778: IF G_DEBUG='Y' THEN
2785: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Modify Recipient','+REP+');
2786:
2787: END IF;
2788: END IF;
2789: -- Standard call to check for call compatibility.
2790: IF FND_API.to_boolean(p_init_msg_list)
2791: THEN
2792: FND_MSG_PUB.initialize;
2793: END IF;
2813: p_object_version_number => p_recipient_tbl(i).object_version_number,
2814: p_delete_flag => p_recipient_tbl(i).delete_flag
2815: );
2816: END LOOP;
2817: --Standard call to count messages
2818: l_msg_count := FND_MSG_PUB.count_msg;
2819:
2820: IF l_msg_count > 0 THEN
2821: X_msg_count := l_msg_count;
2909: END IF;
2910: end if;--ad
2911: END LOOP;
2912: END IF;
2913: -- Standard check of p_commit.
2914: IF FND_API.TO_BOOLEAN(p_commit) THEN
2915: COMMIT;
2916: END IF;
2917: -- Debug info
3028: l_rowid ROWID;
3029: l_object_version_number NUMBER;
3030:
3031: BEGIN
3032: -- Standard Start of API savepoint
3033: SAVEPOINT delete_recipient;
3034: -- Check if API is called in debug mode. If yes, enable debug.
3035:
3036: IF G_DEBUG='Y' THEN
3043: AHL_DEBUG_PUB.debug( 'enter ahl_di_doc_index_pvt.Delete Recipient','+REP+');
3044:
3045: END IF;
3046: END IF;
3047: -- Standard call to check for call compatibility.
3048: IF FND_API.to_boolean(p_init_msg_list)
3049: THEN
3050: FND_MSG_PUB.initialize;
3051: END IF;