1: Package body OE_RMA_RECEIVING As
2: /* $Header: OEXRMARB.pls 120.6.12010000.2 2008/11/14 21:33:44 shrgupta ship $ */
3:
4: -- Push_Receiving_Info is an OM procedure that is called by Oracle Purchasing
5: -- to push receiving information to Oracle Order Management.
114: END IF;
115:
116: */
117:
118: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_RMA_RECEIVING';
119:
120: Procedure Push_Receiving_Info(
121: p_RMA_Line_ID IN NUMBER,
122: p_Quantity IN NUMBER,
192: END IF;
193:
194: -- Return success if there is no parent and unordered receipt
195: IF (p_parent_transaction_type is NULL OR
196: p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_NO_PARENT) AND
197: (p_transaction_type = OE_RMA_RECEIVING.G_RMA_UNMATCHED_ORDER) THEN
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add( 'PARENT IS NULL OR NO PARENT , TRX TYPE IS UNORDERED' ) ;
200: END IF;
193:
194: -- Return success if there is no parent and unordered receipt
195: IF (p_parent_transaction_type is NULL OR
196: p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_NO_PARENT) AND
197: (p_transaction_type = OE_RMA_RECEIVING.G_RMA_UNMATCHED_ORDER) THEN
198: IF l_debug_level > 0 THEN
199: oe_debug_pub.add( 'PARENT IS NULL OR NO PARENT , TRX TYPE IS UNORDERED' ) ;
200: END IF;
201: return;
206:
207: -- This if statement is to allow debug generation by setting the profile option
208:
209: IF l_debug_level > 0 THEN
210: oe_debug_pub.add( 'ENTERING OE_RMA_RECEIVING.PUSH_RECEIVING_INFO' , 1 ) ;
211: END IF;
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( 'RMA_LINE_ID: ' || P_RMA_LINE_ID , 1 ) ;
214: END IF;
295:
296: -- Fix for Bug #1140815. Receiving module passes us the string 'NO PARENT'
297: -- when receiving goods for the first time
298: IF (p_parent_transaction_type is NULL OR
299: p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_NO_PARENT) THEN
300: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_RECEIVE) THEN
301: IF l_debug_level > 0 THEN
302: oe_debug_pub.add( 'PARENT IS NULL , TRX TYPE IS RECEIVE' ) ;
303: END IF;
296: -- Fix for Bug #1140815. Receiving module passes us the string 'NO PARENT'
297: -- when receiving goods for the first time
298: IF (p_parent_transaction_type is NULL OR
299: p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_NO_PARENT) THEN
300: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_RECEIVE) THEN
301: IF l_debug_level > 0 THEN
302: oe_debug_pub.add( 'PARENT IS NULL , TRX TYPE IS RECEIVE' ) ;
303: END IF;
304:
387: END IF;
388:
389: END IF;
390:
391: ELSIF (p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_RECEIVE OR
392: p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_MATCH) THEN
393: IF (p_transaction_type = G_RMA_DELIVER) THEN
394:
395: IF l_debug_level > 0 THEN
388:
389: END IF;
390:
391: ELSIF (p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_RECEIVE OR
392: p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_MATCH) THEN
393: IF (p_transaction_type = G_RMA_DELIVER) THEN
394:
395: IF l_debug_level > 0 THEN
396: oe_debug_pub.add( 'PARENT IS RECEIVE , TRX TYPE IS ACCEPT/REJECT/DELIVER' ) ;
430: IF (l_line_tbl(1).shipped_quantity = l_updated_quantity) THEN
431: b_complete_inspection := TRUE;
432: END IF;
433:
434: ELSIF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_RETURN_TO_CUSTOMER) THEN
435: IF l_debug_level > 0 THEN
436: oe_debug_pub.add( 'PARENT IS RECEIVE , TRX TYPE IS RETURN TO CUSTOMER' ) ;
437: END IF;
438:
456: b_complete_inspection := TRUE;
457: END IF;
458:
459:
460: ELSIF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_CORRECT) THEN
461: IF l_debug_level > 0 THEN
462: oe_debug_pub.add( 'PARENT IS RECEIVE , TRX TYPE IS CORRECT' ) ;
463: END IF;
464:
772: THEN
773: b_complete_inspection := TRUE;
774: END IF;
775: END IF;
776: ELSIF (p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_DELIVER) THEN
777:
778: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_RETURN_TO_CUSTOMER) THEN
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'PARENT IS DELIVER , TRX TYPE IS RETURN TO CUSTOMER' ) ;
774: END IF;
775: END IF;
776: ELSIF (p_parent_transaction_type = OE_RMA_RECEIVING.G_RMA_DELIVER) THEN
777:
778: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_RETURN_TO_CUSTOMER) THEN
779: IF l_debug_level > 0 THEN
780: oe_debug_pub.add( 'PARENT IS DELIVER , TRX TYPE IS RETURN TO CUSTOMER' ) ;
781: END IF;
782:
796: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
797: l_control_rec.check_security := FALSE;
798:
799:
800: ELSIF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_RETURN_TO_RECEIVING) THEN
801: IF l_debug_level > 0 THEN
802: oe_debug_pub.add( 'PARENT IS DELIVER , TRX TYPE IS RETURN TO CUSTOMER' ) ;
803: END IF;
804:
814: l_line_tbl(1).operation := OE_GLOBALS.G_OPR_UPDATE;
815: l_control_rec.check_security := FALSE;
816:
817:
818: ELSIF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_CORRECT) THEN
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'PARENT IS DELIVER , TRX TYPE IS RETURN TO CUSTOMER' ) ;
821: END IF;
822:
836:
837: END IF;
838:
839: ELSIF (p_parent_transaction_type =
840: OE_RMA_RECEIVING.G_RMA_RETURN_TO_CUSTOMER) THEN
841:
842: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_CORRECT) THEN
843: IF l_debug_level > 0 THEN
844: oe_debug_pub.add( 'PARENT IS RETURN TO CUST , TRX TYPE IS CORRECT' ) ;
838:
839: ELSIF (p_parent_transaction_type =
840: OE_RMA_RECEIVING.G_RMA_RETURN_TO_CUSTOMER) THEN
841:
842: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_CORRECT) THEN
843: IF l_debug_level > 0 THEN
844: oe_debug_pub.add( 'PARENT IS RETURN TO CUST , TRX TYPE IS CORRECT' ) ;
845: END IF;
846:
888:
889: END IF;
890:
891: ELSIF (p_parent_transaction_type =
892: OE_RMA_RECEIVING.G_RMA_RETURN_TO_RECEIVING) THEN
893:
894: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_CORRECT) THEN
895: IF l_debug_level > 0 THEN
896: oe_debug_pub.add( 'PARENT IS RETURN TO RECEIVING , TRX TYPE IS CORRECT' ) ;
890:
891: ELSIF (p_parent_transaction_type =
892: OE_RMA_RECEIVING.G_RMA_RETURN_TO_RECEIVING) THEN
893:
894: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_CORRECT) THEN
895: IF l_debug_level > 0 THEN
896: oe_debug_pub.add( 'PARENT IS RETURN TO RECEIVING , TRX TYPE IS CORRECT' ) ;
897: END IF;
898:
909:
910: END IF;
911:
912: ELSIF (p_parent_transaction_type =
913: OE_RMA_RECEIVING.G_RMA_UNMATCHED_ORDER) THEN
914:
915: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_MATCH) THEN
916: IF l_debug_level > 0 THEN
917: oe_debug_pub.add( 'PARENT IS UNMATCHED ORDER , TRX TYPE IS MATCH ' ) ;
911:
912: ELSIF (p_parent_transaction_type =
913: OE_RMA_RECEIVING.G_RMA_UNMATCHED_ORDER) THEN
914:
915: IF (p_transaction_type = OE_RMA_RECEIVING.G_RMA_MATCH) THEN
916: IF l_debug_level > 0 THEN
917: oe_debug_pub.add( 'PARENT IS UNMATCHED ORDER , TRX TYPE IS MATCH ' ) ;
918: END IF;
919:
1376: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1377:
1378: END Get_RMA_Tolerances;
1379:
1380: END OE_RMA_RECEIVING;