[Home] [Help]
2658: FOR c_rec IN c2_d LOOP
2659:
2660: IF c_rec.ORIGINATION_TYPE IN (2, 3, 50) THEN -- DISCRETE JOB COMPONENT /* ds change 50 eam demand */
2661:
2662: UPDATE MSC_DEMANDS
2663: SET USING_REQUIREMENT_QUANTITY= 0,
2664: DAILY_DEMAND_RATE= 0,
2665: REFRESH_NUMBER= MSC_CL_COLLECTION.v_last_collection_id,
2666: LAST_UPDATE_DATE= MSC_CL_COLLECTION.v_current_date,
2674: AND INVENTORY_ITEM_ID= NVL(c_rec.INVENTORY_ITEM_ID,INVENTORY_ITEM_ID);
2675:
2676: ELSIF c_rec.ORIGINATION_TYPE= 4 THEN -- REPT ITEM
2677:
2678: UPDATE MSC_DEMANDS
2679: SET USING_REQUIREMENT_QUANTITY= 0,
2680: DAILY_DEMAND_RATE= 0,
2681: REFRESH_NUMBER= MSC_CL_COLLECTION.v_last_collection_id,
2682: LAST_UPDATE_DATE= MSC_CL_COLLECTION.v_current_date,
2691: AND ORGANIZATION_ID = c_rec.ORGANIZATION_ID;
2692:
2693: ELSIF c_rec.ORIGINATION_TYPE= 25 THEN -- FLOW SCHEDULE
2694:
2695: DELETE MSC_DEMANDS
2696: WHERE PLAN_ID= -1
2697: AND SR_INSTANCE_ID= c_rec.SR_INSTANCE_ID
2698: AND ORIGINATION_TYPE= c_rec.ORIGINATION_TYPE
2699: AND WIP_ENTITY_ID= c_rec.WIP_ENTITY_ID
2713: IF MSC_CL_COLLECTION.v_exchange_mode=MSC_UTIL.SYS_YES THEN
2714: lv_tbl:= 'DEMANDS_'||MSC_CL_COLLECTION.v_instance_code;
2715: lv_supplies_tbl:= 'SUPPLIES_'||MSC_CL_COLLECTION.v_instance_code;
2716: ELSE
2717: lv_tbl:= 'MSC_DEMANDS';
2718: lv_supplies_tbl:= 'MSC_SUPPLIES';
2719: END IF;
2720:
2721: /** PREPLACE CHANGE START **/
2725: -- for determining which SUPPLY table to be used for pegging.
2726:
2727: /** PREPLACE CHANGE END **/
2728: /* 2201791 - select substr(order_number,1,62) since order_number is
2729: defined as varchar(62) in msc_demands table */
2730:
2731:
2732: IF (MSC_UTIL.G_COLLECT_SRP_DATA = 'Y') Then
2733: v_srp_profile_vlaue := 1;
2738: END IF; -- For Bug 5909379
2739:
2740: lv_cursor_stmt:=
2741: 'SELECT'
2742: ||' -1, MSC_DEMANDS_S.nextval, '
2743: ||' NVL(ms.TRANSACTION_ID,-1) DISPOSITION_ID,'
2744: ||' t1.INVENTORY_ITEM_ID,'
2745: ||' msd.ORGANIZATION_ID,'
2746: ||' t2.INVENTORY_ITEM_ID USING_ASSEMBLY_ITEM_ID,'
2914: ||' CREATION_DATE,'
2915: ||' CREATED_BY)'
2916: ||'VALUES'
2917: ||'( -1,'
2918: ||' MSC_DEMANDS_S.nextval,'
2919: ||' :INVENTORY_ITEM_ID,'
2920: ||' :ORGANIZATION_ID,'
2921: ||' :USING_ASSEMBLY_ITEM_ID,'
2922: ||' :USING_ASSEMBLY_DEMAND_DATE,'
3055: --================= wip discrete job components ==================
3056: IF lv_ORIGINATION_TYPE IN (2, 3, 50) THEN /* ds change 50 eam demand*/
3057:
3058: /* ATP SUMMARY CHANGES Added the OLD_**** Columns */
3059: UPDATE /*+ INDEX (MSC_DEMANDS MSC_DEMANDS_N5) */ MSC_DEMANDS
3060: SET
3061: OLD_USING_REQUIREMENT_QUANTITY= USING_REQUIREMENT_QUANTITY,
3062: OLD_USING_ASSEMBLY_DEMAND_DATE= USING_ASSEMBLY_DEMAND_DATE,
3063: OLD_ASSEMBLY_DEMAND_COMP_DATE= ASSEMBLY_DEMAND_COMP_DATE,
3097: --================= wip repetitive schedule ==================
3098: ELSIF lv_ORIGINATION_TYPE=4 THEN
3099:
3100: /* ATP SUMMARY CHANGES Added the OLD_**** Columns */
3101: UPDATE MSC_DEMANDS
3102: SET
3103: OLD_USING_REQUIREMENT_QUANTITY= USING_REQUIREMENT_QUANTITY,
3104: OLD_USING_ASSEMBLY_DEMAND_DATE= USING_ASSEMBLY_DEMAND_DATE,
3105: OLD_ASSEMBLY_DEMAND_COMP_DATE= ASSEMBLY_DEMAND_COMP_DATE,
3188:
3189: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
3190: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
3191: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY');
3192: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_DEMANDS');
3193: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
3194:
3195: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
3196: RAISE;
3200:
3201: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
3202: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
3203: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SUPPLY');
3204: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_DEMANDS');
3205: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
3206:
3207: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
3208: FND_MESSAGE.SET_TOKEN('COLUMN', 'WIP_ENTITY_ID');