24: -- -1 = error; 0 = success; 1 = warning
25:
26: -- Dependencies
27: -- dep_weight_volume (for functionality)
28: -- FND_MESSAGE package
29:
30: PROCEDURE departure_weight_volume(
31: source IN VARCHAR2,
32: departure_id IN NUMBER,
48: IF master_weight_uom IS NULL
49: OR master_volume_uom IS NULL THEN
50: status := -1;
51: -- **Message: must specify weight and volume uoms.
52: FND_MESSAGE.Set_Name('OE', 'WSH_WV_MISSING_UOMS');
53: ELSIF source IS NULL
54: OR departure_id IS NULL
55: OR organization_id IS NULL
56: OR wv_flag IS NULL
57: OR update_flag IS NULL
58: OR menu_flag IS NULL THEN
59: status := -1;
60: -- **Message: incomplete parameters
61: FND_MESSAGE.Set_Name('OE', 'WSH_WV_INCOMPLETE_PARAMETERS');
62: ELSIF source NOT IN ('DPW', 'SC')
63: OR wv_flag NOT IN ('ALWAYS', 'NEVER')
64: OR update_flag NOT IN ('Y', 'N')
65: OR menu_flag NOT IN ('Y', 'N')
66: OR (dpw_pack_flag NOT IN ('Y', 'N') AND source = 'DPW')
67: OR (x_sc_wv_mode NOT IN ('ALL', 'ENTERED') AND source = 'SC') THEN
68: status := -1;
69: -- **Message: invalid parameter values
70: FND_MESSAGE.Set_Name('OE', 'WSH_WV_INVALID_VALUES');
71: ELSE
72: WSH_WV_PVT.dep_weight_volume(
73: source, departure_id, organization_id,
74: wv_flag, update_flag, menu_flag, dpw_pack_flag, x_sc_wv_mode,
78: END IF;
79:
80: EXCEPTION
81: WHEN OTHERS THEN
82: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
83: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(1)');
84: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
85: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
86: status := -1;
79:
80: EXCEPTION
81: WHEN OTHERS THEN
82: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
83: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(1)');
84: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
85: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
86: status := -1;
87: END departure_weight_volume;
80: EXCEPTION
81: WHEN OTHERS THEN
82: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
83: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(1)');
84: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
85: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
86: status := -1;
87: END departure_weight_volume;
88:
81: WHEN OTHERS THEN
82: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
83: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(1)');
84: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
85: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
86: status := -1;
87: END departure_weight_volume;
88:
89:
183: -- Set status to warning only if it was success
184: IF status = 0 then
185: status := 1;
186: END IF;
187: FND_MESSAGE.Set_Name('OE', 'WSH_WV_AUTOPACK_BELOW_MIN_FILL');
188: END IF;
189: END IF;
190:
191: -- bug 650601 fix
285: net_weight := net_weight - tare_weight;
286:
287: EXCEPTION
288: WHEN OTHERS THEN
289: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
290: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(2)');
291: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
292: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
293: IF delivery_recs%ISOPEN THEN
286:
287: EXCEPTION
288: WHEN OTHERS THEN
289: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
290: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(2)');
291: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
292: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
293: IF delivery_recs%ISOPEN THEN
294: CLOSE delivery_recs;
287: EXCEPTION
288: WHEN OTHERS THEN
289: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
290: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(2)');
291: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
292: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
293: IF delivery_recs%ISOPEN THEN
294: CLOSE delivery_recs;
295: END IF;
288: WHEN OTHERS THEN
289: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
290: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(2)');
291: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
292: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
293: IF delivery_recs%ISOPEN THEN
294: CLOSE delivery_recs;
295: END IF;
296: IF del_tare_weight%ISOPEN THEN
659: END IF;
660:
661: EXCEPTION
662: WHEN OTHERS THEN
663: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
664: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(3)');
665: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
666: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
667: status := -1;
660:
661: EXCEPTION
662: WHEN OTHERS THEN
663: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
664: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(3)');
665: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
666: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
667: status := -1;
668: END dep_loose_weight_volume;
661: EXCEPTION
662: WHEN OTHERS THEN
663: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
664: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(3)');
665: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
666: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
667: status := -1;
668: END dep_loose_weight_volume;
669:
662: WHEN OTHERS THEN
663: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
664: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(3)');
665: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
666: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
667: status := -1;
668: END dep_loose_weight_volume;
669:
670:
685: -- status (input/output)
686: -- -1 = error; 0 = success; 1 = warning
687:
688: -- Dependencies
689: -- FND_MESSAGE package
690:
691: PROCEDURE dep_fill_percentage(
692: departure_id IN NUMBER,
693: organization_id IN NUMBER,
750:
751: --* Disabled the warning, per bug 590630
752: --* status := 1;
753: --* -- **Message: Outermost containers not defined (or invalid values).
754: --* FND_MESSAGE.Set_Name('OE', 'WSH_WV_UNDEFINED_CONTAINERS');
755: END IF;
756:
757: ELSIF basis_flag = 'V' THEN -- use volume
758:
775:
776: if actual_fill > 100 then
777: status := 1;
778: -- **Message: fill percentage exceeds 100%.
779: FND_MESSAGE.Set_Name('OE', 'WSH_WV_FILL_OVER_100');
780: elsif actual_fill < vehicle_min_fill then
781: status := 1;
782: -- **Message: fill percentage does not meet
783: -- the minimum fill percentage required.
780: elsif actual_fill < vehicle_min_fill then
781: status := 1;
782: -- **Message: fill percentage does not meet
783: -- the minimum fill percentage required.
784: FND_MESSAGE.Set_Name('OE', 'WSH_WV_FILL_BELOW_MIN');
785: end if;
786:
787: END IF;
788:
788:
789: if volume > vehicle_max_volume then
790: status := 1;
791: -- **Message: volume exceeds the vehicle's maximum volume.
792: FND_MESSAGE.Set_Name('OE', 'WSH_WV_VEH_OVER_MAX_VOL');
793: end if;
794:
795: if gross_weight > vehicle_max_weight then
796: status := 1;
794:
795: if gross_weight > vehicle_max_weight then
796: status := 1;
797: -- **Message: load weight exceeds the vehicle's maximum weight
798: FND_MESSAGE.Set_Name('OE', 'WSH_WV_VEH_OVER_MAX_WEIGHT');
799: end if;
800:
801:
802: EXCEPTION
800:
801:
802: EXCEPTION
803: WHEN OTHERS THEN
804: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
805: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(4)');
806: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
807: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
808: IF container_fill%ISOPEN THEN
801:
802: EXCEPTION
803: WHEN OTHERS THEN
804: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
805: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(4)');
806: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
807: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
808: IF container_fill%ISOPEN THEN
809: CLOSE container_fill;
802: EXCEPTION
803: WHEN OTHERS THEN
804: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
805: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(4)');
806: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
807: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
808: IF container_fill%ISOPEN THEN
809: CLOSE container_fill;
810: END IF;
803: WHEN OTHERS THEN
804: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
805: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(4)');
806: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
807: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
808: IF container_fill%ISOPEN THEN
809: CLOSE container_fill;
810: END IF;
811: actual_fill := NULL;
869: IF pack_status = 1 THEN
870: IF status = 0 then -- don't want to change error into warning.
871: status := 1;
872: END IF;
873: FND_MESSAGE.Set_Name('OE', 'WSH_WV_AUTOPACK_BELOW_MIN_FILL');
874: END IF;
875: END IF;
876:
877: WSH_WV_PVT.del_weight(source, del_id, organization_id,
914: END IF;
915:
916: EXCEPTION
917: WHEN OTHERS THEN
918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(5)');
920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
922: status := -1;
915:
916: EXCEPTION
917: WHEN OTHERS THEN
918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(5)');
920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
922: status := -1;
923: END;
916: EXCEPTION
917: WHEN OTHERS THEN
918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(5)');
920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
922: status := -1;
923: END;
924:
917: WHEN OTHERS THEN
918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(5)');
920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
922: status := -1;
923: END;
924:
925:
1166: END IF;
1167:
1168: EXCEPTION
1169: WHEN OTHERS THEN
1170: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1171: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(6)');
1172: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1173: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1174: status := -1;
1167:
1168: EXCEPTION
1169: WHEN OTHERS THEN
1170: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1171: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(6)');
1172: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1173: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1174: status := -1;
1175: END del_volume;
1168: EXCEPTION
1169: WHEN OTHERS THEN
1170: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1171: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(6)');
1172: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1173: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1174: status := -1;
1175: END del_volume;
1176:
1169: WHEN OTHERS THEN
1170: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1171: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(6)');
1172: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1173: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1174: status := -1;
1175: END del_volume;
1176:
1177:
1192: -- -1 = error; 0 = success; 1 = warning
1193:
1194: -- Dependencies
1195: -- containers_weight, unpacked_items_weight, convert_uom
1196: -- FND_MESSAGE package
1197:
1198: PROCEDURE del_weight(
1199: source IN VARCHAR2,
1200: delivery_id IN NUMBER,
1370: gross_weight := weight_c + weight_ui;
1371: ELSE
1372: status := -1;
1373: -- **Message: invalid source value
1374: FND_MESSAGE.Set_Name('OE', 'WSH_WV_INVALID_SOURCE_VALUE');
1375: END IF;
1376:
1377: EXCEPTION
1378: WHEN OTHERS THEN
1375: END IF;
1376:
1377: EXCEPTION
1378: WHEN OTHERS THEN
1379: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1380: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(7)');
1381: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1382: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1383: IF delivery_weights%ISOPEN THEN
1376:
1377: EXCEPTION
1378: WHEN OTHERS THEN
1379: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1380: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(7)');
1381: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1382: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1383: IF delivery_weights%ISOPEN THEN
1384: CLOSE delivery_weights;
1377: EXCEPTION
1378: WHEN OTHERS THEN
1379: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1380: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(7)');
1381: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1382: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1383: IF delivery_weights%ISOPEN THEN
1384: CLOSE delivery_weights;
1385: END IF;
1378: WHEN OTHERS THEN
1379: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1380: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(7)');
1381: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1382: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1383: IF delivery_weights%ISOPEN THEN
1384: CLOSE delivery_weights;
1385: END IF;
1386: IF sc_other_master_containers%ISOPEN THEN
1407: -- set in status)
1408:
1409: -- Dependencies
1410: -- convert_uom, WSH_UTIL.item_flex_name
1411: -- FND_MESSAGE package
1412:
1413: FUNCTION validate_packed_qty(
1414: delivery_id IN NUMBER,
1415: pack_mode IN VARCHAR2 DEFAULT 'ALL',
1455: END LOOP;
1456:
1457: IF result = FALSE THEN
1458: status := 1; -- warning, not error.
1459: FND_MESSAGE.Set_Name('OE', 'WSH_WV_UNPACKED');
1460: FND_MESSAGE.Set_Token('UNPACKED_LIST', unpacked_list);
1461: END IF;
1462:
1463: RETURN result;
1456:
1457: IF result = FALSE THEN
1458: status := 1; -- warning, not error.
1459: FND_MESSAGE.Set_Name('OE', 'WSH_WV_UNPACKED');
1460: FND_MESSAGE.Set_Token('UNPACKED_LIST', unpacked_list);
1461: END IF;
1462:
1463: RETURN result;
1464:
1463: RETURN result;
1464:
1465: EXCEPTION
1466: WHEN OTHERS THEN
1467: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1468: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(8)');
1469: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1470: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1471: if unpacked_items%ISOPEN then
1464:
1465: EXCEPTION
1466: WHEN OTHERS THEN
1467: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1468: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(8)');
1469: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1470: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1471: if unpacked_items%ISOPEN then
1472: close unpacked_items;
1465: EXCEPTION
1466: WHEN OTHERS THEN
1467: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1468: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(8)');
1469: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1470: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1471: if unpacked_items%ISOPEN then
1472: close unpacked_items;
1473: end if;
1466: WHEN OTHERS THEN
1467: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1468: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(8)');
1469: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1470: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1471: if unpacked_items%ISOPEN then
1472: close unpacked_items;
1473: end if;
1474: status := -1;
1530: -- FALSE = exceeds maximum load weight)
1531:
1532: -- Dependencies
1533: -- convert_uom
1534: -- FND_MESSAGE package
1535:
1536: FUNCTION containers_weight_check(
1537: delivery_id IN NUMBER,
1538: organization_id IN NUMBER,
1592:
1593: IF container_seq_list IS NOT NULL THEN
1594: status := 1;
1595: -- **Message: Max Load is exceeded for container(s) *Container_Seq_List
1596: FND_MESSAGE.Set_Name('OE', 'WSH_WV_MAX_LOAD_EXCEEDED');
1597: FND_MESSAGE.Set_Token('Container_Seq_List', container_seq_list);
1598: END IF;
1599:
1600: RETURN result;
1593: IF container_seq_list IS NOT NULL THEN
1594: status := 1;
1595: -- **Message: Max Load is exceeded for container(s) *Container_Seq_List
1596: FND_MESSAGE.Set_Name('OE', 'WSH_WV_MAX_LOAD_EXCEEDED');
1597: FND_MESSAGE.Set_Token('Container_Seq_List', container_seq_list);
1598: END IF;
1599:
1600: RETURN result;
1601:
1600: RETURN result;
1601:
1602: EXCEPTION
1603: WHEN OTHERS THEN
1604: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1605: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(9)');
1606: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1607: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1608: IF containers_info%ISOPEN THEN
1601:
1602: EXCEPTION
1603: WHEN OTHERS THEN
1604: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1605: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(9)');
1606: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1607: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1608: IF containers_info%ISOPEN THEN
1609: CLOSE containers_info;
1602: EXCEPTION
1603: WHEN OTHERS THEN
1604: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1605: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(9)');
1606: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1607: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1608: IF containers_info%ISOPEN THEN
1609: CLOSE containers_info;
1610: END IF;
1603: WHEN OTHERS THEN
1604: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1605: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(9)');
1606: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1607: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1608: IF containers_info%ISOPEN THEN
1609: CLOSE containers_info;
1610: END IF;
1611: status := -1;
1793: END LOOP;
1794:
1795: EXCEPTION
1796: WHEN OTHERS THEN
1797: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1798: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(10)');
1799: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1800: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1801: IF container_lookups%ISOPEN THEN
1794:
1795: EXCEPTION
1796: WHEN OTHERS THEN
1797: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1798: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(10)');
1799: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1800: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1801: IF container_lookups%ISOPEN THEN
1802: CLOSE container_lookups;
1795: EXCEPTION
1796: WHEN OTHERS THEN
1797: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1798: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(10)');
1799: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1800: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1801: IF container_lookups%ISOPEN THEN
1802: CLOSE container_lookups;
1803: END IF;
1796: WHEN OTHERS THEN
1797: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1798: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(10)');
1799: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1800: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1801: IF container_lookups%ISOPEN THEN
1802: CLOSE container_lookups;
1803: END IF;
1804: IF contents_lookups%ISOPEN THEN
1821: -- -1 = error; 0 = success; 1 = warning
1822:
1823: -- Dependencies
1824: -- convert_uom
1825: -- FND_MESSAGE package
1826:
1827: PROCEDURE unpacked_items_weight(
1828: delivery_id IN NUMBER,
1829: organization_id IN NUMBER,
1914: weight := total_weight;
1915:
1916: EXCEPTION
1917: WHEN OTHERS THEN
1918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(11)');
1920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1922: status := -1;
1915:
1916: EXCEPTION
1917: WHEN OTHERS THEN
1918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(11)');
1920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1922: status := -1;
1923: END unpacked_items_weight;
1916: EXCEPTION
1917: WHEN OTHERS THEN
1918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(11)');
1920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1922: status := -1;
1923: END unpacked_items_weight;
1924:
1917: WHEN OTHERS THEN
1918: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
1919: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(11)');
1920: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
1921: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
1922: status := -1;
1923: END unpacked_items_weight;
1924:
1925:
2107:
2108: EXCEPTION
2109: WHEN OTHERS THEN
2110: ROLLBACK TO before_autopack;
2111: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2112: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(12)');
2113: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2114: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2115: status := -1;
2108: EXCEPTION
2109: WHEN OTHERS THEN
2110: ROLLBACK TO before_autopack;
2111: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2112: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(12)');
2113: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2114: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2115: status := -1;
2116: END del_autopack;
2109: WHEN OTHERS THEN
2110: ROLLBACK TO before_autopack;
2111: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2112: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(12)');
2113: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2114: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2115: status := -1;
2116: END del_autopack;
2117:
2110: ROLLBACK TO before_autopack;
2111: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2112: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(12)');
2113: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2114: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2115: status := -1;
2116: END del_autopack;
2117:
2118:
2182: );
2183:
2184: EXCEPTION
2185: WHEN OTHERS THEN
2186: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2187: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(13)');
2188: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2189: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2190: status := -1;
2183:
2184: EXCEPTION
2185: WHEN OTHERS THEN
2186: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2187: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(13)');
2188: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2189: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2190: status := -1;
2191: END del_packcont;
2184: EXCEPTION
2185: WHEN OTHERS THEN
2186: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2187: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(13)');
2188: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2189: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2190: status := -1;
2191: END del_packcont;
2192:
2185: WHEN OTHERS THEN
2186: FND_MESSAGE.Set_Name('OE','OE_QUERY_ERROR');
2187: FND_MESSAGE.Set_Token('PACKAGE','wsh_wv_pvt(13)');
2188: FND_MESSAGE.Set_Token('ORA_ERROR',to_char(sqlcode));
2189: FND_MESSAGE.Set_Token('ORA_TEXT',SQLERRM);
2190: status := -1;
2191: END del_packcont;
2192:
2193: