29: -- could possibly be in different Operating Units, Sets of Books
30: -- Parameters :
31: -- IN : p_event_date: Event Date
32: -- p_event_doc_num : Document Number for the Event (PO Number)
33: -- p_event_type_id : Event Type ID (RCV_SeedEvents_PVT lists
34: -- all such events
35: -- p_set_of_books_id:Set of Books ID
36: -- OUT :
37: ----------------------------------------------------------------------------------
815: -- Initialize
816: x_debit_line_type := '';
817: x_credit_line_type := '';
818:
819: IF ( ( p_event_type_id = RCV_SeedEvents_PVT.RECEIVE OR
820: p_event_type_id = RCV_SeedEvents_PVT.MATCH ) OR
821: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND
822: ( p_parent_txn_type = 'RECEIVE' OR p_parent_txn_type = 'MATCH') ) ) THEN
823: -- RECEIVE/MATCH----------------------------
816: x_debit_line_type := '';
817: x_credit_line_type := '';
818:
819: IF ( ( p_event_type_id = RCV_SeedEvents_PVT.RECEIVE OR
820: p_event_type_id = RCV_SeedEvents_PVT.MATCH ) OR
821: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND
822: ( p_parent_txn_type = 'RECEIVE' OR p_parent_txn_type = 'MATCH') ) ) THEN
823: -- RECEIVE/MATCH----------------------------
824: IF p_proc_org_flag = 'Y' THEN
817: x_credit_line_type := '';
818:
819: IF ( ( p_event_type_id = RCV_SeedEvents_PVT.RECEIVE OR
820: p_event_type_id = RCV_SeedEvents_PVT.MATCH ) OR
821: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND
822: ( p_parent_txn_type = 'RECEIVE' OR p_parent_txn_type = 'MATCH') ) ) THEN
823: -- RECEIVE/MATCH----------------------------
824: IF p_proc_org_flag = 'Y' THEN
825: l_stmt_num := 20;
832: END IF;
833: --------------------------------------------
834:
835: -- LOGICAL_RECEIVE--------------------------
836: ELSIF p_event_type_id = RCV_SeedEvents_PVT.LOGICAL_RECEIVE THEN
837: IF p_proc_org_flag = 'Y' THEN
838: IF p_one_time_item_flag = 'Y' OR p_destination_type = 'SHOP FLOOR' THEN
839: l_stmt_num := 40;
840: x_debit_line_type := IC_COST_OF_SALES;
857: END IF;
858: --------------------------------------------
859:
860: -- DELIVER---------------------------------
861: ELSIF ( p_event_type_id = RCV_SeedEvents_PVT.DELIVER OR
862: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND p_parent_txn_type = 'DELIVER') )THEN
863: l_stmt_num := 80;
864: x_debit_line_type := CHARGE;
865: x_credit_line_type:= RECEIVING_INSPECTION;
858: --------------------------------------------
859:
860: -- DELIVER---------------------------------
861: ELSIF ( p_event_type_id = RCV_SeedEvents_PVT.DELIVER OR
862: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND p_parent_txn_type = 'DELIVER') )THEN
863: l_stmt_num := 80;
864: x_debit_line_type := CHARGE;
865: x_credit_line_type:= RECEIVING_INSPECTION;
866: --------------------------------------------
865: x_credit_line_type:= RECEIVING_INSPECTION;
866: --------------------------------------------
867:
868: -- RETURN_TO_VENDOR----------------------------------
869: ELSIF ( p_event_type_id = RCV_SeedEvents_PVT.RETURN_TO_VENDOR OR
870: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND p_parent_txn_type = 'RETURN TO VENDOR' ))THEN
871: IF p_proc_org_flag = 'Y' THEN
872: l_stmt_num := 90;
873: x_debit_line_type := ACCRUAL;
866: --------------------------------------------
867:
868: -- RETURN_TO_VENDOR----------------------------------
869: ELSIF ( p_event_type_id = RCV_SeedEvents_PVT.RETURN_TO_VENDOR OR
870: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND p_parent_txn_type = 'RETURN TO VENDOR' ))THEN
871: IF p_proc_org_flag = 'Y' THEN
872: l_stmt_num := 90;
873: x_debit_line_type := ACCRUAL;
874: x_credit_line_type:= RECEIVING_INSPECTION;
879: END IF;
880: -----------------------------------------------------
881:
882: -- LOGICAL_RETURN_TO_VENDOR--------------------------
883: ELSIF p_event_type_id = RCV_SeedEvents_PVT.LOGICAL_RETURN_TO_VENDOR THEN
884: IF p_proc_org_flag = 'Y' THEN
885: IF p_one_time_item_flag = 'Y' OR p_destination_type = 'SHOP FLOOR' THEN
886: l_stmt_num := 110;
887: x_debit_line_type := ACCRUAL;
904: END IF;
905: -----------------------------------------------------
906:
907: -- RETURN_TO_RECEIVING--------------------------
908: ELSIF ( p_event_type_id = RCV_SeedEvents_PVT.RETURN_TO_RECEIVING OR
909: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND
910: p_parent_txn_type = 'RETURN TO RECEIVING' ) )THEN
911: l_stmt_num := 150;
912: x_debit_line_type := RECEIVING_INSPECTION;
905: -----------------------------------------------------
906:
907: -- RETURN_TO_RECEIVING--------------------------
908: ELSIF ( p_event_type_id = RCV_SeedEvents_PVT.RETURN_TO_RECEIVING OR
909: ( p_event_type_id = RCV_SeedEvents_PVT.CORRECT AND
910: p_parent_txn_type = 'RETURN TO RECEIVING' ) )THEN
911: l_stmt_num := 150;
912: x_debit_line_type := RECEIVING_INSPECTION;
913: x_credit_line_type:= CHARGE;
913: x_credit_line_type:= CHARGE;
914: ------------------------------------------------
915:
916: -- ADJUST_RECEIVE---------------------------
917: ELSIF p_event_type_id = RCV_SeedEvents_PVT.ADJUST_RECEIVE THEN
918: IF p_global_proc_flag = 'N' THEN
919: l_stmt_num := 160;
920: x_debit_line_type := RECEIVING_INSPECTION;
921: x_credit_line_type:= ACCRUAL;
933: END IF;
934: --------------------------------------------
935:
936: --ADJUST_DELIVER--------------------------------
937: ELSIF p_event_type_id = RCV_SeedEvents_PVT.ADJUST_DELIVER THEN
938: IF p_destination_type in ('INVENTORY', 'SHOP FLOOR') THEN
939: l_stmt_num := 170;
940: x_debit_line_type := RETROPRICE_ADJUSTMENT;
941: x_credit_line_type:= RECEIVING_INSPECTION;
948: END IF;
949: -----------------------------------------------
950:
951: -- ENCUMBRANCE_REVERSAL-----------------------
952: ELSIF p_event_type_id = RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL THEN
953: x_debit_line_type := ENCUMBRANCE_REVERSAL;
954: x_credit_line_type:= ENCUMBRANCE_REVERSAL;
955: ----------------------------------------------
956: ELSE
1530:
1531:
1532: -- Actual_Flag
1533: l_stmt_num := 140;
1534: IF ( L_RCV_AE_LINE.EVENT_TYPE_ID = RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL ) THEN
1535: L_RCV_AE_LINE.ACTUAL_FLAG := 'E';
1536: ELSE
1537: L_RCV_AE_LINE.ACTUAL_FLAG := 'A';
1538: END IF;
1541:
1542: -- For Retroactive Pricing
1543: -- Accounted_Dr = New_Accounted_Dr (= Accounted_Dr) - Prior_Accounted_Dr and similar
1544:
1545: IF (L_RCV_AE_LINE.EVENT_TYPE_ID IN (RCV_SeedEvents_PVT.ADJUST_RECEIVE, RCV_SeedEvents_PVT.ADJUST_DELIVER)) THEN
1546: L_RCV_AE_LINE.ACCOUNTED_DR := L_RCV_AE_LINE.ACCOUNTED_DR - L_PRIOR_ACCOUNTED_DR;
1547: L_RCV_AE_LINE.ENTERED_DR := L_RCV_AE_LINE.ENTERED_DR - L_PRIOR_ENTERED_DR;
1548: L_RCV_AE_LINE.ACCOUNTED_NR_TAX := L_RCV_AE_LINE.ACCOUNTED_NR_TAX - L_PRIOR_ACCOUNTED_NR_TAX;
1549: L_RCV_AE_LINE.ENTERED_NR_TAX := L_RCV_AE_LINE.ENTERED_NR_TAX - L_PRIOR_ENTERED_NR_TAX;
1553: */
1554:
1555: /* changes for Bug 6142658 starts */
1556: -- For Retroactive Pricing
1557: IF (L_RCV_AE_LINE.EVENT_TYPE_ID IN (RCV_SeedEvents_PVT.ADJUST_RECEIVE, RCV_SeedEvents_PVT.ADJUST_DELIVER)) THEN
1558: -- ENTERED Values
1559: L_RCV_AE_LINE.ENTERED_DR :=L_RCV_AE_LINE.ENTERED_DR-NVL(L_PRIOR_ENTERED_DR,0);
1560: L_RCV_AE_LINE.ENTERED_NR_TAX :=L_RCV_AE_LINE.ENTERED_NR_TAX-NVL(L_PRIOR_ENTERED_NR_TAX,0);
1561: L_RCV_AE_LINE.ENTERED_REC_TAX :=L_RCV_AE_LINE.ENTERED_REC_TAX-NVL(L_PRIOR_ENTERED_REC_TAX,0);
1617: /* changes for Bug 6142658 Ends */
1618:
1619: -- Actual_Flag
1620: l_stmt_num := 140;
1621: IF ( L_RCV_AE_LINE.EVENT_TYPE_ID = RCV_SeedEvents_PVT.ENCUMBRANCE_REVERSAL ) THEN
1622: L_RCV_AE_LINE.ACTUAL_FLAG := 'E';
1623: ELSE
1624: L_RCV_AE_LINE.ACTUAL_FLAG := 'A';
1625: END IF;