[Home] [Help]
PACKAGE BODY: APPS.WSH_DPW_PICK_RELEASE
Source
1 PACKAGE BODY WSH_DPW_PICK_RELEASE AS
2 /* $Header: WSHDPPRB.pls 115.0 99/07/16 08:18:54 porting ship $ */
3
4
5 --
6 -- Name
7 -- FUNCTION Launch_Pick_Release
8 --
9 -- Purpose
10 -- This function launches Pick Release program from Departure
11 -- Planning Workbench Form
12 -- - It gets the default shipping parameters for Pick Release
13 -- - Creates a Pickinmg Batch
14 -- - Launches the Pick Release Concurrent Program
15 -- - Places error messages in FND message stack
16 --
17 -- Arguments
18 -- p_departure_id - departure to release
19 -- p_delivery - delivery to release
20 -- p_warehouse - warehouse to release from
21 -- p_request_id
22 --
23 -- Return Values
24 -- Request ID of concurrent program
25 --
26 --
27 -- Notes
28 --
29
30 FUNCTION Launch_Pick_Release( p_departure_id IN NUMBER,
31 p_delivery_id IN NUMBER,
32 p_warehouse_id IN NUMBER) RETURN NUMBER IS
33
34 v_rowid VARCHAR2(100);
35 v_batch_id NUMBER;
36 v_batch_name VARCHAR2(30);
37 v_document_set NUMBER;
38 v_rsr_id NUMBER;
39 v_psr_id NUMBER;
40 org_id_char1 VARCHAR2(30);
41 org_found_flag BOOLEAN;
42 v_org_id NUMBER;
43 v_request_id NUMBER;
44
45 BEGIN
46
47 -- Get shipping parameter for Release Sequence Rule, Pick Slip Grouping Rule
48 -- and Default Document Set
49 WSH_PARAMETERS_PVT.get_param_value_num(
50 p_warehouse_id,
51 'RELEASE_SEQ_RULE_ID',
52 v_rsr_id);
53
54 WSH_PARAMETERS_PVT.get_param_value_num(
55 p_warehouse_id,
56 'PICK_SLIP_RULE_ID',
57 v_psr_id);
58
59 WSH_PARAMETERS_PVT.get_param_value_num(
60 p_warehouse_id,
61 'PICK_RELEASE_REPORT_SET_ID',
62 v_document_set);
63
64 IF v_rsr_id = -1 THEN
65 -- error no default release seq rule
66 FND_MESSAGE.SET_NAME('OE','WSH_PARAM_RELEASE_SEQ_RULE');
67 APP_EXCEPTION.Raise_Exception;
68 END IF;
69
70 IF v_psr_id = -1 THEN
71 -- error no default pic slip rule
72 FND_MESSAGE.SET_NAME('OE','WSH_PARAM_PICK_SLIP_RULE');
73 APP_EXCEPTION.Raise_Exception;
74 END IF;
75
76 IF v_document_set = -1 THEN
77 -- error no default document set
78 FND_MESSAGE.SET_NAME('OE','WSH_PARAM_PICK_DOCUMENT_SET');
79 APP_EXCEPTION.Raise_Exception;
80 END IF;
81
82 -- Get operating unit for batch
83 -- Fetch the current Operating Org . If no operating org was returned by
84 -- the function below indicated by org_found_flag = FALSE, then we set the
85 -- operating org to NULL , otherwise to its fetched value
86
87 FND_PROFILE.GET_SPECIFIC( 'ORG_ID' , NULL , NULL , NULL , org_id_char1 , org_found_flag );
88 IF org_found_flag = TRUE THEN
89 v_org_id := to_number(org_id_char1);
90 ELSE
91 v_org_id := NULL;
92 END IF;
93
94 SHP_PICKING_BATCHES_PKG.Insert_Row(
95 X_Rowid => v_rowid,
96 X_Batch_Id => v_batch_id,
97 X_Creation_Date => NULL,
98 X_Created_By => NULL,
99 X_Last_Update_Date => NULL,
100 X_Last_Updated_By => NULL,
101 X_Last_Update_Login => NULL,
102 X_Name => v_batch_name,
103 X_Backorders_Only_Flag => 'I',
104 X_Print_flag => to_char(v_document_set),
105 X_Existing_Rsvs_Only_Flag => 'N',
106 X_Shipment_Priority_Code => NULL,
107 X_Ship_Method_Code => NULL,
108 X_Customer_Id => NULL,
109 X_Group_Id => NULL,
110 X_Header_Count => NULL,
111 X_Header_Id => NULL,
112 X_Ship_Set_Number => NULL,
113 X_Inventory_Item_Id => NULL,
114 X_Order_Type_Id => NULL,
115 X_Date_Requested_From => NULL,
116 X_Date_Requested_To => NULL,
117 X_Scheduled_Shipment_Date_From => NULL,
118 X_Scheduled_Shipment_Date_To => NULL,
119 X_Site_Use_Id => NULL,
120 X_Warehouse_Id => p_warehouse_id,
121 X_Subinventory => NULL,
122 X_Date_Completed => NULL,
123 X_Date_Confirmed => NULL,
124 X_Date_Last_Printed => NULL,
125 X_Date_Released => NULL,
126 X_Date_Unreleased => NULL,
127 X_Departure_Id => p_departure_id,
128 X_Delivery_Id => p_delivery_id,
129 X_Include_Planned_Lines => 'N',
130 X_Partial_Allowed_Flag => 'Y',
131 X_Pick_Slip_Rule_Id => v_psr_id,
132 X_Release_Seq_Rule_Id => v_rsr_id,
133 X_Autocreate_Delivery_Flag => 'N',
134 X_Context => NULL,
135 X_Attribute1 => NULL,
136 X_Attribute2 => NULL,
137 X_Attribute3 => NULL,
138 X_Attribute4 => NULL,
139 X_Attribute5 => NULL,
140 X_Attribute6 => NULL,
141 X_Attribute7 => NULL,
142 X_Attribute8 => NULL,
143 X_Attribute9 => NULL,
144 X_Attribute10 => NULL,
145 X_Attribute11 => NULL,
146 X_Attribute12 => NULL,
147 X_Attribute13 => NULL,
148 X_Attribute14 => NULL,
149 X_Attribute15 => NULL,
150 X_Error_Report_Flag => NULL,
151 X_Org_Id => v_org_id);
152
153
154
155 v_request_id := SHP_PICKING_BATCHES_PKG.Submit_Release_Request(v_batch_id);
156
157 RETURN v_request_id;
158
159 END Launch_Pick_Release;
160
161 END WSH_DPW_PICK_RELEASE;