[Home] [Help]
1975: WHERE
1976: MSC_SR_SOURCE_ORG.SR_RECEIPT_ID in
1977: ( select MSC_SR_RECEIPT_ORG.SR_RECEIPT_ID from MSC_SR_ASSIGNMENTS, MSC_SR_RECEIPT_ORG
1978: where MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar and
1979: MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID = MSC_SR_RECEIPT_ORG.SOURCING_RULE_ID );
1980: EXCEPTION WHEN others THEN
1981: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001001';
1982: raise;
1983: END;
1985: BEGIN
1986: DELETE from MSC_SR_RECEIPT_ORG
1987: WHERE
1988: MSC_SR_RECEIPT_ORG.SOURCING_RULE_ID in
1989: ( select MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID from MSC_SR_ASSIGNMENTS
1990: where MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar );
1991: EXCEPTION WHEN others THEN
1992: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001002';
1993: NULL;
1996: BEGIN
1997: DELETE from MSC_SOURCING_RULES
1998: WHERE
1999: MSC_SOURCING_RULES.SOURCING_RULE_ID in
2000: ( select MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID from MSC_SR_ASSIGNMENTS
2001: where MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar );
2002: EXCEPTION WHEN others THEN
2003: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001003';
2004: raise;
2029: LAST_UPDATED_BY,
2030: CREATION_DATE,
2031: CREATED_BY)
2032: SELECT
2033: MSC_SR_ASSIGNMENTS_S.NEXTVAL,
2034: -1 * MSC_SR_ASSIGNMENTS_S.NEXTVAL, -- Part of unique key. Maybe should use current value.
2035: -1, -- // -1 until we figure out what goes here.
2036: assignmentSetOutIdVar,
2037: 6, -- // 6 is item-org assignment type
2030: CREATION_DATE,
2031: CREATED_BY)
2032: SELECT
2033: MSC_SR_ASSIGNMENTS_S.NEXTVAL,
2034: -1 * MSC_SR_ASSIGNMENTS_S.NEXTVAL, -- Part of unique key. Maybe should use current value.
2035: -1, -- // -1 until we figure out what goes here.
2036: assignmentSetOutIdVar,
2037: 6, -- // 6 is item-org assignment type
2038: MSC_SOURCING_RULES_S.NEXTVAL, -- //Cache these because we cannot look them up by name
2066: CREATION_DATE,
2067: CREATED_BY,
2068: DELETED_FLAG )
2069: SELECT DISTINCT
2070: MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2071: -1 * MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2072: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID, -- // I suppose these are the same.
2073: MSC_SR_ASSIGNMENTS.ORGANIZATION_ID,
2074: (MSC_ASSIGNMENT_SETS.ASSIGNMENT_SET_NAME || ':' || MSC_SYSTEM_ITEMS.ITEM_NAME || ':' || MSC_PLAN_ORGANIZATIONS.ORGANIZATION_CODE),
2067: CREATED_BY,
2068: DELETED_FLAG )
2069: SELECT DISTINCT
2070: MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2071: -1 * MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2072: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID, -- // I suppose these are the same.
2073: MSC_SR_ASSIGNMENTS.ORGANIZATION_ID,
2074: (MSC_ASSIGNMENT_SETS.ASSIGNMENT_SET_NAME || ':' || MSC_SYSTEM_ITEMS.ITEM_NAME || ':' || MSC_PLAN_ORGANIZATIONS.ORGANIZATION_CODE),
2075: 1, -- // STATUS
2068: DELETED_FLAG )
2069: SELECT DISTINCT
2070: MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2071: -1 * MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2072: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID, -- // I suppose these are the same.
2073: MSC_SR_ASSIGNMENTS.ORGANIZATION_ID,
2074: (MSC_ASSIGNMENT_SETS.ASSIGNMENT_SET_NAME || ':' || MSC_SYSTEM_ITEMS.ITEM_NAME || ':' || MSC_PLAN_ORGANIZATIONS.ORGANIZATION_CODE),
2075: 1, -- // STATUS
2076: 1, -- // 1 means sourcing rule type
2083: FROM MSC_SR_ASSIGNMENTS , MSC_ASSIGNMENT_SETS , MSC_SYSTEM_ITEMS , MSC_PLAN_ORGANIZATIONS -- ( alias org )
2084: WHERE
2085: MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar and
2086: MSC_ASSIGNMENT_SETS.ASSIGNMENT_SET_ID = MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID and
2087: MSC_SYSTEM_ITEMS.SR_INSTANCE_ID = MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID and
2088: MSC_SYSTEM_ITEMS.ORGANIZATION_ID = MSC_SR_ASSIGNMENTS.ORGANIZATION_ID and
2089: MSC_SYSTEM_ITEMS.INVENTORY_ITEM_ID = MSC_SR_ASSIGNMENTS.INVENTORY_ITEM_ID and
2090: MSC_SYSTEM_ITEMS.PLAN_ID = -1 and
2091: MSC_PLAN_ORGANIZATIONS.PLAN_ID = planIdVar and
2088: MSC_SYSTEM_ITEMS.ORGANIZATION_ID = MSC_SR_ASSIGNMENTS.ORGANIZATION_ID and
2089: MSC_SYSTEM_ITEMS.INVENTORY_ITEM_ID = MSC_SR_ASSIGNMENTS.INVENTORY_ITEM_ID and
2090: MSC_SYSTEM_ITEMS.PLAN_ID = -1 and
2091: MSC_PLAN_ORGANIZATIONS.PLAN_ID = planIdVar and
2092: MSC_PLAN_ORGANIZATIONS.SR_INSTANCE_ID = MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID and
2093: MSC_PLAN_ORGANIZATIONS.ORGANIZATION_ID = MSC_SR_ASSIGNMENTS.ORGANIZATION_ID;
2094: EXCEPTION WHEN others THEN
2095: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001006';
2096: raise;
2118: -1 * MSC_SR_RECEIPT_ORG_S.NEXTVAL,
2119: substr(msc_int_source2.branch_code,1,instr(msc_int_source2.branch_code,':',1,1)-1), -- // I suspect I am supposed to put something here but I don't know what.
2120: substr(msc_int_source2.branch_code,instr(msc_int_source2.branch_code,':',1,1)+1),
2121: substr(msc_int_source2.branch_code,1,instr(msc_int_source2.branch_code,':',1,1)-1), -- // Eventually this should be obtained from the branch code.
2122: MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID,
2123: NULL, -- This is empty until we get customer sourcing
2124: NULL, -- This is empty until we get customer sourcing
2125: msc_int_source2.enable_date,
2126: msc_int_source2.disable_date,
2130: '-1'
2131: FROM MSC_SR_ASSIGNMENTS, msc_int_source2
2132: WHERE
2133: MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar and
2134: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID || ':' || MSC_SR_ASSIGNMENTS.INVENTORY_ITEM_ID = msc_int_source2.item_code and
2135: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID || ':' || MSC_SR_ASSIGNMENTS.ORGANIZATION_ID = msc_int_source2.branch_code;
2136: EXCEPTION WHEN others THEN
2137: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001007';
2138: raise;
2131: FROM MSC_SR_ASSIGNMENTS, msc_int_source2
2132: WHERE
2133: MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar and
2134: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID || ':' || MSC_SR_ASSIGNMENTS.INVENTORY_ITEM_ID = msc_int_source2.item_code and
2135: MSC_SR_ASSIGNMENTS.SR_INSTANCE_ID || ':' || MSC_SR_ASSIGNMENTS.ORGANIZATION_ID = msc_int_source2.branch_code;
2136: EXCEPTION WHEN others THEN
2137: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001007';
2138: raise;
2139: END;
2193: sysdate,
2194: '-1'
2195: FROM MSC_SR_ASSIGNMENTS, MSC_SR_RECEIPT_ORG, MSC_INT_SRC_RECOMMEND_DETAIL
2196: WHERE MSC_SR_ASSIGNMENTS.ASSIGNMENT_SET_ID = assignmentSetOutIdVar
2197: AND MSC_SR_ASSIGNMENTS.SOURCING_RULE_ID = MSC_SR_RECEIPT_ORG.SOURCING_RULE_ID
2198: AND MSC_SR_RECEIPT_ORG.SR_RECEIPT_ORG = MSC_SR_ASSIGNMENTS.ORGANIZATION_ID
2199: AND MSC_SR_RECEIPT_ORG.RECEIPT_ORG_INSTANCE_ID || ':' || MSC_SR_RECEIPT_ORG.SR_RECEIPT_ORG = MSC_INT_SRC_RECOMMEND_DETAIL.destination_code
2200: AND MSC_SR_RECEIPT_ORG.EFFECTIVE_DATE = TO_DATE( MSC_INT_SRC_RECOMMEND_DETAIL.start_date, 'YYYY-MM-DD' )
2201: AND MSC_SR_ASSIGNMENTS.INVENTORY_ITEM_ID = substr(MSC_INT_SRC_RECOMMEND_DETAIL.item_code,instr(MSC_INT_SRC_RECOMMEND_DETAIL.item_code,':',1)+1)