[Home] [Help]
126: l_curItem system.wip_component_obj_t;
127: l_treeID NUMBER;
128: l_prevItem NUMBER := -1;
129: l_lotTbl system.wip_txn_lot_tbl_t;
130: l_params wip_logger.param_tbl_t;
131: l_errMsg VARCHAR2(80);
132: l_entryType NUMBER;
133: l_logLevel NUMBER := to_number(fnd_log.g_current_runtime_level);
134: begin
137: l_params(1).paramName := 'p_orgID';
138: l_params(1).paramValue := p_orgID;
139: l_params(2).paramName := 'p_wipEntityID';
140: l_params(2).paramValue := p_wipEntityID;
141: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.deriveLots',
142: p_params => l_params,
143: x_returnStatus => x_returnStatus);
144: end if;
145:
210: l_treeID := null;
211: end if;
212:
213: if (l_logLevel <= wip_constants.trace_logging) then
214: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLots',
215: p_procReturnStatus => x_returnStatus,
216: p_msg => 'procedure success',
217: x_returnStatus => l_returnStatus); --discard logging return status
218: end if;
216: p_msg => 'procedure success',
217: x_returnStatus => l_returnStatus); --discard logging return status
218: end if;
219: if(fnd_api.to_boolean(p_endDebug)) then
220: wip_logger.cleanup(x_returnStatus => l_returnStatus);
221: end if;
222: exception
223: when fnd_api.g_exc_unexpected_error then
224: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
222: exception
223: when fnd_api.g_exc_unexpected_error then
224: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
225: if (l_logLevel <= wip_constants.trace_logging) then
226: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLots',
227: p_procReturnStatus => x_returnStatus,
228: p_msg => l_errMsg,
229: x_returnStatus => l_returnStatus); --discard logging return status
230: end if;
228: p_msg => l_errMsg,
229: x_returnStatus => l_returnStatus); --discard logging return status
230: end if;
231: if(fnd_api.to_boolean(p_endDebug)) then
232: wip_logger.cleanup(x_returnStatus => l_returnStatus);
233: end if;
234: when others then
235: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
236: if (l_logLevel <= wip_constants.trace_logging) then
233: end if;
234: when others then
235: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
236: if (l_logLevel <= wip_constants.trace_logging) then
237: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLots',
238: p_procReturnStatus => x_returnStatus,
239: p_msg => 'unexpected error:' || SQLERRM,
240: x_returnStatus => l_returnStatus); --discard logging return status
241: end if;
242: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
243: p_procedure_name => 'deriveLots',
244: p_error_text => SQLERRM);
245: if(fnd_api.to_boolean(p_endDebug)) then
246: wip_logger.cleanup(x_returnStatus => l_returnStatus);
247: end if;
248: end deriveLots;
249: /*
250: procedure deriveLotsFromMMTT(p_orgID IN NUMBER,
263: l_lotReturnStatus VARCHAR2(1);
264: l_serialReturnStatus VARCHAR2(1);
265: l_tempReturnStatus VARCHAR2(1);
266: l_errMsg VARCHAR2(80);
267: l_params wip_logger.param_tbl_t;
268: l_returnStatus VARCHAR2(1);
269: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
270: cursor c_cplItems return itemInfo_rec_t is
271: select mmtt.transaction_temp_id,
364: l_params(3).paramName := 'p_orgID';
365: l_params(3).paramValue := p_orgID;
366: l_params(4).paramName := 'p_wipEntityID';
367: l_params(4).paramValue := p_wipEntityID;
368: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMMTT',
369: p_params => l_params,
370: x_returnStatus => x_returnStatus);
371: end if;
372:
396: end if;
397: end if;
398:
399: if (l_logLevel <= wip_constants.full_logging) then
400: wip_logger.log('priQty:' || l_itemRec.priQty || '; lot quantity:' || l_itemRec.lotPriQty, l_returnStatus);
401: end if;
402: if(abs(l_itemRec.priQty) > nvl(l_itemRec.lotPriQty, 0)) then
403: if (l_logLevel <= wip_constants.full_logging) then
404: wip_logger.log('at item ' || l_itemRec.itemName,l_returnStatus);
400: wip_logger.log('priQty:' || l_itemRec.priQty || '; lot quantity:' || l_itemRec.lotPriQty, l_returnStatus);
401: end if;
402: if(abs(l_itemRec.priQty) > nvl(l_itemRec.lotPriQty, 0)) then
403: if (l_logLevel <= wip_constants.full_logging) then
404: wip_logger.log('at item ' || l_itemRec.itemName,l_returnStatus);
405: end if;
406: if(l_itemRec.lotControlCode = wip_constants.lot) then
407: if (l_logLevel <= wip_constants.full_logging) then
408: wip_logger.log('adding item ' || l_itemRec.itemName || ';' || l_itemRec.itemID, l_returnStatus);
404: wip_logger.log('at item ' || l_itemRec.itemName,l_returnStatus);
405: end if;
406: if(l_itemRec.lotControlCode = wip_constants.lot) then
407: if (l_logLevel <= wip_constants.full_logging) then
408: wip_logger.log('adding item ' || l_itemRec.itemName || ';' || l_itemRec.itemID, l_returnStatus);
409: end if;
410: l_compObj.addItem(p_opSeqNum => l_itemRec.opSeqNum,
411: p_itemID => l_itemRec.itemID,
412: p_itemName => l_itemRec.itemName,
485: end if;
486: end if;
487:
488: if (l_logLevel <= wip_constants.full_logging) then
489: wip_logger.log('start outer loop for item' || l_itemRec.itemID, l_returnStatus);
490: end if;
491:
492: if(l_itemRec.lotControlCode <> wip_constants.lot) then
493: goto START_OF_OUTER_LOOP; --skip this item if it's not lot controlled
494: end if;
495:
496: loop
497: if (l_logLevel <= wip_constants.full_logging) then
498: wip_logger.log('start inner loop1',l_returnStatus);
499: end if;
500: if(l_compObj.setNextItem) then
501: if(not l_compObj.getCurrentItem(l_item)) then
502: l_errMsg := 'object error';
502: l_errMsg := 'object error';
503: raise fnd_api.g_exc_unexpected_error;
504: end if;
505: if (l_logLevel <= wip_constants.full_logging) then
506: wip_logger.log('found item: ' || l_item.inventory_item_id, l_returnStatus);
507: end if;
508:
509: if(l_item.inventory_item_id = l_itemRec.itemID and
510: l_item.supply_subinventory = l_itemRec.supplySubinv and
511: nvl(l_item.supply_locator_id, -1) = nvl(l_itemRec.supplyLocID, -1) and
512: l_item.operation_seq_num = l_itemRec.opSeqNum and
513: l_item.primary_quantity = l_itemRec.priQty) then
514: if (l_logLevel <= wip_constants.full_logging) then
515: wip_logger.log('item: ' || l_item.inventory_item_id || ' matches cursor item', l_returnStatus);
516: end if;
517: exit; --found an item to match the cursor
518: end if;
519: else
517: exit; --found an item to match the cursor
518: end if;
519: else
520: if (l_logLevel <= wip_constants.full_logging) then
521: wip_logger.log('ran out of items', l_returnStatus);
522: end if;
523: goto END_OF_OUTER_LOOP; --must exit inner and outer loop!
524: end if;
525: end loop;
526:
527:
528: while(l_compObj.getNextLot(l_lot)) loop
529: if (l_logLevel <= wip_constants.full_logging) then
530: wip_logger.log('start inner loop2', l_returnStatus);
531: end if;
532: insert into mtl_transaction_lots_temp
533: (transaction_temp_id,
534: last_update_date,
559: abs(round(l_lot.primary_quantity, wip_constants.inv_max_precision)),
560: l_lot.lot_number);
561: end loop;
562: if (l_logLevel <= wip_constants.full_logging) then
563: wip_logger.log('end outer loop', l_returnStatus);
564: end if;
565: end loop;
566: <
567: if(c_cplItems%ISOPEN) then
571: end if;
572:
573: --return status has already been set at this point
574: if (l_logLevel <= wip_constants.trace_logging) then
575: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMMTT',
576: p_procReturnStatus => x_returnStatus,
577: p_msg => 'procedure success',
578: x_returnStatus => l_returnStatus); --discard logging return status
579: end if;
577: p_msg => 'procedure success',
578: x_returnStatus => l_returnStatus); --discard logging return status
579: end if;
580: if(fnd_api.to_boolean(p_endDebug)) then
581: wip_logger.cleanup(x_returnStatus => l_returnStatus);
582: end if;
583: exception
584: when fnd_api.g_exc_unexpected_error then
585: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
584: when fnd_api.g_exc_unexpected_error then
585: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
586: rollback to wiplotpb_10;
587: if (l_logLevel <= wip_constants.trace_logging) then
588: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMMTT',
589: p_procReturnStatus => x_returnStatus,
590: p_msg => l_errMsg,
591: x_returnStatus => l_returnStatus); --discard logging return status
592: end if;
590: p_msg => l_errMsg,
591: x_returnStatus => l_returnStatus); --discard logging return status
592: end if;
593: if(fnd_api.to_boolean(p_endDebug)) then
594: wip_logger.cleanup(x_returnStatus => l_returnStatus);
595: end if;
596: when others then
597: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
598: rollback to wiplotpb_10;
599: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
600: p_procedure_name => 'deriveLotsFromMMTT',
601: p_error_text => SQLERRM);
602: if (l_logLevel <= wip_constants.trace_logging) then
603: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMMTT',
604: p_procReturnStatus => x_returnStatus,
605: p_msg => 'unexpected error:' || SQLERRM,
606: x_returnStatus => l_returnStatus); --discard logging return status
607: end if;
605: p_msg => 'unexpected error:' || SQLERRM,
606: x_returnStatus => l_returnStatus); --discard logging return status
607: end if;
608: if(fnd_api.to_boolean(p_endDebug)) then
609: wip_logger.cleanup(x_returnStatus => l_returnStatus);
610: end if;
611: end deriveLotsFromMMTT;
612: */
613:
628: l_lotReturnStatus VARCHAR2(1);
629: l_serialReturnStatus VARCHAR2(1);
630: l_tempReturnStatus VARCHAR2(1);
631: l_errMsg VARCHAR2(80);
632: l_params wip_logger.param_tbl_t;
633: l_returnStatus VARCHAR2(1);
634: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
635: l_itemRecTbl itemInfo_recTbl_t;
636: l_supType NUMBER;
789: l_params(4).paramName := 'p_orgID';
790: l_params(4).paramValue := p_orgID;
791: l_params(5).paramName := 'p_wipEntityID';
792: l_params(5).paramValue := p_wipEntityID;
793: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMTI',
794: p_params => l_params,
795: x_returnStatus => x_returnStatus);
796: end if;
797:
852:
853: for i in 1..l_itemRecTbl.itemID.count loop
854: <
855: if (l_logLevel <= wip_constants.full_logging) then
856: wip_logger.log('priQty:' || l_itemRecTbl.priQty(i) || '; lot quantity:' || l_itemRecTbl.lotPriQty(i), l_returnStatus);
857: end if;
858:
859: if(abs(l_itemRecTbl.priQty(i)) > abs(nvl(l_itemRecTbl.lotPriQty(i), 0))) then
860: if (l_logLevel <= wip_constants.full_logging) then
857: end if;
858:
859: if(abs(l_itemRecTbl.priQty(i)) > abs(nvl(l_itemRecTbl.lotPriQty(i), 0))) then
860: if (l_logLevel <= wip_constants.full_logging) then
861: wip_logger.log('adding item ' || l_itemRecTbl.itemName(i) || ';' || l_itemRecTbl.itemID(i), l_returnStatus);
862: end if;
863:
864: l_serialTaggedCode := inv_cache.get_serial_tagged(p_orgID, l_itemRecTbl.itemID(i), getTxnType(l_itemRecTbl.txnActionID(i)));
865:
933: l_compObj.reset;
934: --2nd pass: update all the mti rows with lot info
935: for i in 1..l_itemRecTbl.txnID.count loop
936: if (l_logLevel <= wip_constants.full_logging) then
937: wip_logger.log('start outer loop for item' || l_itemRecTbl.itemID(i), l_returnStatus);
938: end if;
939:
940: if(l_itemRecTbl.lotControlCode(i) <> wip_constants.lot) then
941: goto END_OF_OUTER_LOOP;
942: end if;
943:
944: loop
945: if (l_logLevel <= wip_constants.full_logging) then
946: wip_logger.log('start inner loop1', l_returnStatus);
947: end if;
948: if(l_compObj.setNextItem) then
949: if(not l_compObj.getCurrentItem(l_item)) then
950: l_errMsg := 'object error';
950: l_errMsg := 'object error';
951: raise fnd_api.g_exc_unexpected_error;
952: end if;
953: if (l_logLevel <= wip_constants.full_logging) then
954: wip_logger.log('found item: ' || l_item.inventory_item_id, l_returnStatus);
955: end if;
956:
957: if(l_item.inventory_item_id = l_itemRecTbl.itemID(i) and
958: l_item.supply_subinventory = l_itemRecTbl.supplySubinv(i) and
959: nvl(l_item.supply_locator_id, -1) = nvl(l_itemRecTbl.supplyLocID(i), -1) and
960: l_item.operation_seq_num = l_itemRecTbl.opSeqNum(i) and
961: l_item.primary_quantity = l_itemRecTbl.priQty(i)) then
962: if (l_logLevel <= wip_constants.full_logging) then
963: wip_logger.log('item: ' || l_item.inventory_item_id || ' matches cursor item', l_returnStatus);
964: end if;
965: exit; --found an item to match the cursor
966: end if;
967: else
965: exit; --found an item to match the cursor
966: end if;
967: else
968: if (l_logLevel <= wip_constants.full_logging) then
969: wip_logger.log('ran out of items', l_returnStatus);
970: end if;
971: goto END_OF_OUTER_LOOP; --must exit inner and outer loop!
972: end if;
973: end loop;
974:
975:
976: while(l_compObj.getNextLot(l_lot)) loop
977: if (l_logLevel <= wip_constants.full_logging) then
978: wip_logger.log('start inner loop2', l_returnStatus);
979: end if;
980: insert into mtl_transaction_lots_interface
981: (transaction_interface_id,
982: last_update_date,
1008: l_lot.lot_number);
1009: end loop;
1010: <
1011: if (l_logLevel <= wip_constants.full_logging) then
1012: wip_logger.log('end outer loop', l_returnStatus);
1013: end if;
1014: end loop;
1015:
1016: --return status has already been set at this point
1014: end loop;
1015:
1016: --return status has already been set at this point
1017: if (l_logLevel <= wip_constants.trace_logging) then
1018: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMTI',
1019: p_procReturnStatus => x_returnStatus,
1020: p_msg => 'procedure success',
1021: x_returnStatus => l_returnStatus); --discard logging return status
1022: end if;
1020: p_msg => 'procedure success',
1021: x_returnStatus => l_returnStatus); --discard logging return status
1022: end if;
1023: if(fnd_api.to_boolean(p_endDebug)) then
1024: wip_logger.cleanup(x_returnStatus => l_returnStatus);
1025: end if;
1026: exception
1027: when fnd_api.g_exc_unexpected_error then
1028: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1027: when fnd_api.g_exc_unexpected_error then
1028: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1029: rollback to wiplotpb_10;
1030: if (l_logLevel <= wip_constants.trace_logging) then
1031: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMTI',
1032: p_procReturnStatus => x_returnStatus,
1033: p_msg => l_errMsg,
1034: x_returnStatus => l_returnStatus); --discard logging return status
1035: end if;
1033: p_msg => l_errMsg,
1034: x_returnStatus => l_returnStatus); --discard logging return status
1035: end if;
1036: if(fnd_api.to_boolean(p_endDebug)) then
1037: wip_logger.cleanup(x_returnStatus => l_returnStatus);
1038: end if;
1039: when others then
1040: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1041: rollback to wiplotpb_10;
1042: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
1043: p_procedure_name => 'deriveLotsFromMTI',
1044: p_error_text => SQLERRM);
1045: if (l_logLevel <= wip_constants.trace_logging) then
1046: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveLotsFromMTI',
1047: p_procReturnStatus => x_returnStatus,
1048: p_msg => 'unexpected error:' || SQLERRM,
1049: x_returnStatus => l_returnStatus); --discard logging return status
1050: end if;
1048: p_msg => 'unexpected error:' || SQLERRM,
1049: x_returnStatus => l_returnStatus); --discard logging return status
1050: end if;
1051: if(fnd_api.to_boolean(p_endDebug)) then
1052: wip_logger.cleanup(x_returnStatus => l_returnStatus);
1053: end if;
1054: end deriveLotsFromMTI;
1055:
1056:
1114: l_lotNumber VARCHAR2(80);
1115: l_expDate DATE;
1116: l_lotQty NUMBER;
1117: l_cond boolean;
1118: l_params wip_logger.param_tbl_t;
1119: l_errMsg VARCHAR2(80);
1120: l_returnStatus VARCHAR2(1);
1121: l_enabled VARCHAR2(1);
1122: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1142: l_params(7).paramValue := l_item.revision;
1143: l_params(8).paramName := 'x_compLot(cur_item).primary_quantity';
1144: l_params(8).paramValue := l_item.primary_quantity;
1145: end if;
1146: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.deriveTxnLots',
1147: p_params => l_params,
1148: x_returnStatus => x_returnStatus);
1149: end if;
1150:
1170: exit when c_negRetTxnBasedLots%NOTFOUND;
1171: end if;
1172:
1173: if (l_logLevel <= wip_constants.full_logging) then
1174: wip_logger.log('lot: ' || l_lotNumber || '; qty: ' || l_lotQty, l_returnStatus);
1175: end if;
1176: l_enabled := wip_utilities.is_status_applicable(p_trx_type_id => getTxnType(l_item.transaction_action_id),
1177: p_organization_id => p_orgID,
1178: p_inventory_item_id => l_item.inventory_item_id,
1181: p_lot_number => l_lotNumber,
1182: p_object_type => 'O');
1183: if(l_enabled <> 'Y') then
1184: if (l_logLevel <= wip_constants.full_logging) then
1185: wip_logger.log('lot is not enabled', l_returnStatus);
1186: end if;
1187: goto END_OF_LOOP;
1188: end if;
1189: --processing here is slightly different than deriveIssueLots b/c sign of quantities could be either + or -
1214: raise fnd_api.g_exc_error;
1215: end if;
1216:
1217: if (l_logLevel <= wip_constants.trace_logging) then
1218: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveTxnLots',
1219: p_procReturnStatus => x_returnStatus,
1220: p_msg => 'procedure success',
1221: x_returnStatus => l_returnStatus); --discard logging return status
1222: end if;
1224: exception
1225: when fnd_api.g_exc_error then
1226: x_returnStatus:= fnd_api.g_ret_sts_error; --let caller know item was not fully derived
1227: if (l_logLevel <= wip_constants.trace_logging) then
1228: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveTxnLots',
1229: p_procReturnStatus => x_returnStatus,
1230: p_msg => l_errMsg,
1231: x_returnStatus => l_returnStatus); --discard logging return status
1232: end if;
1232: end if;
1233: when fnd_api.g_exc_unexpected_error then
1234: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1235: if (l_logLevel <= wip_constants.trace_logging) then
1236: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveTxnLots',
1237: p_procReturnStatus => x_returnStatus,
1238: p_msg => 'error: ' || l_errMsg,
1239: x_returnStatus => l_returnStatus); --discard logging return status
1240: end if;
1248: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
1249: p_procedure_name => 'deriveTxnLots',
1250: p_error_text => SQLERRM);
1251: if (l_logLevel <= wip_constants.trace_logging) then
1252: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveTxnLots',
1253: p_procReturnStatus => x_returnStatus,
1254: p_msg => 'error: ' || SQLERRM,
1255: x_returnStatus => l_returnStatus); --discard logging return status
1256: end if;
1286: l_qtyRsved2 NUMBER;
1287: l_qtySuggested2 NUMBER;
1288: l_qtyAvailToRsv2 NUMBER;
1289: l_qtyAvailToTxt2 NUMBER;
1290: l_params wip_logger.param_tbl_t;
1291: l_cond boolean;
1292: l_enabled VARCHAR2(1);
1293: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1294: /* Added for Wilson Greatbatch Enhancement */
1396: l_params(7).paramValue := l_item.revision;
1397: l_params(8).paramName := 'x_compLot(cur_item).primary_quantity';
1398: l_params(8).paramValue := l_item.primary_quantity;
1399: end if;
1400: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.deriveIssueLots',
1401: p_params => l_params,
1402: x_returnStatus => x_returnStatus);
1403: end if;
1404:
1419: --Lot Hook can return 3 cases.
1420: if(l_custom_returnStatus = 'S' and l_custom_lot_number is not null) then
1421: --Case 1: Success and a Lot Number. Carry out the transaction with value provided by the hook
1422: if (l_logLevel <= wip_constants.full_logging) then
1423: wip_logger.log('Custom Hook returned Lot Number: ' || l_custom_lot_number, l_returnStatus );
1424: wip_logger.log('adding lot ' || l_custom_lot_number || 'w/qty ' || l_item.primary_quantity, l_returnStatus);
1425: end if;
1426:
1427: x_compLots.addLot(p_lotNumber => l_custom_lot_number,
1420: if(l_custom_returnStatus = 'S' and l_custom_lot_number is not null) then
1421: --Case 1: Success and a Lot Number. Carry out the transaction with value provided by the hook
1422: if (l_logLevel <= wip_constants.full_logging) then
1423: wip_logger.log('Custom Hook returned Lot Number: ' || l_custom_lot_number, l_returnStatus );
1424: wip_logger.log('adding lot ' || l_custom_lot_number || 'w/qty ' || l_item.primary_quantity, l_returnStatus);
1425: end if;
1426:
1427: x_compLots.addLot(p_lotNumber => l_custom_lot_number,
1428: p_priQty => l_item.primary_quantity,
1431: return;
1432: elsif(l_custom_returnStatus <> 'S') then
1433: --Case 2: Error. In this case we fail the transaction
1434: if (l_logLevel <= wip_constants.full_logging) then
1435: wip_logger.log('Custom Hook errored out and hence no value is stamped for lot number. If express move it will eventually fail since required lot number not provided.', l_returnStatus);
1436: end if;
1437: return;
1438: else
1439: --Case 3: Success and no Lot number. In this case proceed with Lot Derivation logic
1437: return;
1438: else
1439: --Case 3: Success and no Lot number. In this case proceed with Lot Derivation logic
1440: if (l_logLevel <= wip_constants.full_logging) then
1441: wip_logger.log('Custom Hook successfully returned, but NO value returned. This means hook has nothing to return in this case. Thus lot derivation logic will proceed to derive the lot', l_returnStatus);
1442: end if;
1443: end if;
1444:
1445: if(l_cond) then
1612: /* Begin Bug#4956543. l_qtyAvailToTxt is updated if Lot is already selected */
1613:
1614: if ((l_qtyAvailToTxt > 0) and (l_qtyAvailToTxt - l_lot_qty_selected ) > 0) then
1615: if (l_lot_qty_selected > 0 ) then
1616: wip_logger.log ('Changing l_qtyAvailToTxt', l_returnStatus ) ;
1617: l_qtyAvailToTxt := l_qtyAvailToTxt - l_lot_qty_selected ;
1618: end if ;
1619:
1620: /* End Bug#4956543 */
1619:
1620: /* End Bug#4956543 */
1621:
1622: if (l_logLevel <= wip_constants.full_logging) then
1623: wip_logger.log('adding lot ' || l_lotNumber || 'w/qty ' || least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1624: wip_logger.log('qty avail to txt:' || l_qtyAvailToTxt, l_returnStatus);
1625: wip_logger.log('l_rmnQty:' || l_rmnQty, l_returnStatus);
1626: end if;
1627:
1620: /* End Bug#4956543 */
1621:
1622: if (l_logLevel <= wip_constants.full_logging) then
1623: wip_logger.log('adding lot ' || l_lotNumber || 'w/qty ' || least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1624: wip_logger.log('qty avail to txt:' || l_qtyAvailToTxt, l_returnStatus);
1625: wip_logger.log('l_rmnQty:' || l_rmnQty, l_returnStatus);
1626: end if;
1627:
1628: x_compLots.addLot(p_lotNumber => l_lotNumber,
1621:
1622: if (l_logLevel <= wip_constants.full_logging) then
1623: wip_logger.log('adding lot ' || l_lotNumber || 'w/qty ' || least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1624: wip_logger.log('qty avail to txt:' || l_qtyAvailToTxt, l_returnStatus);
1625: wip_logger.log('l_rmnQty:' || l_rmnQty, l_returnStatus);
1626: end if;
1627:
1628: x_compLots.addLot(p_lotNumber => l_lotNumber,
1629: p_priQty => least(l_rmnQty, l_qtyAvailToTxt),
1658: raise fnd_api.g_exc_unexpected_error;
1659: end if;
1660:
1661: if (l_logLevel <= wip_constants.full_logging) then
1662: wip_logger.log('updating treeID' || x_treeID, l_returnStatus);
1663: wip_logger.log(' item=' || l_item.inventory_item_id, l_returnStatus);
1664: wip_logger.log(' lot=' || l_lotNumber, l_returnStatus);
1665: wip_logger.log(' qty=' || -1 * least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1666: end if;
1659: end if;
1660:
1661: if (l_logLevel <= wip_constants.full_logging) then
1662: wip_logger.log('updating treeID' || x_treeID, l_returnStatus);
1663: wip_logger.log(' item=' || l_item.inventory_item_id, l_returnStatus);
1664: wip_logger.log(' lot=' || l_lotNumber, l_returnStatus);
1665: wip_logger.log(' qty=' || -1 * least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1666: end if;
1667: l_rmnQty := l_rmnQty - least(l_rmnQty, l_qtyAvailToTxt);
1660:
1661: if (l_logLevel <= wip_constants.full_logging) then
1662: wip_logger.log('updating treeID' || x_treeID, l_returnStatus);
1663: wip_logger.log(' item=' || l_item.inventory_item_id, l_returnStatus);
1664: wip_logger.log(' lot=' || l_lotNumber, l_returnStatus);
1665: wip_logger.log(' qty=' || -1 * least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1666: end if;
1667: l_rmnQty := l_rmnQty - least(l_rmnQty, l_qtyAvailToTxt);
1668: if(l_rmnQty = 0) then
1661: if (l_logLevel <= wip_constants.full_logging) then
1662: wip_logger.log('updating treeID' || x_treeID, l_returnStatus);
1663: wip_logger.log(' item=' || l_item.inventory_item_id, l_returnStatus);
1664: wip_logger.log(' lot=' || l_lotNumber, l_returnStatus);
1665: wip_logger.log(' qty=' || -1 * least(l_rmnQty, l_qtyAvailToTxt), l_returnStatus);
1666: end if;
1667: l_rmnQty := l_rmnQty - least(l_rmnQty, l_qtyAvailToTxt);
1668: if(l_rmnQty = 0) then
1669: exit;
1689: raise fnd_api.g_exc_error;
1690: end if;
1691:
1692: if (l_logLevel <= wip_constants.trace_logging) then
1693: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveIssueLots',
1694: p_procReturnStatus => x_returnStatus,
1695: p_msg => 'procedure success',
1696: x_returnStatus => l_returnStatus); --discard logging return status
1697: end if;
1699: exception
1700: when fnd_api.g_exc_error then
1701: x_returnStatus:= fnd_api.g_ret_sts_error; --let caller know item was not fully derived
1702: if (l_logLevel <= wip_constants.trace_logging) then
1703: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveIssueLots',
1704: p_procReturnStatus => x_returnStatus,
1705: p_msg => l_errMsg,
1706: x_returnStatus => l_returnStatus); --discard logging return status
1707: end if;
1712: elsif(c_expDateOrderedLots%ISOPEN) then
1713: close c_expDateOrderedLots;
1714: end if;
1715: if (l_logLevel <= wip_constants.trace_logging) then
1716: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveIssueLots',
1717: p_procReturnStatus => x_returnStatus,
1718: p_msg => 'error: ' || l_errMsg,
1719: x_returnStatus => l_returnStatus); --discard logging return status
1720: end if;
1728: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
1729: p_procedure_name => 'deriveIssueLots',
1730: p_error_text => SQLERRM);
1731: if (l_logLevel <= wip_constants.trace_logging) then
1732: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveIssueLots',
1733: p_procReturnStatus => x_returnStatus,
1734: p_msg => 'error: ' || SQLERRM,
1735: x_returnStatus => l_returnStatus); --discard logging return status
1736: end if;
1749: l_serialControlCode NUMBER;
1750: l_serialTaggedCode NUMBER; -- Bug 9907143: added for serial tagging enhancement for SUN
1751: l_TxnTypeID NUMBER;
1752: l_errMsg VARCHAR2(80);
1753: l_params wip_logger.param_tbl_t;
1754: l_returnStatus VARCHAR2(1);
1755: l_item system.wip_component_obj_t;
1756: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1757: begin
1768: l_params(4).paramValue := p_treeSrcName;
1769: l_params(5).paramName := 'x_treeID';
1770: l_params(5).paramValue := x_treeID;
1771:
1772: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.deriveSingleItem',
1773: p_params => l_params,
1774: x_returnStatus => x_returnStatus);
1775: end if;
1776:
1815: --if uncontrolled, return success (no derivation necessary)
1816: if(l_lotControlCode = wip_constants.no_lot) then
1817: x_returnStatus := fnd_api.g_ret_sts_success;
1818: if (l_logLevel <= wip_constants.trace_logging) then
1819: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveSingleItem',
1820: p_procReturnStatus => x_returnStatus,
1821: p_msg => 'procedure success (no derivation necessary)',
1822: x_returnStatus => l_returnStatus); --discard logging return status
1823: end if;
1860: raise fnd_api.g_exc_unexpected_error;
1861: end if;
1862:
1863: if (l_logLevel <= wip_constants.trace_logging) then
1864: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveSingleItem',
1865: p_procReturnStatus => x_returnStatus,
1866: p_msg => 'procedure success',
1867: x_returnStatus => l_returnStatus); --discard logging return status
1868: end if;
1870: exception
1871: when fnd_api.g_exc_error then
1872: x_returnStatus := fnd_api.g_ret_sts_error;
1873: if (l_logLevel <= wip_constants.trace_logging) then
1874: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveSingleItem',
1875: p_procReturnStatus => x_returnStatus,
1876: p_msg => 'error' || l_errMsg,
1877: x_returnStatus => l_returnStatus); --discard logging return status
1878: end if;
1879: rollback to wipbflpb40;
1880: when fnd_api.g_exc_unexpected_error then
1881: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1882: if (l_logLevel <= wip_constants.trace_logging) then
1883: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveSingleItem',
1884: p_procReturnStatus => x_returnStatus,
1885: p_msg => 'unexp error raised:',
1886: x_returnStatus => l_returnStatus); --discard logging return status
1887: end if;
1891: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
1892: p_procedure_name => 'deriveSingleItem',
1893: p_error_text => SQLERRM);
1894: if (l_logLevel <= wip_constants.trace_logging) then
1895: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.deriveSingleItem',
1896: p_procReturnStatus => x_returnStatus,
1897: p_msg => 'unexp error:' || SQLERRM,
1898: x_returnStatus => l_returnStatus); --discard logging return status
1899: end if;
1926: p_txnActionID IN NUMBER,
1927: p_serControlCode IN NUMBER,
1928: x_returnStatus OUT NOCOPY VARCHAR2) IS
1929: l_serCount NUMBER;
1930: l_params wip_logger.param_tbl_t;
1931: l_returnStatus VARCHAR2(1);
1932: l_errMsg VARCHAR2(80);
1933: l_txnTypeID NUMBER;
1934: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1943: l_params(3).paramName := 'p_qty';
1944: l_params(3).paramValue := p_qty;
1945: l_params(4).paramName := 'p_txnActionID';
1946: l_params(4).paramValue := p_txnActionID;
1947: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.checkSerialQuantity',
1948: p_params => l_params,
1949: x_returnStatus => x_returnStatus);
1950: end if;
1951:
1949: x_returnStatus => x_returnStatus);
1950: end if;
1951:
1952: if (l_logLevel <= wip_constants.full_logging) then
1953: wip_logger.log('qty:' || p_qty, l_returnStatus);
1954: wip_logger.log('round(qty)' || round(p_qty), l_returnStatus);
1955: end if;
1956: if(p_qty <> round(p_qty)) then --serial requirements must be whole numbers
1957: l_errMsg := 'serial requirement not a whole #';
1950: end if;
1951:
1952: if (l_logLevel <= wip_constants.full_logging) then
1953: wip_logger.log('qty:' || p_qty, l_returnStatus);
1954: wip_logger.log('round(qty)' || round(p_qty), l_returnStatus);
1955: end if;
1956: if(p_qty <> round(p_qty)) then --serial requirements must be whole numbers
1957: l_errMsg := 'serial requirement not a whole #';
1958: fnd_message.set_name('WIP', 'COMP_INVALID_SER_QTY');
2009: elsif(p_txnActionID = wip_constants.issnegc_action) then
2010: if(p_serControlCode = wip_constants.dyn_rcv_sn) then
2011: x_returnStatus := fnd_api.g_ret_sts_success;
2012: if (l_logLevel <= wip_constants.trace_logging) then
2013: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerialQuantity',
2014: p_procReturnStatus => x_returnStatus,
2015: p_msg => 'procedure success (neg issue and serial is dyn at recpt)',
2016: x_returnStatus => l_returnStatus);
2017: end if;
2038:
2039: end if;
2040: end if;
2041: if (l_logLevel <= wip_constants.full_logging) then
2042: wip_logger.log('serial count is ' || l_serCount, l_returnStatus);
2043: end if;
2044: if(l_serCount < p_qty) then
2045: fnd_message.set_name('WIP', 'NO_COMP_SERIAL_NUMBERS');
2046: fnd_message.set_token('ITEM', p_itemName);
2050: else
2051: x_returnStatus := fnd_api.g_ret_sts_success;
2052: end if;
2053: if (l_logLevel <= wip_constants.trace_logging) then
2054: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerialQuantity',
2055: p_procReturnStatus => x_returnStatus,
2056: p_msg => 'procedure success',
2057: x_returnStatus => l_returnStatus);
2058: end if;
2059: exception
2060: when fnd_api.g_exc_unexpected_error then
2061: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2062: if (l_logLevel <= wip_constants.trace_logging) then
2063: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerialQuantity',
2064: p_procReturnStatus => x_returnStatus,
2065: p_msg => l_errMsg,
2066: x_returnStatus => l_returnStatus);
2067: end if;
2070: p_procedure_name => 'checkSerialQuantity',
2071: p_error_text => SQLERRM);
2072: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2073: if (l_logLevel <= wip_constants.trace_logging) then
2074: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerialQuantity',
2075: p_procReturnStatus => x_returnStatus,
2076: p_msg => 'unexp error ' || SQLERRM,
2077: x_returnStatus => l_returnStatus);
2078: end if;
2099: l_toNumber VARCHAR2(80);
2100: l_errCode NUMBER;
2101: l_errMsg VARCHAR2(80);
2102: l_returnStatus VARCHAR2(1);
2103: l_params wip_logger.param_tbl_t;
2104: l_fmSerial VARCHAR2(30);
2105: l_toSerial VARCHAR2(30);
2106: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2107: cursor c_tmpSerials is
2139: l_params(10).paramName := 'p_txnActionID';
2140: l_params(10).paramValue := p_txnActionID;
2141: l_params(11).paramName := 'p_serControlCode';
2142: l_params(11).paramValue := p_serControlCode;
2143: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.checkSerial',
2144: p_params => l_params,
2145: x_returnStatus => x_returnStatus);
2146: if(x_returnStatus <> fnd_api.g_ret_sts_success) then
2147: raise fnd_api.g_exc_unexpected_error;
2198:
2199: end if;
2200:
2201: if (l_logLevel <= wip_constants.trace_logging) then
2202: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerial',
2203: p_procReturnStatus => x_returnStatus,
2204: p_msg => 'procedure success',
2205: x_returnStatus => l_returnStatus);
2206: end if;
2208: when fnd_api.g_exc_error then
2209: x_serialReturnStatus := fnd_api.g_ret_sts_error;
2210: x_returnStatus := fnd_api.g_ret_sts_success;
2211: if (l_logLevel <= wip_constants.trace_logging) then
2212: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerial',
2213: p_procReturnStatus => x_returnStatus,
2214: p_msg => 'insufficient serial qty. only found ' || l_totalQty,
2215: x_returnStatus => l_returnStatus);
2216: end if;
2222: elsif(c_intSerials%ISOPEN) then
2223: close c_intSerials;
2224: end if;
2225: if (l_logLevel <= wip_constants.trace_logging) then
2226: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerial',
2227: p_procReturnStatus => x_returnStatus,
2228: p_msg => l_errMsg,
2229: x_returnStatus => l_returnStatus);
2230: end if;
2239: fnd_msg_pub.add_exc_msg(p_pkg_name => 'wip_autoLotProc_priv',
2240: p_procedure_name => 'checkSerial',
2241: p_error_text => SQLERRM);
2242: if (l_logLevel <= wip_constants.trace_logging) then
2243: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.checkSerial',
2244: p_procReturnStatus => x_returnStatus,
2245: p_msg => 'unexp error ' || SQLERRM,
2246: x_returnStatus => l_returnStatus);
2247: end if;
2285: p_lot_qty_selected OUT NOCOPY NUMBER,
2286: x_returnStatus OUT NOCOPY VARCHAR2) is
2287: l_qty NUMBER ;
2288: l_returnStatus varchar2(1) ;
2289: l_params wip_logger.param_tbl_t;
2290: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2291: begin
2292:
2293: l_qty := 0 ;
2305: l_params(4).paramValue := p_locator_id;
2306: l_params(5).paramName := 'p_lot_number';
2307: l_params(5).paramValue := p_lot_number;
2308:
2309: wip_logger.entryPoint(p_procName => 'wip_autoLotProc_priv.lot_selected',
2310: p_params => l_params,
2311: x_returnStatus => x_returnStatus);
2312: end if ;
2313:
2326: and lot_number = p_lot_number ;
2327:
2328: exception
2329: when others then
2330: wip_logger.log( 'In exception Lots entered **** ' , l_returnStatus) ;
2331: l_qty := 0 ;
2332: end ;
2333:
2334: p_lot_qty_selected := nvl(l_qty, 0) ;
2332: end ;
2333:
2334: p_lot_qty_selected := nvl(l_qty, 0) ;
2335:
2336: wip_logger.log( 'Lot Qty Selected ' || p_lot_qty_selected || ' for Lot ' || p_lot_number, l_returnStatus) ;
2337:
2338: if (l_logLevel <= wip_constants.trace_logging) then
2339: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.lot_selected',
2340: p_procReturnStatus => x_returnStatus,
2335:
2336: wip_logger.log( 'Lot Qty Selected ' || p_lot_qty_selected || ' for Lot ' || p_lot_number, l_returnStatus) ;
2337:
2338: if (l_logLevel <= wip_constants.trace_logging) then
2339: wip_logger.exitPoint(p_procName => 'wip_autoLotProc_priv.lot_selected',
2340: p_procReturnStatus => x_returnStatus,
2341: p_msg => 'procedure success',
2342: x_returnStatus => l_returnStatus); --discard logging return status
2343: end if;
2378: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2379: l_errMsg VARCHAR2(240);
2380: l_returnStatus VARCHAR2(1);
2381: l_lotComp c_lotComp%ROWTYPE;
2382: l_params wip_logger.param_tbl_t;
2383:
2384: BEGIN
2385: -- Don't need to check the return status because already check in
2386: -- deriveSerial()
2403: l_params(8).paramName := 'p_item.primary_quantity';
2404: l_params(8).paramValue := p_item.primary_quantity;
2405: l_params(9).paramName := 'p_item.transaction_action_id';
2406: l_params(9).paramValue := p_item.transaction_action_id;
2407: wip_logger.entryPoint(
2408: p_procName => 'wip_autoLotProc_priv.deriveSingleItemFromMOG',
2409: p_params => l_params,
2410: x_returnStatus => x_returnStatus);
2411: END IF;
2418:
2419: l_derivedQty := l_derivedQty + l_lotComp.lot_qty;
2420:
2421: IF (l_logLevel <= wip_constants.full_logging) THEN
2422: wip_logger.log('Added Lot : ' || l_lotComp.lot, l_returnStatus);
2423: wip_logger.log('Added Lot Qty : '|| l_lotComp.lot_qty, l_returnStatus);
2424: END IF;
2425: END LOOP; -- l_lotComp IN c_lotComp
2426: -- Check whether derived quantity equal to backflush quantity or not
2419: l_derivedQty := l_derivedQty + l_lotComp.lot_qty;
2420:
2421: IF (l_logLevel <= wip_constants.full_logging) THEN
2422: wip_logger.log('Added Lot : ' || l_lotComp.lot, l_returnStatus);
2423: wip_logger.log('Added Lot Qty : '|| l_lotComp.lot_qty, l_returnStatus);
2424: END IF;
2425: END LOOP; -- l_lotComp IN c_lotComp
2426: -- Check whether derived quantity equal to backflush quantity or not
2427: -- If not, error out.
2426: -- Check whether derived quantity equal to backflush quantity or not
2427: -- If not, error out.
2428: IF(p_item.lot_control_code = WIP_CONSTANTS.LOT AND
2429: p_item.primary_quantity <> l_derivedQty * -1) THEN
2430: wip_logger.log('item : ' || p_item.item_name, l_returnStatus);
2431: wip_logger.log('primary_quantity : ' || p_item.primary_quantity,
2432: l_returnStatus);
2433: wip_logger.log('derived_quantity : ' || l_derivedQty, l_returnStatus);
2434: l_errMsg := 'return quantity missmatch';
2427: -- If not, error out.
2428: IF(p_item.lot_control_code = WIP_CONSTANTS.LOT AND
2429: p_item.primary_quantity <> l_derivedQty * -1) THEN
2430: wip_logger.log('item : ' || p_item.item_name, l_returnStatus);
2431: wip_logger.log('primary_quantity : ' || p_item.primary_quantity,
2432: l_returnStatus);
2433: wip_logger.log('derived_quantity : ' || l_derivedQty, l_returnStatus);
2434: l_errMsg := 'return quantity missmatch';
2435: raise fnd_api.g_exc_unexpected_error;
2429: p_item.primary_quantity <> l_derivedQty * -1) THEN
2430: wip_logger.log('item : ' || p_item.item_name, l_returnStatus);
2431: wip_logger.log('primary_quantity : ' || p_item.primary_quantity,
2432: l_returnStatus);
2433: wip_logger.log('derived_quantity : ' || l_derivedQty, l_returnStatus);
2434: l_errMsg := 'return quantity missmatch';
2435: raise fnd_api.g_exc_unexpected_error;
2436: END IF;
2437:
2435: raise fnd_api.g_exc_unexpected_error;
2436: END IF;
2437:
2438: IF (l_logLevel <= wip_constants.trace_logging) THEN
2439: wip_logger.exitPoint(
2440: p_procName => 'wip_autoLotProc_priv.deriveSingleItemFromMOG',
2441: p_procReturnStatus => x_returnStatus,
2442: p_msg => 'procedure success',
2443: x_returnStatus => l_returnStatus); --discard return status
2446: EXCEPTION
2447: WHEN fnd_api.g_exc_unexpected_error THEN
2448: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2449: IF (l_logLevel <= wip_constants.trace_logging) THEN
2450: wip_logger.exitPoint(
2451: p_procName => 'wip_autoLotProc_priv.deriveSingleItemFromMOG',
2452: p_procReturnStatus => x_returnStatus,
2453: p_msg => l_errMsg,
2454: x_returnStatus => l_returnStatus); --discard return status
2460:
2461: WHEN others THEN
2462: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2463: IF (l_logLevel <= wip_constants.trace_logging) THEN
2464: wip_logger.exitPoint(
2465: p_procName => 'wip_autoLotProc_priv.deriveSingleItemFromMOG',
2466: p_procReturnStatus => x_returnStatus,
2467: p_msg => 'unexp error:' || SQLERRM,
2468: x_returnStatus => l_returnStatus); --discard return status
2500:
2501: l_errMsg VARCHAR2(240);
2502: l_returnStatus VARCHAR2(1);
2503: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2504: l_params wip_logger.param_tbl_t;
2505: l_revisionComp c_revisionComp%ROWTYPE;
2506: BEGIN
2507:
2508: IF (l_logLevel <= wip_constants.trace_logging) THEN
2523: l_params(8).paramName := 'p_item.primary_quantity';
2524: l_params(8).paramValue := p_item.primary_quantity;
2525: l_params(9).paramName := 'p_item.transaction_action_id';
2526: l_params(9).paramValue := p_item.transaction_action_id;
2527: wip_logger.entryPoint(
2528: p_procName => 'wip_autoLotProc_priv.setItemRevision',
2529: p_params => l_params,
2530: x_returnStatus => x_returnStatus);
2531: END IF;
2540: x_compLots.setRevision(p_revision => l_revisionComp.revision);
2541: END IF;
2542:
2543: IF (l_logLevel <= wip_constants.trace_logging) THEN
2544: wip_logger.exitPoint(
2545: p_procName => 'wip_autoLotProc_priv.setItemRevision',
2546: p_procReturnStatus => x_returnStatus,
2547: p_msg => 'procedure success',
2548: x_returnStatus => l_returnStatus); --discard return status
2555: END IF;
2556:
2557: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2558: IF (l_logLevel <= wip_constants.trace_logging) THEN
2559: wip_logger.exitPoint(
2560: p_procName => 'wip_autoLotProc_priv.setItemRevision',
2561: p_procReturnStatus => x_returnStatus,
2562: p_msg => 'unexp error:' || SQLERRM,
2563: x_returnStatus => l_returnStatus); --discard return status
2573: x_returnStatus OUT NOCOPY VARCHAR2) IS
2574:
2575: l_returnStatus VARCHAR2(1);
2576: l_errMsg VARCHAR2(80);
2577: l_params wip_logger.param_tbl_t;
2578: l_curItem system.wip_component_obj_t;
2579: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2580: BEGIN
2581: IF (l_logLevel <= wip_constants.trace_logging) THEN
2583: l_params(1).paramValue := p_orgID;
2584: l_params(2).paramName := 'p_objectID';
2585: l_params(2).paramValue := p_objectID;
2586:
2587: wip_logger.entryPoint(
2588: p_procName => 'wip_autoLotProc_priv.deriveLotsFromMOG',
2589: p_params => l_params,
2590: x_returnStatus => x_returnStatus);
2591: END IF;
2646: EXIT WHEN NOT x_compLots.setNextItem;
2647: END LOOP;
2648:
2649: IF (l_logLevel <= wip_constants.trace_logging) THEN
2650: wip_logger.exitPoint(
2651: p_procName => 'wip_autoLotProc_priv.deriveLotsFromMOG',
2652: p_procReturnStatus => x_returnStatus,
2653: p_msg => 'procedure success',
2654: x_returnStatus => l_returnStatus);
2657: EXCEPTION
2658: WHEN fnd_api.g_exc_unexpected_error THEN
2659: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2660: IF (l_logLevel <= wip_constants.trace_logging) THEN
2661: wip_logger.exitPoint(
2662: p_procName => 'wip_autoLotProc_priv.deriveLotsFromMOG',
2663: p_procReturnStatus => x_returnStatus,
2664: p_msg => l_errMsg,
2665: x_returnStatus => l_returnStatus); --discard return status
2668:
2669: WHEN others THEN
2670: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2671: IF (l_logLevel <= wip_constants.trace_logging) THEN
2672: wip_logger.exitPoint(
2673: p_procName => 'wip_autoLotProc_priv.deriveLotsFromMOG',
2674: p_procReturnStatus => x_returnStatus,
2675: p_msg => 'unexpected error:' || SQLERRM,
2676: x_returnStatus => l_returnStatus); --discard return status