1: PACKAGE BODY WSH_PR_PICKING_OBJECTS AS
2: /* $Header: WSHPRPOB.pls 115.9 99/07/16 08:19:59 porting ship $ */
3:
4: --
5: -- Package
2: /* $Header: WSHPRPOB.pls 115.9 99/07/16 08:19:59 porting ship $ */
3:
4: --
5: -- Package
6: -- WSH_PR_PICKING_OBJECTS
7: --
8: -- Purpose
9: -- This package does the following:
10: -- - Determines whether a new picking header or pick slip number
153: FROM WSH_PARAMETERS
154: WHERE organization_id = x_warehouse_id;
155:
156: BEGIN
157: WSH_UTIL.Write_Log('Starting WSH_PR_PICKING_OBJECTS.Init');
158: IF initialized = TRUE THEN
159: RETURN SUCCESS;
160: END IF;
161:
212: RETURN SUCCESS;
213:
214: EXCEPTION
215: WHEN OTHERS THEN
216: WSH_UTIL.DEFAULT_HANDLER('WSH_PR_PICKING_OBJECTS.Init', 'Error in Init');
217: IF ps_rule%ISOPEN THEN
218: CLOSE ps_rule;
219: END IF;
220: IF get_autocreate_del_orders%ISOPEN THEN
360: p_warehouse_id,
361: new_flag);
362:
363: IF ph_id = FAILURE THEN
364: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
365: RETURN FAILURE;
366: END IF;
367:
368: -- Create new picking header if necessary
445:
446: WSH_UTIL.Write_Log('Pick Slip Number is ' || to_char(ps_number));
447:
448: IF ps_number = FAILURE THEN
449: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
450: RETURN FAILURE;
451: END IF;
452:
453: SELECT SO_PICKING_LINES_S.NEXTVAL
480: p_warehouse_id,
481: p_org_id);
482:
483: IF rc = FAILURE THEN
484: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
485: RETURN FAILURE;
486: END IF;
487:
488: p_picking_line_id := x_pl_id;
515:
516: WSH_UTIL.Write_Log('Pick Slip Number is ' || to_char(ps_number));
517:
518: IF ps_number = FAILURE THEN
519: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
520: RETURN FAILURE;
521: END IF;
522:
523: rc := Insert_Picking_Line_Details (
578:
579: END IF;
580:
581: IF rc = FAILURE THEN
582: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
583: RETURN FAILURE;
584: END IF;
585:
586: p_pld_recs := p_pld_recs + rc;
625: p_warehouse_id,
626: p_org_id);
627:
628: IF rc = FAILURE THEN
629: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
630: RETURN FAILURE;
631: END IF;
632:
633: p_picking_line_id := x_pl_id;
658:
659: WSH_UTIL.Write_Log('Pick Slip Number is ' || to_char(ps_number));
660:
661: IF ps_number = FAILURE THEN
662: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
663: RETURN FAILURE;
664: END IF;
665:
666: rc := Insert_Picking_Line_Details (
691: NULL,
692: p_warehouse_id);
693:
694: IF rc = FAILURE THEN
695: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
696: RETURN FAILURE;
697: END IF;
698:
699: p_pld_recs := p_pld_recs + rc;
718:
719: WSH_UTIL.Write_Log('Pick Slip Number is ' || to_char(ps_number));
720:
721: IF ps_number = FAILURE THEN
722: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
723: RETURN FAILURE;
724: END IF;
725:
726: rc := Insert_Picking_Line_Details (
751: NULL,
752: p_warehouse_id);
753:
754: IF rc = FAILURE THEN
755: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
756: RETURN FAILURE;
757: END IF;
758:
759: p_pld_recs := p_pld_recs + rc;
805: p_warehouse_id,
806: p_org_id);
807:
808: IF rc = FAILURE THEN
809: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
810: RETURN FAILURE;
811: END IF;
812:
813: p_abo_picking_line_id := x_pl_id;
851: 'N',
852: p_warehouse_id);
853:
854: IF rc = FAILURE THEN
855: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
856: RETURN FAILURE;
857: END IF;
858:
859: WSH_UTIL.Write_Log('Picking Line Detail created with delivery = ' || to_char(p_new_delivery));
874: p_autodetailed_quantity,
875: p_new_delivery);
876:
877: IF rc = FAILURE THEN
878: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
879: RETURN FAILURE;
880: END IF;
881:
882: WSH_UTIL.Write_Log('Order Line Detail created with delivery = ' || to_char(p_new_delivery));
928: p_warehouse_id,
929: p_org_id);
930:
931: IF rc = FAILURE THEN
932: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
933: RETURN FAILURE;
934: END IF;
935:
936: OPEN nores_sub(p_ccid, p_order_line_id, p_delivery);
960:
961: WSH_UTIL.Write_Log('Pick Slip Number is ' || to_char(ps_number));
962:
963: IF ps_number = FAILURE THEN
964: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
965: RETURN FAILURE;
966: END IF;
967:
968: rc := Insert_Picking_Line_Details (
993: NULL,
994: p_warehouse_id);
995:
996: IF rc = FAILURE THEN
997: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
998: RETURN FAILURE;
999: END IF;
1000:
1001: ELSIF (p_transactable_flag = 'N') THEN
1018:
1019: WSH_UTIL.Write_Log('Pick Slip Number is ' || to_char(ps_number));
1020:
1021: IF ps_number = FAILURE THEN
1022: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Process_Key');
1023: RETURN FAILURE;
1024: END IF;
1025:
1026: SELECT SO_PICKING_LINES_S.NEXTVAL
1053: p_warehouse_id,
1054: p_org_id);
1055:
1056: IF rc = FAILURE THEN
1057: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
1058: RETURN FAILURE;
1059: END IF;
1060:
1061: rc := Insert_Picking_Line_Details (
1086: NULL,
1087: p_warehouse_id);
1088:
1089: IF rc = FAILURE THEN
1090: WSH_UTIL.Write_Log('WSH_PR_PICKING_OBJECTS: Error in Insert_Lines');
1091: RETURN FAILURE;
1092: END IF;
1093:
1094: END IF; /* Reservable, transactable etc */
1103: END IF;
1104: IF nores_sub%ISOPEN THEN
1105: CLOSE res_sub;
1106: END IF;
1107: WSH_UTIL.Default_Handler('WSH_PR_PICKING_OBJECTS.Insert_Lines');
1108: RETURN FAILURE;
1109:
1110: END Insert_Lines;
1111:
1239: RETURN SUCCESS;
1240:
1241: EXCEPTION
1242: WHEN OTHERS THEN
1243: WSH_UTIL.Default_Handler('WSH_PR_PICKING_OBJECTS.Insert_Picking_Line');
1244: RETURN FAILURE;
1245:
1246: END Insert_Picking_Line;
1247:
1630: END IF;
1631:
1632: EXCEPTION
1633: WHEN OTHERS THEN
1634: WSH_UTIL.Default_Handler('WSH_PR_PICKING_OBJECTS.Insert_Picking_Line_Details',
1635: to_char(p_mode));
1636: RETURN FAILURE;
1637:
1638: END Insert_Picking_Line_Details;
1819: RETURN rows_inserted;
1820:
1821: EXCEPTION
1822: WHEN OTHERS THEN
1823: WSH_UTIL.Default_Handler('WSH_PR_PICKING_OBJECTS.Insert_Order_Line_Detail');
1824: RETURN FAILURE;
1825:
1826: END Insert_Order_Line_Detail;
1827:
1946: END IF;
1947:
1948: EXCEPTION
1949: WHEN OTHERS THEN
1950: WSH_UTIL.Default_Handler('WSH_PR_PICKING_OBJECTS.Process_Key');
1951: RETURN FAILURE;
1952:
1953: END Process_Key;
1954:
1951: RETURN FAILURE;
1952:
1953: END Process_Key;
1954:
1955: END WSH_PR_PICKING_OBJECTS;