34: G_System_Information System_Information_Rec_Type;
35: G_Control_Rec BOM_BO_PUB.Control_Rec_Type;
36:
37: PROCEDURE Init_System_Info_Rec
38: ( x_mesg_token_tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
39: , x_return_status IN OUT NOCOPY VARCHAR2
40: )
41: IS
42: BEGIN
1283: ( p_bo_identifier IN VARCHAR2 )
1284: IS
1285: BEGIN
1286: G_System_Information.bo_identifier := p_bo_identifier;
1287: Error_Handler.Set_Bo_Identifier(p_bo_identifier);
1288:
1289: END Set_BO_Identifier;
1290:
1291: /***************************************************************************
1318: ( p_transaction_type IN VARCHAR2
1319: , p_entity IN VARCHAR2
1320: , p_entity_id IN VARCHAR2
1321: , x_valid IN OUT NOCOPY BOOLEAN
1322: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1323: )
1324: IS
1325: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1326: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1321: , x_valid IN OUT NOCOPY BOOLEAN
1322: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1323: )
1324: IS
1325: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1326: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1327: BEGIN
1328: l_token_tbl(1).token_name := 'ENTITY_ID';
1329: l_token_tbl(1).token_value := p_entity_id;
1322: , x_Mesg_Token_Tbl IN OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
1323: )
1324: IS
1325: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
1326: l_Token_Tbl Error_Handler.Token_Tbl_Type;
1327: BEGIN
1328: l_token_tbl(1).token_name := 'ENTITY_ID';
1329: l_token_tbl(1).token_value := p_entity_id;
1330:
1352: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_ERROR)
1353: THEN
1354: IF p_entity = 'Bom_Header'
1355: THEN
1356: Error_Handler.Add_Error_Token
1357: ( p_Message_Name => 'BOM_HEADER_TRANS_TYPE_INVALID'
1358: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1359: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1360: );
1359: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1360: );
1361: ELSIF p_entity = 'Bom_Rev'
1362: THEN
1363: Error_Handler.Add_Error_Token
1364: ( p_Message_Name => 'BOM_REV_TRANS_TYPE_INVALID'
1365: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1366: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1367: );
1366: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1367: );
1368: ELSIF p_entity = 'Bom_Comps'
1369: THEN
1370: Error_Handler.Add_Error_Token
1371: ( p_Message_Name => 'BOM_CMP_TRANS_TYPE_INVALID'
1372: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1373: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1374: );
1373: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1374: );
1375: ELSIF p_entity = 'Bom_Ref_Desgs'
1376: THEN
1377: Error_Handler.Add_Error_Token
1378: ( p_Message_Name => 'BOM_RFD_TRANS_TYPE_INVALID'
1379: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1380: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1381: );
1380: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1381: );
1382: ELSIF p_entity = 'Bom_Sub_Comps'
1383: THEN
1384: Error_Handler.Add_Error_Token
1385: ( p_Message_Name => 'BOM_SBC_TRANS_TYPE_INVALID'
1386: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1387: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1388: );
1387: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1388: );
1389: ELSIF p_entity = 'Bom_Comp_Ops'
1390: THEN
1391: Error_Handler.Add_Error_Token
1392: ( p_Message_Name => 'BOM_COPS_TRANS_TYPE_INVALID'
1393: , p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1394: , x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
1395: );
1406: ( p_debug_flag IN VARCHAR2 )
1407: IS
1408: BEGIN
1409: G_System_Information.debug_flag := p_debug_flag;
1410: Error_Handler.Set_Debug(p_debug_flag => p_debug_flag);
1411: END Set_Debug;
1412:
1413: FUNCTION Get_Debug RETURN VARCHAR2
1414: IS
1413: FUNCTION Get_Debug RETURN VARCHAR2
1414: IS
1415: BEGIN
1416: RETURN G_System_Information.debug_flag;
1417: -- RETURN Error_Handler.Get_Debug;
1418: END;
1419:
1420: PROCEDURE Set_Assembly_Item_Id
1421: ( p_assembly_item_id IN NUMBER )
3140: ,p_pk_column_name_value_pairs => l_pk_column_name_value_pairs
3141: ,p_class_code_name_value_pairs => l_class_code_name_value_pairs
3142: ,p_data_level_values => null
3143: ,p_additional_class_Code_list => l_additional_class_Code_list
3144: ,p_init_error_handler => 'T'
3145: ,p_init_fnd_msg_list => 'T'
3146: ,p_log_errors => 'T'
3147: ,p_add_errors_to_fnd_stack => 'T'
3148: ,P_commit => 'F'