[Home] [Help]
2683: FOR c_rec IN c2_d LOOP
2684:
2685: IF c_rec.ORIGINATION_TYPE IN (2, 3, 50, 70) THEN -- DISCRETE JOB COMPONENT /* ds change 50 eam demand */
2686:
2687: UPDATE MSC_DEMANDS
2688: SET USING_REQUIREMENT_QUANTITY= 0,
2689: DAILY_DEMAND_RATE= 0,
2690: REFRESH_NUMBER= MSC_CL_COLLECTION.v_last_collection_id,
2691: LAST_UPDATE_DATE= MSC_CL_COLLECTION.v_current_date,
2699: AND INVENTORY_ITEM_ID= NVL(c_rec.INVENTORY_ITEM_ID,INVENTORY_ITEM_ID);
2700:
2701: ELSIF c_rec.ORIGINATION_TYPE= 4 THEN -- REPT ITEM
2702:
2703: UPDATE MSC_DEMANDS
2704: SET USING_REQUIREMENT_QUANTITY= 0,
2705: DAILY_DEMAND_RATE= 0,
2706: REFRESH_NUMBER= MSC_CL_COLLECTION.v_last_collection_id,
2707: LAST_UPDATE_DATE= MSC_CL_COLLECTION.v_current_date,
2716: AND ORGANIZATION_ID = c_rec.ORGANIZATION_ID;
2717:
2718: ELSIF c_rec.ORIGINATION_TYPE= 25 THEN -- FLOW SCHEDULE
2719:
2720: DELETE MSC_DEMANDS
2721: WHERE PLAN_ID= -1
2722: AND SR_INSTANCE_ID= c_rec.SR_INSTANCE_ID
2723: AND ORIGINATION_TYPE= c_rec.ORIGINATION_TYPE
2724: AND WIP_ENTITY_ID= c_rec.WIP_ENTITY_ID
2738: IF MSC_CL_COLLECTION.v_exchange_mode=MSC_UTIL.SYS_YES THEN
2739: lv_tbl:= 'DEMANDS_'||MSC_CL_COLLECTION.v_instance_code;
2740: lv_supplies_tbl:= 'SUPPLIES_'||MSC_CL_COLLECTION.v_instance_code;
2741: ELSE
2742: lv_tbl:= 'MSC_DEMANDS';
2743: lv_supplies_tbl:= 'MSC_SUPPLIES';
2744: END IF;
2745:
2746: /** PREPLACE CHANGE START **/
2750: -- for determining which SUPPLY table to be used for pegging.
2751:
2752: /** PREPLACE CHANGE END **/
2753: /* 2201791 - select substr(order_number,1,62) since order_number is
2754: defined as varchar(62) in msc_demands table */
2755:
2756:
2757: IF (MSC_UTIL.G_COLLECT_SRP_DATA = 'Y') Then
2758: v_srp_profile_vlaue := 1;
2763: END IF; -- For Bug 5909379
2764:
2765: lv_cursor_stmt:=
2766: 'SELECT'
2767: ||' -1, MSC_DEMANDS_S.nextval, '
2768: ||' NVL(ms.TRANSACTION_ID,-1) DISPOSITION_ID,'
2769: ||' t1.INVENTORY_ITEM_ID,'
2770: ||' msd.ORGANIZATION_ID,'
2771: ||' t2.INVENTORY_ITEM_ID USING_ASSEMBLY_ITEM_ID,'
2939: ||' CREATION_DATE,'
2940: ||' CREATED_BY)'
2941: ||'VALUES'
2942: ||'( -1,'
2943: ||' MSC_DEMANDS_S.nextval,'
2944: ||' :INVENTORY_ITEM_ID,'
2945: ||' :ORGANIZATION_ID,'
2946: ||' :USING_ASSEMBLY_ITEM_ID,'
2947: ||' :USING_ASSEMBLY_DEMAND_DATE,'
3080: --================= wip discrete job components ==================
3081: IF lv_ORIGINATION_TYPE IN (2, 3, 50) THEN /* ds change 50 eam demand*/
3082:
3083: /* ATP SUMMARY CHANGES Added the OLD_**** Columns */
3084: UPDATE /*+ INDEX (MSC_DEMANDS MSC_DEMANDS_N5) */ MSC_DEMANDS
3085: SET
3086: OLD_USING_REQUIREMENT_QUANTITY= USING_REQUIREMENT_QUANTITY,
3087: OLD_USING_ASSEMBLY_DEMAND_DATE= USING_ASSEMBLY_DEMAND_DATE,
3088: OLD_ASSEMBLY_DEMAND_COMP_DATE= ASSEMBLY_DEMAND_COMP_DATE,
3122: --================= wip repetitive schedule ==================
3123: ELSIF lv_ORIGINATION_TYPE=4 THEN
3124:
3125: /* ATP SUMMARY CHANGES Added the OLD_**** Columns */
3126: UPDATE MSC_DEMANDS
3127: SET
3128: OLD_USING_REQUIREMENT_QUANTITY= USING_REQUIREMENT_QUANTITY,
3129: OLD_USING_ASSEMBLY_DEMAND_DATE= USING_ASSEMBLY_DEMAND_DATE,
3130: OLD_ASSEMBLY_DEMAND_COMP_DATE= ASSEMBLY_DEMAND_COMP_DATE,
3213:
3214: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
3215: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
3216: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY');
3217: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_DEMANDS');
3218: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
3219:
3220: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3221: RAISE;
3225:
3226: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
3227: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
3228: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY');
3229: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_DEMANDS');
3230: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
3231:
3232: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
3233: FND_MESSAGE.SET_TOKEN('COLUMN', 'WIP_ENTITY_ID');