[Home] [Help]
762: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
763: fnd_message.set_token('FLD_NAME', p_field);
764: l_err_msg := fnd_message.get;
765: v_wlji_err_msg(v_idx) := l_err_msg;
766: fnd_file.put_line(fnd_file.log,
767: 'Error: (stmt_num: '|| stmt_number ||') '||l_err_msg||' '||p_aux_string);
768: fnd_file.new_line(fnd_file.log, 3);
769: END handle_invalid_field;
770:
764: l_err_msg := fnd_message.get;
765: v_wlji_err_msg(v_idx) := l_err_msg;
766: fnd_file.put_line(fnd_file.log,
767: 'Error: (stmt_num: '|| stmt_number ||') '||l_err_msg||' '||p_aux_string);
768: fnd_file.new_line(fnd_file.log, 3);
769: END handle_invalid_field;
770:
771:
772:
789: v_wlji_err_code(v_idx) := -1;
790: fnd_message.set_name(p_product, p_message_name);
791: l_err_msg := fnd_message.get;
792: v_wlji_err_msg(v_idx) := l_err_msg;
793: fnd_file.put_line(fnd_file.log,
794: 'Error: (stmt_num: '|| stmt_number||') '||l_err_msg);
795: fnd_file.new_line(fnd_file.log, 3);
796: END handle_errmsg_name;
797:
791: l_err_msg := fnd_message.get;
792: v_wlji_err_msg(v_idx) := l_err_msg;
793: fnd_file.put_line(fnd_file.log,
794: 'Error: (stmt_num: '|| stmt_number||') '||l_err_msg);
795: fnd_file.new_line(fnd_file.log, 3);
796: END handle_errmsg_name;
797:
798:
799:
807: BEGIN
808: v_wlji_process_status(v_idx) := 3; -- ERROR
809: v_wlji_err_code(v_idx) := p_err_code;
810: v_wlji_err_msg(v_idx) := substr(p_err_msg,1,2000);
811: fnd_file.put_line(fnd_file.log,
812: 'Error: (stmt_num: ' || stmt_number||') '||p_err_msg);
813: fnd_file.new_line(fnd_file.log, 3);
814: END handle_error;
815:
809: v_wlji_err_code(v_idx) := p_err_code;
810: v_wlji_err_msg(v_idx) := substr(p_err_msg,1,2000);
811: fnd_file.put_line(fnd_file.log,
812: 'Error: (stmt_num: ' || stmt_number||') '||p_err_msg);
813: fnd_file.new_line(fnd_file.log, 3);
814: END handle_error;
815:
816:
817: -- **********************************************************************************************
827: dummy_err_code number;
828: dummy_err_msg varchar2(2000);
829:
830: BEGIN
831: fnd_file.put_line(fnd_file.log, 'Warning: ' || p_err_msg);
832: wsmputil.WRITE_TO_WIE (
833: p_header_id,
834: substr(p_err_msg,1,2000),
835: p_request_id,
2166: v_wljdi_resource_seq_num(l_d) := NULL;
2167: v_wljdi_instance_id_new(l_d) := NULL;
2168: v_wljdi_serial_number_new(l_d) := NULL;
2169: if lbji_debug = 'Y' then
2170: fnd_file.put_line(fnd_file.log,
2171: 'Ignore the following fields for load_type 2: substitute_group_num, '
2172: || 'replacement_group_num, resource_id_new, resource_seq_num, '
2173: || 'instance_id_new, serial_number_new');
2174: end if;
2620: fnd_message.set_token('FLD_NAME', 'load_type and substitution_type');
2621: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2622: || fnd_message.get;
2623: p_error_code := -1;
2624: fnd_file.put_line(fnd_file.log, substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2625:
2626: when e_invalid_op_seq_num then
2627: fnd_message.set_name('WSM','WSM_NULL_FIELD');
2628: fnd_message.set_token('FLD_NAME', 'job_op_seq_num and routing_op_seq_num');
2628: fnd_message.set_token('FLD_NAME', 'job_op_seq_num and routing_op_seq_num');
2629: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2630: || fnd_message.get;
2631: p_error_code := -1;
2632: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '
2633: || p_error_msg, 1, 2000));
2634:
2635: when e_invalid_resource_code then
2636: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2637: fnd_message.set_token('FLD_NAME', 'resource_code_new');
2638: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2639: || fnd_message.get;
2640: p_error_code := -1;
2641: fnd_file.put_line(fnd_file.log,
2642: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2643: || p_error_msg, 1, 2000));
2644:
2645: /* ST : Detailed Scheduling start */
2649: fnd_message.set_token('FLD_NAME', 'resource_id_new');
2650: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2651: || fnd_message.get;
2652: p_error_code := -1;
2653: fnd_file.put_line(fnd_file.log,
2654: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2655: || p_error_msg, 1, 2000));
2656:
2657: when e_invalid_dept_code then
2659: fnd_message.set_token('FLD_NAME', 'department_code/department id combination');
2660: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2661: || fnd_message.get;
2662: p_error_code := -1;
2663: fnd_file.put_line(fnd_file.log,
2664: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2665: || p_error_msg, 1, 2000));
2666:
2667: /* ST : Detailed Scheduling end */
2671: fnd_message.set_token('FLD_NAME', 'item_id');
2672: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2673: || fnd_message.get;
2674: p_error_code := -1;
2675: fnd_file.put_line(fnd_file.log,
2676: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2677: || p_error_msg, 1, 2000));
2678:
2679: when e_no_res_seq_num then
2679: when e_no_res_seq_num then
2680: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2681: || 'resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
2682: p_error_code := -1;
2683: fnd_file.put_line(fnd_file.log,
2684: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2685: || p_error_msg, 1, 2000));
2686:
2687: when e_wljdi_common_error then
2684: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2685: || p_error_msg, 1, 2000));
2686:
2687: when e_wljdi_common_error then
2688: fnd_file.put_line(fnd_file.log,
2689: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2690: || p_error_msg, 1, 2000));
2691:
2692: when e_invalid_setup_code then
2694: fnd_message.set_token('FLD_NAME', 'Setup Code ');
2695: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2696: || fnd_message.get;
2697: p_error_code := -1;
2698: fnd_file.put_line(fnd_file.log,
2699: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2700: || p_error_msg, 1, 2000));
2701:
2702: ---Added for LBJ Enhancement
2706: fnd_message.set_token('FLD_NAME', 'resource_seq_num/job_op_seq_num combination');
2707: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2708: || fnd_message.get;
2709: p_error_code := -1;
2710: fnd_file.put_line(fnd_file.log,
2711: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2712: || p_error_msg, 1, 2000));
2713:
2714: when e_invalid_res_seq_num then
2716: fnd_message.set_token('FLD_NAME', 'resource_seq_num/job_op_seq_num combination');
2717: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2718: || fnd_message.get;
2719: p_error_code := -1;
2720: fnd_file.put_line(fnd_file.log,
2721: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2722: || p_error_msg, 1, 2000));
2723: when e_inv_std_op then
2724: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2724: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2725: fnd_message.set_token('FLD_NAME', 'standard_operation_id/standard_operation_code combination');
2726: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2727: p_error_code := -1;
2728: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2729: when e_invalid_min_trf_qty then
2730: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2731: fnd_message.set_token('FLD_NAME', 'minimum_transfer_quantity');
2732: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2730: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2731: fnd_message.set_token('FLD_NAME', 'minimum_transfer_quantity');
2732: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2733: p_error_code := -1;
2734: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2735: when e_invalid_count_point then
2736: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2737: fnd_message.set_token('FLD_NAME', 'count_point_type');
2738: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2736: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2737: fnd_message.set_token('FLD_NAME', 'count_point_type');
2738: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2739: p_error_code := -1;
2740: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2741: when e_invalid_backflush_flag then
2742: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2743: fnd_message.set_token('FLD_NAME', 'backflush_flag');
2744: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2742: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2743: fnd_message.set_token('FLD_NAME', 'backflush_flag');
2744: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2745: p_error_code := -1;
2746: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2747: when e_dup_op_seq then
2748: fnd_message.set_name('WSM','WSM_INVALID_OPERATION');
2749: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2750: p_error_code := -1;
2747: when e_dup_op_seq then
2748: fnd_message.set_name('WSM','WSM_INVALID_OPERATION');
2749: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2750: p_error_code := -1;
2751: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2752: when e_invalid_op_date then
2753: fnd_message.set_name('WSM','WSM_OP_BAD_DATES');
2754: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2755: p_error_code := -1;
2752: when e_invalid_op_date then
2753: fnd_message.set_name('WSM','WSM_OP_BAD_DATES');
2754: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2755: p_error_code := -1;
2756: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2757: when e_invalid_routing_op_seq then
2758: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2759: fnd_message.set_token('FLD_NAME', 'Routing_op_seq_num');
2760: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2758: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2759: fnd_message.set_token('FLD_NAME', 'Routing_op_seq_num');
2760: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2761: p_error_code := -1;
2762: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2763: when e_invalid_job_op_seq then
2764: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2765: fnd_message.set_token('FLD_NAME', 'Job_op_seq_num');
2766: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2764: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2765: fnd_message.set_token('FLD_NAME', 'Job_op_seq_num');
2766: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2767: p_error_code := -1;
2768: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2769:
2770: when others then
2771: p_error_code := -1;
2772: p_error_msg := 'Error: default_wljdi_fields: (#'||
3227: l_app_res_units := 0;
3228: l_res_seq_num := p_v_res(l_i).res_seq_num ;
3229:
3230: IF lbji_debug = 'Y' then
3231: fnd_file.put_line(fnd_file.log,'Validate_op_resource : l_rtg_op_seq_num : '|| l_rtg_op_seq_num || ' job op seq num ' || l_job_op_seq_num);
3232: END IF;
3233:
3234: -- get op start/completion date
3235: if( p_handle_wip_cur_op = 'Y') then
3253: and operation_seq_num = l_rtg_op_seq_num;
3254: end if;
3255:
3256: IF lbji_debug = 'Y' then
3257: fnd_file.put_line(fnd_file.log,'Validate_op_resource : ');
3258: END IF;
3259:
3260: if(p_substitution_type = 3) then -- update only
3261: l_resource_id := p_v_res(l_i).resource_id;
4222: when e_invalid_resource then
4223: x_error_code := -1;
4224: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
4225: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4226: fnd_file.put_line(fnd_file.log,x_error_msg );
4227:
4228: when e_invalid_rpl_grp then
4229: x_error_code := -1;
4230: fnd_message.set_name('WSM','WSM_RES_PARTIAL_RPLGRP');
4228: when e_invalid_rpl_grp then
4229: x_error_code := -1;
4230: fnd_message.set_name('WSM','WSM_RES_PARTIAL_RPLGRP');
4231: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4232: fnd_file.put_line(fnd_file.log,x_error_msg );
4233:
4234: when e_invalid_date then
4235: x_error_code := -1;
4236: fnd_message.set_name('WSM','WSM_RES_BAD_DATES');
4234: when e_invalid_date then
4235: x_error_code := -1;
4236: fnd_message.set_name('WSM','WSM_RES_BAD_DATES');
4237: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4238: fnd_file.put_line(fnd_file.log,x_error_msg );
4239:
4240: /* ST : Detailed Scheduling start */
4241: when e_invalid_max_assg_units then
4242: x_error_code := -1;
4241: when e_invalid_max_assg_units then
4242: x_error_code := -1;
4243: fnd_message.set_name('WSM','WSM_INVALID_MAX_ASSG');
4244: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4245: fnd_file.put_line(fnd_file.log,x_error_msg );
4246:
4247: when e_invalid_setup_max_assg_units then
4248: x_error_code := -1;
4249: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
4247: when e_invalid_setup_max_assg_units then
4248: x_error_code := -1;
4249: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
4250: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4251: fnd_file.put_line(fnd_file.log,x_error_msg );
4252:
4253: when e_invalid_seq then
4254: x_error_code := -1;
4255: fnd_message.set_name('WSM','WSM_INVALID_SEQ'); /* group seq nyum and group seq id... */
4253: when e_invalid_seq then
4254: x_error_code := -1;
4255: fnd_message.set_name('WSM','WSM_INVALID_SEQ'); /* group seq nyum and group seq id... */
4256: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4257: fnd_file.put_line(fnd_file.log,x_error_msg );
4258:
4259: when e_invalid_batch_max_assg_units then
4260: x_error_code := -1;
4261: fnd_message.set_name('WSM','WSM_INVALID_BATCH_MAX_ASSG');
4259: when e_invalid_batch_max_assg_units then
4260: x_error_code := -1;
4261: fnd_message.set_name('WSM','WSM_INVALID_BATCH_MAX_ASSG');
4262: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4263: fnd_file.put_line(fnd_file.log,x_error_msg );
4264:
4265: when e_invalid_setup_id then
4266: x_error_code := -1;
4267: --fnd_message.set_name('WSM','WSM_INVALID_SETUP');
4267: --fnd_message.set_name('WSM','WSM_INVALID_SETUP');
4268: fnd_message.set_name('WSM','WSM_INVALID_FIELD'); /*Bug 5488082*/
4269: fnd_message.set_token('FLD_NAME', ' setup_id ');
4270: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4271: fnd_file.put_line(fnd_file.log,x_error_msg );
4272:
4273: when e_invalid_firm_type then
4274: x_error_code := -1;
4275: /* add the error message..... */
4275: /* add the error message..... */
4276: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4277: fnd_message.set_token('FLD_NAME', ' firm type ');
4278: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4279: fnd_file.put_line(fnd_file.log,x_error_msg );
4280:
4281: when e_res_not_batchable then
4282: x_error_code := -1;
4283: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4284: --fnd_message.set_token('FLD_NAME', ' batch id for resource');
4285: fnd_message.set_token('FLD_NAME', ' batch_id'); /*Bug 5487540 */
4286: --x_error_msg := fnd_message.get;
4287: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4288: fnd_file.put_line(fnd_file.log,x_error_msg );
4289:
4290: when e_invalid_setup_code then
4291: x_error_code := -1;
4292: /* add the error message..... */
4292: /* add the error message..... */
4293: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4294: fnd_message.set_token('FLD_NAME', 'Setup Code ');
4295: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4296: fnd_file.put_line(fnd_file.log,x_error_msg );
4297:
4298: /* ST : Detailed Scheduling end */
4299:
4300: --Alcoa Enhancements Changes
4308: x_error_code := -1;
4309: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4310: fnd_message.set_token('FLD_NAME', 'Assigned_units');
4311: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4312: fnd_file.put_line(fnd_file.log,x_error_msg );
4313:
4314: when e_inv_appl_res_units THEN
4315: x_error_code := -1;
4316: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4331: x_error_code := -1;
4332: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4333: fnd_message.set_token('FLD_NAME', 'substitution_group_num');
4334: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4335: fnd_file.put_line(fnd_file.log,x_error_msg );
4336:
4337: when e_invalid_res_reco_flag then
4338: x_error_code := -1;
4339: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4338: x_error_code := -1;
4339: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4340: fnd_message.set_token('FLD_NAME', 'recommended_flag');
4341: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4342: fnd_file.put_line(fnd_file.log,x_error_msg );
4343:
4344: when e_inv_res_basis_type then
4345: x_error_code := -1;
4346: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4345: x_error_code := -1;
4346: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4347: fnd_message.set_token('FLD_NAME', 'basis_type');
4348: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4349: fnd_file.put_line(fnd_file.log,x_error_msg );
4350:
4351: when e_inv_res_charge_type then
4352: x_error_code := -1;
4353: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
4351: when e_inv_res_charge_type then
4352: x_error_code := -1;
4353: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
4354: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4355: fnd_file.put_line(fnd_file.log,x_error_msg );
4356:
4357: when e_inv_res_sch_flag then
4358: x_error_code := -1;
4359: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4358: x_error_code := -1;
4359: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4360: fnd_message.set_token('FLD_NAME', 'scheduled_flag');
4361: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4362: fnd_file.put_line(fnd_file.log,x_error_msg );
4363:
4364: when e_invalid_res_seq_num then
4365: x_error_code := -1;
4366: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4365: x_error_code := -1;
4366: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4367: fnd_message.set_token('FLD_NAME', 'resource_seq_num');
4368: x_error_msg := fnd_message.get;
4369: fnd_file.put_line(fnd_file.log,x_error_msg );
4370:
4371: when e_invalid_usg_rate then
4372: x_error_code := -1;
4373: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4372: x_error_code := -1;
4373: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4374: fnd_message.set_token('FLD_NAME', 'usage_rate_or_amount');
4375: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4376: fnd_file.put_line(fnd_file.log,x_error_msg );
4377:
4378: when e_invalid_res_dept THEN
4379: x_error_code := -1;
4380: fnd_message.set_name('WSM','WSM_INVALID_RES_DEPT');
4384: x_error_code := -1;
4385: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4386: fnd_message.set_token('FLD_NAME', 'Autocharge_type');
4387: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4388: fnd_file.put_line(fnd_file.log,x_error_msg );
4389:
4390: when others then
4391: x_error_code := -1;
4392: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') '
4391: x_error_code := -1;
4392: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') '
4393: || SUBSTR(SQLERRM, 1,240);
4394:
4395: fnd_file.put_line(fnd_file.log,x_error_msg );
4396:
4397: END validate_wljdi_op_resource;
4398:
4399:
4459: x_error_msg := '';
4460: l_i := p_v_res_ins.first;
4461:
4462: IF lbji_debug = 'Y' then
4463: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance start ...');
4464: END IF;
4465:
4466:
4467: if(l_i IS NULL) then return; end if;
4473:
4474: -- ST : Bug fix 4240165 : Detailed Scheduling changes start
4475: IF l_res_seq_num IS NULL THEN
4476: IF lbji_debug = 'Y' then
4477: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : Setup resopurce : '
4478: || ' Parent_res_seq_num : ' || p_parent_res_seq_num
4479: || ' Parent res ID : ' || p_resource_id
4480: || ' l_rtg_op_seq_num : ' || l_rtg_op_seq_num);
4481: END IF;
4495:
4496: EXCEPTION
4497: WHEN NO_DATA_FOUND THEN
4498: IF lbji_debug = 'Y' then
4499: fnd_file.put_line(fnd_file.log,' No Resource...');
4500: END IF;
4501: raise e_no_res_seq_num;
4502: WHEN TOO_MANY_ROWS THEN
4503: IF lbji_debug = 'Y' then
4500: END IF;
4501: raise e_no_res_seq_num;
4502: WHEN TOO_MANY_ROWS THEN
4503: IF lbji_debug = 'Y' then
4504: fnd_file.put_line(fnd_file.log,' No Unique Resource...');
4505: END IF;
4506: raise e_no_res_seq_num;
4507: END;
4508: ELSE
4614: null;
4615: END;
4616:
4617: IF lbji_debug = 'Y' then
4618: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : handling curr op : l_rtg_op_seq_num ' || l_rtg_op_seq_num || ' resource seq num : '|| l_res_seq_num || ' wip entity id : ' || p_wip_entity_id);
4619: END IF;
4620:
4621: if(l_res_recommended <> 'Y') then
4622: raise e_res_not_reco;
4624:
4625: else -- p_handle_wip_cur_op = 'Y'
4626:
4627: IF lbji_debug = 'Y' then
4628: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : handling curr op : job op seq num ' || l_job_op_seq_num || ' resource seq num : '|| l_res_seq_num || ' wip entity id : ' || p_wip_entity_id);
4629: END IF;
4630:
4631: BEGIN
4632: l_stmt_num := 30.2;
4653: raise e_invalid_res_seq_num;
4654: END;
4655:
4656: IF lbji_debug = 'Y' then
4657: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4658: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4659: END IF;
4660:
4661: END IF;
4654: END;
4655:
4656: IF lbji_debug = 'Y' then
4657: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4658: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4659: END IF;
4660:
4661: END IF;
4662:
4673:
4674: l_stmt_num := 40.1;
4675:
4676: IF lbji_debug = 'Y' then
4677: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : op seq num ' || l_rtg_op_seq_num || ' res seq num : ' || l_res_seq_num);
4678: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_sdate,'DD-MON-YYYY HH24:MI:SS'));
4679: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_edate,'DD-MON-YYYY HH24:MI:SS'));
4680: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4681: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4674: l_stmt_num := 40.1;
4675:
4676: IF lbji_debug = 'Y' then
4677: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : op seq num ' || l_rtg_op_seq_num || ' res seq num : ' || l_res_seq_num);
4678: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_sdate,'DD-MON-YYYY HH24:MI:SS'));
4679: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_edate,'DD-MON-YYYY HH24:MI:SS'));
4680: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4681: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4682: END IF;
4675:
4676: IF lbji_debug = 'Y' then
4677: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : op seq num ' || l_rtg_op_seq_num || ' res seq num : ' || l_res_seq_num);
4678: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_sdate,'DD-MON-YYYY HH24:MI:SS'));
4679: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_edate,'DD-MON-YYYY HH24:MI:SS'));
4680: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4681: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4682: END IF;
4683:
4676: IF lbji_debug = 'Y' then
4677: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : op seq num ' || l_rtg_op_seq_num || ' res seq num : ' || l_res_seq_num);
4678: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_sdate,'DD-MON-YYYY HH24:MI:SS'));
4679: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_edate,'DD-MON-YYYY HH24:MI:SS'));
4680: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4681: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4682: END IF;
4683:
4684: -- check instance_id and serial_number
4677: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : op seq num ' || l_rtg_op_seq_num || ' res seq num : ' || l_res_seq_num);
4678: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' start date : ' || to_char(l_sdate,'DD-MON-YYYY HH24:MI:SS'));
4679: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' end date : ' || to_char(l_edate,'DD-MON-YYYY HH24:MI:SS'));
4680: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource start date : ' || to_char(l_res_sdate,'DD-MON-YYYY HH24:MI:SS'));
4681: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource end date : ' || to_char(l_res_edate,'DD-MON-YYYY HH24:MI:SS'));
4682: END IF;
4683:
4684: -- check instance_id and serial_number
4685: if(l_instance_id IS NULL ) then
4686: raise e_null_ins_id;
4687: end if;
4688: l_stmt_num := 40.2;
4689: IF lbji_debug = 'Y' then
4690: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' Resource id : ' || l_resource_id || ' Instance id : ' || l_instance_id || ' serial number : ' || l_serial_number);
4691: END IF;
4692:
4693: BEGIN
4694: /* Modified SQL for Bug 5476647. Since the SQL before was checking only whether the given instance
4762: when e_res_not_reco then
4763: x_error_code := -1;
4764: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
4765: x_error_msg := fnd_message.get;
4766: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4767:
4768: when e_not_on_reco_path then
4769: x_error_code := -1;
4770: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
4768: when e_not_on_reco_path then
4769: x_error_code := -1;
4770: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
4771: x_error_msg := fnd_message.get;
4772: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4773:
4774:
4775: when e_invalid_rtg_op_seq then
4776: x_error_code := -1;
4777: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4778: fnd_message.set_token('FLD_NAME', 'routing_op_seq_num');
4779: x_error_msg := fnd_message.get;
4780:
4781: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4782:
4783:
4784: when e_invalid_res_seq_num then
4785: x_error_code := -1;
4785: x_error_code := -1;
4786: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
4787: x_error_msg := fnd_message.get;
4788:
4789: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4790:
4791:
4792: when e_ins_not_exists then
4793: x_error_code := -1;
4793: x_error_code := -1;
4794: fnd_message.set_name('WSM','WSM_INS_NOT_EXISTS');
4795: x_error_msg := fnd_message.get;
4796:
4797: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4798:
4799:
4800: when e_null_ins_id then
4801: x_error_code := -1;
4802: fnd_message.set_name('WSM','WSM_NULL_FIELD');
4803: fnd_message.set_token('FLD_NAME', 'Instance_id');
4804: x_error_msg := fnd_message.get;
4805:
4806: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4807:
4808:
4809: when e_invalid_ins_id then
4810: x_error_code := -1;
4811: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4812: fnd_message.set_token('FLD_NAME', 'Instance_id and Serial_number');
4813: x_error_msg := fnd_message.get;
4814:
4815: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4816:
4817:
4818: when e_null_date then
4819: x_error_code := -1;
4820: fnd_message.set_name('WSM','WSM_NULL_FIELD');
4821: fnd_message.set_token('FLD_NAME', 'Start date and Completion date');
4822: x_error_msg := fnd_message.get;
4823:
4824: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4825:
4826:
4827: when e_invalid_date then
4828: x_error_code := -1;
4829: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4830: fnd_message.set_token('FLD_NAME', 'Resource instance scheduled dates');
4831: x_error_msg := fnd_message.get;
4832:
4833: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4834:
4835:
4836: when e_invalid_time_slot then
4837: x_error_code := -1;
4837: x_error_code := -1;
4838: fnd_message.set_name('WSM','WSM_INS_BAD_TIME_SLOT');
4839: x_error_msg := fnd_message.get;
4840:
4841: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4842:
4843: -- ST : Detailed Scheduling...
4844: when e_no_res_seq_num then
4845: x_error_msg := 'resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
4843: -- ST : Detailed Scheduling...
4844: when e_no_res_seq_num then
4845: x_error_msg := 'resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
4846: x_error_code := -1;
4847: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4848: -- ST : Detailed Scheduling...
4849:
4850: when others then
4851: x_error_code := -1;
4851: x_error_code := -1;
4852: x_error_msg := 'Error: validate_wljdi_res_instance: (#'||l_stmt_num||') '
4853: || SUBSTR(SQLERRM, 1,2000);
4854:
4855: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4856:
4857:
4858: END validate_wljdi_res_instance;
4859:
5113: -- check if the resource has instance information
5114: l_exists := 0;
5115: -- Code for debug purpose.... ---- -- to uncomment replace all
5116: IF lbji_debug = 'Y' then
5117: fnd_file.put_line(fnd_file.log,'Wip entity id : ' || p_wip_entity_id
5118: || ' op seq num : ' || l_job_op_seq_num
5119: || ' res seq num : ' ||l_res_seq_num
5120: );
5121: END IF;
5210: if(l_sdate > l_edate or -- bug 3323417, was >=
5211: l_sdate < NVL(l_the_sdate, l_sdate) or
5212: l_edate > NVL(l_the_edate, l_edate))
5213: then
5214: --fnd_file.put_line(fnd_file.log, 'CZHDBG: XXX'
5215: -- || ' l_the_sdate = ' || TO_CHAR(l_the_sdate, 'DD-MON-YYYY HH24:MI:SS')
5216: -- || ',l_the_edate = ' || TO_CHAR(l_the_edate, 'DD-MON-YYYY HH24:MI:SS')
5217: -- || ' l_sdate = ' || TO_CHAR(l_sdate, 'DD-MON-YYYY HH24:MI:SS')
5218: -- || ' l_edate = ' || TO_CHAR(l_edate, 'DD-MON-YYYY HH24:MI:SS')
5279: when e_not_on_reco_path then
5280: x_error_code := -1;
5281: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
5282: x_error_msg := fnd_message.get;
5283: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5284:
5285: when e_res_not_reco then
5286: x_error_code := -1;
5287: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
5285: when e_res_not_reco then
5286: x_error_code := -1;
5287: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
5288: x_error_msg := fnd_message.get;
5289: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5290:
5291: when e_invalid_rtg_op_seq then
5292: x_error_code := -1;
5293: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5292: x_error_code := -1;
5293: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5294: fnd_message.set_token('FLD_NAME', 'routing_op_seq_num');
5295: x_error_msg := fnd_message.get;
5296: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5297:
5298: when e_invalid_res_seq_num then
5299: x_error_code := -1;
5300: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
5298: when e_invalid_res_seq_num then
5299: x_error_code := -1;
5300: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
5301: x_error_msg := fnd_message.get;
5302: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5303:
5304: when e_instances_exist then
5305: x_error_code := -1;
5306: fnd_message.set_name('WSM','WSM_INS_EXISTS');
5304: when e_instances_exist then
5305: x_error_code := -1;
5306: fnd_message.set_name('WSM','WSM_INS_EXISTS');
5307: x_error_msg := fnd_message.get;
5308: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5309:
5310: when e_invalid_instance_id then
5311: x_error_code := -1;
5312: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5312: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5313: --fnd_message.set_token('FLD_NAME', ' l_stmt_num : ' || l_stmt_num || ' Resource_seq_num / Instance_id / Serial_number');
5314: fnd_message.set_token('FLD_NAME', ' Resource_seq_num / Instance_id / Serial_number'); /*Bug 5488016 */
5315: x_error_msg := fnd_message.get;
5316: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5317:
5318: when e_invalid_asgned_units then
5319: x_error_code := -1;
5320: fnd_message.set_name('WSM','WSM_USE_BAD_ASGN_UNITS');
5318: when e_invalid_asgned_units then
5319: x_error_code := -1;
5320: fnd_message.set_name('WSM','WSM_USE_BAD_ASGN_UNITS');
5321: x_error_msg := fnd_message.get;
5322: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5323:
5324: /* ST : Detailed Scheduling start */
5325: when e_invalid_ins_assigned_units then
5326: x_error_code := -1;
5325: when e_invalid_ins_assigned_units then
5326: x_error_code := -1;
5327: fnd_message.set_name('WSM','WSM_INVALID_INS_ASSG_UNITS');
5328: x_error_msg := fnd_message.get;
5329: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5330:
5331: when e_no_res_seq_num then
5332: x_error_msg := 'validate_wljdi_res_usage : resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
5333: x_error_code := -1;
5330:
5331: when e_no_res_seq_num then
5332: x_error_msg := 'validate_wljdi_res_usage : resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
5333: x_error_code := -1;
5334: fnd_file.put_line(fnd_file.log,substrb(x_error_msg, 1, 2000));
5335:
5336: /* ST : Detailed Scheduling end */
5337:
5338: when e_usage_not_exists then
5338: when e_usage_not_exists then
5339: x_error_code := -1;
5340: fnd_message.set_name('WSM','WSM_USE_NOT_EXISTS');
5341: x_error_msg := fnd_message.get;
5342: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5343:
5344: when e_null_date then
5345: x_error_code := -1;
5346: fnd_message.set_name('WSM','WSM_NULL_FIELD');
5345: x_error_code := -1;
5346: fnd_message.set_name('WSM','WSM_NULL_FIELD');
5347: fnd_message.set_token('FLD_NAME', 'Start date and Completion date');
5348: x_error_msg := fnd_message.get;
5349: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5350:
5351: when e_invalid_date then
5352: x_error_code := -1;
5353: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5352: x_error_code := -1;
5353: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5354: fnd_message.set_token('FLD_NAME', 'Resource usage scheduled dates');
5355: x_error_msg := fnd_message.get;
5356: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5357:
5358: when e_date_overlap then
5359: x_error_code := -1;
5360: fnd_message.set_name('WSM','WSM_USE_TIME_OVERLAP');
5358: when e_date_overlap then
5359: x_error_code := -1;
5360: fnd_message.set_name('WSM','WSM_USE_TIME_OVERLAP');
5361: x_error_msg := fnd_message.get;
5362: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5363:
5364: when e_invalid_time_slot then
5365: x_error_code := -1;
5366: fnd_message.set_name('WSM','WSM_USE_BAD_TIME_SLOT');
5364: when e_invalid_time_slot then
5365: x_error_code := -1;
5366: fnd_message.set_name('WSM','WSM_USE_BAD_TIME_SLOT');
5367: x_error_msg := fnd_message.get;
5368: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5369:
5370: when others then
5371: x_error_code := -1;
5372: x_error_msg := 'Error: validate_wljdi_res_usage: (#'||l_stmt_num||') '
5370: when others then
5371: x_error_code := -1;
5372: x_error_msg := 'Error: validate_wljdi_res_usage: (#'||l_stmt_num||') '
5373: || SUBSTR(SQLERRM, 1,240);
5374: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5375:
5376: END validate_wljdi_res_usage;
5377:
5378:
6343: BEGIN
6344:
6345: l_stmt_num := 10;
6346:
6347: fnd_file.put_line(fnd_file.log, 'Processing Interface rows...');
6348: retcode := 0;
6349: -- CZHDBG: comment out this because the completion status of the
6350: -- concurrent program cannot be set properly with this call. Why ???
6351: --fnd_global.apps_initialize(l_user_id, l_resp_id, l_resp_appl_id);
6371: v_wlji_err_code,
6372: v_wlji_err_msg,
6373: v_wlji_num_of_children;
6374: if lbji_debug = 'Y' then
6375: fnd_file.put_line(fnd_file.log,
6376: 'Number of records in WSM_LOT_JOB_INTERFACE: ' || c_wlji%rowcount);
6377: end if;
6378: l_h_rows := c_wlji%rowcount;
6379: close c_wlji;
6427: l_stmt_num := 70;
6428: v_wlji_process_status(l_h) := WIP_CONSTANTS.ERROR;
6429: v_wlji_err_code(l_h) := -1;
6430: v_wlji_err_msg(l_h) := l_err_msg;
6431: fnd_file.put_line(fnd_file.log,
6432: 'Error (WLJI.Header_Id = ' || v_wlji_header_id(l_h) || ') : '
6433: || l_err_msg);
6434: l_error_count := l_error_count + 1;
6435: End; -- }} check org/job_name for this header_id
6446: -----------------------------------------------------------------
6447: -- {{ Check PENDING WLJDI records with parent_header_id = NULL
6448: -----------------------------------------------------------------
6449: if lbji_debug = 'Y' then
6450: fnd_file.put_line(fnd_file.log,
6451: 'Checking wsm_lot_job_dtl_interface..');
6452: end if;
6453:
6454: l_stmt_num := 100;
6463: v_wljdi_process_status,
6464: v_wljdi_err_code,
6465: v_wljdi_err_msg;
6466: if lbji_debug = 'Y' then
6467: fnd_file.put_line(fnd_file.log,
6468: 'Number of independent records in WSM_LOT_JOB_DTL_INTERFACE: '
6469: || c_wljdi_no_parent%rowcount);
6470: end if;
6471: l_d_rows := c_wljdi_no_parent%rowcount;
6519: l_stmt_num := 130;
6520: v_wljdi_process_status(l_d) := WIP_CONSTANTS.ERROR;
6521: v_wljdi_err_code(l_d) := -1;
6522: v_wljdi_err_msg(l_d) := l_err_msg;
6523: fnd_file.put_line(fnd_file.log,
6524: 'Error: WLJDI(Record_Id = ' || v_wljdi_record_id(l_d) ||') '
6525: || l_err_msg);
6526: fnd_file.new_line(fnd_file.log, 3);
6527: l_error_count := l_error_count +1;
6522: v_wljdi_err_msg(l_d) := l_err_msg;
6523: fnd_file.put_line(fnd_file.log,
6524: 'Error: WLJDI(Record_Id = ' || v_wljdi_record_id(l_d) ||') '
6525: || l_err_msg);
6526: fnd_file.new_line(fnd_file.log, 3);
6527: l_error_count := l_error_count +1;
6528:
6529: End; -- }} check org/job_name for this header_id
6530:
6543: -- When p_group_id is given, assign all the job with that group_id to
6544: -- one worker
6545: l_num_jobs := g_v_job_name.COUNT;
6546: if lbji_debug = 'Y' then
6547: fnd_file.put_line(fnd_file.log,
6548: 'Number of jobs to be processed: '|| l_num_jobs);
6549: end if;
6550:
6551: if p_group_id is not null then
6619: raise e_launch_worker;
6620: else
6621: COMMIT;
6622: end if;
6623: fnd_file.put_line(fnd_file.log, 'Request_id: '||l_worker_reqid||' submitted');
6624: else -- l_num_jobs <= 0
6625: fnd_file.put_line(fnd_file.log, 'No rows found in interface table');
6626: end if;
6627:
6621: COMMIT;
6622: end if;
6623: fnd_file.put_line(fnd_file.log, 'Request_id: '||l_worker_reqid||' submitted');
6624: else -- l_num_jobs <= 0
6625: fnd_file.put_line(fnd_file.log, 'No rows found in interface table');
6626: end if;
6627:
6628: else -- p_group_id is null
6629:
6763: where record_id = v_wljdi_record_id(l_d);
6764: end if; -- if l_d_rows <> 0
6765:
6766: if l_num_jobs > 0 then
6767: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6768: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6769: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6770: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6771: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6764: end if; -- if l_d_rows <> 0
6765:
6766: if l_num_jobs > 0 then
6767: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6768: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6769: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6770: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6771: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6772:
6765:
6766: if l_num_jobs > 0 then
6767: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6768: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6769: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6770: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6771: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6772:
6773: l_stmt_num := 360;
6766: if l_num_jobs > 0 then
6767: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6768: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6769: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6770: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6771: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6772:
6773: l_stmt_num := 360;
6774: l_temp_num := l_v_group_id.first;
6767: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6768: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6769: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6770: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6771: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6772:
6773: l_stmt_num := 360;
6774: l_temp_num := l_v_group_id.first;
6775: WHILE l_temp_num <= l_v_group_id.last
6793:
6794: if l_error_count <> 0 then
6795: retcode := 1;
6796: errbuf := 'The manager marked at least one row as errored';
6797: fnd_file.put_line(fnd_file.log,errbuf);
6798: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
6799: COMMIT;
6800: end if;
6801:
6804: when e_launch_worker then
6805: rollback;
6806: retcode := 1;
6807: errbuf := 'Error: process_interface_rows: (#'||l_stmt_num||') fail to launch worker';
6808: fnd_file.put_line(fnd_file.log,errbuf);
6809: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
6810: COMMIT;
6811:
6812: when others then
6813: rollback;
6814: retcode := 1;
6815: errbuf := 'Error: process_interface_rows: (#'||l_stmt_num||') '
6816: || SUBSTR(SQLERRM, 1,240);
6817: fnd_file.put_line(fnd_file.log,errbuf);
6818: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
6819: COMMIT;
6820:
6821: END process_lbji_rows;
7177:
7178: l_stmt_num := 30;
7179: WSMPLCVA.load_class_code;
7180: if lbji_debug = 'Y' then
7181: fnd_file.put_line(fnd_file.log,
7182: 'Loading org/subinv/class-code values into memory (once per worker).. OK.');
7183: end if;
7184: exception
7185: when others then
7307: v_wlji_num_of_children
7308: --, v_wlji_inf_schedule_flag
7309: limit g_batch_size;
7310: if lbji_debug = 'Y' then
7311: fnd_file.put_line(fnd_file.log,
7312: 'Number of rows loaded for the current batch: '||csr_wlji%rowcount);
7313: end if;
7314:
7315: if csr_wlji%rowcount - prev_rowcount <> 0 then -- {{ one batch
7353: v_idx := v_wlji_header_id.first;
7354: while v_idx <= v_wlji_header_id.last
7355: loop -- {{{ inner loop
7356: if lbji_debug = 'Y' then
7357: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7358: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7359: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7360: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7361: end if;
7354: while v_idx <= v_wlji_header_id.last
7355: loop -- {{{ inner loop
7356: if lbji_debug = 'Y' then
7357: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7358: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7359: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7360: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7361: end if;
7362:
7355: loop -- {{{ inner loop
7356: if lbji_debug = 'Y' then
7357: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7358: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7359: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7360: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7361: end if;
7362:
7363: SAVEPOINT savepoint_skip_job;
7356: if lbji_debug = 'Y' then
7357: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7358: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7359: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7360: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7361: end if;
7362:
7363: SAVEPOINT savepoint_skip_job;
7364:
7527: l_error_count := l_error_count + 1;
7528: GOTO abort_this_job;
7529: end if;
7530: if lbji_debug = 'Y' then
7531: fnd_file.put_line(fnd_file.log, 'Validating Constants.. OK.');
7532: end if;
7533: ----------------------------------------------------------------
7534: -- }}} End: Validate and Default constants (load_type = 5 and 6)
7535: ----------------------------------------------------------------
7549: -- l_error_count := l_error_count + 1;
7550: -- GOTO abort_this_job;
7551: --end if;
7552: --if lbji_debug = 'Y' then
7553: -- fnd_file.put_line(fnd_file.log, 'Check Organization Id.. OK');
7554: --end if;
7555:
7556: l_stmt_num := 130.5;
7557: select nvl(OP_SEQ_NUM_INCREMENT, 10)
7663: l_error_count := l_error_count + 1;
7664: GOTO abort_this_job;
7665: end if;
7666: if lbji_debug = 'Y' then
7667: fnd_file.put_line(fnd_file.log, 'Validate Job Name and Id.. OK.');
7668: end if;
7669: -------------------------------------
7670: -- }}} End: Validate job name and id
7671: -------------------------------------
7693: l_error_count := l_error_count + 1;
7694: GOTO abort_this_job;
7695: end if;
7696: if lbji_debug = 'Y' and v_wlji_mode_flag(v_idx) = 1 then
7697: fnd_file.put_line(fnd_file.log, 'Validate Start Quantity.. OK.');
7698: end if;
7699:
7700:
7701: l_stmt_num := 160;
7869: GOTO abort_this_job;
7870: end if;
7871: end if;
7872: if lbji_debug = 'Y' then
7873: fnd_file.put_line(fnd_file.log, 'Schedule Group Id Verification.. OK');
7874: end if;
7875: -- }} validate schedule_group_id end
7876:
7877: l_stmt_num := 170.4;
7903: GOTO abort_this_job;
7904: end if;
7905: end if;
7906: if lbji_debug = 'Y' then
7907: fnd_file.put_line(fnd_file.log, 'Build Seq. Id Verification.. OK');
7908: end if;
7909: -- }} validate build_seq_id end
7910: else -- job type = 3
7911: -- previously we do not have validations for non-std job
7941: l_stmt_num := 210;
7942: -- Default lot_number
7943: v_wlji_lot_number(v_idx) := v_wlji_job_name(v_idx);
7944: if lbji_debug = 'Y' then
7945: fnd_file.put_line(fnd_file.log, 'Lot Number Defaulted as Job Name.');
7946: end if;
7947:
7948: l_stmt_num := 220;
7949: -- Validate: FIRM_PLANNED_FLAG
7987: l_error_count := l_error_count + 1;
7988: GOTO abort_this_job;
7989: end if;
7990: if lbji_debug = 'Y' then
7991: fnd_file.put_line(fnd_file.log, 'Checking existance of inv lots of the same name.. OK');
7992: end if;
7993:
7994:
7995: -----------------------------------
8029: GOTO abort_this_job;
8030: end if;
8031: end if;
8032: if lbji_debug = 'Y' then
8033: fnd_file.put_line(fnd_file.log, 'Last Updt By Validation.. OK.');
8034: end if;
8035:
8036: l_stmt_num := 245;
8037: -- validate created_by (job creation)
8067: GOTO abort_this_job;
8068: end if;
8069: end if;
8070: if lbji_debug = 'Y' then
8071: fnd_file.put_line(fnd_file.log, 'Created By Validation.. OK.');
8072: end if;
8073: --------------------------------
8074: -- }}} End: Validate WHO columns
8075: --------------------------------
8083: -- l_wsli_loaded (true/false) ensures that the procedure
8084: -- is called only once per worker
8085: if (l_wsli_loaded = false) then
8086: if lbji_debug = 'Y' then
8087: fnd_file.put_line(fnd_file.log,
8088: 'Loading wsli for batch group id: ' ||l_batch_grp_id||'..');
8089: end if;
8090:
8091: load_wsli_data(l_batch_grp_id);
8161: l_error_code,
8162: l_error_msg,
8163: v_wlji_start_quantity(v_idx)); --Fixed bug # 2313574
8164: if lbji_debug = 'Y' then
8165: fnd_file.put_line(fnd_file.log,
8166: 'Getting complete date based on item lead time');
8167: end if;
8168: END IF;
8169:
8179: l_error_code,
8180: l_error_msg,
8181: v_wlji_start_quantity(v_idx)); --Fixed bug # 2313574
8182: if lbji_debug = 'Y' then
8183: fnd_file.put_line(fnd_file.log,
8184: 'Getting start date based on item lead time');
8185: end if;
8186: END IF;
8187: if l_error_code <> 0 OR l_error_msg IS NOT NULL then
8193:
8194: end if;
8195:
8196: if lbji_debug = 'Y' then
8197: fnd_file.put_line(fnd_file.log, 'Date Validation.. OK.');
8198: end if;
8199: -- }} Validate schedule dates
8200:
8201:
8215: l_error_count := l_error_count + 1;
8216: GOTO abort_this_job;
8217: end if;
8218: if lbji_debug = 'Y' then
8219: fnd_file.put_line(fnd_file.log,
8220: 'Co Product Supply Flag Validation.. OK.');
8221: end if;
8222:
8223:
8232: else
8233: v_wlji_description(v_idx) := RTRIM(v_wlji_description(v_idx));
8234: end if;
8235: if lbji_debug = 'Y' then
8236: fnd_file.put_line(fnd_file.log, 'Default Description.');
8237: end if;
8238:
8239:
8240: l_stmt_num := 300;
8286: validation_level => 0,
8287: x_error_code => l_error_code,
8288: x_err_msg => l_error_msg);
8289: if l_error_code = 0 and l_error_msg is not null then
8290: fnd_file.put_line(fnd_file.log, l_error_msg);
8291: l_error_msg := NULL;
8292: end if;
8293: if l_error_code <> 0 then
8294: handle_error( l_error_code, l_error_msg, l_stmt_num);
8309: l_error_count := l_error_count + 1;
8310: GOTO abort_this_job;
8311: end if;
8312: if lbji_debug = 'Y' then
8313: fnd_file.put_line(fnd_file.log,
8314: 'Validate Non-standard References.. OK.');
8315: end if;
8316:
8317: end if; -- non-standard validations end
8396: l_error_count := l_error_count + 1;
8397: GOTO abort_this_job;
8398: end if;
8399: if lbji_debug = 'Y' then
8400: fnd_file.put_line(fnd_file.log, 'Validation of Item ID.. OK');
8401: end if;
8402: -- }} Validate item id
8403:
8404:
8424: GOTO abort_this_job;
8425: end if;
8426:
8427: if lbji_debug = 'Y' then
8428: fnd_file.put_line(fnd_file.log, 'Net Quantity Validation.. OK.');
8429: end if;
8430: -- }} Validate net quantity
8431:
8432: l_stmt_num := 325;
8578: l_error_count := l_error_count + 1;
8579: GOTO abort_this_job;
8580: end if;
8581: if lbji_debug = 'Y' then
8582: fnd_file.put_line(fnd_file.log,
8583: 'Routing Sequence Id: '||l_rtg_seq_id ||
8584: ', Common Routing Sequence Id: '||l_common_rtg_seq_id);
8585: end if;
8586: -- }} get l_common_rtg_seq_id end
8634: GOTO abort_this_job;
8635: end;
8636: END IF;
8637: if lbji_debug = 'Y' then
8638: fnd_file.put_line(fnd_file.log,
8639: 'Getting Bill Sequence Id: '||l_common_bom_seq_id);
8640: end if;
8641: -- }} get l_common_bom_seq_id
8642:
8684: l_error_count := l_error_count + 1;
8685: GOTO abort_this_job;
8686: end if;
8687: if lbji_debug = 'Y' then
8688: fnd_file.put_line(fnd_file.log, 'Locator Id Validation.. OK.');
8689: end if;
8690: -- }} validate locator id
8691:
8692:
8752: l_error_count := l_error_count + 1;
8753: GOTO abort_this_job;
8754: end;
8755: if lbji_debug = 'Y' then
8756: fnd_file.put_line(fnd_file.log, 'Class Code Validation.. OK.');
8757: end if;
8758: -- }} validate class code
8759:
8760:
8802: l_error_count := l_error_count + 1;
8803: GOTO abort_this_job;
8804: end if;
8805: if lbji_debug = 'Y' then
8806: fnd_file.put_line(fnd_file.log, 'Getting BOM/Routing Revisions.. OK.');
8807: end if;
8808: -- }} get revisions
8809:
8810: end if; -- job type =1
8818: (v_wlji_date_released(v_idx) is not null ) then
8819:
8820: v_wlji_date_released(v_idx) := null;
8821: if lbji_debug = 'Y' then
8822: fnd_file.put_line(fnd_file.log,
8823: 'Date_Released is ignored for unreleased job');
8824: end if;
8825: elsif (v_wlji_status_type(v_idx) = WIP_CONSTANTS.RELEASED ) then
8826: if (v_wlji_date_released(v_idx) > sysdate ) then
8832: v_wlji_date_released(v_idx) := sysdate;
8833: end if;
8834: end if;
8835: if lbji_debug = 'Y' then
8836: fnd_file.put_line(fnd_file.log,
8837: 'Date_Released Validation.. First Phase Done.');
8838: end if;
8839: -- }} Validate Date_Released
8840:
9304:
9305: if (l_chg_bom_alt = 1 OR l_chg_rtg_alt = 1) and
9306: l_cur_status_type <> 1
9307: then
9308: fnd_file.put_line(fnd_file.log,
9309: 'Ignoring the following fields if provided by user: ' ||
9310: 'Alternate_Routing_Designator, Alternate_Bom_Designator.');
9311: end if;
9312:
9424: l_stmt_num := 590.7;
9425: -- Validation added for Bug 4919218: End
9426: else
9427: if lbji_debug = 'Y' then
9428: fnd_file.put_line(fnd_file.log,
9429: 'Update BOM/Routing alternates for standard job..');
9430: end if;
9431: end if;
9432:
9566: -- non-standard job only if the job is unreleased.
9567: if (l_chg_bom_ref = 1 or l_chg_rtg_ref = 1) and
9568: l_cur_status_type <> 1
9569: then
9570: fnd_file.put_line(fnd_file.log,
9571: 'Ignoring the following fields if provided by user: ' ||
9572: 'Routing_Reference_Id, Bom_Reference_Id, ' ||
9573: 'Alternate_Bom_Designator, Alternate_Routing_Designator');
9574: end if;
9585: v_wlji_rtg_ref_id(v_idx) := l_cur_rtg_ref_id;
9586: v_wlji_alt_rtg(v_idx) := l_cur_alt_rtg;
9587: else
9588: if lbji_debug = 'Y' then
9589: fnd_file.put_line(fnd_file.log,
9590: 'Update BOM/Routing references for non-standard job..');
9591: end if;
9592: end if;
9593:
9701: -- job only if the job is unreleased.
9702: if (l_chg_rtg_rev = 1 or l_chg_bom_rev = 1) and
9703: l_cur_status_type <> 1
9704: then
9705: fnd_file.put_line(fnd_file.log,
9706: 'Ignoring the following fields if provided by user: ' ||
9707: 'Routing_Revision, Routing_Revision_Date, '||
9708: 'Bom_Revision, Bom_Revision_Date, ' );
9709: end if;
9714: v_wlji_rtg_rev_date(v_idx) := l_cur_rtg_rev_date;
9715: v_wlji_rtg_revision(v_idx) := l_cur_rtg_revision;
9716: else
9717: if lbji_debug = 'Y' then
9718: fnd_file.put_line(fnd_file.log,
9719: 'Update BOM/Routing revision or revision date ...');
9720: end if;
9721: end if;
9722: end;
9768: l_skip_update_wo:= 1;
9769: end if;
9770: if lbji_debug = 'Y' then
9771: if l_skip_update_wo = 1 then
9772: fnd_file.put_line(fnd_file.log,
9773: 'Planning to skip update of wo, wor, wro');
9774: else
9775: fnd_file.put_line(fnd_file.log,
9776: 'Planning to update wo, wor, wro');
9771: if l_skip_update_wo = 1 then
9772: fnd_file.put_line(fnd_file.log,
9773: 'Planning to skip update of wo, wor, wro');
9774: else
9775: fnd_file.put_line(fnd_file.log,
9776: 'Planning to update wo, wor, wro');
9777: end if;
9778: end if;
9779:
9936: end if;
9937: end if;
9938: end if; -- }} valid status type
9939: if lbji_debug = 'Y' then
9940: fnd_file.put_line(fnd_file.log,
9941: 'Validate reschedule Job_Status .. OK');
9942: end if;
9943: -- }} Validate status
9944:
9969: GOTO skip_resched_validations;
9970: end;
9971: END IF;
9972: if lbji_debug = 'Y' then
9973: fnd_file.put_line(fnd_file.log,
9974: 'Validate reschedule Start_Quantity .. OK');
9975: end if;
9976: -- }} Validate quantity
9977:
10069: end;
10070: end if;
10071: end if; -- job_type
10072: if lbji_debug = 'Y' then
10073: fnd_file.put_line(fnd_file.log,
10074: 'Validate reschedule Net_Quantity .. OK');
10075: end if;
10076: -- }} Validate net-quantity
10077:
10223: l_error_code := -1;
10224: GOTO skip_resched_validations;
10225: end if;
10226: if lbji_debug = 'Y' then
10227: fnd_file.put_line(fnd_file.log,
10228: 'Validate reschedule Dates .. OK');
10229: end if;
10230: -- }} Validate dates
10231:
10239: l_error_code := -1;
10240: GOTO skip_resched_validations;
10241: end if;
10242: if lbji_debug = 'Y' then
10243: fnd_file.put_line(fnd_file.log,
10244: 'Validate reschedule Coproducts_Supply .. OK');
10245: end if;
10246: -- }} validate coproducts
10247:
10609: GOTO abort_this_job;
10610: end if;
10611:
10612: if lbji_debug = 'Y' then
10613: fnd_file.put_line(fnd_file.log,
10614: 'Verify if component is required at the first operation... OK');
10615: end if;
10616: -- }} Check the component required at first op
10617: l_stmt_num := 850;
10641: l_error_count := l_error_count + 1;
10642: GOTO abort_this_job;
10643: end if;
10644: if lbji_debug = 'Y' then
10645: fnd_file.put_line(fnd_file.log,
10646: 'Verify that the starting lot is not phantom.. OK');
10647: end if;
10648: -- }} validate starting lot is not phantom
10649:
10769: --l_error_count := l_error_count + 1;
10770: --GOTO abort_this_job;
10771: end if;
10772: if lbji_debug = 'Y' then
10773: fnd_file.put_line(fnd_file.log, 'Mode 2 Quantity Verification... OK');
10774: end if;
10775: -- }} Validate component quantity
10776: l_src_lot_number := v_wsli(v_wlji_src_line_id(v_idx)).lot_number; -- LOTATTR
10777: l_src_inv_item_id := v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id; -- LOTATTR
10983: program_id = v_wlji_program_id(v_idx)
10984: where organization_id = v_wlji_org_id(v_idx)
10985: and wip_entity_id = v_wlji_wip_entity_id(v_idx);
10986: if lbji_debug = 'Y' then
10987: fnd_file.put_line(fnd_file.log,
10988: 'Updated '||SQL%ROWCOUNT||' rows into wo');
10989: end if;
10990:
10991: l_stmt_num := 920.1;
11009: program_id = v_wlji_program_id(v_idx)
11010: where organization_id = v_wlji_org_id(v_idx)
11011: and wip_entity_id = v_wlji_wip_entity_id(v_idx);
11012: if lbji_debug = 'Y' then
11013: fnd_file.put_line(fnd_file.log,
11014: 'Updated '||SQL%ROWCOUNT||' rows into wor');
11015: end if;
11016: *******************/
11017: l_stmt_num := 920.2;
11034: wro.basis_type, 2, 1, round(v_wlji_start_quantity(v_idx), 6)))
11035: where organization_id = v_wlji_org_id(v_idx)
11036: and wip_entity_id = v_wlji_wip_entity_id(v_idx);
11037: if lbji_debug = 'Y' then
11038: fnd_file.put_line(fnd_file.log,
11039: 'Updated '||SQL%ROWCOUNT||' rows into wro');
11040: end if;
11041: l_stmt_num := 920.3;
11042: -- abb H: optional scrap accounting
11084: where wip_entity_id = v_wlji_wip_entity_id(v_idx)
11085: and operation_seq_num = l_min_op_seq_num;
11086:
11087: if lbji_debug = 'Y' then
11088: fnd_file.put_line(fnd_file.log, 'Updated '||SQL%ROWCOUNT||' rows into woy');
11089: end if;
11090:
11091: end if;
11092:
11109: delete from wip_period_balances
11110: where wip_entity_id = v_wlji_wip_entity_id(v_idx)
11111: and organization_id = v_wlji_org_id(v_idx);
11112: if lbji_debug = 'Y' then
11113: fnd_file.put_line(fnd_file.log,
11114: 'Deleted '||SQL%ROWCOUNT||' rows from WIP_PERIOD_BALANCES');
11115: end if;
11116: end if;
11117:
11202: update wip_discrete_jobs wdj
11203: set status_type = 7
11204: where wdj.wip_entity_id = v_wlji_wip_entity_id(v_idx);
11205: if lbji_debug = 'Y' then
11206: fnd_file.put_line(fnd_file.log,
11207: 'Updated status type to 7 in wdj');
11208: end if;
11209: end if;
11210:
11350: where wdj.wip_entity_id = v_wlji_wip_entity_id(v_idx);
11351:
11352: end if; -- update jobs for which status is not cancelled
11353: if lbji_debug = 'Y' then
11354: fnd_file.put_line(fnd_file.log,
11355: 'Updated '||SQL%ROWCOUNT||' rows of wdj');
11356: end if;
11357: l_stmt_num := 970.2;
11358: UPDATE WIP_ENTITIES WE
11367: program_update_date = v_wlji_prog_updt_date(v_idx),
11368: last_update_date = v_wlji_last_updt_date(v_idx)
11369: where we.wip_entity_id = v_wlji_wip_entity_id(v_idx);
11370: if lbji_debug = 'Y' then
11371: fnd_file.put_line(fnd_file.log,
11372: 'Updated '||SQL%ROWCOUNT||' rows into we');
11373: end if;
11374:
11375: Exception
11501:
11502: if ((v_wlji_load_type(v_idx) = 6) AND (v_wlji_class_code(v_idx) is NULL)) then
11503: v_wlji_class_code(v_idx) := l_cur_class_code;
11504: end if;
11505: fnd_file.put_line(fnd_file.log, 'Date Released: '||v_wlji_date_released(v_idx));
11506: insert_into_period_balances (
11507: p_wip_entity_id => v_wlji_wip_entity_id(v_idx),
11508: p_organization_id => v_wlji_org_id(v_idx),
11509: p_class_code => v_wlji_class_code(v_idx),
11523: if l_cur_status_type in (0,1,3,6) THEN -- Initialized Value,
11524: --Unreleased, released, Hold
11525: l_stmt_num := 995;
11526: IF (lbji_debug='Y') THEN
11527: fnd_file.put_line(fnd_file.log, 'Before Calling WSM_LotAttr_PVT.create_update_lotattr');
11528: END IF;
11529: WSM_LotAttr_PVT.create_update_lotattr(
11530: x_err_code => l_error_code,
11531: x_err_msg => l_error_msg,
11540: l_error_count := l_error_count + 1;
11541: GOTO abort_this_job;
11542: END IF;
11543: IF (lbji_debug='Y') THEN
11544: fnd_file.put_line(fnd_file.log, 'WSM_LotAttr_PVT.create_update_lotattr returned Success');
11545: END IF;
11546:
11547: end if; -- l_cur_status_type in (1,3,6)
11548:
11557: l_param_tbl WSM_Log_PVT.param_tbl_type;
11558: BEGIN
11559:
11560: IF (lbji_debug='Y') THEN
11561: fnd_file.put_line(fnd_file.log, 'Before WSM_Serial_support_PVT.LBJ_serial_intf_proc');
11562: END IF;
11563: l_stmt_num := 995.1;
11564:
11565: WSM_Serial_support_PVT.LBJ_serial_intf_proc( p_header_id => v_wlji_header_id(v_idx),
11573: l_stmt_num := 995.2;
11574:
11575: if l_return_status = FND_API.G_RET_STS_SUCCESS then
11576: IF (lbji_debug='Y') THEN
11577: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned Success');
11578: END IF;
11579: ELSE
11580: IF (lbji_debug='Y') THEN
11581: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned failure');
11577: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned Success');
11578: END IF;
11579: ELSE
11580: IF (lbji_debug='Y') THEN
11581: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned failure');
11582: END IF;
11583:
11584: IF (l_msg_count = 1) THEN
11585: handle_error(-1, l_err_msg, l_stmt_num);
11686: 'Y', -- Posting_Flag
11687: mtl_material_transactions_s.nextval
11688: ) RETURNING transaction_temp_id into l_txn_tmp_hdr_id;
11689: if lbji_debug = 'Y' then
11690: fnd_file.put_line(fnd_file.log,
11691: 'Inserted '||SQL%ROWCOUNT||' rows into mmtt');
11692: end if;
11693:
11694: l_stmt_num := 1020;
11712: -l_quantity_tobe_issued,
11713: -l_quantity_tobe_issued,
11714: v_wsli(v_wlji_src_line_id(v_idx)).lot_number);
11715: if lbji_debug = 'Y' then
11716: fnd_file.put_line(fnd_file.log,
11717: 'Inserted '||SQL%ROWCOUNT||' rows into mtlt');
11718: end if;
11719:
11720: l_stmt_num := 1030;
11794: exception
11795: when others then
11796: l_assembly_name := 'Unknown';
11797: end;
11798: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11799: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11795: when others then
11796: l_assembly_name := 'Unknown';
11797: end;
11798: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11799: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11796: l_assembly_name := 'Unknown';
11797: end;
11798: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11799: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11797: end;
11798: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11799: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11798: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11799: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11799: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11800: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11801: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11809: if v_wlji_process_status(v_idx) <> 3 then
11802: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11809: if v_wlji_process_status(v_idx) <> 3 then
11810: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11803: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11809: if v_wlji_process_status(v_idx) <> 3 then
11810: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11811: else
11804: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11805: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11809: if v_wlji_process_status(v_idx) <> 3 then
11810: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11811: else
11812: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11806: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11807: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11809: if v_wlji_process_status(v_idx) <> 3 then
11810: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11811: else
11812: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11813: end if;
11814: if v_wlji_process_status(v_idx) = 3 then
11808: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11809: if v_wlji_process_status(v_idx) <> 3 then
11810: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11811: else
11812: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11813: end if;
11814: if v_wlji_process_status(v_idx) = 3 then
11815: fnd_file.put_line(fnd_file.output, 'Error Message: ' || v_wlji_err_msg(v_idx));
11816: end if;
11811: else
11812: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11813: end if;
11814: if v_wlji_process_status(v_idx) = 3 then
11815: fnd_file.put_line(fnd_file.output, 'Error Message: ' || v_wlji_err_msg(v_idx));
11816: end if;
11817: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11818: end if; -- load type 5
11819: -- }} write into output file
11813: end if;
11814: if v_wlji_process_status(v_idx) = 3 then
11815: fnd_file.put_line(fnd_file.output, 'Error Message: ' || v_wlji_err_msg(v_idx));
11816: end if;
11817: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11818: end if; -- load type 5
11819: -- }} write into output file
11820:
11821:
11827: l_stmt_num := 1050;
11828: if v_wlji_process_status(v_idx) <> 3 then
11829: v_wlji_process_status(v_idx) := 5; -- 5 : complete without error
11830: if lbji_debug = 'Y' then
11831: fnd_file.put_line(fnd_file.log,
11832: 'Everything OK, changing the status of the row to 5..');
11833: end if;
11834: else
11835: -- {{ kanban begin
11874: dummy_err_code,
11875: dummy_err_msg );
11876:
11877: if dummy_err_code <> 0 then
11878: fnd_file.put_line(fnd_file.log, 'WARNING ');
11879: fnd_file.put_line(fnd_file.log,
11880: 'WSM_LBJ_INTERFACE_PVT.launch_worker: '||dummy_err_msg);
11881: l_error_count := l_error_count + 1;
11882: end if;
11875: dummy_err_msg );
11876:
11877: if dummy_err_code <> 0 then
11878: fnd_file.put_line(fnd_file.log, 'WARNING ');
11879: fnd_file.put_line(fnd_file.log,
11880: 'WSM_LBJ_INTERFACE_PVT.launch_worker: '||dummy_err_msg);
11881: l_error_count := l_error_count + 1;
11882: end if;
11883: end if;
11898:
11899: if l_warning_count <> 0 then
11900: retcode := 1;
11901: errbuf := 'The interface process produced at least one warning message';
11902: fnd_file.put_line(fnd_file.log,errbuf);
11903: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
11904: end if;
11905:
11906: if l_error_count <> 0 then
11905:
11906: if l_error_count <> 0 then
11907: retcode := 1;
11908: errbuf := 'The interface process marked at least one row as errored';
11909: fnd_file.put_line(fnd_file.log,errbuf);
11910: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
11911: end if;
11912:
11913: l_stmt_num := 1060;
11953:
11954: l_stmt_num := 1070;
11955: -- {{ launch INV worker
11956: if l_atleast_one_row_in_mmtt <>0 THEN
11957: fnd_file.put_line(fnd_file.log,
11958: 'Invoking Inventory API with header id: '||to_char(l_mmtt_txn_hdr_id));
11959: --OPTII-PERF:Call Inv API to reduce the waiting time.
11960: /*
11961: l_inv_worker_req_id := FND_REQUEST.submit_request (
11965: '4', NULL, NULL); -- bug 3733798
11966:
11967: COMMIT; -- CZHDBG: why?
11968:
11969: fnd_file.put_line(fnd_file.log,
11970: 'Material Transaction temp_header_id is '||to_char(l_mmtt_txn_hdr_id));
11971:
11972: if l_inv_worker_req_id = 0 then
11973: l_stmt_num := 1080;
11974: retcode := 1;
11975: errbuf:= 'Inventory worker returned failure '||
11976: '(Transaction_header_id=' ||l_mmtt_txn_hdr_id||') : '
11977: || SUBSTRB(SQLERRM,1,1000);
11978: fnd_file.put_line(fnd_file.log,errbuf);
11979: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
11980: update wsm_lot_job_interface
11981: set process_status = 4,
11982: error_code = -2,
11984: where mode_flag = 2;
11985:
11986: else -- req_id <> 0
11987: l_stmt_num := 1090;
11988: fnd_file.put_line(fnd_file.log,'Inventory Transaction Worker request_id is '
11989: ||to_char(l_inv_worker_req_id));
11990: req_wait := FND_CONCURRENT.WAIT_FOR_REQUEST (
11991: request_id => l_inv_worker_req_id,
11992: interval => 10, -- 10 seconds interval
11996: dev_phase => req_devphase,
11997: dev_status => req_devstatus,
11998: message => req_message);
11999:
12000: fnd_file.put_line(fnd_file.log,
12001: 'Inventory Transaction Worker status is '||req_status);
12002: fnd_file.put_line(fnd_file.log,
12003: 'Inventory Transaction Worker Completion Message: '||req_message);
12004:
11998: message => req_message);
11999:
12000: fnd_file.put_line(fnd_file.log,
12001: 'Inventory Transaction Worker status is '||req_status);
12002: fnd_file.put_line(fnd_file.log,
12003: 'Inventory Transaction Worker Completion Message: '||req_message);
12004:
12005: if req_devphase <> 'COMPLETE' OR req_devstatus <> 'NORMAL' THEN
12006: retcode := 1;
12006: retcode := 1;
12007: errbuf:= 'Inventory worker returned failure '||
12008: '(Transaction_header_id=' ||l_mmtt_txn_hdr_id||') : '||
12009: SUBSTRB(SQLERRM,1,1000);
12010: fnd_file.put_line(fnd_file.log,errbuf);
12011: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12012: end if;
12013:
12014: check_errored_mmtt_records(l_mmtt_txn_hdr_id, l_error_code, l_error_msg);
12017: retcode := 1;
12018: errbuf:= 'Errored Records in mmtt ' ||
12019: '(Transaction_header_id=' ||l_mmtt_txn_hdr_id||') : '||
12020: SUBSTRB(SQLERRM,1,1000);
12021: fnd_file.put_line(fnd_file.log,errbuf);
12022: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12023: end if;
12024:
12025: end if; -- req_id
12046: IF x_msgcnt > 0 THEN
12047: -- There are messages in the stack so display them
12048: for x in 1..x_msgcnt LOOP
12049: x_msg_data := fnd_msg_pub.get(x, 'F');
12050: fnd_file.put_line(fnd_file.log,'Inventory API Error at statement number ' || l_stmt_num || ' : ' || x_msg_data);
12051: end loop;
12052: ELSE
12053: fnd_message.set_name(
12054: application => 'INV',
12057: token => 'PROCESS',
12058: value => 'TRXNS',
12059: translate => TRUE);
12060: x_msg_data := fnd_message.get;
12061: fnd_file.put_line(fnd_file.log,'Inventory API Error at statement number ' || l_stmt_num || ' : ' || x_msg_data);
12062: END IF;
12063: end;
12064:
12065: END IF;--End of check on retcode
12087: NVL(transaction_date, creation_date) -1,
12088: SYSDATE-l_del_int_prof_value)
12089: );
12090: if lbji_debug = 'Y' then
12091: fnd_file.put_line(fnd_file.log,
12092: 'Deleted '||SQL%ROWCOUNT||' rows from wsli');
12093: end if;
12094: end if;
12095:
12133: null,
12134: NVL(transaction_date, creation_date) -1,
12135: SYSDATE-l_del_int_prof_value);
12136: if lbji_debug = 'Y' then
12137: fnd_file.put_line(fnd_file.log,
12138: 'Deleted '||SQL%ROWCOUNT||' rows from wlji');
12139: end if;
12140:
12141: l_stmt_num := 1100.3;
12148: null,
12149: NVL(transaction_date, creation_date) -1,
12150: SYSDATE-l_del_int_prof_value);
12151: if lbji_debug = 'Y' then
12152: fnd_file.put_line(fnd_file.log,
12153: 'Deleted '||SQL%ROWCOUNT||' rows from wljdi');
12154: end if;
12155:
12156: Exception
12156: Exception
12157: when others then
12158: retcode := 1;
12159: errbuf := 'Deletion of successful rows from interface table(s) failed';
12160: fnd_file.put_line(fnd_file.log,errbuf);
12161: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12162: End;
12163:
12164: COMMIT; -- commit a batch
12201: close c_wljdi_jobs_no_parent;
12202:
12203: if(l_d_jobs > 0) then
12204: if lbji_debug = 'Y' then
12205: fnd_file.new_line(fnd_file.log, 2);
12206: fnd_file.put_line(fnd_file.log,
12207: 'Handling WLJDI records with parent_header_id = NULL...');
12208: end if;
12209:
12202:
12203: if(l_d_jobs > 0) then
12204: if lbji_debug = 'Y' then
12205: fnd_file.new_line(fnd_file.log, 2);
12206: fnd_file.put_line(fnd_file.log,
12207: 'Handling WLJDI records with parent_header_id = NULL...');
12208: end if;
12209:
12210: l_d := l_v_d_org_id_indp.first;
12268: and wip_entity_id = l_v_d_we_id_err(i)
12269: and organization_id = l_v_d_org_id_err(i);
12270:
12271: errbuf := 'The interface process marked at least one row as errored';
12272: fnd_file.put_line(fnd_file.log,errbuf);
12273: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12274:
12275: end if;
12276: l_stmt_num := 1230;
12316: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
12317: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
12318: );
12319:
12320: fnd_file.put_line(fnd_file.log,'Concurrent Request for Requisition Inport Submitted');
12321: fnd_file.put_line(fnd_file.log,'Request_id: '||l_req_request_id);
12322: end if;
12323: -- }} osp end
12324:
12317: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
12318: );
12319:
12320: fnd_file.put_line(fnd_file.log,'Concurrent Request for Requisition Inport Submitted');
12321: fnd_file.put_line(fnd_file.log,'Request_id: '||l_req_request_id);
12322: end if;
12323: -- }} osp end
12324:
12325: l_stmt_num := 1310;
12343: rollback to savepoint_top;
12344: retcode := 2;
12345: errbuf := 'WSM_LBJ_INTERFACE_PVT.launch_worker (#'||l_stmt_num||') '
12346: || SUBSTR(SQLERRM, 1,240);
12347: fnd_file.put_line(fnd_file.log,errbuf);
12348: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
12349: wsmputil.WRITE_TO_WIE (
12350: 0,
12351: substr(errbuf,1,2000),
12361: rollback to savepoint_top;
12362: retcode := 2;
12363: errbuf := 'WSM_LBJ_INTERFACE_PVT.launch_worker (#'||l_stmt_num||') '
12364: || SUBSTR(SQLERRM, 1,240);
12365: fnd_file.put_line(fnd_file.log,errbuf);
12366: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
12367:
12368: wsmputil.WRITE_TO_WIE (
12369: 0,
12773: end if;
12774: -- EC: bug 3303267/3400858
12775:
12776: if lbji_debug = 'Y' then
12777: fnd_file.put_line(fnd_file.log, 'Make job-level BOM/RTG copy ...');
12778: end if;
12779:
12780: l_stmt_num := 20;
12781: -- Mark recommendations on the job level copy
12807:
12808: EXCEPTION
12809: when e_build_job_dtl then
12810: -- p_error_code/p_error_msg was set
12811: fnd_file.put_line(fnd_file.log,
12812: substr('build_job_copy_info: (#'||l_stmt_num||') '
12813: ||p_error_msg, 1, 2000));
12814:
12815: when others then
12815: when others then
12816: p_error_code := SQLCODE;
12817: p_error_msg := substr('build_job_copy_info: (#'||l_stmt_num||') '
12818: ||SQLERRM, 1, 2000);
12819: fnd_file.put_line(fnd_file.log, substr(p_error_msg, 1, 2000));
12820: END build_job_copy_info;
12821:
12822:
12823: -- **********************************************************************************************
12959: /* add the message also.... */
12960:
12961: x_error_code := -1;
12962: x_error_msg := 'check_resource_costed : ' || l_stmt_num || ' : ' || SQLCODE || substrb(SQLERRM,1,1000);
12963: fnd_file.put_line(fnd_file.log,x_error_msg);
12964:
12965: end check_resource_costed;
12966:
12967: /*******************************************************************************************
13005: l_setup_exists := 0;
13006:
13007: if (p_handle_curr_op = 'Y') then
13008: IF lbji_debug = 'Y' then
13009: fnd_file.put_line(fnd_file.log,'delete setup info: WIP table change.... : ');
13010: END IF;
13011:
13012: l_stmt_num := 20;
13013:
13026: l_res_costed := 0;
13027:
13028: l_stmt_num := 35;
13029: IF lbji_debug = 'Y' then
13030: fnd_file.put_line(fnd_file.log,'delete setup info:call to check_resource_costed .... : '
13031: || ' Resource seq num : ' || l_setup_res.resource_seq_num
13032: || ' Operation seq num : ' || p_op_seq_num
13033: );
13034: END IF;
13159:
13160: fnd_message.set_name('WSM','WSM_OP_RES_COSTED');
13161: x_error_msg := fnd_message.get;
13162: x_error_code := -1;
13163: fnd_file.put_line(fnd_file.log,'delete_setup_info : ' || l_stmt_num || ' : ' || x_error_msg);
13164:
13165: when others then
13166: x_error_code := -1;
13167: x_error_msg := 'check_resource_costed : ' || l_stmt_num || ' : ' || SQLCODE || substrb(SQLERRM,1,1000);
13164:
13165: when others then
13166: x_error_code := -1;
13167: x_error_msg := 'check_resource_costed : ' || l_stmt_num || ' : ' || SQLCODE || substrb(SQLERRM,1,1000);
13168: fnd_file.put_line(fnd_file.log,x_error_msg);
13169:
13170: end delete_setup_info;
13171:
13172: /**************************************************************************************
13317: end;
13318:
13319: l_stmt_num := 40;
13320: IF lbji_debug = 'Y' THEN
13321: fnd_file.put_line(fnd_file.log,'validate new resource : ' || l_stmt_num || ' l_setup_exists at current op ..... ' || l_setup_exists);
13322: END IF;
13323:
13324: if l_setup_exists = 1 then
13325: /* open the cursor and loop through the setup resources and check if any of them is costed...
13329: l_error_msg := null;
13330:
13331: l_stmt_num := 50;
13332: IF lbji_debug = 'Y' THEN
13333: fnd_file.put_line(fnd_file.log,'validate new resource : ' || l_stmt_num || ' calling delete setup info ...' );
13334: END IF;
13335:
13336: delete_setup_info( p_wip_entity_id => p_wip_entity_id,
13337: p_org_id => p_org_id,
13382: l_stmt_num := 78;
13383:
13384: -- Code for debug purpose.... ----
13385: IF lbji_debug = 'Y' THEN
13386: fnd_file.put_line(fnd_file.log,'validate new resource : ' || l_stmt_num || ' l_max_resource_seq_num ..... '|| l_max_resource_seq_num);
13387: END IF;
13388:
13389: else
13390: l_par_res_seq_num := p_new_res_tbl(p_new_res_tbl.first).parent_seq_num;
13893: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13894: fnd_message.set_token('FLD_NAME', ' resource sequence number ');
13895: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13896:
13897: fnd_file.put_line(fnd_file.log,x_error_msg);
13898:
13899: x_error_code := -1;
13900:
13901: when e_invalid_par_seq then
13901: when e_invalid_par_seq then
13902: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13903: fnd_message.set_token('FLD_NAME', ' parent resource sequence number ');
13904: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13905: fnd_file.put_line(fnd_file.log,x_error_msg);
13906: x_error_code := -1;
13907:
13908: when e_invalid_res then
13909: --Bug 4704351:Resource id validation is already done in the prev sql.So
13912: --fnd_message.set_token('FLD_NAME', ' resource id ');
13913: fnd_message.set_name('WSM','WSM_INVALID_RES_DEPT');
13914: --Set up Resource should be from the same department as Parent Resource
13915: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13916: fnd_file.put_line(fnd_file.log,x_error_msg);
13917: x_error_code := -1;
13918:
13919: when e_invalid_res_dates then
13920: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13919: when e_invalid_res_dates then
13920: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13921: fnd_message.set_token('FLD_NAME', ' resource start/completion dates ');
13922: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13923: fnd_file.put_line(fnd_file.log,x_error_msg);
13924: x_error_code := -1;
13925:
13926: when e_invalid_res_seq then
13927:
13927:
13928: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13929: fnd_message.set_token('FLD_NAME', ' resource seq num ');
13930: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13931: fnd_file.put_line(fnd_file.log,x_error_msg);
13932: x_error_code := -1;
13933:
13934: when e_invalid_seq then
13935: fnd_message.set_name('WSM','WSM_INVALID_SEQ');
13933:
13934: when e_invalid_seq then
13935: fnd_message.set_name('WSM','WSM_INVALID_SEQ');
13936: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get ;
13937: fnd_file.put_line(fnd_file.log,x_error_msg);
13938: x_error_code := -1;
13939:
13940: when e_invalid_setup_id then
13941: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13940: when e_invalid_setup_id then
13941: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13942: fnd_message.set_token('FLD_NAME', ' setup id ');
13943: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get ;
13944: fnd_file.put_line(fnd_file.log,x_error_msg);
13945: x_error_code := -1;
13946:
13947: when e_invalid_field then
13948: /*Modified error handling mechanism for bug 5469917. */
13948: /*Modified error handling mechanism for bug 5469917. */
13949: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13950: fnd_message.set_token('FLD_NAME', l_field_name);
13951: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13952: fnd_file.put_line(fnd_file.log,x_error_msg);
13953: x_error_code := -1;
13954:
13955: when e_invalid_max_assg_units then
13956:
13956:
13957: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13958: fnd_message.set_token('FLD_NAME', ' maximum assigned units ');
13959: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13960: fnd_file.put_line(fnd_file.log,x_error_msg);
13961: x_error_code := -1;
13962:
13963: when e_invalid_setup_max_assg_units then
13964:
13965: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
13966:
13967: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13968:
13969: fnd_file.put_line(fnd_file.log,x_error_msg);
13970: x_error_code := -1;
13971:
13972: when e_setup_costed then
13973:
13973:
13974: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
13975:
13976: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13977: fnd_file.put_line(fnd_file.log,x_error_msg);
13978: x_error_code := -1;
13979:
13980: when e_invalid_batch_max_assg_units then
13981:
13982: fnd_message.set_name('WSM','WSM_INVALID_BATCH_MAX_ASSG');
13983:
13984: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13985: x_error_code := -1;
13986: fnd_file.put_line(fnd_file.log,x_error_msg);
13987:
13988: when e_res_not_batchable then
13989:
13990: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13990: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13991: fnd_message.set_token('FLD_NAME', ' batch id for resource ');
13992:
13993: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
13994: fnd_file.put_line(fnd_file.log,x_error_msg);
13995: x_error_code := -1;
13996:
13997: when e_no_po_move_res then
13998: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
13997: when e_no_po_move_res then
13998: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
13999: fnd_message.set_token('FLD_NAME', ' resource ');
14000: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14001: fnd_file.put_line(fnd_file.log,x_error_msg);
14002: x_error_code := -1;
14003:
14004: when others then
14005: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || SQLCODE || ' : ' || substrb(SQLERRM,1,1000) ;
14002: x_error_code := -1;
14003:
14004: when others then
14005: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || SQLCODE || ' : ' || substrb(SQLERRM,1,1000) ;
14006: fnd_file.put_line(fnd_file.log,x_error_msg);
14007: x_error_code := -1;
14008:
14009: end validate_new_resource;
14010:
14584: -- Try to get a resource record...
14585: while l_index is not null loop
14586:
14587: IF lbji_debug = 'Y' THEN
14588: fnd_file.put_line(fnd_file.log,'Add Resource : Finding the next one : Current ID : ' || v_wljdi_record_id(l_index));
14589: END IF;
14590:
14591: IF (not(l_setup_index_tbl.exists(l_index))
14592: and v_wljdi_load_type(l_index) = WSM_LOAD_RES)
14592: and v_wljdi_load_type(l_index) = WSM_LOAD_RES)
14593: Then
14594: -- ok.. this is for Resource
14595: IF lbji_debug = 'Y' THEN
14596: fnd_file.put_line(fnd_file.log,'Add Resource : Found the next record : ' || v_wljdi_record_id(l_index));
14597: END IF;
14598: p_global_index := l_index;
14599: exit;
14600: END IF;
14601:
14602: l_index := v_wljdi_record_id.next(l_index);
14603: end loop;
14604: IF lbji_debug = 'Y' THEN
14605: fnd_file.put_line(fnd_file.log,'Add Resource : Next Record ID : ' || p_global_index);
14606: END IF;
14607:
14608: /* delete the fetched records... */
14609: l_index := l_setup_index_tbl.first;
14689: exception
14690:
14691: when others then
14692: x_error_msg := 'WSM_LBJ_INTERFACE_PVT : add_resource :: ' || l_stmt_num || ' : ' || substrb(SQLERRM,1,2000);
14693: fnd_file.put_line(fnd_file.log,x_error_msg);
14694: x_error_code := -1;
14695:
14696: end add_resource;
14697:
16551: l_d := l_d_saved; -- l_d can be set to null
16552: raise e_wljdi_common_error;
16553: end if;
16554: if lbji_debug = 'Y' then
16555: fnd_file.put_line(fnd_file.log, 'Mark new recommended path ... OK.');
16556: end if;
16557:
16558:
16559: -- {{ Begin: Update WCO, WCON to mark the recommended operation
16905:
16906: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
16907: -- this can happen when recommendations arrive after the job
16908: -- is moved. should give a warning message
16909: fnd_file.put_line(fnd_file.log,
16910: 'Warning: operation recommendations for current operation are ignored ' ||
16911: '(record_id = ' || l_d || ')' );
16912: end if;
16913:
16940: l_v_cum_yield(l_out) := l_cum_yield;
16941: l_v_rev_cum_yield(l_out) := l_rev_cum_yield;
16942:
16943: IF lbji_debug = 'Y' THEN
16944: fnd_file.put_line(fnd_file.log,'After validate_wljdi_operation : ' || l_stmt_num ||
16945: ' Operation start date : ' || to_char(l_op_sdate,'DD-MON-YYYY HH24:MI:SS') ||
16946: ' Operation end date :' || to_char(l_op_edate,'DD-MON-YYYY HH24:MI:SS'));
16947: END IF;
16948: l_out := l_out +1;
17039: l_d := l_op_link_first; -- skip load_type = 4, 5
17040: end if;
17041: end loop;
17042: if lbji_debug = 'Y' then
17043: fnd_file.put_line(fnd_file.log, 'Mark recommended operations ... OK.');
17044: end if;
17045:
17046: l_stmt_num := 110;
17047: -- Update WCO, to mark changes
17131: l_resource_seq_num := v_wljdi_resource_seq_num(l_d) ;
17132:
17133: -- Modified for Alcoa Enhancement
17134: -- if l_sub_type = (WSM_SUB_DEL) then
17135: -- fnd_file.put_line(fnd_file.log,
17136: -- 'Warning: deleting resources for current operation '||
17137: -- 'is currently not supported and ignored.' -- CZHDBG_MSG
17138: -- );
17139: -- end if;
17219: raise e_wljdi_common_error;
17220: end if;
17221:
17222: else
17223: fnd_file.put_line(fnd_file.log,
17224: 'Warning: Deleting or Adding resources for executed operations '||
17225: 'are currently not supported and ignored.');
17226: end if;
17227: elsif(l_rtg_op_seq_num IS NOT NULL) then -- Future operation
17610: p_prog_updt_date,
17611: to_number(round((l_v_res(l_resource_id).completion_date - l_v_res(l_resource_id).start_date)*1440)));
17612: end if;
17613: else
17614: fnd_file.put_line(fnd_file.log,
17615: 'Warning: Deleting or Adding resources for executed operations '||
17616: 'is currently not supported and ignored.');
17617: END if;
17618: ELSIF(l_rtg_op_seq_num IS NOT NULL) THEN
17870: -- If setup resources are added for a resource, keep track of it..
17871: IF l_job_op_seq_num IS NOT NULL THEN
17872:
17873: -- Added to WIP Operations...
17874: fnd_file.put_line(fnd_file.log,'Adding : ' || 'Y'||'-'||l_job_op_seq_num||'-'||l_temp_par_res_seq);
17875: l_v_setup_op_res_num('Y'||'-'||l_job_op_seq_num||'-'||l_temp_par_res_seq) := 'Y';
17876:
17877: ELSIF l_rtg_op_seq_num IS NOT NULL THEN
17878:
17875: l_v_setup_op_res_num('Y'||'-'||l_job_op_seq_num||'-'||l_temp_par_res_seq) := 'Y';
17876:
17877: ELSIF l_rtg_op_seq_num IS NOT NULL THEN
17878:
17879: fnd_file.put_line(fnd_file.log,'Adding : ' || 'N'||'-'||l_rtg_op_seq_num||'-'||l_temp_par_res_seq);
17880: l_v_setup_op_res_num('N'||'-'||l_rtg_op_seq_num||'-'||l_temp_par_res_seq) := 'Y';
17881:
17882: END IF;
17883:
17883:
17884: l_stmt_num := 204;
17885: -- Modified for Alcoa Enhancement
17886: -- elsif l_sub_type = (WSM_SUB_ADD) and v_wljdi_parent_seq_num(l_d) IS NULL then
17887: -- fnd_file.put_line(fnd_file.log,
17888: -- 'Warning: Add a runtime resources is currently not supported and ignored.' -- CZHDBG_MSG
17889: -- );
17890: --
17891: -- l_d := v_wljdi_record_id.next(l_d);
17974: IF not(l_v_setup_op_res_num.exists('Y'||'-'||l_job_op_seq_num||'-'||l_v_res(l_index).res_seq_num)) THEN
17975: p_error_code := 0;
17976: p_error_msg := null;
17977: IF lbji_debug = 'Y' THEN
17978: fnd_file.put_line(fnd_file.log,'import job details : before calling delete setup resource '
17979: || ' parent res.... : ' || l_v_res(l_index).res_seq_num );
17980: END IF;
17981:
17982: -- ST : Detailed Scheduling... should we remove the resources' setup resources that are being replaced....
18153:
18154: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
18155: -- this can happen when recommendations arrive after the job
18156: -- is moved. should give a warning message
18157: fnd_file.put_line(fnd_file.log,
18158: 'Warning: resource recommendations for current operation are ignored ' ||
18159: '(record_id = ' || l_d || ')' );
18160: end if;
18161: -- }} Update WIP table
18162:
18163: -- {{ Update WSM_COPY table
18164: elsif(l_rtg_op_seq_num IS NOT NULL) then
18165: l_stmt_num := 260.1;
18166: fnd_file.put_line(fnd_file.log,'import job details : Resource Updation...' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num);
18167:
18168: -- pack data into PL/SQL table l_v_res for validation
18169: l_v_res.delete;
18170: l_v_res(l_resource_id).rtg_op_seq_num := l_rtg_op_seq_num;
18218: l_v_res(l_resource_id).assigned_units := v_wljdi_assigned_units(l_d);
18219: /* ST : Detailed Scheduling end */
18220:
18221: IF lbji_debug = 'Y' THEN
18222: fnd_file.put_line(fnd_file.log,'import job details : Recomm. the resource..' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num
18223: || ' Res ID .... : ' || l_resource_id
18224: || ' date : ' || v_wljdi_start_date(l_d) );
18225: END IF;
18226:
18252:
18253: l_index := l_v_res.first;
18254:
18255: while l_index is not null loop
18256: --- fnd_file.put_line(fnd_file.log,'import job details : Loop resource counter : ' || l_index);
18257: IF not(l_v_setup_op_res_num.exists('N'||'-'||l_rtg_op_seq_num||'-'||l_v_res(l_index).res_seq_num)) THEN
18258:
18259: p_error_code := 0;
18260: p_error_msg := null;
18330: l_v_res_assg_units(l_out) := l_v_res(l_resource_id).assigned_units;
18331: /* ST : Detailed Scheduling end */
18332:
18333: IF lbji_debug = 'Y' THEN
18334: fnd_file.put_line(fnd_file.log,'import job details : Recomm. the resource..' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num
18335: || ' Res ID .... : ' || l_resource_id
18336: || ' date : ' || l_v_res(l_resource_id).start_date );
18337: END IF;
18338:
18394: l_v_res_max_assg_units(l_out) := null;
18395: l_v_res_assg_units(l_out) := null;
18396:
18397: IF lbji_debug = 'Y' THEN
18398: fnd_file.put_line(fnd_file.log,'import job details : Replacing the resource..' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num
18399: || ' parent res.... : ' || l_v_disco_res_seq_num(l_idx2) );
18400: END IF;
18401: /* here do it..... */
18402: /* not required... but check it with maruthi...
18506: -- and recommended <> 'Y' );
18507:
18508: end if;
18509: if lbji_debug = 'Y' then
18510: fnd_file.put_line(fnd_file.log, 'Mark recommended operation resources ... OK.');
18511: end if;
18512:
18513: end if;
18514: ------------------------------------------------
18677:
18678: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
18679: -- this can happen when recommendations arrive after the job
18680: -- is moved. should give a warning message
18681: fnd_file.put_line(fnd_file.log,
18682: 'Warning: resource instance recommendations for current operation are ignored ' ||
18683: '(record_id = ' || l_d || ')' );
18684: end if;
18685: -- }} Update WIP table
18840: p_program_id,
18841: p_prog_updt_date);
18842:
18843: if lbji_debug = 'Y' then
18844: fnd_file.put_line(fnd_file.log, 'Inserted resource instance ... OK.');
18845: end if;
18846:
18847: end if;
18848: if lbji_debug = 'Y' then
18845: end if;
18846:
18847: end if;
18848: if lbji_debug = 'Y' then
18849: fnd_file.put_line(fnd_file.log, 'Mark recommended resource instance ... OK.');
18850: end if;
18851:
18852: end if; -- resource instance recommendations exist
18853: ------------------------------------------------
18973:
18974: l_v_dup_usage(l_hash_value) := l_hash_value;
18975: else
18976: -- dup usage record
18977: fnd_file.put_line(fnd_file.log,
18978: 'Warning: duplicated resource usage recommendations are ignored ' ||
18979: '(record_id = ' || l_d || ').');
18980: end if;
18981: -- EC: bug 3373496
19078:
19079: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
19080: -- this can happen when recommendations arrive after the job
19081: -- is moved. should give a warning message
19082: fnd_file.put_line(fnd_file.log,
19083: 'Warning: resource usage recommendations for current operation is ignored ' ||
19084: '(record_id = ' || l_d || ').');
19085: end if;
19086: -- }} Update WIP table
19159:
19160: l_v_dup_usage(l_hash_value) := l_hash_value;
19161: else
19162: -- dup usage record
19163: fnd_file.put_line(fnd_file.log,
19164: 'Warning: duplicated resource usage recommendations are ignored ' ||
19165: '(record_id = ' || l_d || ').');
19166: end if;
19167: -- EC: bug 3373496
19287: end loop;
19288:
19289: end if;
19290: if lbji_debug = 'Y' then
19291: fnd_file.put_line(fnd_file.log, 'Mark recommended resource usage ... OK.');
19292: end if;
19293:
19294: end if; -- resource usage recommendations exist
19295: ------------------------------------------------
19336: -- p_error_msg := fnd_message.get;
19337: -- p_error_code := -1;
19338: -- raise e_wljdi_common_error;
19339: -- else
19340: -- fnd_file.put_line(fnd_file.log,
19341: -- 'Warning: deleting or adding components for current operation '||
19342: -- 'is currently not supported and ignored.' -- CZHDBG_MSG
19343: -- );
19344: -- end if;
19400: l_v_comp(l_in).supply_locator := v_wljdi_supply_locator_id(l_d);
19401: l_v_comp(l_in).mrp_net_flag := v_wljdi_mrp_net_flag(l_d);
19402:
19403: if v_wljdi_recommended(l_d) = 'N' then
19404: fnd_file.put_line(fnd_file.log,'Warning: Addition of non-recommended component for current operation are ignored ' || '(record_id = ' || l_d || ').' );
19405: l_valid_comp := false;
19406: else
19407: l_valid_comp := true;
19408: end if;
19563: and msi.organization_id = p_org_id;
19564: end if;
19565: end if; -- WSM_SUB_DEL AND ADD
19566: else
19567: fnd_file.put_line(fnd_file.log,
19568: 'Warning: Deleting or Adding components for executed operations '||
19569: 'is currently not supported and ignored.');
19570: end if; --current operation
19571: ELSIF (l_rtg_op_seq_num IS NOT NULL) THEN
19792:
19793: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
19794: -- this can happen when recommendations arrive after the job is moved.
19795: -- OSFM will give a warning message, and ignore this record
19796: fnd_file.put_line(fnd_file.log,
19797: 'Warning: component recommendations for current operation are ignored ' ||
19798: '(record_id = ' || l_d || ').' );
19799: end if;
19800: -- }} Update WIP table
19978: -1, component_sequence_id,
19979: l_v_comp_comp_seq_id(i));
19980: end if;
19981: if lbji_debug = 'Y' then
19982: fnd_file.put_line(fnd_file.log, 'Mark recommended operation components ... OK.');
19983: end if;
19984:
19985: end if;
19986: ------------------------------------------------
19994: fnd_message.set_name('WSM','WSM_INVALID_RECO_LINK');
19995: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
19996: || fnd_message.get;
19997: p_error_code := -1;
19998: fnd_file.put_line(fnd_file.log,
19999: substr('import_lot_job_details: (#'||l_stmt_num||') '
20000: || p_error_msg, 1, 2000));
20001:
20002: when e_invalid_discommend_path then
20004: fnd_message.set_name('WSM','WSM_INVALID_DISCO_LINK');
20005: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20006: || fnd_message.get;
20007: p_error_code := -1;
20008: fnd_file.put_line(fnd_file.log,
20009: substr('import_lot_job_details: (#'||l_stmt_num||') '
20010: || p_error_msg, 1, 2000));
20011:
20012:
20016: fnd_message.set_token('FLD_NAME', 'load_type and substitution_type');
20017: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20018: || fnd_message.get;
20019: p_error_code := -1;
20020: fnd_file.put_line(fnd_file.log,
20021: substr('import_lot_job_details: (#'||l_stmt_num||') '
20022: || p_error_msg, 1, 2000));
20023:
20024: when e_invalid_op_seq_num then
20027: fnd_message.set_token('FLD_NAME', 'job_op_seq_num and routing_op_seq_num');
20028: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20029: || fnd_message.get;
20030: p_error_code := -1;
20031: fnd_file.put_line(fnd_file.log,
20032: substr('import_lot_job_details: (#'||l_stmt_num||') '
20033: || p_error_msg, 1, 2000));
20034:
20035: when e_invalid_resource_name then
20036: ROLLBACK to start_import_details;
20037: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20038: || 'Error: Cannot get resource_id from resource name';
20039: p_error_code := -1;
20040: fnd_file.put_line(fnd_file.log,
20041: substr('import_lot_job_details: (#'||l_stmt_num||') '
20042: || p_error_msg, 1, 2000));
20043:
20044: when e_null_comp_seq_id then
20047: fnd_message.set_token('FLD_NAME', 'component_seq_id');
20048: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20049: || fnd_message.get;
20050: p_error_code := -1;
20051: fnd_file.put_line(fnd_file.log,
20052: substr('import_lot_job_details: (#'||l_stmt_num||') '
20053: || p_error_msg, 1, 2000));
20054:
20055: when e_invalid_item_name then
20056: ROLLBACK to start_import_details;
20057: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20058: || 'Error: Cannot get item_id from item name';
20059: p_error_code := -1;
20060: fnd_file.put_line(fnd_file.log,
20061: substr('import_lot_job_details: (#'||l_stmt_num||') '
20062: || p_error_msg, 1, 2000));
20063:
20064: when e_wljdi_common_error then
20067: if(l_d IS NOT NULL) then
20068: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20069: || p_error_msg;
20070: end if;
20071: fnd_file.put_line(fnd_file.log,
20072: substr('import_lot_job_details: (#'||l_stmt_num||') '
20073: || p_error_msg, 1, 2000));
20074:
20075: when others then
20076: ROLLBACK to start_import_details;
20077: p_error_code := SQLCODE;
20078: p_error_msg := substr('import_lot_job_details: (#'||l_stmt_num||') '
20079: ||SQLERRM, 1, 2000);
20080: fnd_file.put_line(fnd_file.log, p_error_msg);
20081: END import_lot_job_details;
20082:
20083:
20084:
20538: -- ED: bugfix 3299811
20539:
20540:
20541: if lbji_debug = 'Y' then
20542: fnd_file.put_line(fnd_file.log, 'Inserted '||l_cnt||' rows into wip_period_balances');
20543: end if;
20544:
20545: --if SQL%NOTFOUND then -- bug 3571360
20546: if l_cnt <= 0 then -- bug 3571360
20750: 0)),
20751: 0)
20752: where wo.wip_entity_id = p_wip_entity_id;
20753: if lbji_debug = 'Y' then
20754: fnd_file.put_line(fnd_file.log,'Update Quantity, Prev/Next Op in wo(l_stmt_num='
20755: ||l_stmt_num||'): '|| SQL%ROWCOUNT);
20756: end if;
20757:
20758: l_stmt_num := 100;
20761: set quantity_completed = p_start_quantity
20762: where wip_entity_id = p_wip_entity_id
20763: and operation_seq_num < l_max_op_seq_num;
20764: if lbji_debug = 'Y' then
20765: fnd_file.put_line(fnd_file.log,'Update Quantity_Completed in wo(l_stmt_num='
20766: ||l_stmt_num||'): '|| SQL%ROWCOUNT);
20767: end if; */
20768:
20769: l_stmt_num := 110;
20772: where wip_entity_id = p_wip_entity_id
20773: and operation_seq_num < l_max_op_seq_num
20774: and wip_supply_type not in (2, 4, 5, 6); -- Fix for bug #2685463
20775: if lbji_debug = 'Y' then
20776: fnd_file.put_line(fnd_file.log,'Update Quantity_Issued in wro(l_stmt_num='
20777: ||l_stmt_num||'): '|| SQL%ROWCOUNT);
20778: end if;
20779: -- }} Update quantity
20780: if (p_status_type = 3) then
20858:
20859: EXCEPTION
20860: when e_build_job_dtl then
20861: -- p_error_code/p_error_msg was set
20862: fnd_file.put_line(fnd_file.log,
20863: substr('build_job_detail_info (#'||l_stmt_num||') '
20864: ||p_error_msg, 1, 2000));
20865:
20866: when others then
20866: when others then
20867: p_error_code := SQLCODE;
20868: p_error_msg := substr('build_job_detail_info (#'||l_stmt_num||') '
20869: || SQLERRM, 1, 2000);
20870: fnd_file.put_line(fnd_file.log, substr(p_error_msg, 1, 2000));
20871: END build_job_detail_info;
20872:
20873:
20874: -- **********************************************************************************************
21212: l_est_scrap_var_account,
21213: p_coproducts_supply
21214: );
21215: if lbji_debug = 'Y' then
21216: fnd_file.put_line(fnd_file.log, 'Inserted '||SQL%ROWCOUNT||' rows into wdj');
21217: end if;
21218:
21219:
21220: l_stmt_num := 135;
21249: p_program_id,
21250: p_prog_updt_date
21251: );
21252: if lbji_debug = 'Y' then
21253: fnd_file.put_line(fnd_file.log, 'Inserted '||SQL%ROWCOUNT||' rows into wlbj');
21254: end if;
21255: END IF;--Check on g_skip_wlbj
21256: g_skip_wlbj := 0; --OPTII-PERF
21257: l_stmt_num := 140;
21300: p_error_msg := fnd_message.get;
21301: raise e_build_job;
21302: end;
21303: if lbji_debug = 'Y' then
21304: fnd_file.put_line(fnd_file.log, 'Inserted '||SQL%ROWCOUNT||' rows into we');
21305: end if;
21306:
21307:
21308: l_stmt_num := 150;
21420: EXCEPTION
21421:
21422: when e_build_job then
21423: -- p_error_code and p_error_msg were set
21424: fnd_file.put_line(fnd_file.log,substr('build_job_header_info: (#'||l_stmt_num||') '
21425: ||p_error_msg, 1, 2000));
21426:
21427:
21428: when others then
21428: when others then
21429: p_error_code := SQLCODE;
21430: p_error_msg := substr('build_job_header_info: (#'||l_stmt_num||') '
21431: ||SQLERRM, 1, 2000);
21432: fnd_file.put_line(fnd_file.log, substr(p_error_msg, 1, 2000));
21433:
21434: END build_job_header_info;
21435:
21436: