[Home] [Help]
91: mti.project_id,
92: mti.task_id,
93: mti.reason_id,
94: mti.transaction_reference
95: from mtl_transactions_interface mti,
96: wip_entities we,
97: mtl_system_items msi
98: where mti.transaction_header_id = p_txnHeaderID
99: and mti.transaction_source_type_id = 5
208: wip_logger.log('l_convOverCplPriQty' || l_convOverCplPriQty, l_returnStatus);
209: end if;
210: fnd_message.set_name('INV', 'INV_INT_UOMEXP');
211: l_errExp := fnd_message.get;
212: update mtl_transactions_interface
213: set last_update_date = sysdate,
214: last_updated_by = fnd_global.user_id,
215: last_update_login = fnd_global.login_id,
216: program_application_id = fnd_global.prog_appl_id,
228: (l_tbls.overCplPriQty(i) is null or l_tbls.overCplPriQty(i) <> l_convOverCplPriQty))) then
229: l_tbls.priQty(i) := l_convPriQty;
230: l_tbls.overCplPriQty(i) := l_convOverCplPriQty;
231:
232: update mtl_transactions_interface
233: set last_update_date = sysdate,
234: last_updated_by = fnd_global.user_id,
235: last_update_login = fnd_global.login_id,
236: program_application_id = fnd_global.prog_appl_id,
268: end loop;
269: end if;
270:
271: forall i in 1..l_errTbls.txnIntID.count
272: update mtl_transactions_interface
273: set last_update_date = sysdate,
274: last_updated_by = fnd_global.user_id,
275: last_update_login = fnd_global.login_id,
276: program_application_id = fnd_global.prog_appl_id,
304: rollback to wipmtivb1;
305: l_errExp := substrb(SQLERRM, 1, 240);
306: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
307:
308: update mtl_transactions_interface
309: set last_update_date = sysdate,
310: last_updated_by = fnd_global.user_id,
311: last_update_login = fnd_global.login_id,
312: program_application_id = fnd_global.prog_appl_id,
407: end if;
408:
409: select count(*)
410: into l_count
411: from mtl_transactions_interface
412: where transaction_header_id = p_txnHeaderID
413: and completion_transaction_id = p_tbls.cplTxnID(p_index)
414: and transaction_action_id in (wip_constants.isscomp_action, wip_constants.retcomp_action,
415: wip_constants.issnegc_action, wip_constants.retnegc_action);
517: cursor cpl_c is
518: select organization_id,
519: transaction_source_id,
520: transaction_interface_id
521: from mtl_transactions_interface
522: where transaction_header_id = p_txnHeaderID
523: and process_flag = 1
524: and transaction_source_type_id = 5
525: and transaction_action_id in (WIP_CONSTANTS.SCRASSY_ACTION,
622: source_task_id,
623: nvl(flow_schedule, 'N') flow_schedule,
624: scheduled_flag,
625: transaction_action_id
626: from mtl_transactions_interface
627: where transaction_header_id = p_txnHeaderID
628: and process_flag = 1
629: and transaction_source_type_id = 5
630: and transaction_action_id in (WIP_CONSTANTS.CPLASSY_ACTION,
741: organization_id,
742: inventory_item_id,
743: transaction_quantity,
744: transaction_uom
745: from mtl_transactions_interface
746: where transaction_header_id = p_txnHeaderID
747: and process_flag = 1
748: and transaction_source_type_id = 5
749: and upper(nvl(flow_schedule, 'N')) = 'N'
788: -- check if it is an assembly completion/return for lot based job. If so error out
789: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
790: fnd_message.set_token('ENTITY', 'Transactions');
791: l_errMsg := substrb(fnd_message.get, 1, 240);
792: update mtl_transactions_interface mti
793: set last_update_date = sysdate,
794: last_updated_by = fnd_global.user_id,
795: last_update_login = fnd_global.login_id,
796: program_application_id = fnd_global.prog_appl_id,
810: -- check existence of line for repetitive schedules, job and flow schedule
811: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
812: fnd_message.set_token('ENTITY', 'line');
813: l_errMsg := substrb(fnd_message.get, 1, 240);
814: update mtl_transactions_interface mti
815: set last_update_date = sysdate,
816: last_updated_by = fnd_global.user_id,
817: last_update_login = fnd_global.login_id,
818: program_application_id = fnd_global.prog_appl_id,
840:
841: -- check valid line for assembly
842: fnd_message.set_name('WIP', 'WIP_INVALID_LINE');
843: l_errMsg := substrb(fnd_message.get, 1, 240);
844: update mtl_transactions_interface mti
845: set last_update_date = sysdate,
846: last_updated_by = fnd_global.user_id,
847: last_update_login = fnd_global.login_id,
848: program_application_id = fnd_global.prog_appl_id,
866:
867: -- check that job/schedule, etc. is transactable, flow is checked before
868: fnd_message.set_name('WIP', 'WIP_NO_CHARGES_ALLOWED');
869: l_errMsg := substrb(fnd_message.get, 1, 240);
870: update mtl_transactions_interface mti
871: set last_update_date = sysdate,
872: last_updated_by = fnd_global.user_id,
873: last_update_login = fnd_global.login_id,
874: program_application_id = fnd_global.prog_appl_id,
901: -- check to see if job/flow has an assembly associated with it
902: -- validate this only for completion transactions
903: fnd_message.set_name('WIP', 'WIP_NO_ASSY_NO_TXN');
904: l_errMsg := substrb(fnd_message.get, 1, 240);
905: update mtl_transactions_interface mti
906: set last_update_date = sysdate,
907: last_updated_by = fnd_global.user_id,
908: last_update_login = fnd_global.login_id,
909: program_application_id = fnd_global.prog_appl_id,
932: and wfs.organization_id = mti.organization_id
933: and primary_item_id is null)));
934:
935: -- derive earliest valid schedule
936: update mtl_transactions_interface mti
937: set last_update_date = sysdate,
938: last_updated_by = fnd_global.user_id,
939: last_update_login = fnd_global.login_id,
940: program_application_id = fnd_global.prog_appl_id,
960: and wip_entity_type = 2;
961:
962:
963: -- derive op seq num for completions
964: update mtl_transactions_interface mti
965: set last_update_date = sysdate,
966: last_updated_by = fnd_global.user_id,
967: last_update_login = fnd_global.login_id,
968: program_application_id = fnd_global.prog_appl_id,
983: and transaction_action_id in (WIP_CONSTANTS.CPLASSY_ACTION,
984: WIP_CONSTANTS.RETASSY_ACTION);
985:
986: -- derive op seq num for wip component issue/return
987: update mtl_transactions_interface mti
988: set last_update_date = sysdate,
989: last_updated_by = fnd_global.user_id,
990: last_update_login = fnd_global.login_id,
991: program_application_id = fnd_global.prog_appl_id,
1010: -- Added Additional Validation of Operation Disable Date for Lot based jobs for Bug 14065582.
1011: -- validate operation seq num
1012: fnd_message.set_name('WIP', 'WIP_INVALID_OPERATION');
1013: l_errMsg := substrb(fnd_message.get, 1, 240);
1014: update mtl_transactions_interface mti
1015: set last_update_date = sysdate,
1016: last_updated_by = fnd_global.user_id,
1017: last_update_login = fnd_global.login_id,
1018: program_application_id = fnd_global.prog_appl_id,
1051: exception
1052: when others then
1053: l_engItemFlag := 2; -- default to not an engineering item
1054: end;
1055: update mtl_transactions_interface mti
1056: set last_update_date = sysdate,
1057: last_updated_by = fnd_global.user_id,
1058: last_update_login = fnd_global.login_id,
1059: program_application_id = fnd_global.prog_appl_id,
1109: mti.transaction_source_id,
1110: mti.repetitive_line_id,
1111: mti.operation_seq_num
1112: BULK COLLECT INTO l_sfRecTbl
1113: from mtl_transactions_interface mti
1114: where transaction_header_id = p_txnHeaderID
1115: and process_flag = 1
1116: and transaction_source_type_id = 5
1117: and transaction_action_id = WIP_CONSTANTS.CPLASSY_ACTION
1151: fnd_message.set_name('WIP', 'WIP_SF_STATUS_NO_TXN2');
1152: fnd_message.set_token('SF_STATUS', to_char(l_sf_status));
1153: l_errMsg := substrb(fnd_message.get, 1, 240);
1154:
1155: update mtl_transactions_interface mti
1156: set last_update_date = sysdate,
1157: last_updated_by = fnd_global.user_id,
1158: last_update_login = fnd_global.login_id,
1159: program_application_id = fnd_global.prog_appl_id,
1172: -- check for valid final completion flag, this is not required for flow schedules
1173: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
1174: fnd_message.set_token('ENTITY', 'final_completion_flag');
1175: l_errMsg := substrb(fnd_message.get, 1, 240);
1176: update mtl_transactions_interface mti
1177: set last_update_date = sysdate,
1178: last_updated_by = fnd_global.user_id,
1179: last_update_login = fnd_global.login_id,
1180: program_application_id = fnd_global.prog_appl_id,
1193: and upper(nvl(final_completion_flag, 'E')) not in ('Y', 'N');
1194:
1195:
1196: -- derive item revision for completion txns for discrete jobs
1197: update mtl_transactions_interface mti
1198: set last_update_date = sysdate,
1199: last_updated_by = fnd_global.user_id,
1200: last_update_login = fnd_global.login_id,
1201: program_application_id = fnd_global.prog_appl_id,
1219: and msi.revision_qty_control_code = 2);
1220:
1221:
1222: -- derive item revision for completion txns for repetitive
1223: update mtl_transactions_interface mti
1224: set last_update_date = sysdate,
1225: last_updated_by = fnd_global.user_id,
1226: last_update_login = fnd_global.login_id,
1227: program_application_id = fnd_global.prog_appl_id,
1244: and msi.inventory_item_id = mti.inventory_item_id
1245: and msi.revision_qty_control_code = 2);
1246:
1247: -- derive item revision for flow
1248: update mtl_transactions_interface mti
1249: set last_update_date = sysdate,
1250: last_updated_by = fnd_global.user_id,
1251: last_update_login = fnd_global.login_id,
1252: program_application_id = fnd_global.prog_appl_id,
1270: and msi.inventory_item_id = mti.inventory_item_id
1271: and msi.revision_qty_control_code = 2);
1272:
1273: -- derive completion_transaction_id for flow components
1274: update mtl_transactions_interface mti
1275: set last_update_date = sysdate,
1276: last_updated_by = fnd_global.user_id,
1277: last_update_login = fnd_global.login_id,
1278: program_application_id = fnd_global.prog_appl_id,
1279: program_id = fnd_global.conc_program_id,
1280: program_update_date = sysdate,
1281: request_id = fnd_global.conc_request_id,
1282: completion_transaction_id = (select completion_transaction_id
1283: from mtl_transactions_interface mti2
1284: where mti.parent_id = mti2.transaction_interface_id)
1285: where transaction_header_id = p_txnHeaderID
1286: and transaction_source_type_id = 5
1287: and process_flag = 1
1298:
1299: -- validate revision for completion/return/scrap
1300: fnd_message.set_name('WIP', 'WIP_BOM_ITEM_REVISION');
1301: l_errMsg := substrb(fnd_message.get, 1, 240);
1302: update mtl_transactions_interface mti
1303: set last_update_date = sysdate,
1304: last_updated_by = fnd_global.user_id,
1305: last_update_login = fnd_global.login_id,
1306: program_application_id = fnd_global.prog_appl_id,
1333: -- **** double-check after merge ********
1334: -- if we explode the BOM and do the merge before calling validation,
1335: -- then we should include flow entities as well. Otherwise, we should do
1336: -- that especially for it alone.
1337: update mtl_transactions_interface mti
1338: set last_update_date = sysdate,
1339: last_updated_by = fnd_global.user_id,
1340: last_update_login = fnd_global.login_id,
1341: program_application_id = fnd_global.prog_appl_id,
1375: by removing the group by clauses
1376: which was causing non mergeable views */
1377: fnd_message.set_name('WIP', 'INV_INT_REVCODE');
1378: l_errMsg := substrb(fnd_message.get, 1, 240);
1379: update mtl_transactions_interface mti
1380: set last_update_date = sysdate,
1381: last_updated_by = fnd_global.user_id,
1382: last_update_login = fnd_global.login_id,
1383: program_application_id = fnd_global.prog_appl_id,
1452: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
1453: fnd_message.set_token('ENTITY1', 'total txn qty-cap');
1454: fnd_message.set_token('ENTITY2', 'qty avail to complete');
1455: l_errMsg := substrb(fnd_message.get, 1, 240);
1456: update mtl_transactions_interface mti
1457: set last_update_date = sysdate,
1458: last_updated_by = fnd_global.user_id,
1459: last_update_login = fnd_global.login_id,
1460: program_application_id = fnd_global.prog_appl_id,
1496: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
1497: fnd_message.set_token('ENTITY1', 'total txn qty-cap');
1498: fnd_message.set_token('ENTITY2', 'job compelete quantity');
1499: l_errMsg := substrb(fnd_message.get, 1, 240);
1500: update mtl_transactions_interface mti
1501: set last_update_date = sysdate,
1502: last_updated_by = fnd_global.user_id,
1503: last_update_login = fnd_global.login_id,
1504: program_application_id = fnd_global.prog_appl_id,
1529: l_poExpToAssetTnsf := 2;
1530: end;
1531: fnd_message.set_name('WIP', 'WIP_NO_ASSET_ITEM_MOVE');
1532: l_errMsg := substrb(fnd_message.get, 1, 240);
1533: update mtl_transactions_interface mti
1534: set last_update_date = sysdate,
1535: last_updated_by = fnd_global.user_id,
1536: last_update_login = fnd_global.login_id,
1537: program_application_id = fnd_global.prog_appl_id,
1569:
1570: -- transaction must occure after job/schedule is released.
1571: fnd_message.set_name('WIP', 'WIP_RELEASE_DATE');
1572: l_errMsg := substrb(fnd_message.get, 1, 240);
1573: update mtl_transactions_interface mti
1574: set last_update_date = sysdate,
1575: last_updated_by = fnd_global.user_id,
1576: last_update_login = fnd_global.login_id,
1577: program_application_id = fnd_global.prog_appl_id,
1605: -- validate sales order demand for completions and returns
1606: -- **** do we need to do that for flow? ****
1607: fnd_message.set_name('WIP', 'WIP_INVALID_SO');
1608: l_errMsg := substrb(fnd_message.get, 1, 240);
1609: update mtl_transactions_interface mti
1610: set last_update_date = sysdate,
1611: last_updated_by = fnd_global.user_id,
1612: last_update_login = fnd_global.login_id,
1613: program_application_id = fnd_global.prog_appl_id,
1642:
1643: -- validate demand so line
1644: fnd_message.set_name('WIP', 'WIP_INVALID_SO_LINE');
1645: l_errMsg := substrb(fnd_message.get, 1, 240);
1646: update mtl_transactions_interface mti
1647: set last_update_date = sysdate,
1648: last_updated_by = fnd_global.user_id,
1649: last_update_login = fnd_global.login_id,
1650: program_application_id = fnd_global.prog_appl_id,
1683:
1684: -- validate demand so shipment number for completions
1685: fnd_message.set_name('WIP', 'WIP_INVALID_SO_SHIPNO_COMP');
1686: l_errMsg := substrb(fnd_message.get, 1, 240);
1687: update mtl_transactions_interface mti
1688: set last_update_date = sysdate,
1689: last_updated_by = fnd_global.user_id,
1690: last_update_login = fnd_global.login_id,
1691: program_application_id = fnd_global.prog_appl_id,
1720:
1721: -- validate demand so shipment number for returns
1722: fnd_message.set_name('WIP', 'WIP_INVALID_SO_SHIPNO_RET');
1723: l_errMsg := substrb(fnd_message.get, 1, 240);
1724: update mtl_transactions_interface mti
1725: set last_update_date = sysdate,
1726: last_updated_by = fnd_global.user_id,
1727: last_update_login = fnd_global.login_id,
1728: program_application_id = fnd_global.prog_appl_id,
1760: -- check that a completion txn does not have both, a kanban card and a sales
1761: -- order attached. Also only a completion txn can have a kanban card attached
1762: fnd_message.set_name('WIP', 'WIP_KB_ILLEGAL_CARD');
1763: l_errMsg := substrb(fnd_message.get, 1, 240);
1764: update mtl_transactions_interface mti
1765: set last_update_date = sysdate,
1766: last_updated_by = fnd_global.user_id,
1767: last_update_login = fnd_global.login_id,
1768: program_application_id = fnd_global.prog_appl_id,
1787: -- check that the completion subinv, locator, inventory_item_id of the
1788: -- completion txn against the kanban card
1789: fnd_message.set_name('WIP', 'WIP_KB_CPL_SUB_LOC_MISMATCH');
1790: l_errMsg := substrb(fnd_message.get, 1, 240);
1791: update mtl_transactions_interface mti
1792: set last_update_date = sysdate,
1793: last_updated_by = fnd_global.user_id,
1794: last_update_login = fnd_global.login_id,
1795: program_application_id = fnd_global.prog_appl_id,
1818: -- validate the kanban card.
1819: -- check the status of the kanban card
1820: fnd_message.set_name('WIP', 'WIP_KB_CPL_STATUS_ILLEGAL');
1821: l_errMsg := substrb(fnd_message.get, 1, 240);
1822: update mtl_transactions_interface mti
1823: set last_update_date = sysdate,
1824: last_updated_by = fnd_global.user_id,
1825: last_update_login = fnd_global.login_id,
1826: program_application_id = fnd_global.prog_appl_id,
1853: -- validate negative requirement flag for rep scheds
1854: -- this is not required for flow
1855: fnd_message.set_name('WIP', 'WIP_INVALID_NEG_REQ_FLAG');
1856: l_errMsg := substrb(fnd_message.get, 1, 240);
1857: update mtl_transactions_interface mti
1858: set last_update_date = sysdate,
1859: last_updated_by = fnd_global.user_id,
1860: last_update_login = fnd_global.login_id,
1861: program_application_id = fnd_global.prog_appl_id,
1882: -- for discrete job, we do not support background transactions for
1883: -- serialized job
1884: fnd_message.set_name('WIP', 'WIP_NO_SERIALIZED_JOB_ALLOW');
1885: l_errMsg := substrb(fnd_message.get, 1, 240);
1886: update mtl_transactions_interface mti
1887: set last_update_date = sysdate,
1888: last_updated_by = fnd_global.user_id,
1889: last_update_login = fnd_global.login_id,
1890: program_application_id = fnd_global.prog_appl_id,
1912:
1913:
1914: --for assy completions and returns, project/task must match
1915: --source project/task
1916: update mtl_transactions_interface mti
1917: set last_update_date = sysdate,
1918: last_updated_by = fnd_global.user_id,
1919: last_update_login = fnd_global.login_id,
1920: program_application_id = fnd_global.prog_appl_id,
1997: p_procReturnStatus => x_returnStatus,
1998: p_msg => 'unexpected error: ' || SQLERRM,
1999: x_returnStatus => l_returnStatus); --discard logging return status
2000: end if;
2001: update mtl_transactions_interface
2002: set last_update_date = sysdate,
2003: last_updated_by = fnd_global.user_id,
2004: last_update_login = fnd_global.login_id,
2005: program_application_id = fnd_global.prog_appl_id,
2020: p_errCode in varchar2,
2021: p_msgData in varchar2) is
2022:
2023: begin
2024: update mtl_transactions_interface
2025: set last_update_date = sysdate,
2026: last_updated_by = fnd_global.user_id,
2027: last_update_login = fnd_global.login_id,
2028: program_application_id = fnd_global.prog_appl_id,
2065: nvl(loc_segment9, nvl(loc_segment10, nvl(loc_segment11, nvl(loc_segment12,
2066: nvl(loc_segment13, nvl(loc_segment14, nvl(loc_segment15, nvl(loc_segment16,
2067: nvl(loc_segment17, nvl(loc_segment18, nvl(loc_segment19, loc_segment20)))))))))))))))))))
2068: */
2069: from mtl_transactions_interface
2070: where transaction_header_id = p_txnHeaderID
2071: and transaction_source_type_id = 5
2072: and process_flag = wip_constants.mti_inventory
2073: and ( inventory_item_id is null
2110:
2111: -- derive transaction action id and transaction source type id,
2112: -- we need that for the logic that follows. Even though inv validation does
2113: -- the deriviation, we still needs to do that since we call inv afterwards.
2114: update mtl_transactions_interface mti
2115: set last_update_date = sysdate,
2116: last_updated_by = fnd_global.user_id,
2117: last_update_login = fnd_global.login_id,
2118: program_application_id = fnd_global.prog_appl_id,
2131: and process_flag = 1;
2132:
2133: --make sure the completions have a cpl id and batch id
2134: --make sure overcompletions have a move id and overcpl id.
2135: update mtl_transactions_interface
2136: set completion_transaction_id = nvl(completion_transaction_id, mtl_material_transactions_s.nextval),
2137: transaction_batch_id = nvl(transaction_batch_id, nvl(completion_transaction_id, mtl_material_transactions_s.nextval)),
2138: transaction_batch_seq = nvl(transaction_batch_seq, wip_constants.ASSY_BATCH_SEQ),
2139: overcompletion_transaction_id = nvl(overcompletion_transaction_id, decode(overcompletion_transaction_qty,
2146: and transaction_action_id in (wip_constants.cplassy_action, wip_constants.retassy_action)
2147: and transaction_source_type_id = 5;
2148:
2149: --make sure flow scrap transactions have a cpl id and batch id
2150: update mtl_transactions_interface
2151: set completion_transaction_id = nvl(completion_transaction_id, mtl_material_transactions_s.nextval),
2152: transaction_batch_id = nvl(transaction_batch_id, nvl(completion_transaction_id, mtl_material_transactions_s.nextval)),
2153: transaction_batch_seq = nvl(transaction_batch_seq, wip_constants.ASSY_BATCH_SEQ)
2154: where transaction_header_id = p_txnHeaderID
2161: fnd_message.set_name('INV', 'INV_INT_ORGCODE');
2162: l_errCode := substrb(fnd_message.get, 1, 240);
2163: fnd_message.set_name('INV', 'INV_INT_ORGEXP');
2164: l_errMsg := substrb(fnd_message.get, 1, 240);
2165: update mtl_transactions_interface mti
2166: set last_update_date = sysdate,
2167: last_updated_by = fnd_global.user_id,
2168: last_update_login = fnd_global.login_id,
2169: program_application_id = fnd_global.prog_appl_id,
2185:
2186: --validate scheduled_flag
2187: fnd_message.set_name('WIP', 'WIP_INVALID_FLOW_SCHED_FLAG');
2188: l_errMsg := substrb(fnd_message.get, 1, 240);
2189: update mtl_transactions_interface mti
2190: set last_update_date = sysdate,
2191: last_updated_by = fnd_global.user_id,
2192: last_update_login = fnd_global.login_id,
2193: program_application_id = fnd_global.prog_appl_id,
2212: -- the validation for that if id is provided since id overrides name anyway
2213: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
2214: fnd_message.set_token('ENTITY', 'transaction_source_name');
2215: l_errMsg := substrb(fnd_message.get, 1, 240);
2216: update mtl_transactions_interface mti
2217: set last_update_date = sysdate,
2218: last_updated_by = fnd_global.user_id,
2219: last_update_login = fnd_global.login_id,
2220: program_application_id = fnd_global.prog_appl_id,
2236: and we.wip_entity_name = mti.transaction_source_name);
2237:
2238:
2239: -- derive transaction source id from transaction source name
2240: update mtl_transactions_interface mti
2241: set last_update_date = sysdate,
2242: last_updated_by = fnd_global.user_id,
2243: last_update_login = fnd_global.login_id,
2244: program_application_id = fnd_global.prog_appl_id,
2260: fnd_message.set_name('INV', 'INV_INT_TRXACTCODE');
2261: l_errCode := substrb(fnd_message.get, 1, 240);
2262: fnd_message.set_name('INV', 'INV_INT_TRXACTEXP');
2263: l_errMsg := substrb(fnd_message.get, 1, 240);
2264: update mtl_transactions_interface mti
2265: set last_update_date = sysdate,
2266: last_updated_by = fnd_global.user_id,
2267: last_update_login = fnd_global.login_id,
2268: program_application_id = fnd_global.prog_appl_id,
2284: fnd_message.set_name('INV', 'INV_INT_SRCCODE');
2285: l_errCode := substrb(fnd_message.get, 1, 240);
2286: fnd_message.set_name('INV', 'INV_INT_SRCWIPEXP');
2287: l_errMsg := substrb(fnd_message.get, 1, 240);
2288: update mtl_transactions_interface mti
2289: set last_update_date = sysdate,
2290: last_updated_by = fnd_global.user_id,
2291: last_update_login = fnd_global.login_id,
2292: program_application_id = fnd_global.prog_appl_id,
2322:
2323: fnd_message.set_name('WIP', 'WIP_NO_PARENT_TRANSACTION');
2324: l_errMsg := substrb(fnd_message.get, 1, 240);
2325:
2326: update mtl_transactions_interface mti
2327: set last_update_date = sysdate,
2328: last_updated_by = fnd_global.user_id,
2329: last_update_login = fnd_global.login_id,
2330: program_application_id = fnd_global.prog_appl_id,
2340: and transaction_source_type_id = 5
2341: and transaction_type_id not in (17, 44, 90, 91) -- No Parent transactions
2342: and upper(nvl(flow_schedule, 'N')) = 'Y'
2343: and not exists (select 1
2344: from mtl_transactions_interface mti2
2345: where mti2.transaction_header_id = p_txnHeaderID
2346: and mti2.transaction_source_type_id = 5
2347: and upper(nvl(flow_schedule, 'N')) = 'Y'
2348: and mti2.transaction_interface_id = mti.parent_id
2356:
2357: fnd_message.set_name('WIP', 'WIP_PENDING_CHILD_TRANSACTION');
2358: l_errMsg := substrb(fnd_message.get, 1, 240);
2359:
2360: update mtl_transactions_interface mti
2361: set last_update_date = sysdate,
2362: last_updated_by = fnd_global.user_id,
2363: last_update_login = fnd_global.login_id,
2364: program_application_id = fnd_global.prog_appl_id,
2373: and process_flag = 1
2374: and transaction_source_type_id = 5
2375: and upper(nvl(flow_schedule, 'N')) = 'Y'
2376: and exists (select 1
2377: from mtl_transactions_interface mti2
2378: where mti2.transaction_source_type_id = 5
2379: and upper(nvl(mti2.flow_schedule, 'N')) = 'Y'
2380: and mti2.parent_id = nvl(mti.parent_id,mti.transaction_interface_id)
2381: and mti2.process_flag = 3
2381: and mti2.process_flag = 3
2382: ) ;
2383:
2384: -- derive inventory item id if transaction source id is provided
2385: update mtl_transactions_interface mti
2386: set last_update_date = sysdate,
2387: last_updated_by = fnd_global.user_id,
2388: last_update_login = fnd_global.login_id,
2389: program_application_id = fnd_global.prog_appl_id,
2477: end loop;
2478: --now do a bulk update
2479: forall i in 1..l_orgIDTbl.count
2480: /* FP bug 5708701 (base bug 5046732) - No need update locator id on MTI. It will be done in inventory code.*/
2481: update mtl_transactions_interface mti
2482: set last_update_date = sysdate,
2483: last_updated_by = fnd_global.user_id,
2484: last_update_login = fnd_global.login_id,
2485: program_application_id = fnd_global.prog_appl_id,
2491: where rowid = chartorowid(l_rowidTbl(i));
2492:
2493: /* FP bug 5708701 (base bug 5046732) No need update project id/task id on MTI. It will be done in inventory code.
2494: --update the project/task based on the derived locator
2495: update mtl_transactions_interface mti
2496: set last_update_date = sysdate,
2497: last_updated_by = fnd_global.user_id,
2498: last_update_login = fnd_global.login_id,
2499: program_application_id = fnd_global.prog_appl_id,
2515: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
2516: l_errCode := substrb(fnd_message.get, 1, 240);
2517: fnd_message.set_name('INV', 'INV_INT_ITMEXP');
2518: l_errMsg := substrb(fnd_message.get, 1, 240);
2519: update mtl_transactions_interface mti
2520: set last_update_date = sysdate,
2521: last_updated_by = fnd_global.user_id,
2522: last_update_login = fnd_global.login_id,
2523: program_application_id = fnd_global.prog_appl_id,
2538: and msi.inventory_item_flag = 'Y');
2539:
2540:
2541: -- derive wip_entity_type if transaction source id is provided
2542: update mtl_transactions_interface mti
2543: set last_update_date = sysdate,
2544: last_updated_by = fnd_global.user_id,
2545: last_update_login = fnd_global.login_id,
2546: program_application_id = fnd_global.prog_appl_id,
2556: and process_flag = 1
2557: and transaction_source_id is not null;
2558:
2559: --derive the source project id/task id for jobs
2560: update mtl_transactions_interface mti
2561: set last_update_date = sysdate,
2562: last_updated_by = fnd_global.user_id,
2563: last_update_login = fnd_global.login_id,
2564: program_application_id = fnd_global.prog_appl_id,
2578: wip_constants.lotbased,
2579: wip_constants.eam);
2580:
2581: --derive the source project id/task id for flow schedules
2582: update mtl_transactions_interface mti
2583: set last_update_date = sysdate,
2584: last_updated_by = fnd_global.user_id,
2585: last_update_login = fnd_global.login_id,
2586: program_application_id = fnd_global.prog_appl_id,
2604: -- make sure that flow_schedule flag is 'N' or NULL for job/repetitive and
2605: -- is Y for flow schedules
2606: fnd_message.set_name('WIP', 'WIP_FLOW_FLAG_ERROR');
2607: l_errMsg := substrb(fnd_message.get, 1, 240);
2608: update mtl_transactions_interface mti
2609: set last_update_date = sysdate,
2610: last_updated_by = fnd_global.user_id,
2611: last_update_login = fnd_global.login_id,
2612: program_application_id = fnd_global.prog_appl_id,
2627:
2628: -- for flow schedule, we can't do complete/scrap against a closed schedule
2629: fnd_message.set_name('WIP', 'WIP_NO_CHARGES_ALLOWED');
2630: l_errMsg := substrb(fnd_message.get, 1, 240);
2631: update mtl_transactions_interface mti
2632: set last_update_date = sysdate,
2633: last_updated_by = fnd_global.user_id,
2634: last_update_login = fnd_global.login_id,
2635: program_application_id = fnd_global.prog_appl_id,
2662: exception
2663: when others then
2664: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2665: l_errMsg := substrb(SQLERRM, 1, 240);
2666: update mtl_transactions_interface
2667: set last_update_date = sysdate,
2668: last_updated_by = fnd_global.user_id,
2669: last_update_login = fnd_global.login_id,
2670: program_application_id = fnd_global.prog_appl_id,
2714: end if;
2715: --delete any pre-allocations that occurred for errored records
2716: delete wip_mtl_allocations_temp
2717: where transaction_temp_id in (select transaction_interface_id
2718: from mtl_transactions_interface
2719: where transaction_header_id = p_txnHeaderID
2720: and transaction_batch_id = p_txnBatchID
2721: and process_flag = wip_constants.mti_error);
2722:
2736: l_errExplTbl,
2737: l_itemIDTbl,
2738: l_orgIDTbl,
2739: l_itemNameTbl
2740: from mtl_transactions_interface mti,
2741: mtl_system_items_kfv msik
2742: where mti.transaction_header_id = p_txnHeaderID
2743: and mti.transaction_batch_id = p_txnBatchID
2744: and mti.transaction_action_id in (wip_constants.isscomp_action, wip_constants.retcomp_action,
2751: and mti.inventory_item_id = msik.inventory_item_id
2752: and mti.organization_id = msik.organization_id;
2753:
2754: --delete all errored backflush components
2755: delete mtl_transactions_interface
2756: where transaction_header_id = p_txnHeaderID
2757: and transaction_batch_id = p_txnBatchID
2758: and transaction_action_id in (wip_constants.isscomp_action, wip_constants.retcomp_action,
2759: wip_constants.issnegc_action, wip_constants.retnegc_action)
2767: end if;
2768:
2769: --if any components failed update the parent with the error
2770: forall i in 1..l_errExplTbl.count
2771: update mtl_transactions_interface mti
2772: set last_update_date = sysdate,
2773: last_updated_by = fnd_global.user_id,
2774: last_update_login = fnd_global.login_id,
2775: program_application_id = fnd_global.prog_appl_id,