107: l_line_adj_val_tbl := p_line_adj_val_tbl;
108: l_line_scredit_val_tbl := p_line_scredit_val_tbl;
109: l_lot_serial_val_tbl := p_lot_serial_val_tbl;
110:
111: p_return_status := FND_API.G_RET_STS_SUCCESS; /* Init to Success */
112:
113: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', G_IMPORT_SHIPMENTS);
114: G_IMPORT_SHIPMENTS := nvl(G_IMPORT_SHIPMENTS, 'NO');
115:
172: oe_debug_pub.add( 'CHANGE SEQUENCE NOT REQUIRED FOR NEW ORDERS... ' ) ;
173: END IF;
174: FND_MESSAGE.SET_NAME('ONT','OE_OI_CHANGE_SEQUENCE');
175: OE_MSG_PUB.Add;
176: p_return_status := FND_API.G_RET_STS_ERROR;
177: END IF;
178:
179: ELSIF l_header_rec.operation = OE_Globals.G_OPR_DELETE THEN
180: IF nvl(l_header_rec.change_sequence, ' ') <> ' ' THEN
182: oe_debug_pub.add( 'CHANGE SEQUENCE NOT REQUIRED FOR DELETING EXISTING ORDERS... ' ) ;
183: END IF;
184: FND_MESSAGE.SET_NAME('ONT','OE_OI_CHANGE_SEQUENCE');
185: OE_MSG_PUB.Add;
186: p_return_status := FND_API.G_RET_STS_ERROR;
187: END IF;
188:
189: ELSIF l_header_rec.operation = OE_Globals.G_OPR_UPDATE THEN
190: IF nvl(l_header_rec.change_sequence,' ') = ' ' THEN
192: oe_debug_pub.add( 'CHANGE SEQUENCE REQUIRED FOR CHANGES TO AN EXISTING ORDER... ' ) ;
193: END IF;
194: FND_MESSAGE.SET_NAME('ONT','OE_OI_CHANGE_SEQUENCE');
195: OE_MSG_PUB.Add;
196: p_return_status := FND_API.G_RET_STS_ERROR;
197: ELSE
198: /* -----------------------------------------------------------
199: Validate change out nocopy of sequence
200:
211: FROM oe_order_headers
212: WHERE order_source_id = l_header_rec.order_source_id
213: AND orig_sys_document_ref = l_header_rec.orig_sys_document_ref
214: AND decode(l_customer_key_profile, 'Y',
215: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
216: = decode(l_customer_key_profile, 'Y',
217: nvl(l_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1);
218:
219: -- validation for whether change is out of sequence will be done in order import pre_process
213: AND orig_sys_document_ref = l_header_rec.orig_sys_document_ref
214: AND decode(l_customer_key_profile, 'Y',
215: nvl(sold_to_org_id, FND_API.G_MISS_NUM), 1)
216: = decode(l_customer_key_profile, 'Y',
217: nvl(l_header_rec.sold_to_org_id, FND_API.G_MISS_NUM), 1);
218:
219: -- validation for whether change is out of sequence will be done in order import pre_process
220:
221: EXCEPTION
224: oe_debug_pub.add( 'UNEXPECTED ERROR: '||SQLERRM ) ;
225: END IF;
226:
227: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
228: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
229: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME, 'Pre_Process.header_change_sequence_validation');
230: END IF;
231: END; -- header change sequence is not null
232: END IF; -- If header change sequence is...
243: END IF;
244:
245: IF l_header_rec.operation = OE_Globals.G_OPR_UPDATE AND -- update operation
246: nvl(l_header_rec.change_sequence,' ') <> ' ' AND -- new code not null
247: l_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM AND
248: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) <>
249: nvl(l_header_ship_to_org_id, FND_API.G_MISS_NUM) -- new code not same as old
250: THEN
251: IF l_debug_level > 0 THEN
244:
245: IF l_header_rec.operation = OE_Globals.G_OPR_UPDATE AND -- update operation
246: nvl(l_header_rec.change_sequence,' ') <> ' ' AND -- new code not null
247: l_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM AND
248: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) <>
249: nvl(l_header_ship_to_org_id, FND_API.G_MISS_NUM) -- new code not same as old
250: THEN
251: IF l_debug_level > 0 THEN
252: oe_debug_pub.add( 'BEFORE READING ALL OPEN SHIPMENTS' ) ;
245: IF l_header_rec.operation = OE_Globals.G_OPR_UPDATE AND -- update operation
246: nvl(l_header_rec.change_sequence,' ') <> ' ' AND -- new code not null
247: l_header_rec.ship_to_org_id <> FND_API.G_MISS_NUM AND
248: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) <>
249: nvl(l_header_ship_to_org_id, FND_API.G_MISS_NUM) -- new code not same as old
250: THEN
251: IF l_debug_level > 0 THEN
252: oe_debug_pub.add( 'BEFORE READING ALL OPEN SHIPMENTS' ) ;
253: END IF;
264: , l_line_ship_to_org_id;
265: EXIT WHEN l_line_cursor%NOTFOUND;
266:
267: IF nvl(l_line_ship_to_org_id, l_header_ship_to_org_id) <>
268: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM)
269: THEN
270: l_line_exists := 'N';
271: FOR I IN 1..l_line_tbl.count
272: LOOP
275: If l_line_tbl(I).orig_sys_line_ref = l_orig_sys_line_ref AND
276: l_line_tbl(I).orig_sys_shipment_ref = l_orig_sys_shipment_ref Then
277: l_line_exists := 'Y';
278: If l_line_tbl(I).operation = OE_Globals.G_OPR_UPDATE AND
279: nvl(l_line_tbl(I).ship_to_org_id, FND_API.G_MISS_NUM) <>
280: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) Then
281:
282: l_line_tbl(I).ship_to_org_id := l_header_rec.ship_to_org_id;
283: End If;
276: l_line_tbl(I).orig_sys_shipment_ref = l_orig_sys_shipment_ref Then
277: l_line_exists := 'Y';
278: If l_line_tbl(I).operation = OE_Globals.G_OPR_UPDATE AND
279: nvl(l_line_tbl(I).ship_to_org_id, FND_API.G_MISS_NUM) <>
280: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) Then
281:
282: l_line_tbl(I).ship_to_org_id := l_header_rec.ship_to_org_id;
283: End If;
284: End If;
287: OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL < '110508' Then
288: If l_line_tbl(I).orig_sys_line_ref = l_orig_sys_line_ref Then
289: l_line_exists := 'Y';
290: If l_line_tbl(I).operation = OE_Globals.G_OPR_UPDATE AND
291: nvl(l_line_tbl(I).ship_to_org_id, FND_API.G_MISS_NUM) <>
292: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) Then
293:
294: l_line_tbl(I).ship_to_org_id := l_header_rec.ship_to_org_id;
295: End If;
288: If l_line_tbl(I).orig_sys_line_ref = l_orig_sys_line_ref Then
289: l_line_exists := 'Y';
290: If l_line_tbl(I).operation = OE_Globals.G_OPR_UPDATE AND
291: nvl(l_line_tbl(I).ship_to_org_id, FND_API.G_MISS_NUM) <>
292: nvl(l_header_rec.ship_to_org_id, FND_API.G_MISS_NUM) Then
293:
294: l_line_tbl(I).ship_to_org_id := l_header_rec.ship_to_org_id;
295: End If;
296: End If;
330: END IF;
331: END LOOP;
332: END IF;
333:
334: IF (nvl(l_header_rec.SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
335: <> FND_API.G_MISS_NUM) THEN
336:
337: IF (nvl(l_header_val_rec.SHIP_TO_ORG,FND_API.G_MISS_CHAR)
338: <> FND_API.G_MISS_CHAR) THEN
331: END LOOP;
332: END IF;
333:
334: IF (nvl(l_header_rec.SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
335: <> FND_API.G_MISS_NUM) THEN
336:
337: IF (nvl(l_header_val_rec.SHIP_TO_ORG,FND_API.G_MISS_CHAR)
338: <> FND_API.G_MISS_CHAR) THEN
339: p_header_val_rec.SHIP_TO_ORG := NULL;
333:
334: IF (nvl(l_header_rec.SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
335: <> FND_API.G_MISS_NUM) THEN
336:
337: IF (nvl(l_header_val_rec.SHIP_TO_ORG,FND_API.G_MISS_CHAR)
338: <> FND_API.G_MISS_CHAR) THEN
339: p_header_val_rec.SHIP_TO_ORG := NULL;
340: END IF;
341: IF (nvl(l_header_val_rec.ship_to_address1,FND_API.G_MISS_CHAR)
334: IF (nvl(l_header_rec.SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
335: <> FND_API.G_MISS_NUM) THEN
336:
337: IF (nvl(l_header_val_rec.SHIP_TO_ORG,FND_API.G_MISS_CHAR)
338: <> FND_API.G_MISS_CHAR) THEN
339: p_header_val_rec.SHIP_TO_ORG := NULL;
340: END IF;
341: IF (nvl(l_header_val_rec.ship_to_address1,FND_API.G_MISS_CHAR)
342: <> FND_API.G_MISS_CHAR) THEN
337: IF (nvl(l_header_val_rec.SHIP_TO_ORG,FND_API.G_MISS_CHAR)
338: <> FND_API.G_MISS_CHAR) THEN
339: p_header_val_rec.SHIP_TO_ORG := NULL;
340: END IF;
341: IF (nvl(l_header_val_rec.ship_to_address1,FND_API.G_MISS_CHAR)
342: <> FND_API.G_MISS_CHAR) THEN
343: p_header_val_rec.ship_to_address1 := NULL;
344: END IF;
345: IF (nvl(l_header_val_rec.ship_to_address2,FND_API.G_MISS_CHAR)
338: <> FND_API.G_MISS_CHAR) THEN
339: p_header_val_rec.SHIP_TO_ORG := NULL;
340: END IF;
341: IF (nvl(l_header_val_rec.ship_to_address1,FND_API.G_MISS_CHAR)
342: <> FND_API.G_MISS_CHAR) THEN
343: p_header_val_rec.ship_to_address1 := NULL;
344: END IF;
345: IF (nvl(l_header_val_rec.ship_to_address2,FND_API.G_MISS_CHAR)
346: <> FND_API.G_MISS_CHAR) THEN
341: IF (nvl(l_header_val_rec.ship_to_address1,FND_API.G_MISS_CHAR)
342: <> FND_API.G_MISS_CHAR) THEN
343: p_header_val_rec.ship_to_address1 := NULL;
344: END IF;
345: IF (nvl(l_header_val_rec.ship_to_address2,FND_API.G_MISS_CHAR)
346: <> FND_API.G_MISS_CHAR) THEN
347: p_header_val_rec.ship_to_address2 := NULL;
348: END IF;
349: IF (nvl(l_header_val_rec.ship_to_address3,FND_API.G_MISS_CHAR)
342: <> FND_API.G_MISS_CHAR) THEN
343: p_header_val_rec.ship_to_address1 := NULL;
344: END IF;
345: IF (nvl(l_header_val_rec.ship_to_address2,FND_API.G_MISS_CHAR)
346: <> FND_API.G_MISS_CHAR) THEN
347: p_header_val_rec.ship_to_address2 := NULL;
348: END IF;
349: IF (nvl(l_header_val_rec.ship_to_address3,FND_API.G_MISS_CHAR)
350: <> FND_API.G_MISS_CHAR) THEN
345: IF (nvl(l_header_val_rec.ship_to_address2,FND_API.G_MISS_CHAR)
346: <> FND_API.G_MISS_CHAR) THEN
347: p_header_val_rec.ship_to_address2 := NULL;
348: END IF;
349: IF (nvl(l_header_val_rec.ship_to_address3,FND_API.G_MISS_CHAR)
350: <> FND_API.G_MISS_CHAR) THEN
351: p_header_val_rec.ship_to_address3 := NULL;
352: END IF;
353: IF (nvl(l_header_val_rec.ship_to_address4,FND_API.G_MISS_CHAR)
346: <> FND_API.G_MISS_CHAR) THEN
347: p_header_val_rec.ship_to_address2 := NULL;
348: END IF;
349: IF (nvl(l_header_val_rec.ship_to_address3,FND_API.G_MISS_CHAR)
350: <> FND_API.G_MISS_CHAR) THEN
351: p_header_val_rec.ship_to_address3 := NULL;
352: END IF;
353: IF (nvl(l_header_val_rec.ship_to_address4,FND_API.G_MISS_CHAR)
354: <> FND_API.G_MISS_CHAR) THEN
349: IF (nvl(l_header_val_rec.ship_to_address3,FND_API.G_MISS_CHAR)
350: <> FND_API.G_MISS_CHAR) THEN
351: p_header_val_rec.ship_to_address3 := NULL;
352: END IF;
353: IF (nvl(l_header_val_rec.ship_to_address4,FND_API.G_MISS_CHAR)
354: <> FND_API.G_MISS_CHAR) THEN
355: p_header_val_rec.ship_to_address4 := NULL;
356: END IF;
357: IF (nvl(l_header_val_rec.ship_to_location,FND_API.G_MISS_CHAR)
350: <> FND_API.G_MISS_CHAR) THEN
351: p_header_val_rec.ship_to_address3 := NULL;
352: END IF;
353: IF (nvl(l_header_val_rec.ship_to_address4,FND_API.G_MISS_CHAR)
354: <> FND_API.G_MISS_CHAR) THEN
355: p_header_val_rec.ship_to_address4 := NULL;
356: END IF;
357: IF (nvl(l_header_val_rec.ship_to_location,FND_API.G_MISS_CHAR)
358: <> FND_API.G_MISS_CHAR) THEN
353: IF (nvl(l_header_val_rec.ship_to_address4,FND_API.G_MISS_CHAR)
354: <> FND_API.G_MISS_CHAR) THEN
355: p_header_val_rec.ship_to_address4 := NULL;
356: END IF;
357: IF (nvl(l_header_val_rec.ship_to_location,FND_API.G_MISS_CHAR)
358: <> FND_API.G_MISS_CHAR) THEN
359: p_header_val_rec.ship_to_location := NULL;
360: END IF;
361:
354: <> FND_API.G_MISS_CHAR) THEN
355: p_header_val_rec.ship_to_address4 := NULL;
356: END IF;
357: IF (nvl(l_header_val_rec.ship_to_location,FND_API.G_MISS_CHAR)
358: <> FND_API.G_MISS_CHAR) THEN
359: p_header_val_rec.ship_to_location := NULL;
360: END IF;
361:
362: IF l_debug_level > 0 THEN
363: oe_debug_pub.add( 'CLEARING THE SHIP_TO_ORG IN HEADER' ) ;
364: END IF;
365: END IF;
366: --
367: IF (nvl(l_header_rec.INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
368: <> FND_API.G_MISS_NUM) THEN
369:
370: IF (nvl(l_header_val_rec.INVOICE_TO_ORG,FND_API.G_MISS_CHAR)
371: <> FND_API.G_MISS_CHAR) THEN
364: END IF;
365: END IF;
366: --
367: IF (nvl(l_header_rec.INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
368: <> FND_API.G_MISS_NUM) THEN
369:
370: IF (nvl(l_header_val_rec.INVOICE_TO_ORG,FND_API.G_MISS_CHAR)
371: <> FND_API.G_MISS_CHAR) THEN
372: p_header_val_rec.INVOICE_TO_ORG := NULL;
366: --
367: IF (nvl(l_header_rec.INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
368: <> FND_API.G_MISS_NUM) THEN
369:
370: IF (nvl(l_header_val_rec.INVOICE_TO_ORG,FND_API.G_MISS_CHAR)
371: <> FND_API.G_MISS_CHAR) THEN
372: p_header_val_rec.INVOICE_TO_ORG := NULL;
373: END IF;
374: IF (nvl(l_header_val_rec.invoice_to_address1,FND_API.G_MISS_CHAR)
367: IF (nvl(l_header_rec.INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
368: <> FND_API.G_MISS_NUM) THEN
369:
370: IF (nvl(l_header_val_rec.INVOICE_TO_ORG,FND_API.G_MISS_CHAR)
371: <> FND_API.G_MISS_CHAR) THEN
372: p_header_val_rec.INVOICE_TO_ORG := NULL;
373: END IF;
374: IF (nvl(l_header_val_rec.invoice_to_address1,FND_API.G_MISS_CHAR)
375: <> FND_API.G_MISS_CHAR) THEN
370: IF (nvl(l_header_val_rec.INVOICE_TO_ORG,FND_API.G_MISS_CHAR)
371: <> FND_API.G_MISS_CHAR) THEN
372: p_header_val_rec.INVOICE_TO_ORG := NULL;
373: END IF;
374: IF (nvl(l_header_val_rec.invoice_to_address1,FND_API.G_MISS_CHAR)
375: <> FND_API.G_MISS_CHAR) THEN
376: p_header_val_rec.invoice_to_address1 := NULL;
377: END IF;
378: IF (nvl(l_header_val_rec.invoice_to_address2,FND_API.G_MISS_CHAR)
371: <> FND_API.G_MISS_CHAR) THEN
372: p_header_val_rec.INVOICE_TO_ORG := NULL;
373: END IF;
374: IF (nvl(l_header_val_rec.invoice_to_address1,FND_API.G_MISS_CHAR)
375: <> FND_API.G_MISS_CHAR) THEN
376: p_header_val_rec.invoice_to_address1 := NULL;
377: END IF;
378: IF (nvl(l_header_val_rec.invoice_to_address2,FND_API.G_MISS_CHAR)
379: <> FND_API.G_MISS_CHAR) THEN
374: IF (nvl(l_header_val_rec.invoice_to_address1,FND_API.G_MISS_CHAR)
375: <> FND_API.G_MISS_CHAR) THEN
376: p_header_val_rec.invoice_to_address1 := NULL;
377: END IF;
378: IF (nvl(l_header_val_rec.invoice_to_address2,FND_API.G_MISS_CHAR)
379: <> FND_API.G_MISS_CHAR) THEN
380: p_header_val_rec.invoice_to_address2 := NULL;
381: END IF;
382: IF (nvl(l_header_val_rec.invoice_to_address3,FND_API.G_MISS_CHAR)
375: <> FND_API.G_MISS_CHAR) THEN
376: p_header_val_rec.invoice_to_address1 := NULL;
377: END IF;
378: IF (nvl(l_header_val_rec.invoice_to_address2,FND_API.G_MISS_CHAR)
379: <> FND_API.G_MISS_CHAR) THEN
380: p_header_val_rec.invoice_to_address2 := NULL;
381: END IF;
382: IF (nvl(l_header_val_rec.invoice_to_address3,FND_API.G_MISS_CHAR)
383: <> FND_API.G_MISS_CHAR) THEN
378: IF (nvl(l_header_val_rec.invoice_to_address2,FND_API.G_MISS_CHAR)
379: <> FND_API.G_MISS_CHAR) THEN
380: p_header_val_rec.invoice_to_address2 := NULL;
381: END IF;
382: IF (nvl(l_header_val_rec.invoice_to_address3,FND_API.G_MISS_CHAR)
383: <> FND_API.G_MISS_CHAR) THEN
384: p_header_val_rec.invoice_to_address3 := NULL;
385: END IF;
386: IF (nvl(l_header_val_rec.invoice_to_address4,FND_API.G_MISS_CHAR)
379: <> FND_API.G_MISS_CHAR) THEN
380: p_header_val_rec.invoice_to_address2 := NULL;
381: END IF;
382: IF (nvl(l_header_val_rec.invoice_to_address3,FND_API.G_MISS_CHAR)
383: <> FND_API.G_MISS_CHAR) THEN
384: p_header_val_rec.invoice_to_address3 := NULL;
385: END IF;
386: IF (nvl(l_header_val_rec.invoice_to_address4,FND_API.G_MISS_CHAR)
387: <> FND_API.G_MISS_CHAR) THEN
382: IF (nvl(l_header_val_rec.invoice_to_address3,FND_API.G_MISS_CHAR)
383: <> FND_API.G_MISS_CHAR) THEN
384: p_header_val_rec.invoice_to_address3 := NULL;
385: END IF;
386: IF (nvl(l_header_val_rec.invoice_to_address4,FND_API.G_MISS_CHAR)
387: <> FND_API.G_MISS_CHAR) THEN
388: p_header_val_rec.invoice_to_address4 := NULL;
389: END IF;
390: IF (nvl(l_header_val_rec.invoice_to_location,FND_API.G_MISS_CHAR)
383: <> FND_API.G_MISS_CHAR) THEN
384: p_header_val_rec.invoice_to_address3 := NULL;
385: END IF;
386: IF (nvl(l_header_val_rec.invoice_to_address4,FND_API.G_MISS_CHAR)
387: <> FND_API.G_MISS_CHAR) THEN
388: p_header_val_rec.invoice_to_address4 := NULL;
389: END IF;
390: IF (nvl(l_header_val_rec.invoice_to_location,FND_API.G_MISS_CHAR)
391: <> FND_API.G_MISS_CHAR) THEN
386: IF (nvl(l_header_val_rec.invoice_to_address4,FND_API.G_MISS_CHAR)
387: <> FND_API.G_MISS_CHAR) THEN
388: p_header_val_rec.invoice_to_address4 := NULL;
389: END IF;
390: IF (nvl(l_header_val_rec.invoice_to_location,FND_API.G_MISS_CHAR)
391: <> FND_API.G_MISS_CHAR) THEN
392: p_header_val_rec.invoice_to_location := NULL;
393: END IF;
394: IF l_debug_level > 0 THEN
387: <> FND_API.G_MISS_CHAR) THEN
388: p_header_val_rec.invoice_to_address4 := NULL;
389: END IF;
390: IF (nvl(l_header_val_rec.invoice_to_location,FND_API.G_MISS_CHAR)
391: <> FND_API.G_MISS_CHAR) THEN
392: p_header_val_rec.invoice_to_location := NULL;
393: END IF;
394: IF l_debug_level > 0 THEN
395: oe_debug_pub.add( 'CLEARING THE INVOICE_TO IN HEADER' ) ;
397: END IF;
398: BEGIN
399: FOR I IN 1..l_line_tbl.count
400: LOOP
401: IF (nvl(l_line_tbl(I).SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
402: <> FND_API.G_MISS_NUM) THEN
403:
404: IF (nvl(p_line_val_tbl(I).SHIP_TO_ORG ,FND_API.G_MISS_CHAR)
405: <> FND_API.G_MISS_CHAR) THEN
398: BEGIN
399: FOR I IN 1..l_line_tbl.count
400: LOOP
401: IF (nvl(l_line_tbl(I).SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
402: <> FND_API.G_MISS_NUM) THEN
403:
404: IF (nvl(p_line_val_tbl(I).SHIP_TO_ORG ,FND_API.G_MISS_CHAR)
405: <> FND_API.G_MISS_CHAR) THEN
406: p_line_val_tbl(I).SHIP_TO_ORG := NULL;
400: LOOP
401: IF (nvl(l_line_tbl(I).SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
402: <> FND_API.G_MISS_NUM) THEN
403:
404: IF (nvl(p_line_val_tbl(I).SHIP_TO_ORG ,FND_API.G_MISS_CHAR)
405: <> FND_API.G_MISS_CHAR) THEN
406: p_line_val_tbl(I).SHIP_TO_ORG := NULL;
407: END IF;
408: IF (nvl(p_line_val_tbl(I).ship_to_address1 ,FND_API.G_MISS_CHAR)
401: IF (nvl(l_line_tbl(I).SHIP_TO_ORG_ID,FND_API.G_MISS_NUM)
402: <> FND_API.G_MISS_NUM) THEN
403:
404: IF (nvl(p_line_val_tbl(I).SHIP_TO_ORG ,FND_API.G_MISS_CHAR)
405: <> FND_API.G_MISS_CHAR) THEN
406: p_line_val_tbl(I).SHIP_TO_ORG := NULL;
407: END IF;
408: IF (nvl(p_line_val_tbl(I).ship_to_address1 ,FND_API.G_MISS_CHAR)
409: <> FND_API.G_MISS_CHAR) THEN
404: IF (nvl(p_line_val_tbl(I).SHIP_TO_ORG ,FND_API.G_MISS_CHAR)
405: <> FND_API.G_MISS_CHAR) THEN
406: p_line_val_tbl(I).SHIP_TO_ORG := NULL;
407: END IF;
408: IF (nvl(p_line_val_tbl(I).ship_to_address1 ,FND_API.G_MISS_CHAR)
409: <> FND_API.G_MISS_CHAR) THEN
410: p_line_val_tbl(I).ship_to_address1 := NULL;
411: END IF;
412: IF (nvl(p_line_val_tbl(I).ship_to_address2 ,FND_API.G_MISS_CHAR)
405: <> FND_API.G_MISS_CHAR) THEN
406: p_line_val_tbl(I).SHIP_TO_ORG := NULL;
407: END IF;
408: IF (nvl(p_line_val_tbl(I).ship_to_address1 ,FND_API.G_MISS_CHAR)
409: <> FND_API.G_MISS_CHAR) THEN
410: p_line_val_tbl(I).ship_to_address1 := NULL;
411: END IF;
412: IF (nvl(p_line_val_tbl(I).ship_to_address2 ,FND_API.G_MISS_CHAR)
413: <> FND_API.G_MISS_CHAR) THEN
408: IF (nvl(p_line_val_tbl(I).ship_to_address1 ,FND_API.G_MISS_CHAR)
409: <> FND_API.G_MISS_CHAR) THEN
410: p_line_val_tbl(I).ship_to_address1 := NULL;
411: END IF;
412: IF (nvl(p_line_val_tbl(I).ship_to_address2 ,FND_API.G_MISS_CHAR)
413: <> FND_API.G_MISS_CHAR) THEN
414: p_line_val_tbl(I).ship_to_address2 := NULL;
415: END IF;
416: IF (nvl(p_line_val_tbl(I).ship_to_address3 ,FND_API.G_MISS_CHAR)
409: <> FND_API.G_MISS_CHAR) THEN
410: p_line_val_tbl(I).ship_to_address1 := NULL;
411: END IF;
412: IF (nvl(p_line_val_tbl(I).ship_to_address2 ,FND_API.G_MISS_CHAR)
413: <> FND_API.G_MISS_CHAR) THEN
414: p_line_val_tbl(I).ship_to_address2 := NULL;
415: END IF;
416: IF (nvl(p_line_val_tbl(I).ship_to_address3 ,FND_API.G_MISS_CHAR)
417: <> FND_API.G_MISS_CHAR) THEN
412: IF (nvl(p_line_val_tbl(I).ship_to_address2 ,FND_API.G_MISS_CHAR)
413: <> FND_API.G_MISS_CHAR) THEN
414: p_line_val_tbl(I).ship_to_address2 := NULL;
415: END IF;
416: IF (nvl(p_line_val_tbl(I).ship_to_address3 ,FND_API.G_MISS_CHAR)
417: <> FND_API.G_MISS_CHAR) THEN
418: p_line_val_tbl(I).ship_to_address3 := NULL;
419: END IF;
420: IF (nvl(p_line_val_tbl(I).ship_to_address4 ,FND_API.G_MISS_CHAR)
413: <> FND_API.G_MISS_CHAR) THEN
414: p_line_val_tbl(I).ship_to_address2 := NULL;
415: END IF;
416: IF (nvl(p_line_val_tbl(I).ship_to_address3 ,FND_API.G_MISS_CHAR)
417: <> FND_API.G_MISS_CHAR) THEN
418: p_line_val_tbl(I).ship_to_address3 := NULL;
419: END IF;
420: IF (nvl(p_line_val_tbl(I).ship_to_address4 ,FND_API.G_MISS_CHAR)
421: <> FND_API.G_MISS_CHAR) THEN
416: IF (nvl(p_line_val_tbl(I).ship_to_address3 ,FND_API.G_MISS_CHAR)
417: <> FND_API.G_MISS_CHAR) THEN
418: p_line_val_tbl(I).ship_to_address3 := NULL;
419: END IF;
420: IF (nvl(p_line_val_tbl(I).ship_to_address4 ,FND_API.G_MISS_CHAR)
421: <> FND_API.G_MISS_CHAR) THEN
422: p_line_val_tbl(I).ship_to_address4 := NULL;
423: END IF;
424: IF (nvl(p_line_val_tbl(I).ship_to_location ,FND_API.G_MISS_CHAR)
417: <> FND_API.G_MISS_CHAR) THEN
418: p_line_val_tbl(I).ship_to_address3 := NULL;
419: END IF;
420: IF (nvl(p_line_val_tbl(I).ship_to_address4 ,FND_API.G_MISS_CHAR)
421: <> FND_API.G_MISS_CHAR) THEN
422: p_line_val_tbl(I).ship_to_address4 := NULL;
423: END IF;
424: IF (nvl(p_line_val_tbl(I).ship_to_location ,FND_API.G_MISS_CHAR)
425: <> FND_API.G_MISS_CHAR) THEN
420: IF (nvl(p_line_val_tbl(I).ship_to_address4 ,FND_API.G_MISS_CHAR)
421: <> FND_API.G_MISS_CHAR) THEN
422: p_line_val_tbl(I).ship_to_address4 := NULL;
423: END IF;
424: IF (nvl(p_line_val_tbl(I).ship_to_location ,FND_API.G_MISS_CHAR)
425: <> FND_API.G_MISS_CHAR) THEN
426: p_line_val_tbl(I).ship_to_location := NULL;
427: END IF;
428:
421: <> FND_API.G_MISS_CHAR) THEN
422: p_line_val_tbl(I).ship_to_address4 := NULL;
423: END IF;
424: IF (nvl(p_line_val_tbl(I).ship_to_location ,FND_API.G_MISS_CHAR)
425: <> FND_API.G_MISS_CHAR) THEN
426: p_line_val_tbl(I).ship_to_location := NULL;
427: END IF;
428:
429: --
431: oe_debug_pub.add( 'CLEARING THE SHIP_TO_ORG IN LINE' ) ;
432: END IF;
433: END IF;
434:
435: IF (nvl(l_line_tbl(I).INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
436: <> FND_API.G_MISS_NUM) THEN
437:
438: IF (nvl(p_line_val_tbl(I).INVOICE_TO_ORG ,FND_API.G_MISS_CHAR)
439: <> FND_API.G_MISS_CHAR) THEN
432: END IF;
433: END IF;
434:
435: IF (nvl(l_line_tbl(I).INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
436: <> FND_API.G_MISS_NUM) THEN
437:
438: IF (nvl(p_line_val_tbl(I).INVOICE_TO_ORG ,FND_API.G_MISS_CHAR)
439: <> FND_API.G_MISS_CHAR) THEN
440: p_line_val_tbl(I).INVOICE_TO_ORG := NULL;
434:
435: IF (nvl(l_line_tbl(I).INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
436: <> FND_API.G_MISS_NUM) THEN
437:
438: IF (nvl(p_line_val_tbl(I).INVOICE_TO_ORG ,FND_API.G_MISS_CHAR)
439: <> FND_API.G_MISS_CHAR) THEN
440: p_line_val_tbl(I).INVOICE_TO_ORG := NULL;
441: END IF;
442: IF (nvl(p_line_val_tbl(I).invoice_to_address1 ,FND_API.G_MISS_CHAR)
435: IF (nvl(l_line_tbl(I).INVOICE_TO_ORG_ID,FND_API.G_MISS_NUM)
436: <> FND_API.G_MISS_NUM) THEN
437:
438: IF (nvl(p_line_val_tbl(I).INVOICE_TO_ORG ,FND_API.G_MISS_CHAR)
439: <> FND_API.G_MISS_CHAR) THEN
440: p_line_val_tbl(I).INVOICE_TO_ORG := NULL;
441: END IF;
442: IF (nvl(p_line_val_tbl(I).invoice_to_address1 ,FND_API.G_MISS_CHAR)
443: <> FND_API.G_MISS_CHAR) THEN
438: IF (nvl(p_line_val_tbl(I).INVOICE_TO_ORG ,FND_API.G_MISS_CHAR)
439: <> FND_API.G_MISS_CHAR) THEN
440: p_line_val_tbl(I).INVOICE_TO_ORG := NULL;
441: END IF;
442: IF (nvl(p_line_val_tbl(I).invoice_to_address1 ,FND_API.G_MISS_CHAR)
443: <> FND_API.G_MISS_CHAR) THEN
444: p_line_val_tbl(I).invoice_to_address1 := NULL;
445: END IF;
446: IF (nvl(p_line_val_tbl(I).invoice_to_address2 ,FND_API.G_MISS_CHAR)
439: <> FND_API.G_MISS_CHAR) THEN
440: p_line_val_tbl(I).INVOICE_TO_ORG := NULL;
441: END IF;
442: IF (nvl(p_line_val_tbl(I).invoice_to_address1 ,FND_API.G_MISS_CHAR)
443: <> FND_API.G_MISS_CHAR) THEN
444: p_line_val_tbl(I).invoice_to_address1 := NULL;
445: END IF;
446: IF (nvl(p_line_val_tbl(I).invoice_to_address2 ,FND_API.G_MISS_CHAR)
447: <> FND_API.G_MISS_CHAR) THEN
442: IF (nvl(p_line_val_tbl(I).invoice_to_address1 ,FND_API.G_MISS_CHAR)
443: <> FND_API.G_MISS_CHAR) THEN
444: p_line_val_tbl(I).invoice_to_address1 := NULL;
445: END IF;
446: IF (nvl(p_line_val_tbl(I).invoice_to_address2 ,FND_API.G_MISS_CHAR)
447: <> FND_API.G_MISS_CHAR) THEN
448: p_line_val_tbl(I).invoice_to_address2 := NULL;
449: END IF;
450: IF (nvl(p_line_val_tbl(I).invoice_to_address3 ,FND_API.G_MISS_CHAR)
443: <> FND_API.G_MISS_CHAR) THEN
444: p_line_val_tbl(I).invoice_to_address1 := NULL;
445: END IF;
446: IF (nvl(p_line_val_tbl(I).invoice_to_address2 ,FND_API.G_MISS_CHAR)
447: <> FND_API.G_MISS_CHAR) THEN
448: p_line_val_tbl(I).invoice_to_address2 := NULL;
449: END IF;
450: IF (nvl(p_line_val_tbl(I).invoice_to_address3 ,FND_API.G_MISS_CHAR)
451: <> FND_API.G_MISS_CHAR) THEN
446: IF (nvl(p_line_val_tbl(I).invoice_to_address2 ,FND_API.G_MISS_CHAR)
447: <> FND_API.G_MISS_CHAR) THEN
448: p_line_val_tbl(I).invoice_to_address2 := NULL;
449: END IF;
450: IF (nvl(p_line_val_tbl(I).invoice_to_address3 ,FND_API.G_MISS_CHAR)
451: <> FND_API.G_MISS_CHAR) THEN
452: p_line_val_tbl(I).invoice_to_address3 := NULL;
453: END IF;
454: IF (nvl(p_line_val_tbl(I).invoice_to_address4 ,FND_API.G_MISS_CHAR)
447: <> FND_API.G_MISS_CHAR) THEN
448: p_line_val_tbl(I).invoice_to_address2 := NULL;
449: END IF;
450: IF (nvl(p_line_val_tbl(I).invoice_to_address3 ,FND_API.G_MISS_CHAR)
451: <> FND_API.G_MISS_CHAR) THEN
452: p_line_val_tbl(I).invoice_to_address3 := NULL;
453: END IF;
454: IF (nvl(p_line_val_tbl(I).invoice_to_address4 ,FND_API.G_MISS_CHAR)
455: <> FND_API.G_MISS_CHAR) THEN
450: IF (nvl(p_line_val_tbl(I).invoice_to_address3 ,FND_API.G_MISS_CHAR)
451: <> FND_API.G_MISS_CHAR) THEN
452: p_line_val_tbl(I).invoice_to_address3 := NULL;
453: END IF;
454: IF (nvl(p_line_val_tbl(I).invoice_to_address4 ,FND_API.G_MISS_CHAR)
455: <> FND_API.G_MISS_CHAR) THEN
456: p_line_val_tbl(I).invoice_to_address4 := NULL;
457: END IF;
458: IF (nvl(p_line_val_tbl(I).invoice_to_location ,FND_API.G_MISS_CHAR)
451: <> FND_API.G_MISS_CHAR) THEN
452: p_line_val_tbl(I).invoice_to_address3 := NULL;
453: END IF;
454: IF (nvl(p_line_val_tbl(I).invoice_to_address4 ,FND_API.G_MISS_CHAR)
455: <> FND_API.G_MISS_CHAR) THEN
456: p_line_val_tbl(I).invoice_to_address4 := NULL;
457: END IF;
458: IF (nvl(p_line_val_tbl(I).invoice_to_location ,FND_API.G_MISS_CHAR)
459: <> FND_API.G_MISS_CHAR) THEN
454: IF (nvl(p_line_val_tbl(I).invoice_to_address4 ,FND_API.G_MISS_CHAR)
455: <> FND_API.G_MISS_CHAR) THEN
456: p_line_val_tbl(I).invoice_to_address4 := NULL;
457: END IF;
458: IF (nvl(p_line_val_tbl(I).invoice_to_location ,FND_API.G_MISS_CHAR)
459: <> FND_API.G_MISS_CHAR) THEN
460: p_line_val_tbl(I).invoice_to_location := NULL;
461: END IF;
462:
455: <> FND_API.G_MISS_CHAR) THEN
456: p_line_val_tbl(I).invoice_to_address4 := NULL;
457: END IF;
458: IF (nvl(p_line_val_tbl(I).invoice_to_location ,FND_API.G_MISS_CHAR)
459: <> FND_API.G_MISS_CHAR) THEN
460: p_line_val_tbl(I).invoice_to_location := NULL;
461: END IF;
462:
463: --
532: l_line_adj_val_tbl := p_line_adj_val_tbl;
533: l_line_scredit_val_tbl := p_line_scredit_val_tbl;
534: l_lot_serial_val_tbl := p_lot_serial_val_tbl;
535:
536: p_return_status := FND_API.G_RET_STS_SUCCESS; /* Init to Success */
537:
538: /* --------------------------------------------------------------------
539: Have nothing to code here today. But have created this procedure for
540: future requirements.