288: THEN
289: CLOSE delivery_leg_csr;
290: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
291: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
292: RAISE FND_API.G_EXC_ERROR;
293: END IF;
294: CLOSE delivery_leg_csr;
295: --
296: -- Debug Statements
344: -----------------------------------------------------------------------------
345:
346: FUNCTION Get_Sequence_Type
347: ( p_api_version IN NUMBER
348: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
349: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
350: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
351: , x_return_status OUT NOCOPY VARCHAR2
352: , x_msg_count OUT NOCOPY NUMBER
345:
346: FUNCTION Get_Sequence_Type
347: ( p_api_version IN NUMBER
348: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
349: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
350: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
351: , x_return_status OUT NOCOPY VARCHAR2
352: , x_msg_count OUT NOCOPY NUMBER
353: , x_msg_data OUT NOCOPY VARCHAR2
346: FUNCTION Get_Sequence_Type
347: ( p_api_version IN NUMBER
348: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
349: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
350: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
351: , x_return_status OUT NOCOPY VARCHAR2
352: , x_msg_count OUT NOCOPY NUMBER
353: , x_msg_data OUT NOCOPY VARCHAR2
354: , p_application_id IN NUMBER
428: WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_CODE',P_DOCUMENT_CODE);
429: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
430: END IF;
431: --
432: IF NOT FND_API.Compatible_API_Call ( l_api_version,
433: p_api_version,
434: l_api_name,
435: g_pkg_name ) THEN
436: RAISE FND_API.g_exc_unexpected_error;
432: IF NOT FND_API.Compatible_API_Call ( l_api_version,
433: p_api_version,
434: l_api_name,
435: g_pkg_name ) THEN
436: RAISE FND_API.g_exc_unexpected_error;
437: END IF;
438:
439: -- initialize message list if p_init_msg_list is set to TRUE.
440:
437: END IF;
438:
439: -- initialize message list if p_init_msg_list is set to TRUE.
440:
441: IF FND_API.to_boolean( p_init_msg_list ) THEN
442: FND_MSG_PUB.initialize;
443: END IF;
444:
445: -- initialize API return status to success
451: THEN
452: CLOSE type_csr;
453: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_ASSIGNMENT_MISSING');
454: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457: -- call FND API to get the sequence type information
458: l_seq_return := FND_SEQNUM.get_seq_info
459: ( app_id => p_application_id
453: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_ASSIGNMENT_MISSING');
454: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
455: RAISE FND_API.G_EXC_ERROR;
456: END IF;
457: -- call FND API to get the sequence type information
458: l_seq_return := FND_SEQNUM.get_seq_info
459: ( app_id => p_application_id
460: , cat_code => type_rec.category_code
461: , sob_id => p_ledger_id -- LE Uptake
482: --
483: RETURN l_type;
484: EXCEPTION
485:
486: WHEN FND_API.g_exc_error THEN
487: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
488: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
489: p_data => x_msg_data );
490: --
490: --
491: -- Debug Statements
492: --
493: IF l_debug_on THEN
494: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
495: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
496: END IF;
497: --
498: RETURN null;
491: -- Debug Statements
492: --
493: IF l_debug_on THEN
494: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
495: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
496: END IF;
497: --
498: RETURN null;
499:
496: END IF;
497: --
498: RETURN null;
499:
500: WHEN FND_API.g_exc_unexpected_error THEN
501: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
502: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
503: p_data => x_msg_data );
504: --
504: --
505: -- Debug Statements
506: --
507: IF l_debug_on THEN
508: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
509: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
510: END IF;
511: --
512: RETURN null;
505: -- Debug Statements
506: --
507: IF l_debug_on THEN
508: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
509: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
510: END IF;
511: --
512: RETURN null;
513:
565: ------------------------------------------------------------------------------
566:
567: FUNCTION Is_Final
568: ( p_api_version IN NUMBER
569: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
570: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
571: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
572: , x_return_status OUT NOCOPY VARCHAR2
573: , x_msg_count OUT NOCOPY NUMBER
566:
567: FUNCTION Is_Final
568: ( p_api_version IN NUMBER
569: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
570: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
571: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
572: , x_return_status OUT NOCOPY VARCHAR2
573: , x_msg_count OUT NOCOPY NUMBER
574: , x_msg_data OUT NOCOPY VARCHAR2
567: FUNCTION Is_Final
568: ( p_api_version IN NUMBER
569: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
570: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
571: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
572: , x_return_status OUT NOCOPY VARCHAR2
573: , x_msg_count OUT NOCOPY NUMBER
574: , x_msg_data OUT NOCOPY VARCHAR2
575: , p_delivery_id IN NUMBER
613: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
614: WSH_DEBUG_SV.log(l_module_name,'P_DOCUMENT_TYPE',P_DOCUMENT_TYPE);
615: END IF;
616: --
617: IF NOT FND_API.Compatible_API_Call ( l_api_version,
618: p_api_version,
619: l_api_name,
620: g_pkg_name ) THEN
621: RAISE FND_API.g_exc_unexpected_error;
617: IF NOT FND_API.Compatible_API_Call ( l_api_version,
618: p_api_version,
619: l_api_name,
620: g_pkg_name ) THEN
621: RAISE FND_API.g_exc_unexpected_error;
622: END IF;
623:
624: -- initialize message list if p_init_msg_list is set to TRUE.
625: IF FND_API.to_boolean( p_init_msg_list ) THEN
621: RAISE FND_API.g_exc_unexpected_error;
622: END IF;
623:
624: -- initialize message list if p_init_msg_list is set to TRUE.
625: IF FND_API.to_boolean( p_init_msg_list ) THEN
626: FND_MSG_PUB.initialize;
627: END IF;
628:
629: -- initialize API return status to success
629: -- initialize API return status to success
630: x_return_status := WSH_UTIL_CORE.g_ret_sts_success;
631:
632: -- initially l_isfinal=FALSE, means no document is not final
633: l_isfinal := FND_API.G_false;
634:
635: -- if p_consolidate_option is CONSOLIDATE or BOTH, we need to check
636: -- the parent delivery first
637: SELECT doc.final_print_date
641: AND doc.entity_name='WSH_NEW_DELIVERIES'
642: AND doc.document_type=p_document_type;
643: IF l_temp_date IS NOT NULL
644: THEN
645: l_isfinal := FND_API.g_true;
646: END IF;
647: --
648: -- Debug Statements
649: --
655: RETURN l_isfinal;
656:
657: EXCEPTION
658:
659: WHEN FND_API.g_exc_error THEN
660: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
661: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
662: p_data => x_msg_data );
663: --
663: --
664: -- Debug Statements
665: --
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
668: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
669: END IF;
670: --
671: RETURN null;
664: -- Debug Statements
665: --
666: IF l_debug_on THEN
667: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
668: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
669: END IF;
670: --
671: RETURN null;
672:
669: END IF;
670: --
671: RETURN null;
672:
673: WHEN FND_API.g_exc_unexpected_error THEN
674: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
675: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
676: p_data => x_msg_data );
677: --
677: --
678: -- Debug Statements
679: --
680: IF l_debug_on THEN
681: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
682: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
683: END IF;
684: --
685: RETURN null;
678: -- Debug Statements
679: --
680: IF l_debug_on THEN
681: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
682: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
683: END IF;
684: --
685: RETURN null;
686:
738: ------------------------------------------------------------------------------
739:
740: PROCEDURE Set_Final_Print_Date
741: ( p_api_version IN NUMBER
742: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
743: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
744: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
745: , x_return_status OUT NOCOPY VARCHAR2
746: , x_msg_count OUT NOCOPY NUMBER
739:
740: PROCEDURE Set_Final_Print_Date
741: ( p_api_version IN NUMBER
742: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
743: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
744: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
745: , x_return_status OUT NOCOPY VARCHAR2
746: , x_msg_count OUT NOCOPY NUMBER
747: , x_msg_data OUT NOCOPY VARCHAR2
740: PROCEDURE Set_Final_Print_Date
741: ( p_api_version IN NUMBER
742: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
743: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
744: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
745: , x_return_status OUT NOCOPY VARCHAR2
746: , x_msg_count OUT NOCOPY NUMBER
747: , x_msg_data OUT NOCOPY VARCHAR2
748: , p_delivery_id IN NUMBER
788: --
789: SAVEPOINT WSH_Document_PVT;
790:
791: -- standard call to check for call compatibility.
792: IF NOT FND_API.Compatible_API_Call ( l_api_version,
793: p_api_version,
794: l_api_name,
795: g_pkg_name ) THEN
796: RAISE FND_API.g_exc_unexpected_error;
792: IF NOT FND_API.Compatible_API_Call ( l_api_version,
793: p_api_version,
794: l_api_name,
795: g_pkg_name ) THEN
796: RAISE FND_API.g_exc_unexpected_error;
797: END IF;
798:
799: -- initialize message list if p_init_msg_list is set to TRUE.
800: IF FND_API.to_boolean( p_init_msg_list ) THEN
796: RAISE FND_API.g_exc_unexpected_error;
797: END IF;
798:
799: -- initialize message list if p_init_msg_list is set to TRUE.
800: IF FND_API.to_boolean( p_init_msg_list ) THEN
801: FND_MSG_PUB.initialize;
802: END IF;
803:
804: -- initialize API return status to success
819: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
820: p_data => x_msg_data);
821:
822: -- Standard check of p_commit.
823: IF FND_API.to_boolean( p_commit ) THEN
824: COMMIT WORK;
825: END IF;
826:
827: --
832: END IF;
833: --
834: EXCEPTION
835:
836: WHEN FND_API.g_exc_error THEN
837:
838: ROLLBACK to WSH_Document_PVT;
839: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
840: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
843: --
844: -- Debug Statements
845: --
846: IF l_debug_on THEN
847: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
848: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
849: END IF;
850: --
851: WHEN FND_API.g_exc_unexpected_error THEN
844: -- Debug Statements
845: --
846: IF l_debug_on THEN
847: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
848: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
849: END IF;
850: --
851: WHEN FND_API.g_exc_unexpected_error THEN
852:
847: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
848: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
849: END IF;
850: --
851: WHEN FND_API.g_exc_unexpected_error THEN
852:
853: ROLLBACK to WSH_Document_PVT;
854: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
855: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
857: --
858: -- Debug Statements
859: --
860: IF l_debug_on THEN
861: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
862: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
863: END IF;
864: --
865: WHEN others THEN
858: -- Debug Statements
859: --
860: IF l_debug_on THEN
861: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
862: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
863: END IF;
864: --
865: WHEN others THEN
866:
968: -----------------------------------------------------------------------------
969:
970: PROCEDURE Create_Document
971: ( p_api_version IN NUMBER
972: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
973: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
974: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
975: , x_return_status OUT NOCOPY VARCHAR2
976: , x_msg_count OUT NOCOPY NUMBER
969:
970: PROCEDURE Create_Document
971: ( p_api_version IN NUMBER
972: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
973: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
974: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
975: , x_return_status OUT NOCOPY VARCHAR2
976: , x_msg_count OUT NOCOPY NUMBER
977: , x_msg_data OUT NOCOPY VARCHAR2
970: PROCEDURE Create_Document
971: ( p_api_version IN NUMBER
972: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
973: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
974: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
975: , x_return_status OUT NOCOPY VARCHAR2
976: , x_msg_count OUT NOCOPY NUMBER
977: , x_msg_data OUT NOCOPY VARCHAR2
978: , p_entity_name IN VARCHAR2 DEFAULT NULL
1149: --
1150: SAVEPOINT WSH_Document_PVT;
1151:
1152: -- standard call to check for call compatibility.
1153: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1154: p_api_version,
1155: l_api_name,
1156: g_pkg_name ) THEN
1157: RAISE FND_API.g_exc_unexpected_error;
1153: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1154: p_api_version,
1155: l_api_name,
1156: g_pkg_name ) THEN
1157: RAISE FND_API.g_exc_unexpected_error;
1158: END IF;
1159:
1160: -- initialize message list if p_init_msg_list is set to TRUE.
1161:
1158: END IF;
1159:
1160: -- initialize message list if p_init_msg_list is set to TRUE.
1161:
1162: IF FND_API.to_boolean( p_init_msg_list ) THEN
1163: FND_MSG_PUB.initialize;
1164: END IF;
1165:
1166: -- initialize API return status to success
1171: THEN
1172: CLOSE category_csr;
1173: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_CATEGORY_MISSING');
1174: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1175: RAISE FND_API.G_EXC_ERROR;
1176: END IF;
1177: l_doc_sequence_category_id := category_rec.doc_sequence_category_id;
1178: CLOSE category_csr;
1179:
1186: IF assignment_csr%NOTFOUND THEN
1187: CLOSE assignment_csr;
1188: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_ASSIGNMENT_MISSING');
1189: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1190: RAISE FND_API.G_EXC_ERROR;
1191: END IF;
1192: l_doc_sequence_id := assignment_rec.doc_sequence_id;
1193: CLOSE assignment_csr;
1194:
1231: THEN
1232: CLOSE delivery_csr;
1233: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
1234: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1235: RAISE FND_API.G_EXC_ERROR;
1236: END IF;
1237: CLOSE delivery_csr;
1238:
1239: ---------------------------------------------------------------
1254:
1255: IF NOT l_delivery_id_tab.EXISTS(1) THEN
1256: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
1257: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1258: RAISE FND_API.G_EXC_ERROR;
1259: END IF;
1260:
1261:
1262: FOR ctr IN 1..l_delivery_id_tab.count LOOP
1320: END IF;
1321:
1322: -------------------------------------------------------------------------
1323: -- if the sequence type is automatic --
1324: -- call the FND API to get a new number for each delivery --
1325: -- if the sequence type is manual --
1326: -- if this is a parent delivery --
1327: -- call the FND API to validate the number given by the user --
1328: -- if this is a child delivery --
1323: -- if the sequence type is automatic --
1324: -- call the FND API to get a new number for each delivery --
1325: -- if the sequence type is manual --
1326: -- if this is a parent delivery --
1327: -- call the FND API to validate the number given by the user --
1328: -- if this is a child delivery --
1329: -- use the same number given by the user for all child deliveries --
1330: -------------------------------------------------------------------------
1331: -- 2695602: Added type = 'G' below for handling Gapless Sequences
1348: IF NVL(l_sequence_number,0) = 0
1349: THEN
1350: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_SEQ_ERROR');
1351: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1352: RAISE FND_API.G_EXC_ERROR;
1353: END IF;
1354:
1355: /* l_document_number := LTRIM(RTRIM(category_rec.prefix)) ||
1356: category_rec.delimiter ||
1546: END IF;
1547:
1548: -------------------------------------------------------------------------
1549: -- if the sequence type is automatic or Gapless --
1550: -- call the FND API to get a new number --
1551: -- if the sequence type is manual --
1552: -- use the number given by the user --
1553: -------------------------------------------------------------------------
1554:
1569: IF NVL(l_sequence_number,0) = 0
1570: THEN
1571: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_SEQ_ERROR');
1572: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1573: RAISE FND_API.G_EXC_ERROR;
1574: END IF;
1575:
1576: IF category_rec.prefix is not NULL THEN
1577: l_prefix:= LTRIM(RTRIM(category_rec.prefix))||category_rec.delimiter;
1662: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
1663: p_data => x_msg_data);
1664:
1665: -- Standard check of p_commit.
1666: IF FND_API.to_boolean( p_commit ) THEN
1667: COMMIT WORK;
1668: END IF;
1669:
1670:
1699: IF l_debug_on THEN
1700: WSH_DEBUG_SV.logmsg(l_module_name,'Cannot lock delivery leg for update');
1701: END IF;
1702:
1703: WHEN FND_API.g_exc_error THEN
1704: --Bug 4284167 (FP Bug 4149501)
1705: IF (get_lock_on_leg%ISOPEN) THEN
1706: CLOSE get_lock_on_leg;
1707: END IF;
1713: --
1714: -- Debug Statements
1715: --
1716: IF l_debug_on THEN
1717: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1718: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1719: END IF;
1720: --
1721: WHEN FND_API.g_exc_unexpected_error THEN
1714: -- Debug Statements
1715: --
1716: IF l_debug_on THEN
1717: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1718: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1719: END IF;
1720: --
1721: WHEN FND_API.g_exc_unexpected_error THEN
1722: --Bug 4284167 (FP Bug 4149501)
1717: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1718: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1719: END IF;
1720: --
1721: WHEN FND_API.g_exc_unexpected_error THEN
1722: --Bug 4284167 (FP Bug 4149501)
1723: IF (get_lock_on_leg%ISOPEN) THEN
1724: CLOSE get_lock_on_leg;
1725: END IF;
1731: --
1732: -- Debug Statements
1733: --
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1737: END IF;
1738: --
1739: WHEN others THEN
1732: -- Debug Statements
1733: --
1734: IF l_debug_on THEN
1735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1737: END IF;
1738: --
1739: WHEN others THEN
1740: --Bug 4284167 (FP Bug 4149501)
1834: -----------------------------------------------------------------------------
1835:
1836: PROCEDURE Update_Document
1837: ( p_api_version IN NUMBER
1838: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
1839: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1840: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
1841: , x_return_status OUT NOCOPY VARCHAR2
1842: , x_msg_count OUT NOCOPY NUMBER
1835:
1836: PROCEDURE Update_Document
1837: ( p_api_version IN NUMBER
1838: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
1839: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1840: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
1841: , x_return_status OUT NOCOPY VARCHAR2
1842: , x_msg_count OUT NOCOPY NUMBER
1843: , x_msg_data OUT NOCOPY VARCHAR2
1836: PROCEDURE Update_Document
1837: ( p_api_version IN NUMBER
1838: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
1839: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
1840: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
1841: , x_return_status OUT NOCOPY VARCHAR2
1842: , x_msg_count OUT NOCOPY NUMBER
1843: , x_msg_data OUT NOCOPY VARCHAR2
1844: , p_entity_name IN VARCHAR2 DEFAULT NULL
1924: --
1925: SAVEPOINT WSH_Document_PVT;
1926:
1927: -- standard call to check for call compatibility.
1928: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1929: p_api_version,
1930: l_api_name,
1931: g_pkg_name ) THEN
1932: RAISE FND_API.g_exc_unexpected_error;
1928: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1929: p_api_version,
1930: l_api_name,
1931: g_pkg_name ) THEN
1932: RAISE FND_API.g_exc_unexpected_error;
1933: END IF;
1934:
1935: -- initialize message list if p_init_msg_list is set to TRUE.
1936:
1933: END IF;
1934:
1935: -- initialize message list if p_init_msg_list is set to TRUE.
1936:
1937: IF FND_API.to_boolean( p_init_msg_list ) THEN
1938: FND_MSG_PUB.initialize;
1939: END IF;
1940:
1941: -- initialize API return status to success
1989:
1990: IF NOT l_delivery_id_tab.EXISTS(1) THEN
1991: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
1992: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
1993: RAISE FND_API.G_EXC_ERROR;
1994: END IF;
1995:
1996: FOR ctr IN 1..l_delivery_id_tab.count LOOP
1997:
2024: IF old_values_csr%NOTFOUND THEN
2025: CLOSE old_values_csr;
2026: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_MISSING');
2027: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2028: RAISE FND_API.G_EXC_ERROR;
2029: END IF;
2030:
2031: -- if the document is cancelled, raise error
2032: IF old_values_rec.status = 'CANCELLED' THEN
2031: -- if the document is cancelled, raise error
2032: IF old_values_rec.status = 'CANCELLED' THEN
2033: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
2034: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2035: RAISE FND_API.G_EXC_ERROR;
2036: END IF;
2037:
2038: -- need to change this update within loop to a bulk update later.
2039: -- probably use temporary tables with a join
2054: -- get message count and the message itself (if only one message)
2055: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2056: p_data => x_msg_data);
2057: -- Standard check of p_commit.
2058: IF FND_API.to_boolean( p_commit ) THEN
2059: COMMIT WORK;
2060: END IF;
2061: --
2062: -- Debug Statements
2066: END IF;
2067: --
2068: EXCEPTION
2069:
2070: WHEN FND_API.g_exc_error THEN
2071: ROLLBACK to WSH_Document_PVT;
2072: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2073: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
2074: p_data => x_msg_data );
2076: --
2077: -- Debug Statements
2078: --
2079: IF l_debug_on THEN
2080: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2082: END IF;
2083: --
2084: WHEN FND_API.g_exc_unexpected_error THEN
2077: -- Debug Statements
2078: --
2079: IF l_debug_on THEN
2080: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2082: END IF;
2083: --
2084: WHEN FND_API.g_exc_unexpected_error THEN
2085: ROLLBACK to WSH_Document_PVT;
2080: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2082: END IF;
2083: --
2084: WHEN FND_API.g_exc_unexpected_error THEN
2085: ROLLBACK to WSH_Document_PVT;
2086: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2087: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
2088: p_data => x_msg_data );
2090: --
2091: -- Debug Statements
2092: --
2093: IF l_debug_on THEN
2094: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2095: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2096: END IF;
2097: --
2098: WHEN others THEN
2091: -- Debug Statements
2092: --
2093: IF l_debug_on THEN
2094: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2095: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2096: END IF;
2097: --
2098: WHEN others THEN
2099: ROLLBACK to WSH_Document_PVT;
2152:
2153:
2154: PROCEDURE Cancel_Document
2155: ( p_api_version IN NUMBER
2156: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2157: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2158: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2159: , x_return_status OUT NOCOPY VARCHAR2
2160: , x_msg_count OUT NOCOPY NUMBER
2153:
2154: PROCEDURE Cancel_Document
2155: ( p_api_version IN NUMBER
2156: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2157: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2158: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2159: , x_return_status OUT NOCOPY VARCHAR2
2160: , x_msg_count OUT NOCOPY NUMBER
2161: , x_msg_data OUT NOCOPY VARCHAR2
2154: PROCEDURE Cancel_Document
2155: ( p_api_version IN NUMBER
2156: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2157: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2158: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2159: , x_return_status OUT NOCOPY VARCHAR2
2160: , x_msg_count OUT NOCOPY NUMBER
2161: , x_msg_data OUT NOCOPY VARCHAR2
2162: , p_entity_name IN VARCHAR2 DEFAULT NULL
2246: --
2247: SAVEPOINT WSH_Document_PVT;
2248:
2249: -- standard call to check for call compatibility.
2250: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2251: p_api_version,
2252: l_api_name,
2253: g_pkg_name ) THEN
2254: RAISE FND_API.g_exc_unexpected_error;
2250: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2251: p_api_version,
2252: l_api_name,
2253: g_pkg_name ) THEN
2254: RAISE FND_API.g_exc_unexpected_error;
2255: END IF;
2256:
2257: -- initialize message list if p_init_msg_list is set to TRUE.
2258:
2255: END IF;
2256:
2257: -- initialize message list if p_init_msg_list is set to TRUE.
2258:
2259: IF FND_API.to_boolean( p_init_msg_list ) THEN
2260: FND_MSG_PUB.initialize;
2261: END IF;
2262:
2263: -- initialize API return status to success
2314:
2315: IF NOT l_delivery_id_tab.EXISTS(1) THEN
2316: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
2317: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2318: RAISE FND_API.G_EXC_ERROR;
2319: END IF;
2320:
2321: FOR ctr IN 1..l_delivery_id_tab.count LOOP
2322:
2349: IF status_csr%NOTFOUND THEN
2350: CLOSE status_csr;
2351: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_MISSING');
2352: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2353: RAISE FND_API.G_EXC_ERROR;
2354: END IF;
2355:
2356: UPDATE wsh_document_instances
2357: SET status = 'CANCELLED'
2382: -- get message count and the message itself (if only one message)
2383: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2384: p_data => x_msg_data);
2385: -- Standard check of p_commit.
2386: IF FND_API.to_boolean( p_commit ) THEN
2387: COMMIT WORK;
2388: END IF;
2389: --
2390: -- Debug Statements
2394: END IF;
2395: --
2396: EXCEPTION
2397:
2398: WHEN FND_API.g_exc_error THEN
2399: ROLLBACK to WSH_Document_PVT;
2400: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2401: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
2402: p_data => x_msg_data );
2404: --
2405: -- Debug Statements
2406: --
2407: IF l_debug_on THEN
2408: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2409: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2410: END IF;
2411: --
2412: WHEN FND_API.g_exc_unexpected_error THEN
2405: -- Debug Statements
2406: --
2407: IF l_debug_on THEN
2408: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2409: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2410: END IF;
2411: --
2412: WHEN FND_API.g_exc_unexpected_error THEN
2413: ROLLBACK to WSH_Document_PVT;
2408: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2409: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2410: END IF;
2411: --
2412: WHEN FND_API.g_exc_unexpected_error THEN
2413: ROLLBACK to WSH_Document_PVT;
2414: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2415: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
2416: p_data => x_msg_data );
2418: --
2419: -- Debug Statements
2420: --
2421: IF l_debug_on THEN
2422: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2423: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2424: END IF;
2425: --
2426: WHEN others THEN
2419: -- Debug Statements
2420: --
2421: IF l_debug_on THEN
2422: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2423: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2424: END IF;
2425: --
2426: WHEN others THEN
2427: ROLLBACK to WSH_Document_PVT;
2479:
2480:
2481: PROCEDURE Open_Document
2482: ( p_api_version IN NUMBER
2483: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2484: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2485: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2486: , x_return_status OUT NOCOPY VARCHAR2
2487: , x_msg_count OUT NOCOPY NUMBER
2480:
2481: PROCEDURE Open_Document
2482: ( p_api_version IN NUMBER
2483: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2484: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2485: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2486: , x_return_status OUT NOCOPY VARCHAR2
2487: , x_msg_count OUT NOCOPY NUMBER
2488: , x_msg_data OUT NOCOPY VARCHAR2
2481: PROCEDURE Open_Document
2482: ( p_api_version IN NUMBER
2483: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2484: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2485: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2486: , x_return_status OUT NOCOPY VARCHAR2
2487: , x_msg_count OUT NOCOPY NUMBER
2488: , x_msg_data OUT NOCOPY VARCHAR2
2489: , p_entity_name IN VARCHAR2 DEFAULT NULL
2565: --
2566: SAVEPOINT WSH_Document_PVT;
2567:
2568: -- standard call to check for call compatibility.
2569: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2570: p_api_version,
2571: l_api_name,
2572: g_pkg_name ) THEN
2573: RAISE FND_API.g_exc_unexpected_error;
2569: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2570: p_api_version,
2571: l_api_name,
2572: g_pkg_name ) THEN
2573: RAISE FND_API.g_exc_unexpected_error;
2574: END IF;
2575:
2576: -- initialize message list if p_init_msg_list is set to TRUE.
2577:
2574: END IF;
2575:
2576: -- initialize message list if p_init_msg_list is set to TRUE.
2577:
2578: IF FND_API.to_boolean( p_init_msg_list ) THEN
2579: FND_MSG_PUB.initialize;
2580: END IF;
2581:
2582: -- initialize API return status to success
2630:
2631: IF NOT l_delivery_id_tab.EXISTS(1) THEN
2632: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
2633: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2634: RAISE FND_API.G_EXC_ERROR;
2635: END IF;
2636:
2637: FOR ctr IN 1..l_delivery_id_tab.count LOOP
2638:
2665: IF status_csr%NOTFOUND THEN
2666: CLOSE status_csr;
2667: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_MISSING');
2668: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2669: RAISE FND_API.G_EXC_ERROR;
2670: END IF;
2671:
2672: UPDATE wsh_document_instances
2673: SET status = 'OPEN'
2685: -- get message count and the message itself (if only one message)
2686: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2687: p_data => x_msg_data);
2688: -- Standard check of p_commit.
2689: IF FND_API.to_boolean( p_commit ) THEN
2690: COMMIT WORK;
2691: END IF;
2692: --
2693: -- Debug Statements
2697: END IF;
2698: --
2699: EXCEPTION
2700:
2701: WHEN FND_API.g_exc_error THEN
2702: ROLLBACK to WSH_Document_PVT;
2703: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
2704: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
2705: p_data => x_msg_data );
2707: --
2708: -- Debug Statements
2709: --
2710: IF l_debug_on THEN
2711: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2712: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2713: END IF;
2714: --
2715: WHEN FND_API.g_exc_unexpected_error THEN
2708: -- Debug Statements
2709: --
2710: IF l_debug_on THEN
2711: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2712: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2713: END IF;
2714: --
2715: WHEN FND_API.g_exc_unexpected_error THEN
2716: ROLLBACK to WSH_Document_PVT;
2711: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2712: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2713: END IF;
2714: --
2715: WHEN FND_API.g_exc_unexpected_error THEN
2716: ROLLBACK to WSH_Document_PVT;
2717: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
2718: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
2719: p_data => x_msg_data );
2721: --
2722: -- Debug Statements
2723: --
2724: IF l_debug_on THEN
2725: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2726: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2727: END IF;
2728: --
2729: WHEN others THEN
2722: -- Debug Statements
2723: --
2724: IF l_debug_on THEN
2725: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2726: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2727: END IF;
2728: --
2729: WHEN others THEN
2730: ROLLBACK to WSH_Document_PVT;
2783:
2784:
2785: PROCEDURE Complete_Document
2786: ( p_api_version IN NUMBER
2787: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2788: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2789: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2790: , x_return_status OUT NOCOPY VARCHAR2
2791: , x_msg_count OUT NOCOPY NUMBER
2784:
2785: PROCEDURE Complete_Document
2786: ( p_api_version IN NUMBER
2787: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2788: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2789: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2790: , x_return_status OUT NOCOPY VARCHAR2
2791: , x_msg_count OUT NOCOPY NUMBER
2792: , x_msg_data OUT NOCOPY VARCHAR2
2785: PROCEDURE Complete_Document
2786: ( p_api_version IN NUMBER
2787: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
2788: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
2789: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
2790: , x_return_status OUT NOCOPY VARCHAR2
2791: , x_msg_count OUT NOCOPY NUMBER
2792: , x_msg_data OUT NOCOPY VARCHAR2
2793: , p_entity_name IN VARCHAR2 DEFAULT NULL
2869: --
2870: SAVEPOINT WSH_Document_PVT;
2871:
2872: -- standard call to check for call compatibility.
2873: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2874: p_api_version,
2875: l_api_name,
2876: g_pkg_name ) THEN
2877: RAISE FND_API.g_exc_unexpected_error;
2873: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2874: p_api_version,
2875: l_api_name,
2876: g_pkg_name ) THEN
2877: RAISE FND_API.g_exc_unexpected_error;
2878: END IF;
2879:
2880: -- initialize message list if p_init_msg_list is set to TRUE.
2881:
2878: END IF;
2879:
2880: -- initialize message list if p_init_msg_list is set to TRUE.
2881:
2882: IF FND_API.to_boolean( p_init_msg_list ) THEN
2883: FND_MSG_PUB.initialize;
2884: END IF;
2885:
2886: -- initialize API return status to success
2934:
2935: IF NOT l_delivery_id_tab.EXISTS(1) THEN
2936: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_INVALID_DELIVERY');
2937: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2938: RAISE FND_API.G_EXC_ERROR;
2939: END IF;
2940:
2941: FOR ctr IN 1..l_delivery_id_tab.count LOOP
2942:
2969: IF status_csr%NOTFOUND THEN
2970: CLOSE status_csr;
2971: FND_MESSAGE.set_name ('WSH', 'WSH_DOC_MISSING');
2972: WSH_UTIL_CORE.add_message (WSH_UTIL_CORE.g_ret_sts_error);
2973: RAISE FND_API.G_EXC_ERROR;
2974: END IF;
2975:
2976: UPDATE wsh_document_instances
2977: SET status = 'COMPLETE'
2989: -- get message count and the message itself (if only one message)
2990: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
2991: p_data => x_msg_data);
2992: -- Standard check of p_commit.
2993: IF FND_API.to_boolean( p_commit ) THEN
2994: COMMIT WORK;
2995: END IF;
2996: --
2997: -- Debug Statements
3001: END IF;
3002: --
3003: EXCEPTION
3004:
3005: WHEN FND_API.g_exc_error THEN
3006: ROLLBACK to WSH_Document_PVT;
3007: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3008: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3009: p_data => x_msg_data );
3011: --
3012: -- Debug Statements
3013: --
3014: IF l_debug_on THEN
3015: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3016: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3017: END IF;
3018: --
3019: WHEN FND_API.g_exc_unexpected_error THEN
3012: -- Debug Statements
3013: --
3014: IF l_debug_on THEN
3015: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3016: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3017: END IF;
3018: --
3019: WHEN FND_API.g_exc_unexpected_error THEN
3020: ROLLBACK to WSH_Document_PVT;
3015: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3016: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3017: END IF;
3018: --
3019: WHEN FND_API.g_exc_unexpected_error THEN
3020: ROLLBACK to WSH_Document_PVT;
3021: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3022: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3023: p_data => x_msg_data );
3025: --
3026: -- Debug Statements
3027: --
3028: IF l_debug_on THEN
3029: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3030: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3031: END IF;
3032: --
3033: WHEN others THEN
3026: -- Debug Statements
3027: --
3028: IF l_debug_on THEN
3029: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3030: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3031: END IF;
3032: --
3033: WHEN others THEN
3034: ROLLBACK to WSH_Document_PVT;
3093: ------------------------------------------------------------------------------
3094:
3095: PROCEDURE Print_Document
3096: ( p_api_version IN NUMBER
3097: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3098: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3099: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3100: , x_return_status OUT NOCOPY VARCHAR2
3101: , x_msg_count OUT NOCOPY NUMBER
3094:
3095: PROCEDURE Print_Document
3096: ( p_api_version IN NUMBER
3097: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3098: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3099: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3100: , x_return_status OUT NOCOPY VARCHAR2
3101: , x_msg_count OUT NOCOPY NUMBER
3102: , x_msg_data OUT NOCOPY VARCHAR2
3095: PROCEDURE Print_Document
3096: ( p_api_version IN NUMBER
3097: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3098: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3099: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3100: , x_return_status OUT NOCOPY VARCHAR2
3101: , x_msg_count OUT NOCOPY NUMBER
3102: , x_msg_data OUT NOCOPY VARCHAR2
3103: , p_delivery_id IN NUMBER
3155: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_CARRIER',P_FREIGHT_CARRIER);
3156: WSH_DEBUG_SV.log(l_module_name,'P_WAREHOUSE_ID',P_WAREHOUSE_ID);
3157: END IF;
3158: --
3159: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3160: p_api_version,
3161: l_api_name,
3162: g_pkg_name ) THEN
3163: RAISE FND_API.g_exc_unexpected_error;
3159: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3160: p_api_version,
3161: l_api_name,
3162: g_pkg_name ) THEN
3163: RAISE FND_API.g_exc_unexpected_error;
3164: END IF;
3165:
3166: -- initialize message list if p_init_msg_list is set to TRUE.
3167:
3164: END IF;
3165:
3166: -- initialize message list if p_init_msg_list is set to TRUE.
3167:
3168: IF FND_API.to_boolean( p_init_msg_list ) THEN
3169: FND_MSG_PUB.initialize;
3170: END IF;
3171:
3172: -- initialize API return status to success
3217: END IF;
3218: --
3219: EXCEPTION
3220:
3221: WHEN FND_API.g_exc_error THEN
3222: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3223: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3224: p_data => x_msg_data );
3225:
3226: --
3227: -- Debug Statements
3228: --
3229: IF l_debug_on THEN
3230: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3231: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3232: END IF;
3233: --
3234: WHEN FND_API.g_exc_unexpected_error THEN
3227: -- Debug Statements
3228: --
3229: IF l_debug_on THEN
3230: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3231: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3232: END IF;
3233: --
3234: WHEN FND_API.g_exc_unexpected_error THEN
3235: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3230: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3231: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3232: END IF;
3233: --
3234: WHEN FND_API.g_exc_unexpected_error THEN
3235: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3236: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3237: p_data => x_msg_data );
3238: --
3238: --
3239: -- Debug Statements
3240: --
3241: IF l_debug_on THEN
3242: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3244: END IF;
3245: --
3246: WHEN others THEN
3239: -- Debug Statements
3240: --
3241: IF l_debug_on THEN
3242: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3244: END IF;
3245: --
3246: WHEN others THEN
3247: FND_MESSAGE.set_name ('WSH','WSH_UNEXP_ERROR');
3295: ------------------------------------------------------------------------------
3296:
3297: FUNCTION Get_CumQty
3298: ( p_api_version IN NUMBER
3299: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3300: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3301: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3302: , x_return_status OUT NOCOPY VARCHAR2
3303: , x_msg_count OUT NOCOPY NUMBER
3296:
3297: FUNCTION Get_CumQty
3298: ( p_api_version IN NUMBER
3299: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3300: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3301: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3302: , x_return_status OUT NOCOPY VARCHAR2
3303: , x_msg_count OUT NOCOPY NUMBER
3304: , x_msg_data OUT NOCOPY VARCHAR2
3297: FUNCTION Get_CumQty
3298: ( p_api_version IN NUMBER
3299: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3300: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3301: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3302: , x_return_status OUT NOCOPY VARCHAR2
3303: , x_msg_count OUT NOCOPY NUMBER
3304: , x_msg_data OUT NOCOPY VARCHAR2
3305: , p_customer_id IN NUMBER
3356: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
3357: WSH_DEBUG_SV.log(l_module_name,'P_OE_ORDER_LINE_ID',P_OE_ORDER_LINE_ID);
3358: END IF;
3359: --
3360: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3361: p_api_version,
3362: l_api_name,
3363: g_pkg_name ) THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3360: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3361: p_api_version,
3362: l_api_name,
3363: g_pkg_name ) THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3365: END IF;
3366:
3367: -- initialize message list if p_init_msg_list is set to TRUE.
3368: IF FND_API.to_boolean( p_init_msg_list ) THEN
3364: RAISE FND_API.g_exc_unexpected_error;
3365: END IF;
3366:
3367: -- initialize message list if p_init_msg_list is set to TRUE.
3368: IF FND_API.to_boolean( p_init_msg_list ) THEN
3369: FND_MSG_PUB.initialize;
3370: END IF;
3371:
3372: -- initialize API return status to success
3413: and bsu.cust_acct_site_ID = bs.cust_acct_site_ID;
3414:
3415: IF SQL%NOTFOUND or SQL%ROWCOUNT > 1
3416: THEN
3417: RAISE FND_API.g_exc_error;
3418: END IF;
3419:
3420: -- 1711448, Added this API to get CUM Start Date
3421: --
3484: RETURN l_cum_qty;
3485:
3486: EXCEPTION
3487:
3488: WHEN FND_API.g_exc_error THEN
3489: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3490: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3491: p_data => x_msg_data );
3492: --
3492: --
3493: -- Debug Statements
3494: --
3495: IF l_debug_on THEN
3496: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3497: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3498: END IF;
3499: --
3500: RETURN null;
3493: -- Debug Statements
3494: --
3495: IF l_debug_on THEN
3496: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3497: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3498: END IF;
3499: --
3500: RETURN null;
3501:
3498: END IF;
3499: --
3500: RETURN null;
3501:
3502: WHEN FND_API.g_exc_unexpected_error THEN
3503: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3504: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3505: p_data => x_msg_data );
3506: --
3506: --
3507: -- Debug Statements
3508: --
3509: IF l_debug_on THEN
3510: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3511: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3512: END IF;
3513: --
3514: RETURN null;
3507: -- Debug Statements
3508: --
3509: IF l_debug_on THEN
3510: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3511: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3512: END IF;
3513: --
3514: RETURN null;
3515:
3566: ------------------------------------------------------------------------------
3567:
3568: PROCEDURE Cancel_All_Documents
3569: ( p_api_version IN NUMBER
3570: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3571: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3572: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3573: , x_return_status OUT NOCOPY VARCHAR2
3574: , x_msg_count OUT NOCOPY NUMBER
3567:
3568: PROCEDURE Cancel_All_Documents
3569: ( p_api_version IN NUMBER
3570: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3571: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3572: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3573: , x_return_status OUT NOCOPY VARCHAR2
3574: , x_msg_count OUT NOCOPY NUMBER
3575: , x_msg_data OUT NOCOPY VARCHAR2
3568: PROCEDURE Cancel_All_Documents
3569: ( p_api_version IN NUMBER
3570: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3571: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3572: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3573: , x_return_status OUT NOCOPY VARCHAR2
3574: , x_msg_count OUT NOCOPY NUMBER
3575: , x_msg_data OUT NOCOPY VARCHAR2
3576: , p_entity_name IN VARCHAR2
3610: --
3611: SAVEPOINT WSH_Document_PVT;
3612:
3613: -- standard call to check for call compatibility.
3614: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3615: p_api_version,
3616: l_api_name,
3617: g_pkg_name ) THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3614: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3615: p_api_version,
3616: l_api_name,
3617: g_pkg_name ) THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3619: END IF;
3620:
3621: -- initialize message list if p_init_msg_list is set to TRUE.
3622: IF FND_API.to_boolean( p_init_msg_list ) THEN
3618: RAISE FND_API.g_exc_unexpected_error;
3619: END IF;
3620:
3621: -- initialize message list if p_init_msg_list is set to TRUE.
3622: IF FND_API.to_boolean( p_init_msg_list ) THEN
3623: FND_MSG_PUB.initialize;
3624: END IF;
3625:
3626: -- initialize API return status to success
3638: -- get message count and the message itself (if only one message)
3639: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3640: p_data => x_msg_data);
3641: -- Standard check of p_commit.
3642: IF FND_API.to_boolean( p_commit ) THEN
3643: COMMIT WORK;
3644: END IF;
3645: --
3646: -- Debug Statements
3650: END IF;
3651: --
3652: EXCEPTION
3653:
3654: WHEN FND_API.g_exc_error THEN
3655: ROLLBACK to WSH_Document_PVT;
3656: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3657: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3658: p_data => x_msg_data );
3660: --
3661: -- Debug Statements
3662: --
3663: IF l_debug_on THEN
3664: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3666: END IF;
3667: --
3668: WHEN FND_API.g_exc_unexpected_error THEN
3661: -- Debug Statements
3662: --
3663: IF l_debug_on THEN
3664: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3666: END IF;
3667: --
3668: WHEN FND_API.g_exc_unexpected_error THEN
3669: ROLLBACK to WSH_Document_PVT;
3664: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3665: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3666: END IF;
3667: --
3668: WHEN FND_API.g_exc_unexpected_error THEN
3669: ROLLBACK to WSH_Document_PVT;
3670: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3671: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3672: p_data => x_msg_data );
3674: --
3675: -- Debug Statements
3676: --
3677: IF l_debug_on THEN
3678: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3679: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3680: END IF;
3681: --
3682: WHEN others THEN
3675: -- Debug Statements
3676: --
3677: IF l_debug_on THEN
3678: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3679: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3680: END IF;
3681: --
3682: WHEN others THEN
3683: ROLLBACK to WSH_Document_PVT;
3732: ------------------------------------------------------------------------------
3733:
3734: PROCEDURE Get_All_Documents
3735: ( p_api_version IN NUMBER
3736: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3737: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3738: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3739: , x_return_status OUT NOCOPY VARCHAR2
3740: , x_msg_count OUT NOCOPY NUMBER
3733:
3734: PROCEDURE Get_All_Documents
3735: ( p_api_version IN NUMBER
3736: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3737: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3738: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3739: , x_return_status OUT NOCOPY VARCHAR2
3740: , x_msg_count OUT NOCOPY NUMBER
3741: , x_msg_data OUT NOCOPY VARCHAR2
3734: PROCEDURE Get_All_Documents
3735: ( p_api_version IN NUMBER
3736: , p_init_msg_list IN VARCHAR2 DEFAULT FND_API.g_false
3737: , p_commit IN VARCHAR2 DEFAULT FND_API.g_false
3738: , p_validation_level IN NUMBER DEFAULT FND_API.g_valid_level_full
3739: , x_return_status OUT NOCOPY VARCHAR2
3740: , x_msg_count OUT NOCOPY NUMBER
3741: , x_msg_data OUT NOCOPY VARCHAR2
3742: , p_entity_name IN VARCHAR2
3814: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
3815: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
3816: END IF;
3817: --
3818: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3819: p_api_version,
3820: l_api_name,
3821: g_pkg_name ) THEN
3822: RAISE FND_API.g_exc_unexpected_error;
3818: IF NOT FND_API.Compatible_API_Call ( l_api_version,
3819: p_api_version,
3820: l_api_name,
3821: g_pkg_name ) THEN
3822: RAISE FND_API.g_exc_unexpected_error;
3823: END IF;
3824:
3825: -- initialize message list if p_init_msg_list is set to TRUE.
3826: IF FND_API.to_boolean( p_init_msg_list ) THEN
3822: RAISE FND_API.g_exc_unexpected_error;
3823: END IF;
3824:
3825: -- initialize message list if p_init_msg_list is set to TRUE.
3826: IF FND_API.to_boolean( p_init_msg_list ) THEN
3827: FND_MSG_PUB.initialize;
3828: END IF;
3829:
3830: -- initialize API return status to success
3885: -- get message count and the message itself (if only one message)
3886: FND_MSG_PUB.count_and_get (p_count => x_msg_count,
3887: p_data => x_msg_data);
3888: -- Standard check of p_commit.
3889: IF FND_API.to_boolean( p_commit ) THEN
3890: COMMIT WORK;
3891: END IF;
3892: --
3893: -- Debug Statements
3898: END IF;
3899: --
3900: EXCEPTION
3901:
3902: WHEN FND_API.g_exc_error THEN
3903: x_return_status := WSH_UTIL_CORE.g_ret_sts_error;
3904: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3905: p_data => x_msg_data );
3906:
3907: --
3908: -- Debug Statements
3909: --
3910: IF l_debug_on THEN
3911: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3913: END IF;
3914: --
3915: WHEN FND_API.g_exc_unexpected_error THEN
3908: -- Debug Statements
3909: --
3910: IF l_debug_on THEN
3911: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3913: END IF;
3914: --
3915: WHEN FND_API.g_exc_unexpected_error THEN
3916: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3911: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3912: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3913: END IF;
3914: --
3915: WHEN FND_API.g_exc_unexpected_error THEN
3916: x_return_status := WSH_UTIL_CORE.g_ret_sts_unexp_error;
3917: FND_MSG_PUB.count_and_get ( p_count => x_msg_count,
3918: p_data => x_msg_data );
3919:
3920: --
3921: -- Debug Statements
3922: --
3923: IF l_debug_on THEN
3924: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3925: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3926: END IF;
3927: --
3928: WHEN others THEN
3921: -- Debug Statements
3922: --
3923: IF l_debug_on THEN
3924: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3925: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3926: END IF;
3927: --
3928: WHEN others THEN
3929: FND_MESSAGE.set_name ('WSH','WSH_UNEXP_ERROR');