1973: BEGIN
1974: DELETE from MSC_SR_SOURCE_ORG
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';
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;
1980: EXCEPTION WHEN others THEN
1981: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001001';
1982: raise;
1983: END;
1984: -- 4. clear msc_sr_receipt_org
1985: BEGIN
1986: DELETE from MSC_SR_RECEIPT_ORG
1987: WHERE
1988: MSC_SR_RECEIPT_ORG.SOURCING_RULE_ID in
1982: raise;
1983: END;
1984: -- 4. clear msc_sr_receipt_org
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 );
1984: -- 4. clear msc_sr_receipt_org
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';
2094: EXCEPTION WHEN others THEN
2095: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001006';
2096: raise;
2097: END;
2098: -- 9. INSERT into MSC_SR_RECEIPT_ORG
2099: BEGIN
2100: INSERT into MSC_SR_RECEIPT_ORG (
2101: SR_RECEIPT_ID,
2102: SR_SR_RECEIPT_ID,
2096: raise;
2097: END;
2098: -- 9. INSERT into MSC_SR_RECEIPT_ORG
2099: BEGIN
2100: INSERT into MSC_SR_RECEIPT_ORG (
2101: SR_RECEIPT_ID,
2102: SR_SR_RECEIPT_ID,
2103: SR_INSTANCE_ID,
2104: SR_RECEIPT_ORG,
2113: CREATION_DATE,
2114: CREATED_BY
2115: ) -- // msc_int_source2 == source
2116: SELECT
2117: MSC_SR_RECEIPT_ORG_S.NEXTVAL,
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.
2114: CREATED_BY
2115: ) -- // msc_int_source2 == source
2116: SELECT
2117: MSC_SR_RECEIPT_ORG_S.NEXTVAL,
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,
2159: )
2160: SELECT
2161: MSC_SR_SOURCE_ORG_S.NEXTVAL,
2162: -1 * MSC_SR_SOURCE_ORG_S.NEXTVAL,
2163: MSC_SR_RECEIPT_ORG.SR_RECEIPT_ID,
2164: case when MSC_INT_SRC_RECOMMEND_DETAIL.sourcing_type = 'Supplier'
2165: then substr(MSC_INT_SRC_RECOMMEND_DETAIL.origin_code,1,instr(MSC_INT_SRC_RECOMMEND_DETAIL.origin_code,':',1,1)-1)
2166: else NULL
2167: end,
2168: case when MSC_INT_SRC_RECOMMEND_DETAIL.sourcing_type = 'Supplier'
2169: then substr( MSC_INT_SRC_RECOMMEND_DETAIL.origin_code, instr(MSC_INT_SRC_RECOMMEND_DETAIL.origin_code, ':', 1,1) + 1 )
2170: else NULL
2171: end,
2172: MSC_SR_RECEIPT_ORG.SR_INSTANCE_ID,
2173: case when not MSC_INT_SRC_RECOMMEND_DETAIL.sourcing_type = 'Supplier'
2174: then substr( MSC_INT_SRC_RECOMMEND_DETAIL.origin_code, instr(MSC_INT_SRC_RECOMMEND_DETAIL.origin_code, ':', 1,1) + 1 )
2175: else NULL
2176: end,
2191: sysdate,
2192: '-1',
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
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)
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)
2202: AND MSC_INT_SRC_RECOMMEND_DETAIL.available = 'Yes';
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)
2202: AND MSC_INT_SRC_RECOMMEND_DETAIL.available = 'Yes';
2203: EXCEPTION WHEN others THEN
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)
2202: AND MSC_INT_SRC_RECOMMEND_DETAIL.available = 'Yes';
2203: EXCEPTION WHEN others THEN
2204: g_ErrorCode := 'ERROR_UPDATE_MSC_INT_SRC_RECOMMEND_DETAIL_001007';