[Home] [Help]
303: mssso.SHIP_METHOD,
304: mssso.SOURCE_TYPE
305: FROM MSC_TP_ID_LID mtil,
306: MSC_TP_SITE_ID_LID mtsil,
307: MSC_SR_Receipt_Org msro,
308: MSC_ST_SR_SOURCE_ORG mssso
309: WHERE msro.SR_SR_RECEIPT_ID= mssso.SR_RECEIPT_ID
310: AND msro.SR_Instance_ID= mssso.SR_Instance_ID
311: AND mtil.SR_TP_ID(+)= mssso.SOURCE_PARTNER_ID
1003: --/* it's removed due to bug 1219661
1004: IF ((MSC_CL_COLLECTION.v_is_complete_refresh OR MSC_CL_COLLECTION.v_is_partial_refresh)
1005: AND MSC_CL_COLLECTION.v_sourcing_flag=MSC_UTIL.SYS_YES ) THEN
1006:
1007: UPDATE MSC_SR_RECEIPT_ORG
1008: SET DELETED_FLAG= MSC_UTIL.SYS_YES,
1009: LAST_UPDATE_DATE= MSC_CL_COLLECTION.v_current_date,
1010: LAST_UPDATED_BY= MSC_CL_COLLECTION.v_current_user
1011: WHERE SR_INSTANCE_ID= MSC_CL_COLLECTION.v_instance_id
1021: FOR c_rec IN c4 LOOP
1022:
1023: BEGIN
1024:
1025: UPDATE MSC_SR_RECEIPT_ORG msro
1026: SET msro.SR_RECEIPT_ORG= c_rec.SR_SR_Receipt_Org,
1027: msro.RECEIPT_ORG_INSTANCE_ID= c_rec.RECEIPT_ORG_INSTANCE_ID,
1028: msro.SOURCING_RULE_ID= c_rec.Sourcing_Rule_ID,
1029: msro.RECEIPT_PARTNER_ID= c_rec.Receipt_Partner_ID,
1041: AND msro.COLLECTED_FLAG= MSC_UTIL.SYS_YES;
1042:
1043: IF SQL%NOTFOUND THEN
1044:
1045: INSERT INTO MSC_SR_RECEIPT_ORG
1046: ( SR_RECEIPT_ID,
1047: SR_SR_RECEIPT_ID,
1048: SR_RECEIPT_ORG,
1049: RECEIPT_ORG_INSTANCE_ID,
1060: LAST_UPDATED_BY,
1061: CREATION_DATE,
1062: CREATED_BY)
1063: VALUES
1064: ( MSC_SR_RECEIPT_ORG_S.NEXTVAL,
1065: c_rec.SR_RECEIPT_ID,
1066: c_rec.SR_SR_RECEIPT_ORG,
1067: c_rec.RECEIPT_ORG_INSTANCE_ID,
1068: c_rec.SOURCING_RULE_ID,
1096:
1097: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
1098: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1099: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SOURCING');
1100: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_SR_RECEIPT_ORG');
1101: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
1102:
1103: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, SQLERRM);
1104: RAISE;
1108:
1109: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, '========================================');
1110: FND_MESSAGE.SET_NAME('MSC', 'MSC_OL_DATA_ERR_HEADER');
1111: FND_MESSAGE.SET_TOKEN('PROCEDURE', 'LOAD_SOURCING');
1112: FND_MESSAGE.SET_TOKEN('TABLE', 'MSC_SR_RECEIPT_ORG');
1113: MSC_UTIL.LOG_MSG(MSC_UTIL.G_D_STATUS, FND_MESSAGE.GET);
1114:
1115: FND_MESSAGE.SET_NAME('MSC','MSC_OL_DATA_ERR_DETAIL');
1116: FND_MESSAGE.SET_TOKEN('COLUMN', 'SR_RECEIPT_ID');
1126:
1127: COMMIT;
1128:
1129: --/* it's removed due to bug 1219661
1130: DELETE MSC_SR_RECEIPT_ORG
1131: WHERE DELETED_FLAG= MSC_UTIL.SYS_YES
1132: AND SR_INSTANCE_ID= MSC_CL_COLLECTION.v_instance_id
1133: AND COLLECTED_FLAG= MSC_UTIL.SYS_YES;
1134:
1136: --*/
1137:
1138: IF (MSC_CL_COLLECTION.v_is_complete_refresh OR MSC_CL_COLLECTION.v_is_partial_refresh) THEN
1139:
1140: msc_analyse_tables_pk.analyse_table( 'MSC_SR_RECEIPT_ORG');
1141:
1142: END IF;
1143:
1144: --/* it's removed due to bug 1219661
5557: ||' set MOAI.SUPPLYING_ORG_ID =('
5558: ||' select MSSO.SOURCE_ORGANIZATION_ID'
5559: ||' from MSC_SR_ASSIGNMENTS MSA,'
5560: ||' MSC_SOURCING_RULES MSR,'
5561: ||' MSC_SR_RECEIPT_ORG MSRO,'
5562: ||' MSC_SR_SOURCE_ORG MSSO'
5563: ||' WHERE MSA.ASSIGNMENT_SET_ID = :lv_assign_set_id'
5564: ||' AND ( (msa.assignment_type=9 AND MSA.REGION_ID = MOAI.REGION_ID AND'
5565: ||' MSA.SR_INSTANCE_ID = MOAI.SR_INSTANCE_ID AND MOAI.INVENTORY_ITEM_ID = msa.INVENTORY_ITEM_ID)'