[Home] [Help]
767: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
768: fnd_message.set_token('FLD_NAME', p_field);
769: l_err_msg := fnd_message.get;
770: v_wlji_err_msg(v_idx) := l_err_msg;
771: fnd_file.put_line(fnd_file.log,
772: 'Error: (stmt_num: '|| stmt_number ||') '||l_err_msg||' '||p_aux_string);
773: fnd_file.new_line(fnd_file.log, 3);
774: END handle_invalid_field;
775:
769: l_err_msg := fnd_message.get;
770: v_wlji_err_msg(v_idx) := l_err_msg;
771: fnd_file.put_line(fnd_file.log,
772: 'Error: (stmt_num: '|| stmt_number ||') '||l_err_msg||' '||p_aux_string);
773: fnd_file.new_line(fnd_file.log, 3);
774: END handle_invalid_field;
775:
776:
777:
794: v_wlji_err_code(v_idx) := -1;
795: fnd_message.set_name(p_product, p_message_name);
796: l_err_msg := fnd_message.get;
797: v_wlji_err_msg(v_idx) := l_err_msg;
798: fnd_file.put_line(fnd_file.log,
799: 'Error: (stmt_num: '|| stmt_number||') '||l_err_msg);
800: fnd_file.new_line(fnd_file.log, 3);
801: END handle_errmsg_name;
802:
796: l_err_msg := fnd_message.get;
797: v_wlji_err_msg(v_idx) := l_err_msg;
798: fnd_file.put_line(fnd_file.log,
799: 'Error: (stmt_num: '|| stmt_number||') '||l_err_msg);
800: fnd_file.new_line(fnd_file.log, 3);
801: END handle_errmsg_name;
802:
803:
804:
812: BEGIN
813: v_wlji_process_status(v_idx) := 3; -- ERROR
814: v_wlji_err_code(v_idx) := p_err_code;
815: v_wlji_err_msg(v_idx) := substr(p_err_msg,1,2000);
816: fnd_file.put_line(fnd_file.log,
817: 'Error: (stmt_num: ' || stmt_number||') '||p_err_msg);
818: fnd_file.new_line(fnd_file.log, 3);
819: END handle_error;
820:
814: v_wlji_err_code(v_idx) := p_err_code;
815: v_wlji_err_msg(v_idx) := substr(p_err_msg,1,2000);
816: fnd_file.put_line(fnd_file.log,
817: 'Error: (stmt_num: ' || stmt_number||') '||p_err_msg);
818: fnd_file.new_line(fnd_file.log, 3);
819: END handle_error;
820:
821:
822: -- **********************************************************************************************
832: dummy_err_code number;
833: dummy_err_msg varchar2(2000);
834:
835: BEGIN
836: fnd_file.put_line(fnd_file.log, 'Warning: ' || p_err_msg);
837: wsmputil.WRITE_TO_WIE (
838: p_header_id,
839: substr(p_err_msg,1,2000),
840: p_request_id,
2171: v_wljdi_resource_seq_num(l_d) := NULL;
2172: v_wljdi_instance_id_new(l_d) := NULL;
2173: v_wljdi_serial_number_new(l_d) := NULL;
2174: if lbji_debug = 'Y' then
2175: fnd_file.put_line(fnd_file.log,
2176: 'Ignore the following fields for load_type 2: substitute_group_num, '
2177: || 'replacement_group_num, resource_id_new, resource_seq_num, '
2178: || 'instance_id_new, serial_number_new');
2179: end if;
2625: fnd_message.set_token('FLD_NAME', 'load_type and substitution_type');
2626: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2627: || fnd_message.get;
2628: p_error_code := -1;
2629: fnd_file.put_line(fnd_file.log, substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2630:
2631: when e_invalid_op_seq_num then
2632: fnd_message.set_name('WSM','WSM_NULL_FIELD');
2633: fnd_message.set_token('FLD_NAME', 'job_op_seq_num and routing_op_seq_num');
2633: fnd_message.set_token('FLD_NAME', 'job_op_seq_num and routing_op_seq_num');
2634: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2635: || fnd_message.get;
2636: p_error_code := -1;
2637: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '
2638: || p_error_msg, 1, 2000));
2639:
2640: when e_invalid_resource_code then
2641: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2642: fnd_message.set_token('FLD_NAME', 'resource_code_new');
2643: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2644: || fnd_message.get;
2645: p_error_code := -1;
2646: fnd_file.put_line(fnd_file.log,
2647: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2648: || p_error_msg, 1, 2000));
2649:
2650: /* ST : Detailed Scheduling start */
2654: fnd_message.set_token('FLD_NAME', 'resource_id_new');
2655: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2656: || fnd_message.get;
2657: p_error_code := -1;
2658: fnd_file.put_line(fnd_file.log,
2659: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2660: || p_error_msg, 1, 2000));
2661:
2662: when e_invalid_dept_code then
2664: fnd_message.set_token('FLD_NAME', 'department_code/department id combination');
2665: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2666: || fnd_message.get;
2667: p_error_code := -1;
2668: fnd_file.put_line(fnd_file.log,
2669: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2670: || p_error_msg, 1, 2000));
2671:
2672: /* ST : Detailed Scheduling end */
2676: fnd_message.set_token('FLD_NAME', 'item_id');
2677: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2678: || fnd_message.get;
2679: p_error_code := -1;
2680: fnd_file.put_line(fnd_file.log,
2681: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2682: || p_error_msg, 1, 2000));
2683:
2684: when e_no_res_seq_num then
2684: when e_no_res_seq_num then
2685: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2686: || 'resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
2687: p_error_code := -1;
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_wljdi_common_error then
2689: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2690: || p_error_msg, 1, 2000));
2691:
2692: when e_wljdi_common_error then
2693: fnd_file.put_line(fnd_file.log,
2694: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2695: || p_error_msg, 1, 2000));
2696:
2697: when e_invalid_setup_code then
2699: fnd_message.set_token('FLD_NAME', 'Setup Code ');
2700: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2701: || fnd_message.get;
2702: p_error_code := -1;
2703: fnd_file.put_line(fnd_file.log,
2704: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2705: || p_error_msg, 1, 2000));
2706:
2707: ---Added for LBJ Enhancement
2711: fnd_message.set_token('FLD_NAME', 'resource_seq_num/job_op_seq_num combination');
2712: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2713: || fnd_message.get;
2714: p_error_code := -1;
2715: fnd_file.put_line(fnd_file.log,
2716: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2717: || p_error_msg, 1, 2000));
2718:
2719: when e_invalid_res_seq_num then
2721: fnd_message.set_token('FLD_NAME', 'resource_seq_num/job_op_seq_num combination');
2722: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
2723: || fnd_message.get;
2724: p_error_code := -1;
2725: fnd_file.put_line(fnd_file.log,
2726: substr('default_wljdi_fields: (#'||l_stmt_num||') '
2727: || p_error_msg, 1, 2000));
2728: when e_inv_std_op then
2729: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2729: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2730: fnd_message.set_token('FLD_NAME', 'standard_operation_id/standard_operation_code combination');
2731: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2732: p_error_code := -1;
2733: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2734: when e_invalid_min_trf_qty then
2735: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2736: fnd_message.set_token('FLD_NAME', 'minimum_transfer_quantity');
2737: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2735: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2736: fnd_message.set_token('FLD_NAME', 'minimum_transfer_quantity');
2737: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2738: p_error_code := -1;
2739: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2740: when e_invalid_count_point then
2741: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2742: fnd_message.set_token('FLD_NAME', 'count_point_type');
2743: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2741: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2742: fnd_message.set_token('FLD_NAME', 'count_point_type');
2743: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2744: p_error_code := -1;
2745: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2746: when e_invalid_backflush_flag then
2747: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2748: fnd_message.set_token('FLD_NAME', 'backflush_flag');
2749: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2747: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2748: fnd_message.set_token('FLD_NAME', 'backflush_flag');
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_dup_op_seq then
2753: fnd_message.set_name('WSM','WSM_INVALID_OPERATION');
2754: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2755: p_error_code := -1;
2752: when e_dup_op_seq then
2753: fnd_message.set_name('WSM','WSM_INVALID_OPERATION');
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_op_date then
2758: fnd_message.set_name('WSM','WSM_OP_BAD_DATES');
2759: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2760: p_error_code := -1;
2757: when e_invalid_op_date then
2758: fnd_message.set_name('WSM','WSM_OP_BAD_DATES');
2759: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2760: p_error_code := -1;
2761: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2762: when e_invalid_routing_op_seq then
2763: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2764: fnd_message.set_token('FLD_NAME', 'Routing_op_seq_num');
2765: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2763: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2764: fnd_message.set_token('FLD_NAME', 'Routing_op_seq_num');
2765: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2766: p_error_code := -1;
2767: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2768: when e_invalid_job_op_seq then
2769: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2770: fnd_message.set_token('FLD_NAME', 'Job_op_seq_num');
2771: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2769: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
2770: fnd_message.set_token('FLD_NAME', 'Job_op_seq_num');
2771: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '|| fnd_message.get;
2772: p_error_code := -1;
2773: fnd_file.put_line(fnd_file.log,substr('default_wljdi_fields: (#'||l_stmt_num||') '|| p_error_msg, 1, 2000));
2774:
2775: when others then
2776: p_error_code := -1;
2777: p_error_msg := 'Error: default_wljdi_fields: (#'||
3232: l_app_res_units := 0;
3233: l_res_seq_num := p_v_res(l_i).res_seq_num ;
3234:
3235: IF lbji_debug = 'Y' then
3236: 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);
3237: END IF;
3238:
3239: -- get op start/completion date
3240: if( p_handle_wip_cur_op = 'Y') then
3258: and operation_seq_num = l_rtg_op_seq_num;
3259: end if;
3260:
3261: IF lbji_debug = 'Y' then
3262: fnd_file.put_line(fnd_file.log,'Validate_op_resource : ');
3263: END IF;
3264:
3265: if(p_substitution_type = 3) then -- update only
3266: l_resource_id := p_v_res(l_i).resource_id;
4227: when e_invalid_resource then
4228: x_error_code := -1;
4229: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
4230: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4231: fnd_file.put_line(fnd_file.log,x_error_msg );
4232:
4233: when e_invalid_rpl_grp then
4234: x_error_code := -1;
4235: fnd_message.set_name('WSM','WSM_RES_PARTIAL_RPLGRP');
4233: when e_invalid_rpl_grp then
4234: x_error_code := -1;
4235: fnd_message.set_name('WSM','WSM_RES_PARTIAL_RPLGRP');
4236: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4237: fnd_file.put_line(fnd_file.log,x_error_msg );
4238:
4239: when e_invalid_date then
4240: x_error_code := -1;
4241: fnd_message.set_name('WSM','WSM_RES_BAD_DATES');
4239: when e_invalid_date then
4240: x_error_code := -1;
4241: fnd_message.set_name('WSM','WSM_RES_BAD_DATES');
4242: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4243: fnd_file.put_line(fnd_file.log,x_error_msg );
4244:
4245: /* ST : Detailed Scheduling start */
4246: when e_invalid_max_assg_units then
4247: x_error_code := -1;
4246: when e_invalid_max_assg_units then
4247: x_error_code := -1;
4248: fnd_message.set_name('WSM','WSM_INVALID_MAX_ASSG');
4249: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4250: fnd_file.put_line(fnd_file.log,x_error_msg );
4251:
4252: when e_invalid_setup_max_assg_units then
4253: x_error_code := -1;
4254: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
4252: when e_invalid_setup_max_assg_units then
4253: x_error_code := -1;
4254: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
4255: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4256: fnd_file.put_line(fnd_file.log,x_error_msg );
4257:
4258: when e_invalid_seq then
4259: x_error_code := -1;
4260: fnd_message.set_name('WSM','WSM_INVALID_SEQ'); /* group seq nyum and group seq id... */
4258: when e_invalid_seq then
4259: x_error_code := -1;
4260: fnd_message.set_name('WSM','WSM_INVALID_SEQ'); /* group seq nyum and group seq id... */
4261: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4262: fnd_file.put_line(fnd_file.log,x_error_msg );
4263:
4264: when e_invalid_batch_max_assg_units then
4265: x_error_code := -1;
4266: fnd_message.set_name('WSM','WSM_INVALID_BATCH_MAX_ASSG');
4264: when e_invalid_batch_max_assg_units then
4265: x_error_code := -1;
4266: fnd_message.set_name('WSM','WSM_INVALID_BATCH_MAX_ASSG');
4267: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4268: fnd_file.put_line(fnd_file.log,x_error_msg );
4269:
4270: when e_invalid_setup_id then
4271: x_error_code := -1;
4272: --fnd_message.set_name('WSM','WSM_INVALID_SETUP');
4272: --fnd_message.set_name('WSM','WSM_INVALID_SETUP');
4273: fnd_message.set_name('WSM','WSM_INVALID_FIELD'); /*Bug 5488082*/
4274: fnd_message.set_token('FLD_NAME', ' setup_id ');
4275: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4276: fnd_file.put_line(fnd_file.log,x_error_msg );
4277:
4278: when e_invalid_firm_type then
4279: x_error_code := -1;
4280: /* add the error message..... */
4280: /* add the error message..... */
4281: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4282: fnd_message.set_token('FLD_NAME', ' firm type ');
4283: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4284: fnd_file.put_line(fnd_file.log,x_error_msg );
4285:
4286: when e_res_not_batchable then
4287: x_error_code := -1;
4288: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4289: --fnd_message.set_token('FLD_NAME', ' batch id for resource');
4290: fnd_message.set_token('FLD_NAME', ' batch_id'); /*Bug 5487540 */
4291: --x_error_msg := fnd_message.get;
4292: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4293: fnd_file.put_line(fnd_file.log,x_error_msg );
4294:
4295: when e_invalid_setup_code then
4296: x_error_code := -1;
4297: /* add the error message..... */
4297: /* add the error message..... */
4298: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4299: fnd_message.set_token('FLD_NAME', 'Setup Code ');
4300: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4301: fnd_file.put_line(fnd_file.log,x_error_msg );
4302:
4303: /* ST : Detailed Scheduling end */
4304:
4305: --Alcoa Enhancements Changes
4313: x_error_code := -1;
4314: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4315: fnd_message.set_token('FLD_NAME', 'Assigned_units');
4316: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4317: fnd_file.put_line(fnd_file.log,x_error_msg );
4318:
4319: when e_inv_appl_res_units THEN
4320: x_error_code := -1;
4321: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4336: x_error_code := -1;
4337: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4338: fnd_message.set_token('FLD_NAME', 'substitution_group_num');
4339: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4340: fnd_file.put_line(fnd_file.log,x_error_msg );
4341:
4342: when e_invalid_res_reco_flag then
4343: x_error_code := -1;
4344: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4343: x_error_code := -1;
4344: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4345: fnd_message.set_token('FLD_NAME', 'recommended_flag');
4346: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4347: fnd_file.put_line(fnd_file.log,x_error_msg );
4348:
4349: when e_inv_res_basis_type then
4350: x_error_code := -1;
4351: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4350: x_error_code := -1;
4351: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4352: fnd_message.set_token('FLD_NAME', 'basis_type');
4353: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4354: fnd_file.put_line(fnd_file.log,x_error_msg );
4355:
4356: when e_inv_res_charge_type then
4357: x_error_code := -1;
4358: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
4356: when e_inv_res_charge_type then
4357: x_error_code := -1;
4358: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
4359: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4360: fnd_file.put_line(fnd_file.log,x_error_msg );
4361:
4362: when e_inv_res_sch_flag then
4363: x_error_code := -1;
4364: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4363: x_error_code := -1;
4364: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4365: fnd_message.set_token('FLD_NAME', 'scheduled_flag');
4366: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4367: fnd_file.put_line(fnd_file.log,x_error_msg );
4368:
4369: when e_invalid_res_seq_num then
4370: x_error_code := -1;
4371: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4370: x_error_code := -1;
4371: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4372: fnd_message.set_token('FLD_NAME', 'resource_seq_num');
4373: x_error_msg := fnd_message.get;
4374: fnd_file.put_line(fnd_file.log,x_error_msg );
4375:
4376: when e_invalid_usg_rate then
4377: x_error_code := -1;
4378: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4377: x_error_code := -1;
4378: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4379: fnd_message.set_token('FLD_NAME', 'usage_rate_or_amount');
4380: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4381: fnd_file.put_line(fnd_file.log,x_error_msg );
4382:
4383: when e_invalid_res_dept THEN
4384: x_error_code := -1;
4385: fnd_message.set_name('WSM','WSM_INVALID_RES_DEPT');
4389: x_error_code := -1;
4390: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4391: fnd_message.set_token('FLD_NAME', 'Autocharge_type');
4392: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') ' || fnd_message.get;
4393: fnd_file.put_line(fnd_file.log,x_error_msg );
4394:
4395: when others then
4396: x_error_code := -1;
4397: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') '
4396: x_error_code := -1;
4397: x_error_msg := 'Error: validate_wljdi_op_resource: (#'|| l_stmt_num||') '
4398: || SUBSTR(SQLERRM, 1,240);
4399:
4400: fnd_file.put_line(fnd_file.log,x_error_msg );
4401:
4402: END validate_wljdi_op_resource;
4403:
4404:
4464: x_error_msg := '';
4465: l_i := p_v_res_ins.first;
4466:
4467: IF lbji_debug = 'Y' then
4468: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance start ...');
4469: END IF;
4470:
4471:
4472: if(l_i IS NULL) then return; end if;
4478:
4479: -- ST : Bug fix 4240165 : Detailed Scheduling changes start
4480: IF l_res_seq_num IS NULL THEN
4481: IF lbji_debug = 'Y' then
4482: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : Setup resopurce : '
4483: || ' Parent_res_seq_num : ' || p_parent_res_seq_num
4484: || ' Parent res ID : ' || p_resource_id
4485: || ' l_rtg_op_seq_num : ' || l_rtg_op_seq_num);
4486: END IF;
4500:
4501: EXCEPTION
4502: WHEN NO_DATA_FOUND THEN
4503: IF lbji_debug = 'Y' then
4504: fnd_file.put_line(fnd_file.log,' No Resource...');
4505: END IF;
4506: raise e_no_res_seq_num;
4507: WHEN TOO_MANY_ROWS THEN
4508: IF lbji_debug = 'Y' then
4505: END IF;
4506: raise e_no_res_seq_num;
4507: WHEN TOO_MANY_ROWS THEN
4508: IF lbji_debug = 'Y' then
4509: fnd_file.put_line(fnd_file.log,' No Unique Resource...');
4510: END IF;
4511: raise e_no_res_seq_num;
4512: END;
4513: ELSE
4619: null;
4620: END;
4621:
4622: IF lbji_debug = 'Y' then
4623: 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);
4624: END IF;
4625:
4626: if(l_res_recommended <> 'Y') then
4627: raise e_res_not_reco;
4629:
4630: else -- p_handle_wip_cur_op = 'Y'
4631:
4632: IF lbji_debug = 'Y' then
4633: 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);
4634: END IF;
4635:
4636: BEGIN
4637: l_stmt_num := 30.2;
4658: raise e_invalid_res_seq_num;
4659: END;
4660:
4661: IF lbji_debug = 'Y' then
4662: 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'));
4663: 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'));
4664: END IF;
4665:
4666: END IF;
4659: END;
4660:
4661: IF lbji_debug = 'Y' then
4662: 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'));
4663: 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'));
4664: END IF;
4665:
4666: END IF;
4667:
4678:
4679: l_stmt_num := 40.1;
4680:
4681: IF lbji_debug = 'Y' then
4682: 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);
4683: 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'));
4684: 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'));
4685: 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'));
4686: 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'));
4679: l_stmt_num := 40.1;
4680:
4681: IF lbji_debug = 'Y' then
4682: 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);
4683: 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'));
4684: 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'));
4685: 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'));
4686: 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'));
4687: END IF;
4680:
4681: IF lbji_debug = 'Y' then
4682: 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);
4683: 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'));
4684: 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'));
4685: 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'));
4686: 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'));
4687: END IF;
4688:
4681: IF lbji_debug = 'Y' then
4682: 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);
4683: 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'));
4684: 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'));
4685: 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'));
4686: 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'));
4687: END IF;
4688:
4689: -- check instance_id and serial_number
4682: 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);
4683: 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'));
4684: 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'));
4685: 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'));
4686: 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'));
4687: END IF;
4688:
4689: -- check instance_id and serial_number
4690: if(l_instance_id IS NULL ) then
4691: raise e_null_ins_id;
4692: end if;
4693: l_stmt_num := 40.2;
4694: IF lbji_debug = 'Y' then
4695: 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);
4696: END IF;
4697:
4698: BEGIN
4699: /* Modified SQL for Bug 5476647. Since the SQL before was checking only whether the given instance
4767: when e_res_not_reco then
4768: x_error_code := -1;
4769: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
4770: x_error_msg := fnd_message.get;
4771: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4772:
4773: when e_not_on_reco_path then
4774: x_error_code := -1;
4775: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
4773: when e_not_on_reco_path then
4774: x_error_code := -1;
4775: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
4776: x_error_msg := fnd_message.get;
4777: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4778:
4779:
4780: when e_invalid_rtg_op_seq then
4781: x_error_code := -1;
4782: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4783: fnd_message.set_token('FLD_NAME', 'routing_op_seq_num');
4784: x_error_msg := fnd_message.get;
4785:
4786: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4787:
4788:
4789: when e_invalid_res_seq_num then
4790: x_error_code := -1;
4790: x_error_code := -1;
4791: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
4792: x_error_msg := fnd_message.get;
4793:
4794: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4795:
4796:
4797: when e_ins_not_exists then
4798: x_error_code := -1;
4798: x_error_code := -1;
4799: fnd_message.set_name('WSM','WSM_INS_NOT_EXISTS');
4800: x_error_msg := fnd_message.get;
4801:
4802: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4803:
4804:
4805: when e_null_ins_id then
4806: x_error_code := -1;
4807: fnd_message.set_name('WSM','WSM_NULL_FIELD');
4808: fnd_message.set_token('FLD_NAME', 'Instance_id');
4809: x_error_msg := fnd_message.get;
4810:
4811: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4812:
4813:
4814: when e_invalid_ins_id then
4815: x_error_code := -1;
4816: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4817: fnd_message.set_token('FLD_NAME', 'Instance_id and Serial_number');
4818: x_error_msg := fnd_message.get;
4819:
4820: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4821:
4822:
4823: when e_null_date then
4824: x_error_code := -1;
4825: fnd_message.set_name('WSM','WSM_NULL_FIELD');
4826: fnd_message.set_token('FLD_NAME', 'Start date and Completion date');
4827: x_error_msg := fnd_message.get;
4828:
4829: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4830:
4831:
4832: when e_invalid_date then
4833: x_error_code := -1;
4834: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
4835: fnd_message.set_token('FLD_NAME', 'Resource instance scheduled dates');
4836: x_error_msg := fnd_message.get;
4837:
4838: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4839:
4840:
4841: when e_invalid_time_slot then
4842: x_error_code := -1;
4842: x_error_code := -1;
4843: fnd_message.set_name('WSM','WSM_INS_BAD_TIME_SLOT');
4844: x_error_msg := fnd_message.get;
4845:
4846: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4847:
4848: -- ST : Detailed Scheduling...
4849: when e_no_res_seq_num then
4850: x_error_msg := 'resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
4848: -- ST : Detailed Scheduling...
4849: when e_no_res_seq_num then
4850: x_error_msg := 'resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
4851: x_error_code := -1;
4852: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4853: -- ST : Detailed Scheduling...
4854:
4855: when others then
4856: x_error_code := -1;
4856: x_error_code := -1;
4857: x_error_msg := 'Error: validate_wljdi_res_instance: (#'||l_stmt_num||') '
4858: || SUBSTR(SQLERRM, 1,2000);
4859:
4860: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_instance : ' || l_stmt_num || ' error : ' || x_error_msg);
4861:
4862:
4863: END validate_wljdi_res_instance;
4864:
5118: -- check if the resource has instance information
5119: l_exists := 0;
5120: -- Code for debug purpose.... ---- -- to uncomment replace all
5121: IF lbji_debug = 'Y' then
5122: fnd_file.put_line(fnd_file.log,'Wip entity id : ' || p_wip_entity_id
5123: || ' op seq num : ' || l_job_op_seq_num
5124: || ' res seq num : ' ||l_res_seq_num
5125: );
5126: END IF;
5215: if(l_sdate > l_edate or -- bug 3323417, was >=
5216: l_sdate < NVL(l_the_sdate, l_sdate) or
5217: l_edate > NVL(l_the_edate, l_edate))
5218: then
5219: --fnd_file.put_line(fnd_file.log, 'CZHDBG: XXX'
5220: -- || ' l_the_sdate = ' || TO_CHAR(l_the_sdate, 'DD-MON-YYYY HH24:MI:SS')
5221: -- || ',l_the_edate = ' || TO_CHAR(l_the_edate, 'DD-MON-YYYY HH24:MI:SS')
5222: -- || ' l_sdate = ' || TO_CHAR(l_sdate, 'DD-MON-YYYY HH24:MI:SS')
5223: -- || ' l_edate = ' || TO_CHAR(l_edate, 'DD-MON-YYYY HH24:MI:SS')
5284: when e_not_on_reco_path then
5285: x_error_code := -1;
5286: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
5287: x_error_msg := fnd_message.get;
5288: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5289:
5290: when e_res_not_reco then
5291: x_error_code := -1;
5292: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
5290: when e_res_not_reco then
5291: x_error_code := -1;
5292: fnd_message.set_name('WSM','WSM_INS_USE_NON_RECO');
5293: x_error_msg := fnd_message.get;
5294: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5295:
5296: when e_invalid_rtg_op_seq then
5297: x_error_code := -1;
5298: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5297: x_error_code := -1;
5298: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5299: fnd_message.set_token('FLD_NAME', 'routing_op_seq_num');
5300: x_error_msg := fnd_message.get;
5301: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5302:
5303: when e_invalid_res_seq_num then
5304: x_error_code := -1;
5305: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
5303: when e_invalid_res_seq_num then
5304: x_error_code := -1;
5305: fnd_message.set_name('WSM','WSM_RES_NOT_REQUIRED');
5306: x_error_msg := fnd_message.get;
5307: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5308:
5309: when e_instances_exist then
5310: x_error_code := -1;
5311: fnd_message.set_name('WSM','WSM_INS_EXISTS');
5309: when e_instances_exist then
5310: x_error_code := -1;
5311: fnd_message.set_name('WSM','WSM_INS_EXISTS');
5312: x_error_msg := fnd_message.get;
5313: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5314:
5315: when e_invalid_instance_id then
5316: x_error_code := -1;
5317: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5317: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5318: --fnd_message.set_token('FLD_NAME', ' l_stmt_num : ' || l_stmt_num || ' Resource_seq_num / Instance_id / Serial_number');
5319: fnd_message.set_token('FLD_NAME', ' Resource_seq_num / Instance_id / Serial_number'); /*Bug 5488016 */
5320: x_error_msg := fnd_message.get;
5321: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5322:
5323: when e_invalid_asgned_units then
5324: x_error_code := -1;
5325: fnd_message.set_name('WSM','WSM_USE_BAD_ASGN_UNITS');
5323: when e_invalid_asgned_units then
5324: x_error_code := -1;
5325: fnd_message.set_name('WSM','WSM_USE_BAD_ASGN_UNITS');
5326: x_error_msg := fnd_message.get;
5327: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5328:
5329: /* ST : Detailed Scheduling start */
5330: when e_invalid_ins_assigned_units then
5331: x_error_code := -1;
5330: when e_invalid_ins_assigned_units then
5331: x_error_code := -1;
5332: fnd_message.set_name('WSM','WSM_INVALID_INS_ASSG_UNITS');
5333: x_error_msg := fnd_message.get;
5334: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5335:
5336: when e_no_res_seq_num then
5337: x_error_msg := 'validate_wljdi_res_usage : resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
5338: x_error_code := -1;
5335:
5336: when e_no_res_seq_num then
5337: x_error_msg := 'validate_wljdi_res_usage : resource_seq_num cannot be uniquely found'; -- CZHDBG_MSG
5338: x_error_code := -1;
5339: fnd_file.put_line(fnd_file.log,substrb(x_error_msg, 1, 2000));
5340:
5341: /* ST : Detailed Scheduling end */
5342:
5343: when e_usage_not_exists then
5343: when e_usage_not_exists then
5344: x_error_code := -1;
5345: fnd_message.set_name('WSM','WSM_USE_NOT_EXISTS');
5346: x_error_msg := fnd_message.get;
5347: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5348:
5349: when e_null_date then
5350: x_error_code := -1;
5351: fnd_message.set_name('WSM','WSM_NULL_FIELD');
5350: x_error_code := -1;
5351: fnd_message.set_name('WSM','WSM_NULL_FIELD');
5352: fnd_message.set_token('FLD_NAME', 'Start date and Completion date');
5353: x_error_msg := fnd_message.get;
5354: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5355:
5356: when e_invalid_date then
5357: x_error_code := -1;
5358: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5357: x_error_code := -1;
5358: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
5359: fnd_message.set_token('FLD_NAME', 'Resource usage scheduled dates');
5360: x_error_msg := fnd_message.get;
5361: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5362:
5363: when e_date_overlap then
5364: x_error_code := -1;
5365: fnd_message.set_name('WSM','WSM_USE_TIME_OVERLAP');
5363: when e_date_overlap then
5364: x_error_code := -1;
5365: fnd_message.set_name('WSM','WSM_USE_TIME_OVERLAP');
5366: x_error_msg := fnd_message.get;
5367: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5368:
5369: when e_invalid_time_slot then
5370: x_error_code := -1;
5371: fnd_message.set_name('WSM','WSM_USE_BAD_TIME_SLOT');
5369: when e_invalid_time_slot then
5370: x_error_code := -1;
5371: fnd_message.set_name('WSM','WSM_USE_BAD_TIME_SLOT');
5372: x_error_msg := fnd_message.get;
5373: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5374:
5375: when others then
5376: x_error_code := -1;
5377: x_error_msg := 'Error: validate_wljdi_res_usage: (#'||l_stmt_num||') '
5375: when others then
5376: x_error_code := -1;
5377: x_error_msg := 'Error: validate_wljdi_res_usage: (#'||l_stmt_num||') '
5378: || SUBSTR(SQLERRM, 1,240);
5379: fnd_file.put_line(fnd_file.log,'validate_wljdi_res_usage : ' || l_stmt_num || ' : ' || x_error_msg);
5380:
5381: END validate_wljdi_res_usage;
5382:
5383:
6359: BEGIN
6360:
6361: l_stmt_num := 10;
6362:
6363: fnd_file.put_line(fnd_file.log, 'Processing Interface rows...');
6364: retcode := 0;
6365: -- CZHDBG: comment out this because the completion status of the
6366: -- concurrent program cannot be set properly with this call. Why ???
6367: --fnd_global.apps_initialize(l_user_id, l_resp_id, l_resp_appl_id);
6387: v_wlji_err_code,
6388: v_wlji_err_msg,
6389: v_wlji_num_of_children;
6390: if lbji_debug = 'Y' then
6391: fnd_file.put_line(fnd_file.log,
6392: 'Number of records in WSM_LOT_JOB_INTERFACE: ' || c_wlji%rowcount);
6393: end if;
6394: l_h_rows := c_wlji%rowcount;
6395: close c_wlji;
6443: l_stmt_num := 70;
6444: v_wlji_process_status(l_h) := WIP_CONSTANTS.ERROR;
6445: v_wlji_err_code(l_h) := -1;
6446: v_wlji_err_msg(l_h) := l_err_msg;
6447: fnd_file.put_line(fnd_file.log,
6448: 'Error (WLJI.Header_Id = ' || v_wlji_header_id(l_h) || ') : '
6449: || l_err_msg);
6450: l_error_count := l_error_count + 1;
6451: End; -- }} check org/job_name for this header_id
6462: -----------------------------------------------------------------
6463: -- {{ Check PENDING WLJDI records with parent_header_id = NULL
6464: -----------------------------------------------------------------
6465: if lbji_debug = 'Y' then
6466: fnd_file.put_line(fnd_file.log,
6467: 'Checking wsm_lot_job_dtl_interface..');
6468: end if;
6469:
6470: l_stmt_num := 100;
6479: v_wljdi_process_status,
6480: v_wljdi_err_code,
6481: v_wljdi_err_msg;
6482: if lbji_debug = 'Y' then
6483: fnd_file.put_line(fnd_file.log,
6484: 'Number of independent records in WSM_LOT_JOB_DTL_INTERFACE: '
6485: || c_wljdi_no_parent%rowcount);
6486: end if;
6487: l_d_rows := c_wljdi_no_parent%rowcount;
6535: l_stmt_num := 130;
6536: v_wljdi_process_status(l_d) := WIP_CONSTANTS.ERROR;
6537: v_wljdi_err_code(l_d) := -1;
6538: v_wljdi_err_msg(l_d) := l_err_msg;
6539: fnd_file.put_line(fnd_file.log,
6540: 'Error: WLJDI(Record_Id = ' || v_wljdi_record_id(l_d) ||') '
6541: || l_err_msg);
6542: fnd_file.new_line(fnd_file.log, 3);
6543: l_error_count := l_error_count +1;
6538: v_wljdi_err_msg(l_d) := l_err_msg;
6539: fnd_file.put_line(fnd_file.log,
6540: 'Error: WLJDI(Record_Id = ' || v_wljdi_record_id(l_d) ||') '
6541: || l_err_msg);
6542: fnd_file.new_line(fnd_file.log, 3);
6543: l_error_count := l_error_count +1;
6544:
6545: End; -- }} check org/job_name for this header_id
6546:
6559: -- When p_group_id is given, assign all the job with that group_id to
6560: -- one worker
6561: l_num_jobs := g_v_job_name.COUNT;
6562: if lbji_debug = 'Y' then
6563: fnd_file.put_line(fnd_file.log,
6564: 'Number of jobs to be processed: '|| l_num_jobs);
6565: end if;
6566:
6567: if p_group_id is not null then
6635: raise e_launch_worker;
6636: else
6637: COMMIT;
6638: end if;
6639: fnd_file.put_line(fnd_file.log, 'Request_id: '||l_worker_reqid||' submitted');
6640: else -- l_num_jobs <= 0
6641: fnd_file.put_line(fnd_file.log, 'No rows found in interface table');
6642: end if;
6643:
6637: COMMIT;
6638: end if;
6639: fnd_file.put_line(fnd_file.log, 'Request_id: '||l_worker_reqid||' submitted');
6640: else -- l_num_jobs <= 0
6641: fnd_file.put_line(fnd_file.log, 'No rows found in interface table');
6642: end if;
6643:
6644: else -- p_group_id is null
6645:
6779: where record_id = v_wljdi_record_id(l_d);
6780: end if; -- if l_d_rows <> 0
6781:
6782: if l_num_jobs > 0 then
6783: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6784: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6785: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6786: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6787: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6780: end if; -- if l_d_rows <> 0
6781:
6782: if l_num_jobs > 0 then
6783: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6784: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6785: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6786: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6787: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6788:
6781:
6782: if l_num_jobs > 0 then
6783: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6784: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6785: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6786: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6787: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6788:
6789: l_stmt_num := 360;
6782: if l_num_jobs > 0 then
6783: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6784: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6785: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6786: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6787: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6788:
6789: l_stmt_num := 360;
6790: l_temp_num := l_v_group_id.first;
6783: fnd_file.put_line(fnd_file.log, 'Total pending jobs = ' || l_num_jobs);
6784: fnd_file.put_line(fnd_file.log, 'Number of workers = ' || g_no_of_workers);
6785: fnd_file.put_line(fnd_file.log, 'Batch size = ' || g_batch_size);
6786: fnd_file.put_line(fnd_file.log, 'Number of jobs per worker = '|| l_num_jobs_per);
6787: fnd_file.put_line(fnd_file.log, 'Number of workers launched= '|| l_wrk_cnt);
6788:
6789: l_stmt_num := 360;
6790: l_temp_num := l_v_group_id.first;
6791: WHILE l_temp_num <= l_v_group_id.last
6809:
6810: if l_error_count <> 0 then
6811: retcode := 1;
6812: errbuf := 'The manager marked at least one row as errored';
6813: fnd_file.put_line(fnd_file.log,errbuf);
6814: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
6815: COMMIT;
6816: end if;
6817:
6820: when e_launch_worker then
6821: rollback;
6822: retcode := 1;
6823: errbuf := 'Error: process_interface_rows: (#'||l_stmt_num||') fail to launch worker';
6824: fnd_file.put_line(fnd_file.log,errbuf);
6825: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
6826: COMMIT;
6827:
6828: when others then
6829: rollback;
6830: retcode := 1;
6831: errbuf := 'Error: process_interface_rows: (#'||l_stmt_num||') '
6832: || SUBSTR(SQLERRM, 1,240);
6833: fnd_file.put_line(fnd_file.log,errbuf);
6834: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
6835: COMMIT;
6836:
6837: END process_lbji_rows;
7193:
7194: l_stmt_num := 30;
7195: WSMPLCVA.load_class_code;
7196: if lbji_debug = 'Y' then
7197: fnd_file.put_line(fnd_file.log,
7198: 'Loading org/subinv/class-code values into memory (once per worker).. OK.');
7199: end if;
7200: exception
7201: when others then
7323: v_wlji_num_of_children
7324: --, v_wlji_inf_schedule_flag
7325: limit g_batch_size;
7326: if lbji_debug = 'Y' then
7327: fnd_file.put_line(fnd_file.log,
7328: 'Number of rows loaded for the current batch: '||csr_wlji%rowcount);
7329: end if;
7330:
7331: if csr_wlji%rowcount - prev_rowcount <> 0 then -- {{ one batch
7369: v_idx := v_wlji_header_id.first;
7370: while v_idx <= v_wlji_header_id.last
7371: loop -- {{{ inner loop
7372: if lbji_debug = 'Y' then
7373: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7374: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7375: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7376: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7377: end if;
7370: while v_idx <= v_wlji_header_id.last
7371: loop -- {{{ inner loop
7372: if lbji_debug = 'Y' then
7373: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7374: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7375: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7376: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7377: end if;
7378:
7371: loop -- {{{ inner loop
7372: if lbji_debug = 'Y' then
7373: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7374: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7375: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7376: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7377: end if;
7378:
7379: SAVEPOINT savepoint_skip_job;
7372: if lbji_debug = 'Y' then
7373: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7374: fnd_file.put_line(fnd_file.log,' wlji.header_id: '|| v_wlji_header_id(v_idx));
7375: fnd_file.put_line(fnd_file.log,' wlji.job name: ' || v_wlji_job_name(v_idx));
7376: fnd_file.put_line(fnd_file.log,'------------------------------------------------------');
7377: end if;
7378:
7379: SAVEPOINT savepoint_skip_job;
7380:
7543: l_error_count := l_error_count + 1;
7544: GOTO abort_this_job;
7545: end if;
7546: if lbji_debug = 'Y' then
7547: fnd_file.put_line(fnd_file.log, 'Validating Constants.. OK.');
7548: end if;
7549: ----------------------------------------------------------------
7550: -- }}} End: Validate and Default constants (load_type = 5 and 6)
7551: ----------------------------------------------------------------
7565: -- l_error_count := l_error_count + 1;
7566: -- GOTO abort_this_job;
7567: --end if;
7568: --if lbji_debug = 'Y' then
7569: -- fnd_file.put_line(fnd_file.log, 'Check Organization Id.. OK');
7570: --end if;
7571:
7572: l_stmt_num := 130.5;
7573: select nvl(OP_SEQ_NUM_INCREMENT, 10)
7679: l_error_count := l_error_count + 1;
7680: GOTO abort_this_job;
7681: end if;
7682: if lbji_debug = 'Y' then
7683: fnd_file.put_line(fnd_file.log, 'Validate Job Name and Id.. OK.');
7684: end if;
7685: -------------------------------------
7686: -- }}} End: Validate job name and id
7687: -------------------------------------
7709: l_error_count := l_error_count + 1;
7710: GOTO abort_this_job;
7711: end if;
7712: if lbji_debug = 'Y' and v_wlji_mode_flag(v_idx) = 1 then
7713: fnd_file.put_line(fnd_file.log, 'Validate Start Quantity.. OK.');
7714: end if;
7715:
7716:
7717: l_stmt_num := 160;
7910: GOTO abort_this_job;
7911: end if;
7912: end if;
7913: if lbji_debug = 'Y' then
7914: fnd_file.put_line(fnd_file.log, 'Schedule Group Id Verification.. OK');
7915: end if;
7916: -- }} validate schedule_group_id end
7917:
7918: l_stmt_num := 170.4;
7944: GOTO abort_this_job;
7945: end if;
7946: end if;
7947: if lbji_debug = 'Y' then
7948: fnd_file.put_line(fnd_file.log, 'Build Seq. Id Verification.. OK');
7949: end if;
7950: -- }} validate build_seq_id end
7951: else -- job type = 3
7952: -- previously we do not have validations for non-std job
8005: GOTO abort_this_job;
8006: end if;
8007: end if;
8008: if lbji_debug = 'Y' then
8009: fnd_file.put_line(fnd_file.log, 'Schedule Group Id Verification.. OK');
8010: end if;
8011: -- }} validate schedule_group_id end
8012: -- End Bug Fix : 6676148
8013: end if; -- job type
8039: l_stmt_num := 210;
8040: -- Default lot_number
8041: v_wlji_lot_number(v_idx) := v_wlji_job_name(v_idx);
8042: if lbji_debug = 'Y' then
8043: fnd_file.put_line(fnd_file.log, 'Lot Number Defaulted as Job Name.');
8044: end if;
8045:
8046: l_stmt_num := 220;
8047: -- Validate: FIRM_PLANNED_FLAG
8085: l_error_count := l_error_count + 1;
8086: GOTO abort_this_job;
8087: end if;
8088: if lbji_debug = 'Y' then
8089: fnd_file.put_line(fnd_file.log, 'Checking existance of inv lots of the same name.. OK');
8090: end if;
8091:
8092:
8093: -----------------------------------
8127: GOTO abort_this_job;
8128: end if;
8129: end if;
8130: if lbji_debug = 'Y' then
8131: fnd_file.put_line(fnd_file.log, 'Last Updt By Validation.. OK.');
8132: end if;
8133:
8134: l_stmt_num := 245;
8135: -- validate created_by (job creation)
8165: GOTO abort_this_job;
8166: end if;
8167: end if;
8168: if lbji_debug = 'Y' then
8169: fnd_file.put_line(fnd_file.log, 'Created By Validation.. OK.');
8170: end if;
8171: --------------------------------
8172: -- }}} End: Validate WHO columns
8173: --------------------------------
8181: -- l_wsli_loaded (true/false) ensures that the procedure
8182: -- is called only once per worker
8183: if (l_wsli_loaded = false) then
8184: if lbji_debug = 'Y' then
8185: fnd_file.put_line(fnd_file.log,
8186: 'Loading wsli for batch group id: ' ||l_batch_grp_id||'..');
8187: end if;
8188:
8189: load_wsli_data(l_batch_grp_id);
8259: l_error_code,
8260: l_error_msg,
8261: v_wlji_start_quantity(v_idx)); --Fixed bug # 2313574
8262: if lbji_debug = 'Y' then
8263: fnd_file.put_line(fnd_file.log,
8264: 'Getting complete date based on item lead time');
8265: end if;
8266: END IF;
8267:
8277: l_error_code,
8278: l_error_msg,
8279: v_wlji_start_quantity(v_idx)); --Fixed bug # 2313574
8280: if lbji_debug = 'Y' then
8281: fnd_file.put_line(fnd_file.log,
8282: 'Getting start date based on item lead time');
8283: end if;
8284: END IF;
8285: if l_error_code <> 0 OR l_error_msg IS NOT NULL then
8291:
8292: end if;
8293:
8294: if lbji_debug = 'Y' then
8295: fnd_file.put_line(fnd_file.log, 'Date Validation.. OK.');
8296: end if;
8297: -- }} Validate schedule dates
8298:
8299:
8313: l_error_count := l_error_count + 1;
8314: GOTO abort_this_job;
8315: end if;
8316: if lbji_debug = 'Y' then
8317: fnd_file.put_line(fnd_file.log,
8318: 'Co Product Supply Flag Validation.. OK.');
8319: end if;
8320:
8321:
8330: else
8331: v_wlji_description(v_idx) := RTRIM(v_wlji_description(v_idx));
8332: end if;
8333: if lbji_debug = 'Y' then
8334: fnd_file.put_line(fnd_file.log, 'Default Description.');
8335: end if;
8336:
8337:
8338: l_stmt_num := 300;
8384: validation_level => 0,
8385: x_error_code => l_error_code,
8386: x_err_msg => l_error_msg);
8387: if l_error_code = 0 and l_error_msg is not null then
8388: fnd_file.put_line(fnd_file.log, l_error_msg);
8389: l_error_msg := NULL;
8390: end if;
8391: if l_error_code <> 0 then
8392: handle_error( l_error_code, l_error_msg, l_stmt_num);
8407: l_error_count := l_error_count + 1;
8408: GOTO abort_this_job;
8409: end if;
8410: if lbji_debug = 'Y' then
8411: fnd_file.put_line(fnd_file.log,
8412: 'Validate Non-standard References.. OK.');
8413: end if;
8414:
8415: end if; -- non-standard validations end
8494: l_error_count := l_error_count + 1;
8495: GOTO abort_this_job;
8496: end if;
8497: if lbji_debug = 'Y' then
8498: fnd_file.put_line(fnd_file.log, 'Validation of Item ID.. OK');
8499: end if;
8500: -- }} Validate item id
8501:
8502:
8522: GOTO abort_this_job;
8523: end if;
8524:
8525: if lbji_debug = 'Y' then
8526: fnd_file.put_line(fnd_file.log, 'Net Quantity Validation.. OK.');
8527: end if;
8528: -- }} Validate net quantity
8529:
8530: l_stmt_num := 325;
8676: l_error_count := l_error_count + 1;
8677: GOTO abort_this_job;
8678: end if;
8679: if lbji_debug = 'Y' then
8680: fnd_file.put_line(fnd_file.log,
8681: 'Routing Sequence Id: '||l_rtg_seq_id ||
8682: ', Common Routing Sequence Id: '||l_common_rtg_seq_id);
8683: end if;
8684: -- }} get l_common_rtg_seq_id end
8732: GOTO abort_this_job;
8733: end;
8734: END IF;
8735: if lbji_debug = 'Y' then
8736: fnd_file.put_line(fnd_file.log,
8737: 'Getting Bill Sequence Id: '||l_common_bom_seq_id);
8738: end if;
8739: -- }} get l_common_bom_seq_id
8740:
8782: l_error_count := l_error_count + 1;
8783: GOTO abort_this_job;
8784: end if;
8785: if lbji_debug = 'Y' then
8786: fnd_file.put_line(fnd_file.log, 'Locator Id Validation.. OK.');
8787: end if;
8788: -- }} validate locator id
8789:
8790:
8850: l_error_count := l_error_count + 1;
8851: GOTO abort_this_job;
8852: end;
8853: if lbji_debug = 'Y' then
8854: fnd_file.put_line(fnd_file.log, 'Class Code Validation.. OK.');
8855: end if;
8856: -- }} validate class code
8857:
8858:
8900: l_error_count := l_error_count + 1;
8901: GOTO abort_this_job;
8902: end if;
8903: if lbji_debug = 'Y' then
8904: fnd_file.put_line(fnd_file.log, 'Getting BOM/Routing Revisions.. OK.');
8905: end if;
8906: -- }} get revisions
8907:
8908: end if; -- job type =1
8916: (v_wlji_date_released(v_idx) is not null ) then
8917:
8918: v_wlji_date_released(v_idx) := null;
8919: if lbji_debug = 'Y' then
8920: fnd_file.put_line(fnd_file.log,
8921: 'Date_Released is ignored for unreleased job');
8922: end if;
8923: elsif (v_wlji_status_type(v_idx) = WIP_CONSTANTS.RELEASED ) then
8924: if (v_wlji_date_released(v_idx) > sysdate ) then
8930: v_wlji_date_released(v_idx) := sysdate;
8931: end if;
8932: end if;
8933: if lbji_debug = 'Y' then
8934: fnd_file.put_line(fnd_file.log,
8935: 'Date_Released Validation.. First Phase Done.');
8936: end if;
8937: -- }} Validate Date_Released
8938:
9402:
9403: if (l_chg_bom_alt = 1 OR l_chg_rtg_alt = 1) and
9404: l_cur_status_type <> 1
9405: then
9406: fnd_file.put_line(fnd_file.log,
9407: 'Ignoring the following fields if provided by user: ' ||
9408: 'Alternate_Routing_Designator, Alternate_Bom_Designator.');
9409: end if;
9410:
9522: l_stmt_num := 590.7;
9523: -- Validation added for Bug 4919218: End
9524: else
9525: if lbji_debug = 'Y' then
9526: fnd_file.put_line(fnd_file.log,
9527: 'Update BOM/Routing alternates for standard job..');
9528: end if;
9529: end if;
9530:
9664: -- non-standard job only if the job is unreleased.
9665: if (l_chg_bom_ref = 1 or l_chg_rtg_ref = 1) and
9666: l_cur_status_type <> 1
9667: then
9668: fnd_file.put_line(fnd_file.log,
9669: 'Ignoring the following fields if provided by user: ' ||
9670: 'Routing_Reference_Id, Bom_Reference_Id, ' ||
9671: 'Alternate_Bom_Designator, Alternate_Routing_Designator');
9672: end if;
9683: v_wlji_rtg_ref_id(v_idx) := l_cur_rtg_ref_id;
9684: v_wlji_alt_rtg(v_idx) := l_cur_alt_rtg;
9685: else
9686: if lbji_debug = 'Y' then
9687: fnd_file.put_line(fnd_file.log,
9688: 'Update BOM/Routing references for non-standard job..');
9689: end if;
9690: end if;
9691:
9799: -- job only if the job is unreleased.
9800: if (l_chg_rtg_rev = 1 or l_chg_bom_rev = 1) and
9801: l_cur_status_type <> 1
9802: then
9803: fnd_file.put_line(fnd_file.log,
9804: 'Ignoring the following fields if provided by user: ' ||
9805: 'Routing_Revision, Routing_Revision_Date, '||
9806: 'Bom_Revision, Bom_Revision_Date, ' );
9807: end if;
9812: v_wlji_rtg_rev_date(v_idx) := l_cur_rtg_rev_date;
9813: v_wlji_rtg_revision(v_idx) := l_cur_rtg_revision;
9814: else
9815: if lbji_debug = 'Y' then
9816: fnd_file.put_line(fnd_file.log,
9817: 'Update BOM/Routing revision or revision date ...');
9818: end if;
9819: end if;
9820: end;
9866: l_skip_update_wo:= 1;
9867: end if;
9868: if lbji_debug = 'Y' then
9869: if l_skip_update_wo = 1 then
9870: fnd_file.put_line(fnd_file.log,
9871: 'Planning to skip update of wo, wor, wro');
9872: else
9873: fnd_file.put_line(fnd_file.log,
9874: 'Planning to update wo, wor, wro');
9869: if l_skip_update_wo = 1 then
9870: fnd_file.put_line(fnd_file.log,
9871: 'Planning to skip update of wo, wor, wro');
9872: else
9873: fnd_file.put_line(fnd_file.log,
9874: 'Planning to update wo, wor, wro');
9875: end if;
9876: end if;
9877:
10034: end if;
10035: end if;
10036: end if; -- }} valid status type
10037: if lbji_debug = 'Y' then
10038: fnd_file.put_line(fnd_file.log,
10039: 'Validate reschedule Job_Status .. OK');
10040: end if;
10041: -- }} Validate status
10042:
10067: GOTO skip_resched_validations;
10068: end;
10069: END IF;
10070: if lbji_debug = 'Y' then
10071: fnd_file.put_line(fnd_file.log,
10072: 'Validate reschedule Start_Quantity .. OK');
10073: end if;
10074: -- }} Validate quantity
10075:
10167: end;
10168: end if;
10169: end if; -- job_type
10170: if lbji_debug = 'Y' then
10171: fnd_file.put_line(fnd_file.log,
10172: 'Validate reschedule Net_Quantity .. OK');
10173: end if;
10174: -- }} Validate net-quantity
10175:
10321: l_error_code := -1;
10322: GOTO skip_resched_validations;
10323: end if;
10324: if lbji_debug = 'Y' then
10325: fnd_file.put_line(fnd_file.log,
10326: 'Validate reschedule Dates .. OK');
10327: end if;
10328: -- }} Validate dates
10329:
10337: l_error_code := -1;
10338: GOTO skip_resched_validations;
10339: end if;
10340: if lbji_debug = 'Y' then
10341: fnd_file.put_line(fnd_file.log,
10342: 'Validate reschedule Coproducts_Supply .. OK');
10343: end if;
10344: -- }} validate coproducts
10345:
10711: GOTO abort_this_job;
10712: end if;
10713:
10714: if lbji_debug = 'Y' then
10715: fnd_file.put_line(fnd_file.log,
10716: 'Verify if component is required at the first operation... OK');
10717: end if;
10718: -- }} Check the component required at first op
10719: l_stmt_num := 850;
10743: l_error_count := l_error_count + 1;
10744: GOTO abort_this_job;
10745: end if;
10746: if lbji_debug = 'Y' then
10747: fnd_file.put_line(fnd_file.log,
10748: 'Verify that the starting lot is not phantom.. OK');
10749: end if;
10750: -- }} validate starting lot is not phantom
10751:
10871: --l_error_count := l_error_count + 1;
10872: --GOTO abort_this_job;
10873: end if;
10874: if lbji_debug = 'Y' then
10875: fnd_file.put_line(fnd_file.log, 'Mode 2 Quantity Verification... OK');
10876: end if;
10877: -- }} Validate component quantity
10878: l_src_lot_number := v_wsli(v_wlji_src_line_id(v_idx)).lot_number; -- LOTATTR
10879: l_src_inv_item_id := v_wsli(v_wlji_src_line_id(v_idx)).inventory_item_id; -- LOTATTR
11085: program_id = v_wlji_program_id(v_idx)
11086: where organization_id = v_wlji_org_id(v_idx)
11087: and wip_entity_id = v_wlji_wip_entity_id(v_idx);
11088: if lbji_debug = 'Y' then
11089: fnd_file.put_line(fnd_file.log,
11090: 'Updated '||SQL%ROWCOUNT||' rows into wo');
11091: end if;
11092:
11093: l_stmt_num := 920.1;
11111: program_id = v_wlji_program_id(v_idx)
11112: where organization_id = v_wlji_org_id(v_idx)
11113: and wip_entity_id = v_wlji_wip_entity_id(v_idx);
11114: if lbji_debug = 'Y' then
11115: fnd_file.put_line(fnd_file.log,
11116: 'Updated '||SQL%ROWCOUNT||' rows into wor');
11117: end if;
11118: *******************/
11119: l_stmt_num := 920.2;
11136: wro.basis_type, 2, 1, round(v_wlji_start_quantity(v_idx), 6)))
11137: where organization_id = v_wlji_org_id(v_idx)
11138: and wip_entity_id = v_wlji_wip_entity_id(v_idx);
11139: if lbji_debug = 'Y' then
11140: fnd_file.put_line(fnd_file.log,
11141: 'Updated '||SQL%ROWCOUNT||' rows into wro');
11142: end if;
11143: l_stmt_num := 920.3;
11144: -- abb H: optional scrap accounting
11186: where wip_entity_id = v_wlji_wip_entity_id(v_idx)
11187: and operation_seq_num = l_min_op_seq_num;
11188:
11189: if lbji_debug = 'Y' then
11190: fnd_file.put_line(fnd_file.log, 'Updated '||SQL%ROWCOUNT||' rows into woy');
11191: end if;
11192:
11193: end if;
11194:
11211: delete from wip_period_balances
11212: where wip_entity_id = v_wlji_wip_entity_id(v_idx)
11213: and organization_id = v_wlji_org_id(v_idx);
11214: if lbji_debug = 'Y' then
11215: fnd_file.put_line(fnd_file.log,
11216: 'Deleted '||SQL%ROWCOUNT||' rows from WIP_PERIOD_BALANCES');
11217: end if;
11218: end if;
11219:
11304: update wip_discrete_jobs wdj
11305: set status_type = 7
11306: where wdj.wip_entity_id = v_wlji_wip_entity_id(v_idx);
11307: if lbji_debug = 'Y' then
11308: fnd_file.put_line(fnd_file.log,
11309: 'Updated status type to 7 in wdj');
11310: end if;
11311: end if;
11312:
11453: where wdj.wip_entity_id = v_wlji_wip_entity_id(v_idx);
11454:
11455: end if; -- update jobs for which status is not cancelled
11456: if lbji_debug = 'Y' then
11457: fnd_file.put_line(fnd_file.log,
11458: 'Updated '||SQL%ROWCOUNT||' rows of wdj');
11459: end if;
11460: l_stmt_num := 970.2;
11461: UPDATE WIP_ENTITIES WE
11470: program_update_date = v_wlji_prog_updt_date(v_idx),
11471: last_update_date = v_wlji_last_updt_date(v_idx)
11472: where we.wip_entity_id = v_wlji_wip_entity_id(v_idx);
11473: if lbji_debug = 'Y' then
11474: fnd_file.put_line(fnd_file.log,
11475: 'Updated '||SQL%ROWCOUNT||' rows into we');
11476: end if;
11477:
11478: Exception
11604:
11605: if ((v_wlji_load_type(v_idx) = 6) AND (v_wlji_class_code(v_idx) is NULL)) then
11606: v_wlji_class_code(v_idx) := l_cur_class_code;
11607: end if;
11608: fnd_file.put_line(fnd_file.log, 'Date Released: '||v_wlji_date_released(v_idx));
11609: insert_into_period_balances (
11610: p_wip_entity_id => v_wlji_wip_entity_id(v_idx),
11611: p_organization_id => v_wlji_org_id(v_idx),
11612: p_class_code => v_wlji_class_code(v_idx),
11626: if l_cur_status_type in (0,1,3,6) THEN -- Initialized Value,
11627: --Unreleased, released, Hold
11628: l_stmt_num := 995;
11629: IF (lbji_debug='Y') THEN
11630: fnd_file.put_line(fnd_file.log, 'Before Calling WSM_LotAttr_PVT.create_update_lotattr');
11631: END IF;
11632: WSM_LotAttr_PVT.create_update_lotattr(
11633: x_err_code => l_error_code,
11634: x_err_msg => l_error_msg,
11644: l_error_count := l_error_count + 1;
11645: GOTO abort_this_job;
11646: END IF;
11647: IF (lbji_debug='Y') THEN
11648: fnd_file.put_line(fnd_file.log, 'WSM_LotAttr_PVT.create_update_lotattr returned Success' || l_error_code);
11649: END IF;
11650:
11651: end if; -- l_cur_status_type in (1,3,6)
11652:
11661: l_param_tbl WSM_Log_PVT.param_tbl_type;
11662: BEGIN
11663:
11664: IF (lbji_debug='Y') THEN
11665: fnd_file.put_line(fnd_file.log, 'Before WSM_Serial_support_PVT.LBJ_serial_intf_proc');
11666: END IF;
11667: l_stmt_num := 995.1;
11668:
11669: WSM_Serial_support_PVT.LBJ_serial_intf_proc( p_header_id => v_wlji_header_id(v_idx),
11677: l_stmt_num := 995.2;
11678:
11679: if l_return_status = FND_API.G_RET_STS_SUCCESS then
11680: IF (lbji_debug='Y') THEN
11681: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned Success');
11682: END IF;
11683: ELSE
11684: IF (lbji_debug='Y') THEN
11685: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned failure');
11681: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned Success');
11682: END IF;
11683: ELSE
11684: IF (lbji_debug='Y') THEN
11685: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned failure');
11686: END IF;
11687:
11688: IF (l_msg_count = 1) THEN
11689: handle_error(-1, l_err_msg, l_stmt_num);
11790: 'Y', -- Posting_Flag
11791: mtl_material_transactions_s.nextval
11792: ) RETURNING transaction_temp_id into l_txn_tmp_hdr_id;
11793: if lbji_debug = 'Y' then
11794: fnd_file.put_line(fnd_file.log,
11795: 'Inserted '||SQL%ROWCOUNT||' rows into mmtt');
11796: end if;
11797:
11798: l_stmt_num := 1020;
11816: -l_quantity_tobe_issued,
11817: -l_quantity_tobe_issued,
11818: v_wsli(v_wlji_src_line_id(v_idx)).lot_number);
11819: if lbji_debug = 'Y' then
11820: fnd_file.put_line(fnd_file.log,
11821: 'Inserted '||SQL%ROWCOUNT||' rows into mtlt');
11822: end if;
11823:
11824: l_stmt_num := 1030;
11898: exception
11899: when others then
11900: l_assembly_name := 'Unknown';
11901: end;
11902: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11903: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11899: when others then
11900: l_assembly_name := 'Unknown';
11901: end;
11902: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11903: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11900: l_assembly_name := 'Unknown';
11901: end;
11902: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11903: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11901: end;
11902: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11903: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11902: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11903: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11903: fnd_file.put_line(fnd_file.output, ' Lot Based Job Creation ');
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11904: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11905: fnd_file.put_line(fnd_file.output, ' Organization: ' || l_org_code);
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11913: if v_wlji_process_status(v_idx) <> 3 then
11906: fnd_file.put_line(fnd_file.output, ' Job_name: ' || v_wlji_job_name(v_idx));
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11913: if v_wlji_process_status(v_idx) <> 3 then
11914: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11907: fnd_file.put_line(fnd_file.output, ' Job Type: ' || l_job_type_code);
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11913: if v_wlji_process_status(v_idx) <> 3 then
11914: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11915: else
11908: fnd_file.put_line(fnd_file.output, ' Assembly: ' || l_assembly_name);
11909: fnd_file.put_line(fnd_file.output, ' Quantity: ' || v_wlji_start_quantity(v_idx));
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11913: if v_wlji_process_status(v_idx) <> 3 then
11914: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11915: else
11916: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11910: fnd_file.put_line(fnd_file.output, ' Start Date: ' || v_wlji_fusd(v_idx));
11911: fnd_file.put_line(fnd_file.output, 'Completion Date: ' || v_wlji_lucd(v_idx));
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11913: if v_wlji_process_status(v_idx) <> 3 then
11914: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11915: else
11916: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11917: end if;
11918: if v_wlji_process_status(v_idx) = 3 then
11912: fnd_file.put_line(fnd_file.output, ' Kanban Card: ' || v_wlji_kanban_card_id(v_idx));
11913: if v_wlji_process_status(v_idx) <> 3 then
11914: fnd_file.put_line(fnd_file.output, 'Process Status: Success');
11915: else
11916: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11917: end if;
11918: if v_wlji_process_status(v_idx) = 3 then
11919: fnd_file.put_line(fnd_file.output, 'Error Message: ' || v_wlji_err_msg(v_idx));
11920: end if;
11915: else
11916: fnd_file.put_line(fnd_file.output, 'Process Status: Falied To Create');
11917: end if;
11918: if v_wlji_process_status(v_idx) = 3 then
11919: fnd_file.put_line(fnd_file.output, 'Error Message: ' || v_wlji_err_msg(v_idx));
11920: end if;
11921: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11922: end if; -- load type 5
11923: -- }} write into output file
11917: end if;
11918: if v_wlji_process_status(v_idx) = 3 then
11919: fnd_file.put_line(fnd_file.output, 'Error Message: ' || v_wlji_err_msg(v_idx));
11920: end if;
11921: fnd_file.put_line(fnd_file.output, '-------------------------------------------------------');
11922: end if; -- load type 5
11923: -- }} write into output file
11924:
11925:
11931: l_stmt_num := 1050;
11932: if v_wlji_process_status(v_idx) <> 3 then
11933: v_wlji_process_status(v_idx) := 5; -- 5 : complete without error
11934: if lbji_debug = 'Y' then
11935: fnd_file.put_line(fnd_file.log,
11936: 'Everything OK, changing the status of the row to 5..');
11937: end if;
11938: else
11939: -- {{ kanban begin
11978: dummy_err_code,
11979: dummy_err_msg );
11980:
11981: if dummy_err_code <> 0 then
11982: fnd_file.put_line(fnd_file.log, 'WARNING ');
11983: fnd_file.put_line(fnd_file.log,
11984: 'WSM_LBJ_INTERFACE_PVT.launch_worker: '||dummy_err_msg);
11985: l_error_count := l_error_count + 1;
11986: end if;
11979: dummy_err_msg );
11980:
11981: if dummy_err_code <> 0 then
11982: fnd_file.put_line(fnd_file.log, 'WARNING ');
11983: fnd_file.put_line(fnd_file.log,
11984: 'WSM_LBJ_INTERFACE_PVT.launch_worker: '||dummy_err_msg);
11985: l_error_count := l_error_count + 1;
11986: end if;
11987: end if;
12002:
12003: if l_warning_count <> 0 then
12004: retcode := 1;
12005: errbuf := 'The interface process produced at least one warning message';
12006: fnd_file.put_line(fnd_file.log,errbuf);
12007: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12008: end if;
12009:
12010: if l_error_count <> 0 then
12009:
12010: if l_error_count <> 0 then
12011: retcode := 1;
12012: errbuf := 'The interface process marked at least one row as errored';
12013: fnd_file.put_line(fnd_file.log,errbuf);
12014: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12015: end if;
12016:
12017: l_stmt_num := 1060;
12057:
12058: l_stmt_num := 1070;
12059: -- {{ launch INV worker
12060: if l_atleast_one_row_in_mmtt <>0 THEN
12061: fnd_file.put_line(fnd_file.log,
12062: 'Invoking Inventory API with header id: '||to_char(l_mmtt_txn_hdr_id));
12063: --OPTII-PERF:Call Inv API to reduce the waiting time.
12064: /*
12065: l_inv_worker_req_id := FND_REQUEST.submit_request (
12069: '4', NULL, NULL); -- bug 3733798
12070:
12071: COMMIT; -- CZHDBG: why?
12072:
12073: fnd_file.put_line(fnd_file.log,
12074: 'Material Transaction temp_header_id is '||to_char(l_mmtt_txn_hdr_id));
12075:
12076: if l_inv_worker_req_id = 0 then
12077: l_stmt_num := 1080;
12078: retcode := 1;
12079: errbuf:= 'Inventory worker returned failure '||
12080: '(Transaction_header_id=' ||l_mmtt_txn_hdr_id||') : '
12081: || SUBSTRB(SQLERRM,1,1000);
12082: fnd_file.put_line(fnd_file.log,errbuf);
12083: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12084: update wsm_lot_job_interface
12085: set process_status = 4,
12086: error_code = -2,
12088: where mode_flag = 2;
12089:
12090: else -- req_id <> 0
12091: l_stmt_num := 1090;
12092: fnd_file.put_line(fnd_file.log,'Inventory Transaction Worker request_id is '
12093: ||to_char(l_inv_worker_req_id));
12094: req_wait := FND_CONCURRENT.WAIT_FOR_REQUEST (
12095: request_id => l_inv_worker_req_id,
12096: interval => 10, -- 10 seconds interval
12100: dev_phase => req_devphase,
12101: dev_status => req_devstatus,
12102: message => req_message);
12103:
12104: fnd_file.put_line(fnd_file.log,
12105: 'Inventory Transaction Worker status is '||req_status);
12106: fnd_file.put_line(fnd_file.log,
12107: 'Inventory Transaction Worker Completion Message: '||req_message);
12108:
12102: message => req_message);
12103:
12104: fnd_file.put_line(fnd_file.log,
12105: 'Inventory Transaction Worker status is '||req_status);
12106: fnd_file.put_line(fnd_file.log,
12107: 'Inventory Transaction Worker Completion Message: '||req_message);
12108:
12109: if req_devphase <> 'COMPLETE' OR req_devstatus <> 'NORMAL' THEN
12110: retcode := 1;
12110: retcode := 1;
12111: errbuf:= 'Inventory worker returned failure '||
12112: '(Transaction_header_id=' ||l_mmtt_txn_hdr_id||') : '||
12113: SUBSTRB(SQLERRM,1,1000);
12114: fnd_file.put_line(fnd_file.log,errbuf);
12115: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12116: end if;
12117:
12118: check_errored_mmtt_records(l_mmtt_txn_hdr_id, l_error_code, l_error_msg);
12121: retcode := 1;
12122: errbuf:= 'Errored Records in mmtt ' ||
12123: '(Transaction_header_id=' ||l_mmtt_txn_hdr_id||') : '||
12124: SUBSTRB(SQLERRM,1,1000);
12125: fnd_file.put_line(fnd_file.log,errbuf);
12126: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12127: end if;
12128:
12129: end if; -- req_id
12150: IF x_msgcnt > 0 THEN
12151: -- There are messages in the stack so display them
12152: for x in 1..x_msgcnt LOOP
12153: x_msg_data := fnd_msg_pub.get(x, 'F');
12154: fnd_file.put_line(fnd_file.log,'Inventory API Error at statement number ' || l_stmt_num || ' : ' || x_msg_data);
12155: end loop;
12156: ELSE
12157: fnd_message.set_name(
12158: application => 'INV',
12161: token => 'PROCESS',
12162: value => 'TRXNS',
12163: translate => TRUE);
12164: x_msg_data := fnd_message.get;
12165: fnd_file.put_line(fnd_file.log,'Inventory API Error at statement number ' || l_stmt_num || ' : ' || x_msg_data);
12166: END IF;
12167: end;
12168:
12169: END IF;--End of check on retcode
12191: NVL(transaction_date, creation_date) -1,
12192: SYSDATE-l_del_int_prof_value)
12193: );
12194: if lbji_debug = 'Y' then
12195: fnd_file.put_line(fnd_file.log,
12196: 'Deleted '||SQL%ROWCOUNT||' rows from wsli');
12197: end if;
12198: end if;
12199:
12237: null,
12238: NVL(transaction_date, creation_date) -1,
12239: SYSDATE-l_del_int_prof_value);
12240: if lbji_debug = 'Y' then
12241: fnd_file.put_line(fnd_file.log,
12242: 'Deleted '||SQL%ROWCOUNT||' rows from wlji');
12243: end if;
12244:
12245: l_stmt_num := 1100.3;
12252: null,
12253: NVL(transaction_date, creation_date) -1,
12254: SYSDATE-l_del_int_prof_value);
12255: if lbji_debug = 'Y' then
12256: fnd_file.put_line(fnd_file.log,
12257: 'Deleted '||SQL%ROWCOUNT||' rows from wljdi');
12258: end if;
12259:
12260: Exception
12260: Exception
12261: when others then
12262: retcode := 1;
12263: errbuf := 'Deletion of successful rows from interface table(s) failed';
12264: fnd_file.put_line(fnd_file.log,errbuf);
12265: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12266: End;
12267:
12268: COMMIT; -- commit a batch
12305: close c_wljdi_jobs_no_parent;
12306:
12307: if(l_d_jobs > 0) then
12308: if lbji_debug = 'Y' then
12309: fnd_file.new_line(fnd_file.log, 2);
12310: fnd_file.put_line(fnd_file.log,
12311: 'Handling WLJDI records with parent_header_id = NULL...');
12312: end if;
12313:
12306:
12307: if(l_d_jobs > 0) then
12308: if lbji_debug = 'Y' then
12309: fnd_file.new_line(fnd_file.log, 2);
12310: fnd_file.put_line(fnd_file.log,
12311: 'Handling WLJDI records with parent_header_id = NULL...');
12312: end if;
12313:
12314: l_d := l_v_d_org_id_indp.first;
12372: and wip_entity_id = l_v_d_we_id_err(i)
12373: and organization_id = l_v_d_org_id_err(i);
12374:
12375: errbuf := 'The interface process marked at least one row as errored';
12376: fnd_file.put_line(fnd_file.log,errbuf);
12377: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('WARNING',errbuf);
12378:
12379: end if;
12380: l_stmt_num := 1230;
12420: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL,
12421: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
12422: );
12423:
12424: fnd_file.put_line(fnd_file.log,'Concurrent Request for Requisition Inport Submitted');
12425: fnd_file.put_line(fnd_file.log,'Request_id: '||l_req_request_id);
12426: end if;
12427: -- }} osp end
12428:
12421: NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL
12422: );
12423:
12424: fnd_file.put_line(fnd_file.log,'Concurrent Request for Requisition Inport Submitted');
12425: fnd_file.put_line(fnd_file.log,'Request_id: '||l_req_request_id);
12426: end if;
12427: -- }} osp end
12428:
12429: l_stmt_num := 1310;
12447: rollback to savepoint_top;
12448: retcode := 2;
12449: errbuf := 'WSM_LBJ_INTERFACE_PVT.launch_worker (#'||l_stmt_num||') '
12450: || SUBSTR(SQLERRM, 1,240);
12451: fnd_file.put_line(fnd_file.log,errbuf);
12452: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
12453: wsmputil.WRITE_TO_WIE (
12454: 0,
12455: substr(errbuf,1,2000),
12465: rollback to savepoint_top;
12466: retcode := 2;
12467: errbuf := 'WSM_LBJ_INTERFACE_PVT.launch_worker (#'||l_stmt_num||') '
12468: || SUBSTR(SQLERRM, 1,240);
12469: fnd_file.put_line(fnd_file.log,errbuf);
12470: conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',errbuf);
12471:
12472: wsmputil.WRITE_TO_WIE (
12473: 0,
12877: end if;
12878: -- EC: bug 3303267/3400858
12879:
12880: if lbji_debug = 'Y' then
12881: fnd_file.put_line(fnd_file.log, 'Make job-level BOM/RTG copy ...');
12882: end if;
12883:
12884: l_stmt_num := 20;
12885: -- Mark recommendations on the job level copy
12911:
12912: EXCEPTION
12913: when e_build_job_dtl then
12914: -- p_error_code/p_error_msg was set
12915: fnd_file.put_line(fnd_file.log,
12916: substr('build_job_copy_info: (#'||l_stmt_num||') '
12917: ||p_error_msg, 1, 2000));
12918:
12919: when others then
12919: when others then
12920: p_error_code := SQLCODE;
12921: p_error_msg := substr('build_job_copy_info: (#'||l_stmt_num||') '
12922: ||SQLERRM, 1, 2000);
12923: fnd_file.put_line(fnd_file.log, substr(p_error_msg, 1, 2000));
12924: END build_job_copy_info;
12925:
12926:
12927: -- **********************************************************************************************
13063: /* add the message also.... */
13064:
13065: x_error_code := -1;
13066: x_error_msg := 'check_resource_costed : ' || l_stmt_num || ' : ' || SQLCODE || substrb(SQLERRM,1,1000);
13067: fnd_file.put_line(fnd_file.log,x_error_msg);
13068:
13069: end check_resource_costed;
13070:
13071: /*******************************************************************************************
13109: l_setup_exists := 0;
13110:
13111: if (p_handle_curr_op = 'Y') then
13112: IF lbji_debug = 'Y' then
13113: fnd_file.put_line(fnd_file.log,'delete setup info: WIP table change.... : ');
13114: END IF;
13115:
13116: l_stmt_num := 20;
13117:
13130: l_res_costed := 0;
13131:
13132: l_stmt_num := 35;
13133: IF lbji_debug = 'Y' then
13134: fnd_file.put_line(fnd_file.log,'delete setup info:call to check_resource_costed .... : '
13135: || ' Resource seq num : ' || l_setup_res.resource_seq_num
13136: || ' Operation seq num : ' || p_op_seq_num
13137: );
13138: END IF;
13263:
13264: fnd_message.set_name('WSM','WSM_OP_RES_COSTED');
13265: x_error_msg := fnd_message.get;
13266: x_error_code := -1;
13267: fnd_file.put_line(fnd_file.log,'delete_setup_info : ' || l_stmt_num || ' : ' || x_error_msg);
13268:
13269: when others then
13270: x_error_code := -1;
13271: x_error_msg := 'check_resource_costed : ' || l_stmt_num || ' : ' || SQLCODE || substrb(SQLERRM,1,1000);
13268:
13269: when others then
13270: x_error_code := -1;
13271: x_error_msg := 'check_resource_costed : ' || l_stmt_num || ' : ' || SQLCODE || substrb(SQLERRM,1,1000);
13272: fnd_file.put_line(fnd_file.log,x_error_msg);
13273:
13274: end delete_setup_info;
13275:
13276: /**************************************************************************************
13421: end;
13422:
13423: l_stmt_num := 40;
13424: IF lbji_debug = 'Y' THEN
13425: fnd_file.put_line(fnd_file.log,'validate new resource : ' || l_stmt_num || ' l_setup_exists at current op ..... ' || l_setup_exists);
13426: END IF;
13427:
13428: if l_setup_exists = 1 then
13429: /* open the cursor and loop through the setup resources and check if any of them is costed...
13433: l_error_msg := null;
13434:
13435: l_stmt_num := 50;
13436: IF lbji_debug = 'Y' THEN
13437: fnd_file.put_line(fnd_file.log,'validate new resource : ' || l_stmt_num || ' calling delete setup info ...' );
13438: END IF;
13439:
13440: delete_setup_info( p_wip_entity_id => p_wip_entity_id,
13441: p_org_id => p_org_id,
13486: l_stmt_num := 78;
13487:
13488: -- Code for debug purpose.... ----
13489: IF lbji_debug = 'Y' THEN
13490: fnd_file.put_line(fnd_file.log,'validate new resource : ' || l_stmt_num || ' l_max_resource_seq_num ..... '|| l_max_resource_seq_num);
13491: END IF;
13492:
13493: else
13494: l_par_res_seq_num := p_new_res_tbl(p_new_res_tbl.first).parent_seq_num;
13997: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
13998: fnd_message.set_token('FLD_NAME', ' resource sequence number ');
13999: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14000:
14001: fnd_file.put_line(fnd_file.log,x_error_msg);
14002:
14003: x_error_code := -1;
14004:
14005: when e_invalid_par_seq then
14005: when e_invalid_par_seq then
14006: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14007: fnd_message.set_token('FLD_NAME', ' parent resource sequence number ');
14008: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14009: fnd_file.put_line(fnd_file.log,x_error_msg);
14010: x_error_code := -1;
14011:
14012: when e_invalid_res then
14013: --Bug 4704351:Resource id validation is already done in the prev sql.So
14016: --fnd_message.set_token('FLD_NAME', ' resource id ');
14017: fnd_message.set_name('WSM','WSM_INVALID_RES_DEPT');
14018: --Set up Resource should be from the same department as Parent Resource
14019: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14020: fnd_file.put_line(fnd_file.log,x_error_msg);
14021: x_error_code := -1;
14022:
14023: when e_invalid_res_dates then
14024: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14023: when e_invalid_res_dates then
14024: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14025: fnd_message.set_token('FLD_NAME', ' resource start/completion dates ');
14026: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14027: fnd_file.put_line(fnd_file.log,x_error_msg);
14028: x_error_code := -1;
14029:
14030: when e_invalid_res_seq then
14031:
14031:
14032: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14033: fnd_message.set_token('FLD_NAME', ' resource seq num ');
14034: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14035: fnd_file.put_line(fnd_file.log,x_error_msg);
14036: x_error_code := -1;
14037:
14038: when e_invalid_seq then
14039: fnd_message.set_name('WSM','WSM_INVALID_SEQ');
14037:
14038: when e_invalid_seq then
14039: fnd_message.set_name('WSM','WSM_INVALID_SEQ');
14040: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get ;
14041: fnd_file.put_line(fnd_file.log,x_error_msg);
14042: x_error_code := -1;
14043:
14044: when e_invalid_setup_id then
14045: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14044: when e_invalid_setup_id then
14045: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14046: fnd_message.set_token('FLD_NAME', ' setup id ');
14047: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get ;
14048: fnd_file.put_line(fnd_file.log,x_error_msg);
14049: x_error_code := -1;
14050:
14051: when e_invalid_field then
14052: /*Modified error handling mechanism for bug 5469917. */
14052: /*Modified error handling mechanism for bug 5469917. */
14053: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14054: fnd_message.set_token('FLD_NAME', l_field_name);
14055: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14056: fnd_file.put_line(fnd_file.log,x_error_msg);
14057: x_error_code := -1;
14058:
14059: when e_invalid_max_assg_units then
14060:
14060:
14061: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14062: fnd_message.set_token('FLD_NAME', ' maximum assigned units ');
14063: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14064: fnd_file.put_line(fnd_file.log,x_error_msg);
14065: x_error_code := -1;
14066:
14067: when e_invalid_setup_max_assg_units then
14068:
14069: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
14070:
14071: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14072:
14073: fnd_file.put_line(fnd_file.log,x_error_msg);
14074: x_error_code := -1;
14075:
14076: when e_setup_costed then
14077:
14077:
14078: fnd_message.set_name('WSM','WSM_INVALID_SETUP_MAX_ASSG');
14079:
14080: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14081: fnd_file.put_line(fnd_file.log,x_error_msg);
14082: x_error_code := -1;
14083:
14084: when e_invalid_batch_max_assg_units then
14085:
14086: fnd_message.set_name('WSM','WSM_INVALID_BATCH_MAX_ASSG');
14087:
14088: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14089: x_error_code := -1;
14090: fnd_file.put_line(fnd_file.log,x_error_msg);
14091:
14092: when e_res_not_batchable then
14093:
14094: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14094: fnd_message.set_name('WSM','WSM_INVALID_FIELD');
14095: fnd_message.set_token('FLD_NAME', ' batch id for resource ');
14096:
14097: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14098: fnd_file.put_line(fnd_file.log,x_error_msg);
14099: x_error_code := -1;
14100:
14101: when e_no_po_move_res then
14102: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
14101: when e_no_po_move_res then
14102: fnd_message.set_name('WSM','WSM_CURR_OP_RES_PO_MOVE');
14103: fnd_message.set_token('FLD_NAME', ' resource ');
14104: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || fnd_message.get;
14105: fnd_file.put_line(fnd_file.log,x_error_msg);
14106: x_error_code := -1;
14107:
14108: when others then
14109: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || SQLCODE || ' : ' || substrb(SQLERRM,1,1000) ;
14106: x_error_code := -1;
14107:
14108: when others then
14109: x_error_msg := ' validate_new_resource : ' || l_stmt_num || ': ' || SQLCODE || ' : ' || substrb(SQLERRM,1,1000) ;
14110: fnd_file.put_line(fnd_file.log,x_error_msg);
14111: x_error_code := -1;
14112:
14113: end validate_new_resource;
14114:
14688: -- Try to get a resource record...
14689: while l_index is not null loop
14690:
14691: IF lbji_debug = 'Y' THEN
14692: fnd_file.put_line(fnd_file.log,'Add Resource : Finding the next one : Current ID : ' || v_wljdi_record_id(l_index));
14693: END IF;
14694:
14695: IF (not(l_setup_index_tbl.exists(l_index))
14696: and v_wljdi_load_type(l_index) = WSM_LOAD_RES)
14696: and v_wljdi_load_type(l_index) = WSM_LOAD_RES)
14697: Then
14698: -- ok.. this is for Resource
14699: IF lbji_debug = 'Y' THEN
14700: fnd_file.put_line(fnd_file.log,'Add Resource : Found the next record : ' || v_wljdi_record_id(l_index));
14701: END IF;
14702: p_global_index := l_index;
14703: exit;
14704: END IF;
14705:
14706: l_index := v_wljdi_record_id.next(l_index);
14707: end loop;
14708: IF lbji_debug = 'Y' THEN
14709: fnd_file.put_line(fnd_file.log,'Add Resource : Next Record ID : ' || p_global_index);
14710: END IF;
14711:
14712: /* delete the fetched records... */
14713: l_index := l_setup_index_tbl.first;
14793: exception
14794:
14795: when others then
14796: x_error_msg := 'WSM_LBJ_INTERFACE_PVT : add_resource :: ' || l_stmt_num || ' : ' || substrb(SQLERRM,1,2000);
14797: fnd_file.put_line(fnd_file.log,x_error_msg);
14798: x_error_code := -1;
14799:
14800: end add_resource;
14801:
15633: or (load_type=1 and substitution_type not in (1,2))));
15634:
15635: EXCEPTION
15636: WHEN OTHERS THEN
15637: fnd_file.put_line(fnd_file.log, 'Inserting additional records into WLDJI failed');
15638: END;
15639: else
15640: begin
15641: l_stmt_num := 10.2;
16945: l_d := l_d_saved; -- l_d can be set to null
16946: raise e_wljdi_common_error;
16947: end if;
16948: if lbji_debug = 'Y' then
16949: fnd_file.put_line(fnd_file.log, 'Mark new recommended path ... OK.');
16950: end if;
16951:
16952:
16953: -- {{ Begin: Update WCO, WCON to mark the recommended operation
17331:
17332: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
17333: -- this can happen when recommendations arrive after the job
17334: -- is moved. should give a warning message
17335: fnd_file.put_line(fnd_file.log,
17336: 'Warning: operation recommendations for current operation are ignored ' ||
17337: '(record_id = ' || l_d || ')' );
17338: end if;
17339:
17382: l_v_attribute14(l_out) := v_wljdi_attribute14(l_d);
17383: l_v_attribute15(l_out) := v_wljdi_attribute15(l_d);
17384:
17385: IF lbji_debug = 'Y' THEN
17386: fnd_file.put_line(fnd_file.log,'After validate_wljdi_operation : ' || l_stmt_num ||
17387: ' Operation start date : ' || to_char(l_op_sdate,'DD-MON-YYYY HH24:MI:SS') ||
17388: ' Operation end date :' || to_char(l_op_edate,'DD-MON-YYYY HH24:MI:SS'));
17389: END IF;
17390: l_out := l_out +1;
17485: l_d := l_op_link_first; -- skip load_type = 4, 5
17486: end if;
17487: end loop;
17488: if lbji_debug = 'Y' then
17489: fnd_file.put_line(fnd_file.log, 'Mark recommended operations ... OK.');
17490: end if;
17491:
17492: l_stmt_num := 110;
17493: -- Update WCO, to mark changes
17610: l_resource_seq_num := v_wljdi_resource_seq_num(l_d) ;
17611:
17612: -- Modified for Alcoa Enhancement
17613: -- if l_sub_type = (WSM_SUB_DEL) then
17614: -- fnd_file.put_line(fnd_file.log,
17615: -- 'Warning: deleting resources for current operation '||
17616: -- 'is currently not supported and ignored.' -- CZHDBG_MSG
17617: -- );
17618: -- end if;
17698: raise e_wljdi_common_error;
17699: end if;
17700:
17701: else
17702: fnd_file.put_line(fnd_file.log,
17703: 'Warning: Deleting or Adding resources for executed operations '||
17704: 'are currently not supported and ignored.');
17705: end if;
17706: elsif(l_rtg_op_seq_num IS NOT NULL) then -- Future operation
18089: p_prog_updt_date,
18090: to_number(round((l_v_res(l_resource_id).completion_date - l_v_res(l_resource_id).start_date)*1440)));
18091: end if;
18092: else
18093: fnd_file.put_line(fnd_file.log,
18094: 'Warning: Deleting or Adding resources for executed operations '||
18095: 'is currently not supported and ignored.');
18096: END if;
18097: ELSIF(l_rtg_op_seq_num IS NOT NULL) THEN
18349: -- If setup resources are added for a resource, keep track of it..
18350: IF l_job_op_seq_num IS NOT NULL THEN
18351:
18352: -- Added to WIP Operations...
18353: fnd_file.put_line(fnd_file.log,'Adding : ' || 'Y'||'-'||l_job_op_seq_num||'-'||l_temp_par_res_seq);
18354: l_v_setup_op_res_num('Y'||'-'||l_job_op_seq_num||'-'||l_temp_par_res_seq) := 'Y';
18355:
18356: ELSIF l_rtg_op_seq_num IS NOT NULL THEN
18357:
18354: l_v_setup_op_res_num('Y'||'-'||l_job_op_seq_num||'-'||l_temp_par_res_seq) := 'Y';
18355:
18356: ELSIF l_rtg_op_seq_num IS NOT NULL THEN
18357:
18358: fnd_file.put_line(fnd_file.log,'Adding : ' || 'N'||'-'||l_rtg_op_seq_num||'-'||l_temp_par_res_seq);
18359: l_v_setup_op_res_num('N'||'-'||l_rtg_op_seq_num||'-'||l_temp_par_res_seq) := 'Y';
18360:
18361: END IF;
18362:
18362:
18363: l_stmt_num := 204;
18364: -- Modified for Alcoa Enhancement
18365: -- elsif l_sub_type = (WSM_SUB_ADD) and v_wljdi_parent_seq_num(l_d) IS NULL then
18366: -- fnd_file.put_line(fnd_file.log,
18367: -- 'Warning: Add a runtime resources is currently not supported and ignored.' -- CZHDBG_MSG
18368: -- );
18369: --
18370: -- l_d := v_wljdi_record_id.next(l_d);
18453: IF not(l_v_setup_op_res_num.exists('Y'||'-'||l_job_op_seq_num||'-'||l_v_res(l_index).res_seq_num)) THEN
18454: p_error_code := 0;
18455: p_error_msg := null;
18456: IF lbji_debug = 'Y' THEN
18457: fnd_file.put_line(fnd_file.log,'import job details : before calling delete setup resource '
18458: || ' parent res.... : ' || l_v_res(l_index).res_seq_num );
18459: END IF;
18460:
18461: -- ST : Detailed Scheduling... should we remove the resources' setup resources that are being replaced....
18664:
18665: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
18666: -- this can happen when recommendations arrive after the job
18667: -- is moved. should give a warning message
18668: fnd_file.put_line(fnd_file.log,
18669: 'Warning: resource recommendations for current operation are ignored ' ||
18670: '(record_id = ' || l_d || ')' );
18671: end if;
18672: -- }} Update WIP table
18673:
18674: -- {{ Update WSM_COPY table
18675: elsif(l_rtg_op_seq_num IS NOT NULL) then
18676: l_stmt_num := 260.1;
18677: fnd_file.put_line(fnd_file.log,'import job details : Resource Updation...' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num);
18678:
18679: -- pack data into PL/SQL table l_v_res for validation
18680: l_v_res.delete;
18681: l_v_res(l_resource_id).rtg_op_seq_num := l_rtg_op_seq_num;
18729: l_v_res(l_resource_id).assigned_units := v_wljdi_assigned_units(l_d);
18730: /* ST : Detailed Scheduling end */
18731:
18732: IF lbji_debug = 'Y' THEN
18733: fnd_file.put_line(fnd_file.log,'import job details : Recomm. the resource..' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num
18734: || ' Res ID .... : ' || l_resource_id
18735: || ' date : ' || v_wljdi_start_date(l_d) );
18736: END IF;
18737:
18763:
18764: l_index := l_v_res.first;
18765:
18766: while l_index is not null loop
18767: --- fnd_file.put_line(fnd_file.log,'import job details : Loop resource counter : ' || l_index);
18768: IF not(l_v_setup_op_res_num.exists('N'||'-'||l_rtg_op_seq_num||'-'||l_v_res(l_index).res_seq_num)) THEN
18769:
18770: p_error_code := 0;
18771: p_error_msg := null;
18875: l_v_attribute14(l_out) := v_wljdi_attribute14(l_d);
18876: l_v_attribute15(l_out) := v_wljdi_attribute15(l_d);
18877:
18878: IF lbji_debug = 'Y' THEN
18879: fnd_file.put_line(fnd_file.log,'import job details : Recomm. the resource..' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num
18880: || ' Res ID .... : ' || l_resource_id
18881: || ' date : ' || l_v_res(l_resource_id).start_date );
18882: END IF;
18883:
18955: l_v_attribute14(l_out) := null;
18956: l_v_attribute15(l_out) := null;
18957:
18958: IF lbji_debug = 'Y' THEN
18959: fnd_file.put_line(fnd_file.log,'import job details : Replacing the resource..' || ' Rtg Op seq Num : ' || l_rtg_op_seq_num
18960: || ' parent res.... : ' || l_v_disco_res_seq_num(l_idx2) );
18961: END IF;
18962: /* here do it..... */
18963: /* not required... but check it with maruthi...
19083: -- and recommended <> 'Y' );
19084:
19085: end if;
19086: if lbji_debug = 'Y' then
19087: fnd_file.put_line(fnd_file.log, 'Mark recommended operation resources ... OK.');
19088: end if;
19089:
19090: end if;
19091: ------------------------------------------------
19254:
19255: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
19256: -- this can happen when recommendations arrive after the job
19257: -- is moved. should give a warning message
19258: fnd_file.put_line(fnd_file.log,
19259: 'Warning: resource instance recommendations for current operation are ignored ' ||
19260: '(record_id = ' || l_d || ')' );
19261: end if;
19262: -- }} Update WIP table
19417: p_program_id,
19418: p_prog_updt_date);
19419:
19420: if lbji_debug = 'Y' then
19421: fnd_file.put_line(fnd_file.log, 'Inserted resource instance ... OK.');
19422: end if;
19423:
19424: end if;
19425: if lbji_debug = 'Y' then
19422: end if;
19423:
19424: end if;
19425: if lbji_debug = 'Y' then
19426: fnd_file.put_line(fnd_file.log, 'Mark recommended resource instance ... OK.');
19427: end if;
19428:
19429: end if; -- resource instance recommendations exist
19430: ------------------------------------------------
19550:
19551: l_v_dup_usage(l_hash_value) := l_hash_value;
19552: else
19553: -- dup usage record
19554: fnd_file.put_line(fnd_file.log,
19555: 'Warning: duplicated resource usage recommendations are ignored ' ||
19556: '(record_id = ' || l_d || ').');
19557: end if;
19558: -- EC: bug 3373496
19655:
19656: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
19657: -- this can happen when recommendations arrive after the job
19658: -- is moved. should give a warning message
19659: fnd_file.put_line(fnd_file.log,
19660: 'Warning: resource usage recommendations for current operation is ignored ' ||
19661: '(record_id = ' || l_d || ').');
19662: end if;
19663: -- }} Update WIP table
19736:
19737: l_v_dup_usage(l_hash_value) := l_hash_value;
19738: else
19739: -- dup usage record
19740: fnd_file.put_line(fnd_file.log,
19741: 'Warning: duplicated resource usage recommendations are ignored ' ||
19742: '(record_id = ' || l_d || ').');
19743: end if;
19744: -- EC: bug 3373496
19864: end loop;
19865:
19866: end if;
19867: if lbji_debug = 'Y' then
19868: fnd_file.put_line(fnd_file.log, 'Mark recommended resource usage ... OK.');
19869: end if;
19870:
19871: end if; -- resource usage recommendations exist
19872: ------------------------------------------------
19928: -- p_error_msg := fnd_message.get;
19929: -- p_error_code := -1;
19930: -- raise e_wljdi_common_error;
19931: -- else
19932: -- fnd_file.put_line(fnd_file.log,
19933: -- 'Warning: deleting or adding components for current operation '||
19934: -- 'is currently not supported and ignored.' -- CZHDBG_MSG
19935: -- );
19936: -- end if;
19992: l_v_comp(l_in).supply_locator := v_wljdi_supply_locator_id(l_d);
19993: l_v_comp(l_in).mrp_net_flag := v_wljdi_mrp_net_flag(l_d);
19994:
19995: if v_wljdi_recommended(l_d) = 'N' then
19996: fnd_file.put_line(fnd_file.log,'Warning: Addition of non-recommended component for current operation are ignored ' || '(record_id = ' || l_d || ').' );
19997: l_valid_comp := false;
19998: else
19999: l_valid_comp := true;
20000: end if;
20155: and msi.organization_id = p_org_id;
20156: end if;
20157: end if; -- WSM_SUB_DEL AND ADD
20158: else
20159: fnd_file.put_line(fnd_file.log,
20160: 'Warning: Deleting or Adding components for executed operations '||
20161: 'is currently not supported and ignored.');
20162: end if; --current operation
20163: ELSIF (l_rtg_op_seq_num IS NOT NULL) THEN
20400:
20401: else -- l_job_op_seq_num <> l_cur_job_op_seq_num
20402: -- this can happen when recommendations arrive after the job is moved.
20403: -- OSFM will give a warning message, and ignore this record
20404: fnd_file.put_line(fnd_file.log,
20405: 'Warning: component recommendations for current operation are ignored ' ||
20406: '(record_id = ' || l_d || ').' );
20407: end if;
20408: -- }} Update WIP table
20634: -1, component_sequence_id,
20635: l_v_comp_comp_seq_id(i));
20636: end if;
20637: if lbji_debug = 'Y' then
20638: fnd_file.put_line(fnd_file.log, 'Mark recommended operation components ... OK.');
20639: end if;
20640:
20641: end if;
20642: ------------------------------------------------
20650: fnd_message.set_name('WSM','WSM_INVALID_RECO_LINK');
20651: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20652: || fnd_message.get;
20653: p_error_code := -1;
20654: fnd_file.put_line(fnd_file.log,
20655: substr('import_lot_job_details: (#'||l_stmt_num||') '
20656: || p_error_msg, 1, 2000));
20657:
20658: when e_invalid_discommend_path then
20660: fnd_message.set_name('WSM','WSM_INVALID_DISCO_LINK');
20661: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20662: || fnd_message.get;
20663: p_error_code := -1;
20664: fnd_file.put_line(fnd_file.log,
20665: substr('import_lot_job_details: (#'||l_stmt_num||') '
20666: || p_error_msg, 1, 2000));
20667:
20668:
20672: fnd_message.set_token('FLD_NAME', 'load_type and substitution_type');
20673: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20674: || fnd_message.get;
20675: p_error_code := -1;
20676: fnd_file.put_line(fnd_file.log,
20677: substr('import_lot_job_details: (#'||l_stmt_num||') '
20678: || p_error_msg, 1, 2000));
20679:
20680: when e_invalid_op_seq_num then
20683: fnd_message.set_token('FLD_NAME', 'job_op_seq_num and routing_op_seq_num');
20684: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20685: || fnd_message.get;
20686: p_error_code := -1;
20687: fnd_file.put_line(fnd_file.log,
20688: substr('import_lot_job_details: (#'||l_stmt_num||') '
20689: || p_error_msg, 1, 2000));
20690:
20691: when e_invalid_resource_name then
20692: ROLLBACK to start_import_details;
20693: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20694: || 'Error: Cannot get resource_id from resource name';
20695: p_error_code := -1;
20696: fnd_file.put_line(fnd_file.log,
20697: substr('import_lot_job_details: (#'||l_stmt_num||') '
20698: || p_error_msg, 1, 2000));
20699:
20700: when e_null_comp_seq_id then
20703: fnd_message.set_token('FLD_NAME', 'component_seq_id');
20704: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20705: || fnd_message.get;
20706: p_error_code := -1;
20707: fnd_file.put_line(fnd_file.log,
20708: substr('import_lot_job_details: (#'||l_stmt_num||') '
20709: || p_error_msg, 1, 2000));
20710:
20711: when e_invalid_item_name then
20712: ROLLBACK to start_import_details;
20713: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20714: || 'Error: Cannot get item_id from item name';
20715: p_error_code := -1;
20716: fnd_file.put_line(fnd_file.log,
20717: substr('import_lot_job_details: (#'||l_stmt_num||') '
20718: || p_error_msg, 1, 2000));
20719:
20720: when e_wljdi_common_error then
20723: if(l_d IS NOT NULL) then
20724: p_error_msg := 'WLJDI(record_id =' || v_wljdi_record_id(l_d) || ') '
20725: || p_error_msg;
20726: end if;
20727: fnd_file.put_line(fnd_file.log,
20728: substr('import_lot_job_details: (#'||l_stmt_num||') '
20729: || p_error_msg, 1, 2000));
20730:
20731: when others then
20732: ROLLBACK to start_import_details;
20733: p_error_code := SQLCODE;
20734: p_error_msg := substr('import_lot_job_details: (#'||l_stmt_num||') '
20735: ||SQLERRM, 1, 2000);
20736: fnd_file.put_line(fnd_file.log, p_error_msg);
20737: END import_lot_job_details;
20738:
20739:
20740:
21203: -- ED: bugfix 3299811
21204:
21205:
21206: if lbji_debug = 'Y' then
21207: fnd_file.put_line(fnd_file.log, 'Inserted '||l_cnt||' rows into wip_period_balances');
21208: end if;
21209:
21210: --if SQL%NOTFOUND then -- bug 3571360
21211: if l_cnt <= 0 then -- bug 3571360
21415: 0)),
21416: 0)
21417: where wo.wip_entity_id = p_wip_entity_id;
21418: if lbji_debug = 'Y' then
21419: fnd_file.put_line(fnd_file.log,'Update Quantity, Prev/Next Op in wo(l_stmt_num='
21420: ||l_stmt_num||'): '|| SQL%ROWCOUNT);
21421: end if;
21422:
21423: l_stmt_num := 100;
21426: set quantity_completed = p_start_quantity
21427: where wip_entity_id = p_wip_entity_id
21428: and operation_seq_num < l_max_op_seq_num;
21429: if lbji_debug = 'Y' then
21430: fnd_file.put_line(fnd_file.log,'Update Quantity_Completed in wo(l_stmt_num='
21431: ||l_stmt_num||'): '|| SQL%ROWCOUNT);
21432: end if; */
21433:
21434: l_stmt_num := 110;
21437: where wip_entity_id = p_wip_entity_id
21438: and operation_seq_num < l_max_op_seq_num
21439: and wip_supply_type not in (2, 4, 5, 6); -- Fix for bug #2685463
21440: if lbji_debug = 'Y' then
21441: fnd_file.put_line(fnd_file.log,'Update Quantity_Issued in wro(l_stmt_num='
21442: ||l_stmt_num||'): '|| SQL%ROWCOUNT);
21443: end if;
21444: -- }} Update quantity
21445: if (p_status_type = 3) then
21523:
21524: EXCEPTION
21525: when e_build_job_dtl then
21526: -- p_error_code/p_error_msg was set
21527: fnd_file.put_line(fnd_file.log,
21528: substr('build_job_detail_info (#'||l_stmt_num||') '
21529: ||p_error_msg, 1, 2000));
21530:
21531: when others then
21531: when others then
21532: p_error_code := SQLCODE;
21533: p_error_msg := substr('build_job_detail_info (#'||l_stmt_num||') '
21534: || SQLERRM, 1, 2000);
21535: fnd_file.put_line(fnd_file.log, substr(p_error_msg, 1, 2000));
21536: END build_job_detail_info;
21537:
21538:
21539: -- **********************************************************************************************
21878: l_est_scrap_var_account,
21879: p_coproducts_supply
21880: );
21881: if lbji_debug = 'Y' then
21882: fnd_file.put_line(fnd_file.log, 'Inserted '||SQL%ROWCOUNT||' rows into wdj');
21883: end if;
21884:
21885:
21886: l_stmt_num := 135;
21915: p_program_id,
21916: p_prog_updt_date
21917: );
21918: if lbji_debug = 'Y' then
21919: fnd_file.put_line(fnd_file.log, 'Inserted '||SQL%ROWCOUNT||' rows into wlbj');
21920: end if;
21921: END IF;--Check on g_skip_wlbj
21922: g_skip_wlbj := 0; --OPTII-PERF
21923: l_stmt_num := 140;
21966: p_error_msg := fnd_message.get;
21967: raise e_build_job;
21968: end;
21969: if lbji_debug = 'Y' then
21970: fnd_file.put_line(fnd_file.log, 'Inserted '||SQL%ROWCOUNT||' rows into we');
21971: end if;
21972:
21973:
21974: l_stmt_num := 150;
22086: EXCEPTION
22087:
22088: when e_build_job then
22089: -- p_error_code and p_error_msg were set
22090: fnd_file.put_line(fnd_file.log,substr('build_job_header_info: (#'||l_stmt_num||') '
22091: ||p_error_msg, 1, 2000));
22092:
22093:
22094: when others then
22094: when others then
22095: p_error_code := SQLCODE;
22096: p_error_msg := substr('build_job_header_info: (#'||l_stmt_num||') '
22097: ||SQLERRM, 1, 2000);
22098: fnd_file.put_line(fnd_file.log, substr(p_error_msg, 1, 2000));
22099:
22100: END build_job_header_info;
22101:
22102: