[Home] [Help]
PACKAGE BODY: APPS.PO_SHIPMENTS_SV6
Source
1 PACKAGE BODY PO_SHIPMENTS_SV6 as
2 /* $Header: POXPOS6B.pls 120.4 2005/06/30 07:12:33 manram noship $*/
3
4 /*===========================================================================
5
6 PROCEDURE NAME: insert_po_shipment
7
8 ===========================================================================*/
9 PROCEDURE insert_po_shipment
10 (X_Rowid IN OUT NOCOPY VARCHAR2,
11 X_Line_Location_Id IN OUT NOCOPY NUMBER,
12 X_Last_Update_Date DATE,
13 X_Last_Updated_By NUMBER,
14 X_Po_Header_Id NUMBER,
15 X_Po_Line_Id NUMBER,
16 X_Last_Update_Login NUMBER,
17 X_Creation_Date DATE,
18 X_Created_By NUMBER,
19 X_Quantity NUMBER,
20 X_Quantity_Received NUMBER,
21 X_Quantity_Accepted NUMBER,
22 X_Quantity_Rejected NUMBER,
23 X_Quantity_Billed NUMBER,
24 X_Quantity_Cancelled NUMBER,
25 X_Unit_Meas_Lookup_Code VARCHAR2,
26 X_Po_Release_Id NUMBER,
27 X_Ship_To_Location_Id NUMBER,
28 X_Ship_Via_Lookup_Code VARCHAR2,
29 X_Need_By_Date DATE,
30 X_Promised_Date DATE,
31 X_Last_Accept_Date DATE,
32 X_Price_Override NUMBER,
33 X_Encumbered_Flag VARCHAR2,
34 X_Encumbered_Date DATE,
35 X_Fob_Lookup_Code VARCHAR2,
36 X_Freight_Terms_Lookup_Code VARCHAR2,
37 X_Taxable_Flag VARCHAR2,
38 X_Tax_Code_Id NUMBER,
39 X_Tax_User_Override_Flag VARCHAR2,
40 X_Calculate_Tax_Flag VARCHAR2,
41 X_From_Header_Id NUMBER,
42 X_From_Line_Id NUMBER,
43 X_From_Line_Location_Id NUMBER,
44 X_Start_Date DATE,
45 X_End_Date DATE,
46 X_Lead_Time NUMBER,
47 X_Lead_Time_Unit VARCHAR2,
48 X_Price_Discount NUMBER,
49 X_Terms_Id NUMBER,
50 X_Approved_Flag VARCHAR2,
51 X_Approved_Date DATE,
52 X_Closed_Flag VARCHAR2,
53 X_Cancel_Flag VARCHAR2,
54 X_Cancelled_By NUMBER,
55 X_Cancel_Date DATE,
56 X_Cancel_Reason VARCHAR2,
57 X_Firm_Status_Lookup_Code VARCHAR2,
58 X_Attribute_Category VARCHAR2,
59 X_Attribute1 VARCHAR2,
60 X_Attribute2 VARCHAR2,
61 X_Attribute3 VARCHAR2,
62 X_Attribute4 VARCHAR2,
63 X_Attribute5 VARCHAR2,
64 X_Attribute6 VARCHAR2,
65 X_Attribute7 VARCHAR2,
66 X_Attribute8 VARCHAR2,
67 X_Attribute9 VARCHAR2,
68 X_Attribute10 VARCHAR2,
69 X_Attribute11 VARCHAR2,
70 X_Attribute12 VARCHAR2,
71 X_Attribute13 VARCHAR2,
72 X_Attribute14 VARCHAR2,
73 X_Attribute15 VARCHAR2,
74 X_Inspection_Required_Flag VARCHAR2,
75 X_Receipt_Required_Flag VARCHAR2,
76 X_Qty_Rcv_Tolerance NUMBER,
77 X_Qty_Rcv_Exception_Code VARCHAR2,
78 X_Enforce_Ship_To_Location VARCHAR2,
79 X_Allow_Substitute_Receipts VARCHAR2,
80 X_Days_Early_Receipt_Allowed NUMBER,
81 X_Days_Late_Receipt_Allowed NUMBER,
82 X_Receipt_Days_Exception_Code VARCHAR2,
83 X_Invoice_Close_Tolerance NUMBER,
84 X_Receive_Close_Tolerance NUMBER,
85 X_Ship_To_Organization_Id NUMBER,
86 X_Shipment_Num NUMBER,
87 X_Source_Shipment_Id NUMBER,
88 X_Shipment_Type VARCHAR2,
89 X_Closed_Code VARCHAR2,
90 X_Ussgl_Transaction_Code VARCHAR2,
91 X_Government_Context VARCHAR2,
92 X_Receiving_Routing_Id NUMBER,
93 X_Accrue_On_Receipt_Flag VARCHAR2,
94 X_Closed_Reason VARCHAR2,
95 X_Closed_Date DATE,
96 X_Closed_By NUMBER,
97 X_item_id NUMBER,
98 X_hdr_approved_flag IN VARCHAR2,
99 X_po_rowid IN VARCHAR2,
100 X_increment_rev IN BOOLEAN,
101 X_new_revision_num IN NUMBER,
102 -- Bug 902976, zxzhang, 10/04/99
103 -- Change REVISED_DATE from VarChar(25) to Date.
104 -- X_revised_date IN OUT NOCOPY VARCHAR2,
105 X_revised_date IN OUT NOCOPY DATE,
106 X_item_status IN OUT NOCOPY VARCHAR2,
107 X_Global_Attribute_Category VARCHAR2,
108 X_Global_Attribute1 VARCHAR2,
109 X_Global_Attribute2 VARCHAR2,
110 X_Global_Attribute3 VARCHAR2,
111 X_Global_Attribute4 VARCHAR2,
112 X_Global_Attribute5 VARCHAR2,
113 X_Global_Attribute6 VARCHAR2,
114 X_Global_Attribute7 VARCHAR2,
115 X_Global_Attribute8 VARCHAR2,
116 X_Global_Attribute9 VARCHAR2,
117 X_Global_Attribute10 VARCHAR2,
118 X_Global_Attribute11 VARCHAR2,
119 X_Global_Attribute12 VARCHAR2,
120 X_Global_Attribute13 VARCHAR2,
121 X_Global_Attribute14 VARCHAR2,
122 X_Global_Attribute15 VARCHAR2,
123 X_Global_Attribute16 VARCHAR2,
124 X_Global_Attribute17 VARCHAR2,
125 X_Global_Attribute18 VARCHAR2,
126 X_Global_Attribute19 VARCHAR2,
127 X_Global_Attribute20 VARCHAR2,
128 X_Country_of_Origin_Code VARCHAR2,
129 X_Invoice_Match_Option VARCHAR2, --bgu, Dec. 7, 98
130 p_value_basis IN VARCHAR2, -- <Complex Work R12>
131 p_matching_basis IN VARCHAR2, -- <Complex Work R12>
132 --togeorge 10/03/2000
133 --added note to receiver
134 X_note_to_receiver VARCHAR2,
135 -- Mahesh Chandak(GML) Add 7 process related fields.Bug# 1548597
136 -- start of 1548597
137 X_Secondary_Unit_Of_Measure VARCHAR2,
138 X_Secondary_Quantity NUMBER,
139 X_Preferred_Grade VARCHAR2,
140 X_Secondary_Quantity_Received NUMBER,
141 X_Secondary_Quantity_Accepted NUMBER,
142 X_Secondary_Quantity_Rejected NUMBER,
143 X_Secondary_Quantity_Cancelled NUMBER,
144 -- end of 1548597
145 X_Consigned_Flag VARCHAR2, /* CONSIGNED FPI */
146 X_amount NUMBER, -- <SERVICES FPJ>
147 p_transaction_flow_header_id NUMBER,
148 p_org_id IN NUMBER, -- <R12.MOAC>
149 p_outsourced_assembly IN NUMBER default 2 --<SHIKYU R12>
150 ) IS
151
152 X_progress VARCHAR2(3) := '';
153 X_approval_status_ok BOOLEAN;
154 X_scheduled_quantity NUMBER;
155
156 BEGIN
157
158 X_progress := '010';
159
160 IF X_shipment_type not in ('RFQ', 'QUOTATION') THEN
161
162 /* Item Status fetched here will be used for creating
163 ** distributions automatically. */
164
165 po_items_sv2.get_item_status(X_item_id,
166 X_ship_to_organization_id,
167 X_item_status);
168
169 END IF; /* X_shipment_type not in RFQ or QUOTATION */
170
171 IF X_shipment_type = 'PLANNED' then
172
173 begin
174
175 SELECT nvl(sum(pll.quantity - nvl(pll.quantity_cancelled,0)),0)
176 INTO X_scheduled_quantity
177 FROM po_line_locations pll
178 WHERE pll.po_line_id = X_po_line_id
179 AND pll.source_shipment_id = X_line_location_id
180 AND pll.shipment_type = 'SCHEDULED';
181
182 if X_scheduled_quantity > X_quantity then
183 po_message_s.app_error('PO_PO_REL_EXCEEDS_QTY');
184 end if;
185
186 exception
187
188 when no_data_found then
189 null;
190
191 when others then
192 po_message_s.sql_error('insert_po_shipment',X_progress,
193 sqlcode);
194 raise;
195 END;
196
197 END IF; /* End of Shipment_Type = 'PLANNED' */
198
199 -- verify that the shipment number is unique.
200 -- Otherwise, display a message to the user and
201 -- abort insert_row.
202
203 X_progress := '015';
204 po_line_locations_pkg_s3.check_unique(
205 X_rowid,
206 X_shipment_num,
207 X_po_line_id,
208 null,
209 X_shipment_type);
210
211
212 /*
213 ** Call the insert row routine with all parameters.
214 */
215 po_line_locations_pkg_s0.insert_row(
216 X_Rowid,
217 X_Line_Location_Id,
218 X_Last_Update_Date,
219 X_Last_Updated_By,
220 X_Po_Header_Id,
221 X_Po_Line_Id,
222 X_Last_Update_Login,
223 X_Creation_Date,
224 X_Created_By,
225 X_Quantity,
226 X_Quantity_Received,
227 X_Quantity_Accepted,
228 X_Quantity_Rejected,
229 X_Quantity_Billed,
230 X_Quantity_Cancelled,
231 X_Unit_Meas_Lookup_Code,
232 X_Po_Release_Id,
233 X_Ship_To_Location_Id,
234 X_Ship_Via_Lookup_Code,
235 X_Need_By_Date,
236 X_Promised_Date,
237 X_Last_Accept_Date,
238 X_Price_Override,
239 X_Encumbered_Flag,
240 X_Encumbered_Date,
241 X_Fob_Lookup_Code,
242 X_Freight_Terms_Lookup_Code,
243 X_Taxable_Flag,
244 NULL, --<R12 eTax Integration>
245 NULL, --<R12 eTax Integration>
246 X_Calculate_Tax_Flag,
247 X_From_Header_Id,
248 X_From_Line_Id,
249 X_From_Line_Location_Id,
250 X_Start_Date,
251 X_End_Date,
252 X_Lead_Time,
253 X_Lead_Time_Unit,
254 X_Price_Discount,
255 X_Terms_Id,
256 X_Approved_Flag,
257 X_Approved_Date,
258 X_Closed_Flag,
259 X_Cancel_Flag,
260 X_Cancelled_By,
261 X_Cancel_Date,
262 X_Cancel_Reason,
263 X_Firm_Status_Lookup_Code,
264 X_Attribute_Category,
265 X_Attribute1,
266 X_Attribute2,
267 X_Attribute3,
268 X_Attribute4,
269 X_Attribute5,
270 X_Attribute6,
271 X_Attribute7,
272 X_Attribute8,
273 X_Attribute9,
274 X_Attribute10,
275 X_Attribute11,
276 X_Attribute12,
277 X_Attribute13,
278 X_Attribute14,
279 X_Attribute15,
280 X_Inspection_Required_Flag,
281 X_Receipt_Required_Flag,
282 X_Qty_Rcv_Tolerance,
283 X_Qty_Rcv_Exception_Code,
284 X_Enforce_Ship_To_Location,
285 X_Allow_Substitute_Receipts,
286 X_Days_Early_Receipt_Allowed,
287 X_Days_Late_Receipt_Allowed,
288 X_Receipt_Days_Exception_Code,
289 X_Invoice_Close_Tolerance,
290 X_Receive_Close_Tolerance,
291 X_Ship_To_Organization_Id,
292 X_Shipment_Num,
293 X_Source_Shipment_Id,
294 X_Shipment_Type,
295 X_Closed_Code,
296 NULL, --<R12 SLA>
297 X_Government_Context,
298 X_Receiving_Routing_Id,
299 X_Accrue_On_Receipt_Flag,
300 X_Closed_Reason,
301 X_Closed_Date,
302 X_Closed_By,
303 X_Global_Attribute_Category,
304 X_Global_Attribute1,
305 X_Global_Attribute2,
306 X_Global_Attribute3,
307 X_Global_Attribute4,
308 X_Global_Attribute5,
309 X_Global_Attribute6,
310 X_Global_Attribute7,
311 X_Global_Attribute8,
312 X_Global_Attribute9,
313 X_Global_Attribute10,
314 X_Global_Attribute11,
315 X_Global_Attribute12,
316 X_Global_Attribute13,
317 X_Global_Attribute14,
321 X_Global_Attribute18,
318 X_Global_Attribute15,
319 X_Global_Attribute16,
320 X_Global_Attribute17,
322 X_Global_Attribute19,
323 X_Global_Attribute20,
324 X_Country_of_Origin_Code,
325 X_Invoice_Match_Option, --bgu, Dec. 7, 98
326 p_value_basis, -- <Complex Work R12>
327 p_matching_basis, -- <Complex Work R12>
328 --togeorge 10/03/2000
329 --added note to receiver
330 X_note_to_receiver,
331 --Start of Bug# 1548597.
332 X_Secondary_Unit_Of_Measure,
333 X_Secondary_Quantity,
334 X_Preferred_Grade,
335 X_Secondary_Quantity_Received,
336 X_Secondary_Quantity_Accepted,
337 X_Secondary_Quantity_Rejected,
338 X_Secondary_Quantity_Cancelled,
339 -- end of Bug# 1548597
340 X_Consigned_Flag, /* CONSIGNED FPI */
341 X_amount, -- <SERVICES FPJ>
342 p_transaction_flow_header_id --< Shared Proc FPJ >
343 ,NULL --p_manual_price_change_flag -- <Manual Price Override FPJ>
344 ,p_org_id -- <R12.MOAC>
345 ,p_outsourced_assembly --<SHIKYU R12>
346 );
347
348 EXCEPTION
349 WHEN OTHERS THEN
350 po_message_s.sql_error('PO_SHIPMENTS_SV6.insert_po_shipment', X_progress, sqlcode);
351 raise;
352 END insert_po_shipment;
353
354 END PO_SHIPMENTS_SV6;