25: BEGIN
26: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
27:
28: IF l_debug_on IS NULL THEN
29: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
30: END IF;
31: --
32: /*
33: IF l_debug_on THEN
30: END IF;
31: --
32: /*
33: IF l_debug_on THEN
34: WSH_DEBUG_SV.push(l_module_name);
35: WSH_DEBUG_SV.log(l_module_name,'p_value',p_value);
36: END IF;
37: */
38:
31: --
32: /*
33: IF l_debug_on THEN
34: WSH_DEBUG_SV.push(l_module_name);
35: WSH_DEBUG_SV.log(l_module_name,'p_value',p_value);
36: END IF;
37: */
38:
39: l_value := p_value;
50: END IF;
51:
52: /*
53: IF l_debug_on THEN
54: WSH_DEBUG_SV.log(l_module_name,'l_value',l_value);
55: WSH_DEBUG_SV.pop(l_module_name);
56: END IF;
57: */
58: return l_value;
51:
52: /*
53: IF l_debug_on THEN
54: WSH_DEBUG_SV.log(l_module_name,'l_value',l_value);
55: WSH_DEBUG_SV.pop(l_module_name);
56: END IF;
57: */
58: return l_value;
59: EXCEPTION
58: return l_value;
59: EXCEPTION
60: WHEN OTHERS THEN
61: IF l_debug_on THEN
62: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
63: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
64: END IF;
65: raise;
66: END Handle_missing_info;
59: EXCEPTION
60: WHEN OTHERS THEN
61: IF l_debug_on THEN
62: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
63: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
64: END IF;
65: raise;
66: END Handle_missing_info;
67:
79: BEGIN
80: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
81:
82: IF l_debug_on IS NULL THEN
83: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
84: END IF;
85: --
86: /*
87: IF l_debug_on THEN
84: END IF;
85: --
86: /*
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name,'p_value',p_value);
90: END IF;
91: */
92:
85: --
86: /*
87: IF l_debug_on THEN
88: WSH_DEBUG_SV.push(l_module_name);
89: WSH_DEBUG_SV.log(l_module_name,'p_value',p_value);
90: END IF;
91: */
92:
93: l_value := p_value;
103: END IF;
104: END IF;
105: /*
106: IF l_debug_on THEN
107: WSH_DEBUG_SV.log(l_module_name,'l_value',l_value);
108: WSH_DEBUG_SV.pop(l_module_name);
109: END IF;
110: */
111: return l_value;
104: END IF;
105: /*
106: IF l_debug_on THEN
107: WSH_DEBUG_SV.log(l_module_name,'l_value',l_value);
108: WSH_DEBUG_SV.pop(l_module_name);
109: END IF;
110: */
111: return l_value;
112: EXCEPTION
111: return l_value;
112: EXCEPTION
113: WHEN OTHERS THEN
114: IF l_debug_on THEN
115: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
116: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
117: END IF;
118: raise;
119: END Handle_missing_info;
112: EXCEPTION
113: WHEN OTHERS THEN
114: IF l_debug_on THEN
115: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
116: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
117: END IF;
118: raise;
119: END Handle_missing_info;
120:
132: BEGIN
133: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
134:
135: IF l_debug_on IS NULL THEN
136: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
137: END IF;
138: --
139: /*
140: IF l_debug_on THEN
137: END IF;
138: --
139: /*
140: IF l_debug_on THEN
141: WSH_DEBUG_SV.push(l_module_name);
142: WSH_DEBUG_SV.log(l_module_name,'p_value',p_value);
143: END IF;
144: */
145:
138: --
139: /*
140: IF l_debug_on THEN
141: WSH_DEBUG_SV.push(l_module_name);
142: WSH_DEBUG_SV.log(l_module_name,'p_value',p_value);
143: END IF;
144: */
145:
146: l_value := p_value;
157: END IF;
158:
159: /*
160: IF l_debug_on THEN
161: WSH_DEBUG_SV.log(l_module_name,'l_value',l_value);
162: WSH_DEBUG_SV.pop(l_module_name);
163: END IF;
164: */
165: return l_value;
158:
159: /*
160: IF l_debug_on THEN
161: WSH_DEBUG_SV.log(l_module_name,'l_value',l_value);
162: WSH_DEBUG_SV.pop(l_module_name);
163: END IF;
164: */
165: return l_value;
166: EXCEPTION
165: return l_value;
166: EXCEPTION
167: WHEN OTHERS THEN
168: IF l_debug_on THEN
169: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
170: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
171: END IF;
172: raise;
173: END Handle_missing_info;
166: EXCEPTION
167: WHEN OTHERS THEN
168: IF l_debug_on THEN
169: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
170: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
171: END IF;
172: raise;
173: END Handle_missing_info;
174:
1702:
1703: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1704: --
1705: IF l_debug_on IS NULL THEN
1706: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1707: END IF;
1708: --
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.push(l_module_name);
1706: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1707: END IF;
1708: --
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.push(l_module_name);
1711: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
1712: WSH_DEBUG_SV.log(l_module_name, 'tms interface flag', p_tms_interface_flag);
1713: WSH_DEBUG_SV.log(l_module_name, 'trip id', p_trip_id);
1714: END IF;
1707: END IF;
1708: --
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.push(l_module_name);
1711: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
1712: WSH_DEBUG_SV.log(l_module_name, 'tms interface flag', p_tms_interface_flag);
1713: WSH_DEBUG_SV.log(l_module_name, 'trip id', p_trip_id);
1714: END IF;
1715:
1708: --
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.push(l_module_name);
1711: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
1712: WSH_DEBUG_SV.log(l_module_name, 'tms interface flag', p_tms_interface_flag);
1713: WSH_DEBUG_SV.log(l_module_name, 'trip id', p_trip_id);
1714: END IF;
1715:
1716: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.push(l_module_name);
1711: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
1712: WSH_DEBUG_SV.log(l_module_name, 'tms interface flag', p_tms_interface_flag);
1713: WSH_DEBUG_SV.log(l_module_name, 'trip id', p_trip_id);
1714: END IF;
1715:
1716: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1717:
1727: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS,
1728: WSH_NEW_DELIVERIES_PVT.C_TMS_CREATE_IN_PROCESS)) THEN
1729:
1730: IF l_debug_on THEN
1731: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1732: END IF;
1733:
1734: WSH_XC_UTIL.get_otm_delivery_exception(
1735: p_delivery_id => p_delivery_id,
1737: x_severity => l_severity,
1738: x_return_status => l_return_status);
1739:
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION: ' || l_return_status);
1742: WSH_DEBUG_SV.log(l_module_name, 'exception name', l_exception_name);
1743: WSH_DEBUG_SV.log(l_module_name, 'severity', l_severity);
1744: END IF;
1745:
1738: x_return_status => l_return_status);
1739:
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION: ' || l_return_status);
1742: WSH_DEBUG_SV.log(l_module_name, 'exception name', l_exception_name);
1743: WSH_DEBUG_SV.log(l_module_name, 'severity', l_severity);
1744: END IF;
1745:
1746: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1739:
1740: IF l_debug_on THEN
1741: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION: ' || l_return_status);
1742: WSH_DEBUG_SV.log(l_module_name, 'exception name', l_exception_name);
1743: WSH_DEBUG_SV.log(l_module_name, 'severity', l_severity);
1744: END IF;
1745:
1746: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1747:
1745:
1746: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1747:
1748: IF l_debug_on THEN
1749: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION procedure failed');
1750: END IF;
1751:
1752: RAISE api_return_fail;
1753:
1773:
1774: l_otm_del_ids(1) := p_delivery_id;
1775:
1776: IF l_debug_on THEN
1777: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TP_RELEASE.CHANGE_IGNOREPLAN_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
1778: END IF;
1779:
1780: WSH_TP_RELEASE.change_ignoreplan_status(
1781: p_entity => 'DLVY',
1783: p_action_code => 'IGNORE_PLAN',
1784: x_return_status => l_return_status);
1785:
1786: IF l_debug_on THEN
1787: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_TP_RELEASE.CHANGE_IGNOREPLAN_STATUS: ' || l_return_status);
1788: END IF;
1789:
1790: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1791:
1789:
1790: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1791:
1792: IF l_debug_on THEN
1793: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_TP_RELEASE.CHANGE_IGNOREPLAN_STATUS procedure failed');
1794: END IF;
1795: RAISE api_return_fail;
1796:
1797: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1805: WSH_NEW_DELIVERIES_PVT.C_TMS_UPDATE_IN_PROCESS
1806: )) THEN
1807:
1808: IF l_debug_on THEN
1809: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
1810: END IF;
1811:
1812: WSH_XC_UTIL.get_otm_delivery_exception(
1813: p_delivery_id => p_delivery_id,
1815: x_severity => l_severity,
1816: x_return_status => l_return_status);
1817:
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION: ' || l_return_status);
1820: WSH_DEBUG_SV.log(l_module_name, 'exception name', l_exception_name);
1821: WSH_DEBUG_SV.log(l_module_name, 'severity', l_severity);
1822: END IF;
1823:
1816: x_return_status => l_return_status);
1817:
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION: ' || l_return_status);
1820: WSH_DEBUG_SV.log(l_module_name, 'exception name', l_exception_name);
1821: WSH_DEBUG_SV.log(l_module_name, 'severity', l_severity);
1822: END IF;
1823:
1824: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1817:
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name, 'return status from WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION: ' || l_return_status);
1820: WSH_DEBUG_SV.log(l_module_name, 'exception name', l_exception_name);
1821: WSH_DEBUG_SV.log(l_module_name, 'severity', l_severity);
1822: END IF;
1823:
1824: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1825:
1823:
1824: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1825:
1826: IF l_debug_on THEN
1827: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_XC_UTIL.GET_OTM_DELIVERY_EXCEPTION procedure failed');
1828: END IF;
1829:
1830: RAISE api_return_fail;
1831:
1858: --
1859: -- Debug Statements
1860: --
1861: IF l_debug_on THEN
1862: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1863: WSH_DEBUG_SV.pop(l_module_name);
1864: END IF;
1865: --
1866: EXCEPTION
1859: -- Debug Statements
1860: --
1861: IF l_debug_on THEN
1862: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1863: WSH_DEBUG_SV.pop(l_module_name);
1864: END IF;
1865: --
1866: EXCEPTION
1867: WHEN api_return_fail THEN
1866: EXCEPTION
1867: WHEN api_return_fail THEN
1868: x_return_status := l_return_status;
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1871: WSH_DEBUG_SV.pop(l_module_name);
1872: END IF;
1873:
1874: WHEN Others THEN
1867: WHEN api_return_fail THEN
1868: x_return_status := l_return_status;
1869: IF l_debug_on THEN
1870: WSH_DEBUG_SV.log(l_module_name, 'x_return_status', x_return_status);
1871: WSH_DEBUG_SV.pop(l_module_name);
1872: END IF;
1873:
1874: WHEN Others THEN
1875:
1876: WSH_UTIL_CORE.Default_Handler('WSH_INTERFACE_EXT_GRP.OTM_PRE_SHIP_CONFIRM', l_module_name);
1877: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1878:
1879: IF l_debug_on THEN
1880: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1881: WSH_DEBUG_SV.pop(l_module_name);
1882: END IF;
1883:
1884: END OTM_PRE_SHIP_CONFIRM;
1877: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1878:
1879: IF l_debug_on THEN
1880: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1881: WSH_DEBUG_SV.pop(l_module_name);
1882: END IF;
1883:
1884: END OTM_PRE_SHIP_CONFIRM;
1885: --END OTM R12