[Home] [Help]
322:
323: lFlowStatusCode varchar2(200) ;
324: return_value NUMBER;
325:
326: l_token CTO_MSG_PUB.token_tbl;
327: l_config_item_name varchar2(1000) ;
328: BEGIN
329: IF PG_DEBUG <> 0 THEN
330: oe_debug_pub.add('create_config_item_wf: ' || 'Function Mode: ' || p_funcmode, 1);
415: END IF; /* end if check config item */
416:
417: l_stmt_num := 105;
418: IF (validate_line(to_number(p_itemkey)) <> TRUE) THEN
419: cto_msg_pub.cto_message('BOM','CTO_LINE_STATUS_NOT_ELIGIBLE');
420: raise FND_API.G_EXC_ERROR;
421: END IF;
422:
423: l_stmt_num := 110;
457: IF PG_DEBUG <> 0 THEN
458: oe_debug_pub.add('create_config_item_wf: ' || 'Order Line ID ' || p_itemkey ||
459: 'is on HOLD. ' ||l_x_hold_result_out);
460: END IF;
461: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_ON_HOLD');
462: x_result := 'COMPLETE:ON_HOLD';
463: return;
464:
465: END IF; -- end to check hold = TRUE
1127: if (l_status = 0) then
1128: IF PG_DEBUG <> 0 THEN
1129: oe_debug_pub.add('create_config_item_wf: ' || 'Failure in cost_rollup ', 1);
1130: END IF;
1131: --cto_msg_pub.cto_message('BOM', l_xmsgdata);
1132: raise FND_API.G_EXC_ERROR;
1133:
1134:
1135: elsif( l_status = -1 ) then
1135: elsif( l_status = -1 ) then
1136: IF PG_DEBUG <> 0 THEN
1137: oe_debug_pub.add('create_config_item_wf: ' || 'Unexpected Failure in cost_rollup ', 1);
1138: END IF;
1139: cto_msg_pub.cto_message('BOM', l_xmsgdata);
1140: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1141:
1142: else
1143: IF PG_DEBUG <> 0 THEN
1344:
1345: l_token(1).token_name := 'CONFIG_ITEM';
1346: l_token(1).token_value := l_config_item_name;
1347:
1348: cto_msg_pub.cto_message('BOM', 'CTO_CONFIG_MATCH', l_token);
1349: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1350:
1351: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1352:
1347:
1348: cto_msg_pub.cto_message('BOM', 'CTO_CONFIG_MATCH', l_token);
1349: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1350:
1351: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1352:
1353: OE_STANDARD_WF.Save_Messages;
1354: OE_STANDARD_WF.Clear_Msg_Context;
1355:
1419: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
1420: raise;
1421:
1422: when OTHERS then
1423: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
1424: IF PG_DEBUG <> 0 THEN
1425: oe_debug_pub.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf' ||
1426: to_char(l_stmt_num) || ':' ||
1427: substrb(sqlerrm, 1, 100));
1495: l_config_item_name varchar2(200) ;
1496: lMatchProfile varchar2(10);
1497:
1498: l_partial_reservation boolean := FALSE ;
1499: l_token CTO_MSG_PUB.token_tbl;
1500:
1501: l_current_org_id Number;
1502: BEGIN
1503: /*
1784: l_token(3).token_name := 'SHIP_ORG';
1785: l_token(3).token_value := l_organization_name;
1786:
1787:
1788: cto_msg_pub.cto_message('BOM', 'CTO_RESERVATION_SUCCESS', l_token );
1789: --fnd_message.set_token('QUANTITY', l_quantity_to_reserve );
1790: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1791: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1792:
1789: --fnd_message.set_token('QUANTITY', l_quantity_to_reserve );
1790: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1791: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1792:
1793: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1794:
1795:
1796: OE_STANDARD_WF.Save_Messages;
1797: OE_STANDARD_WF.Clear_Msg_Context;
1812: else
1813: IF PG_DEBUG <> 0 THEN
1814: oe_debug_pub.add('create_reservation: ' || 'Failed in Create Reservation. ',1);
1815: END IF;
1816: cto_msg_pub.cto_message('BOM', l_x_error_msg ); /* BUGFIX#2342412 */
1817: raise RESERVATION_ERROR;
1818: end if;
1819:
1820: else
1893: l_token(1).token_value := l_config_item_name;
1894: l_token(2).token_name := 'SHIP_ORG';
1895: l_token(2).token_value := l_organization_name;
1896:
1897: cto_msg_pub.cto_message('BOM', 'CTO_RESERVATION_FAILURE', l_token);
1898: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1899: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1900:
1901: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1897: cto_msg_pub.cto_message('BOM', 'CTO_RESERVATION_FAILURE', l_token);
1898: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1899: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1900:
1901: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1902:
1903: OE_STANDARD_WF.Save_Messages;
1904: OE_STANDARD_WF.Clear_Msg_Context;
1905:
1939:
1940: l_token(1).token_name := 'CONFIG_ITEM';
1941: l_token(1).token_value := l_config_item_name;
1942:
1943: cto_msg_pub.cto_message('BOM', 'CTO_CONFIG_MATCH', l_token);
1944: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1945:
1946: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1947:
1942:
1943: cto_msg_pub.cto_message('BOM', 'CTO_CONFIG_MATCH', l_token);
1944: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1945:
1946: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1947:
1948: OE_STANDARD_WF.Save_Messages;
1949: OE_STANDARD_WF.Clear_Msg_Context;
1950:
1975:
1976:
1977: when NO_DATA_FOUND then
1978: --rollback to savepoint before_item_creation;
1979: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
1980: IF PG_DEBUG <> 0 THEN
1981: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation::ndf::' || to_char(l_stmt_num) );
1982: END IF;
1983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2008: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2009:
2010: when OTHERS then
2011: --rollback to savepoint before_item_creation;
2012: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
2013: IF PG_DEBUG <> 0 THEN
2014: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation' ||
2015: to_char(l_stmt_num) || ':' ||
2016: substrb(sqlerrm, 1, 100));
2285: l_stmt_num := 100;
2286: return_value:= CTO_WORKFLOW_API_PK.display_wf_status(to_number(p_itemkey));
2287:
2288: if return_value <> 1 then
2289: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
2290: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2291: end if;
2292:
2293: elsif ((l_ResultStatus=FALSE) and (l_return_status=FND_API.G_RET_STS_SUCCESS)) then
2448: ( 'CTO_WORKFLOW',
2449: 'check_inv_rsv_exists'
2450: );
2451: end if;
2452: cto_msg_pub.count_and_get
2453: (
2454: p_msg_count=>x_msg_count,
2455: p_msg_data=>x_msg_data
2456: );
2561: ( 'CTO_WORKFLOW',
2562: 'check_inv_rsv_exists'
2563: );
2564: end if;
2565: cto_msg_pub.count_and_get
2566: (
2567: p_msg_count=>x_msg_count,
2568: p_msg_data=>x_msg_data
2569: );
2716: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
2717: raise;
2718:
2719: when OTHERS then
2720: cto_msg_pub.cto_message('BOM', 'CTO_CHECK_STATUS_ERROR');
2721: IF PG_DEBUG <> 0 THEN
2722: oe_debug_pub.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.check_reservation_status_wf ' ||
2723: to_char(l_stmt_num) || ':' ||
2724: substrb(sqlerrm, 1, 100));
2782: if (l_status = 0) then
2783: IF PG_DEBUG <> 0 THEN
2784: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Failure in cost_rollup ', 1);
2785: END IF;
2786: cto_msg_pub.cto_message('BOM', l_x_msg_data);
2787: raise UNEXP_ERROR;
2788: else
2789: IF PG_DEBUG <> 0 THEN
2790: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Success in cost_rollup ', 1);
2816: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2817: to_char(l_stmt_num) || ':' ||
2818: substrb(sqlerrm, 1, 100),1);
2819: END IF;
2820: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2821: OE_STANDARD_WF.Save_Messages;
2822: OE_STANDARD_WF.Clear_Msg_Context;
2823:
2824: when OTHERS then
2821: OE_STANDARD_WF.Save_Messages;
2822: OE_STANDARD_WF.Clear_Msg_Context;
2823:
2824: when OTHERS then
2825: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2826: IF PG_DEBUG <> 0 THEN
2827: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2828: to_char(l_stmt_num) || ':' ||
2829: substrb(sqlerrm, 1, 100),1);
2942: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2943: || to_char(l_stmt_num) || ':' ||
2944: substrb(sqlerrm, 1, 100),1);
2945: END IF;
2946: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2947: OE_STANDARD_WF.Save_Messages;
2948: OE_STANDARD_WF.Clear_Msg_Context;
2949:
2950: when OTHERS then
2947: OE_STANDARD_WF.Save_Messages;
2948: OE_STANDARD_WF.Clear_Msg_Context;
2949:
2950: when OTHERS then
2951: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2952: IF PG_DEBUG <> 0 THEN
2953: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2954: || to_char(l_stmt_num) || ':' ||
2955: substrb(sqlerrm, 1, 100),1);
3088: IF (v_x_hold_result_out = FND_API.G_TRUE) THEN
3089: IF PG_DEBUG <> 0 THEN
3090: oe_debug_pub.add('Check_supply_type_wf: ' || 'Order Line ID ' || p_itemkey || 'is on HOLD. ' ||v_x_hold_result_out, 1);
3091: END IF;
3092: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_ON_HOLD');
3093: x_result := 'COMPLETE:INCOMPLETE';
3094: return;
3095: END IF;
3096: END IF;
3357: Do not process the order if status is invalid or
3358: if a hold is found.
3359: +-----------------------------------------------------------*/
3360: if (validate_config_line(to_number(p_itemkey)) <> TRUE) then
3361: cto_msg_pub.cto_message('BOM','CTO_LINE_STATUS_NOT_ELIGIBLE');
3362: raise FND_API.G_EXC_ERROR;
3363: end if;
3364:
3365: --bugfix 1799874 start
3392: if (l_quantity <= 0) then
3393: IF PG_DEBUG <> 0 THEN
3394: oe_debug_pub.add('create_flow_schedule_wf: ' || 'l_quantity <= 0', 1);
3395: END IF;
3396: cto_msg_pub.cto_message('BOM','CTO_CREATE_FLOW_SCHED_ERROR');
3397: raise FND_API.G_EXC_ERROR;
3398: end if;
3399:
3400: l_stmt_num := 120;
3418: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Schedule ship date '||
3419: to_char(l_sch_ship_date)||',
3420: is earlier than sysdate');
3421: END IF;
3422: cto_msg_pub.cto_message('BOM', 'CTO_INVALID_SCH_DATE');
3423: x_result := 'COMPLETE:INCOMPLETE';
3424: return;
3425:
3426: end if;
3436: IF (l_x_return_status = FND_API.G_RET_STS_ERROR) THEN
3437: IF PG_DEBUG <> 0 THEN
3438: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Expected error in cto_fs. ', 1);
3439: END IF;
3440: cto_msg_pub.cto_message('BOM', l_msg_name);
3441: raise FND_API.G_EXC_ERROR;
3442:
3443: ELSIF (l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3444: IF PG_DEBUG <> 0 THEN
3443: ELSIF (l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3444: IF PG_DEBUG <> 0 THEN
3445: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Unexpected error in Create Flow Schedule for line id ' || p_itemkey, 1);
3446: END IF;
3447: cto_msg_pub.cto_message('BOM', l_msg_name);
3448: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3449:
3450: END IF;
3451:
3464: else
3465: IF PG_DEBUG <> 0 THEN
3466: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Flow schedules not created');
3467: END IF;
3468: cto_msg_pub.cto_message('BOM', 'CTO_NO_FLOW_SCHEDULE');
3469: x_result := 'COMPLETE:INCOMPLETE';
3470: return;
3471: end if;
3472: end if; /* p_funcmode = 'RUN' */
3492: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3493: || to_char(l_stmt_num) || ':' ||
3494: substrb(sqlerrm, 1, 100),1);
3495: END IF;
3496: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3497: OE_STANDARD_WF.Save_Messages;
3498: OE_STANDARD_WF.Clear_Msg_Context;
3499: x_result := 'COMPLETE:INCOMPLETE';
3500: rollback to savepoint before_process;
3509: OE_STANDARD_WF.Clear_Msg_Context;
3510: raise;
3511:
3512: when OTHERS then
3513: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3514: IF PG_DEBUG <> 0 THEN
3515: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3516: || to_char(l_stmt_num) || ':' ||
3517: substrb(sqlerrm, 1, 250),1);
3790: if (l_quantity <= 0) then
3791: IF PG_DEBUG <> 0 THEN
3792: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Ordered quantity is zero.', 1);
3793: END IF;
3794: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3795: raise FND_API.G_EXC_ERROR;
3796: end if;
3797:
3798: l_stmt_num := 101;
3825: -- begin bugfix 2053360: handle the record_locked exception
3826: --
3827:
3828: when record_locked then
3829: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_LOCKED');
3830: IF PG_DEBUG <> 0 THEN
3831: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: Could not lock line id '||
3832: p_itemkey ||' for update.');
3833:
3854:
3855:
3856: when FND_API.G_EXC_UNEXPECTED_ERROR then
3857: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3858: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3859: IF PG_DEBUG <> 0 THEN
3860: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised unexc error. ' ||
3861: to_char(l_stmt_num) );
3862: END IF;
3886: END;
3887:
3888: IF l_build_in_wip = 'N' THEN
3889: --set the build in wip flag
3890: cto_msg_pub.cto_message('BOM', 'CTO_BUILD_IN_WIP_FLAG');
3891: IF PG_DEBUG <> 0 THEN
3892: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf:'
3893: ||'ERROR : Buld_in_wip_flag needs to be checked',1 );
3894: END IF;
3894: END IF;
3895:
3896: ELSE--no_data_found is for someother reason
3897:
3898: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3899: IF PG_DEBUG <> 0 THEN
3900: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf'
3901: || to_char(l_stmt_num) || ':' ||
3902: substrb(sqlerrm, 1, 100),1);
3914: return;
3915:
3916: when OTHERS then
3917: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3918: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3919: IF PG_DEBUG <> 0 THEN
3920: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: '
3921: || to_char(l_stmt_num) || ':' ||
3922: substrb(sqlerrm, 1, 100));
3952: l_stmt_num number := 0;
3953: l_req_id number := 0;
3954: l_msg_name varchar2(30);
3955: l_msg_txt varchar2(2000);
3956: l_token CTO_MSG_PUB.token_tbl;
3957:
3958: BEGIN
3959:
3960: OE_STANDARD_WF.Set_Msg_Context(p_actid);
3988:
3989: --oe_debug_pub.add ('1. l_token(1).name = '|| l_token(1).token_name);
3990: --oe_debug_pub.add ('1. l_token(1).value = '|| l_token(1).token_value);
3991:
3992: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
3993: --fnd_message.set_token('REQUEST_ID', l_req_id);
3994:
3995: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
3996:
3991:
3992: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
3993: --fnd_message.set_token('REQUEST_ID', l_req_id);
3994:
3995: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
3996:
3997: OE_STANDARD_WF.Save_Messages;
3998: OE_STANDARD_WF.Clear_Msg_Context;
3999:
4047: l_stmt_num number := 0;
4048: l_req_id number := 0;
4049: l_msg_name varchar2(30);
4050: l_msg_txt varchar2(2000);
4051: l_token CTO_MSG_PUB.token_tbl;
4052:
4053: l_activity_status varchar2(100);
4054:
4055: l_conc_msg number := 0;
4124:
4125: --oe_debug_pub.add('l_token(1).token_name = '||l_token(1).token_name );
4126: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4127: IF l_conc_msg = 2 THEN
4128: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4129: ELSE
4130: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST_ID',l_token);
4131: END IF;
4132:
4126: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4127: IF l_conc_msg = 2 THEN
4128: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4129: ELSE
4130: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST_ID',l_token);
4131: END IF;
4132:
4133: --fnd_message.set_token('REQUEST_ID', l_req_id);
4134:
4131: END IF;
4132:
4133: --fnd_message.set_token('REQUEST_ID', l_req_id);
4134:
4135: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
4136:
4137: OE_STANDARD_WF.Save_Messages;
4138: OE_STANDARD_WF.Clear_Msg_Context;
4139:
4769: IF PG_DEBUG <> 0 THEN
4770: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4771: ||return_value ,1);
4772: END IF;
4773: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4774: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4775: end if;
4776:
4777:
4846: IF PG_DEBUG <> 0 THEN
4847: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4848: ||return_value ,1);
4849: END IF;
4850: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4851: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4852: end if;
4853:
4854: END IF;--run