[Home] [Help]
139: nvl(OTM_ENABLED,'N'), --OTM R12 Org-Specific
140: nvl(DYNAMIC_REPLENISHMENT_FLAG,'N'), --bug# 6689448 (replenishment project)
141: nvl(DOCK_APPT_SCHEDULING_FLAG,'N'), --bug 6700792: OTM Dock Door Sched Proj
142: nvl(RETAIN_NONSTAGED_DET_FLAG,'N') --Bug 7131800
143: FROM WSH_SHIPPING_PARAMETERS
144: WHERE ORGANIZATION_ID = v_organization_id;
145:
146: l_found BOOLEAN := FALSE;
147: l_param_info Parameter_Rec_Typ;
1013: End If;
1014:
1015: Begin
1016: --bug# 6689448 (replenishment project): added the field dynamic_replenishment_flag
1017: Insert into wsh_shipping_parameters (
1018: goods_dispatched_account,
1019: location_id,
1020: organization_id,
1021: weight_uom_class,
1185: p_ship_par_rec.retain_nonstaged_det_flag);
1186: Exception
1187: When others then
1188: If l_debug_on then
1189: wsh_debug_sv.log(l_module_name,'After insert into WSH_SHIPPING_PARAMETERS SQLERRM : ',sqlerrm);
1190: End If;
1191: fnd_message.set_name('WSH','WSH_UNEXP_ERROR');
1192: fnd_message.set_token('PACKAGE',l_module_name);
1193: fnd_message.set_token('ORA_ERROR',to_char(sqlcode));
1194: fnd_message.set_token('ORA_TEXT',SQLERRM);
1195: raise handle_exception;
1196: End;
1197: If l_debug_on then
1198: wsh_debug_sv.log(l_module_name,'After insert into WSH_SHIPPING_PARAMETERS SQLERRM : ',sqlerrm);
1199: End If;
1200:
1201:
1202: If p_ship_par_val_rec.class_code.count > 0 then /* Start of Main If logic */
1422: If l_debug_on then
1423: wsh_debug_sv.push(l_module_name);
1424: End If;
1425: Begin
1426: UPDATE wsh_shipping_parameters set
1427: goods_dispatched_account = p_ship_par_rec.goods_dispatched_account,
1428: location_id = p_ship_par_rec.location_id,
1429: organization_id = p_ship_par_rec.organization_id,
1430: weight_uom_class = p_ship_par_rec.weight_uom_class,
1506: retain_nonstaged_det_flag = p_ship_par_rec.retain_nonstaged_det_flag --Bug 7131800
1507: WHERE organization_id = p_ship_par_rec.organization_id;
1508:
1509: If l_debug_on then
1510: wsh_debug_sv.log(l_module_name,'After update of values in wsh_shipping_parameters table : ',sqlerrm);
1511: End If;
1512:
1513: Exception
1514: When others then
1512:
1513: Exception
1514: When others then
1515: If l_debug_on then
1516: wsh_debug_sv.log(l_module_name,'After update of values in wsh_shipping_parameters table : ',sqlerrm);
1517: End If;
1518: fnd_message.set_name('WSH','WSH_UNEXP_ERROR');
1519: fnd_message.set_token('PACKAGE',l_module_name);
1520: fnd_message.set_token('ORA_ERROR',to_char(sqlcode));
1753: x_return_status OUT NOCOPY VARCHAR2) is
1754:
1755: Cursor get_last_update_date_csr is
1756: select last_update_date
1757: from wsh_shipping_parameters
1758: where organization_id = p_organization_id;
1759:
1760: Cursor l_lock_csr is
1761: select 1
1758: where organization_id = p_organization_id;
1759:
1760: Cursor l_lock_csr is
1761: select 1
1762: from wsh_shipping_parameters
1763: where organization_id = p_organization_id
1764: for update nowait;
1765:
1766: l_id number :=0;
1922: wsh_debug_sv.log(l_module_name,'P_ORGANIZATION_ID',p_organization_id);
1923: END IF;
1924:
1925: ------------------------------------------------------------------------
1926: -- Get values from wsh_shipping_parameters table . -
1927: ------------------------------------------------------------------------
1928: get(p_organization_id => p_organization_id
1929: ,x_param_info => l_param_info
1930: ,x_return_status => l_return_status);
2392:
2393: Begin
2394:
2395: x_return_status := fnd_api.g_ret_sts_success;
2396: If p_print_info = 'WSH_SHIPPING_PARAMETERS' OR p_print_info = 'ALL' then
2397: wsh_debug_sv.log(p_module_name,'x_param_info.ship_confirm_rule_id',x_param_info.ship_confirm_rule_id);
2398: wsh_debug_sv.log(p_module_name,'x_param_info.autopack_level',x_param_info.autopack_level);
2399: wsh_debug_sv.log(p_module_name,'x_param_info.task_planning_flag',x_param_info.task_planning_flag);
2400: wsh_debug_sv.log(p_module_name,'x_param_info.export_screening_flag',x_param_info.export_screening_flag);