-- API output variables x_rtg_header_rec bom_rtg_pub.rtg_header_rec_type; -- routing header record x_rtg_revision_tbl bom_rtg_pub.rtg_revision_tbl_type; -- routing revisions x_operation_tbl bom_rtg_pub.operation_tbl_type; -- routing operations x_op_resource_tbl bom_rtg_pub.op_resource_tbl_type; -- oepration resources x_sub_resource_tbl bom_rtg_pub.sub_resource_tbl_type; -- sub operation resources x_op_network_tbl bom_rtg_pub.op_network_tbl_type; -- operation networks x_message_list error_handler.error_tbl_type;
-- Other API variables l_return_status VARCHAR2(1 ) := NULL; l_msg_count NUMBER := 0 ; l_cnt NUMBER := 1 ;
-- WHO columns l_user_id NUMBER := -1 ; l_resp_id NUMBER := -1 ; l_application_id NUMBER := -1 ; l_row_cnt NUMBER := 1 ; l_user_name VARCHAR2(30 ) := 'HAND-GH';
BEGIN
-- Get the application_id and responsibility_id l_application_id := 702; l_resp_id := 50723;
-- Initialize applications information /*fnd_global.apps_initialize(l_user_id, l_resp_id, l_application_id); -- Mfg / Mfg & Dist Mgr / INV dbms_output.put_line('Initialized applications context: ' || l_user_id || ' ' || l_resp_id || ' ' || l_application_id);*/
-- Create the routing header l_rtg_header_rec.assembly_item_name := 'TEST01'; l_rtg_header_rec.organization_code := '101'; l_rtg_header_rec.alternate_routing_code := NULL; --l_rtg_header_rec.completion_subinventory := 'FGI';--200-ITR l_rtg_header_rec.transaction_type := 'UPDATE';
-- Create the routing operations -- operation 1 /* l_operation_tbl(l_cnt).assembly_item_name := 'TEST01'; l_operation_tbl(l_cnt).organization_code := '101'; l_operation_tbl(l_cnt).alternate_routing_code := NULL; l_operation_tbl(l_cnt).department_code := 'THCJ'; l_operation_tbl(l_cnt).operation_sequence_number := '20'; l_operation_tbl(l_cnt).operation_type := 1; l_operation_tbl(l_cnt).start_effective_date := SYSDATE; l_operation_tbl(l_cnt).standard_operation_code := 'TH'; --l_operation_tbl(l_cnt).yield := 0.87; l_operation_tbl(l_cnt).transaction_type := 'UPDATE'; l_operation_tbl(l_cnt).reference_flag := 2; l_operation_tbl(l_cnt).attribute1 := 'Y';*/ -- l_op_resource_tbl(l_cnt).assembly_item_name := 'TEST01'; l_op_resource_tbl(l_cnt).organization_code := '101'; l_op_resource_tbl(l_cnt).alternate_routing_code := NULL; l_op_resource_tbl(l_cnt).operation_sequence_number := '20'; l_op_resource_tbl(l_cnt).usage_rate_or_amount := 3; l_op_resource_tbl(l_cnt).transaction_type := 'UPDATE'; l_op_resource_tbl(l_cnt).resource_sequence_number := '10'; l_op_resource_tbl(l_cnt).op_start_effective_date := to_date( '2014/5/29 18:58:26'