663: fnd_message.set_name('MSC', 'MSC_AUTO_RELEASE_WARN');
664: fnd_message.set_token('A2M_DBLINK',v_dblink);
665: fnd_message.set_token('SOURCE_INSTANCE',var_instance_code);
666: var_buf:= fnd_message.get;
667: fnd_file.put_line(FND_FILE.LOG, var_buf);
668:
669:
670: retcode := 1;
671: errbuf := var_buf;
708: WHEN OTHERS THEN
709:
710: var_buf:= fnd_message.get;
711: --var_buf:= sqlerrm(sqlcode);
712: fnd_file.put_line(FND_FILE.LOG, var_buf);
713:
714: fnd_message.set_name('MRP', 'UNSUCCESSFUL PLAN VALIDATION');
715: var_buf:= fnd_message.get;
716: fnd_file.put_line(FND_FILE.LOG, var_buf);
712: fnd_file.put_line(FND_FILE.LOG, var_buf);
713:
714: fnd_message.set_name('MRP', 'UNSUCCESSFUL PLAN VALIDATION');
715: var_buf:= fnd_message.get;
716: fnd_file.put_line(FND_FILE.LOG, var_buf);
717:
718: retcode := 2;
719: errbuf := var_buf;
720: RETURN;
792: AND mp.plan_id = arg_plan_id;
793:
794: IF var_debug THEN
795: var_buf := '+++++++++++++++++';
796: fnd_file.put_line(FND_FILE.LOG, var_buf);
797: var_buf := 'User ID : '||var_user_id;
798: fnd_file.put_line(FND_FILE.LOG, var_buf);
799: var_buf := 'Owning org : '||lv_arg_org_id_new;
800: fnd_file.put_line(FND_FILE.LOG, var_buf);
794: IF var_debug THEN
795: var_buf := '+++++++++++++++++';
796: fnd_file.put_line(FND_FILE.LOG, var_buf);
797: var_buf := 'User ID : '||var_user_id;
798: fnd_file.put_line(FND_FILE.LOG, var_buf);
799: var_buf := 'Owning org : '||lv_arg_org_id_new;
800: fnd_file.put_line(FND_FILE.LOG, var_buf);
801: var_buf := 'Plan Name : '||lv_plan_name;
802: fnd_file.put_line(FND_FILE.LOG, var_buf);
796: fnd_file.put_line(FND_FILE.LOG, var_buf);
797: var_buf := 'User ID : '||var_user_id;
798: fnd_file.put_line(FND_FILE.LOG, var_buf);
799: var_buf := 'Owning org : '||lv_arg_org_id_new;
800: fnd_file.put_line(FND_FILE.LOG, var_buf);
801: var_buf := 'Plan Name : '||lv_plan_name;
802: fnd_file.put_line(FND_FILE.LOG, var_buf);
803: var_buf := 'Plan type : '||var_plan_type;
804: fnd_file.put_line(FND_FILE.LOG, var_buf);
798: fnd_file.put_line(FND_FILE.LOG, var_buf);
799: var_buf := 'Owning org : '||lv_arg_org_id_new;
800: fnd_file.put_line(FND_FILE.LOG, var_buf);
801: var_buf := 'Plan Name : '||lv_plan_name;
802: fnd_file.put_line(FND_FILE.LOG, var_buf);
803: var_buf := 'Plan type : '||var_plan_type;
804: fnd_file.put_line(FND_FILE.LOG, var_buf);
805: var_buf := 'Use start date : '||arg_use_start_date;
806: fnd_file.put_line(FND_FILE.LOG, var_buf);
800: fnd_file.put_line(FND_FILE.LOG, var_buf);
801: var_buf := 'Plan Name : '||lv_plan_name;
802: fnd_file.put_line(FND_FILE.LOG, var_buf);
803: var_buf := 'Plan type : '||var_plan_type;
804: fnd_file.put_line(FND_FILE.LOG, var_buf);
805: var_buf := 'Use start date : '||arg_use_start_date;
806: fnd_file.put_line(FND_FILE.LOG, var_buf);
807: var_buf := 'Start date : '||var_start_date;
808: fnd_file.put_line(FND_FILE.LOG, var_buf);
802: fnd_file.put_line(FND_FILE.LOG, var_buf);
803: var_buf := 'Plan type : '||var_plan_type;
804: fnd_file.put_line(FND_FILE.LOG, var_buf);
805: var_buf := 'Use start date : '||arg_use_start_date;
806: fnd_file.put_line(FND_FILE.LOG, var_buf);
807: var_buf := 'Start date : '||var_start_date;
808: fnd_file.put_line(FND_FILE.LOG, var_buf);
809: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
810: fnd_file.put_line(FND_FILE.LOG, var_buf);
804: fnd_file.put_line(FND_FILE.LOG, var_buf);
805: var_buf := 'Use start date : '||arg_use_start_date;
806: fnd_file.put_line(FND_FILE.LOG, var_buf);
807: var_buf := 'Start date : '||var_start_date;
808: fnd_file.put_line(FND_FILE.LOG, var_buf);
809: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
810: fnd_file.put_line(FND_FILE.LOG, var_buf);
811: var_buf := 'WIP group ID : '||var_wip_group_id;
812: fnd_file.put_line(FND_FILE.LOG, var_buf);
806: fnd_file.put_line(FND_FILE.LOG, var_buf);
807: var_buf := 'Start date : '||var_start_date;
808: fnd_file.put_line(FND_FILE.LOG, var_buf);
809: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
810: fnd_file.put_line(FND_FILE.LOG, var_buf);
811: var_buf := 'WIP group ID : '||var_wip_group_id;
812: fnd_file.put_line(FND_FILE.LOG, var_buf);
813: var_buf := 'PO group by : '||var_po_group_by;
814: fnd_file.put_line(FND_FILE.LOG, var_buf);
808: fnd_file.put_line(FND_FILE.LOG, var_buf);
809: var_buf := 'WIP default job prefix : '||var_default_job_prefix;
810: fnd_file.put_line(FND_FILE.LOG, var_buf);
811: var_buf := 'WIP group ID : '||var_wip_group_id;
812: fnd_file.put_line(FND_FILE.LOG, var_buf);
813: var_buf := 'PO group by : '||var_po_group_by;
814: fnd_file.put_line(FND_FILE.LOG, var_buf);
815: var_buf := 'PO batch number : '||var_po_batch_number;
816: fnd_file.put_line(FND_FILE.LOG, var_buf);
810: fnd_file.put_line(FND_FILE.LOG, var_buf);
811: var_buf := 'WIP group ID : '||var_wip_group_id;
812: fnd_file.put_line(FND_FILE.LOG, var_buf);
813: var_buf := 'PO group by : '||var_po_group_by;
814: fnd_file.put_line(FND_FILE.LOG, var_buf);
815: var_buf := 'PO batch number : '||var_po_batch_number;
816: fnd_file.put_line(FND_FILE.LOG, var_buf);
817: var_buf := 'Demand Class : '||var_demand_class;
818: fnd_file.put_line(FND_FILE.LOG, var_buf);
812: fnd_file.put_line(FND_FILE.LOG, var_buf);
813: var_buf := 'PO group by : '||var_po_group_by;
814: fnd_file.put_line(FND_FILE.LOG, var_buf);
815: var_buf := 'PO batch number : '||var_po_batch_number;
816: fnd_file.put_line(FND_FILE.LOG, var_buf);
817: var_buf := 'Demand Class : '||var_demand_class;
818: fnd_file.put_line(FND_FILE.LOG, var_buf);
819: var_buf := 'Auto Release Method : '||lv_auto_release_method;
820: fnd_file.put_line(FND_FILE.LOG, var_buf);
814: fnd_file.put_line(FND_FILE.LOG, var_buf);
815: var_buf := 'PO batch number : '||var_po_batch_number;
816: fnd_file.put_line(FND_FILE.LOG, var_buf);
817: var_buf := 'Demand Class : '||var_demand_class;
818: fnd_file.put_line(FND_FILE.LOG, var_buf);
819: var_buf := 'Auto Release Method : '||lv_auto_release_method;
820: fnd_file.put_line(FND_FILE.LOG, var_buf);
821:
822: END IF;
816: fnd_file.put_line(FND_FILE.LOG, var_buf);
817: var_buf := 'Demand Class : '||var_demand_class;
818: fnd_file.put_line(FND_FILE.LOG, var_buf);
819: var_buf := 'Auto Release Method : '||lv_auto_release_method;
820: fnd_file.put_line(FND_FILE.LOG, var_buf);
821:
822: END IF;
823:
824: begin
826: Execute immediate 'select mrp_workbench_query_s.nextval
827: FROM DUAL '
828: into MSC_Rel_Plan_PUB.g_batch_id;
829: exception when others then
830: fnd_file.put_line(FND_FILE.LOG, sqlerrm);
831: end;
832:
833: fnd_file.put_line(FND_FILE.LOG, MSC_Rel_Plan_PUB.g_batch_id);
834:
829: exception when others then
830: fnd_file.put_line(FND_FILE.LOG, sqlerrm);
831: end;
832:
833: fnd_file.put_line(FND_FILE.LOG, MSC_Rel_Plan_PUB.g_batch_id);
834:
835: IF ( lv_auto_release_method in (3,4) and var_plan_type = SRP_PLAN ) THEN
836: Begin
837: lv_sql_stmt:= ' BEGIN '
891:
892: IF var_debug THEN
893:
894: var_buf := 'Release Time fence Date: '||to_char(var_cal2_date);
895: fnd_file.put_line(FND_FILE.LOG, var_buf);
896:
897: END IF; --10325294
898:
899: UPDATE msc_supplies
950: WHEN NO_DATA_FOUND THEN
951: var_location_id := NULL;
952: WHEN OTHERS THEN
953: var_buf := var_entity||': '||sqlerrm;
954: fnd_file.put_line(FND_FILE.LOG, var_buf);
955:
956: ROLLBACK;
957:
958: CLOSE planned_orders_and_reschedules;
963: END;
964:
965: IF var_debug THEN
966: var_buf := '=================';
967: fnd_file.put_line(FND_FILE.LOG, var_buf);
968: var_buf := 'Organization ID : '||var_org_id;
969: fnd_file.put_line(FND_FILE.LOG, var_buf);
970: var_buf := 'Location ID : '||var_location_id;
971: fnd_file.put_line(FND_FILE.LOG, var_buf);
965: IF var_debug THEN
966: var_buf := '=================';
967: fnd_file.put_line(FND_FILE.LOG, var_buf);
968: var_buf := 'Organization ID : '||var_org_id;
969: fnd_file.put_line(FND_FILE.LOG, var_buf);
970: var_buf := 'Location ID : '||var_location_id;
971: fnd_file.put_line(FND_FILE.LOG, var_buf);
972: END IF;
973: END IF; /* Org ID */
967: fnd_file.put_line(FND_FILE.LOG, var_buf);
968: var_buf := 'Organization ID : '||var_org_id;
969: fnd_file.put_line(FND_FILE.LOG, var_buf);
970: var_buf := 'Location ID : '||var_location_id;
971: fnd_file.put_line(FND_FILE.LOG, var_buf);
972: END IF;
973: END IF; /* Org ID */
974:
975: -- ----------------------------------------------------------------------
1019: WHEN NO_DATA_FOUND THEN
1020: var_wip_class_code := NULL;
1021: WHEN OTHERS THEN
1022: var_buf := var_entity||': '||sqlerrm;
1023: fnd_file.put_line(FND_FILE.LOG, var_buf);
1024:
1025: ROLLBACK;
1026: CLOSE planned_orders_and_reschedules;
1027: retcode := 2;
1072: -- END IF;
1073:
1074: IF var_debug THEN
1075: var_buf := '----------------- ';
1076: fnd_file.put_line(FND_FILE.LOG, var_buf);
1077: var_buf := 'Item ID : '||var_inventory_item_id;
1078: fnd_file.put_line(FND_FILE.LOG, var_buf);
1079: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1080: fnd_file.put_line(FND_FILE.LOG, var_buf);
1074: IF var_debug THEN
1075: var_buf := '----------------- ';
1076: fnd_file.put_line(FND_FILE.LOG, var_buf);
1077: var_buf := 'Item ID : '||var_inventory_item_id;
1078: fnd_file.put_line(FND_FILE.LOG, var_buf);
1079: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1080: fnd_file.put_line(FND_FILE.LOG, var_buf);
1081: var_buf := 'WIP class code : '||var_wip_class_code;
1082: fnd_file.put_line(FND_FILE.LOG, var_buf);
1076: fnd_file.put_line(FND_FILE.LOG, var_buf);
1077: var_buf := 'Item ID : '||var_inventory_item_id;
1078: fnd_file.put_line(FND_FILE.LOG, var_buf);
1079: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1080: fnd_file.put_line(FND_FILE.LOG, var_buf);
1081: var_buf := 'WIP class code : '||var_wip_class_code;
1082: fnd_file.put_line(FND_FILE.LOG, var_buf);
1083: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1084: fnd_file.put_line(FND_FILE.LOG, var_buf);
1078: fnd_file.put_line(FND_FILE.LOG, var_buf);
1079: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1080: fnd_file.put_line(FND_FILE.LOG, var_buf);
1081: var_buf := 'WIP class code : '||var_wip_class_code;
1082: fnd_file.put_line(FND_FILE.LOG, var_buf);
1083: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1084: fnd_file.put_line(FND_FILE.LOG, var_buf);
1085: var_buf := 'Quantity : '||var_new_order_quantity;
1086: fnd_file.put_line(FND_FILE.LOG, var_buf);
1080: fnd_file.put_line(FND_FILE.LOG, var_buf);
1081: var_buf := 'WIP class code : '||var_wip_class_code;
1082: fnd_file.put_line(FND_FILE.LOG, var_buf);
1083: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1084: fnd_file.put_line(FND_FILE.LOG, var_buf);
1085: var_buf := 'Quantity : '||var_new_order_quantity;
1086: fnd_file.put_line(FND_FILE.LOG, var_buf);
1087: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1088: fnd_file.put_line(FND_FILE.LOG, var_buf);
1082: fnd_file.put_line(FND_FILE.LOG, var_buf);
1083: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1084: fnd_file.put_line(FND_FILE.LOG, var_buf);
1085: var_buf := 'Quantity : '||var_new_order_quantity;
1086: fnd_file.put_line(FND_FILE.LOG, var_buf);
1087: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1088: fnd_file.put_line(FND_FILE.LOG, var_buf);
1089: var_buf := 'WIP job status : '||var_impl_status_code;
1090: fnd_file.put_line(FND_FILE.LOG, var_buf);
1084: fnd_file.put_line(FND_FILE.LOG, var_buf);
1085: var_buf := 'Quantity : '||var_new_order_quantity;
1086: fnd_file.put_line(FND_FILE.LOG, var_buf);
1087: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1088: fnd_file.put_line(FND_FILE.LOG, var_buf);
1089: var_buf := 'WIP job status : '||var_impl_status_code;
1090: fnd_file.put_line(FND_FILE.LOG, var_buf);
1091: var_buf := 'WIP job prefix : '||var_job_prefix;
1092: fnd_file.put_line(FND_FILE.LOG, var_buf);
1086: fnd_file.put_line(FND_FILE.LOG, var_buf);
1087: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1088: fnd_file.put_line(FND_FILE.LOG, var_buf);
1089: var_buf := 'WIP job status : '||var_impl_status_code;
1090: fnd_file.put_line(FND_FILE.LOG, var_buf);
1091: var_buf := 'WIP job prefix : '||var_job_prefix;
1092: fnd_file.put_line(FND_FILE.LOG, var_buf);
1093: var_buf := 'Order Type : '||var_order_type;
1094: fnd_file.put_line(FND_FILE.LOG, var_buf);
1088: fnd_file.put_line(FND_FILE.LOG, var_buf);
1089: var_buf := 'WIP job status : '||var_impl_status_code;
1090: fnd_file.put_line(FND_FILE.LOG, var_buf);
1091: var_buf := 'WIP job prefix : '||var_job_prefix;
1092: fnd_file.put_line(FND_FILE.LOG, var_buf);
1093: var_buf := 'Order Type : '||var_order_type;
1094: fnd_file.put_line(FND_FILE.LOG, var_buf);
1095: END IF;
1096:
1090: fnd_file.put_line(FND_FILE.LOG, var_buf);
1091: var_buf := 'WIP job prefix : '||var_job_prefix;
1092: fnd_file.put_line(FND_FILE.LOG, var_buf);
1093: var_buf := 'Order Type : '||var_order_type;
1094: fnd_file.put_line(FND_FILE.LOG, var_buf);
1095: END IF;
1096:
1097: -- --------------------------------------------------------------------
1098: -- -- Update WIP Jobs planned orders and reschedules
1136: when no_data_found then
1137: var_alternate_bom := null;
1138: when others then
1139: var_buf := var_entity||': '||sqlerrm;
1140: fnd_file.put_line(FND_FILE.LOG, var_buf);
1141: ROLLBACK;
1142: end;
1143:
1144: /* Getting Alternate routing */
1165: when no_data_found then
1166: var_alternate_routing := null;
1167: when others then
1168: var_buf := var_entity||': '||sqlerrm;
1169: fnd_file.put_line(FND_FILE.LOG, var_buf);
1170: ROLLBACK;
1171: end;
1172:
1173:
1252: AND current_employee_flag= 1;
1253:
1254: IF var_debug THEN
1255: var_buf := '----------------- ';
1256: fnd_file.put_line(FND_FILE.LOG, var_buf);
1257: var_buf := 'Item ID : '||var_inventory_item_id;
1258: fnd_file.put_line(FND_FILE.LOG, var_buf);
1259: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1260: fnd_file.put_line(FND_FILE.LOG, var_buf);
1254: IF var_debug THEN
1255: var_buf := '----------------- ';
1256: fnd_file.put_line(FND_FILE.LOG, var_buf);
1257: var_buf := 'Item ID : '||var_inventory_item_id;
1258: fnd_file.put_line(FND_FILE.LOG, var_buf);
1259: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1260: fnd_file.put_line(FND_FILE.LOG, var_buf);
1261: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1262: fnd_file.put_line(FND_FILE.LOG, var_buf);
1256: fnd_file.put_line(FND_FILE.LOG, var_buf);
1257: var_buf := 'Item ID : '||var_inventory_item_id;
1258: fnd_file.put_line(FND_FILE.LOG, var_buf);
1259: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1260: fnd_file.put_line(FND_FILE.LOG, var_buf);
1261: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1262: fnd_file.put_line(FND_FILE.LOG, var_buf);
1263: var_buf := 'Quantity : '||var_new_order_quantity;
1264: fnd_file.put_line(FND_FILE.LOG, var_buf);
1258: fnd_file.put_line(FND_FILE.LOG, var_buf);
1259: var_buf := 'Item Make/Buy : '||var_make_buy_code;
1260: fnd_file.put_line(FND_FILE.LOG, var_buf);
1261: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1262: fnd_file.put_line(FND_FILE.LOG, var_buf);
1263: var_buf := 'Quantity : '||var_new_order_quantity;
1264: fnd_file.put_line(FND_FILE.LOG, var_buf);
1265: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1266: fnd_file.put_line(FND_FILE.LOG, var_buf);
1260: fnd_file.put_line(FND_FILE.LOG, var_buf);
1261: var_buf := 'New Schedule Date : '||var_new_schedule_date;
1262: fnd_file.put_line(FND_FILE.LOG, var_buf);
1263: var_buf := 'Quantity : '||var_new_order_quantity;
1264: fnd_file.put_line(FND_FILE.LOG, var_buf);
1265: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1266: fnd_file.put_line(FND_FILE.LOG, var_buf);
1267: var_buf := 'Active employee : '||var_count;
1268: fnd_file.put_line(FND_FILE.LOG, var_buf);
1262: fnd_file.put_line(FND_FILE.LOG, var_buf);
1263: var_buf := 'Quantity : '||var_new_order_quantity;
1264: fnd_file.put_line(FND_FILE.LOG, var_buf);
1265: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1266: fnd_file.put_line(FND_FILE.LOG, var_buf);
1267: var_buf := 'Active employee : '||var_count;
1268: fnd_file.put_line(FND_FILE.LOG, var_buf);
1269: var_buf := 'Order Type : '||var_order_type;
1270: fnd_file.put_line(FND_FILE.LOG, var_buf);
1264: fnd_file.put_line(FND_FILE.LOG, var_buf);
1265: var_buf := 'Planner emp ID : '||var_planner_employee_id;
1266: fnd_file.put_line(FND_FILE.LOG, var_buf);
1267: var_buf := 'Active employee : '||var_count;
1268: fnd_file.put_line(FND_FILE.LOG, var_buf);
1269: var_buf := 'Order Type : '||var_order_type;
1270: fnd_file.put_line(FND_FILE.LOG, var_buf);
1271: END IF;
1272:
1266: fnd_file.put_line(FND_FILE.LOG, var_buf);
1267: var_buf := 'Active employee : '||var_count;
1268: fnd_file.put_line(FND_FILE.LOG, var_buf);
1269: var_buf := 'Order Type : '||var_order_type;
1270: fnd_file.put_line(FND_FILE.LOG, var_buf);
1271: END IF;
1272:
1273: IF (var_count = 0) THEN
1274:
1299:
1300: retcode := 1;
1301:
1302: var_buf := '................. ';
1303: fnd_file.put_line(FND_FILE.LOG, var_buf);
1304:
1305: fnd_message.set_name('MRP', 'MRP_UNRELEASED_ORDER1');
1306: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1307:
1302: var_buf := '................. ';
1303: fnd_file.put_line(FND_FILE.LOG, var_buf);
1304:
1305: fnd_message.set_name('MRP', 'MRP_UNRELEASED_ORDER1');
1306: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1307:
1308: fnd_message.set_name('MRP', 'MRP_UNRELEASED_ORDER2');
1309: fnd_message.set_token('PLANNER_VALUE', var_planner_code);
1310: fnd_message.set_token('ORG_VALUE', var_org_code);
1310: fnd_message.set_token('ORG_VALUE', var_org_code);
1311: fnd_message.set_token('ITEM_VALUE', var_item);
1312: fnd_message.set_token('DATE_VALUE', to_char(var_new_schedule_date));
1313: fnd_message.set_token('QTY_VALUE', to_char(var_new_order_quantity));
1314: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1315:
1316: ELSE
1317:
1318: -- ------------------------------------------------------------------
1515: AND var_plan_type < RP_MRP_PLAN; -- For RP Plan keep the flag unchanged
1516: commit;
1517:
1518: var_buf := '+++++++++++++++++ ';
1519: fnd_file.put_line(FND_FILE.LOG, var_buf);
1520:
1521: var_released_instance_count:= var_released_instance_id.count;
1522:
1523: DECLARE
1534: where instance_id= var_released_instance_id(i);
1535:
1536: fnd_message.set_name('MSC', 'MSC_AR_LOADED_INSTANCE');
1537: fnd_message.set_token('INSTANCE', lv_instance_code);
1538: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1539:
1540: fnd_message.set_name('MRP', 'LOADED_WIP');
1541: fnd_message.set_token('VALUE', to_char(var_loaded_jobs(i)));
1542: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1538: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1539:
1540: fnd_message.set_name('MRP', 'LOADED_WIP');
1541: fnd_message.set_token('VALUE', to_char(var_loaded_jobs(i)));
1542: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1543:
1544: fnd_message.set_name('MRP', 'LOADED_WIP');
1545: fnd_message.set_token('VALUE', to_char(var_loaded_lot_jobs(i))||' lot Jobs');
1546: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1542: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1543:
1544: fnd_message.set_name('MRP', 'LOADED_WIP');
1545: fnd_message.set_token('VALUE', to_char(var_loaded_lot_jobs(i))||' lot Jobs');
1546: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1547:
1548: fnd_message.set_name('MRP', 'LOADED_PO');
1549: fnd_message.set_token('VALUE', to_char(var_loaded_reqs(i)));
1550: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1546: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1547:
1548: fnd_message.set_name('MRP', 'LOADED_PO');
1549: fnd_message.set_token('VALUE', to_char(var_loaded_reqs(i)));
1550: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1551:
1552: fnd_message.set_name('MRP', 'LOAD_WIP_REQUEST_ID');
1553: fnd_message.set_token('VALUE', to_char(var_wip_req_id(i)));
1554: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1550: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1551:
1552: fnd_message.set_name('MRP', 'LOAD_WIP_REQUEST_ID');
1553: fnd_message.set_token('VALUE', to_char(var_wip_req_id(i)));
1554: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1555:
1556: fnd_message.set_name('MRP', 'LOAD_WIP_REQUEST_ID');
1557: fnd_message.set_token('VALUE', to_char(var_osfm_req_id(i))||' OSFM Request Id');
1558: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1554: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1555:
1556: fnd_message.set_name('MRP', 'LOAD_WIP_REQUEST_ID');
1557: fnd_message.set_token('VALUE', to_char(var_osfm_req_id(i))||' OSFM Request Id');
1558: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1559:
1560: fnd_message.set_name('MRP', 'LOAD_PO_REQUEST_ID');
1561: fnd_message.set_token('VALUE', to_char(var_req_load_id(i)));
1562: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1558: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1559:
1560: fnd_message.set_name('MRP', 'LOAD_PO_REQUEST_ID');
1561: fnd_message.set_token('VALUE', to_char(var_req_load_id(i)));
1562: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1563:
1564: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_JOB');
1565: fnd_message.set_token('VALUE', to_char(var_resched_jobs(i)));
1566: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1562: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1563:
1564: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_JOB');
1565: fnd_message.set_token('VALUE', to_char(var_resched_jobs(i)));
1566: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1567:
1568: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_REQS');
1569: fnd_message.set_token('VALUE', to_char(var_resched_reqs(i)));
1570: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1566: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1567:
1568: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_REQS');
1569: fnd_message.set_token('VALUE', to_char(var_resched_reqs(i)));
1570: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1571:
1572: fnd_file.put_line(FND_FILE.LOG, 'Loaded internal repair order :'|| var_loaded_int_repair_orders(i));
1573: fnd_file.put_line(FND_FILE.LOG, 'Loaded external repair order :'|| var_loaded_ext_repair_orders(i));
1574:
1568: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_REQS');
1569: fnd_message.set_token('VALUE', to_char(var_resched_reqs(i)));
1570: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1571:
1572: fnd_file.put_line(FND_FILE.LOG, 'Loaded internal repair order :'|| var_loaded_int_repair_orders(i));
1573: fnd_file.put_line(FND_FILE.LOG, 'Loaded external repair order :'|| var_loaded_ext_repair_orders(i));
1574:
1575: fnd_file.put_line(FND_FILE.LOG, 'Loaded Eam Jobs :'|| var_loaded_eam_jobs(i));
1576: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule Eam Work orders :'|| var_resched_eam_jobs(i));
1569: fnd_message.set_token('VALUE', to_char(var_resched_reqs(i)));
1570: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1571:
1572: fnd_file.put_line(FND_FILE.LOG, 'Loaded internal repair order :'|| var_loaded_int_repair_orders(i));
1573: fnd_file.put_line(FND_FILE.LOG, 'Loaded external repair order :'|| var_loaded_ext_repair_orders(i));
1574:
1575: fnd_file.put_line(FND_FILE.LOG, 'Loaded Eam Jobs :'|| var_loaded_eam_jobs(i));
1576: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule Eam Work orders :'|| var_resched_eam_jobs(i));
1577:
1571:
1572: fnd_file.put_line(FND_FILE.LOG, 'Loaded internal repair order :'|| var_loaded_int_repair_orders(i));
1573: fnd_file.put_line(FND_FILE.LOG, 'Loaded external repair order :'|| var_loaded_ext_repair_orders(i));
1574:
1575: fnd_file.put_line(FND_FILE.LOG, 'Loaded Eam Jobs :'|| var_loaded_eam_jobs(i));
1576: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule Eam Work orders :'|| var_resched_eam_jobs(i));
1577:
1578: fnd_file.put_line(FND_FILE.LOG, 'Loaded CMRO Jobs :'|| var_loaded_cmro_jobs(i));
1579: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule CMRO Work orders :'|| var_resched_cmro_jobs(i));
1572: fnd_file.put_line(FND_FILE.LOG, 'Loaded internal repair order :'|| var_loaded_int_repair_orders(i));
1573: fnd_file.put_line(FND_FILE.LOG, 'Loaded external repair order :'|| var_loaded_ext_repair_orders(i));
1574:
1575: fnd_file.put_line(FND_FILE.LOG, 'Loaded Eam Jobs :'|| var_loaded_eam_jobs(i));
1576: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule Eam Work orders :'|| var_resched_eam_jobs(i));
1577:
1578: fnd_file.put_line(FND_FILE.LOG, 'Loaded CMRO Jobs :'|| var_loaded_cmro_jobs(i));
1579: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule CMRO Work orders :'|| var_resched_cmro_jobs(i));
1580:
1574:
1575: fnd_file.put_line(FND_FILE.LOG, 'Loaded Eam Jobs :'|| var_loaded_eam_jobs(i));
1576: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule Eam Work orders :'|| var_resched_eam_jobs(i));
1577:
1578: fnd_file.put_line(FND_FILE.LOG, 'Loaded CMRO Jobs :'|| var_loaded_cmro_jobs(i));
1579: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule CMRO Work orders :'|| var_resched_cmro_jobs(i));
1580:
1581:
1582: /* Bug 2595278 - added Null condition */
1575: fnd_file.put_line(FND_FILE.LOG, 'Loaded Eam Jobs :'|| var_loaded_eam_jobs(i));
1576: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule Eam Work orders :'|| var_resched_eam_jobs(i));
1577:
1578: fnd_file.put_line(FND_FILE.LOG, 'Loaded CMRO Jobs :'|| var_loaded_cmro_jobs(i));
1579: fnd_file.put_line(FND_FILE.LOG, 'Loaded Reschedule CMRO Work orders :'|| var_resched_cmro_jobs(i));
1580:
1581:
1582: /* Bug 2595278 - added Null condition */
1583: IF ((var_loaded_jobs(i) > 0) AND ((var_wip_req_id(i) = 0) OR (var_wip_req_id(i) IS NULL))) THEN
1580:
1581:
1582: /* Bug 2595278 - added Null condition */
1583: IF ((var_loaded_jobs(i) > 0) AND ((var_wip_req_id(i) = 0) OR (var_wip_req_id(i) IS NULL))) THEN
1584: fnd_file.new_line(FND_FILE.LOG, 1);
1585: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-JOBS');
1586: var_buf := fnd_message.get;
1587: fnd_file.put_line(FND_FILE.LOG, var_buf);
1588:
1583: IF ((var_loaded_jobs(i) > 0) AND ((var_wip_req_id(i) = 0) OR (var_wip_req_id(i) IS NULL))) THEN
1584: fnd_file.new_line(FND_FILE.LOG, 1);
1585: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-JOBS');
1586: var_buf := fnd_message.get;
1587: fnd_file.put_line(FND_FILE.LOG, var_buf);
1588:
1589: retcode := 2;
1590: errbuf := var_buf;
1591: END IF;
1591: END IF;
1592:
1593:
1594: IF ((var_loaded_lot_jobs(i) > 0) AND (var_osfm_req_id(i) = 0)) THEN
1595: fnd_file.new_line(FND_FILE.LOG, 1);
1596: fnd_message.set_name('MRP', 'CANNOT SUBMIT LOT-JOBS INTERFACE');
1597: var_buf := fnd_message.get;
1598: fnd_file.put_line(FND_FILE.LOG, var_buf);
1599:
1594: IF ((var_loaded_lot_jobs(i) > 0) AND (var_osfm_req_id(i) = 0)) THEN
1595: fnd_file.new_line(FND_FILE.LOG, 1);
1596: fnd_message.set_name('MRP', 'CANNOT SUBMIT LOT-JOBS INTERFACE');
1597: var_buf := fnd_message.get;
1598: fnd_file.put_line(FND_FILE.LOG, var_buf);
1599:
1600: retcode := 2;
1601: errbuf := var_buf;
1602: END IF;
1601: errbuf := var_buf;
1602: END IF;
1603:
1604: IF ((var_loaded_reqs(i) > 0) AND (var_req_load_id(i) = 0)) THEN
1605: fnd_file.new_line(FND_FILE.LOG, 1);
1606: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-REQS');
1607: var_buf := fnd_message.get;
1608: fnd_file.put_line(FND_FILE.LOG, var_buf);
1609:
1604: IF ((var_loaded_reqs(i) > 0) AND (var_req_load_id(i) = 0)) THEN
1605: fnd_file.new_line(FND_FILE.LOG, 1);
1606: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-REQS');
1607: var_buf := fnd_message.get;
1608: fnd_file.put_line(FND_FILE.LOG, var_buf);
1609:
1610: retcode := 2;
1611: errbuf := var_buf;
1612: END IF;
1612: END IF;
1613:
1614: IF ((var_loaded_int_repair_orders(i) > 0) AND (var_int_repair_orders_id(i) = 0)) THEN
1615: var_buf:= 'cannot submit the internal repair order request';
1616: fnd_file.put_line(FND_FILE.LOG, var_buf);
1617:
1618: retcode := 2;
1619: errbuf := var_buf;
1620: END IF;
1620: END IF;
1621:
1622: IF ((var_loaded_ext_repair_orders(i) > 0) AND (var_ext_repair_orders_id(i) = 0)) THEN
1623: var_buf:= 'cannot submit the external repair order request';
1624: fnd_file.put_line(FND_FILE.LOG, var_buf);
1625:
1626: retcode := 2;
1627: errbuf := var_buf;
1628: END IF;
1628: END IF;
1629:
1630:
1631: IF ((var_loaded_eam_jobs(i) > 0) AND ((var_loaded_eam_req_id(i) = 0) OR (var_loaded_eam_req_id(i) IS NULL))) THEN
1632: fnd_file.new_line(FND_FILE.LOG, 1);
1633: fnd_message.set_name('MRP', 'CANNOT SUBMIT EAM_JOBS INTERFACE');
1634: var_buf := fnd_message.get;
1635: fnd_file.put_line(FND_FILE.LOG, var_buf);
1636:
1631: IF ((var_loaded_eam_jobs(i) > 0) AND ((var_loaded_eam_req_id(i) = 0) OR (var_loaded_eam_req_id(i) IS NULL))) THEN
1632: fnd_file.new_line(FND_FILE.LOG, 1);
1633: fnd_message.set_name('MRP', 'CANNOT SUBMIT EAM_JOBS INTERFACE');
1634: var_buf := fnd_message.get;
1635: fnd_file.put_line(FND_FILE.LOG, var_buf);
1636:
1637: retcode := 2;
1638: errbuf := var_buf;
1639: END IF;
1639: END IF;
1640:
1641:
1642: IF ((var_resched_eam_jobs(i) > 0) AND (var_eam_req_id(i) = 0)) THEN
1643: fnd_file.new_line(FND_FILE.LOG, 1);
1644: fnd_message.set_name('MRP', 'CANNOT SUBMIT RESCHED_EAM INTERFACE');
1645: var_buf := fnd_message.get;
1646: fnd_file.put_line(FND_FILE.LOG, var_buf);
1647:
1642: IF ((var_resched_eam_jobs(i) > 0) AND (var_eam_req_id(i) = 0)) THEN
1643: fnd_file.new_line(FND_FILE.LOG, 1);
1644: fnd_message.set_name('MRP', 'CANNOT SUBMIT RESCHED_EAM INTERFACE');
1645: var_buf := fnd_message.get;
1646: fnd_file.put_line(FND_FILE.LOG, var_buf);
1647:
1648: retcode := 2;
1649: errbuf := var_buf;
1650: END IF;
1649: errbuf := var_buf;
1650: END IF;
1651:
1652: IF ((var_loaded_cmro_jobs(i) > 0) AND ((var_loaded_cmro_req_id(i) = 0) OR (var_loaded_cmro_req_id(i) IS NULL))) THEN
1653: fnd_file.new_line(FND_FILE.LOG, 1);
1654: fnd_message.set_name('MRP', 'CANNOT SUBMIT CMRO_JOBS INTERFACE');
1655: var_buf := fnd_message.get;
1656: fnd_file.put_line(FND_FILE.LOG, var_buf);
1657:
1652: IF ((var_loaded_cmro_jobs(i) > 0) AND ((var_loaded_cmro_req_id(i) = 0) OR (var_loaded_cmro_req_id(i) IS NULL))) THEN
1653: fnd_file.new_line(FND_FILE.LOG, 1);
1654: fnd_message.set_name('MRP', 'CANNOT SUBMIT CMRO_JOBS INTERFACE');
1655: var_buf := fnd_message.get;
1656: fnd_file.put_line(FND_FILE.LOG, var_buf);
1657:
1658: retcode := 2;
1659: errbuf := var_buf;
1660: END IF;
1660: END IF;
1661:
1662:
1663: IF ((var_resched_cmro_jobs(i) > 0) AND (var_resched_cmro_req_id(i) = 0)) THEN
1664: fnd_file.new_line(FND_FILE.LOG, 1);
1665: fnd_message.set_name('MRP', 'CANNOT SUBMIT RESCHED_CMRO INTERFACE');
1666: var_buf := fnd_message.get;
1667: fnd_file.put_line(FND_FILE.LOG, var_buf);
1668:
1663: IF ((var_resched_cmro_jobs(i) > 0) AND (var_resched_cmro_req_id(i) = 0)) THEN
1664: fnd_file.new_line(FND_FILE.LOG, 1);
1665: fnd_message.set_name('MRP', 'CANNOT SUBMIT RESCHED_CMRO INTERFACE');
1666: var_buf := fnd_message.get;
1667: fnd_file.put_line(FND_FILE.LOG, var_buf);
1668:
1669: retcode := 2;
1670: errbuf := var_buf;
1671: END IF;
1672:
1673: END LOOP;
1674:
1675: var_buf := '++++++++++';
1676: fnd_file.put_line(FND_FILE.LOG, var_buf);
1677: var_buf := 'PO reschedules';
1678: fnd_file.put_line(FND_FILE.LOG, var_buf);
1679:
1680: FOR i IN 1..var_count_po LOOP
1674:
1675: var_buf := '++++++++++';
1676: fnd_file.put_line(FND_FILE.LOG, var_buf);
1677: var_buf := 'PO reschedules';
1678: fnd_file.put_line(FND_FILE.LOG, var_buf);
1679:
1680: FOR i IN 1..var_count_po LOOP
1681: select instance_code
1682: into lv_instance_code
1684: where instance_id= var_released_instance(i);
1685:
1686: fnd_message.set_name('MSC', 'MSC_AR_LOADED_INSTANCE');
1687: fnd_message.set_token('INSTANCE', lv_instance_code);
1688: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1689: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_PO');
1690: fnd_message.set_token('VALUE', to_char(var_po_res_count(i)));
1691: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1692: END LOOP;
1687: fnd_message.set_token('INSTANCE', lv_instance_code);
1688: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1689: fnd_message.set_name('MSC', 'LOADED_RESCHEDULED_PO');
1690: fnd_message.set_token('VALUE', to_char(var_po_res_count(i)));
1691: fnd_file.put_line(FND_FILE.LOG, fnd_message.get);
1692: END LOOP;
1693:
1694: END;
1695: RETURN;
1699:
1700: IF planned_orders_and_reschedules%ISOPEN THEN CLOSE planned_orders_and_reschedules; END IF;
1701:
1702: var_buf := var_entity||': '||sqlerrm;
1703: fnd_file.put_line(FND_FILE.LOG, var_buf);
1704:
1705: ROLLBACK;
1706: retcode := 2;
1707: errbuf := var_buf;
1822: j := j + 1;
1823:
1824: /* Bug 2595278 - added Null condition */
1825: IF ((var_loaded_jobs(i) > 0) AND ((var_wip_req_id(i) = 0) OR (var_wip_req_id(i) IS NULL))) THEN
1826: fnd_file.new_line(FND_FILE.LOG, 1);
1827: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-JOBS');
1828: ERRMSG := ERRMSG || ' ' || fnd_message.get;
1829: RETCODE := MSC_UTIL.G_ERROR;
1830: END IF;
1830: END IF;
1831:
1832:
1833: IF ((var_loaded_lot_jobs(i) > 0) AND (var_osfm_req_id(i) = 0)) THEN
1834: fnd_file.new_line(FND_FILE.LOG, 1);
1835: fnd_message.set_name('MRP', 'CANNOT SUBMIT LOT-JOBS INTERFACE');
1836: ERRMSG := ERRMSG || ' ' || fnd_message.get;
1837: RETCODE := MSC_UTIL.G_ERROR;
1838: END IF;
1837: RETCODE := MSC_UTIL.G_ERROR;
1838: END IF;
1839:
1840: IF ((var_loaded_reqs(i) > 0) AND (var_req_load_id(i) = 0)) THEN
1841: fnd_file.new_line(FND_FILE.LOG, 1);
1842: fnd_message.set_name('MRP', 'CANNOT SUBMIT REQUEST-REQS');
1843: ERRMSG := ERRMSG || ' ' ||fnd_message.get;
1844: RETCODE := MSC_UTIL.G_ERROR;
1845: END IF;