[Home] [Help]
1620: 'p_severity_id',
1621: lc_api_name);
1622:
1623: -- profile option for server_timezone_id must be set
1624: l_server_timezone_id := fnd_profile.value('SERVER_TIMEZONE_ID');
1625: IF (NVL(l_server_timezone_id,Fnd_Api.G_MISS_NUM) = Fnd_Api.G_MISS_NUM) THEN
1626: Fnd_Message.SET_NAME('CSD','CSD_CANNOT_GET_PROFILE_VALUE');
1627: Fnd_Message.SET_TOKEN('PROFILE',get_user_profile_option_name('SERVER_TIMEZONE_ID'));
1628: Fnd_Msg_Pub.ADD;
1715:
1716: -- define cursors
1717: CURSOR c_user_prof_name(p_profile_name VARCHAR2) IS
1718: SELECT user_profile_option_name
1719: FROM fnd_profile_options_tl
1720: WHERE profile_option_name = p_profile_name
1721: AND language = userenv('lang');
1722:
1723: BEGIN
1797: if p_event = 'RECEIVE' then
1798: -- check if all the RMA -- CUST_PROD and RMA-EXCHANGE combination is received.
1799: -- only update the RO status if all RMA -- CUST_PROD combination is received
1800: --
1801: if nvl(fnd_profile.value('CSD_ENABLE_AUTO_UPD_RO_STAT'),'N') = 'N'
1802: then
1803: if lc_log_level >= lc_procedure_level then
1804: fnd_log.string(lc_log_level,lc_mod_name,'Profile CSD: Enable Auto Update of Repair
1805: Order Status upon Receiving is not set to yes.');
1830: end;
1831:
1832: if l_un_rcvd_lines_exists is null then
1833:
1834: l_to_flow_status_id := fnd_profile.value('CSD_DEF_RO_STAT_FR_RCV');
1835: if l_to_flow_status_id is null then
1836: if lc_log_level >= lc_procedure_level then
1837: fnd_log.string(lc_log_level,lc_mod_name,'Profile CSD: Default Repair Order Status After
1838: Receving is not set');
2061: if (x_return_status = fnd_api.g_ret_sts_success) then
2062: if (l_default_val_num is not null) then
2063: l_inv_org := l_default_val_num;
2064: else
2065: l_inv_org := to_number(fnd_profile.value('CSD_DEF_REP_INV_ORG'));
2066: end if;
2067: else
2068: RAISE FND_API.G_EXC_ERROR;
2069: end if;
2095: if (x_return_status = fnd_api.g_ret_sts_success) then
2096: if (l_default_val_num is not null) then
2097: l_repair_org := l_default_val_num;
2098: else
2099: l_repair_org := to_number(fnd_profile.value('CSD_DEFAULT_REPAIR_ORG'));
2100: end if;
2101: else
2102: RAISE FND_API.G_EXC_ERROR;
2103: end if;
2186: if (x_return_status = fnd_api.g_ret_sts_success) then
2187: if (l_default_val_num is not null) then
2188: l_repair_type_id := l_default_val_num;
2189: else
2190: l_repair_type_id := to_number(fnd_profile.value('CSD_DEFAULT_REPAIR_TYPE'));
2191: end if;
2192:
2193: if l_repair_type_id is not null then
2194: open c_def_wip (l_repair_type_id);
2341: -- needs the need by date for MRP or INV planned items. Right now we assume that all items
2342: -- are planned.
2343: -- the need by date can possibly be left null only when INVENTORY_PLANNED_FLAG = 6 and
2344: -- MRP_PLANNED_FLAG = 6 in mtl_system_items_b for a particular item.
2345: l_dummy := to_number(fnd_profile.value('CSD_REQUISITION_LEAD_TIME'));
2346:
2347: if nvl(l_dummy,-1) <= -1 then
2348: FND_MESSAGE.SET_NAME('CSD','CSD_REQ_LEAD_TIME_NOT_SET');
2349: FND_MSG_PUB.ADD;
2686: l_mtl_txn_dtls_tab(k).new_row := 'Y';
2687: l_mtl_txn_dtls_tab(k).required_quantity := l_quantity_tbl(k);
2688: END;
2689: l_mtl_txn_dtls_tab(k).transaction_quantity := l_mtl_txn_dtls_tab(k).required_quantity ;
2690: l_mtl_txn_dtls_tab(k).supply_subinventory := fnd_profile.value('CSD_DEF_HV_SUBINV');
2691: END IF;
2692: END LOOP;
2693:
2694: IF l_mtl_txn_dtls_tab.COUNT > 0
3371: SELECT service_duration_period_code, service_duration, service_starting_delay
3372: INTO l_service_durn_period_code,l_service_duration,l_service_starting_delay
3373: FROM mtl_system_items_b
3374: WHERE inventory_item_id = l_service_item_id
3375: AND organization_id = fnd_profile.value('CSD_DEF_REP_INV_ORG');
3376:
3377: -- the service item is not null, create the line in OM.
3378: -- get the ship from org id
3379: CSD_RULES_ENGINE_PVT.GET_DEFAULT_VALUE_FROM_RULE
3391: x_msg_data => x_msg_data
3392: );
3393: IF l_ship_from_org_id IS NULL
3394: THEN
3395: l_ship_from_org_id := fnd_profile.value('CSD_DEF_REP_INV_ORG');
3396: END IF;
3397:
3398: l_line_tbl(1) := oe_order_pub.g_miss_line_rec;
3399: l_line_tbl(1).inventory_item_id := l_service_item_id;
3606: -- get the item name
3607: SELECT concatenated_segments
3608: INTO l_item_name
3609: FROM mtl_system_items_kfv
3610: WHERE organization_id = fnd_profile.value('CSD_DEF_REP_INV_ORG')
3611: AND inventory_item_id = l_ship_inv_item_id;
3612:
3613: -- get the duration name
3614: SELECT unit_of_measure