[Home] [Help]
247: ELSIF x_line_rec.shipment_line_id(p_index) IS NULL
248: THEN
249: l_fieldName := 'shipment_line_id' || '(' || p_index || ')';
250: ELSIF x_line_rec.rcv_transaction_id(p_index) IS NULL
251: AND p_transactionType NOT IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
252: THEN
253: l_fieldName := 'rcv_transaction_id' || '(' || p_index || ')';
254: ELSIF x_line_rec.received_quantity(p_index) IS NULL
255: THEN
257: ELSIF x_line_rec.received_quantity_uom(p_index) IS NULL
258: THEN
259: l_fieldName := 'received_quantity_uom' || '(' || p_index || ')';
260: ELSIF x_line_rec.shipment_num(p_index) IS NULL
261: AND p_transactionType IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
262: THEN
263: l_fieldName := 'shipment_num' || '(' || p_index || ')';
264: ELSIF x_line_rec.shipped_date(p_index) IS NULL
265: AND p_transactionType IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
261: AND p_transactionType IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
262: THEN
263: l_fieldName := 'shipment_num' || '(' || p_index || ')';
264: ELSIF x_line_rec.shipped_date(p_index) IS NULL
265: AND p_transactionType IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
266: THEN
267: l_fieldName := 'shipped_date' || '(' || p_index || ')';
268: ELSIF x_line_rec.receipt_num(p_index) IS NULL
269: AND p_transactionType NOT IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
265: AND p_transactionType IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
266: THEN
267: l_fieldName := 'shipped_date' || '(' || p_index || ')';
268: ELSIF x_line_rec.receipt_num(p_index) IS NULL
269: AND p_transactionType NOT IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
270: THEN
271: l_fieldName := 'receipt_num' || '(' || p_index || ')';
272: ELSIF x_line_rec.expected_receipt_date(p_index) IS NULL
273: AND p_transactionType NOT IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
269: AND p_transactionType NOT IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
270: THEN
271: l_fieldName := 'receipt_num' || '(' || p_index || ')';
272: ELSIF x_line_rec.expected_receipt_date(p_index) IS NULL
273: AND p_transactionType NOT IN (WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN)
274: THEN
275: l_fieldName := 'expected_receipt_date' || '(' || p_index || ')';
276: END IF;
277: --
649: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENTNUMBER',P_SHIPMENTNUMBER);
650: WSH_DEBUG_SV.log(l_module_name,'P_RECEIPTNUMBER',P_RECEIPTNUMBER);
651: END IF;
652: --
653: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
654: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
655: THEN
656: --{
657: l_headerObjectVersionNumber := p_headerObjectVersionNumber;
650: WSH_DEBUG_SV.log(l_module_name,'P_RECEIPTNUMBER',P_RECEIPTNUMBER);
651: END IF;
652: --
653: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
654: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
655: THEN
656: --{
657: l_headerObjectVersionNumber := p_headerObjectVersionNumber;
658: l_headerStatus := p_headerStatus;
669: THEN
670: l_headerObjectVersionNumber := NVL(l_headerObjectVersionNumber,0) + 1;
671: END IF;
672: --
673: IF l_headerStatus = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
674: THEN
675: l_headerStatus := WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED_AND_CHILD_PENDING;
676: END IF;
677: --}
671: END IF;
672: --
673: IF l_headerStatus = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
674: THEN
675: l_headerStatus := WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED_AND_CHILD_PENDING;
676: END IF;
677: --}
678: END IF;
679: --
995: --
996: x_transactionSubType := p_transactionType;
997: --
998: --
999: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1000: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
1001: THEN
1002: x_key := p_line_rec.po_shipment_line_id(p_index);
1003: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
996: x_transactionSubType := p_transactionType;
997: --
998: --
999: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1000: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
1001: THEN
1002: x_key := p_line_rec.po_shipment_line_id(p_index);
1003: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1004: THEN
999: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1000: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
1001: THEN
1002: x_key := p_line_rec.po_shipment_line_id(p_index);
1003: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1004: THEN
1005: IF p_ReceiptAgainstASN = 'Y'
1006: THEN
1007: x_key := p_line_rec.shipment_line_id(p_index);
1007: x_key := p_line_rec.shipment_line_id(p_index);
1008: ELSE
1009: x_key := p_line_rec.po_shipment_line_id(p_index);
1010: END IF;
1011: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1012: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1008: ELSE
1009: x_key := p_line_rec.po_shipment_line_id(p_index);
1010: END IF;
1011: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1012: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1016: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
1009: x_key := p_line_rec.po_shipment_line_id(p_index);
1010: END IF;
1011: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1012: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1016: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
1017: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
1010: END IF;
1011: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1012: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1016: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
1017: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
1018: THEN
1011: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1012: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1016: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
1017: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
1018: THEN
1019: x_key := p_line_rec.shipment_line_id(p_index);
1012: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1016: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
1017: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
1018: THEN
1019: x_key := p_line_rec.shipment_line_id(p_index);
1020: --
1013: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
1014: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
1015: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1016: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
1017: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
1018: THEN
1019: x_key := p_line_rec.shipment_line_id(p_index);
1020: --
1021: --
1018: THEN
1019: x_key := p_line_rec.shipment_line_id(p_index);
1020: --
1021: --
1022: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1023: THEN
1024: IF p_line_rec.received_quantity(p_index) > 0
1025: THEN
1026: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
1022: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
1023: THEN
1024: IF p_line_rec.received_quantity(p_index) > 0
1025: THEN
1026: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
1027: ELSE
1028: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE;
1029: END IF;
1030: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1024: IF p_line_rec.received_quantity(p_index) > 0
1025: THEN
1026: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
1027: ELSE
1028: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE;
1029: END IF;
1030: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1031: THEN
1032: IF p_line_rec.received_quantity(p_index) > 0
1026: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
1027: ELSE
1028: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE;
1029: END IF;
1030: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1031: THEN
1032: IF p_line_rec.received_quantity(p_index) > 0
1033: THEN
1034: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE;
1030: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
1031: THEN
1032: IF p_line_rec.received_quantity(p_index) > 0
1033: THEN
1034: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE;
1035: ELSE
1036: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE;
1037: END IF;
1038: END IF;
1032: IF p_line_rec.received_quantity(p_index) > 0
1033: THEN
1034: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE;
1035: ELSE
1036: x_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE;
1037: END IF;
1038: END IF;
1039: ELSE
1040: --{
1133: p_ReceiptAgainstASN IN VARCHAR2,
1134: p_index IN NUMBER,
1135: p_line_rec IN OE_WSH_BULK_GRP.Line_rec_type,
1136: p_ship_from_location_id IN NUMBER, -- IB-Phase-2
1137: x_inboundTxnHistory_recTbl IN OUT NOCOPY WSH_INBOUND_TXN_HISTORY_PKG.inboundTxnHistory_recTbl_type,
1138: x_return_status OUT NOCOPY VARCHAR2
1139: )
1140: IS
1141: --{
1144: l_num_warnings NUMBER := 0;
1145: l_num_errors NUMBER := 0;
1146: l_return_status VARCHAR2(30);
1147: --
1148: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
1149: --
1150: l_debug_on BOOLEAN;
1151: --
1152: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'ADDTRANSACTIONHISTORYRECORD';
1194: x_inboundTxnHistory_recTbl.REVISION_NUMBER(l_count) := NULL;
1195: x_inboundTxnHistory_recTbl.MATCH_REVERTED_BY(l_count) := NULL;
1196: x_inboundTxnHistory_recTbl.MATCHED_BY(l_count) := NULL;
1197: --
1198: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1199: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1200: THEN
1201: x_inboundTxnHistory_recTbl.STATUS(l_count) := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1202: x_inboundTxnHistory_recTbl.MAX_RCV_TRANSACTION_ID(l_count) := NULL;
1195: x_inboundTxnHistory_recTbl.MATCH_REVERTED_BY(l_count) := NULL;
1196: x_inboundTxnHistory_recTbl.MATCHED_BY(l_count) := NULL;
1197: --
1198: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1199: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1200: THEN
1201: x_inboundTxnHistory_recTbl.STATUS(l_count) := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1202: x_inboundTxnHistory_recTbl.MAX_RCV_TRANSACTION_ID(l_count) := NULL;
1203: x_inboundTxnHistory_recTbl.SHIPMENT_LINE_ID(l_count) := NULL;
1197: --
1198: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1199: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1200: THEN
1201: x_inboundTxnHistory_recTbl.STATUS(l_count) := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1202: x_inboundTxnHistory_recTbl.MAX_RCV_TRANSACTION_ID(l_count) := NULL;
1203: x_inboundTxnHistory_recTbl.SHIPMENT_LINE_ID(l_count) := NULL;
1204: ELSE
1205: x_inboundTxnHistory_recTbl.STATUS(l_count) := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING; --_PARENT_MATCHING;
1201: x_inboundTxnHistory_recTbl.STATUS(l_count) := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1202: x_inboundTxnHistory_recTbl.MAX_RCV_TRANSACTION_ID(l_count) := NULL;
1203: x_inboundTxnHistory_recTbl.SHIPMENT_LINE_ID(l_count) := NULL;
1204: ELSE
1205: x_inboundTxnHistory_recTbl.STATUS(l_count) := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING; --_PARENT_MATCHING;
1206: x_inboundTxnHistory_recTbl.MAX_RCV_TRANSACTION_ID(l_count) := p_line_rec.rcv_transaction_id(p_index);
1207: x_inboundTxnHistory_recTbl.SHIPMENT_LINE_ID(l_count) := p_line_rec.shipment_line_id(p_index);
1208: END IF;
1209: --
1315: l_num_warnings NUMBER := 0;
1316: l_num_errors NUMBER := 0;
1317: l_return_status VARCHAR2(30);
1318: --
1319: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
1320: --
1321: l_debug_on BOOLEAN;
1322: --
1323: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'INSERTTRANSACTIONHISTORY';
1355: l_txnHistoryRec.RECEIPT_DATE := p_line_rec.expected_receipt_date(p_index);
1356: l_txnHistoryRec.CARRIER_ID := p_line_rec.rcv_carrier_id(p_index);
1357: l_txnHistoryRec.SHIP_FROM_LOCATION_ID := p_ship_from_location_id; -- IB-Phase-2
1358: --
1359: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1360: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1361: THEN
1362: l_txnHistoryRec.STATUS := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1363: --
1356: l_txnHistoryRec.CARRIER_ID := p_line_rec.rcv_carrier_id(p_index);
1357: l_txnHistoryRec.SHIP_FROM_LOCATION_ID := p_ship_from_location_id; -- IB-Phase-2
1358: --
1359: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1360: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1361: THEN
1362: l_txnHistoryRec.STATUS := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1363: --
1364: l_txnHistoryRec.MAX_RCV_TRANSACTION_ID := GREATEST(
1358: --
1359: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1360: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1361: THEN
1362: l_txnHistoryRec.STATUS := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
1363: --
1364: l_txnHistoryRec.MAX_RCV_TRANSACTION_ID := GREATEST(
1365: p_line_rec.rcv_transaction_id(p_index),
1366: p_line_rec.rcv_transaction_id(p_line_rec.rcv_transaction_id.FIRST)
1369: l_txnHistoryRec.MAX_RCV_TRANSACTION_ID,
1370: p_line_rec.rcv_transaction_id(p_line_rec.rcv_transaction_id.LAST)
1371: );
1372: ELSE
1373: l_txnHistoryRec.STATUS := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING; --_PARENT_MATCHING;
1374: l_txnHistoryRec.MAX_RCV_TRANSACTION_ID := p_line_rec.rcv_transaction_id(p_index);
1375: l_txnHistoryRec.SHIPMENT_LINE_ID := p_line_rec.shipment_line_id(p_index);
1376: END IF;
1377: --
1387: --
1388: -- Debug Statements
1389: --
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.AUTONOMOUS_CREATE',WSH_DEBUG_SV.C_PROC_LEVEL);
1392: END IF;
1393: --
1394: WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create
1395: (
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.AUTONOMOUS_CREATE',WSH_DEBUG_SV.C_PROC_LEVEL);
1392: END IF;
1393: --
1394: WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create
1395: (
1396: p_txn_history_rec => l_txnHistoryRec,
1397: x_txn_id => x_transactionId,
1398: x_return_status => l_return_status
1403: --
1404: -- Debug Statements
1405: --
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1408: END IF;
1409: --
1410: WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history
1411: (
1406: IF l_debug_on THEN
1407: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1408: END IF;
1409: --
1410: WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history
1411: (
1412: p_txn_history_rec => l_txnHistoryRec,
1413: x_txn_id => x_transactionId,
1414: x_return_status => l_return_status
1528: p_ReceiptAgainstASN IN VARCHAR2,
1529: p_inboundTxnHistoryId IN NUMBER,
1530: p_line_rec IN OE_WSH_BULK_GRP.Line_rec_type,
1531: p_ship_from_location_id IN NUMBER, -- IB-Phase-2
1532: x_parentTxnHistoryRec OUT NOCOPY WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type,
1533: x_transactionId OUT NOCOPY NUMBER,
1534: x_transactionGroup OUT NOCOPY VARCHAR2,
1535: x_return_status OUT NOCOPY VARCHAR2
1536: )
1540: l_num_errors NUMBER := 0;
1541: l_return_status VARCHAR2(30);
1542: l_locked VARCHAR2(1);
1543: --
1544: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
1545: l_parentTxnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
1546: --
1547: l_parentShipmentHeaderId NUMBER;
1548: l_parentTransactionType VARCHAR2(30);
1541: l_return_status VARCHAR2(30);
1542: l_locked VARCHAR2(1);
1543: --
1544: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
1545: l_parentTxnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
1546: --
1547: l_parentShipmentHeaderId NUMBER;
1548: l_parentTransactionType VARCHAR2(30);
1549: l_on_noDataFound VARCHAR2(30);
1575: WSH_DEBUG_SV.log(l_module_name,'p_inboundTxnHistoryId',p_inboundTxnHistoryId);
1576: END IF;
1577: --
1578: IF p_transactionType IN (
1579: WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,
1580: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1581: )
1582: THEN
1583: --{
1576: END IF;
1577: --
1578: IF p_transactionType IN (
1579: WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,
1580: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1581: )
1582: THEN
1583: --{
1584: --
1584: --
1585: -- Debug Statements
1586: --
1587: IF l_debug_on THEN
1588: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
1589: END IF;
1590: --
1591: -- Check if record already exists in WSH_INBOUND_TXN_HISTORY
1592: --
1589: END IF;
1590: --
1591: -- Check if record already exists in WSH_INBOUND_TXN_HISTORY
1592: --
1593: WSH_INBOUND_TXN_HISTORY_PKG.get_txn_history
1594: (
1595: p_shipment_header_id => p_shipmentHeaderId,
1596: p_transaction_type => p_transactionType,
1597: x_txn_history_rec => l_txnHistoryRec,
1622: THEN
1623: --{
1624: -- Record already exists in WSH_INBOUND_TXN_HISTORY, raise error
1625: --
1626: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1627: THEN
1628: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DUP_ASN_ERROR');
1629: FND_MESSAGE.SET_TOKEN('SHIPMENT_NUMBER',l_txnHistoryRec.SHIPMENT_NUMBER);
1630: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1626: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1627: THEN
1628: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DUP_ASN_ERROR');
1629: FND_MESSAGE.SET_TOKEN('SHIPMENT_NUMBER',l_txnHistoryRec.SHIPMENT_NUMBER);
1630: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1631: THEN
1632: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DUP_RECPT_ERROR');
1633: FND_MESSAGE.SET_TOKEN('RECEIPT_NUMBER',l_txnHistoryRec.RECEIPT_NUMBER);
1634: END IF;
1684: --
1685: -- Debug Statements
1686: --
1687: IF l_debug_on THEN
1688: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.LOCK_ASN_RECEIPT_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
1689: END IF;
1690: --
1691: WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header
1692: (
1687: IF l_debug_on THEN
1688: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.LOCK_ASN_RECEIPT_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
1689: END IF;
1690: --
1691: WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header
1692: (
1693: p_shipment_header_id => p_shipmentHeaderId,
1694: p_transaction_type => p_transactionType,
1695: p_on_error => 'RETRY',
1723: l_parentShipmentHeaderId := NULL;
1724: l_parentTransactionType := NULL;
1725: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_ERROR;
1726: --
1727: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1728: THEN
1729: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1730: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN
1731: THEN
1725: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_ERROR;
1726: --
1727: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1728: THEN
1729: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1730: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN
1731: THEN
1732: --{
1733: l_parentShipmentHeaderId := p_shipmentHeaderId;
1726: --
1727: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
1728: THEN
1729: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1730: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN
1731: THEN
1732: --{
1733: l_parentShipmentHeaderId := p_shipmentHeaderId;
1734: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1730: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN
1731: THEN
1732: --{
1733: l_parentShipmentHeaderId := p_shipmentHeaderId;
1734: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1735: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1736: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1737: --}
1738: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1731: THEN
1732: --{
1733: l_parentShipmentHeaderId := p_shipmentHeaderId;
1734: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1735: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1736: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1737: --}
1738: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1739: THEN
1734: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1735: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1736: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1737: --}
1738: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1739: THEN
1740: --{
1741: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1742: --
1737: --}
1738: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
1739: THEN
1740: --{
1741: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1742: --
1743: IF p_ReceiptAgainstASN = 'Y'
1744: THEN
1745: l_parentShipmentHeaderId := p_shipmentHeaderId;
1742: --
1743: IF p_ReceiptAgainstASN = 'Y'
1744: THEN
1745: l_parentShipmentHeaderId := p_shipmentHeaderId;
1746: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1747: END IF;
1748: --}
1749: ELSIF p_transactionType IN (
1750: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
1746: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_ASN;
1747: END IF;
1748: --}
1749: ELSIF p_transactionType IN (
1750: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
1751: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE,
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1747: END IF;
1748: --}
1749: ELSIF p_transactionType IN (
1750: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
1751: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE,
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1748: --}
1749: ELSIF p_transactionType IN (
1750: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
1751: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE,
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1749: ELSIF p_transactionType IN (
1750: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
1751: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE,
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1757: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD ,
1750: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
1751: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE,
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1757: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD ,
1758: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1751: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE,
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1757: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD ,
1758: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1759: )
1752: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1757: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD ,
1758: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1759: )
1760: THEN
1753: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1757: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD ,
1758: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1759: )
1760: THEN
1761: --{
1754: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION ,
1755: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE ,
1756: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE ,
1757: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD ,
1758: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1759: )
1760: THEN
1761: --{
1762: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1758: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1759: )
1760: THEN
1761: --{
1762: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1763: l_parentShipmentHeaderId := p_shipmentHeaderId;
1764: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1765: --
1766: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1760: THEN
1761: --{
1762: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1763: l_parentShipmentHeaderId := p_shipmentHeaderId;
1764: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1765: --
1766: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1767: THEN
1768: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1762: x_transactionGroup := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1763: l_parentShipmentHeaderId := p_shipmentHeaderId;
1764: l_parentTransactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
1765: --
1766: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
1767: THEN
1768: l_on_noDataFound := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1769: END IF;
1770: --}
1791: --
1792: -- Debug Statements
1793: --
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.LOCK_ASN_RECEIPT_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
1796: END IF;
1797: --
1798: WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header
1799: (
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.LOCK_ASN_RECEIPT_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
1796: END IF;
1797: --
1798: WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header
1799: (
1800: p_shipment_header_id => l_parentShipmentHeaderId,
1801: p_transaction_type => l_parentTransactionType,
1802: p_on_error => 'RETRY',
1917: --========================================================================
1918: --
1919: PROCEDURE processCancelASN
1920: (
1921: x_parentTxnHistoryRec IN OUT NOCOPY WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type,
1922: x_return_status OUT NOCOPY VARCHAR2
1923: )
1924: IS
1925: --{
1957: --
1958: IF x_parentTxnHistoryRec.transaction_id IS NOT NULL
1959: THEN
1960: --{
1961: IF x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_CANCELLED
1962: THEN
1963: --{
1964: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DUP_CANCEL_ASN_ERROR');
1965: FND_MESSAGE.SET_TOKEN('SHIPMENT_NUMBER',x_parentTxnHistoryRec.SHIPMENT_NUMBER);
1968: --}
1969: END IF;
1970: --
1971: --
1972: IF x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
1973: THEN
1974: --{
1975: l_action_prms.action_code := WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN;
1976: --
1971: --
1972: IF x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
1973: THEN
1974: --{
1975: l_action_prms.action_code := WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN;
1976: --
1977: --
1978: -- Debug Statements
1979: --
2006: --}
2007: END IF;
2008: --
2009: --
2010: IF x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
2011: OR x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING
2012: THEN
2013: --{
2014: x_parentTxnHistoryRec.status := WSH_INBOUND_TXN_HISTORY_PKG.C_CANCELLED;
2007: END IF;
2008: --
2009: --
2010: IF x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
2011: OR x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING
2012: THEN
2013: --{
2014: x_parentTxnHistoryRec.status := WSH_INBOUND_TXN_HISTORY_PKG.C_CANCELLED;
2015: --
2010: IF x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED
2011: OR x_parentTxnHistoryRec.status = WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING
2012: THEN
2013: --{
2014: x_parentTxnHistoryRec.status := WSH_INBOUND_TXN_HISTORY_PKG.C_CANCELLED;
2015: --
2016: --
2017: -- Debug Statements
2018: --
2016: --
2017: -- Debug Statements
2018: --
2019: IF l_debug_on THEN
2020: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.UPDATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2021: END IF;
2022: --
2023: WSH_INBOUND_TXN_HISTORY_PKG.update_txn_history
2024: (
2019: IF l_debug_on THEN
2020: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.UPDATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
2021: END IF;
2022: --
2023: WSH_INBOUND_TXN_HISTORY_PKG.update_txn_history
2024: (
2025: p_txn_history_rec => x_parentTxnHistoryRec,
2026: x_return_status => l_return_status
2027: );
2047: --
2048: -- Debug Statements
2049: --
2050: IF l_debug_on THEN
2051: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
2052: END IF;
2053: --
2054: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
2055: (
2050: IF l_debug_on THEN
2051: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
2052: END IF;
2053: --
2054: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
2055: (
2056: p_transactionType => WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,
2057: x_transactionMeaning => l_transactionMeaning,
2058: x_return_status => l_return_status
2052: END IF;
2053: --
2054: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
2055: (
2056: p_transactionType => WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,
2057: x_transactionMeaning => l_transactionMeaning,
2058: x_return_status => l_return_status
2059: );
2060: --
2159: END processCancelASN;
2160:
2161: PROCEDURE processReceiptHeaderUpdate
2162: (
2163: x_parentTxnHistoryRec IN OUT NOCOPY WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type,
2164: x_return_status OUT NOCOPY VARCHAR2
2165: )
2166: IS
2167: --{
3282: --
3283: IF l_matchFlag = C_PROCESS_FLAG
3284: THEN
3285: --{
3286: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
3287: THEN
3288: --{
3289: l_quantity := GREATEST
3290: (
3659: WSH_DEBUG_SV.log(l_module_name,'Process ASN/RCV Flag',x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) );
3660: WSH_DEBUG_SV.log(l_module_name,'Process Corr/RTV Flag',x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) );
3661: END IF;
3662: --
3663: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
3664: THEN
3665: x_matchedLineRecTbl.shipped_qty_tab(p_index)
3666: :=
3667: NVL(x_matchedLineRecTbl.shipped_qty_tab(p_index),0) + NVL(p_quantity,0);
3671: NVL(x_matchedLineRecTbl.shipped_qty2_tab(p_index),0) + NVL(p_quantity2,0);
3672: --
3673: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3674: x_matchedLineRecTbl.match_flag_tab(p_index) := C_PROCESS_FLAG;
3675: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
3676: THEN
3677: x_matchedLineRecTbl.received_qty_tab(p_index)
3678: :=
3679: NVL(x_matchedLineRecTbl.received_qty_tab(p_index),0) + NVL(p_quantity,0);
3687: IF p_ReceiptAgainstASN <> 'Y'
3688: THEN
3689: x_matchedLineRecTbl.match_flag_tab(p_index) := C_PROCESS_FLAG;
3690: END IF;
3691: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
3692: THEN
3693: x_matchedLineRecTbl.received_qty_tab(p_index)
3694: :=
3695: NVL(x_matchedLineRecTbl.received_qty_tab(p_index),0) + NVL(p_quantity,0);
3699: NVL(x_matchedLineRecTbl.received_qty2_tab(p_index),0) + NVL(p_quantity2,0);
3700: --
3701: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3702: x_matchedLineRecTbl.match_flag_tab(p_index) := C_PROCESS_FLAG;
3703: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
3704: THEN
3705: x_matchedLineRecTbl.received_qty_tab(p_index)
3706: := NVL(x_matchedLineRecTbl.received_qty_tab(p_index),0) + NVL(p_quantity,0);
3707: --
3708: x_matchedLineRecTbl.received_qty2_tab(p_index)
3709: := NVL(x_matchedLineRecTbl.received_qty2_tab(p_index),0) + NVL(p_quantity2,0);
3710: --
3711: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3712: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
3713: THEN
3714: x_matchedLineRecTbl.received_qty_tab(p_index)
3715: := GREATEST(
3716: NVL(x_matchedLineRecTbl.received_qty_tab(p_index),0) - NVL(p_quantity,0)
3723: ,0
3724: );
3725: --
3726: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3727: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
3728: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
3729: THEN
3730: x_matchedLineRecTbl.returned_qty_tab(p_index)
3731: := NVL(x_matchedLineRecTbl.returned_qty_tab(p_index),0) + NVL(p_quantity,0);
3724: );
3725: --
3726: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3727: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
3728: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
3729: THEN
3730: x_matchedLineRecTbl.returned_qty_tab(p_index)
3731: := NVL(x_matchedLineRecTbl.returned_qty_tab(p_index),0) + NVL(p_quantity,0);
3732: --
3733: x_matchedLineRecTbl.returned_qty2_tab(p_index)
3734: := NVL(x_matchedLineRecTbl.returned_qty2_tab(p_index),0) + NVL(p_quantity2,0);
3735: --
3736: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3737: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
3738: THEN
3739: x_matchedLineRecTbl.returned_qty_tab(p_index)
3740: := GREATEST(
3741: NVL(x_matchedLineRecTbl.returned_qty_tab(p_index),0) - NVL(p_quantity,0)
3921: WSH_DEBUG_SV.log(l_module_name,'Process ASN/RCV Flag',x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) );
3922: WSH_DEBUG_SV.log(l_module_name,'Process Corr/RTV Flag',x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) );
3923: END IF;
3924: --
3925: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
3926: THEN
3927: x_matchedLineRecTbl.shipped_qty_tab(p_index) := p_quantity;
3928: x_matchedLineRecTbl.shipped_qty2_tab(p_index) := p_quantity2;
3929: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3927: x_matchedLineRecTbl.shipped_qty_tab(p_index) := p_quantity;
3928: x_matchedLineRecTbl.shipped_qty2_tab(p_index) := p_quantity2;
3929: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3930: x_matchedLineRecTbl.match_flag_tab(p_index) := C_PROCESS_FLAG;
3931: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
3932: THEN
3933: x_matchedLineRecTbl.received_qty_tab(p_index) := p_quantity;
3934: x_matchedLineRecTbl.received_qty2_tab(p_index) := p_quantity2;
3935: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3937: IF p_ReceiptAgainstASN <> 'Y'
3938: THEN
3939: x_matchedLineRecTbl.match_flag_tab(p_index) := C_PROCESS_FLAG;
3940: END IF;
3941: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
3942: THEN
3943: x_matchedLineRecTbl.received_qty_tab(p_index) := p_quantity;
3944: x_matchedLineRecTbl.received_qty2_tab(p_index) := p_quantity2;
3945: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3943: x_matchedLineRecTbl.received_qty_tab(p_index) := p_quantity;
3944: x_matchedLineRecTbl.received_qty2_tab(p_index) := p_quantity2;
3945: x_matchedLineRecTbl.process_asn_rcv_flag_tab(p_index) := C_PROCESS_FLAG;
3946: x_matchedLineRecTbl.match_flag_tab(p_index) := C_PROCESS_FLAG;
3947: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
3948: THEN
3949: x_matchedLineRecTbl.received_qty_tab(p_index)
3950: := NVL(x_matchedLineRecTbl.received_qty_tab(p_index),0) + NVL(p_quantity,0);
3951: --
3952: x_matchedLineRecTbl.received_qty2_tab(p_index)
3953: := NVL(x_matchedLineRecTbl.received_qty2_tab(p_index),0) + NVL(p_quantity2,0);
3954: --
3955: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3956: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
3957: THEN
3958: x_matchedLineRecTbl.received_qty_tab(p_index)
3959: := GREATEST(
3960: NVL(x_matchedLineRecTbl.received_qty_tab(p_index),0) - NVL(p_quantity,0)
3967: ,0
3968: );
3969: --
3970: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3971: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
3972: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
3973: THEN
3974: x_matchedLineRecTbl.returned_qty_tab(p_index)
3975: := NVL(x_matchedLineRecTbl.returned_qty_tab(p_index),0) + NVL(p_quantity,0);
3968: );
3969: --
3970: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3971: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV
3972: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
3973: THEN
3974: x_matchedLineRecTbl.returned_qty_tab(p_index)
3975: := NVL(x_matchedLineRecTbl.returned_qty_tab(p_index),0) + NVL(p_quantity,0);
3976: --
3977: x_matchedLineRecTbl.returned_qty2_tab(p_index)
3978: := NVL(x_matchedLineRecTbl.returned_qty2_tab(p_index),0) + NVL(p_quantity2,0);
3979: --
3980: x_matchedLineRecTbl.process_corr_rtv_flag_tab(p_index) := C_PROCESS_FLAG;
3981: ELSIF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
3982: THEN
3983: x_matchedLineRecTbl.returned_qty_tab(p_index)
3984: := GREATEST(
3985: NVL(x_matchedLineRecTbl.returned_qty_tab(p_index),0) - NVL(p_quantity,0)
4346: THEN
4347: --{
4348: --??how abt r-asn
4349: --
4350: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4351: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4352: OR (
4353: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4354: AND p_ReceiptAgainstASN <> 'Y'
4347: --{
4348: --??how abt r-asn
4349: --
4350: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4351: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4352: OR (
4353: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4354: AND p_ReceiptAgainstASN <> 'Y'
4355: )
4349: --
4350: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4351: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4352: OR (
4353: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4354: AND p_ReceiptAgainstASN <> 'Y'
4355: )
4356: THEN
4357: --{
4504: --
4505: IF x_matchedLineRecTbl.match_flag_tab(l_lineIndex) = C_POTENTIAL_MATCH_FLAG
4506: THEN
4507: --{
4508: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4509: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4510: OR (
4511: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4512: AND p_receiptAgainstASN <> 'Y'
4505: IF x_matchedLineRecTbl.match_flag_tab(l_lineIndex) = C_POTENTIAL_MATCH_FLAG
4506: THEN
4507: --{
4508: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4509: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4510: OR (
4511: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4512: AND p_receiptAgainstASN <> 'Y'
4513: )
4507: --{
4508: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4509: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4510: OR (
4511: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4512: AND p_receiptAgainstASN <> 'Y'
4513: )
4514: THEN
4515: IF l_debug_on THEN
4534: --}
4535: END IF;
4536: END IF;
4537: --
4538: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4539: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4540: OR (
4541: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4542: AND p_receiptAgainstASN <> 'Y'
4535: END IF;
4536: END IF;
4537: --
4538: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4539: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4540: OR (
4541: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4542: AND p_receiptAgainstASN <> 'Y'
4543: )
4537: --
4538: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4539: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4540: OR (
4541: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4542: AND p_receiptAgainstASN <> 'Y'
4543: )
4544: THEN
4545: IF l_lineDate <> l_date
4551: --
4552: IF l_leftOverQuantity2 > 0
4553: THEN
4554: --{
4555: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
4556: THEN
4557: x_matchedLineRecTbl.received_qty2_tab(l_lineIndex)
4558: := NVL(x_matchedLineRecTbl.received_qty2_tab(l_lineIndex),0)
4559: + l_leftOverQuantity2;
4556: THEN
4557: x_matchedLineRecTbl.received_qty2_tab(l_lineIndex)
4558: := NVL(x_matchedLineRecTbl.received_qty2_tab(l_lineIndex),0)
4559: + l_leftOverQuantity2;
4560: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
4561: THEN
4562: x_matchedLineRecTbl.returned_qty2_tab(l_lineIndex)
4563: := NVL(x_matchedLineRecTbl.returned_qty2_tab(l_lineIndex),0)
4564: + l_leftOverQuantity2;
4572: l_lineQty := NULL;
4573: l_lineQty2 := NULL;
4574: --
4575: --
4576: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
4577: THEN
4578: --{
4579: l_lineQty := l_remainingQty;
4580: --}
4577: THEN
4578: --{
4579: l_lineQty := l_remainingQty;
4580: --}
4581: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
4582: THEN
4583: --{
4584: l_lineQty := LEAST(
4585: l_remainingQty,
4608:
4609: --
4610: -- For newly added line
4611: --
4612: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4613: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4614: OR (
4615: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4616: AND p_receiptAgainstASN <> 'Y'
4609: --
4610: -- For newly added line
4611: --
4612: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4613: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4614: OR (
4615: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4616: AND p_receiptAgainstASN <> 'Y'
4617: )
4611: --
4612: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4613: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4614: OR (
4615: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4616: AND p_receiptAgainstASN <> 'Y'
4617: )
4618: THEN
4619: --{
4633: IF l_remainingQty2 > 0
4634: THEN
4635: --{
4636:
4637: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4638: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4639: OR (
4640: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4641: AND p_receiptAgainstASN <> 'Y'
4634: THEN
4635: --{
4636:
4637: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4638: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4639: OR (
4640: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4641: AND p_receiptAgainstASN <> 'Y'
4642: )
4636:
4637: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
4638: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
4639: OR (
4640: l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
4641: AND p_receiptAgainstASN <> 'Y'
4642: )
4643: THEN
4644: --{
4650: ),
4651: WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV
4652: );
4653: --}
4654: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
4655: THEN
4656: --{
4657: l_lineQty2 := l_remainingQty2;
4658: --}
4655: THEN
4656: --{
4657: l_lineQty2 := l_remainingQty2;
4658: --}
4659: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
4660: THEN
4661: --{
4662: l_lineQty2 := LEAST(
4663: l_remainingQty2,
4764: --
4765: l_lastMatchedLineIndex := l_lineIndex;
4766: --
4767: --
4768: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
4769: THEN
4770: --{
4771: l_leftOverQuantity2 := x_matchedLineRecTbl.received_qty2_tab(l_lineIndex)
4772: - NVL(x_matchedLineRecTbl.returned_qty2_tab(l_lineIndex),0);
4791: --}
4792: END IF;
4793: --
4794: --
4795: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
4796: THEN
4797: --{
4798: l_leftOverQuantity2 := NVL(x_matchedLineRecTbl.returned_qty2_tab(l_lineIndex),0);
4799: --
5143: AND wdl.pick_up_stop_id = wts.stop_id
5144: AND wts.stop_location_id = wnd.initial_pickup_location_id
5145: AND wts.trip_id = wt.trip_id
5146: AND wdl.drop_off_stop_id = wts1.stop_id
5147: AND p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5148: ORDER BY 1 ASC; --- order by leg_type--dropoff first then pickup
5149: --
5150: l_dlvy_leg_rec dlvy_leg_csr%ROWTYPE;
5151: --
5323: END IF;
5324: --
5325: --
5326: IF (
5327: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5328: OR (
5329: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
5330: AND p_ReceiptAgainstASN <> 'Y'
5331: )
5325: --
5326: IF (
5327: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5328: OR (
5329: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
5330: AND p_ReceiptAgainstASN <> 'Y'
5331: )
5332: )
5333: AND p_txnUniqueSFLocnId = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
5354: )
5355: --OR ( l_shipFromLocationId = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID AND l_index = l_start_index )
5356: /*
5357: OR (
5358: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
5359: AND p_receiptAgainstASN = 'Y'
5360: )
5361: */
5362: THEN
5450: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_rec.carrier_id',l_dlvy_rec.carrier_id);
5451: END IF;
5452: --
5453: --
5454: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5455: THEN
5456: l_linedate := l_dlvy_rec.initial_pickup_date;
5457: ELSE
5458: l_linedate := l_dlvy_rec.ultimate_dropoff_date;
5476: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_leg_rec.planned_arrival_date',l_dlvy_leg_rec.planned_arrival_date);
5477: WSH_DEBUG_SV.log(l_module_name,'l_dlvy_leg_rec.carrier_id',l_dlvy_leg_rec.carrier_id);
5478: END IF;
5479: --
5480: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5481: THEN
5482: l_linedate := l_dlvy_leg_rec.planned_departure_date;
5483: ELSE
5484: l_linedate := l_dlvy_leg_rec.planned_arrival_date;
5500: l_deliveryLegsExist AND l_deliveryItineraryComplete = 'N'
5501: )
5502: THEN
5503: --{
5504: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5505: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
5506: OR (
5507: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
5508: AND p_receiptAgainstASN <> 'Y'
5501: )
5502: THEN
5503: --{
5504: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5505: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
5506: OR (
5507: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
5508: AND p_receiptAgainstASN <> 'Y'
5509: )
5503: --{
5504: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
5505: OR p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
5506: OR (
5507: p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
5508: AND p_receiptAgainstASN <> 'Y'
5509: )
5510: THEN
5511: l_validFlag := 'N';
5857: wdd.rcv_Shipment_Line_ID = p_rcvShipmentLineID
5858: )
5859: AND (
5860: (
5861: p_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
5862: AND returned_quantity > 0
5863: )
5864: OR
5865: p_transactionSubType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
5861: p_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
5862: AND returned_quantity > 0
5863: )
5864: OR
5865: p_transactionSubType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
5866: )
5867: AND (
5868: (
5869: p_transactionSubType IN (
5866: )
5867: AND (
5868: (
5869: p_transactionSubType IN (
5870: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
5871: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
5872: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
5873: )
5874: AND (received_quantity - NVL(returned_quantity,0)) > 0
5867: AND (
5868: (
5869: p_transactionSubType IN (
5870: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
5871: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
5872: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
5873: )
5874: AND (received_quantity - NVL(returned_quantity,0)) > 0
5875: )
5868: (
5869: p_transactionSubType IN (
5870: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
5871: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
5872: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
5873: )
5874: AND (received_quantity - NVL(returned_quantity,0)) > 0
5875: )
5876: OR
5874: AND (received_quantity - NVL(returned_quantity,0)) > 0
5875: )
5876: OR
5877: p_transactionSubType NOT IN (
5878: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
5879: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
5880: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
5881: )
5882: )
5875: )
5876: OR
5877: p_transactionSubType NOT IN (
5878: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
5879: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
5880: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
5881: )
5882: )
5883: -- { IB-Phase-2
5876: OR
5877: p_transactionSubType NOT IN (
5878: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
5879: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
5880: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
5881: )
5882: )
5883: -- { IB-Phase-2
5884: AND ( p_ship_from_location_id IS NULL
5989: SELECT 1
5990: FROM wsh_inbound_txn_history
5991: WHERE shipment_header_id = p_shipment_header_id
5992: AND shipment_line_id = p_shipment_line_id
5993: AND status = WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
5994: --
5995: --
5996: -- This cursor is not used
5997: --
6022: )
6023: AND rcv_shipment_line_id = p_shipment_line_id
6024: AND (
6025: (
6026: p_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
6027: AND returned_quantity > 0
6028: )
6029: OR
6030: p_transactionSubType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
6026: p_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
6027: AND returned_quantity > 0
6028: )
6029: OR
6030: p_transactionSubType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
6031: )
6032: AND (
6033: (
6034: p_transactionSubType IN (
6031: )
6032: AND (
6033: (
6034: p_transactionSubType IN (
6035: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
6036: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
6037: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
6038: )
6039: AND (received_quantity - NVL(returned_quantity,0)) > 0
6032: AND (
6033: (
6034: p_transactionSubType IN (
6035: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
6036: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
6037: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
6038: )
6039: AND (received_quantity - NVL(returned_quantity,0)) > 0
6040: )
6033: (
6034: p_transactionSubType IN (
6035: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
6036: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
6037: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
6038: )
6039: AND (received_quantity - NVL(returned_quantity,0)) > 0
6040: )
6041: OR
6039: AND (received_quantity - NVL(returned_quantity,0)) > 0
6040: )
6041: OR
6042: p_transactionSubType NOT IN (
6043: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
6044: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
6045: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
6046: )
6047: );
6040: )
6041: OR
6042: p_transactionSubType NOT IN (
6043: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
6044: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
6045: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
6046: )
6047: );
6048:
6041: OR
6042: p_transactionSubType NOT IN (
6043: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE,
6044: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV,
6045: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE
6046: )
6047: );
6048:
6049: --
6176: l_dlvyTbl WSH_UTIL_CORE.char500_tab_type;
6177: l_dlvyExtTbl WSH_UTIL_CORE.char500_tab_type;
6178: --
6179: --
6180: l_FailedTxnHistory_recTbl WSH_INBOUND_TXN_HISTORY_PKG.inboundTxnHistory_recTbl_type;
6181: l_MatchedTxnHistory_recTbl WSH_INBOUND_TXN_HISTORY_PKG.inboundTxnHistory_recTbl_type;
6182: --
6183: --
6184: l_uniqueShipFromLocationIdTbl WSH_UTIL_CORE.id_tab_type;
6177: l_dlvyExtTbl WSH_UTIL_CORE.char500_tab_type;
6178: --
6179: --
6180: l_FailedTxnHistory_recTbl WSH_INBOUND_TXN_HISTORY_PKG.inboundTxnHistory_recTbl_type;
6181: l_MatchedTxnHistory_recTbl WSH_INBOUND_TXN_HISTORY_PKG.inboundTxnHistory_recTbl_type;
6182: --
6183: --
6184: l_uniqueShipFromLocationIdTbl WSH_UTIL_CORE.id_tab_type;
6185: --
6194: l_shipFromLocationIdExtTbl WSH_UTIL_CORE.key_value_tab_type;
6195: l_shipFromLocationIdLineCount NUMBER;
6196: --
6197: --
6198: l_parentTxnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
6199: l_ReceiptAgainstASN VARCHAR2(10);
6200: l_transactionGroup VARCHAR2(50);
6201: l_transactionType VARCHAR2(50);
6202: l_transactionSubType VARCHAR2(50);
6222: l_po_close_rec OE_WSH_BULK_GRP.line_rec_type;
6223: --
6224: --
6225: l_additional_line_info_rec WSH_BULK_PROCESS_PVT.additional_line_info_rec_type;
6226: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
6227: l_tab_count NUMBER;
6228: --
6229: l_trx_wsh_location_id NUMBER; -- IB-Phase-2
6230: --
6256: --
6257: --
6258: IF p_action_prms.action_code = 'MATCH'
6259: THEN
6260: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
6261: ELSIF p_action_prms.action_code = 'MATCH_ADD'
6262: THEN
6263: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD;
6264: ELSE
6259: THEN
6260: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
6261: ELSIF p_action_prms.action_code = 'MATCH_ADD'
6262: THEN
6263: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD;
6264: ELSE
6265: l_transactionType := p_action_prms.action_code;
6266: END IF;
6267: --
6265: l_transactionType := p_action_prms.action_code;
6266: END IF;
6267: --
6268: -- { IB-phase-2
6269: IF p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6270: OR p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6271: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6272: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6273: THEN
6266: END IF;
6267: --
6268: -- { IB-phase-2
6269: IF p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6270: OR p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6271: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6272: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6273: THEN
6274: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := 'AUTO';
6267: --
6268: -- { IB-phase-2
6269: IF p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6270: OR p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6271: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6272: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6273: THEN
6274: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := 'AUTO';
6275: ELSE
6268: -- { IB-phase-2
6269: IF p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6270: OR p_action_prms.action_code = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6271: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6272: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6273: THEN
6274: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := 'AUTO';
6275: ELSE
6276: WSH_INBOUND_UTIL_PKG.G_ASN_RECEIPT_MATCH_TYPE := 'MANUAL';
6387: WSH_DEBUG_SV.log(l_module_name,'l_messageStartIndex',l_messageStartIndex);
6388: WSH_DEBUG_SV.log(l_module_name,'l_ReceiptAgainstASN',l_ReceiptAgainstASN);
6389: WSH_DEBUG_SV.log(l_module_name,'RCV TXN ID at FIRST',p_line_rec.rcv_transaction_id(p_line_rec.rcv_transaction_id.FIRST));
6390: WSH_DEBUG_SV.log(l_module_name,'RCV TXN ID at LAST',p_line_rec.rcv_transaction_id(p_line_rec.rcv_transaction_id.LAST));
6391: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
6392: END IF;
6393: --
6394: --
6395: --
6392: END IF;
6393: --
6394: --
6395: --
6396: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6397: THEN
6398: --{
6399: IF l_debug_on THEN
6400: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
6396: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6397: THEN
6398: --{
6399: IF l_debug_on THEN
6400: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
6401: END IF;
6402: --
6403: -- Check if record already exists in WSH_INBOUND_TXN_HISTORY
6404: --
6401: END IF;
6402: --
6403: -- Check if record already exists in WSH_INBOUND_TXN_HISTORY
6404: --
6405: WSH_INBOUND_TXN_HISTORY_PKG.get_txn_history
6406: (
6407: p_shipment_header_id => p_line_rec.shipment_header_id(l_index),
6408: p_transaction_type => WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT,
6409: x_txn_history_rec => l_txnHistoryRec,
6404: --
6405: WSH_INBOUND_TXN_HISTORY_PKG.get_txn_history
6406: (
6407: p_shipment_header_id => p_line_rec.shipment_header_id(l_index),
6408: p_transaction_type => WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT,
6409: x_txn_history_rec => l_txnHistoryRec,
6410: x_return_status => l_return_status
6411: );
6412: --
6427: );
6428: --
6429: IF l_txnHistoryRec.transaction_id IS NULL
6430: THEN
6431: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
6432: END IF;
6433: --}
6434: END IF;
6435: --
6433: --}
6434: END IF;
6435: --
6436: --
6437: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
6438: (
6439: p_transactionType => l_transactionType,
6440: x_transactionMeaning => l_transactionMeaning,
6441: x_return_status => l_return_status
6502: );
6503: --
6504: --
6505: IF l_transactionType IN (
6506: WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,
6507: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6508: )
6509: THEN
6510: l_headerTransactionId := l_transactionId;
6503: --
6504: --
6505: IF l_transactionType IN (
6506: WSH_INBOUND_TXN_HISTORY_PKG.C_ASN,
6507: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6508: )
6509: THEN
6510: l_headerTransactionId := l_transactionId;
6511: l_headerObjectVersionNumber := 1;
6508: )
6509: THEN
6510: l_headerTransactionId := l_transactionId;
6511: l_headerObjectVersionNumber := 1;
6512: l_headerStatus := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
6513: ELSE
6514: l_headerTransactionId := l_parentTxnHistoryRec.transaction_id;
6515: l_headerObjectVersionNumber := l_parentTxnHistoryRec.object_version_number;
6516: l_headerStatus := l_parentTxnHistoryRec.status;
6531: WSH_DEBUG_SV.log(l_module_name,'l_parentTransactionMatched',l_parentTransactionMatched);
6532: END IF;
6533: --
6534: --
6535: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_CANCEL_ASN
6536: THEN
6537: --{
6538: --
6539: -- Debug Statements
6565: );
6566: --
6567: RAISE e_endOfAPI;
6568: --}
6569: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_HEADER_UPD
6570: THEN
6571: --{
6572: IF l_parentTxnHistoryRec.transaction_id IS NULL
6573: THEN
6585: -- So, now insert it and keep it pending
6586: --
6587: WSH_IB_TXN_MATCH_PKG.insertTransactionHistory
6588: (
6589: p_transactionType => WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT,
6590: p_ReceiptAgainstASN => l_ReceiptAgainstASN,
6591: p_autonomous => TRUE,
6592: p_index => p_line_rec.shipment_line_id.FIRST,
6593: p_line_rec => p_line_rec,
6611: x_num_errors => l_num_errors
6612: );
6613: --
6614: --
6615: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
6616: l_headerTransactionId := l_transactionId;
6617: --
6618: --
6619: --
6619: --
6620: -- Debug Statements
6621: --
6622: IF l_debug_on THEN
6623: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
6624: END IF;
6625: --
6626: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
6627: (
6622: IF l_debug_on THEN
6623: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
6624: END IF;
6625: --
6626: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
6627: (
6628: p_transactionType => l_transactionType,
6629: x_transactionMeaning => l_transactionMeaning,
6630: x_return_status => l_return_status
6685: END IF;
6686: --
6687: RAISE e_endOfAPI;
6688: --}
6689: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
6690: AND l_ReceiptAgainstASN = 'Y'
6691: AND NOT(l_parentTransactionMatched)
6692: THEN
6693: --{
6814: --
6815: BEGIN
6816: --{
6817: /*
6818: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
6819: AND l_ReceiptAgainstASN = 'Y'
6820: THEN
6821: --{
6822: OPEN rcv_line_check_csr( p_line_rec.shipment_line_id(l_index) );
6842: --
6843: IF l_totalReceivedQuantity <> p_line_rec.received_quantity(l_index)
6844: THEN
6845: --{
6846: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION;
6847: --
6848: --
6849: --
6850: -- Debug Statements
6849: --
6850: -- Debug Statements
6851: --
6852: IF l_debug_on THEN
6853: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
6854: END IF;
6855: --
6856: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
6857: (
6852: IF l_debug_on THEN
6853: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GETTRANSACTIONTYPEMEANING',WSH_DEBUG_SV.C_PROC_LEVEL);
6854: END IF;
6855: --
6856: WSH_INBOUND_TXN_HISTORY_PKG.getTransactionTypeMeaning
6857: (
6858: p_transactionType => l_transactionType,
6859: x_transactionMeaning => l_transactionMeaning,
6860: x_return_status => l_return_status
6882: */
6883: --
6884: --
6885: /*
6886: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
6887: THEN
6888: IF p_line_rec.received_quantity(l_index) > 0
6889: THEN
6890: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
6886: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION
6887: THEN
6888: IF p_line_rec.received_quantity(l_index) > 0
6889: THEN
6890: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
6891: ELSE
6892: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE;
6893: END IF;
6894: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
6888: IF p_line_rec.received_quantity(l_index) > 0
6889: THEN
6890: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
6891: ELSE
6892: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE;
6893: END IF;
6894: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
6895: THEN
6896: IF p_line_rec.received_quantity(l_index) > 0
6890: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE;
6891: ELSE
6892: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE;
6893: END IF;
6894: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
6895: THEN
6896: IF p_line_rec.received_quantity(l_index) > 0
6897: THEN
6898: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE;
6894: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
6895: THEN
6896: IF p_line_rec.received_quantity(l_index) > 0
6897: THEN
6898: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE;
6899: ELSE
6900: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE;
6901: END IF;
6902: ELSE
6896: IF p_line_rec.received_quantity(l_index) > 0
6897: THEN
6898: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_POSITIVE;
6899: ELSE
6900: l_transactionSubType := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE;
6901: END IF;
6902: ELSE
6903: l_transactionSubType := l_transactionType;
6904: END IF;
6989: -- let's set the query conditions(depending on transaction type)
6990: -- to obtain corresponding lines from delivery details
6991: -- which can be further evaluated for matching
6992: --
6993: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
6994: THEN
6995: --{
6996: l_released_status := 'X';
6997: l_shipmentHeaderId := NULL;
7001: l_shipFromLocationId := l_trx_wsh_location_id; -- IB-Phase-2 NULL;
7002: l_orderByFlag := -1;
7003: l_resetTxnUniqueSFLocn := FALSE;
7004: --}
7005: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7006: THEN
7007: --{
7008: IF l_ReceiptAgainstASN = 'Y'
7009: THEN
7035: --
7036: l_transactionDate := p_line_rec.expected_receipt_date(l_index);
7037: l_shipFromLocationId := l_trx_wsh_location_id; -- IB-Phase-2 NULL;
7038: --}
7039: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7040: THEN
7041: --{
7042: IF l_receiptShipFromLocationCount IS NULL
7043: THEN
7138: END IF;
7139: */
7140: --}
7141: ELSIF l_transactionType IN (
7142: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
7143: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
7144: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
7145: )
7146: THEN
7139: */
7140: --}
7141: ELSIF l_transactionType IN (
7142: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
7143: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
7144: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
7145: )
7146: THEN
7147: --{
7140: --}
7141: ELSIF l_transactionType IN (
7142: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION,
7143: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV ,
7144: WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION
7145: )
7146: THEN
7147: --{
7148: l_released_status := 'L';
7159: END IF;
7160: --IB-PHASE-2
7161: l_shipFromLocationId := l_trx_wsh_location_id; -- IB-Phase-2 NULL;
7162: --
7163: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
7164: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
7165: THEN
7166: l_orderByFlag := -3;
7167: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
7160: --IB-PHASE-2
7161: l_shipFromLocationId := l_trx_wsh_location_id; -- IB-Phase-2 NULL;
7162: --
7163: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
7164: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
7165: THEN
7166: l_orderByFlag := -3;
7167: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
7168: THEN
7163: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
7164: OR l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RTV_CORRECTION_NEGATIVE
7165: THEN
7166: l_orderByFlag := -3;
7167: ELSIF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_NEGATIVE
7168: THEN
7169: l_orderByFlag := -4;
7170: ELSE
7171: l_orderByFlag := -5;
7346: -- If yes, it may be case of over-receipt and let's
7347: -- create a new line with ordered qty. of 0.
7348: -- If not, this may be an error
7349: --
7350: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7351: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7352: OR (
7353: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7354: AND l_ReceiptAgainstASN <> 'Y'
7347: -- create a new line with ordered qty. of 0.
7348: -- If not, this may be an error
7349: --
7350: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7351: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7352: OR (
7353: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7354: AND l_ReceiptAgainstASN <> 'Y'
7355: )
7349: --
7350: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7351: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7352: OR (
7353: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7354: AND l_ReceiptAgainstASN <> 'Y'
7355: )
7356: THEN
7357: --{
7413: IF l_lineCount = 0
7414: THEN
7415: --{
7416: /*
7417: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7418: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7419: OR (
7420: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7421: AND l_ReceiptAgainstASN <> 'Y'
7414: THEN
7415: --{
7416: /*
7417: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7418: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7419: OR (
7420: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7421: AND l_ReceiptAgainstASN <> 'Y'
7422: )
7416: /*
7417: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7418: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7419: OR (
7420: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7421: AND l_ReceiptAgainstASN <> 'Y'
7422: )
7423: THEN
7424: --{
7423: THEN
7424: --{
7425: */
7426: --
7427: IF l_transactionSubType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_CORRECTION_POSITIVE
7428: THEN
7429: --{
7430: l_messageName := 'WSH_IB_INVALID_PO_LINE_ERROR';
7431: RAISE e_lineNotMatched;
7446: END IF;
7447: --
7448: /*
7449: --}
7450: ELSIF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7451: AND l_ReceiptAgainstASN = 'Y'
7452: THEN
7453: --{
7454: --}
7469: --}
7470: END IF;
7471: --
7472: --
7473: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7474: AND p_line_rec.received_quantity2(l_index) IS NULL
7475: AND l_src_requested_quantity2 IS NOT NULL
7476: THEN
7477: --{
7535: IF l_lineSFLocnId <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
7536: THEN
7537: l_lineUniqueSFLocnFound := FALSE;
7538: ELSE
7539: --IF (l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7540: --AND l_receiptShipFromLocationCount > 1)
7541: --or other child txns
7542: -- replaced by following
7543: IF l_resetTxnUniqueSFLocn
7554: END IF;
7555: --
7556: --
7557: IF NOT(l_lineUniqueSFLocnFound)
7558: --AND l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7559: --AND l_receiptShipFromLocationCount > 1
7560: AND l_resetTxnUniqueSFLocn
7561: --AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7562: THEN
7557: IF NOT(l_lineUniqueSFLocnFound)
7558: --AND l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7559: --AND l_receiptShipFromLocationCount > 1
7560: AND l_resetTxnUniqueSFLocn
7561: --AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7562: THEN
7563: -- Since delivery lines have different ship-from locations
7564: -- cannot match the input child transaction
7565: -- Raise line-level "not matched" exception
7564: -- cannot match the input child transaction
7565: -- Raise line-level "not matched" exception
7566: -- to mark current receipt line as match failure
7567: --
7568: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7569: THEN
7570: l_messageName := 'WSH_IB_PARENT_MULTI_SF_MATCH';
7571: ELSE
7572: l_messageName := 'WSH_IB_PARNT_LIN_MULT_SF_MATCH';
7572: l_messageName := 'WSH_IB_PARNT_LIN_MULT_SF_MATCH';
7573: END IF;
7574: --
7575: IF l_ReceiptAgainstASN = 'Y'
7576: AND l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7577: THEN
7578: --{
7579: FND_MESSAGE.SET_NAME('WSH',l_messageName);
7580: --
7597: END IF;
7598: --
7599: --
7600: IF (
7601: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7602: OR (
7603: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7604: AND l_ReceiptAgainstASN <> 'Y'
7605: )
7599: --
7600: IF (
7601: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
7602: OR (
7603: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
7604: AND l_ReceiptAgainstASN <> 'Y'
7605: )
7606: )
7607: --AND ( i = 1 OR l_lineSFLocnId <> l_lineUniqueSFLocnId )
7851: --
7852: --EXIT WHEN l_lineSFLocnId = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID;
7853: --
7854: --
7855: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7856: AND l_receiptShipFromLocationCount = 1
7857: AND l_txnUniqueSFLocnId <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
7858: THEN
7859: l_lineUniqueSFLocnId := NULL;
7921: --
7922: IF l_lineUniqueSFLocnFound
7923: THEN
7924: --{
7925: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
7926: AND l_receiptShipFromLocationCount = 1
7927: AND l_lineUniqueSFLocnId <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
7928: AND l_lineUniqueSFLocnId <> l_txnUniqueSFLocnId
7929: THEN
7998: IF l_txnUniqueSFLocnFound
7999: --AND l_txnUniqueSFLocnId <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
8000: THEN
8001: --{
8002: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8003: OR l_resetTxnUniqueSFLocn
8004: OR l_txnUniqueSFLocnId <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
8005: THEN
8006: --{
8055: EXCEPTION
8056: --{
8057: WHEN e_notMatched THEN
8058: --{
8059: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8060: THEN
8061: l_messageName := NULL;
8062: RAISE e_lineNotMatched;
8063: ELSE
8068: END;
8069: --}
8070: ELSE
8071: --{
8072: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8073: THEN
8074: l_messageName := 'WSH_IB_NOT_MATCH_SF_LOCN';
8075: RAISE e_lineNotMatched;
8076: ELSE
8098: --}
8099: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS
8100: THEN
8101: --{
8102: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8103: AND SUBSTRB(l_linkRecString,1,1) = C_ERROR_FLAG
8104: THEN
8105: --{
8106: l_messageName := NULL;
8119: WSH_DEBUG_SV.log(l_module_name,'l_minMatchedTransactionId',l_minMatchedTransactionId);
8120: END IF;
8121: --
8122: --
8123: IF l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8124: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8125: THEN
8126: --{
8127: --
8120: END IF;
8121: --
8122: --
8123: IF l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8124: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8125: THEN
8126: --{
8127: --
8128: -- Debug Statements
8165: WHEN e_lineNotMatched THEN
8166: --{
8167: --ROLLBACK TO matchTransaction_sp;--???no
8168: --
8169: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8170: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8171: THEN
8172: --{
8173: RAISE e_notMatched;
8166: --{
8167: --ROLLBACK TO matchTransaction_sp;--???no
8168: --
8169: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8170: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8171: THEN
8172: --{
8173: RAISE e_notMatched;
8174: --}
8339: END IF;
8340: --
8341: --
8342: IF (
8343: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8344: OR (
8345: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8346: AND l_ReceiptAgainstASN <> 'Y'
8347: )
8341: --
8342: IF (
8343: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8344: OR (
8345: l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8346: AND l_ReceiptAgainstASN <> 'Y'
8347: )
8348: )
8349: THEN
8673: WSH_DEBUG_SV.log(l_module_name,'l_MatchedTxnHistory_recTbl.shipment_header_id.COUNT',l_MatchedTxnHistory_recTbl.shipment_header_id.COUNT);
8674: END IF;
8675: --
8676: IF l_FailedTxnHistory_recTbl.shipment_header_id.COUNT > 0
8677: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8678: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8679: THEN
8680: --{
8681: --
8674: END IF;
8675: --
8676: IF l_FailedTxnHistory_recTbl.shipment_header_id.COUNT > 0
8677: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8678: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8679: THEN
8680: --{
8681: --
8682: -- Debug Statements
8681: --
8682: -- Debug Statements
8683: --
8684: IF l_debug_on THEN
8685: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
8686: END IF;
8687: --
8688: WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk
8689: (
8684: IF l_debug_on THEN
8685: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
8686: END IF;
8687: --
8688: WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk
8689: (
8690: x_inboundTxnHistory_recTbl => l_FailedTxnHistory_recTbl,
8691: x_return_status => l_return_status
8692: );
8710: END IF;
8711: --
8712: --
8713: IF l_MatchedTxnHistory_recTbl.shipment_header_id.COUNT = 0
8714: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8715: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8716: THEN
8717: RAISE e_notMatched;
8718: END IF;
8711: --
8712: --
8713: IF l_MatchedTxnHistory_recTbl.shipment_header_id.COUNT = 0
8714: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8715: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8716: THEN
8717: RAISE e_notMatched;
8718: END IF;
8719: --
8762: );
8763: --
8764: l_actionCode := l_transactionType; --l_transactionSubType;
8765: --
8766: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8767: THEN
8768: l_actionCode := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
8769: END IF;
8770: --
8764: l_actionCode := l_transactionType; --l_transactionSubType;
8765: --
8766: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8767: THEN
8768: l_actionCode := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT;
8769: END IF;
8770: --
8771: l_matchedLineRecTbl.transaction_type := l_actionCode;
8772: l_matchedLineRecTbl.shipment_header_id := l_RCVShipmentHeaderId;
8785: WSH_DEBUG_SV.log(l_module_name,'l_actionCode',l_actionCode);
8786: END IF;
8787: --
8788: --
8789: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8790: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8791: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8792: THEN
8793: --{
8786: END IF;
8787: --
8788: --
8789: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8790: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8791: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8792: THEN
8793: --{
8794: --
8787: --
8788: --
8789: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8790: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8791: OR l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8792: THEN
8793: --{
8794: --
8795: -- Debug Statements
8826: x_num_errors => l_num_errors
8827: );
8828: --
8829: --
8830: IF l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8831: THEN
8832: l_headerStatus := WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED;
8833: END IF;
8834: --}
8828: --
8829: --
8830: IF l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD
8831: THEN
8832: l_headerStatus := WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED;
8833: END IF;
8834: --}
8835: ELSE
8836: --{
8901: RAISE FND_API.G_EXC_ERROR;
8902: END IF;
8903: --
8904: --
8905: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8906: AND l_receiptAgainstASN = 'Y'
8907: THEN
8908: --{
8909: IF l_debug_on THEN
8968: --
8969: /* Code moved outside this nested block
8970: --
8971: IF l_FailedTxnHistory_recTbl.shipment_header_id.COUNT > 0
8972: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8973: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8974: THEN
8975: l_minMatchedTransactionId := 1E38;
8976: RAISE e_notMatched;
8969: /* Code moved outside this nested block
8970: --
8971: IF l_FailedTxnHistory_recTbl.shipment_header_id.COUNT > 0
8972: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8973: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8974: THEN
8975: l_minMatchedTransactionId := 1E38;
8976: RAISE e_notMatched;
8977: ELSE
8987: OR e_NotMatched
8988: THEN
8989: --{
8990: IF l_MatchedTxnHistory_recTbl.shipment_header_id.COUNT > 0
8991: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8992: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8993: THEN
8994: --{
8995: --
8988: THEN
8989: --{
8990: IF l_MatchedTxnHistory_recTbl.shipment_header_id.COUNT > 0
8991: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
8992: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
8993: THEN
8994: --{
8995: --
8996: -- Debug Statements
8995: --
8996: -- Debug Statements
8997: --
8998: IF l_debug_on THEN
8999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
9000: END IF;
9001: --
9002: WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk
9003: (
8998: IF l_debug_on THEN
8999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk',WSH_DEBUG_SV.C_PROC_LEVEL);
9000: END IF;
9001: --
9002: WSH_INBOUND_TXN_HISTORY_PKG.autonomous_Create_bulk
9003: (
9004: x_inboundTxnHistory_recTbl => l_MatchedTxnHistory_recTbl,
9005: x_return_status => l_return_status
9006: );
9029: --}
9030: END;
9031: --
9032: IF l_FailedTxnHistory_recTbl.shipment_header_id.COUNT > 0
9033: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
9034: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9035: THEN
9036: l_minMatchedTransactionId := 1E38;
9037: RAISE e_notMatched;
9030: END;
9031: --
9032: IF l_FailedTxnHistory_recTbl.shipment_header_id.COUNT > 0
9033: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
9034: AND l_transactionType <> WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9035: THEN
9036: l_minMatchedTransactionId := 1E38;
9037: RAISE e_notMatched;
9038: ELSE
9361: x_num_errors => l_num_errors
9362: );
9363: --
9364: --
9365: IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
9366: THEN
9367: --{
9368: l_line_rec.received_quantity(l_lineRecIndex) := l_shpmt_lines_out_rec.primary_qty_shipped_tab(l_index);
9369: l_line_rec.received_quantity_uom(l_lineRecIndex) := l_shpmt_lines_out_rec.primary_uom_code_tab(l_index);
9370: l_line_rec.received_quantity2(l_lineRecIndex) := l_shpmt_lines_out_rec.secondary_qty_shipped_tab(l_index);
9371: l_line_rec.received_quantity2_uom(l_lineRecIndex) := l_shpmt_lines_out_rec.secondary_uom_code_tab(l_index);
9372: l_line_rec.rcv_transaction_id(l_lineRecIndex) := l_shpmt_lines_out_rec.max_txn_id_tab(l_index);
9373: --}
9374: ELSE --IF p_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9375: --{
9376: l_line_rec.received_quantity(l_lineRecIndex) := l_shpmt_lines_out_rec.primary_qty_received_tab(l_index);
9377: l_line_rec.received_quantity_uom(l_lineRecIndex) := l_shpmt_lines_out_rec.primary_uom_code_tab(l_index);
9378: l_line_rec.received_quantity2(l_lineRecIndex) := l_shpmt_lines_out_rec.secondary_qty_received_tab(l_index);
9516: --}
9517: END LOOP;
9518: --
9519: --
9520: l_action_prms.action_code := WSH_INBOUND_TXN_HISTORY_PKG.C_RTV;
9521: l_action_prms.ib_txn_history_id := p_inboundTxnHistoryId;
9522: l_action_prms.caller := 'WSH_IB_PO_INTG_PRIOR_RECEIPT';
9523: l_action_prms.ship_from_location_id := p_hzShipFromLocationId; --IB-Phase-2
9524: --
9632: -- Added po_release_id condition to the cursor
9633: CURSOR rcv_headers_csr (p_po_header_id NUMBER, p_po_release_id NUMBER)
9634: IS
9635: SELECT rsl.shipment_header_id,
9636: WSH_INBOUND_TXN_HISTORY_PKG.C_ASN txn_type,
9637: sum(nvl(DECODE(rsh.asn_type,'ASN',quantity_shipped,'ASBN',quantity_shipped,0),0)) shp_rcv_qty,
9638: 1 max_rcv_txn_id
9639: FROM rcv_shipment_lines rsl, rcv_shipment_headers rsh
9640: WHERE po_header_id = p_po_header_id
9642: AND rsl.shipment_header_id = rsh.shipment_header_id
9643: GROUP BY rsl.shipment_header_id
9644: UNION ALL
9645: SELECT shipment_header_id,
9646: WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT txn_type,
9647: sum(nvl(quantity,0)) shp_rcv_qty,
9648: max(transaction_id) max_rcv_txn_id
9649: FROM rcv_transactions
9650: WHERE po_header_id = p_po_header_id
9704: l_po_release_id NUMBER; -- bug 5639624
9705: l_locked VARCHAR2(10);
9706: l_TransactionType VARCHAR2(30);
9707: l_transactionId NUMBER;
9708: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
9709: l_asnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
9710: --
9711: --
9712: l_po_cancel_rec OE_WSH_BULK_GRP.line_rec_type;
9705: l_locked VARCHAR2(10);
9706: l_TransactionType VARCHAR2(30);
9707: l_transactionId NUMBER;
9708: l_txnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
9709: l_asnHistoryRec WSH_INBOUND_TXN_HISTORY_PKG.ib_txn_history_rec_type;
9710: --
9711: --
9712: l_po_cancel_rec OE_WSH_BULK_GRP.line_rec_type;
9713: l_po_close_rec OE_WSH_BULK_GRP.line_rec_type;
9764: --
9765: --
9766: IF (
9767: (
9768: rcv_headers_rec.txn_type = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
9769: AND rcv_headers_rec.shp_rcv_qty > 0
9770: )
9771: OR
9772: rcv_headers_rec.txn_type = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9768: rcv_headers_rec.txn_type = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
9769: AND rcv_headers_rec.shp_rcv_qty > 0
9770: )
9771: OR
9772: rcv_headers_rec.txn_type = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9773: )
9774: THEN
9775: --{
9776: IF l_debug_on THEN
9773: )
9774: THEN
9775: --{
9776: IF l_debug_on THEN
9777: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.GET_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
9778: END IF;
9779: --
9780: l_transactionType := rcv_headers_rec.txn_type;
9781: l_txnHistoryRec.transaction_id := NULL;
9784: --
9785: -- Check if record already exists in WSH_INBOUND_TXN_HISTORY
9786: --
9787: IF l_debug_on THEN
9788: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.LOCK_ASN_RECEIPT_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
9789: END IF;
9790: --
9791: WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header
9792: (
9787: IF l_debug_on THEN
9788: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.LOCK_ASN_RECEIPT_HEADER',WSH_DEBUG_SV.C_PROC_LEVEL);
9789: END IF;
9790: --
9791: WSH_INBOUND_TXN_HISTORY_PKG.lock_asn_receipt_header
9792: (
9793: p_shipment_header_id => rcv_headers_rec.shipment_header_id,
9794: p_transaction_type => rcv_headers_rec.txn_type,
9795: p_on_error => 'RETRY',
9839: l_asnHistoryRec.SUPPLIER_ID := rcv_header_rec.VENDOR_ID;
9840: l_asnHistoryRec.SHIPPED_DATE := rcv_header_rec.SHIPPED_DATE;
9841: l_asnHistoryRec.RECEIPT_DATE := rcv_header_rec.EXPECTED_RECEIPT_DATE;
9842: l_asnHistoryRec.CARRIER_ID := rcv_header_rec.CARRIER_ID;
9843: l_asnHistoryRec.STATUS := WSH_INBOUND_TXN_HISTORY_PKG.C_PENDING;
9844: l_asnHistoryRec.SHIP_FROM_LOCATION_ID := rcv_header_rec.wsh_location_id; -- IB-Phase-2
9845: l_asnHistoryRec.MAX_RCV_TRANSACTION_ID := NULL;
9846: l_asnHistoryRec.parent_shipment_header_id := NULL;
9847: --
9844: l_asnHistoryRec.SHIP_FROM_LOCATION_ID := rcv_header_rec.wsh_location_id; -- IB-Phase-2
9845: l_asnHistoryRec.MAX_RCV_TRANSACTION_ID := NULL;
9846: l_asnHistoryRec.parent_shipment_header_id := NULL;
9847: --
9848: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9849: THEN
9850: --{
9851: l_asnHistoryRec.MAX_RCV_TRANSACTION_ID := rcv_headers_rec.max_rcv_txn_id;
9852: --
9857: --}
9858: END IF;
9859: --
9860: --
9861: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_ASN
9862: THEN
9863: --{
9864: FOR asn_rec IN asn_csr(p_rcv_header_id => rcv_headers_rec.shipment_header_id)
9865: LOOP
9863: --{
9864: FOR asn_rec IN asn_csr(p_rcv_header_id => rcv_headers_rec.shipment_header_id)
9865: LOOP
9866: --{
9867: l_txnHistoryRec.STATUS := WSH_INBOUND_TXN_HISTORY_PKG.C_CANCELLED;
9868: --}
9869: END LOOP;
9870: --}
9871: END IF;
9880: IF l_asnHistoryRec.SHIPMENT_HEADER_ID = rcv_headers_rec.shipment_header_id
9881: THEN
9882: --{
9883: IF l_debug_on THEN
9884: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
9885: END IF;
9886: --
9887: WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history
9888: (
9883: IF l_debug_on THEN
9884: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_TXN_HISTORY_PKG.CREATE_TXN_HISTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
9885: END IF;
9886: --
9887: WSH_INBOUND_TXN_HISTORY_PKG.create_txn_history
9888: (
9889: p_txn_history_rec => l_asnHistoryRec,
9890: x_txn_id => l_transactionId,
9891: x_return_status => l_return_status
9914: END IF;
9915: --
9916: --
9917: IF l_txnHistoryRec.status IN (
9918: WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED,
9919: WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED_AND_CHILD_PENDING
9920: )
9921: OR l_txnHistoryRec.status IS NULL
9922: THEN
9915: --
9916: --
9917: IF l_txnHistoryRec.status IN (
9918: WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED,
9919: WSH_INBOUND_TXN_HISTORY_PKG.C_MATCHED_AND_CHILD_PENDING
9920: )
9921: OR l_txnHistoryRec.status IS NULL
9922: THEN
9923: --{
9920: )
9921: OR l_txnHistoryRec.status IS NULL
9922: THEN
9923: --{
9924: IF l_transactionType = WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT
9925: THEN
9926: --{
9927: --IF l_txnHistoryRec.transaction_id IS NOT NULL
9928: IF l_txnHistoryRec.status IS NOT NULL
9926: --{
9927: --IF l_txnHistoryRec.transaction_id IS NOT NULL
9928: IF l_txnHistoryRec.status IS NOT NULL
9929: THEN
9930: l_transactionType := WSH_INBOUND_TXN_HISTORY_PKG.C_RECEIPT_ADD;
9931: END IF;
9932: --
9933: --
9934: FOR rcv_txns_rec IN rcv_txns_csr