[Home] [Help]
1: PACKAGE BODY OE_CONFIG_UTIL AS
2: /* $Header: OEXUCFGB.pls 120.33.12010000.3 2008/11/14 11:27:34 smanian ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30):='Oe_Config_Util';
1: PACKAGE BODY OE_CONFIG_UTIL AS
2: /* $Header: OEXUCFGB.pls 120.33.12010000.3 2008/11/14 11:27:34 smanian ship $ */
3:
4: -- Global constant holding the package name
5: G_PKG_NAME CONSTANT VARCHAR2(30):='Oe_Config_Util';
6:
7: /*-----------------------------------------------------------------
8: forward declarations
9: ------------------------------------------------------------------*/
149: --
150: BEGIN
151:
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
154: oe_debug_pub.add('MODEL OLD QTY: ' ||L_OLD_QUANTITY , 2 );
155: oe_debug_pub.add('MODEL NEW QTY: ' ||L_NEW_QUANTITY , 2 );
156: END IF;
157:
221: END LOOP;
222:
223: IF l_line_count = 0 THEN
224: IF l_debug_level > 0 THEN
225: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
226: oe_debug_pub.add('NO ROWS TO CASCADE' , 2 );
227: END IF;
228: RETURN;
229: END IF;
433:
434: -- Set the Recursive Call Constant to 'Y' to avoid the recursive
435: -- call to cascading while making this call to process order
436:
437: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'Y';
438:
439: -- Set the Validate_config Call Constant to 'N' to avoid the validation
440:
441: OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG := 'N';
473: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1);
474: END IF;
475:
476: -- Resetting the Recursive Call Constant to 'N'
477: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'N';
478:
479: -- Resetting the Validation Constant to 'Y'
480: OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG := 'Y';
481:
554:
555: x_return_status := l_return_status;
556:
557: IF l_debug_level > 0 THEN
558: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
559: END IF;
560:
561: EXCEPTION
562: WHEN OTHERS THEN
770: -- Resetting the Change Configuration flag 'Y'
771: OE_GLOBALS.G_CHANGE_CFG_FLAG := 'Y';
772:
773: -- Resetting the Recursive Call Constant to 'N'
774: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'N';
775:
776: -- ReSet recursion mode.
777: --OE_GLOBALS.G_RECURSION_MODE := 'N';
778:
1032: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1033: THEN
1034: oe_msg_pub.Add_Exc_Msg
1035: ( G_PKG_NAME
1036: , 'Oe_Config_Util'
1037: );
1038: END IF;
1039:
1040: -- Get message count and data
1102: l_configuration_id,l_booked_flag;
1103:
1104: EXIT WHEN MODELS%NOTFOUND;
1105:
1106: Oe_Config_Util.validate_configuration
1107: ( p_model_line_id => l_line_id,
1108: p_validate_flag => 'Y',
1109: p_complete_flag => 'Y',
1110: p_caller => 'BOOKING',
1237: --
1238: BEGIN
1239:
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.FREEZE_INC_ITEMS_FOR_ORDER' , 1);
1242: END IF;
1243:
1244: OPEN order_lines;
1245:
1247: FETCH order_lines
1248: into l_line_id;
1249: EXIT WHEN ORDER_LINES%NOTFOUND;
1250:
1251: l_return_status := Oe_Config_Util.Process_included_items
1252: ( p_line_id => l_line_id
1253: ,p_freeze => TRUE);
1254:
1255: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1261:
1262: IF l_debug_level > 0 THEN
1263: oe_debug_pub.add('LEAVING FREEZE_INC_ITEMS_FOR_ORDER:'
1264: || L_RETURN_STATUS , 2 );
1265: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.FREEZE_INC_ITEMS_FOR_ORDER' , 1);
1266: END IF;
1267: RETURN l_return_status;
1268: END Freeze_Inc_Items_for_Order;
1269:
1283: --
1284: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1285: --
1286: BEGIN
1287: Oe_Config_Util.Validate_Configuration
1288: (p_model_line_id => p_model_line_id,
1289: x_valid_config => l_valid_config,
1290: x_complete_config => l_complete_config,
1291: x_return_status => l_return_status);
1452: IF ( l_upgraded_flag = 'Y' OR
1453: l_upgraded_flag = 'P' ) AND
1454: (l_config_header_id is null AND
1455: l_config_rev_nbr is null) AND
1456: Oe_Config_Util.G_Upgraded_Flag = 'N'
1457: THEN
1458: IF l_debug_level > 0 THEN
1459: oe_debug_pub.add('UPGRADE THE CONFIGURAION' , 2 );
1460: END IF;
1458: IF l_debug_level > 0 THEN
1459: oe_debug_pub.add('UPGRADE THE CONFIGURAION' , 2 );
1460: END IF;
1461:
1462: Oe_Config_Util.G_Upgraded_Flag := 'Y';
1463:
1464: Configurator_Validation
1465: (p_model_line_id => p_model_line_id,
1466: x_valid_config => l_valid_config,
2668: --
2669: BEGIN
2670:
2671: IF l_debug_level > 0 THEN
2672: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2673: END IF;
2674:
2675:
2676: -- No Copy Changes. Initialized return status to success
2801:
2802: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
2803:
2804: IF l_debug_level > 0 THEN
2805: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2806: END IF;
2807: EXCEPTION
2808:
2809: WHEN FND_API.G_EXC_ERROR THEN
2895: --
2896: BEGIN
2897:
2898: IF l_debug_level > 0 THEN
2899: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
2900: oe_debug_pub.add('UIMANAGER URL: ' || L_URL , 2 );
2901: END IF;
2902:
2903:
3184: x_out_xml_msg := l_long_xml;
3185: x_return_status := l_return_status;
3186:
3187: IF l_debug_level > 0 THEN
3188: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
3189: END IF;
3190:
3191: EXCEPTION
3192: WHEN FND_API.G_EXC_ERROR THEN
3284: --
3285: BEGIN
3286:
3287: IF l_debug_level > 0 THEN
3288: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CREATE_HDR_XML' , 1);
3289: END IF;
3290:
3291: OE_LINE_UTIL.Query_Row(p_line_id => p_model_line_id
3292: ,x_line_rec => l_model_line_rec);
3377: ELSE
3378: param_value(18) := 'FALSE';
3379: END IF;
3380:
3381: OE_Config_Util.Get_Config_Effective_Date
3382: ( p_model_line_rec => l_model_line_rec
3383: ,x_old_behavior => l_old_behavior
3384: ,x_config_effective_date => l_config_effective_date
3385: ,x_frozen_model_bill => l_frozen_model_bill);
3743: x_valid_config := nvl(l_valid_config, 'FALSE');
3744:
3745:
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.PARSE_OUTPUT_XML' , 1);
3748: END IF;
3749:
3750: EXCEPTION
3751: WHEN FND_API.G_EXC_ERROR THEN
3792: --
3793: BEGIN
3794:
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3797: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3798: END IF;
3799:
3800: BEGIN
3827: END IF;
3828: END LOOP;
3829:
3830: IF l_debug_level > 0 THEN
3831: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3832: END IF;
3833:
3834: END;
3835:
3862: --
3863: BEGIN
3864:
3865: IF l_debug_level > 0 THEN
3866: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3867: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3868: END IF;
3869:
3870: BEGIN
3899:
3900: END LOOP;
3901:
3902: IF l_debug_level > 0 THEN
3903: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3904: END IF;
3905:
3906: EXCEPTION
3907: WHEN OTHERS THEN
3933: --
3934: BEGIN
3935:
3936: IF l_debug_level > 0 THEN
3937: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.EXPLODE' , 1);
3938: oe_debug_pub.add(' EXPLOSION TYPE ' || P_STDCOMPFLAG , 2 );
3939: END IF;
3940:
3941: BOMPNORD.Bmxporder_Explode_For_Order(
3982:
3983:
3984: x_return_status := FND_API.G_RET_STS_SUCCESS;
3985: IF l_debug_level > 0 THEN
3986: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.EXPLODE' , 1);
3987: END IF;
3988:
3989: EXCEPTION
3990: WHEN FND_API.G_EXC_ERROR THEN
4093:
4094: END LOOP;
4095:
4096: IF l_debug_level > 0 THEN
4097: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_INCLUDED_ITEMS' , 1);
4098: END IF;
4099:
4100: EXCEPTION
4101: WHEN OTHERS THEN
4283: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4284: --
4285: BEGIN
4286:
4287: Print_Time('Entering oe_config_util.process_included_items');
4288:
4289: l_parent_line_rec := p_line_rec;
4290:
4291: IF p_line_rec.line_id <> FND_API.G_MISS_NUM AND
4818: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4819: --
4820: BEGIN
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4823: END IF;
4824:
4825: OPEN comp_number;
4826: LOOP
4838:
4839: x_return_status := FND_API.G_RET_STS_SUCCESS;
4840:
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4843: END IF;
4844:
4845: EXCEPTION
4846: WHEN OTHERS THEN
5633: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5634: --
5635: BEGIN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_CONFIG' , 1);
5638: END IF;
5639:
5640: l_top_model_line_id := p_top_model_line_id;
5641:
5774: ('MASTER_ORGANIZATION_ID');
5775: l_group_id NUMBER := null;
5776: l_session_id NUMBER := 0;
5777: l_levels NUMBER := 60;
5778: l_stdcompflag VARCHAR2(10) := Oe_Config_Util.OE_BMX_ALL_COMPS;
5779: l_exp_quantity NUMBER;
5780: l_top_item_id NUMBER;
5781: l_num_lines NUMBER := 0;
5782: l_model_ordered_item VARCHAR2(2000);
5800: --
5801: BEGIN
5802:
5803: IF l_debug_level > 0 THEN
5804: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.COMPLETE_CONFIGURATION' , 1);
5805: END IF;
5806:
5807: BEGIN
5808:
5828: oe_debug_pub.add('ORG ID: '|| L_VALIDATION_ORG , 2 );
5829: END IF;
5830:
5831:
5832: OE_CONFIG_UTIL.Explode
5833: ( p_validation_org => l_validation_org
5834: , p_group_id => l_group_id
5835: , p_session_id => l_session_id
5836: , p_levels => l_levels
5902: INTO l_component_code, l_component_seq_id, l_sort_order,
5903: l_uom_code
5904: FROM bom_explosions
5905: WHERE component_item_id = line_rec.inventory_item_id
5906: AND explosion_type = Oe_Config_Util.OE_BMX_ALL_COMPS
5907: AND top_bill_sequence_id = l_model_seq_id
5908: AND effectivity_date <= l_rev_date
5909: AND disable_date > l_rev_date
5910: AND organization_id = l_validation_org
5920: INTO l_component_code, l_component_seq_id, l_sort_order,
5921: l_uom_code
5922: FROM bom_explosions
5923: WHERE component_item_id = line_rec.inventory_item_id
5924: AND explosion_type = Oe_Config_Util.OE_BMX_ALL_COMPS
5925: AND top_bill_sequence_id = l_model_seq_id
5926: AND effectivity_date <= l_rev_date
5927: AND disable_date > l_rev_date
5928: AND organization_id = l_validation_org;
6032: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6033: --
6034: BEGIN
6035: IF l_debug_level > 0 THEN
6036: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6037: END IF;
6038: BEGIN
6039: SELECT top_model_line_id, ordered_quantity, order_quantity_uom
6040: INTO l_top_model_line_id, l_ordered_quantity, l_order_quantity_uom
6095: END IF; -- if match found
6096:
6097: x_return_status := l_return_status;
6098: IF l_debug_level > 0 THEN
6099: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6100: END IF;
6101:
6102: EXCEPTION
6103: WHEN NO_DATA_FOUND THEN
6290: oe_msg_pub.add;
6291: END IF;
6292:
6293: IF l_debug_level > 0 THEN
6294: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.DELINK_CONFIG' , 1);
6295: END IF;
6296:
6297: x_return_status := l_return_status;
6298:
6335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6336: --
6337: BEGIN
6338: IF l_debug_level > 0 THEN
6339: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.PART_OF_CONFIGURATION' , 1);
6340: END IF;
6341:
6342: SELECT item_type_code,header_id, top_model_line_id, line_id
6343: INTO l_item_type_code,l_header_id, l_top_model_line_id, l_line_id
6418: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6419: --
6420: BEGIN
6421: IF l_debug_level > 0 THEN
6422: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6423: END IF;
6424:
6425: BEGIN
6426: SELECT item_type_code, ato_line_id, ordered_item
6470: oe_msg_pub.add;
6471: END IF;
6472:
6473: IF l_debug_level > 0 THEN
6474: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6475: END IF;
6476:
6477: x_return_status := l_return_status;
6478:
6506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6507: --
6508: BEGIN
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6511: END IF;
6512:
6513: UPDATE oe_order_lines
6514: SET component_sequence_id = p_comp_seq_id
6520:
6521: x_return_status := FND_API.G_RET_STS_SUCCESS;
6522:
6523: IF l_debug_level > 0 THEN
6524: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6525: END IF;
6526:
6527: EXCEPTION
6528: WHEN no_data_found THEN
6554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6555: --
6556: BEGIN
6557: IF l_debug_level > 0 THEN
6558: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6559: END IF;
6560:
6561: UPDATE oe_order_lines
6562: SET visible_demand_flag = p_visible_demand_flag
6568:
6569: x_return_status := FND_API.G_RET_STS_SUCCESS;
6570:
6571: IF l_debug_level > 0 THEN
6572: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6573: END IF;
6574:
6575: EXCEPTION
6576: WHEN no_data_found THEN
6602: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6603: --
6604: BEGIN
6605: IF l_debug_level > 0 THEN
6606: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6607: END IF;
6608:
6609: UPDATE oe_order_lines_all
6610: SET mfg_component_sequence_id = p_mfg_comp_seq_id
6616:
6617: x_return_status := FND_API.G_RET_STS_SUCCESS;
6618:
6619: IF l_debug_level > 0 THEN
6620: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6621: END IF;
6622:
6623: EXCEPTION
6624: WHEN no_data_found THEN
6650: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6651: --
6652: BEGIN
6653: IF l_debug_level > 0 THEN
6654: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6655: END IF;
6656:
6657: UPDATE oe_order_lines
6658: SET model_group_number = p_model_group_number
6664:
6665: x_return_status := FND_API.G_RET_STS_SUCCESS;
6666:
6667: IF l_debug_level > 0 THEN
6668: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6669: END IF;
6670:
6671: EXCEPTION
6672: WHEN no_data_found THEN
6701: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6702: --
6703: BEGIN
6704: IF l_debug_level > 0 THEN
6705: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6706: END IF;
6707:
6708: UPDATE oe_order_lines
6709: SET request_id = p_request_id
6718:
6719: x_return_status := FND_API.G_RET_STS_SUCCESS;
6720:
6721: IF l_debug_level > 0 THEN
6722: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6723: END IF;
6724:
6725: EXCEPTION
6726: WHEN no_data_found THEN
7263:
7264: ---------------- dff -------------------------------------------
7265:
7266: IF G_COPY_MODEL_DFF = 'Y' /* Bug # 5036404 */
7267: -- OE_CONFIG_UTIL.G_CONFIG_UI_USED = 'Y'
7268: THEN
7269:
7270: IF l_debug_level > 0 THEN
7271: oe_debug_pub.add('COPYING DFF TO CHILD' , 1);
7843: x_result := 0;
7844: RETURN;
7845: END IF;
7846:
7847: IF OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG = 'Y' OR
7848: OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG = 'N' OR
7849: l_model_remnant_flag = 'Y'
7850: THEN
7851: x_result := 0;
8658: --
8659: BEGIN
8660:
8661: IF l_debug_level > 0 THEN
8662: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.Unlock_Config' , 1);
8663: END IF;
8664:
8665:
8666: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
8713:
8714: END IF;
8715:
8716: IF l_debug_level > 0 THEN
8717: oe_debug_pub.add('Exiting OE_CONFIG_UTIL.Unlock_Config' || x_return_status, 1);
8718: END IF;
8719:
8720: EXCEPTION
8721:
8720: EXCEPTION
8721:
8722: WHEN OTHERS THEN
8723: IF l_debug_level > 0 THEN
8724: oe_debug_pub.add('ERROR IN OE_CONFIG_UTIL.Unlock_Config'|| SQLERRM , 1);
8725: END IF;
8726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8727: END Unlock_Config;
8728:
8726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8727: END Unlock_Config;
8728:
8729:
8730: END OE_CONFIG_UTIL;