[Home] [Help]
84: mti.project_id,
85: mti.task_id,
86: mti.reason_id,
87: mti.transaction_reference
88: from mtl_transactions_interface mti,
89: wip_entities we,
90: mtl_system_items msi
91: where mti.transaction_header_id = p_txnHeaderID
92: and mti.transaction_source_type_id = 5
201: wip_logger.log('l_convOverCplPriQty' || l_convOverCplPriQty, l_returnStatus);
202: end if;
203: fnd_message.set_name('INV', 'INV_INT_UOMEXP');
204: l_errExp := fnd_message.get;
205: update mtl_transactions_interface
206: set last_update_date = sysdate,
207: last_updated_by = fnd_global.user_id,
208: last_update_login = fnd_global.login_id,
209: program_application_id = fnd_global.prog_appl_id,
221: (l_tbls.overCplPriQty(i) is null or l_tbls.overCplPriQty(i) <> l_convOverCplPriQty))) then
222: l_tbls.priQty(i) := l_convPriQty;
223: l_tbls.overCplPriQty(i) := l_convOverCplPriQty;
224:
225: update mtl_transactions_interface
226: set last_update_date = sysdate,
227: last_updated_by = fnd_global.user_id,
228: last_update_login = fnd_global.login_id,
229: program_application_id = fnd_global.prog_appl_id,
261: end loop;
262: end if;
263:
264: forall i in 1..l_errTbls.txnIntID.count
265: update mtl_transactions_interface
266: set last_update_date = sysdate,
267: last_updated_by = fnd_global.user_id,
268: last_update_login = fnd_global.login_id,
269: program_application_id = fnd_global.prog_appl_id,
297: rollback to wipmtivb1;
298: l_errExp := substrb(SQLERRM, 1, 240);
299: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
300:
301: update mtl_transactions_interface
302: set last_update_date = sysdate,
303: last_updated_by = fnd_global.user_id,
304: last_update_login = fnd_global.login_id,
305: program_application_id = fnd_global.prog_appl_id,
400: end if;
401:
402: select count(*)
403: into l_count
404: from mtl_transactions_interface
405: where transaction_header_id = p_txnHeaderID
406: and completion_transaction_id = p_tbls.cplTxnID(p_index)
407: and transaction_action_id in (wip_constants.isscomp_action, wip_constants.retcomp_action,
408: wip_constants.issnegc_action, wip_constants.retnegc_action);
510: cursor cpl_c is
511: select organization_id,
512: transaction_source_id,
513: transaction_interface_id
514: from mtl_transactions_interface
515: where transaction_header_id = p_txnHeaderID
516: and process_flag = 1
517: and transaction_source_type_id = 5
518: and transaction_action_id in (WIP_CONSTANTS.SCRASSY_ACTION,
615: source_task_id,
616: nvl(flow_schedule, 'N') flow_schedule,
617: scheduled_flag,
618: transaction_action_id
619: from mtl_transactions_interface
620: where transaction_header_id = p_txnHeaderID
621: and process_flag = 1
622: and transaction_source_type_id = 5
623: and transaction_action_id in (WIP_CONSTANTS.CPLASSY_ACTION,
721: organization_id,
722: inventory_item_id,
723: transaction_quantity,
724: transaction_uom
725: from mtl_transactions_interface
726: where transaction_header_id = p_txnHeaderID
727: and process_flag = 1
728: and transaction_source_type_id = 5
729: and upper(nvl(flow_schedule, 'N')) = 'N'
765: -- check if it is an assembly completion/return for lot based job. If so error out
766: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
767: fnd_message.set_token('ENTITY', 'Transactions');
768: l_errMsg := substrb(fnd_message.get, 1, 240);
769: update mtl_transactions_interface mti
770: set last_update_date = sysdate,
771: last_updated_by = fnd_global.user_id,
772: last_update_login = fnd_global.login_id,
773: program_application_id = fnd_global.prog_appl_id,
787: -- check existence of line for repetitive schedules, job and flow schedule
788: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
789: fnd_message.set_token('ENTITY', 'line');
790: l_errMsg := substrb(fnd_message.get, 1, 240);
791: update mtl_transactions_interface mti
792: set last_update_date = sysdate,
793: last_updated_by = fnd_global.user_id,
794: last_update_login = fnd_global.login_id,
795: program_application_id = fnd_global.prog_appl_id,
817:
818: -- check valid line for assembly
819: fnd_message.set_name('WIP', 'WIP_INVALID_LINE');
820: l_errMsg := substrb(fnd_message.get, 1, 240);
821: update mtl_transactions_interface mti
822: set last_update_date = sysdate,
823: last_updated_by = fnd_global.user_id,
824: last_update_login = fnd_global.login_id,
825: program_application_id = fnd_global.prog_appl_id,
843:
844: -- check that job/schedule, etc. is transactable, flow is checked before
845: fnd_message.set_name('WIP', 'WIP_NO_CHARGES_ALLOWED');
846: l_errMsg := substrb(fnd_message.get, 1, 240);
847: update mtl_transactions_interface mti
848: set last_update_date = sysdate,
849: last_updated_by = fnd_global.user_id,
850: last_update_login = fnd_global.login_id,
851: program_application_id = fnd_global.prog_appl_id,
878: -- check to see if job/flow has an assembly associated with it
879: -- validate this only for completion transactions
880: fnd_message.set_name('WIP', 'WIP_NO_ASSY_NO_TXN');
881: l_errMsg := substrb(fnd_message.get, 1, 240);
882: update mtl_transactions_interface mti
883: set last_update_date = sysdate,
884: last_updated_by = fnd_global.user_id,
885: last_update_login = fnd_global.login_id,
886: program_application_id = fnd_global.prog_appl_id,
909: and wfs.organization_id = mti.organization_id
910: and primary_item_id is null)));
911:
912: -- derive earliest valid schedule
913: update mtl_transactions_interface mti
914: set last_update_date = sysdate,
915: last_updated_by = fnd_global.user_id,
916: last_update_login = fnd_global.login_id,
917: program_application_id = fnd_global.prog_appl_id,
937: and wip_entity_type = 2;
938:
939:
940: -- derive op seq num for completions
941: update mtl_transactions_interface mti
942: set last_update_date = sysdate,
943: last_updated_by = fnd_global.user_id,
944: last_update_login = fnd_global.login_id,
945: program_application_id = fnd_global.prog_appl_id,
960: and transaction_action_id in (WIP_CONSTANTS.CPLASSY_ACTION,
961: WIP_CONSTANTS.RETASSY_ACTION);
962:
963: -- derive op seq num for wip component issue/return
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,
987:
988: -- validate operation seq num
989: fnd_message.set_name('WIP', 'WIP_INVALID_OPERATION');
990: l_errMsg := substrb(fnd_message.get, 1, 240);
991: update mtl_transactions_interface mti
992: set last_update_date = sysdate,
993: last_updated_by = fnd_global.user_id,
994: last_update_login = fnd_global.login_id,
995: program_application_id = fnd_global.prog_appl_id,
1036: exception
1037: when others then
1038: l_engItemFlag := 2; -- default to not an engineering item
1039: end;
1040: update mtl_transactions_interface mti
1041: set last_update_date = sysdate,
1042: last_updated_by = fnd_global.user_id,
1043: last_update_login = fnd_global.login_id,
1044: program_application_id = fnd_global.prog_appl_id,
1090:
1091: -- check for shop floor status
1092: fnd_message.set_name('WIP', 'WIP_STATUS_NO_TXN2');
1093: l_errMsg := substrb(fnd_message.get, 1, 240);
1094: update mtl_transactions_interface mti
1095: set last_update_date = sysdate,
1096: last_updated_by = fnd_global.user_id,
1097: last_update_login = fnd_global.login_id,
1098: program_application_id = fnd_global.prog_appl_id,
1126: -- check for valid final completion flag, this is not required for flow schedules
1127: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
1128: fnd_message.set_token('ENTITY', 'final_completion_flag');
1129: l_errMsg := substrb(fnd_message.get, 1, 240);
1130: update mtl_transactions_interface mti
1131: set last_update_date = sysdate,
1132: last_updated_by = fnd_global.user_id,
1133: last_update_login = fnd_global.login_id,
1134: program_application_id = fnd_global.prog_appl_id,
1147: and upper(nvl(final_completion_flag, 'E')) not in ('Y', 'N');
1148:
1149:
1150: -- derive item revision for completion txns for discrete jobs
1151: update mtl_transactions_interface mti
1152: set last_update_date = sysdate,
1153: last_updated_by = fnd_global.user_id,
1154: last_update_login = fnd_global.login_id,
1155: program_application_id = fnd_global.prog_appl_id,
1173: and msi.revision_qty_control_code = 2);
1174:
1175:
1176: -- derive item revision for completion txns for repetitive
1177: update mtl_transactions_interface mti
1178: set last_update_date = sysdate,
1179: last_updated_by = fnd_global.user_id,
1180: last_update_login = fnd_global.login_id,
1181: program_application_id = fnd_global.prog_appl_id,
1198: and msi.inventory_item_id = mti.inventory_item_id
1199: and msi.revision_qty_control_code = 2);
1200:
1201: -- derive item revision for flow
1202: update mtl_transactions_interface mti
1203: set last_update_date = sysdate,
1204: last_updated_by = fnd_global.user_id,
1205: last_update_login = fnd_global.login_id,
1206: program_application_id = fnd_global.prog_appl_id,
1224: and msi.inventory_item_id = mti.inventory_item_id
1225: and msi.revision_qty_control_code = 2);
1226:
1227: -- derive completion_transaction_id for flow components
1228: update mtl_transactions_interface mti
1229: set last_update_date = sysdate,
1230: last_updated_by = fnd_global.user_id,
1231: last_update_login = fnd_global.login_id,
1232: program_application_id = fnd_global.prog_appl_id,
1233: program_id = fnd_global.conc_program_id,
1234: program_update_date = sysdate,
1235: request_id = fnd_global.conc_request_id,
1236: completion_transaction_id = (select completion_transaction_id
1237: from mtl_transactions_interface mti2
1238: where mti.parent_id = mti2.transaction_interface_id)
1239: where transaction_header_id = p_txnHeaderID
1240: and transaction_source_type_id = 5
1241: and process_flag = 1
1252:
1253: -- validate revision for completion/return/scrap
1254: fnd_message.set_name('WIP', 'WIP_BOM_ITEM_REVISION');
1255: l_errMsg := substrb(fnd_message.get, 1, 240);
1256: update mtl_transactions_interface mti
1257: set last_update_date = sysdate,
1258: last_updated_by = fnd_global.user_id,
1259: last_update_login = fnd_global.login_id,
1260: program_application_id = fnd_global.prog_appl_id,
1287: -- **** double-check after merge ********
1288: -- if we explode the BOM and do the merge before calling validation,
1289: -- then we should include flow entities as well. Otherwise, we should do
1290: -- that especially for it alone.
1291: update mtl_transactions_interface mti
1292: set last_update_date = sysdate,
1293: last_updated_by = fnd_global.user_id,
1294: last_update_login = fnd_global.login_id,
1295: program_application_id = fnd_global.prog_appl_id,
1329: by removing the group by clauses
1330: which was causing non mergeable views */
1331: fnd_message.set_name('WIP', 'INV_INT_REVCODE');
1332: l_errMsg := substrb(fnd_message.get, 1, 240);
1333: update mtl_transactions_interface mti
1334: set last_update_date = sysdate,
1335: last_updated_by = fnd_global.user_id,
1336: last_update_login = fnd_global.login_id,
1337: program_application_id = fnd_global.prog_appl_id,
1406: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
1407: fnd_message.set_token('ENTITY1', 'total txn qty-cap');
1408: fnd_message.set_token('ENTITY2', 'qty avail to complete');
1409: l_errMsg := substrb(fnd_message.get, 1, 240);
1410: update mtl_transactions_interface mti
1411: set last_update_date = sysdate,
1412: last_updated_by = fnd_global.user_id,
1413: last_update_login = fnd_global.login_id,
1414: program_application_id = fnd_global.prog_appl_id,
1450: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
1451: fnd_message.set_token('ENTITY1', 'total txn qty-cap');
1452: fnd_message.set_token('ENTITY2', 'job compelete quantity');
1453: l_errMsg := substrb(fnd_message.get, 1, 240);
1454: update mtl_transactions_interface mti
1455: set last_update_date = sysdate,
1456: last_updated_by = fnd_global.user_id,
1457: last_update_login = fnd_global.login_id,
1458: program_application_id = fnd_global.prog_appl_id,
1483: l_poExpToAssetTnsf := 2;
1484: end;
1485: fnd_message.set_name('WIP', 'WIP_NO_ASSET_ITEM_MOVE');
1486: l_errMsg := substrb(fnd_message.get, 1, 240);
1487: update mtl_transactions_interface mti
1488: set last_update_date = sysdate,
1489: last_updated_by = fnd_global.user_id,
1490: last_update_login = fnd_global.login_id,
1491: program_application_id = fnd_global.prog_appl_id,
1523:
1524: -- transaction must occure after job/schedule is released.
1525: fnd_message.set_name('WIP', 'WIP_RELEASE_DATE');
1526: l_errMsg := substrb(fnd_message.get, 1, 240);
1527: update mtl_transactions_interface mti
1528: set last_update_date = sysdate,
1529: last_updated_by = fnd_global.user_id,
1530: last_update_login = fnd_global.login_id,
1531: program_application_id = fnd_global.prog_appl_id,
1559: -- validate sales order demand for completions and returns
1560: -- **** do we need to do that for flow? ****
1561: fnd_message.set_name('WIP', 'WIP_INVALID_SO');
1562: l_errMsg := substrb(fnd_message.get, 1, 240);
1563: update mtl_transactions_interface mti
1564: set last_update_date = sysdate,
1565: last_updated_by = fnd_global.user_id,
1566: last_update_login = fnd_global.login_id,
1567: program_application_id = fnd_global.prog_appl_id,
1596:
1597: -- validate demand so line
1598: fnd_message.set_name('WIP', 'WIP_INVALID_SO_LINE');
1599: l_errMsg := substrb(fnd_message.get, 1, 240);
1600: update mtl_transactions_interface mti
1601: set last_update_date = sysdate,
1602: last_updated_by = fnd_global.user_id,
1603: last_update_login = fnd_global.login_id,
1604: program_application_id = fnd_global.prog_appl_id,
1637:
1638: -- validate demand so shipment number for completions
1639: fnd_message.set_name('WIP', 'WIP_INVALID_SO_SHIPNO_COMP');
1640: l_errMsg := substrb(fnd_message.get, 1, 240);
1641: update mtl_transactions_interface mti
1642: set last_update_date = sysdate,
1643: last_updated_by = fnd_global.user_id,
1644: last_update_login = fnd_global.login_id,
1645: program_application_id = fnd_global.prog_appl_id,
1674:
1675: -- validate demand so shipment number for returns
1676: fnd_message.set_name('WIP', 'WIP_INVALID_SO_SHIPNO_RET');
1677: l_errMsg := substrb(fnd_message.get, 1, 240);
1678: update mtl_transactions_interface mti
1679: set last_update_date = sysdate,
1680: last_updated_by = fnd_global.user_id,
1681: last_update_login = fnd_global.login_id,
1682: program_application_id = fnd_global.prog_appl_id,
1714: -- check that a completion txn does not have both, a kanban card and a sales
1715: -- order attached. Also only a completion txn can have a kanban card attached
1716: fnd_message.set_name('WIP', 'WIP_KB_ILLEGAL_CARD');
1717: l_errMsg := substrb(fnd_message.get, 1, 240);
1718: update mtl_transactions_interface mti
1719: set last_update_date = sysdate,
1720: last_updated_by = fnd_global.user_id,
1721: last_update_login = fnd_global.login_id,
1722: program_application_id = fnd_global.prog_appl_id,
1741: -- check that the completion subinv, locator, inventory_item_id of the
1742: -- completion txn against the kanban card
1743: fnd_message.set_name('WIP', 'WIP_KB_CPL_SUB_LOC_MISMATCH');
1744: l_errMsg := substrb(fnd_message.get, 1, 240);
1745: update mtl_transactions_interface mti
1746: set last_update_date = sysdate,
1747: last_updated_by = fnd_global.user_id,
1748: last_update_login = fnd_global.login_id,
1749: program_application_id = fnd_global.prog_appl_id,
1772: -- validate the kanban card.
1773: -- check the status of the kanban card
1774: fnd_message.set_name('WIP', 'WIP_KB_CPL_STATUS_ILLEGAL');
1775: l_errMsg := substrb(fnd_message.get, 1, 240);
1776: update mtl_transactions_interface mti
1777: set last_update_date = sysdate,
1778: last_updated_by = fnd_global.user_id,
1779: last_update_login = fnd_global.login_id,
1780: program_application_id = fnd_global.prog_appl_id,
1807: -- validate negative requirement flag for rep scheds
1808: -- this is not required for flow
1809: fnd_message.set_name('WIP', 'WIP_INVALID_NEG_REQ_FLAG');
1810: l_errMsg := substrb(fnd_message.get, 1, 240);
1811: update mtl_transactions_interface mti
1812: set last_update_date = sysdate,
1813: last_updated_by = fnd_global.user_id,
1814: last_update_login = fnd_global.login_id,
1815: program_application_id = fnd_global.prog_appl_id,
1836: -- for discrete job, we do not support background transactions for
1837: -- serialized job
1838: fnd_message.set_name('WIP', 'WIP_NO_SERIALIZED_JOB_ALLOW');
1839: l_errMsg := substrb(fnd_message.get, 1, 240);
1840: update mtl_transactions_interface mti
1841: set last_update_date = sysdate,
1842: last_updated_by = fnd_global.user_id,
1843: last_update_login = fnd_global.login_id,
1844: program_application_id = fnd_global.prog_appl_id,
1866:
1867:
1868: --for assy completions and returns, project/task must match
1869: --source project/task
1870: update mtl_transactions_interface mti
1871: set last_update_date = sysdate,
1872: last_updated_by = fnd_global.user_id,
1873: last_update_login = fnd_global.login_id,
1874: program_application_id = fnd_global.prog_appl_id,
1948: p_procReturnStatus => x_returnStatus,
1949: p_msg => 'unexpected error: ' || SQLERRM,
1950: x_returnStatus => l_returnStatus); --discard logging return status
1951: end if;
1952: update mtl_transactions_interface
1953: set last_update_date = sysdate,
1954: last_updated_by = fnd_global.user_id,
1955: last_update_login = fnd_global.login_id,
1956: program_application_id = fnd_global.prog_appl_id,
1971: p_errCode in varchar2,
1972: p_msgData in varchar2) is
1973:
1974: begin
1975: update mtl_transactions_interface
1976: set last_update_date = sysdate,
1977: last_updated_by = fnd_global.user_id,
1978: last_update_login = fnd_global.login_id,
1979: program_application_id = fnd_global.prog_appl_id,
2016: nvl(loc_segment9, nvl(loc_segment10, nvl(loc_segment11, nvl(loc_segment12,
2017: nvl(loc_segment13, nvl(loc_segment14, nvl(loc_segment15, nvl(loc_segment16,
2018: nvl(loc_segment17, nvl(loc_segment18, nvl(loc_segment19, loc_segment20)))))))))))))))))))
2019: */
2020: from mtl_transactions_interface
2021: where transaction_header_id = p_txnHeaderID
2022: and transaction_source_type_id = 5
2023: and process_flag = wip_constants.mti_inventory
2024: and ( inventory_item_id is null
2061:
2062: -- derive transaction action id and transaction source type id,
2063: -- we need that for the logic that follows. Even though inv validation does
2064: -- the deriviation, we still needs to do that since we call inv afterwards.
2065: update mtl_transactions_interface mti
2066: set last_update_date = sysdate,
2067: last_updated_by = fnd_global.user_id,
2068: last_update_login = fnd_global.login_id,
2069: program_application_id = fnd_global.prog_appl_id,
2082: and process_flag = 1;
2083:
2084: --make sure the completions have a cpl id and batch id
2085: --make sure overcompletions have a move id and overcpl id.
2086: update mtl_transactions_interface
2087: set completion_transaction_id = nvl(completion_transaction_id, mtl_material_transactions_s.nextval),
2088: transaction_batch_id = nvl(transaction_batch_id, nvl(completion_transaction_id, mtl_material_transactions_s.nextval)),
2089: transaction_batch_seq = nvl(transaction_batch_seq, wip_constants.ASSY_BATCH_SEQ),
2090: overcompletion_transaction_id = nvl(overcompletion_transaction_id, decode(overcompletion_transaction_qty,
2097: and transaction_action_id in (wip_constants.cplassy_action, wip_constants.retassy_action)
2098: and transaction_source_type_id = 5;
2099:
2100: --make sure flow scrap transactions have a cpl id and batch id
2101: update mtl_transactions_interface
2102: set completion_transaction_id = nvl(completion_transaction_id, mtl_material_transactions_s.nextval),
2103: transaction_batch_id = nvl(transaction_batch_id, nvl(completion_transaction_id, mtl_material_transactions_s.nextval)),
2104: transaction_batch_seq = nvl(transaction_batch_seq, wip_constants.ASSY_BATCH_SEQ)
2105: where transaction_header_id = p_txnHeaderID
2112: fnd_message.set_name('INV', 'INV_INT_ORGCODE');
2113: l_errCode := substrb(fnd_message.get, 1, 240);
2114: fnd_message.set_name('INV', 'INV_INT_ORGEXP');
2115: l_errMsg := substrb(fnd_message.get, 1, 240);
2116: update mtl_transactions_interface mti
2117: set last_update_date = sysdate,
2118: last_updated_by = fnd_global.user_id,
2119: last_update_login = fnd_global.login_id,
2120: program_application_id = fnd_global.prog_appl_id,
2136:
2137: --validate scheduled_flag
2138: fnd_message.set_name('WIP', 'WIP_INVALID_FLOW_SCHED_FLAG');
2139: l_errMsg := substrb(fnd_message.get, 1, 240);
2140: update mtl_transactions_interface mti
2141: set last_update_date = sysdate,
2142: last_updated_by = fnd_global.user_id,
2143: last_update_login = fnd_global.login_id,
2144: program_application_id = fnd_global.prog_appl_id,
2163: -- the validation for that if id is provided since id overrides name anyway
2164: fnd_message.set_name('WIP', 'WIP_NOT_VALID');
2165: fnd_message.set_token('ENTITY', 'transaction_source_name');
2166: l_errMsg := substrb(fnd_message.get, 1, 240);
2167: update mtl_transactions_interface mti
2168: set last_update_date = sysdate,
2169: last_updated_by = fnd_global.user_id,
2170: last_update_login = fnd_global.login_id,
2171: program_application_id = fnd_global.prog_appl_id,
2187: and we.wip_entity_name = mti.transaction_source_name);
2188:
2189:
2190: -- derive transaction source id from transaction source name
2191: update mtl_transactions_interface mti
2192: set last_update_date = sysdate,
2193: last_updated_by = fnd_global.user_id,
2194: last_update_login = fnd_global.login_id,
2195: program_application_id = fnd_global.prog_appl_id,
2211: fnd_message.set_name('INV', 'INV_INT_TRXACTCODE');
2212: l_errCode := substrb(fnd_message.get, 1, 240);
2213: fnd_message.set_name('INV', 'INV_INT_TRXACTEXP');
2214: l_errMsg := substrb(fnd_message.get, 1, 240);
2215: update mtl_transactions_interface mti
2216: set last_update_date = sysdate,
2217: last_updated_by = fnd_global.user_id,
2218: last_update_login = fnd_global.login_id,
2219: program_application_id = fnd_global.prog_appl_id,
2235: fnd_message.set_name('INV', 'INV_INT_SRCCODE');
2236: l_errCode := substrb(fnd_message.get, 1, 240);
2237: fnd_message.set_name('INV', 'INV_INT_SRCWIPEXP');
2238: l_errMsg := substrb(fnd_message.get, 1, 240);
2239: update mtl_transactions_interface mti
2240: set last_update_date = sysdate,
2241: last_updated_by = fnd_global.user_id,
2242: last_update_login = fnd_global.login_id,
2243: program_application_id = fnd_global.prog_appl_id,
2273:
2274: fnd_message.set_name('WIP', 'WIP_NO_PARENT_TRANSACTION');
2275: l_errMsg := substrb(fnd_message.get, 1, 240);
2276:
2277: update mtl_transactions_interface mti
2278: set last_update_date = sysdate,
2279: last_updated_by = fnd_global.user_id,
2280: last_update_login = fnd_global.login_id,
2281: program_application_id = fnd_global.prog_appl_id,
2291: and transaction_source_type_id = 5
2292: and transaction_type_id not in (17, 44, 90, 91) -- No Parent transactions
2293: and upper(nvl(flow_schedule, 'N')) = 'Y'
2294: and not exists (select 1
2295: from mtl_transactions_interface mti2
2296: where mti2.transaction_header_id = p_txnHeaderID
2297: and mti2.transaction_source_type_id = 5
2298: and upper(nvl(flow_schedule, 'N')) = 'Y'
2299: and mti2.transaction_interface_id = mti.parent_id
2307:
2308: fnd_message.set_name('WIP', 'WIP_PENDING_CHILD_TRANSACTION');
2309: l_errMsg := substrb(fnd_message.get, 1, 240);
2310:
2311: update mtl_transactions_interface mti
2312: set last_update_date = sysdate,
2313: last_updated_by = fnd_global.user_id,
2314: last_update_login = fnd_global.login_id,
2315: program_application_id = fnd_global.prog_appl_id,
2324: and process_flag = 1
2325: and transaction_source_type_id = 5
2326: and upper(nvl(flow_schedule, 'N')) = 'Y'
2327: and exists (select 1
2328: from mtl_transactions_interface mti2
2329: where mti2.transaction_source_type_id = 5
2330: and upper(nvl(mti2.flow_schedule, 'N')) = 'Y'
2331: and mti2.parent_id = nvl(mti.parent_id,mti.transaction_interface_id)
2332: and mti2.process_flag = 3
2332: and mti2.process_flag = 3
2333: ) ;
2334:
2335: -- derive inventory item id if transaction source id is provided
2336: update mtl_transactions_interface mti
2337: set last_update_date = sysdate,
2338: last_updated_by = fnd_global.user_id,
2339: last_update_login = fnd_global.login_id,
2340: program_application_id = fnd_global.prog_appl_id,
2428: end loop;
2429: --now do a bulk update
2430: forall i in 1..l_orgIDTbl.count
2431: /* FP bug 5708701 (base bug 5046732) - No need update locator id on MTI. It will be done in inventory code.*/
2432: update mtl_transactions_interface mti
2433: set last_update_date = sysdate,
2434: last_updated_by = fnd_global.user_id,
2435: last_update_login = fnd_global.login_id,
2436: program_application_id = fnd_global.prog_appl_id,
2442: where rowid = chartorowid(l_rowidTbl(i));
2443:
2444: /* FP bug 5708701 (base bug 5046732) No need update project id/task id on MTI. It will be done in inventory code.
2445: --update the project/task based on the derived locator
2446: update mtl_transactions_interface mti
2447: set last_update_date = sysdate,
2448: last_updated_by = fnd_global.user_id,
2449: last_update_login = fnd_global.login_id,
2450: program_application_id = fnd_global.prog_appl_id,
2466: fnd_message.set_name('INV', 'INV_INT_ITMCODE');
2467: l_errCode := substrb(fnd_message.get, 1, 240);
2468: fnd_message.set_name('INV', 'INV_INT_ITMEXP');
2469: l_errMsg := substrb(fnd_message.get, 1, 240);
2470: update mtl_transactions_interface mti
2471: set last_update_date = sysdate,
2472: last_updated_by = fnd_global.user_id,
2473: last_update_login = fnd_global.login_id,
2474: program_application_id = fnd_global.prog_appl_id,
2489: and msi.inventory_item_flag = 'Y');
2490:
2491:
2492: -- derive wip_entity_type if transaction source id is provided
2493: update mtl_transactions_interface mti
2494: set last_update_date = sysdate,
2495: last_updated_by = fnd_global.user_id,
2496: last_update_login = fnd_global.login_id,
2497: program_application_id = fnd_global.prog_appl_id,
2507: and process_flag = 1
2508: and transaction_source_id is not null;
2509:
2510: --derive the source project id/task id for jobs
2511: update mtl_transactions_interface mti
2512: set last_update_date = sysdate,
2513: last_updated_by = fnd_global.user_id,
2514: last_update_login = fnd_global.login_id,
2515: program_application_id = fnd_global.prog_appl_id,
2529: wip_constants.lotbased,
2530: wip_constants.eam);
2531:
2532: --derive the source project id/task id for flow schedules
2533: update mtl_transactions_interface mti
2534: set last_update_date = sysdate,
2535: last_updated_by = fnd_global.user_id,
2536: last_update_login = fnd_global.login_id,
2537: program_application_id = fnd_global.prog_appl_id,
2555: -- make sure that flow_schedule flag is 'N' or NULL for job/repetitive and
2556: -- is Y for flow schedules
2557: fnd_message.set_name('WIP', 'WIP_FLOW_FLAG_ERROR');
2558: l_errMsg := substrb(fnd_message.get, 1, 240);
2559: update mtl_transactions_interface mti
2560: set last_update_date = sysdate,
2561: last_updated_by = fnd_global.user_id,
2562: last_update_login = fnd_global.login_id,
2563: program_application_id = fnd_global.prog_appl_id,
2578:
2579: -- for flow schedule, we can't do complete/scrap against a closed schedule
2580: fnd_message.set_name('WIP', 'WIP_NO_CHARGES_ALLOWED');
2581: l_errMsg := substrb(fnd_message.get, 1, 240);
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,
2613: exception
2614: when others then
2615: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2616: l_errMsg := substrb(SQLERRM, 1, 240);
2617: update mtl_transactions_interface
2618: set last_update_date = sysdate,
2619: last_updated_by = fnd_global.user_id,
2620: last_update_login = fnd_global.login_id,
2621: program_application_id = fnd_global.prog_appl_id,
2665: end if;
2666: --delete any pre-allocations that occurred for errored records
2667: delete wip_mtl_allocations_temp
2668: where transaction_temp_id in (select transaction_interface_id
2669: from mtl_transactions_interface
2670: where transaction_header_id = p_txnHeaderID
2671: and transaction_batch_id = p_txnBatchID
2672: and process_flag = wip_constants.mti_error);
2673:
2687: l_errExplTbl,
2688: l_itemIDTbl,
2689: l_orgIDTbl,
2690: l_itemNameTbl
2691: from mtl_transactions_interface mti,
2692: mtl_system_items_kfv msik
2693: where mti.transaction_header_id = p_txnHeaderID
2694: and mti.transaction_batch_id = p_txnBatchID
2695: and mti.transaction_action_id in (wip_constants.isscomp_action, wip_constants.retcomp_action,
2702: and mti.inventory_item_id = msik.inventory_item_id
2703: and mti.organization_id = msik.organization_id;
2704:
2705: --delete all errored backflush components
2706: delete mtl_transactions_interface
2707: where transaction_header_id = p_txnHeaderID
2708: and transaction_batch_id = p_txnBatchID
2709: and transaction_action_id in (wip_constants.isscomp_action, wip_constants.retcomp_action,
2710: wip_constants.issnegc_action, wip_constants.retnegc_action)
2718: end if;
2719:
2720: --if any components failed update the parent with the error
2721: forall i in 1..l_errExplTbl.count
2722: update mtl_transactions_interface mti
2723: set last_update_date = sysdate,
2724: last_updated_by = fnd_global.user_id,
2725: last_update_login = fnd_global.login_id,
2726: program_application_id = fnd_global.prog_appl_id,