13:
14: -- Initialize system information record
15:
16: PROCEDURE Init_System_Info_Rec
17: ( x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
18: , x_return_status OUT NOCOPY VARCHAR2
19: )
20: IS
21: BEGIN
33: ( p_transaction_type IN VARCHAR2
34: , p_entity IN VARCHAR2
35: , p_entity_id IN VARCHAR2
36: , x_valid OUT NOCOPY BOOLEAN
37: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
38: )
39: IS
40: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
41: l_Token_Tbl Error_Handler.Token_Tbl_Type;
36: , x_valid OUT NOCOPY BOOLEAN
37: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
38: )
39: IS
40: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
41: l_Token_Tbl Error_Handler.Token_Tbl_Type;
42: BEGIN
43: l_token_tbl(1).token_name := 'entity_id';
44: l_token_tbl(1).token_value := p_entity_id;
37: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
38: )
39: IS
40: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
41: l_Token_Tbl Error_Handler.Token_Tbl_Type;
42: BEGIN
43: l_token_tbl(1).token_name := 'entity_id';
44: l_token_tbl(1).token_value := p_entity_id;
45:
59: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
60: THEN
61: IF p_entity = 'ECO_Header'
62: THEN
63: Error_Handler.Add_Error_Token
64: ( p_Message_Name => 'ENG_ECO_TRANS_TYPE_INVALID'
65: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
66: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
67: );
66: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
67: );
68: ELSIF p_entity = 'ECO_Rev'
69: THEN
70: Error_Handler.Add_Error_Token
71: ( p_Message_Name => 'ENG_REV_TRANS_TYPE_INVALID'
72: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
73: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
74: );
73: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
74: );
75: ELSIF p_entity = 'Rev_Items'
76: THEN
77: Error_Handler.Add_Error_Token
78: ( p_Message_Name => 'ENG_RIT_TRANS_TYPE_INVALID'
79: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
80: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
81: );
80: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
81: );
82: ELSIF p_entity = 'Rev_Comps'
83: THEN
84: Error_Handler.Add_Error_Token
85: ( p_Message_Name => 'BOM_CMP_TRANS_TYPE_INVALID'
86: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
87: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
88: );
87: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
88: );
89: ELSIF p_entity = 'Ref_Desgs'
90: THEN
91: Error_Handler.Add_Error_Token
92: ( p_Message_Name => 'BOM_RFD_TRANS_TYPE_INVALID'
93: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
94: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
95: );
94: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
95: );
96: ELSIF p_entity = 'Sub_Comps'
97: THEN
98: Error_Handler.Add_Error_Token
99: ( p_Message_Name => 'BOM_SBC_TRANS_TYPE_INVALID'
100: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
101: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
102: );
101: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
102: );
103: ELSIF p_entity = 'Op_Seq' --L1
104: THEN --L1
105: Error_Handler.Add_Error_Token --L1
106: ( p_Message_Name => 'BOM_OP_TRANS_TYPE_INVALID' --L1
107: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
108: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
109: ); --L1
108: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
109: ); --L1
110: ELSIF p_entity = 'Op_Res' --L1
111: THEN --L1
112: Error_Handler.Add_Error_Token --L1
113: ( p_Message_Name => 'BOM_RES_TRANS_TYPE_INVALID'--L1
114: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
115: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
116: ); --L1
115: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
116: ); --L1
117: ELSIF p_entity = 'Sub_Res' --L1
118: THEN --L1
119: Error_Handler.Add_Error_Token --L1
120: ( p_Message_Name => 'BOM_SRC_TRANS_TYPE_INVALID'--L1
121: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
122: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
123: ); --L1
122: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl --L1
123: ); --L1
124: ELSIF p_entity = 'Change_Lines' -- Eng Change
125: THEN
126: Error_Handler.Add_Error_Token
127: ( p_Message_Name => 'ENG_CL_TRANS_TYPE_INVALID'
128: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
129: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
130: );
129: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
130: );
131: ELSIF p_entity = 'People' -- Eng Change
132: THEN
133: Error_Handler.Add_Error_Token
134: ( p_Message_Name => 'ENG_PEOPLE_TRANS_TYPE_INVALID'
135: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
136: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
137: );
1628: ( p_bo_identifier IN VARCHAR2 )
1629: IS
1630: BEGIN
1631: G_System_Information.bo_identifier := p_bo_identifier;
1632: Error_Handler.Set_Bo_Identifier(p_bo_identifier);
1633:
1634: END Set_BO_Identifier;
1635:
1636: /***************************************************************************
1680: , p_created_by IN NUMBER
1681: , p_login_id IN NUMBER
1682: , p_revised_item_sequence_id IN NUMBER
1683: , p_original_system_reference IN VARCHAR2
1684: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1685: , x_return_status OUT NOCOPY VARCHAR2
1686: )
1687: IS
1688: -- Error Handlig Variables
1687: IS
1688: -- Error Handlig Variables
1689: l_return_status VARCHAR2(1);
1690: l_err_text VARCHAR2(2000) ;
1691: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1692:
1693: BEGIN
1694: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1695:
1692:
1693: BEGIN
1694: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1695:
1696: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1697: ('Create New Routing for ECO . . .') ;
1698: END IF ;
1699:
1700: --
1758: , last_updated_by = p_last_updated_by -- Last Updated By
1759: , last_update_login = p_login_id -- Last Update Login
1760: WHERE revised_item_sequence_id = p_revised_item_sequence_id ;
1761:
1762: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1763: ('Set created routing sequence id : ' || to_char(p_routing_sequence_id)
1764: || ' to the parenet revised item . . .') ;
1765: END IF ;
1766:
1766:
1767:
1768: EXCEPTION
1769: WHEN OTHERS THEN
1770: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
1771: ('Some unknown error in Creating New Routing . . .' || SQLERRM );
1772: END IF ;
1773:
1774: l_err_text := G_PKG_NAME || 'Utilities (Create New Routing) '
1775: || substrb(SQLERRM,1,200);
1776:
1777: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
1778:
1779: Error_Handler.Add_Error_Token
1780: ( p_message_name => NULL
1781: , p_message_text => l_err_text
1782: , p_mesg_token_tbl => l_mesg_token_tbl
1783: , x_mesg_token_tbl => l_mesg_token_tbl
1807: , p_user_id IN NUMBER
1808: , p_login_id IN NUMBER
1809: , p_prog_id IN NUMBER
1810: , p_prog_appid IN NUMBER
1811: , x_mesg_token_tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1812: , x_return_status OUT NOCOPY VARCHAR2
1813: )
1814:
1815:
1817:
1818: -- Error Handlig Variables
1819: l_return_status VARCHAR2(1);
1820: l_err_text VARCHAR2(2000) ;
1821: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1822: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1823:
1824:
1825: BEGIN
1818: -- Error Handlig Variables
1819: l_return_status VARCHAR2(1);
1820: l_err_text VARCHAR2(2000) ;
1821: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type ;
1822: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1823:
1824:
1825: BEGIN
1826: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1826: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1827: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1828:
1829: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN
1830: Error_Handler.Write_Debug('Performing cancel revised operation : '
1831: || to_char(p_operation_sequence_id) || ' . . .') ;
1832: END IF ;
1833:
1834: --
1990: --
1991: -- l_Token_Tbl(1).token_name := 'OP_SEQ_NUMBER';
1992: -- l_Token_Tbl(1).token_value := p_op_seq_num ;
1993:
1994: Error_Handler.Add_Error_Token
1995: ( p_Message_Name => 'BOM_OP_CANCEL_DEL_CHILDREN'
1996: , p_Message_Text => NULL
1997: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1998: , p_Token_Tbl => l_Token_Tbl
2013: x_mesg_token_tbl := l_mesg_token_tbl ;
2014:
2015: EXCEPTION
2016: WHEN OTHERS THEN
2017: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2018: ('Unexpected Error occured in Cancel . . .' || SQLERRM);
2019: END IF;
2020:
2021: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2023: l_err_text := G_PKG_NAME || ' : Utility (Operation Cancel) ' ||
2024: SUBSTR(SQLERRM, 1, 200);
2025: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2026:
2027: Error_Handler.Add_Error_Token
2028: ( p_message_name => NULL
2029: , p_message_text => l_err_text
2030: , p_mesg_token_tbl => l_mesg_token_tbl
2031: , x_mesg_token_tbl => l_mesg_token_tbl
2056: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2057: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2058: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2059: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2060: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2061: , x_return_status OUT NOCOPY VARCHAR2
2062: )
2063: IS
2064:
2071: -- Error Handlig Variables
2072: l_return_status VARCHAR2(1);
2073: l_temp_return_status VARCHAR2(1);
2074: l_err_text VARCHAR2(2000) ;
2075: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2076: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2077: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2078:
2079: -- Check if Routing exists
2072: l_return_status VARCHAR2(1);
2073: l_temp_return_status VARCHAR2(1);
2074: l_err_text VARCHAR2(2000) ;
2075: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2076: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2077: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2078:
2079: -- Check if Routing exists
2080: CURSOR l_rtg_exists_csr ( p_revised_item_id NUMBER
2073: l_temp_return_status VARCHAR2(1);
2074: l_err_text VARCHAR2(2000) ;
2075: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2076: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2077: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2078:
2079: -- Check if Routing exists
2080: CURSOR l_rtg_exists_csr ( p_revised_item_id NUMBER
2081: , p_organization_id NUMBER
2120:
2121:
2122: IF l_rev_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
2123:
2124: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2125: ('Check if primary rtg exists and if not, new primary rtg is created. . . ') ;
2126: END IF;
2127:
2128: --
2175: l_Token_Tbl(1).token_value := p_rev_operation_rec.revised_item_name ;
2176: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER';
2177: l_Token_Tbl(2).token_value := p_rev_operation_rec.operation_sequence_number ;
2178:
2179: Error_Handler.Add_Error_Token
2180: ( p_Message_Name => 'BOM_NEW_PRIMARY_RTG_CREATED'
2181: , p_Message_Text => NULL
2182: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2183: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2195: l_Token_Tbl(1).token_value := p_rev_operation_rec.revised_item_name;
2196: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER';
2197: l_Token_Tbl(2).token_value := p_rev_operation_rec.operation_sequence_number ;
2198:
2199: Error_Handler.Add_Error_Token
2200: ( p_Message_Name => 'BOM_NEW_PRIMARY_RTG_CREATED'
2201: , p_Message_Text => NULL
2202: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2203: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2272: AND organization_id = l_rev_op_unexp_rec.organization_id
2273: AND inventory_item_id = l_rev_op_unexp_rec.revised_item_id
2274: ) ;
2275:
2276: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2277: ('Creating new routing revision for the created primary routing for the revised item . . . ') ;
2278: END IF;
2279:
2280:
2290: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl ;
2291:
2292: EXCEPTION
2293: WHEN OTHERS THEN
2294: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2295: ('Some unknown error in Perform Writes . . .' || SQLERRM );
2296: END IF ;
2297:
2298: l_err_text := G_PKG_NAME || ' Utility (Perform Writes for Primary Rtg) '
2299: || substrb(SQLERRM,1,200);
2300:
2301: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2302:
2303: Error_Handler.Add_Error_Token
2304: ( p_message_name => NULL
2305: , p_message_text => l_err_text
2306: , p_mesg_token_tbl => l_mesg_token_tbl
2307: , x_mesg_token_tbl => l_mesg_token_tbl
2372: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2373: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2374: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2375: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2376: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2377: , x_return_status OUT NOCOPY VARCHAR2
2378: )
2379: IS
2380:
2386: -- Error Handlig Variables
2387: l_return_status VARCHAR2(1);
2388: l_temp_return_status VARCHAR2(1);
2389: l_err_text VARCHAR2(2000) ;
2390: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2391: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2392: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2393:
2394: -- Check if Routing exists
2387: l_return_status VARCHAR2(1);
2388: l_temp_return_status VARCHAR2(1);
2389: l_err_text VARCHAR2(2000) ;
2390: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2391: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2392: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2393:
2394: -- Check if Routing exists
2395: CURSOR l_rtg_exists_csr ( p_revised_item_id NUMBER
2388: l_temp_return_status VARCHAR2(1);
2389: l_err_text VARCHAR2(2000) ;
2390: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2391: l_temp_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
2392: l_Token_Tbl Error_Handler.Token_Tbl_Type;
2393:
2394: -- Check if Routing exists
2395: CURSOR l_rtg_exists_csr ( p_revised_item_id NUMBER
2396: , p_organization_id NUMBER
2434:
2435:
2436: IF l_rev_operation_rec.transaction_type = BOM_Rtg_Globals.G_OPR_CREATE THEN
2437:
2438: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2439: ('Check if alternate rtg exists and if not, new alternate rtg is created after checking
2440: compatible primary routing exists . . . ') ;
2441: END IF;
2442:
2490: l_Token_Tbl(1).token_value := p_rev_operation_rec.revised_item_name ;
2491: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER';
2492: l_Token_Tbl(2).token_value := p_rev_operation_rec.operation_sequence_number ;
2493:
2494: Error_Handler.Add_Error_Token
2495: ( p_Message_Name => 'BOM_NEW_ALTERNATE_RTG_CREATED'
2496: , p_Message_Text => NULL
2497: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2498: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2509: l_Token_Tbl(1).token_value := p_rev_operation_rec.revised_item_name;
2510: l_Token_Tbl(2).token_name := 'OP_SEQ_NUMBER';
2511: l_Token_Tbl(2).token_value := p_rev_operation_rec.operation_sequence_number ;
2512:
2513: Error_Handler.Add_Error_Token
2514: ( p_Message_Name => 'BOM_NEW_ALTERNATE_RTG_CREATED'
2515: , p_Message_Text => NULL
2516: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2517: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
2589: AND organization_id = l_rev_op_unexp_rec.organization_id
2590: AND inventory_item_id = l_rev_op_unexp_rec.revised_item_id
2591: ) ;
2592:
2593: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2594: ('Creating new routing revision for the created alternate routing for the revised item . . . ') ;
2595: END IF;
2596:
2597:
2607: x_Mesg_Token_Tbl := l_Mesg_Token_Tbl ;
2608:
2609: EXCEPTION
2610: WHEN OTHERS THEN
2611: IF BOM_Rtg_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug
2612: ('Some unknown error in Perform Writes . . .' || SQLERRM );
2613: END IF ;
2614:
2615: l_err_text := G_PKG_NAME || ' Utility (Perform Writes for Alternate Rtg) '
2616: || substrb(SQLERRM,1,200);
2617:
2618: -- dbms_output.put_line('Unexpected Error: '||l_err_text);
2619:
2620: Error_Handler.Add_Error_Token
2621: ( p_message_name => NULL
2622: , p_message_text => l_err_text
2623: , p_mesg_token_tbl => l_mesg_token_tbl
2624: , x_mesg_token_tbl => l_mesg_token_tbl