[Home] [Help]
28: -- Convert any missing values to NULL
29:
30: FOR I IN 1..l_segment_array.COUNT LOOP
31:
32: IF l_segment_array(I) = FND_API.G_MISS_CHAR THEN
33: l_segment_array(I) := NULL;
34: END IF;
35:
36: END LOOP;
52: -- Function has already pushed a message on the stack. Add to
53: -- the API message list.
54:
55: FND_MSG_PUB.Add;
56: l_id := FND_API.G_MISS_NUM;
57:
58: END IF;
59:
60: RETURN l_id;
70: , 'Key_Flex'
71: );
72: END IF;
73:
74: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
75:
76: END Key_Flex;
77:
78: -- Generator will append new prototypes before end generate comment.
110:
111: WHEN OTHERS THEN
112: x_err_text := G_PKG_NAME || ' : (Approval List Value-id conversion) '
113: || substrb(SQLERRM,1,200);
114: RETURN FND_API.G_MISS_NUM;
115:
116: END Approval_List;
117:
118:
183:
184: WHEN OTHERS THEN
185: x_err_text := G_PKG_NAME || ' : (Lifecycle Value-id conversion) '
186: || substrb(SQLERRM,1,200);
187: RETURN FND_API.G_MISS_NUM;
188:
189: END Lifecycle_Id;
190:
191:
328: WHEN NO_DATA_FOUND THEN
329: RETURN NULL;
330:
331: WHEN OTHERS THEN
332: RETURN FND_API.G_MISS_NUM;
333:
334: END Get_Type_From_Header;
335:
336:
365: WHEN NO_DATA_FOUND THEN
366: RETURN NULL;
367:
368: WHEN OTHERS THEN
369: RETURN FND_API.G_MISS_NUM;
370:
371: END Get_Change_Id;
372:
373:
407:
408: WHEN OTHERS THEN
409: x_err_text := G_PKG_NAME || ' : (Project Value-id conversion)'
410: || substrb(SQLERRM,1,200);
411: RETURN FND_API.G_MISS_NUM;
412:
413: END Project;
414:
415: -- Task
447:
448: WHEN OTHERS THEN
449: x_err_text := G_PKG_NAME || ' : (Task Value-id conversion)'
450: || substrb(SQLERRM,1,200);
451: RETURN FND_API.G_MISS_NUM;
452:
453: END Task;
454:
455:
523: THEN
524: CLOSE c_employee;
525: END IF;
526: x_err_text := G_PKG_NAME || ' : (employee Value-id conversion)' || substrb(SQLERRM,1,200);
527: RETURN FND_API.G_MISS_NUM;
528: END Employee;
529: --* End of Bug 4402842
530:
531: -- Assignee
569:
570: WHEN OTHERS THEN
571: x_err_text := G_PKG_NAME || ' : (Assignee Value-id conversion) '
572: || substrb(SQLERRM,1,200);
573: RETURN FND_API.G_MISS_NUM;
574:
575: END Assignee ;
576:
577: /*
602: l_st_code NUMBER;
603: l_st_type NUMBER;
604:
605: BEGIN
606: x_return_status := FND_API.G_RET_STS_SUCCESS;
607: if p_plm_or_erp ='PLM' then
608: SELECT status_code ,status_type into l_st_code,l_st_type
609: from eng_change_statuses_vl
610: where status_name = p_status_name
627: WHEN NO_DATA_FOUND THEN
628: x_return_status := NULL;
629:
630: WHEN OTHERS THEN
631: x_return_status := FND_API.G_MISS_NUM;
632:
633: END Status_Type;
634:
635:
707:
708: WHEN OTHERS THEN
709: x_err_text := G_PKG_NAME || ' : (Change_Management_Type Value-id conversion) '
710: || substrb(SQLERRM,1,200);
711: RETURN FND_API.G_MISS_CHAR ;
712:
713: END Change_Management_Type;
714:
715:
746:
747: WHEN OTHERS THEN
748: x_err_text := G_PKG_NAME || ' : (Source_Type Value-id conversion) '
749: || substrb(SQLERRM,1,200);
750: RETURN FND_API.G_MISS_CHAR ;
751:
752: END Source_Type;
753:
754:
786:
787: WHEN OTHERS THEN
788: x_err_text := G_PKG_NAME || ' : (Source_Name Value-id conversion) '
789: || substrb(SQLERRM,1,200);
790: RETURN FND_API.G_MISS_CHAR ;
791:
792: END Source_Name ;
793:
794:
818:
819: WHEN OTHERS THEN
820: x_err_text := G_PKG_NAME || ' : (Organization_Hierarchy Value-id conversion) '
821: || substrb(SQLERRM,1,200);
822: RETURN FND_API.G_MISS_CHAR ;
823:
824: END Hierarchy ;
825: -- End bug 4967902
826:
860:
861: WHEN OTHERS THEN
862: x_err_text := G_PKG_NAME || ' : (Item Revision Value-id conversion) '
863: || substrb(SQLERRM,1,200);
864: RETURN FND_API.G_MISS_CHAR ;
865:
866: END Item_Revision ;
867:
868:
902:
903: WHEN OTHERS THEN
904: x_err_text := G_PKG_NAME || ' : (Change Order Type Value-id conversion) '
905: || substrb(SQLERRM,1,200);
906: x_change_order_id := FND_API.G_MISS_NUM;
907:
908: END Change_Order_Type;
909:
910: -- Change_Order_Line_Type
944:
945: WHEN OTHERS THEN
946: x_err_text := G_PKG_NAME || ' : (Change Order Type Value-id conversion) '
947: || substrb(SQLERRM,1,200);
948: x_change_order_id := FND_API.G_MISS_NUM;
949:
950: END Change_Order_Line_Type;
951:
952:
1064: l_token_tbl(1).token_name := 'ECO_NAME';
1065: l_token_tbl(1).token_value := l_change_notice;
1066:
1067: IF l_change_mgmt_type_name IS NULL OR
1068: l_change_mgmt_type_name = FND_API.G_MISS_CHAR
1069: THEN
1070: l_change_mgmt_type_code := 'CHANGE_ORDER';
1071: ELSE
1072: Change_Mgmt_Type
1092: , p_Token_Tbl => l_Token_Tbl
1093: );
1094: END IF;
1095:
1096: x_Return_Status := FND_API.G_RET_STS_ERROR;
1097: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1098: END IF;
1099:
1100: -- Convert change_order_type_code to change_order_type_id
1099:
1100: -- Convert change_order_type_code to change_order_type_id
1101:
1102: IF l_change_type_code IS NOT NULL AND
1103: l_change_type_code <> FND_API.G_MISS_CHAR AND
1104: l_change_mgmt_type_code IS NOT NULL
1105: THEN
1106: Change_Order_Type
1107: ( p_change_order_type => l_change_type_code
1126: , p_Token_Tbl => l_Token_Tbl
1127: );
1128: END IF;
1129:
1130: x_Return_Status := FND_API.G_RET_STS_ERROR;
1131: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1132: ELSIF l_change_order_type_id = FND_API.G_MISS_NUM
1133: THEN
1134: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1128: END IF;
1129:
1130: x_Return_Status := FND_API.G_RET_STS_ERROR;
1131: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1132: ELSIF l_change_order_type_id = FND_API.G_MISS_NUM
1133: THEN
1134: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1135: THEN
1136: Error_Handler.Add_Error_Token
1140: );
1141: END IF;
1142:
1143: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: ELSE
1146: p_eco_unexp_rec.change_order_type_id := l_change_order_type_id;
1147: p_eco_unexp_rec.change_mgmt_type_code := l_change_mgmt_type_code;
1148: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1145: ELSE
1146: p_eco_unexp_rec.change_order_type_id := l_change_order_type_id;
1147: p_eco_unexp_rec.change_mgmt_type_code := l_change_mgmt_type_code;
1148: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
1149: END IF;
1150: ELSE
1151: IF l_transaction_type = Bom_GLOBALS.G_OPR_CREATE
1152: THEN
1158: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1159: , p_Token_Tbl => l_Token_Tbl
1160: );
1161: END IF;
1162: x_Return_Status := FND_API.G_RET_STS_ERROR;
1163: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1164: p_eco_unexp_rec.change_order_type_id := NULL;
1165: ELSE
1166: p_eco_unexp_rec.change_order_type_id := l_old_change_type_id;
1182: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1183: , p_Token_Tbl => l_Token_Tbl
1184: );
1185: END IF;
1186: x_Return_Status := FND_API.G_RET_STS_ERROR;
1187: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
1188: p_eco_unexp_rec.change_order_type_id := l_change_order_type_id;
1189: END IF;
1190:
1190:
1191:
1192:
1193: IF p_ECO_rec.Status_Name IS NOT NULL AND
1194: p_ECO_rec.Status_Name <> FND_API.G_MISS_CHAR
1195: THEN
1196: Status_Type(p_status_name => p_ECO_rec.Status_Name
1197: ,x_status_code => l_status_code
1198: ,x_status_type => l_status_type
1211: , x_mesg_token_tbl => l_mesg_token_tbl
1212: );
1213:
1214: l_token_tbl.DELETE;
1215: x_return_status := FND_API.G_RET_STS_ERROR;
1216: ELSE
1217: p_ECO_Unexp_Rec.Status_Type := l_status_type ;
1218: p_ECO_Unexp_Rec.Status_Code := l_status_code ;
1219: END IF;
1272:
1273: WHEN OTHERS THEN
1274: x_err_text := G_PKG_NAME || ' : (Responsible Org Value-id conversion) '
1275: || substrb(SQLERRM,1,200);
1276: RETURN FND_API.G_MISS_NUM;
1277:
1278: END Responsible_Org;
1279:
1280: /***************************************************************************
1308: WHEN NO_DATA_FOUND THEN
1309: RETURN NULL;
1310:
1311: WHEN OTHERS THEN
1312: RETURN FND_API.G_MISS_NUM;
1313:
1314: END Organization;
1315:
1316: /****************************************************************************
1539: FROM eng_revised_items
1540: WHERE revised_item_id = p_revised_item_id
1541: AND NVL(new_item_revision,'NULL')= NVL(p_item_revision,'NULL')
1542: AND TRUNC(scheduled_date) = trunc(p_effective_date)
1543: AND NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR)
1544: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1545: AND change_notice = p_change_notice
1546: AND organization_id = p_organization_id;
1547:
1540: WHERE revised_item_id = p_revised_item_id
1541: AND NVL(new_item_revision,'NULL')= NVL(p_item_revision,'NULL')
1542: AND TRUNC(scheduled_date) = trunc(p_effective_date)
1543: AND NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR)
1544: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
1545: AND change_notice = p_change_notice
1546: AND organization_id = p_organization_id;
1547:
1548: x_Bill_Sequence_Id := l_Bill_Seq;
1605:
1606: RETURN NULL;
1607:
1608: WHEN OTHERS THEN
1609: RETURN FND_API.G_MISS_NUM;
1610:
1611: END Revised_Item_Sequence;
1612:
1613:
1632: EXCEPTION
1633: WHEN NO_DATA_FOUND THEN
1634: RETURN NULL;
1635: WHEN OTHERS THEN
1636: RETURN FND_API.G_MISS_NUM;
1637:
1638: END Revision;
1639:
1640: /* 11.5.10 Function to return parent_revised_item_sequence_id ,
1682: EXCEPTION
1683: WHEN NO_DATA_FOUND THEN
1684: RETURN NULL;
1685: WHEN OTHERS THEN
1686: RETURN FND_API.G_MISS_NUM;
1687:
1688:
1689: END ParentRevSeqId;
1690:
1766: THEN
1767: CLOSE FROM_REVISION_ID_FUTURE;
1768: END IF;
1769:
1770: RETURN FND_API.G_MISS_NUM;
1771:
1772: END From_Revision_Id;
1773:
1774:
1798: EXCEPTION
1799: WHEN NO_DATA_FOUND THEN
1800: RETURN NULL;
1801: WHEN OTHERS THEN
1802: RETURN FND_API.G_MISS_CHAR;
1803: END New_Revision_Reason_Code;
1804:
1805:
1806: /**************************************************************************
1827: EXCEPTION
1828: WHEN NO_DATA_FOUND THEN
1829: RETURN NULL;
1830: WHEN OTHERS THEN
1831: RETURN FND_API.G_MISS_CHAR;
1832: END Get_Structure_Type_Id;
1833:
1834:
1835: /****************************************************************************
1862: l_from_revision_id NUMBER;
1863: l_structure_type_id NUMBER;
1864:
1865: BEGIN
1866: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1867: l_Rev_item_Unexp_Rec := p_Rev_item_Unexp_Rec;
1868:
1869: IF p_revised_item_rec.use_up_item_name IS NOT NULL AND
1870: p_revised_item_rec.use_up_item_name <> FND_API.G_MISS_CHAR
1866: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
1867: l_Rev_item_Unexp_Rec := p_Rev_item_Unexp_Rec;
1868:
1869: IF p_revised_item_rec.use_up_item_name IS NOT NULL AND
1870: p_revised_item_rec.use_up_item_name <> FND_API.G_MISS_CHAR
1871: THEN
1872: l_rev_item_unexp_rec.use_up_item_id :=
1873: Use_Up_Item( p_use_up_item_num =>
1874: p_revised_item_rec.use_up_item_name
1877: , x_err_text => l_Err_Text);
1878:
1879: IF l_rev_item_unexp_rec.use_up_item_id IS NULL
1880: THEN
1881: l_return_status := FND_API.G_RET_STS_ERROR;
1882:
1883: l_token_tbl(1).token_name := 'USE_UP_ITEM_NAME';
1884: l_token_tbl(1).token_value :=
1885: p_revised_item_rec.use_up_item_name;
1901: -- to requestor ID.
1902: --
1903:
1904: IF p_revised_item_rec.requestor IS NOT NULL AND
1905: p_revised_item_rec.requestor <> FND_API.G_MISS_CHAR
1906: THEN
1907: l_rev_item_unexp_rec.requestor_id :=
1908: Requestor
1909: ( p_requestor => p_revised_item_rec.requestor
1918: , p_Message_Text => l_err_text
1919: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1920: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1921: );
1922: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1923: ELSIF l_rev_item_unexp_rec.requestor_id IS NULL
1924: THEN
1925: l_token_tbl(1).token_name := 'REQUESTOR';
1926: l_token_tbl(1).token_value :=
1935: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1936: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1937: , p_token_tbl => l_token_tbl
1938: );
1939: l_return_status := FND_API.G_RET_STS_ERROR;
1940: END IF;
1941: END IF;
1942:
1943:
1949: -- If the user has give from_work_order or to_work_order,
1950: -- then convert to wip_entity_id
1951: --
1952: IF p_revised_item_rec.from_work_order IS NOT NULL AND
1953: p_revised_item_rec.from_work_order <> FND_API.G_MISS_CHAR
1954: THEN
1955: l_rev_item_unexp_rec.from_wip_entity_id :=
1956: Work_Order
1957: ( p_work_order => p_revised_item_rec.from_work_order
1966: , p_Message_Text => l_err_text
1967: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1968: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1969: );
1970: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1971: ELSIF l_rev_item_unexp_rec.from_wip_entity_id IS NULL
1972: THEN
1973: l_token_tbl(1).token_name := 'FROM_WORK_ORDER';
1974: l_token_tbl(1).token_value :=
1983: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1984: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1985: , p_token_tbl => l_token_tbl
1986: );
1987: l_return_status := FND_API.G_RET_STS_ERROR;
1988: END IF;
1989: END IF ;
1990:
1991: IF p_revised_item_rec.to_work_order IS NOT NULL AND
1988: END IF;
1989: END IF ;
1990:
1991: IF p_revised_item_rec.to_work_order IS NOT NULL AND
1992: p_revised_item_rec.to_work_order <> FND_API.G_MISS_CHAR
1993: THEN
1994: l_rev_item_unexp_rec.to_wip_entity_id :=
1995: Work_Order
1996: ( p_work_order => p_revised_item_rec.to_work_order
2005: , p_Message_Text => l_err_text
2006: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2007: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2008: );
2009: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2010: ELSIF l_rev_item_unexp_rec.from_wip_entity_id IS NULL
2011: THEN
2012: l_token_tbl(1).token_name := 'TO_WORK_ORDER';
2013: l_token_tbl(1).token_value :=
2022: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2023: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2024: , p_token_tbl => l_token_tbl
2025: );
2026: l_return_status := FND_API.G_RET_STS_ERROR;
2027: END IF;
2028: END IF ;
2029:
2030: --
2031: -- If the user has give Copmletion_Location_Name,
2032: -- then convert to completion_location_id
2033: --
2034: IF p_revised_item_rec.completion_location_name IS NOT NULL AND
2035: p_revised_item_rec.completion_location_name <> FND_API.G_MISS_CHAR
2036: THEN
2037: l_rev_item_unexp_rec.completion_locator_id :=
2038: BOM_RTG_Val_To_Id.Completion_locator_id
2039: ( p_completion_location_name => p_revised_item_rec.completion_location_name
2047: , p_Message_Text => l_err_text
2048: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2049: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2050: );
2051: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2052: ELSIF l_rev_item_unexp_rec.completion_locator_id IS NULL
2053: THEN
2054: l_token_tbl(1).token_name := 'COMPLETION_LOCATION_NAME';
2055: l_token_tbl(1).token_value :=
2064: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2065: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2066: , p_token_tbl => l_token_tbl
2067: );
2068: l_return_status := FND_API.G_RET_STS_ERROR;
2069: END IF;
2070: END IF;
2071: -- Added by MK 08/24/2000
2072:
2071: -- Added by MK 08/24/2000
2072:
2073: -- Added by MK on 02/15/2001
2074: IF ( l_rev_item_unexp_rec.bill_sequence_id IS NULL OR
2075: l_rev_item_unexp_rec.bill_sequence_id = FND_API.G_MISS_NUM ) AND
2076: (( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE OR
2077: p_revised_item_rec.alternate_bom_code IS NOT NULL ) OR
2078: /* Added for Bug 2992001 */
2079: (p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_UPDATE))
2095:
2096: END IF;
2097:
2098: IF ( l_rev_item_unexp_rec.routing_sequence_id IS NULL OR
2099: l_rev_item_unexp_rec.routing_sequence_id = FND_API.G_MISS_NUM ) AND
2100: ( p_revised_item_rec.transaction_type = ENG_GLOBALS.G_OPR_CREATE OR
2101: p_revised_item_rec.alternate_bom_code IS NOT NULL )
2102:
2103: THEN
2200: to_char(l_rev_item_unexp_rec.from_item_revision_id));
2201: END IF;
2202:
2203: IF ( l_rev_item_unexp_rec.from_item_revision_id IS NULL OR
2204: l_rev_item_unexp_rec.from_item_revision_id = FND_API.G_MISS_NUM)
2205: THEN
2206: l_token_tbl(1).token_name := 'FROM_REVISION';
2207: l_token_tbl(1).token_value := l_rev_item_unexp_rec.from_item_revision_id ;
2208: l_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
2214: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2215: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2216: , p_token_tbl => l_token_tbl
2217: );
2218: l_return_status := FND_API.G_RET_STS_ERROR;
2219: END IF;
2220: END IF;
2221:
2222: -- The new revision reason, if provided is converted to the corresponding
2232: , x_err_text => l_err_text
2233: );
2234:
2235: IF ( l_rev_item_unexp_rec.new_revision_reason_code IS NULL OR
2236: l_rev_item_unexp_rec.new_revision_reason_code = FND_API.G_MISS_CHAR)
2237: THEN
2238: l_token_tbl(1).token_name := 'NEW_REVISION_REASON';
2239: l_token_tbl(1).token_value := p_revised_item_rec.new_revision_reason ;
2240: l_token_tbl(2).token_name := 'REVISED_ITEM_NAME';
2246: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2247: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2248: , p_token_tbl => l_token_tbl
2249: );
2250: l_return_status := FND_API.G_RET_STS_ERROR;
2251: END IF;
2252:
2253: IF Bom_Globals.Get_Debug = 'Y'
2254: THEN
2262: -- Convert structure type name to structure type id
2263: -- if it is given
2264: --
2265: IF p_revised_item_rec.structure_type_name IS NOT NULL AND
2266: p_revised_item_rec.structure_type_name <> FND_API.G_MISS_CHAR
2267: THEN
2268: l_rev_item_unexp_rec.structure_type_id :=
2269: Get_Structure_Type_Id
2270: ( p_structure_type_name => p_revised_item_rec.structure_type_name
2277: , p_Message_Text => l_err_text
2278: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2279: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2280: );
2281: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2282: ELSIF l_rev_item_unexp_rec.structure_type_id IS NULL
2283: THEN
2284: l_token_tbl(1).token_name := 'STRUCTURE_TYPE_NAME';
2285: l_token_tbl(1).token_value :=
2294: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2295: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2296: , p_token_tbl => l_token_tbl
2297: );
2298: l_return_status := FND_API.G_RET_STS_ERROR;
2299: END IF;
2300: END IF;
2301:
2302: x_return_status := l_return_status;
2328: l_approval_status_type NUMBER;
2329: l_status_code NUMBER;
2330: l_plm_or_erp_change eng_engineering_changes.plm_or_erp_change%type;
2331: BEGIN
2332: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
2333: l_ECO_Unexp_Rec := p_ECO_Unexp_Rec;
2334:
2335: l_token_tbl(1).token_name := 'ECO_Name';
2336: l_token_tbl(1).token_value := p_ECO_rec.ECO_name;
2349: -- Convert Approval_List_Name to Approval_List_Id
2350: --
2351:
2352: IF p_ECO_rec.approval_list_name IS NOT NULL AND
2353: p_ECO_rec.approval_list_name <> FND_API.G_MISS_CHAR
2354: THEN
2355: l_Return_Value :=
2356: Approval_List( p_approval_list => p_ECO_rec.approval_list_name
2357: , x_err_text => l_err_text
2369: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2370: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2371: , p_Token_Tbl => l_Token_Tbl
2372: );
2373: l_Return_Status := FND_API.G_RET_STS_ERROR;
2374:
2375: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2376: THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2371: , p_Token_Tbl => l_Token_Tbl
2372: );
2373: l_Return_Status := FND_API.G_RET_STS_ERROR;
2374:
2375: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2376: THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378:
2379: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2373: l_Return_Status := FND_API.G_RET_STS_ERROR;
2374:
2375: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2376: THEN
2377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2378:
2379: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2380: THEN
2381: Error_Handler.Add_Error_Token
2399: -- Convert ECO_Department to Responsible_Org_Id
2400: --
2401:
2402: IF p_ECO_rec.ECO_Department_Name IS NOT NULL AND
2403: p_ECO_rec.ECO_Department_name <> FND_API.G_MISS_CHAR
2404: THEN
2405: l_Return_Value :=
2406: Responsible_Org
2407: ( p_responsible_org => p_ECO_rec.ECO_Department_name
2421: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2422: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2423: , p_Token_Tbl => l_Token_Tbl
2424: );
2425: l_Return_Status := FND_API.G_RET_STS_ERROR;
2426:
2427: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2428: THEN
2429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2423: , p_Token_Tbl => l_Token_Tbl
2424: );
2425: l_Return_Status := FND_API.G_RET_STS_ERROR;
2426:
2427: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2428: THEN
2429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2430:
2431: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2425: l_Return_Status := FND_API.G_RET_STS_ERROR;
2426:
2427: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2428: THEN
2429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2430:
2431: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2432: THEN
2433: Error_Handler.Add_Error_Token
2449: END IF;
2450:
2451: -- Added for Bug 4402842
2452: IF p_ECO_rec.employee_number IS NOT NULL AND
2453: p_ECO_rec.employee_number <> FND_API.G_MISS_CHAR AND
2454: l_plm_or_erp_change <> 'PLM'
2455: THEN
2456: l_Return_Value :=
2457: Employee( p_employee_number => p_ECO_rec.employee_number
2467: p_Message_Name => 'ENG_EMP_NUMBER_INVALID'
2468: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2469: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2470: , p_Token_Tbl => l_Token_Tbl );
2471: l_Return_Status := FND_API.G_RET_STS_ERROR;
2472:
2473: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2474: THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2469: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2470: , p_Token_Tbl => l_Token_Tbl );
2471: l_Return_Status := FND_API.G_RET_STS_ERROR;
2472:
2473: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2474: THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476:
2477: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2471: l_Return_Status := FND_API.G_RET_STS_ERROR;
2472:
2473: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2474: THEN
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476:
2477: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2478: THEN
2479: Error_Handler.Add_Error_Token(
2493: --
2494: -- Convert Requestor to Requestor_Id
2495: --
2496: ELSIF p_ECO_rec.Requestor IS NOT NULL AND
2497: p_ECO_rec.Requestor <> FND_API.G_MISS_CHAR
2498: THEN
2499: l_Return_Value :=
2500: Requestor
2501: ( p_Requestor => p_ECO_rec.Requestor
2515: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2516: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2517: , p_Token_Tbl => l_Token_Tbl
2518: );
2519: l_Return_Status := FND_API.G_RET_STS_ERROR;
2520:
2521: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2522: THEN
2523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2517: , p_Token_Tbl => l_Token_Tbl
2518: );
2519: l_Return_Status := FND_API.G_RET_STS_ERROR;
2520:
2521: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2522: THEN
2523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524:
2525: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2519: l_Return_Status := FND_API.G_RET_STS_ERROR;
2520:
2521: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2522: THEN
2523: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2524:
2525: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2526: THEN
2527: Error_Handler.Add_Error_Token
2542: l_ECO_Unexp_Rec.Requestor_Id := NULL;
2543: END IF;
2544:
2545: IF p_ECO_rec.Project_Name IS NOT NULL AND
2546: p_ECO_rec.Project_Name <> FND_API.G_MISS_CHAR
2547: THEN
2548: l_Return_Value :=
2549: Project
2550: ( p_project_name => p_ECO_rec.project_name
2563: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2564: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2565: , p_Token_Tbl => l_Token_Tbl
2566: );
2567: l_Return_Status := FND_API.G_RET_STS_ERROR;
2568:
2569: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2570: THEN
2571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2565: , p_Token_Tbl => l_Token_Tbl
2566: );
2567: l_Return_Status := FND_API.G_RET_STS_ERROR;
2568:
2569: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2570: THEN
2571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2572:
2573: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2567: l_Return_Status := FND_API.G_RET_STS_ERROR;
2568:
2569: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2570: THEN
2571: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2572:
2573: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2574: THEN
2575: Error_Handler.Add_Error_Token
2590: l_ECO_Unexp_Rec.project_id := NULL;
2591: END IF;
2592:
2593: IF p_ECO_rec.Task_Number IS NOT NULL AND
2594: p_ECO_rec.Task_Number <> FND_API.G_MISS_CHAR
2595: THEN
2596: l_Return_Value :=
2597: Task
2598: ( p_task_number => p_ECO_rec.task_number
2612: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2613: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2614: , p_Token_Tbl => l_Token_Tbl
2615: );
2616: l_Return_Status := FND_API.G_RET_STS_ERROR;
2617:
2618: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2619: THEN
2620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2614: , p_Token_Tbl => l_Token_Tbl
2615: );
2616: l_Return_Status := FND_API.G_RET_STS_ERROR;
2617:
2618: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2619: THEN
2620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2621:
2622: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2616: l_Return_Status := FND_API.G_RET_STS_ERROR;
2617:
2618: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2619: THEN
2620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2621:
2622: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2623: THEN
2624: Error_Handler.Add_Error_Token
2643: -- Assignee
2644: -- Convert Assignee to Assignee_Id (Party Id of Group or Person)
2645: --
2646: IF p_ECO_rec.Assignee IS NOT NULL AND
2647: p_ECO_rec.Assignee <> FND_API.G_MISS_CHAR
2648: THEN
2649: l_Return_Value :=
2650: Assignee
2651: ( p_assignee => p_ECO_rec.Assignee
2670: , p_Token_Tbl => l_Token_Tbl
2671: );
2672:
2673: l_token_tbl.DELETE;
2674: l_Return_Status := FND_API.G_RET_STS_ERROR;
2675:
2676: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2677: THEN
2678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2672:
2673: l_token_tbl.DELETE;
2674: l_Return_Status := FND_API.G_RET_STS_ERROR;
2675:
2676: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2677: THEN
2678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2679:
2680: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2674: l_Return_Status := FND_API.G_RET_STS_ERROR;
2675:
2676: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2677: THEN
2678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2679:
2680: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2681: THEN
2682: Error_Handler.Add_Error_Token
2707: -- Get the Change Management Type code for the corresponding
2708: -- change management type
2709: --
2710: IF p_ECO_rec.Change_Management_Type IS NOT NULL AND
2711: p_ECO_rec.Change_Management_Type <> FND_API.G_MISS_CHAR
2712: THEN
2713:
2714: l_change_mgmt_type_code :=
2715: Change_Management_Type( p_change_management_type => p_ECO_rec.Change_Management_Type
2728: );
2729:
2730: l_token_tbl.DELETE;
2731:
2732: l_return_status := FND_API.G_RET_STS_ERROR;
2733:
2734: ELSIF l_change_mgmt_type_code = FND_API.G_MISS_CHAR
2735: THEN
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2730: l_token_tbl.DELETE;
2731:
2732: l_return_status := FND_API.G_RET_STS_ERROR;
2733:
2734: ELSIF l_change_mgmt_type_code = FND_API.G_MISS_CHAR
2735: THEN
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737:
2738: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2732: l_return_status := FND_API.G_RET_STS_ERROR;
2733:
2734: ELSIF l_change_mgmt_type_code = FND_API.G_MISS_CHAR
2735: THEN
2736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2737:
2738: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2739: THEN
2740: Error_Handler.Add_Error_Token
2757: END IF;
2758:
2759:
2760: IF p_ECO_rec.Status_Name IS NOT NULL AND
2761: p_ECO_rec.Status_Name <> FND_API.G_MISS_CHAR
2762: THEN
2763:
2764:
2765:
2782: , x_mesg_token_tbl => l_mesg_token_tbl
2783: );
2784:
2785: l_token_tbl.DELETE;
2786: l_return_status := FND_API.G_RET_STS_ERROR;
2787: ELSE
2788: l_ECO_Unexp_Rec.Status_Type := l_status_type ;
2789: l_ECO_Unexp_Rec.Status_Code := l_status_code ;
2790: END IF;
2794: END IF;
2795:
2796:
2797: IF p_ECO_rec.Approval_Status_Name IS NOT NULL AND
2798: p_ECO_rec.Approval_Status_Name <> FND_API.G_MISS_CHAR
2799: THEN
2800:
2801: l_approval_status_type :=
2802: Approval_Status_Type(p_approval_status_name => p_ECO_rec.Approval_Status_Name);
2813: , x_mesg_token_tbl => l_mesg_token_tbl
2814: );
2815:
2816: l_token_tbl.DELETE;
2817: l_return_status := FND_API.G_RET_STS_ERROR;
2818:
2819: ELSE
2820: l_ECO_Unexp_Rec.Approval_Status_Type := l_approval_status_type ;
2821: END IF;
2829: -- Get the Source Type code for the corresponding
2830: -- source type
2831: --
2832: IF p_ECO_rec.Source_Type IS NOT NULL AND
2833: p_ECO_rec.Source_Type <> FND_API.G_MISS_CHAR
2834: THEN
2835:
2836: l_source_type_code :=
2837: Source_Type( p_source_type => p_ECO_rec.Source_Type
2850: );
2851:
2852: l_token_tbl.DELETE;
2853:
2854: l_return_status := FND_API.G_RET_STS_ERROR;
2855:
2856: ELSIF l_source_type_code = FND_API.G_MISS_CHAR
2857: THEN
2858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2852: l_token_tbl.DELETE;
2853:
2854: l_return_status := FND_API.G_RET_STS_ERROR;
2855:
2856: ELSIF l_source_type_code = FND_API.G_MISS_CHAR
2857: THEN
2858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2859:
2860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2854: l_return_status := FND_API.G_RET_STS_ERROR;
2855:
2856: ELSIF l_source_type_code = FND_API.G_MISS_CHAR
2857: THEN
2858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2859:
2860: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2861: THEN
2862: Error_Handler.Add_Error_Token
2883: -- Source_Name
2884: -- Get the Source Id for the corresponding
2885: -- source name and source type code
2886: IF l_ECO_Unexp_Rec.Source_Type_Code IS NOT NULL AND
2887: l_ECO_Unexp_Rec.Source_Type_Code <> FND_API.G_MISS_CHAR AND
2888: p_ECO_rec.Source_Name IS NOT NULL AND
2889: p_ECO_rec.Source_Name <> FND_API.G_MISS_CHAR
2890: THEN
2891:
2885: -- source name and source type code
2886: IF l_ECO_Unexp_Rec.Source_Type_Code IS NOT NULL AND
2887: l_ECO_Unexp_Rec.Source_Type_Code <> FND_API.G_MISS_CHAR AND
2888: p_ECO_rec.Source_Name IS NOT NULL AND
2889: p_ECO_rec.Source_Name <> FND_API.G_MISS_CHAR
2890: THEN
2891:
2892: l_Return_Value :=
2893: Source_Name( p_source_name => p_ECO_rec.Source_Name
2910: );
2911:
2912: l_token_tbl.DELETE;
2913:
2914: l_return_status := FND_API.G_RET_STS_ERROR;
2915:
2916: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2917: THEN
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2912: l_token_tbl.DELETE;
2913:
2914: l_return_status := FND_API.G_RET_STS_ERROR;
2915:
2916: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2917: THEN
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919:
2920: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2914: l_return_status := FND_API.G_RET_STS_ERROR;
2915:
2916: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2917: THEN
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919:
2920: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2921: THEN
2922: Error_Handler.Add_Error_Token
2939: END IF;
2940:
2941: -- Start Bug 4967902
2942: IF p_ECO_rec.Organization_Hierarchy IS NOT NULL AND
2943: p_ECO_rec.Organization_Hierarchy <> FND_API.G_MISS_CHAR
2944: THEN
2945: l_Return_Value :=
2946: Hierarchy
2947: ( p_organization_hierarchy => p_ECO_rec.Organization_Hierarchy
2959: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2960: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2961: , p_Token_Tbl => l_Token_Tbl
2962: );
2963: l_Return_Status := FND_API.G_RET_STS_ERROR;
2964:
2965: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2966: THEN
2967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2961: , p_Token_Tbl => l_Token_Tbl
2962: );
2963: l_Return_Status := FND_API.G_RET_STS_ERROR;
2964:
2965: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2966: THEN
2967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2968:
2969: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2963: l_Return_Status := FND_API.G_RET_STS_ERROR;
2964:
2965: ELSIF l_Return_Value = FND_API.G_MISS_NUM
2966: THEN
2967: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2968:
2969: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2970: THEN
2971: Error_Handler.Add_Error_Token
3048: l_dummy VARCHAR2(30);
3049:
3050: BEGIN
3051:
3052: x_return_status := FND_API.G_RET_STS_SUCCESS;
3053: x_eco_rev_unexp_rec := p_eco_rev_unexp_rec;
3054:
3055: IF p_eco_revision_rec.revision IS NULL OR
3056: p_eco_revision_rec.revision = FND_API.G_MISS_CHAR
3052: x_return_status := FND_API.G_RET_STS_SUCCESS;
3053: x_eco_rev_unexp_rec := p_eco_rev_unexp_rec;
3054:
3055: IF p_eco_revision_rec.revision IS NULL OR
3056: p_eco_revision_rec.revision = FND_API.G_MISS_CHAR
3057: THEN
3058: Error_Handler.Add_Error_Token
3059: ( p_Message_Name => 'ENG_REVISION_KEYCOL_NULL'
3060: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3060: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3061: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3062: );
3063:
3064: x_return_status := FND_API.G_RET_STS_ERROR;
3065: x_mesg_token_tbl := l_mesg_token_tbl;
3066:
3067: END IF;
3068:
3096: l_dummy VARCHAR2(30);
3097: BEGIN
3098:
3099: l_rev_item_unexp_rec := p_rev_item_unexp_rec;
3100: l_return_status := FND_API.G_RET_STS_SUCCESS;
3101:
3102: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
3103: g_Token_Tbl(1).Token_Value := p_revised_item_rec.revised_item_name;
3104:
3107: -- Verify that the unique key columns are not null or missing
3108: --
3109: ************************************************************/
3110: IF p_revised_item_rec.revised_item_name IS NULL OR
3111: p_revised_item_rec.revised_item_name = FND_API.G_MISS_CHAR
3112: THEN
3113: Error_Handler.Add_Error_Token
3114: ( p_Message_Name => 'ENG_RITEM_NAME_KEYCOL_NULL'
3115: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3114: ( p_Message_Name => 'ENG_RITEM_NAME_KEYCOL_NULL'
3115: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3116: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3117: );
3118: l_Return_Status := FND_API.G_RET_STS_ERROR;
3119: END IF;
3120:
3121: IF p_revised_item_rec.start_effective_date IS NULL OR
3122: p_revised_item_rec.start_Effective_date = FND_API.G_MISS_DATE
3118: l_Return_Status := FND_API.G_RET_STS_ERROR;
3119: END IF;
3120:
3121: IF p_revised_item_rec.start_effective_date IS NULL OR
3122: p_revised_item_rec.start_Effective_date = FND_API.G_MISS_DATE
3123: THEN
3124: Error_Handler.Add_Error_Token
3125: ( p_Message_Name => 'ENG_RITEM_DATE_KEYCOL_NULL'
3126: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3125: ( p_Message_Name => 'ENG_RITEM_DATE_KEYCOL_NULL'
3126: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3127: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3128: );
3129: l_Return_Status := FND_API.G_RET_STS_ERROR;
3130: END IF;
3131:
3132: --
3133: -- If Key columns are NULL then return
3131:
3132: --
3133: -- If Key columns are NULL then return
3134: --
3135: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3136: THEN
3137: x_Return_Status := l_Return_Status;
3138: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3139: RETURN;
3164: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3165: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3166: , p_Token_Tbl => g_Token_Tbl
3167: );
3168: l_Return_Status := FND_API.G_RET_STS_ERROR;
3169: END IF;
3170:
3171: l_rev_item_unexp_rec.change_id :=
3172: Get_Change_Id(p_revised_item_rec.eco_name,
3182: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3183: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3184: , p_Token_Tbl => g_Token_Tbl
3185: );
3186: l_Return_Status := FND_API.G_RET_STS_ERROR;
3187: END IF;
3188:
3189: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3190: x_rev_item_unexp_rec := l_rev_item_unexp_rec;
3313: , x_from_cum_qty
3314: , x_eco_for_production
3315: , x_cfm_routing_flag
3316: FROM eng_revised_items
3317: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3318: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3319: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3320: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3321: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3314: , x_eco_for_production
3315: , x_cfm_routing_flag
3316: FROM eng_revised_items
3317: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3318: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3319: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3320: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3321: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3322: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3315: , x_cfm_routing_flag
3316: FROM eng_revised_items
3317: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3318: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3319: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3320: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3321: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3322: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3323: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3316: FROM eng_revised_items
3317: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3318: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3319: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3320: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3321: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3322: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3323: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3324: AND change_notice = p_change_notice
3317: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3318: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3319: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3320: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3321: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3322: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3323: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3324: AND change_notice = p_change_notice
3325: AND organization_id = p_organization_id
3318: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3319: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3320: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3321: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3322: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3323: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3324: AND change_notice = p_change_notice
3325: AND organization_id = p_organization_id
3326: AND revised_item_id = p_revised_item_id
3342: , x_from_cum_qty
3343: , x_eco_for_production
3344: , x_cfm_routing_flag
3345: FROM eng_revised_items
3346: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3347: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3348: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3349: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3350: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3343: , x_eco_for_production
3344: , x_cfm_routing_flag
3345: FROM eng_revised_items
3346: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3347: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3348: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3349: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3350: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3351: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3344: , x_cfm_routing_flag
3345: FROM eng_revised_items
3346: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3347: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3348: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3349: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3350: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3351: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3352: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3345: FROM eng_revised_items
3346: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3347: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3348: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3349: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3350: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3351: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3352: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3353: AND change_notice = p_change_notice
3346: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3347: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3348: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3349: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3350: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3351: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3352: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3353: AND change_notice = p_change_notice
3354: AND organization_id = p_organization_id
3347: = NVL(p_from_end_item_number,FND_API.G_MISS_CHAR)
3348: AND NVL(new_routing_revision,FND_API.G_MISS_CHAR)
3349: = NVL(p_new_routing_revision,FND_API.G_MISS_CHAR)
3350: AND NVL(new_item_revision, FND_API.G_MISS_CHAR)
3351: = NVL(p_item_revision , FND_API.G_MISS_CHAR)
3352: AND scheduled_date = p_effective_date --bug 5096309 removed trunc
3353: AND change_notice = p_change_notice
3354: AND organization_id = p_organization_id
3355: AND revised_item_id = p_revised_item_id ;
3419: , x_from_cum_qty
3420: , x_eco_for_production
3421: , x_cfm_routing_flag
3422: FROM eng_revised_items
3423: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3424: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
3425: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
3426: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
3427: AND NVL(new_item_revision,FND_API.G_MISS_CHAR)=
3420: , x_eco_for_production
3421: , x_cfm_routing_flag
3422: FROM eng_revised_items
3423: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3424: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
3425: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
3426: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
3427: AND NVL(new_item_revision,FND_API.G_MISS_CHAR)=
3428: NVL(p_item_revision,FND_API.G_MISS_CHAR)
3421: , x_cfm_routing_flag
3422: FROM eng_revised_items
3423: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3424: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
3425: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
3426: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
3427: AND NVL(new_item_revision,FND_API.G_MISS_CHAR)=
3428: NVL(p_item_revision,FND_API.G_MISS_CHAR)
3429: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
3422: FROM eng_revised_items
3423: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3424: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
3425: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
3426: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
3427: AND NVL(new_item_revision,FND_API.G_MISS_CHAR)=
3428: NVL(p_item_revision,FND_API.G_MISS_CHAR)
3429: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
3430: AND change_notice = p_change_notice
3423: WHERE NVL(from_end_item_unit_number, FND_API.G_MISS_CHAR )
3424: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
3425: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
3426: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
3427: AND NVL(new_item_revision,FND_API.G_MISS_CHAR)=
3428: NVL(p_item_revision,FND_API.G_MISS_CHAR)
3429: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
3430: AND change_notice = p_change_notice
3431: AND organization_id = p_organization_id
3424: = NVL(p_from_end_item_number, FND_API.G_MISS_CHAR)
3425: AND NVL(new_routing_revision, FND_API.G_MISS_CHAR) =
3426: NVL(p_new_routing_revision, FND_API.G_MISS_CHAR)
3427: AND NVL(new_item_revision,FND_API.G_MISS_CHAR)=
3428: NVL(p_item_revision,FND_API.G_MISS_CHAR)
3429: AND TRUNC(scheduled_date) = TRUNC(p_effective_date)
3430: AND change_notice = p_change_notice
3431: AND organization_id = p_organization_id
3432: AND revised_item_id = p_revised_item_id ;
3488: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3489: l_return_status VARCHAR2(1);
3490: BEGIN
3491:
3492: l_return_status := FND_API.G_RET_STS_SUCCESS;
3493:
3494:
3495: x_revised_item_sequence_id :=
3496: BillAndRevItemSeq( p_revised_item_id => p_revised_item_id
3526: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3527: , p_Token_Tbl => g_Token_Tbl
3528: );
3529:
3530: l_Return_Status := FND_API.G_RET_STS_ERROR;
3531: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3532: x_Return_Status := l_Return_Status;
3533: x_other_message := 'BOM_CMP_UUI_SEV_ERROR';
3534: x_other_token_tbl(1).token_name := 'REVISED_COMPONENT_NAME';
3543: BOM_Globals.G_OPR_CANCEL
3544: ) AND
3545: x_bill_sequence_id IS NULL AND p_entity_processed = 'RC'
3546: THEN
3547: l_return_status := FND_API.G_RET_STS_ERROR;
3548:
3549: g_Token_Tbl(1).Token_Name := 'REVISED_ITEM_NAME';
3550: g_Token_Tbl(1).Token_Value := p_revised_item_name;
3551:
3579: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3580: , p_Token_Tbl => g_Token_Tbl
3581: );
3582:
3583: l_Return_Status := FND_API.G_RET_STS_ERROR;
3584: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3585:
3586: --
3587: -- Set the other message and its tokens
3609: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3610: , p_Token_Tbl => g_Token_Tbl
3611: );
3612:
3613: l_Return_Status := FND_API.G_RET_STS_ERROR;
3614: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3615:
3616: --
3617: -- Set the other message
3635: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3636: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3637: , p_Token_Tbl => g_Token_Tbl
3638: );
3639: l_Return_Status := FND_API.G_RET_STS_ERROR;
3640: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3641:
3642: --
3643: -- Set the other message
3689: x_other_message := 'BOM_SBC_UUI_SEV_ERROR';
3690: x_other_token_tbl(1).token_name := 'SUBSTITUTE_ITEM_NAME';
3691: x_other_token_tbl(1).token_value := p_rfd_sbc_name ;
3692:
3693: l_Return_Status := FND_API.G_RET_STS_ERROR;
3694: g_Token_Tbl.Delete;
3695:
3696: ELSIF x_component_sequence_id IS NULL
3697: AND p_entity_processed = 'RFD'
3715: x_other_message := 'BOM_RFD_UUI_SEV_ERROR';
3716: x_other_token_tbl(1).token_name := 'REFERENCE_DESIGNATOR_NAME';
3717: x_other_token_tbl(1).token_value := p_rfd_sbc_name ;
3718:
3719: l_Return_Status := FND_API.G_RET_STS_ERROR;
3720: g_Token_Tbl.Delete;
3721: END IF;
3722:
3723: END IF ;
3783: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
3784: l_return_status VARCHAR2(1);
3785: BEGIN
3786:
3787: l_return_status := FND_API.G_RET_STS_SUCCESS;
3788:
3789: x_revised_item_sequence_id :=
3790: RtgAndRevItemSeq
3791: ( p_revised_item_id => p_revised_item_id
3819: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3820: , p_Token_Tbl => g_Token_Tbl
3821: );
3822:
3823: l_Return_Status := FND_API.G_RET_STS_ERROR;
3824: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3825: x_Return_Status := l_Return_Status;
3826:
3827:
3843: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3844: , p_Token_Tbl => g_Token_Tbl
3845: );
3846:
3847: l_Return_Status := FND_API.G_RET_STS_ERROR;
3848: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3849: x_Return_Status := l_Return_Status;
3850:
3851: RETURN;
3867: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3868: , p_Token_Tbl => g_Token_Tbl
3869: );
3870:
3871: l_Return_Status := FND_API.G_RET_STS_ERROR;
3872: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3873: x_Return_Status := l_Return_Status;
3874:
3875: RETURN;
3897: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3898: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3899: , p_Token_Tbl => g_Token_Tbl
3900: );
3901: l_Return_Status := FND_API.G_RET_STS_ERROR;
3902:
3903: ELSIF x_operation_sequence_id IS NULL AND p_entity_processed = 'SOR'
3904: THEN
3905: g_token_tbl(1).token_name := 'OP_SEQ_NUMBER';
3910: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3911: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3912: , p_Token_Tbl => g_Token_Tbl
3913: );
3914: l_Return_Status := FND_API.G_RET_STS_ERROR;
3915: RETURN;
3916:
3917: ELSIF l_err_text IS NOT NULL AND
3918: (x_operation_sequence_id IS NULL OR
3915: RETURN;
3916:
3917: ELSIF l_err_text IS NOT NULL AND
3918: (x_operation_sequence_id IS NULL OR
3919: x_operation_sequence_id = FND_API.G_MISS_NUM
3920: )
3921: THEN
3922: -- This is an unexpected error.
3923: Error_Handler.Add_Error_Token
3926: G_PKG_NAME
3927: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3928: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3929: );
3930: l_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3931: END IF;
3932: END IF ;
3933:
3934: -- Set Revised Item Attributes to Global System Information.
3960: l_return_status VARCHAR2(1);
3961: BEGIN
3962:
3963: l_change_line_unexp_rec := p_change_line_unexp_rec;
3964: l_return_status := FND_API.G_RET_STS_SUCCESS;
3965:
3966: g_Token_Tbl(1).Token_Name := 'LINE_NAME';
3967: g_Token_Tbl(1).Token_Value := p_change_line_rec.name;
3968:
3971: -- Verify that the unique key columns are not null or missing
3972: --
3973: ************************************************************/
3974: IF (p_change_line_rec.name IS NULL OR
3975: p_change_line_rec.name = FND_API.G_MISS_CHAR)
3976:
3977: THEN
3978: Error_Handler.Add_Error_Token
3979: ( p_Message_Name => 'ENG_CL_NAME_KEYCOL_NULL'
3979: ( p_Message_Name => 'ENG_CL_NAME_KEYCOL_NULL'
3980: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3981: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
3982: );
3983: l_Return_Status := FND_API.G_RET_STS_ERROR;
3984: END IF;
3985:
3986: --
3987: -- If Key columns are NULL then return
3985:
3986: --
3987: -- If Key columns are NULL then return
3988: --
3989: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
3990: THEN
3991: x_Return_Status := l_Return_Status;
3992: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
3993: RETURN;
4066:
4067:
4068:
4069: BEGIN
4070: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
4071: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4072: l_display_name :=p_change_line_rec.object_display_name;
4073: l_change_line_unexp_rec := p_change_line_unexp_rec ;
4074: l_token_tbl(1).token_name := 'LINE_NAME';
4067:
4068:
4069: BEGIN
4070: l_Return_Status := FND_API.G_RET_STS_SUCCESS;
4071: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
4072: l_display_name :=p_change_line_rec.object_display_name;
4073: l_change_line_unexp_rec := p_change_line_unexp_rec ;
4074: l_token_tbl(1).token_name := 'LINE_NAME';
4075: l_token_tbl(1).token_value := p_change_line_rec.name;
4082: x_change_mgmt_type_code => l_hdr_change_mgmt_type_code
4083: );
4084:
4085: IF p_change_line_rec.change_management_type IS NOT NULL AND
4086: p_change_line_rec.change_management_type <> FND_API.G_MISS_CHAR
4087: THEN
4088: Change_Mgmt_Type
4089: (
4090: p_change_mgmt_type_name => p_change_line_rec.change_management_type
4108: , p_Token_Tbl => l_Token_Tbl
4109: );
4110: END IF;
4111:
4112: x_Return_Status := FND_API.G_RET_STS_ERROR;
4113: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4114: END IF;
4115:
4116: --Bug No: 3463472
4121:
4122:
4123: -- Convert change_type_code to change_type_id
4124: IF p_change_line_rec.change_type_code IS NOT NULL AND
4125: p_change_line_rec.change_type_code <> FND_API.G_MISS_CHAR
4126: THEN
4127: --Bug No: 3463472
4128: --Issue: DEF-1694
4129: --Calling procedure Change_Order_Line_Type
4151: , p_Token_Tbl => l_Token_Tbl
4152: );
4153: END IF;
4154:
4155: l_Return_Status := FND_API.G_RET_STS_ERROR;
4156: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4157:
4158: ELSIF l_change_type_id = FND_API.G_MISS_NUM
4159: THEN
4154:
4155: l_Return_Status := FND_API.G_RET_STS_ERROR;
4156: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4157:
4158: ELSIF l_change_type_id = FND_API.G_MISS_NUM
4159: THEN
4160: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4161: THEN
4162: Error_Handler.Add_Error_Token
4166: );
4167: END IF;
4168:
4169: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4171: ELSE
4172: l_change_line_unexp_rec.change_type_id := l_change_type_id;
4173: END IF;
4174:
4190: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
4191: , p_Token_Tbl => l_Token_Tbl
4192: );
4193: END IF;
4194: l_Return_Status := FND_API.G_RET_STS_ERROR;
4195: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4196:
4197: END IF;
4198: /* Not required any more as subjects have moved to eng_change_subjects
4223: )
4224: THEN
4225: l_org_id := ORGANIZATION (p_change_line_rec.pk4_name, l_err_text);
4226:
4227: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num)
4228: THEN
4229: l_inv_item_id := revised_item (
4230: p_change_line_rec.pk3_name,
4231: l_org_id,
4232: l_err_text
4233: );
4234:
4235: IF ( l_inv_item_id IS NOT NULL
4236: AND l_inv_item_id <> fnd_api.g_miss_num
4237: )
4238: THEN
4239: l_rev_id := revised_item_code (
4240: l_inv_item_id,
4241: l_org_id,
4242: p_change_line_rec.pk1_name
4243: );
4244:
4245: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
4246: THEN
4247: l_return_status := 'S'; --fnd_api.g_ret_sts_error;
4248: ELSE
4249: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4243: );
4244:
4245: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
4246: THEN
4247: l_return_status := 'S'; --fnd_api.g_ret_sts_error;
4248: ELSE
4249: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4250: l_token_tbl (1).token_value :=
4251: p_change_line_rec.change_type_code;
4254: p_mesg_token_tbl=> l_mesg_token_tbl,
4255: x_mesg_token_tbl=> l_mesg_token_tbl,
4256: p_token_tbl=> l_token_tbl
4257: );
4258: l_return_status := fnd_api.g_ret_sts_error;
4259: END IF; --end of l_rev_id IS NOT NULL
4260: ELSE
4261: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4262: l_token_tbl (1).token_value :=
4266: p_mesg_token_tbl=> l_mesg_token_tbl,
4267: x_mesg_token_tbl=> l_mesg_token_tbl,
4268: p_token_tbl=> l_token_tbl
4269: );
4270: l_return_status := fnd_api.g_ret_sts_error;
4271: END IF; -- l_inv_item_id IS NOT NULL
4272: ELSE
4273: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4274: l_token_tbl (1).token_value :=
4278: p_mesg_token_tbl=> l_mesg_token_tbl,
4279: x_mesg_token_tbl=> l_mesg_token_tbl,
4280: p_token_tbl=> l_token_tbl
4281: );
4282: l_return_status := fnd_api.g_ret_sts_error;
4283: END IF; --l_org_id IS NOT NULL
4284: ELSE
4285: IF ( p_change_line_rec.pk1_name IS NULL
4286: OR p_change_line_rec.pk1_name = fnd_api.g_miss_char
4282: l_return_status := fnd_api.g_ret_sts_error;
4283: END IF; --l_org_id IS NOT NULL
4284: ELSE
4285: IF ( p_change_line_rec.pk1_name IS NULL
4286: OR p_change_line_rec.pk1_name = fnd_api.g_miss_char
4287: )
4288: THEN
4289: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4290: l_token_tbl (1).token_value :=
4294: p_mesg_token_tbl=> l_mesg_token_tbl,
4295: x_mesg_token_tbl=> l_mesg_token_tbl,
4296: p_token_tbl=> l_token_tbl
4297: );
4298: l_return_status := fnd_api.g_ret_sts_error;
4299: END IF;
4300:
4301: IF ( p_change_line_rec.pk3_name IS NULL
4302: OR p_change_line_rec.pk3_name = fnd_api.g_miss_char
4298: l_return_status := fnd_api.g_ret_sts_error;
4299: END IF;
4300:
4301: IF ( p_change_line_rec.pk3_name IS NULL
4302: OR p_change_line_rec.pk3_name = fnd_api.g_miss_char
4303: )
4304: THEN
4305: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4306: l_token_tbl (1).token_value :=
4310: p_mesg_token_tbl=> l_mesg_token_tbl,
4311: x_mesg_token_tbl=> l_mesg_token_tbl,
4312: p_token_tbl=> l_token_tbl
4313: );
4314: l_return_status := fnd_api.g_ret_sts_error;
4315: END IF;
4316:
4317: IF ( p_change_line_rec.pk4_name IS NULL
4318: OR p_change_line_rec.pk4_name = fnd_api.g_miss_char
4314: l_return_status := fnd_api.g_ret_sts_error;
4315: END IF;
4316:
4317: IF ( p_change_line_rec.pk4_name IS NULL
4318: OR p_change_line_rec.pk4_name = fnd_api.g_miss_char
4319: )
4320: THEN
4321: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4322: l_token_tbl (1).token_value :=
4326: p_mesg_token_tbl=> l_mesg_token_tbl,
4327: x_mesg_token_tbl=> l_mesg_token_tbl,
4328: p_token_tbl=> l_token_tbl
4329: );
4330: l_return_status := fnd_api.g_ret_sts_error;
4331: END IF;
4332: END IF; --p_change_line_rec.Pk1_Name
4333: ELSIF (l_display_name =
4334: bom_globals.retrieve_message ('ENG', 'ENG_SUBJECT_ITEM')
4340: )
4341: THEN
4342: l_org_id := ORGANIZATION (p_change_line_rec.pk3_name, l_err_text);
4343:
4344: IF (l_org_id IS NOT NULL AND l_org_id <> fnd_api.g_miss_num)
4345: THEN
4346: l_rev_id := revised_item (
4347: p_change_line_rec.pk1_name,
4348: l_org_id,
4348: l_org_id,
4349: l_err_text
4350: );
4351:
4352: IF (l_rev_id IS NOT NULL AND l_rev_id <> fnd_api.g_miss_num)
4353: THEN
4354: l_return_status := 'S';
4355: ELSE
4356: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4361: p_mesg_token_tbl=> l_mesg_token_tbl,
4362: x_mesg_token_tbl=> l_mesg_token_tbl,
4363: p_token_tbl=> l_token_tbl
4364: );
4365: l_return_status := fnd_api.g_ret_sts_error;
4366: END IF; --l_rev_id IS NOT NULL
4367: ELSE
4368: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4369: l_token_tbl (1).token_value :=
4373: p_mesg_token_tbl=> l_mesg_token_tbl,
4374: x_mesg_token_tbl=> l_mesg_token_tbl,
4375: p_token_tbl=> l_token_tbl
4376: );
4377: l_return_status := fnd_api.g_ret_sts_error;
4378: END IF; --l_org_id IS NOT NULL
4379: ELSE
4380: IF ( p_change_line_rec.pk1_name IS NULL
4381: OR p_change_line_rec.pk1_name = fnd_api.g_miss_char
4377: l_return_status := fnd_api.g_ret_sts_error;
4378: END IF; --l_org_id IS NOT NULL
4379: ELSE
4380: IF ( p_change_line_rec.pk1_name IS NULL
4381: OR p_change_line_rec.pk1_name = fnd_api.g_miss_char
4382: )
4383: THEN
4384: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4385: l_token_tbl (1).token_value :=
4389: p_mesg_token_tbl=> l_mesg_token_tbl,
4390: x_mesg_token_tbl=> l_mesg_token_tbl,
4391: p_token_tbl=> l_token_tbl
4392: );
4393: l_return_status := fnd_api.g_ret_sts_error;
4394: END IF;
4395:
4396: IF ( p_change_line_rec.pk3_name IS NULL
4397: OR p_change_line_rec.pk3_name = fnd_api.g_miss_char
4393: l_return_status := fnd_api.g_ret_sts_error;
4394: END IF;
4395:
4396: IF ( p_change_line_rec.pk3_name IS NULL
4397: OR p_change_line_rec.pk3_name = fnd_api.g_miss_char
4398: )
4399: THEN
4400: l_token_tbl (1).token_name := 'CHANGE_LINE_TYPE';
4401: l_token_tbl (1).token_value :=
4405: p_mesg_token_tbl=> l_mesg_token_tbl,
4406: x_mesg_token_tbl=> l_mesg_token_tbl,
4407: p_token_tbl=> l_token_tbl
4408: );
4409: l_return_status := fnd_api.g_ret_sts_error;
4410: END IF;
4411: END IF; --p_change_line_rec.Pk1_Name
4412: END IF; --End Of If of check for l_display_name
4413: -- END IF; --End of IF (p_change_line_rec.change_type_code is not null )
4412: END IF; --End Of If of check for l_display_name
4413: -- END IF; --End of IF (p_change_line_rec.change_type_code is not null )
4414:
4415:
4416: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4417: THEN
4418: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4419: x_change_line_unexp_rec := l_change_line_unexp_rec;
4420: x_Return_Status := l_Return_Status;
4424: --End Of Bug 2848506
4425: */
4426:
4427: IF p_change_line_rec.status_name IS NOT NULL AND
4428: p_change_line_rec.status_name <> FND_API.G_MISS_CHAR
4429: THEN
4430: l_change_line_unexp_rec.status_code := Line_Status(p_change_line_rec.status_name);
4431: END IF;
4432:
4431: END IF;
4432:
4433:
4434: IF p_change_line_rec.Assignee_Name IS NOT NULL AND
4435: p_change_line_rec.Assignee_Name <> FND_API.G_MISS_CHAR
4436: THEN
4437: l_Return_Value :=
4438: Assignee
4439: ( p_assignee => p_change_line_rec.Assignee_Name
4453: , p_Token_Tbl => l_Token_Tbl
4454: );
4455:
4456: l_token_tbl.DELETE;
4457: l_Return_Status := FND_API.G_RET_STS_ERROR;
4458:
4459: ELSIF l_Return_Value = FND_API.G_MISS_NUM
4460: THEN
4461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4455:
4456: l_token_tbl.DELETE;
4457: l_Return_Status := FND_API.G_RET_STS_ERROR;
4458:
4459: ELSIF l_Return_Value = FND_API.G_MISS_NUM
4460: THEN
4461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4462:
4463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4457: l_Return_Status := FND_API.G_RET_STS_ERROR;
4458:
4459: ELSIF l_Return_Value = FND_API.G_MISS_NUM
4460: THEN
4461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4462:
4463: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4464: THEN
4465: Error_Handler.Add_Error_Token
4647: , p_Token_Tbl => l_Token_Tbl
4648: );
4649: END IF;
4650:
4651: x_Return_Status := FND_API.G_RET_STS_ERROR;
4652: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl;
4653:
4654: l_token_tbl.DELETE ;
4655: l_token_tbl(1).token_name := 'LINE_NAME';
4656: l_token_tbl(1).token_value := p_change_line_rec.name;
4657: END IF;
4658: END IF;
4659: */
4660: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4661: AND x_return_status <> FND_API.G_RET_STS_UNEXP_ERROR
4662: THEN
4663: x_Return_Status := l_return_status ;
4664: END IF;
4657: END IF;
4658: END IF;
4659: */
4660: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
4661: AND x_return_status <> FND_API.G_RET_STS_UNEXP_ERROR
4662: THEN
4663: x_Return_Status := l_return_status ;
4664: END IF;
4665: