[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:
1423: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
1424: raise;
1425:
1426: when OTHERS then
1427: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
1428: IF PG_DEBUG <> 0 THEN
1429: oe_debug_pub.add('create_config_item_wf: ' || 'CTO_WORKFLOW.create_config_item_wf' ||
1430: to_char(l_stmt_num) || ':' ||
1431: substrb(sqlerrm, 1, 100));
1499: l_config_item_name varchar2(200) ;
1500: lMatchProfile varchar2(10);
1501:
1502: l_partial_reservation boolean := FALSE ;
1503: l_token CTO_MSG_PUB.token_tbl;
1504:
1505: l_current_org_id Number;
1506:
1507: -- Bug 12374440
1813: l_token(3).token_name := 'SHIP_ORG';
1814: l_token(3).token_value := l_organization_name;
1815:
1816:
1817: cto_msg_pub.cto_message('BOM', 'CTO_RESERVATION_SUCCESS', l_token );
1818: --fnd_message.set_token('QUANTITY', l_quantity_to_reserve );
1819: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1820: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1821:
1818: --fnd_message.set_token('QUANTITY', l_quantity_to_reserve );
1819: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1820: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1821:
1822: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1823:
1824:
1825: OE_STANDARD_WF.Save_Messages;
1826: OE_STANDARD_WF.Clear_Msg_Context;
1841: else
1842: IF PG_DEBUG <> 0 THEN
1843: oe_debug_pub.add('create_reservation: ' || 'Failed in Create Reservation. ',1);
1844: END IF;
1845: cto_msg_pub.cto_message('BOM', l_x_error_msg ); /* BUGFIX#2342412 */
1846: raise RESERVATION_ERROR;
1847: end if;
1848:
1849: else
1922: l_token(1).token_value := l_config_item_name;
1923: l_token(2).token_name := 'SHIP_ORG';
1924: l_token(2).token_value := l_organization_name;
1925:
1926: cto_msg_pub.cto_message('BOM', 'CTO_RESERVATION_FAILURE', l_token);
1927: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1928: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1929:
1930: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1926: cto_msg_pub.cto_message('BOM', 'CTO_RESERVATION_FAILURE', l_token);
1927: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1928: --fnd_message.set_token('SHIP_ORG', l_organization_name );
1929:
1930: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1931:
1932: OE_STANDARD_WF.Save_Messages;
1933: OE_STANDARD_WF.Clear_Msg_Context;
1934:
1968:
1969: l_token(1).token_name := 'CONFIG_ITEM';
1970: l_token(1).token_value := l_config_item_name;
1971:
1972: cto_msg_pub.cto_message('BOM', 'CTO_CONFIG_MATCH', l_token);
1973: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1974:
1975: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1976:
1971:
1972: cto_msg_pub.cto_message('BOM', 'CTO_CONFIG_MATCH', l_token);
1973: --fnd_message.set_token('CONFIG_ITEM', l_config_item_name );
1974:
1975: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
1976:
1977: OE_STANDARD_WF.Save_Messages;
1978: OE_STANDARD_WF.Clear_Msg_Context;
1979:
2004:
2005:
2006: when NO_DATA_FOUND then
2007: --rollback to savepoint before_item_creation;
2008: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
2009: IF PG_DEBUG <> 0 THEN
2010: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation::ndf::' || to_char(l_stmt_num) );
2011: END IF;
2012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2037: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2038:
2039: when OTHERS then
2040: --rollback to savepoint before_item_creation;
2041: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_ITEM_ERROR');
2042: IF PG_DEBUG <> 0 THEN
2043: oe_debug_pub.add('create_reservation: ' || 'CTO_WORKFLOW.create_reservation' ||
2044: to_char(l_stmt_num) || ':' ||
2045: substrb(sqlerrm, 1, 100));
2318: l_stmt_num := 100;
2319: return_value:= CTO_WORKFLOW_API_PK.display_wf_status(to_number(p_itemkey));
2320:
2321: if return_value <> 1 then
2322: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
2323: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2324: end if;
2325:
2326: elsif ((l_ResultStatus=FALSE) and (l_return_status=FND_API.G_RET_STS_SUCCESS)) then
2481: ( 'CTO_WORKFLOW',
2482: 'check_inv_rsv_exists'
2483: );
2484: end if;
2485: cto_msg_pub.count_and_get
2486: (
2487: p_msg_count=>x_msg_count,
2488: p_msg_data=>x_msg_data
2489: );
2594: ( 'CTO_WORKFLOW',
2595: 'check_inv_rsv_exists'
2596: );
2597: end if;
2598: cto_msg_pub.count_and_get
2599: (
2600: p_msg_count=>x_msg_count,
2601: p_msg_data=>x_msg_data
2602: );
2749: p_itemtype, p_itemkey, to_char(p_actid), p_funcmode);
2750: raise;
2751:
2752: when OTHERS then
2753: cto_msg_pub.cto_message('BOM', 'CTO_CHECK_STATUS_ERROR');
2754: IF PG_DEBUG <> 0 THEN
2755: oe_debug_pub.add('check_reservation_status_wf: ' || 'CTO_WORKFLOW.check_reservation_status_wf ' ||
2756: to_char(l_stmt_num) || ':' ||
2757: substrb(sqlerrm, 1, 100));
2815: if (l_status = 0) then
2816: IF PG_DEBUG <> 0 THEN
2817: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Failure in cost_rollup ', 1);
2818: END IF;
2819: cto_msg_pub.cto_message('BOM', l_x_msg_data);
2820: raise UNEXP_ERROR;
2821: else
2822: IF PG_DEBUG <> 0 THEN
2823: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'Success in cost_rollup ', 1);
2849: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2850: to_char(l_stmt_num) || ':' ||
2851: substrb(sqlerrm, 1, 100),1);
2852: END IF;
2853: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2854: OE_STANDARD_WF.Save_Messages;
2855: OE_STANDARD_WF.Clear_Msg_Context;
2856:
2857: when OTHERS then
2854: OE_STANDARD_WF.Save_Messages;
2855: OE_STANDARD_WF.Clear_Msg_Context;
2856:
2857: when OTHERS then
2858: cto_msg_pub.cto_message('BOM', 'CTO_CALC_COST_ROLLUP_ERROR');
2859: IF PG_DEBUG <> 0 THEN
2860: oe_debug_pub.add('calculate_cost_rollup_wf_ml: ' || 'CTO_WORKFLOW.calculate_cost_rollup_wf ' ||
2861: to_char(l_stmt_num) || ':' ||
2862: substrb(sqlerrm, 1, 100),1);
2975: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2976: || to_char(l_stmt_num) || ':' ||
2977: substrb(sqlerrm, 1, 100),1);
2978: END IF;
2979: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2980: OE_STANDARD_WF.Save_Messages;
2981: OE_STANDARD_WF.Clear_Msg_Context;
2982:
2983: when OTHERS then
2980: OE_STANDARD_WF.Save_Messages;
2981: OE_STANDARD_WF.Clear_Msg_Context;
2982:
2983: when OTHERS then
2984: cto_msg_pub.cto_message('BOM', 'CTO_CALC_LEAD_TIME_ERROR');
2985: IF PG_DEBUG <> 0 THEN
2986: oe_debug_pub.add('set_parameter_lead_time_wf_ml: ' || 'CTO_WORKFLOW.set_parameter_lead_time_wf_ml'
2987: || to_char(l_stmt_num) || ':' ||
2988: substrb(sqlerrm, 1, 100),1);
3121: IF (v_x_hold_result_out = FND_API.G_TRUE) THEN
3122: IF PG_DEBUG <> 0 THEN
3123: oe_debug_pub.add('Check_supply_type_wf: ' || 'Order Line ID ' || p_itemkey || 'is on HOLD. ' ||v_x_hold_result_out, 1);
3124: END IF;
3125: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_ON_HOLD');
3126: x_result := 'COMPLETE:INCOMPLETE';
3127: return;
3128: END IF;
3129: END IF;
3390: Do not process the order if status is invalid or
3391: if a hold is found.
3392: +-----------------------------------------------------------*/
3393: if (validate_config_line(to_number(p_itemkey)) <> TRUE) then
3394: cto_msg_pub.cto_message('BOM','CTO_LINE_STATUS_NOT_ELIGIBLE');
3395: raise FND_API.G_EXC_ERROR;
3396: end if;
3397:
3398: --bugfix 1799874 start
3425: if (l_quantity <= 0) then
3426: IF PG_DEBUG <> 0 THEN
3427: oe_debug_pub.add('create_flow_schedule_wf: ' || 'l_quantity <= 0', 1);
3428: END IF;
3429: cto_msg_pub.cto_message('BOM','CTO_CREATE_FLOW_SCHED_ERROR');
3430: raise FND_API.G_EXC_ERROR;
3431: end if;
3432:
3433: l_stmt_num := 120;
3451: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Schedule ship date '||
3452: to_char(l_sch_ship_date)||',
3453: is earlier than sysdate');
3454: END IF;
3455: cto_msg_pub.cto_message('BOM', 'CTO_INVALID_SCH_DATE');
3456: x_result := 'COMPLETE:INCOMPLETE';
3457: return;
3458:
3459: end if;
3469: IF (l_x_return_status = FND_API.G_RET_STS_ERROR) THEN
3470: IF PG_DEBUG <> 0 THEN
3471: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Expected error in cto_fs. ', 1);
3472: END IF;
3473: cto_msg_pub.cto_message('BOM', l_msg_name);
3474: raise FND_API.G_EXC_ERROR;
3475:
3476: ELSIF (l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3477: IF PG_DEBUG <> 0 THEN
3476: ELSIF (l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3477: IF PG_DEBUG <> 0 THEN
3478: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Unexpected error in Create Flow Schedule for line id ' || p_itemkey, 1);
3479: END IF;
3480: cto_msg_pub.cto_message('BOM', l_msg_name);
3481: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3482:
3483: END IF;
3484:
3497: else
3498: IF PG_DEBUG <> 0 THEN
3499: oe_debug_pub.add('create_flow_schedule_wf: ' || 'Flow schedules not created');
3500: END IF;
3501: cto_msg_pub.cto_message('BOM', 'CTO_NO_FLOW_SCHEDULE');
3502: x_result := 'COMPLETE:INCOMPLETE';
3503: return;
3504: end if;
3505: end if; /* p_funcmode = 'RUN' */
3525: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3526: || to_char(l_stmt_num) || ':' ||
3527: substrb(sqlerrm, 1, 100),1);
3528: END IF;
3529: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3530: OE_STANDARD_WF.Save_Messages;
3531: OE_STANDARD_WF.Clear_Msg_Context;
3532: x_result := 'COMPLETE:INCOMPLETE';
3533: rollback to savepoint before_process;
3542: OE_STANDARD_WF.Clear_Msg_Context;
3543: raise;
3544:
3545: when OTHERS then
3546: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_FLOW_SCHED_ERROR');
3547: IF PG_DEBUG <> 0 THEN
3548: oe_debug_pub.add('create_flow_schedule_wf: ' || 'CTO_WORKFLOW.create_flow_schedule_wf '
3549: || to_char(l_stmt_num) || ':' ||
3550: substrb(sqlerrm, 1, 250),1);
3823: if (l_quantity <= 0) then
3824: IF PG_DEBUG <> 0 THEN
3825: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'Ordered quantity is zero.', 1);
3826: END IF;
3827: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3828: raise FND_API.G_EXC_ERROR;
3829: end if;
3830:
3831: l_stmt_num := 101;
3858: -- begin bugfix 2053360: handle the record_locked exception
3859: --
3860:
3861: when record_locked then
3862: cto_msg_pub.cto_message('BOM', 'CTO_ORDER_LINE_LOCKED');
3863: IF PG_DEBUG <> 0 THEN
3864: OE_DEBUG_PUB.add ('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: Could not lock line id '||
3865: p_itemkey ||' for update.');
3866:
3887:
3888:
3889: when FND_API.G_EXC_UNEXPECTED_ERROR then
3890: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3891: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3892: IF PG_DEBUG <> 0 THEN
3893: OE_DEBUG_PUB.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf raised unexc error. ' ||
3894: to_char(l_stmt_num) );
3895: END IF;
3919: END;
3920:
3921: IF l_build_in_wip = 'N' THEN
3922: --set the build in wip flag
3923: cto_msg_pub.cto_message('BOM', 'CTO_BUILD_IN_WIP_FLAG');
3924: IF PG_DEBUG <> 0 THEN
3925: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf:'
3926: ||'ERROR : Buld_in_wip_flag needs to be checked',1 );
3927: END IF;
3927: END IF;
3928:
3929: ELSE--no_data_found is for someother reason
3930:
3931: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3932: IF PG_DEBUG <> 0 THEN
3933: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf'
3934: || to_char(l_stmt_num) || ':' ||
3935: substrb(sqlerrm, 1, 100),1);
3947: return;
3948:
3949: when OTHERS then
3950: unlock_line_id (p_itemkey, x_result); -- bugfix 3136206
3951: cto_msg_pub.cto_message('BOM', 'CTO_CREATE_WORK_ORDER_ERROR');
3952: IF PG_DEBUG <> 0 THEN
3953: oe_debug_pub.add('set_parameter_work_order_wf: ' || 'CTO_WORKFLOW.set_parameter_work_order_wf: '
3954: || to_char(l_stmt_num) || ':' ||
3955: substrb(sqlerrm, 1, 100));
3985: l_stmt_num number := 0;
3986: l_req_id number := 0;
3987: l_msg_name varchar2(30);
3988: l_msg_txt varchar2(2000);
3989: l_token CTO_MSG_PUB.token_tbl;
3990: l_cnt number; --bug 9679523
3991:
3992: BEGIN
3993:
4074:
4075: --oe_debug_pub.add ('1. l_token(1).name = '|| l_token(1).token_name);
4076: --oe_debug_pub.add ('1. l_token(1).value = '|| l_token(1).token_value);
4077:
4078: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
4079: --fnd_message.set_token('REQUEST_ID', l_req_id);
4080:
4081: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
4082:
4077:
4078: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST', l_token);
4079: --fnd_message.set_token('REQUEST_ID', l_req_id);
4080:
4081: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
4082:
4083: OE_STANDARD_WF.Save_Messages;
4084: OE_STANDARD_WF.Clear_Msg_Context;
4085:
4133: l_stmt_num number := 0;
4134: l_req_id number := 0;
4135: l_msg_name varchar2(30);
4136: l_msg_txt varchar2(2000);
4137: l_token CTO_MSG_PUB.token_tbl;
4138:
4139: l_activity_status varchar2(100);
4140:
4141: l_conc_msg number := 0;
4210:
4211: --oe_debug_pub.add('l_token(1).token_name = '||l_token(1).token_name );
4212: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4213: IF l_conc_msg = 2 THEN
4214: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4215: ELSE
4216: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST_ID',l_token);
4217: END IF;
4218:
4212: --oe_debug_pub.add('l_token(1).token_value = '||l_token(1).token_value );
4213: IF l_conc_msg = 2 THEN
4214: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST',l_token);
4215: ELSE
4216: cto_msg_pub.cto_message('BOM', 'CTO_CONCURRENT_REQUEST_ID',l_token);
4217: END IF;
4218:
4219: --fnd_message.set_token('REQUEST_ID', l_req_id);
4220:
4217: END IF;
4218:
4219: --fnd_message.set_token('REQUEST_ID', l_req_id);
4220:
4221: l_token := CTO_MSG_PUB.G_MISS_TOKEN_TBL; -- initialize
4222:
4223: OE_STANDARD_WF.Save_Messages;
4224: OE_STANDARD_WF.Clear_Msg_Context;
4225:
4868: IF PG_DEBUG <> 0 THEN
4869: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4870: ||return_value ,1);
4871: END IF;
4872: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4873: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4874: end if;
4875:
4876:
4945: IF PG_DEBUG <> 0 THEN
4946: oe_debug_pub.add('check_supply_creation_wf: ' || 'return value from display_wf_status'
4947: ||return_value ,1);
4948: END IF;
4949: cto_msg_pub.cto_message('CTO', 'CTO_ERROR_FROM_DISPLAY_STATUS');
4950: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4951: end if;
4952:
4953: END IF;--run