[Home] [Help]
197:
198: l_repAssembly c_repAssembly%ROWTYPE;
199: l_discAssembly c_discAssembly%ROWTYPE;
200: l_OSFMAssembly c_OSFMAssembly%ROWTYPE;
201: l_params wip_logger.param_tbl_t;
202: l_returnStatus VARCHAR2(1);
203: l_errMsg VARCHAR(240);
204: l_msg VARCHAR(240);
205: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
222: l_params(4).paramValue := p_move_txn_id;
223: l_params(5).paramName := 'p_entity_type';
224: l_params(5).paramValue := p_entity_type;
225:
226: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.backflush_assy_pull',
227: p_params => l_params,
228: x_returnStatus => l_returnStatus);
229: END IF;
230: IF(p_entity_type = WIP_CONSTANTS.REPETITIVE) THEN
272: END IF; -- check return status
273: END LOOP; -- repetitive schedule
274: ELSIF(p_entity_type = WIP_CONSTANTS.DISCRETE) THEN
275: FOR l_discAssembly IN c_discAssembly LOOP
276: wip_logger.log('Backflush from MMT for txn_src_id: ' || l_discAssembly.txn_src_id, l_returnStatus);
277: wip_bflProc_priv.backflush(
278: p_wipEntityID => l_discAssembly.txn_src_id,
279: p_orgID => l_discAssembly.org_id,
280: p_primaryQty => l_discAssembly.primary_qty,
321: are backflushed based on MMT. After this LOOP is implemented they will be backflushed based on MMTT
322: as well. The assy_completion record will either be in MMTT or MMT (not both), for a particular
323: move_transaction_id*/
324: FOR l_discAssembly IN c_discAssembly_mmtt LOOP
325: wip_logger.log('Backflush from MMTT for txn_src_id: ' || l_discAssembly.txn_src_id, l_returnStatus);
326: wip_bflProc_priv.backflush(
327: p_wipEntityID => l_discAssembly.txn_src_id,
328: p_orgID => l_discAssembly.org_id,
329: p_primaryQty => l_discAssembly.primary_qty,
405: END LOOP; -- OSFM
406: END IF; -- entity_type check
407: -- write to the log file
408: IF (l_logLevel <= wip_constants.trace_logging) THEN
409: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.backflush_assy_pull',
410: p_procReturnStatus => 'S',
411: p_msg => 'procedure complete',
412: x_returnStatus => l_returnStatus);
413: END IF;
421: ****************************************************************************/
422: PROCEDURE component_cleanup(p_mtl_header_id IN NUMBER,
423: p_group_id IN NUMBER) IS
424:
425: l_params wip_logger.param_tbl_t;
426: l_returnStatus VARCHAR(1);
427: l_msg VARCHAR(240);
428: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
429: BEGIN
432: l_params(1).paramName := 'p_mtl_header_id';
433: l_params(1).paramValue := p_mtl_header_id;
434: l_params(2).paramName := 'p_group_id';
435: l_params(2).paramValue := p_group_id;
436: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.component_cleanup',
437: p_params => l_params,
438: x_returnStatus => l_returnStatus);
439: END IF;
440: -- Update status of move record to error if components fail inventory
453: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
454: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
455: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TXN_INTERFACE');
456: l_msg := fnd_message.get;
457: wip_logger.log(p_msg => l_msg,
458: x_returnStatus => l_returnStatus);
459: END IF;
460:
461: /*Bug 9813601 (FP of 9760758)
476:
477: IF (l_logLevel <= wip_constants.full_logging) THEN
478: l_msg := SQL%ROWCOUNT ||
479: ' rows deleted from mtl_transaction_lots_temp';
480: wip_logger.log(p_msg => l_msg,
481: x_returnStatus => l_returnStatus);
482: END IF;
483:
484: -- Delete error records from MTTT
492:
493: IF (l_logLevel <= wip_constants.full_logging) THEN
494: l_msg := SQL%ROWCOUNT ||
495: ' rows deleted from mtl_material_transactions_temp';
496: wip_logger.log(p_msg => l_msg,
497: x_returnStatus => l_returnStatus);
498: END IF;
499:
500: -- Delete error records from MTLI
506:
507: IF (l_logLevel <= wip_constants.full_logging) THEN
508: l_msg := SQL%ROWCOUNT ||
509: ' rows deleted from mtl_transaction_lots_interface';
510: wip_logger.log(p_msg => l_msg,
511: x_returnStatus => l_returnStatus);
512: END IF;
513:
514: -- Delete error records from MTI
517:
518: IF (l_logLevel <= wip_constants.full_logging) THEN
519: l_msg := SQL%ROWCOUNT ||
520: ' rows deleted from mtl_transactions_interface';
521: wip_logger.log(p_msg => l_msg,
522: x_returnStatus => l_returnStatus);
523: END IF;
524:
525: l_returnStatus := fnd_api.g_ret_sts_success;
523: END IF;
524:
525: l_returnStatus := fnd_api.g_ret_sts_success;
526: IF (l_logLevel <= wip_constants.trace_logging) THEN
527: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.component_cleanup',
528: p_procReturnStatus => l_returnStatus,
529: p_msg => 'procedure complete',
530: x_returnStatus => l_returnStatus);
531: END IF;
609: AND mti.organization_id = msik.organization_id
610: AND mti.error_explanation IS NOT NULL;
611:
612: l_mtl_errors c_mtl_errors%ROWTYPE;
613: l_params wip_logger.param_tbl_t;
614: l_returnStatus VARCHAR(1);
615: l_errMsg VARCHAR2(240);
616: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
617: l_count NUMBER;
619: -- write parameter value to log file
620: IF (l_logLevel <= wip_constants.trace_logging) THEN
621: l_params(1).paramName := 'p_mtl_header_id';
622: l_params(1).paramValue := p_mtl_header_id;
623: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.write_mtl_errors',
624: p_params => l_params,
625: x_returnStatus => l_returnStatus);
626: END IF;
627: l_count := 0;
646: -- fail inventory validation code.
647: fnd_msg_pub.initialize;
648:
649: IF (l_logLevel <= wip_constants.full_logging) THEN
650: wip_logger.log(p_msg => l_count || ' records inserted',
651: x_returnStatus => l_returnStatus);
652: END IF;
653:
654: l_returnStatus := fnd_api.g_ret_sts_success;
652: END IF;
653:
654: l_returnStatus := fnd_api.g_ret_sts_success;
655: IF (l_logLevel <= wip_constants.trace_logging) THEN
656: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.write_mtl_errors',
657: p_procReturnStatus => l_returnStatus,
658: p_msg => 'procedure complete',
659: x_returnStatus => l_returnStatus);
660: END IF;
663: l_returnStatus := fnd_api.g_ret_sts_unexp_error;
664: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
665:
666: IF (l_logLevel <= wip_constants.trace_logging) THEN
667: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.write_mtl_errors',
668: p_procReturnStatus => l_returnStatus,
669: p_msg => l_errMsg,
670: x_returnStatus => l_returnStatus);
671: END IF;
712:
713: l_wipops c_wipops%ROWTYPE;
714: l_returnStatus VARCHAR(1);
715: l_errMsg VARCHAR2(240);
716: l_params wip_logger.param_tbl_t;
717: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
718:
719: BEGIN
720: -- write parameter value to log file
722: l_params(1).paramName := 'p_group_id';
723: l_params(1).paramValue := p_gib.group_id;
724: l_params(2).paramName := 'p_txn_date';
725: l_params(2).paramValue := p_gib.txn_date;
726: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.lock_wipops',
727: p_params => l_params,
728: x_returnStatus => l_returnStatus);
729: END IF;
730:
737: x_returnStatus := fnd_api.g_ret_sts_success;
738:
739: -- write to the log file
740: IF (l_logLevel <= wip_constants.trace_logging) THEN
741: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.lock_wipops',
742: p_procReturnStatus => x_returnStatus,
743: p_msg => 'procedure complete',
744: x_returnStatus => l_returnStatus);
745: END IF;
752: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
753: l_errMsg := 'Unable to lock the record in wip_operations';
754:
755: IF (l_logLevel <= wip_constants.trace_logging) THEN
756: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.lock_wipops',
757: p_procReturnStatus => x_returnStatus,
758: p_msg => l_errMsg,
759: x_returnStatus => l_returnStatus);
760: END IF;
768: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
769: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
770:
771: IF (l_logLevel <= wip_constants.trace_logging) THEN
772: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.lock_wipops',
773: p_procReturnStatus => x_returnStatus,
774: p_msg => l_errMsg,
775: x_returnStatus => l_returnStatus);
776: END IF;
855: wrs.first_unit_start_date), -- no routing
856: NULL) DESC;
857:
858: l_rsa c_rsa%ROWTYPE;
859: l_params wip_logger.param_tbl_t;
860: l_returnStatus VARCHAR(1);
861: l_errMsg VARCHAR2(240);
862: l_forward NUMBER;
863: l_cur_qty NUMBER;
894: l_params(11).paramName := 'p_fm_form';
895: l_params(11).paramValue := p_fm_form;
896: l_params(12).paramName := 'p_comp_alloc';
897: l_params(12).paramValue := p_comp_alloc;
898: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
899: p_params => l_params,
900: x_returnStatus => l_returnStatus);
901: END IF;
902:
1026: x_returnStatus := fnd_api.g_ret_sts_success;
1027: x_proc_status := WIP_CONSTANTS.RUNNING;
1028: -- write to the log file
1029: IF (l_logLevel <= wip_constants.trace_logging) THEN
1030: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
1031: p_procReturnStatus => x_returnStatus,
1032: p_msg => 'procedure complete',
1033: x_returnStatus => l_returnStatus);
1034: END IF;
1040: END IF;
1041: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1042:
1043: IF (l_logLevel <= wip_constants.trace_logging) THEN
1044: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
1045: p_procReturnStatus => x_returnStatus,
1046: p_msg => l_errMsg,
1047: x_returnStatus => l_returnStatus);
1048: END IF;
1060: x_proc_status := WIP_CONSTANTS.ERROR;
1061: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1062:
1063: IF (l_logLevel <= wip_constants.trace_logging) THEN
1064: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
1065: p_procReturnStatus => x_returnStatus,
1066: p_msg => l_errMsg,
1067: x_returnStatus => l_returnStatus);
1068: END IF;
1083: p_gib IN OUT NOCOPY group_rec_t,
1084: x_oc_fm_op OUT NOCOPY NUMBER,
1085: x_returnStatus OUT NOCOPY VARCHAR2) IS
1086:
1087: l_params wip_logger.param_tbl_t;
1088: l_returnStatus VARCHAR(1);
1089: l_errMsg VARCHAR2(240);
1090: l_msgData VARCHAR2(240);
1091: l_first_op_code VARCHAR2(4);
1107: l_params(4).paramName := 'p_parent_txn_id';
1108: l_params(4).paramValue := p_parent_txn_id;
1109: l_params(5).paramName := 'child_txn_id';
1110: l_params(5).paramValue := p_gib.move_profile.child_txn_id;
1111: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1112: p_params => l_params,
1113: x_returnStatus => l_returnStatus);
1114: END IF;
1115:
1190: x_returnStatus := fnd_api.g_ret_sts_success;
1191:
1192: -- write to the log file
1193: IF (l_logLevel <= wip_constants.trace_logging) THEN
1194: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1195: p_procReturnStatus => x_returnStatus,
1196: p_msg => 'procedure complete',
1197: x_returnStatus => l_returnStatus);
1198: END IF;
1202:
1203: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1204:
1205: IF (l_logLevel <= wip_constants.trace_logging) THEN
1206: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1207: p_procReturnStatus => x_returnStatus,
1208: p_msg => l_errMsg,
1209: x_returnStatus => l_returnStatus);
1210: END IF;
1217: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1218: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1219:
1220: IF (l_logLevel <= wip_constants.trace_logging) THEN
1221: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1222: p_procReturnStatus => x_returnStatus,
1223: p_msg => l_errMsg,
1224: x_returnStatus => l_returnStatus);
1225: END IF;
1236: p_rsa_rec IN update_rsa_tbl_t,
1237: p_txn_date IN DATE,
1238: x_returnStatus OUT NOCOPY VARCHAR2) IS
1239:
1240: l_params wip_logger.param_tbl_t;
1241: l_returnStatus VARCHAR(1);
1242: l_errMsg VARCHAR2(240);
1243: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1244: l_forward_move NUMBER;
1265: l_params(9).paramName := 'p_to_step';
1266: l_params(9).paramValue := p_rsa_rec(i).toStep;
1267: l_params(10).paramName := 'p_txn_date';
1268: l_params(10).paramValue := p_txn_date;
1269: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.update_wo_rs',
1270: p_params => l_params,
1271: x_returnStatus => l_returnStatus);
1272: END IF;
1273:
1407: x_returnStatus := fnd_api.g_ret_sts_success;
1408:
1409: -- write to the log file
1410: IF (l_logLevel <= wip_constants.trace_logging) THEN
1411: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_rs',
1412: p_procReturnStatus => x_returnStatus,
1413: p_msg => 'procedure complete',
1414: x_returnStatus => l_returnStatus);
1415: END IF;
1419: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1420: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1421:
1422: IF (l_logLevel <= wip_constants.trace_logging) THEN
1423: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_rs',
1424: p_procReturnStatus => x_returnStatus,
1425: p_msg => l_errMsg,
1426: x_returnStatus => l_returnStatus);
1427: END IF;
1439: PROCEDURE update_wipops(p_txn_id IN NUMBER,
1440: p_gib IN group_rec_t,
1441: x_returnStatus OUT NOCOPY VARCHAR2) IS
1442:
1443: l_params wip_logger.param_tbl_t;
1444: l_returnStatus VARCHAR2(1);
1445: l_errMsg VARCHAR2(240);
1446: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1447:
1453: l_params(2).paramName := 'p_group_id';
1454: l_params(2).paramValue := p_gib.group_id;
1455: l_params(3).paramName := 'p_txn_date';
1456: l_params(3).paramValue := p_gib.txn_date;
1457: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.update_wipops',
1458: p_params => l_params,
1459: x_returnStatus => l_returnStatus);
1460: END IF;
1461:
1519: x_returnStatus := fnd_api.g_ret_sts_success;
1520:
1521: -- write to the log file
1522: IF (l_logLevel <= wip_constants.trace_logging) THEN
1523: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wipops',
1524: p_procReturnStatus => x_returnStatus,
1525: p_msg => 'procedure complete',
1526: x_returnStatus => l_returnStatus);
1527: END IF;
1531: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1532: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1533:
1534: IF (l_logLevel <= wip_constants.trace_logging) THEN
1535: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wipops',
1536: p_procReturnStatus => x_returnStatus,
1537: p_msg => l_errMsg,
1538: x_returnStatus => l_returnStatus);
1539: END IF;
1589: fm_intraoperation_step_type, to_intraoperation_step_type,
1590: creation_date;
1591:
1592: l_rs_txn c_rs_txn%ROWTYPE;
1593: l_params wip_logger.param_tbl_t;
1594: l_rsa rsa_tbl_t;
1595: l_update_rsa update_rsa_tbl_t;
1596: l_returnStatus VARCHAR(1);
1597: l_errMsg VARCHAR2(240);
1623: l_params(8).paramName := 'p_move_mode';
1624: l_params(8).paramValue := p_gib.move_mode;
1625: l_params(9).paramName := 'p_backflush_mode';
1626: l_params(9).paramValue := p_gib.bf_mode;
1627: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1628: p_params => l_params,
1629: x_returnStatus => l_returnStatus);
1630: END IF;
1631:
1658: x_sche_count => l_sche_count,
1659: x_rsa => l_rsa,
1660: x_returnStatus => x_returnStatus);
1661: IF (l_logLevel <= wip_constants.full_logging) THEN
1662: wip_logger.log(p_msg => 'l_proc_status = ' || l_proc_status,
1663: x_returnStatus => l_returnStatus);
1664: wip_logger.log(p_msg => 'l_sche_count = ' || l_sche_count,
1665: x_returnStatus => l_returnStatus);
1666: END IF;
1660: x_returnStatus => x_returnStatus);
1661: IF (l_logLevel <= wip_constants.full_logging) THEN
1662: wip_logger.log(p_msg => 'l_proc_status = ' || l_proc_status,
1663: x_returnStatus => l_returnStatus);
1664: wip_logger.log(p_msg => 'l_sche_count = ' || l_sche_count,
1665: x_returnStatus => l_returnStatus);
1666: END IF;
1667:
1668: IF(l_proc_status = WIP_CONSTANTS.RUNNING) THEN
1957: x_returnStatus := fnd_api.g_ret_sts_success;
1958:
1959: -- write to the log file
1960: IF (l_logLevel <= wip_constants.trace_logging) THEN
1961: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1962: p_procReturnStatus => x_returnStatus,
1963: p_msg => 'procedure complete',
1964: x_returnStatus => l_returnStatus);
1965: END IF;
1974: END IF;
1975: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1976:
1977: IF (l_logLevel <= wip_constants.trace_logging) THEN
1978: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1979: p_procReturnStatus => x_returnStatus,
1980: p_msg => l_errMsg,
1981: x_returnStatus => l_returnStatus);
1982: END IF;
1987: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1988: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1989:
1990: IF (l_logLevel <= wip_constants.trace_logging) THEN
1991: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1992: p_procReturnStatus => x_returnStatus,
1993: p_msg => l_errMsg,
1994: x_returnStatus => l_returnStatus);
1995: END IF;
2013: p_txn_date IN DATE,
2014: p_gib IN group_rec_t,
2015: x_returnStatus OUT NOCOPY VARCHAR2) IS
2016:
2017: l_params wip_logger.param_tbl_t;
2018: l_returnStatus VARCHAR(1);
2019: l_errMsg VARCHAR2(240);
2020: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2021: l_forward_move NUMBER;
2038: l_params(7).paramName := 'p_org_id';
2039: l_params(7).paramValue := p_org_id;
2040: l_params(8).paramName := 'p_wip_id';
2041: l_params(8).paramValue := p_wip_id;
2042: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.update_wo_dj',
2043: p_params => l_params,
2044: x_returnStatus => l_returnStatus);
2045: END IF;
2046:
2185: x_returnStatus := fnd_api.g_ret_sts_success;
2186:
2187: -- write to the log file
2188: IF (l_logLevel <= wip_constants.trace_logging) THEN
2189: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_dj',
2190: p_procReturnStatus => x_returnStatus,
2191: p_msg => 'procedure complete',
2192: x_returnStatus => l_returnStatus);
2193: END IF;
2197: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2198: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
2199:
2200: IF (l_logLevel <= wip_constants.trace_logging) THEN
2201: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_dj',
2202: p_procReturnStatus => x_returnStatus,
2203: p_msg => l_errMsg,
2204: x_returnStatus => l_returnStatus);
2205: END IF;
2281: AND wmti.group_id = p_gib.group_id;
2282:
2283: l_dj_txn c_dj_txn%ROWTYPE;
2284: l_ser_loc c_ser_loc%ROWTYPE;
2285: l_params wip_logger.param_tbl_t;
2286: l_returnStatus VARCHAR(1);
2287: l_errMsg VARCHAR2(240);
2288: l_msg VARCHAR(2000);
2289: l_rec_count NUMBER :=0;
2313: l_params(3).paramName := 'p_txn_date';
2314: l_params(3).paramValue := p_gib.txn_date;
2315: l_params(4).paramName := 'p_move_mode';
2316: l_params(4).paramValue := p_gib.move_mode;
2317: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2318: p_params => l_params,
2319: x_returnStatus => l_returnStatus);
2320: END IF;
2321:
2638: x_returnStatus := fnd_api.g_ret_sts_success;
2639:
2640: -- write to the log file
2641: IF (l_logLevel <= wip_constants.trace_logging) THEN
2642: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2643: p_procReturnStatus => x_returnStatus,
2644: p_msg => 'procedure complete',
2645: x_returnStatus => l_returnStatus);
2646: END IF;
2653: END IF;
2654: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2655:
2656: IF (l_logLevel <= wip_constants.trace_logging) THEN
2657: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2658: p_procReturnStatus => x_returnStatus,
2659: p_msg => l_errMsg,
2660: x_returnStatus => l_returnStatus);
2661: END IF;
2667: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2668: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
2669:
2670: IF (l_logLevel <= wip_constants.trace_logging) THEN
2671: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2672: p_procReturnStatus => x_returnStatus,
2673: p_msg => l_errMsg,
2674: x_returnStatus => l_returnStatus);
2675: END IF;
2684: ****************************************************************************/
2685: PROCEDURE get_move_profile(p_gib IN OUT NOCOPY group_rec_t,
2686: x_returnStatus OUT NOCOPY VARCHAR2) IS
2687:
2688: l_params wip_logger.param_tbl_t;
2689: l_returnStatus VARCHAR(1);
2690: l_errMsg VARCHAR2(240);
2691: l_mv_item NUMBER;
2692: l_mv_lot NUMBER;
2738: l_params(17).paramName := 'poReqItem';
2739: l_params(17).paramValue := l_move.poReqItem;
2740: l_params(18).paramName := 'poRegLot';
2741: l_params(18).paramValue := l_move.poReqLot;
2742: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.get_move_profile',
2743: p_params => l_params,
2744: x_returnStatus => l_returnStatus);
2745: END IF;
2746:
2862: x_returnStatus := fnd_api.g_ret_sts_success;
2863:
2864: -- write to the log file
2865: IF (l_logLevel <= wip_constants.trace_logging) THEN
2866: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.get_move_profile',
2867: p_procReturnStatus => x_returnStatus,
2868: p_msg => 'procedure complete',
2869: x_returnStatus => l_returnStatus);
2870: END IF;
2874: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2875: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
2876:
2877: IF (l_logLevel <= wip_constants.trace_logging) THEN
2878: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.get_move_profile',
2879: p_procReturnStatus => x_returnStatus,
2880: p_msg => l_errMsg,
2881: x_returnStatus => l_returnStatus);
2882: END IF;
2892: ****************************************************************************/
2893: PROCEDURE insert_txn_history(p_gib IN group_rec_t,
2894: x_returnStatus OUT NOCOPY VARCHAR2) IS
2895:
2896: l_params wip_logger.param_tbl_t;
2897: l_returnStatus VARCHAR(1);
2898: l_msg VARCHAR(240);
2899: l_errMsg VARCHAR2(240);
2900: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2905: l_params(1).paramName := 'p_group_id';
2906: l_params(1).paramValue := p_gib.group_id;
2907: l_params(2).paramName := 'p_txn_date';
2908: l_params(2).paramValue := p_gib.txn_date;
2909: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.insert_txn_history',
2910: p_params => l_params,
2911: x_returnStatus => l_returnStatus);
2912: END IF;
2913:
2957: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
2958: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
2959: fnd_message.set_token('ENTITY2', 'WIP_SERIAL_MOVE_TRANSACTIONS');
2960: l_msg := fnd_message.get;
2961: wip_logger.log(p_msg => l_msg,
2962: x_returnStatus => l_returnStatus);
2963: END IF;
2964:
2965: -- insert history move record into WIP_MOVE_TRANSACTIONS
3100: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3101: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3102: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TRANSACTIONS');
3103: l_msg := fnd_message.get;
3104: wip_logger.log(p_msg => l_msg,
3105: x_returnStatus => l_returnStatus);
3106: END IF;
3107:
3108: -- Repetitive Schedule
3230: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3231: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3232: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TRANSACTIONS');
3233: l_msg := fnd_message.get;
3234: wip_logger.log(p_msg => l_msg,
3235: x_returnStatus => l_returnStatus);
3236: END IF;
3237:
3238: x_returnStatus := fnd_api.g_ret_sts_success;
3238: x_returnStatus := fnd_api.g_ret_sts_success;
3239:
3240: -- write to the log file
3241: IF (l_logLevel <= wip_constants.trace_logging) THEN
3242: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_txn_history',
3243: p_procReturnStatus => x_returnStatus,
3244: p_msg => 'procedure complete',
3245: x_returnStatus => l_returnStatus);
3246: END IF;
3250: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
3251: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
3252:
3253: IF (l_logLevel <= wip_constants.trace_logging) THEN
3254: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_txn_history',
3255: p_procReturnStatus => x_returnStatus,
3256: p_msg => l_errMsg,
3257: x_returnStatus => l_returnStatus);
3258: END IF;
3269: ****************************************************************************/
3270: PROCEDURE delete_child_txn(p_gib IN group_rec_t,
3271: x_returnStatus OUT NOCOPY VARCHAR2) IS
3272:
3273: l_params wip_logger.param_tbl_t;
3274: l_returnStatus VARCHAR(1);
3275: l_errMsg VARCHAR2(240);
3276: l_outcome NUMBER := -1;
3277: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
3282: l_params(1).paramName := 'p_group_id';
3283: l_params(1).paramValue := p_gib.group_id;
3284: l_params(2).paramName := 'p_txn_date';
3285: l_params(2).paramValue := p_gib.txn_date;
3286: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.delete_child_txn',
3287: p_params => l_params,
3288: x_returnStatus => l_returnStatus);
3289: END IF;
3290:
3304: x_returnStatus := fnd_api.g_ret_sts_success;
3305:
3306: -- write to the log file
3307: IF (l_logLevel <= wip_constants.trace_logging) THEN
3308: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.delete_child_txn',
3309: p_procReturnStatus => x_returnStatus,
3310: p_msg => 'procedure complete',
3311: x_returnStatus => l_returnStatus);
3312: END IF;
3315: WHEN others THEN
3316: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
3317: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
3318: IF (l_logLevel <= wip_constants.trace_logging) THEN
3319: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.delete_child_txn',
3320: p_procReturnStatus => x_returnStatus,
3321: p_msg => l_errMsg,
3322: x_returnStatus => l_returnStatus);
3323: END IF;
3334: ****************************************************************************/
3335: PROCEDURE insert_auto_resource(p_gib IN group_rec_t,
3336: x_returnStatus OUT NOCOPY VARCHAR2) IS
3337:
3338: l_params wip_logger.param_tbl_t;
3339: l_returnStatus VARCHAR(1);
3340: l_msg VARCHAR(240);
3341: l_errMsg VARCHAR2(240);
3342: l_move move_profile_rec_t;
3380: l_params(16).paramName := 'poReqItem';
3381: l_params(16).paramValue := l_move.poReqItem;
3382: l_params(17).paramName := 'poRegLot';
3383: l_params(17).paramValue := l_move.poReqLot;
3384: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_auto_resource',
3385: p_params => l_params,
3386: x_returnStatus => l_returnStatus);
3387: END IF;
3388:
3597: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3598: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3599: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
3600: l_msg := fnd_message.get;
3601: wip_logger.log(p_msg => l_msg,
3602: x_returnStatus => l_returnStatus);
3603: END IF;
3604:
3605: END IF; -- Per item basis type for discrete jobs
3817: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3818: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3819: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
3820: l_msg := fnd_message.get;
3821: wip_logger.log(p_msg => l_msg,
3822: x_returnStatus => l_returnStatus);
3823: END IF;
3824:
3825: END IF; -- Per item basis type for repetitive schedule
4071: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4072: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4073: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4074: l_msg := fnd_message.get;
4075: wip_logger.log(p_msg => l_msg,
4076: x_returnStatus => l_returnStatus);
4077: END IF;
4078:
4079: END IF; -- Per order basis type for discrete jobs
4287: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4288: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4289: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4290: l_msg := fnd_message.get;
4291: wip_logger.log(p_msg => l_msg,
4292: x_returnStatus => l_returnStatus);
4293: END IF;
4294:
4295: END IF; -- Per order basis type for repetitive
4312: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
4313: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4314: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4315: l_msg := fnd_message.get;
4316: wip_logger.log(p_msg => l_msg,
4317: x_returnStatus => l_returnStatus);
4318: END IF;
4319:
4320: END IF; -- Either resource per item or resource per lot
4446: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4447: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4448: fnd_message.set_token('ENTITY2', 'WIP_TXN_ALLOCATIONS');
4449: l_msg := fnd_message.get;
4450: wip_logger.log(p_msg => l_msg,
4451: x_returnStatus => l_returnStatus);
4452: END IF;
4453:
4454: END IF; -- Per order basis type for repetitive
4456: x_returnStatus := fnd_api.g_ret_sts_success;
4457:
4458: -- write to the log file
4459: IF (l_logLevel <= wip_constants.trace_logging) THEN
4460: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_auto_resource',
4461: p_procReturnStatus => x_returnStatus,
4462: p_msg => 'procedure complete',
4463: x_returnStatus => l_returnStatus);
4464: END IF;
4468: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
4469: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
4470:
4471: IF (l_logLevel <= wip_constants.trace_logging) THEN
4472: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_auto_resource',
4473: p_procReturnStatus => x_returnStatus,
4474: p_msg => l_errMsg,
4475: x_returnStatus => l_returnStatus);
4476: END IF;
4489: ****************************************************************************/
4490: PROCEDURE insert_txn_alloc(p_gib IN group_rec_t,
4491: x_returnStatus OUT NOCOPY VARCHAR2) IS
4492:
4493: l_params wip_logger.param_tbl_t;
4494: l_returnStatus VARCHAR(1);
4495: l_msg VARCHAR(240);
4496: l_errMsg VARCHAR2(240);
4497: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
4500: -- write parameter value to log file
4501: IF (l_logLevel <= wip_constants.trace_logging) THEN
4502: l_params(1).paramName := 'p_group_id';
4503: l_params(1).paramValue := p_gib.group_id;
4504: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_txn_alloc',
4505: p_params => l_params,
4506: x_returnStatus => l_returnStatus);
4507: END IF;
4508:
4588: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4589: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4590: fnd_message.set_token('ENTITY2', 'WIP_TXN_ALLOCATIONS');
4591: l_msg := fnd_message.get;
4592: wip_logger.log(p_msg => l_msg,
4593: x_returnStatus => l_returnStatus);
4594: END IF;
4595:
4596: x_returnStatus := fnd_api.g_ret_sts_success;
4596: x_returnStatus := fnd_api.g_ret_sts_success;
4597:
4598: -- write to the log file
4599: IF (l_logLevel <= wip_constants.trace_logging) THEN
4600: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_txn_alloc',
4601: p_procReturnStatus => x_returnStatus,
4602: p_msg => 'procedure complete',
4603: x_returnStatus => l_returnStatus);
4604: END IF;
4608: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
4609: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
4610:
4611: IF (l_logLevel <= wip_constants.trace_logging) THEN
4612: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_txn_alloc',
4613: p_procReturnStatus => x_returnStatus,
4614: p_msg => l_errMsg,
4615: x_returnStatus => l_returnStatus);
4616: END IF;
4626: ****************************************************************************/
4627: PROCEDURE insert_dept_overhead(p_gib IN group_rec_t,
4628: x_returnStatus OUT NOCOPY VARCHAR2) IS
4629:
4630: l_params wip_logger.param_tbl_t;
4631: l_returnStatus VARCHAR(1);
4632: l_msg VARCHAR(240);
4633: l_errMsg VARCHAR2(240);
4634: l_move move_profile_rec_t;
4672: l_params(16).paramName := 'poReqItem';
4673: l_params(16).paramValue := l_move.poReqItem;
4674: l_params(17).paramName := 'poRegLot';
4675: l_params(17).paramValue := l_move.poReqLot;
4676: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_dept_overhead',
4677: p_params => l_params,
4678: x_returnStatus => l_returnStatus);
4679: END IF;
4680:
4899: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4900: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4901: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4902: l_msg := fnd_message.get;
4903: wip_logger.log(p_msg => l_msg,
4904: x_returnStatus => l_returnStatus);
4905: END IF;
4906:
4907: END IF; --Per item basis type for discrete jobs
5109: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5110: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5111: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5112: l_msg := fnd_message.get;
5113: wip_logger.log(p_msg => l_msg,
5114: x_returnStatus => l_returnStatus);
5115: END IF;
5116:
5117: END IF; -- Per item basis type for repetitive schedule
5373: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5374: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5375: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5376: l_msg := fnd_message.get;
5377: wip_logger.log(p_msg => l_msg,
5378: x_returnStatus => l_returnStatus);
5379: END IF;
5380:
5381: END IF; -- Per order basis type for discrete jobs
5579: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5580: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5581: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5582: l_msg := fnd_message.get;
5583: wip_logger.log(p_msg => l_msg,
5584: x_returnStatus => l_returnStatus);
5585: END IF;
5586:
5587: END IF; -- Per order basis type for repetitive
5601: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
5602: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5603: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5604: l_msg := fnd_message.get;
5605: wip_logger.log(p_msg => l_msg,
5606: x_returnStatus => l_returnStatus);
5607: END IF;
5608:
5609: -- For repetitive
5717: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5718: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5719: fnd_message.set_token('ENTITY2', 'WIP_TXN_ALLOCATIONS');
5720: l_msg := fnd_message.get;
5721: wip_logger.log(p_msg => l_msg,
5722: x_returnStatus => l_returnStatus);
5723: END IF;
5724:
5725: END IF; -- For repetitive
5727: x_returnStatus := fnd_api.g_ret_sts_success;
5728:
5729: -- write to the log file
5730: IF (l_logLevel <= wip_constants.trace_logging) THEN
5731: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_dept_overhead',
5732: p_procReturnStatus => x_returnStatus,
5733: p_msg => 'procedure complete',
5734: x_returnStatus => l_returnStatus);
5735: END IF;
5739: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
5740: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
5741:
5742: IF (l_logLevel <= wip_constants.trace_logging) THEN
5743: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_dept_overhead',
5744: p_procReturnStatus => x_returnStatus,
5745: p_msg => l_errMsg,
5746: x_returnStatus => l_returnStatus);
5747: END IF;
5757: ****************************************************************************/
5758: PROCEDURE release_cost_txn(p_gib IN group_rec_t,
5759: x_returnStatus OUT NOCOPY VARCHAR2) IS
5760:
5761: l_params wip_logger.param_tbl_t;
5762: l_returnStatus VARCHAR(1);
5763: l_msg VARCHAR(240);
5764: l_errMsg VARCHAR2(240);
5765: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
5770: l_params(1).paramName := 'p_group_id';
5771: l_params(1).paramValue := p_gib.group_id;
5772: l_params(2).paramName := 'p_txn_date';
5773: l_params(2).paramValue := p_gib.txn_date;
5774: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.release_cost_txn',
5775: p_params => l_params,
5776: x_returnStatus => l_returnStatus);
5777: END IF;
5778:
5786: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
5787: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5788: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5789: l_msg := fnd_message.get;
5790: wip_logger.log(p_msg => l_msg,
5791: x_returnStatus => l_returnStatus);
5792: END IF;
5793:
5794: x_returnStatus := fnd_api.g_ret_sts_success;
5794: x_returnStatus := fnd_api.g_ret_sts_success;
5795:
5796: -- write to the log file
5797: IF (l_logLevel <= wip_constants.trace_logging) THEN
5798: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.release_cost_txn',
5799: p_procReturnStatus => x_returnStatus,
5800: p_msg => 'procedure complete',
5801: x_returnStatus => l_returnStatus);
5802: END IF;
5806: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
5807: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
5808:
5809: IF (l_logLevel <= wip_constants.trace_logging) THEN
5810: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.release_cost_txn',
5811: p_procReturnStatus => x_returnStatus,
5812: p_msg => l_errMsg,
5813: x_returnStatus => l_returnStatus);
5814: END IF;
5888: WIP_CONSTANTS.PO_MOVE)
5889: AND wor.basis_type = WIP_CONSTANTS.PER_ITEM ;
5890:
5891:
5892: l_params wip_logger.param_tbl_t;
5893: l_returnStatus VARCHAR(1);
5894: l_msg VARCHAR(240);
5895: l_errMsg VARCHAR2(240);
5896: l_additional_reqs c_additional_reqs%ROWTYPE;
5936: l_params(16).paramValue := l_move.poReqItem;
5937: l_params(17).paramName := 'poRegLot';
5938: l_params(17).paramValue := l_move.poReqLot;
5939:
5940: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_po_req',
5941: p_params => l_params,
5942: x_returnStatus => l_returnStatus);
5943: END IF;
5944:
6160: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6161: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6162: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6163: l_msg := fnd_message.get;
6164: wip_logger.log(p_msg => l_msg,
6165: x_returnStatus => l_returnStatus);
6166: END IF;
6167:
6168: END IF; -- po requisition per item for jobs
6360: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6361: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6362: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6363: l_msg := fnd_message.get;
6364: wip_logger.log(p_msg => l_msg,
6365: x_returnStatus => l_returnStatus);
6366: END IF;
6367:
6368: END IF; -- po requisition per item for schedule
6602: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6603: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6604: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6605: l_msg := fnd_message.get;
6606: wip_logger.log(p_msg => l_msg,
6607: x_returnStatus => l_returnStatus);
6608: END IF;
6609:
6610: END IF; -- po requisition per lot for job
6830: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6831: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6832: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6833: l_msg := fnd_message.get;
6834: wip_logger.log(p_msg => l_msg,
6835: x_returnStatus => l_returnStatus);
6836: END IF;
6837: END IF; -- po requisition per lot for schedule
6838:
6861: x_returnStatus := fnd_api.g_ret_sts_success;
6862:
6863: -- write to the log file
6864: IF (l_logLevel <= wip_constants.trace_logging) THEN
6865: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_po_req',
6866: p_procReturnStatus => x_returnStatus,
6867: p_msg => 'procedure complete',
6868: x_returnStatus => l_returnStatus);
6869: END IF;
6876: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
6877: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
6878:
6879: IF (l_logLevel <= wip_constants.trace_logging) THEN
6880: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_po_req',
6881: p_procReturnStatus => x_returnStatus,
6882: p_msg => l_errMsg,
6883: x_returnStatus => l_returnStatus);
6884: END IF;
6948: AND br.resource_id = wor.resource_id
6949: AND br.organization_id = wor.organization_id
6950: AND br.purchase_item_id IS NOT NULL;
6951:
6952: l_params wip_logger.param_tbl_t;
6953: l_returnStatus VARCHAR(1);
6954: l_errMsg VARCHAR2(240);
6955: l_wmti_txn c_wmti_txn%ROWTYPE;
6956: l_itemkey VARCHAR2(80) := NULL;
6974: l_params(1).paramName := 'p_group_id';
6975: l_params(1).paramValue := p_gib.group_id;
6976: l_params(2).paramName := 'p_txn_date';
6977: l_params(2).paramValue := p_gib.txn_date;
6978: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.start_workflow',
6979: p_params => l_params,
6980: x_returnStatus => l_returnStatus);
6981: END IF;
6982: OPEN c_wmti_txn(p_group_id => p_gib.group_id,
7098: END IF;
7099: x_returnStatus := fnd_api.g_ret_sts_success;
7100: -- write to the log file
7101: IF (l_logLevel <= wip_constants.trace_logging) THEN
7102: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.start_workflow',
7103: p_procReturnStatus => x_returnStatus,
7104: p_msg => 'procedure complete',
7105: x_returnStatus => l_returnStatus);
7106: END IF;
7114: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7115: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7116:
7117: IF (l_logLevel <= wip_constants.trace_logging) THEN
7118: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.start_workflow',
7119: p_procReturnStatus => x_returnStatus,
7120: p_msg => l_errMsg,
7121: x_returnStatus => l_returnStatus);
7122: END IF;
7133: PROCEDURE update_complete_qty(p_gib IN group_rec_t,
7134: p_txn_id IN NUMBER := NULL,
7135: x_returnStatus OUT NOCOPY VARCHAR2) IS
7136:
7137: l_params wip_logger.param_tbl_t;
7138: l_returnStatus VARCHAR(1);
7139: l_msg VARCHAR(240);
7140: l_errMsg VARCHAR2(240);
7141: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
7148: l_params(2).paramName := 'p_txn_date';
7149: l_params(2).paramValue := p_gib.txn_date;
7150: l_params(3).paramName := 'p_txn_id';
7151: l_params(3).paramValue := p_txn_id;
7152: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.update_complete_qty',
7153: p_params => l_params,
7154: x_returnStatus => l_returnStatus);
7155: END IF;
7156:
7306: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
7307: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
7308: fnd_message.set_token('ENTITY2', 'WIP_OPERATIONS');
7309: l_msg := fnd_message.get;
7310: wip_logger.log(p_msg => l_msg,
7311: x_returnStatus => l_returnStatus);
7312: END IF;
7313:
7314: x_returnStatus := fnd_api.g_ret_sts_success;
7314: x_returnStatus := fnd_api.g_ret_sts_success;
7315:
7316: -- write to the log file
7317: IF (l_logLevel <= wip_constants.trace_logging) THEN
7318: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_complete_qty',
7319: p_procReturnStatus => x_returnStatus,
7320: p_msg => 'procedure complete',
7321: x_returnStatus => l_returnStatus);
7322: END IF;
7326: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7327: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7328:
7329: IF (l_logLevel <= wip_constants.trace_logging) THEN
7330: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.update_complete_qty',
7331: p_procReturnStatus => x_returnStatus,
7332: p_msg => l_errMsg,
7333: x_returnStatus => l_returnStatus);
7334: END IF;
7343: ****************************************************************************/
7344: PROCEDURE op_snapshot(p_mtl_temp_id IN NUMBER,
7345: x_returnStatus OUT NOCOPY VARCHAR2) IS
7346:
7347: l_params wip_logger.param_tbl_t;
7348: l_returnStatus VARCHAR(1);
7349: l_returnValue NUMBER;
7350: l_msgCount NUMBER;
7351: l_errCode VARCHAR(240);
7356: -- write parameter value to log file
7357: IF (l_logLevel <= wip_constants.trace_logging) THEN
7358: l_params(1).paramName := 'p_mtl_temp_id';
7359: l_params(1).paramValue := p_mtl_temp_id;
7360: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.op_snapshot',
7361: p_params => l_params,
7362: x_returnStatus => l_returnStatus);
7363: END IF;
7364:
7375: x_returnStatus := fnd_api.g_ret_sts_success;
7376:
7377: -- write to the log file
7378: IF (l_logLevel <= wip_constants.trace_logging) THEN
7379: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.op_snapshot',
7380: p_procReturnStatus => x_returnStatus,
7381: p_msg => 'procedure complete',
7382: x_returnStatus => l_returnStatus);
7383: END IF;
7386: WHEN fnd_api.g_exc_unexpected_error THEN
7387: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7388:
7389: IF (l_logLevel <= wip_constants.trace_logging) THEN
7390: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.op_snapshot',
7391: p_procReturnStatus => x_returnStatus,
7392: p_msg => l_errMsg,
7393: x_returnStatus => l_returnStatus);
7394: END IF;
7400: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7401: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7402:
7403: IF (l_logLevel <= wip_constants.trace_logging) THEN
7404: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.op_snapshot',
7405: p_procReturnStatus => x_returnStatus,
7406: p_msg => l_errMsg,
7407: x_returnStatus => l_returnStatus);
7408: END IF;
7432: AND (wip_entity_type = WIP_CONSTANTS.DISCRETE
7433: OR wip_entity_type = WIP_CONSTANTS.LOTBASED) /*WSM */
7434: ORDER BY transaction_date, transaction_source_id; /*Bug 7314913: Added order by clause*/
7435:
7436: l_params wip_logger.param_tbl_t;
7437: l_returnStatus VARCHAR(1);
7438: l_errMsg VARCHAR(240);
7439: l_pri_cost_method NUMBER;
7440: l_mandatory_scrap_flag NUMBER;
7453: l_params(4).paramName := 'p_txn_type_id';
7454: l_params(4).paramValue := p_txn_type_id;
7455: l_params(5).paramName := 'p_txn_action_id';
7456: l_params(5).paramValue := p_txn_action_id;
7457: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.snapshot_online',
7458: p_params => l_params,
7459: x_returnStatus => l_returnStatus);
7460: END IF;
7461:
7507: x_returnStatus := fnd_api.g_ret_sts_success;
7508:
7509: -- write to the log file
7510: IF (l_logLevel <= wip_constants.trace_logging) THEN
7511: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.snapshot_online',
7512: p_procReturnStatus => x_returnStatus,
7513: p_msg => 'procedure complete',
7514: x_returnStatus => l_returnStatus);
7515: END IF;
7518: WHEN fnd_api.g_exc_unexpected_error THEN
7519: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7520:
7521: IF (l_logLevel <= wip_constants.trace_logging) THEN
7522: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.snapshot_online',
7523: p_procReturnStatus => x_returnStatus,
7524: p_msg => l_errMsg,
7525: x_returnStatus => l_returnStatus);
7526: END IF;
7529: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7530: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7531:
7532: IF (l_logLevel <= wip_constants.trace_logging) THEN
7533: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.snapshot_online',
7534: p_procReturnStatus => x_returnStatus,
7535: p_msg => l_errMsg,
7536: x_returnStatus => l_returnStatus);
7537: END IF;
7606: OR
7607: (wmti.transaction_type IN (WIP_CONSTANTS.COMP_TXN,
7608: WIP_CONSTANTS.RET_TXN)));
7609:
7610: l_params wip_logger.param_tbl_t;
7611: l_returnStatus VARCHAR(1);
7612: l_errMsg VARCHAR(240);
7613: l_errCode VARCHAR(240);
7614: l_txns c_txns%ROWTYPE;
7626: l_params(2).paramName := 'p_txn_date';
7627: l_params(2).paramValue := p_txn_date;
7628: l_params(3).paramName := 'p_txn_id';
7629: l_params(3).paramValue := p_txn_id;
7630: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.snapshot_background',
7631: p_params => l_params,
7632: x_returnStatus => l_returnStatus);
7633: END IF;
7634:
7722: x_returnStatus := fnd_api.g_ret_sts_success;
7723:
7724: -- write to the log file
7725: IF (l_logLevel <= wip_constants.trace_logging) THEN
7726: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.snapshot_background',
7727: p_procReturnStatus => x_returnStatus,
7728: p_msg => 'procedure complete',
7729: x_returnStatus => l_returnStatus);
7730: END IF;
7733: WHEN fnd_api.g_exc_unexpected_error THEN
7734: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7735:
7736: IF (l_logLevel <= wip_constants.trace_logging) THEN
7737: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.snapshot_background',
7738: p_procReturnStatus => x_returnStatus,
7739: p_msg => l_errMsg,
7740: x_returnStatus => l_returnStatus);
7741: END IF;
7744: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7745: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7746:
7747: IF (l_logLevel <= wip_constants.trace_logging) THEN
7748: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.snapshot_background',
7749: p_procReturnStatus => x_returnStatus,
7750: p_msg => l_errMsg,
7751: x_returnStatus => l_returnStatus);
7752: END IF;
7772:
7773: l_move_rec c_move_rec%ROWTYPE;
7774: l_returnStatus VARCHAR(1);
7775: l_errMsg VARCHAR(240);
7776: l_params wip_logger.param_tbl_t;
7777: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
7778: BEGIN
7779: IF (l_logLevel <= wip_constants.trace_logging) THEN
7780: l_params(1).paramName := 'p_gib.group_id';
7782: l_params(2).paramName := 'p_gib.txn_date';
7783: l_params(2).paramValue := p_gib.txn_date;
7784: l_params(3).paramName := 'p_gib.seq_move';
7785: l_params(3).paramValue := p_gib.seq_move;
7786: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.update_wo_and_snapshot',
7787: p_params => l_params,
7788: x_returnStatus => l_returnStatus);
7789: END IF;
7790:
7832:
7833: x_returnStatus := fnd_api.g_ret_sts_success;
7834: -- write to the log file
7835: IF (l_logLevel <= wip_constants.trace_logging) THEN
7836: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.update_wo_and_snapshot',
7837: p_procReturnStatus => x_returnStatus,
7838: p_msg => 'procedure complete',
7839: x_returnStatus => l_returnStatus);
7840: END IF;
7841: EXCEPTION
7842: WHEN fnd_api.g_exc_unexpected_error THEN
7843: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7844: IF (l_logLevel <= wip_constants.trace_logging) THEN
7845: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.update_wo_and_snapshot',
7846: p_procReturnStatus => x_returnStatus,
7847: p_msg => l_errMsg,
7848: x_returnStatus => l_returnStatus);
7849: END IF;
7852: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7853: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7854:
7855: IF (l_logLevel <= wip_constants.trace_logging) THEN
7856: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.update_wo_and_snapshot',
7857: p_procReturnStatus => x_returnStatus,
7858: p_msg => l_errMsg,
7859: x_returnStatus => l_returnStatus);
7860: END IF;
7925: AND mp.organization_id = wmti.organization_id
7926: AND mp.propagate_job_change_to_po = WIP_CONSTANTS.YES;
7927:
7928:
7929: l_params wip_logger.param_tbl_t;
7930: l_mtl_alloc c_mtl_alloc%ROWTYPE;
7931: l_returnStatus VARCHAR(1);
7932: l_msg_count NUMBER;
7933: l_msg_data VARCHAR2(2000);
7985: l_params(19).paramName := 'p_move_mode';
7986: l_params(19).paramValue := p_gib.move_mode;
7987: l_params(20).paramName := 'p_mtl_mode';
7988: l_params(20).paramValue := p_gib.mtl_mode;
7989: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.scrap_txns',
7990: p_params => l_params,
7991: x_returnStatus => l_returnStatus);
7992: END IF;
7993:
8164: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
8165: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8166: fnd_message.set_token('ENTITY2', 'WIP_DISCRETE_JOBS');
8167: l_msg := fnd_message.get;
8168: wip_logger.log(p_msg => l_msg,
8169: x_returnStatus => l_returnStatus);
8170: END IF;
8171: END IF; -- END job transactions
8172:
8212: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
8213: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8214: fnd_message.set_token('ENTITY2', 'WIP_REPETITIVE_SCHEDULES');
8215: l_msg := fnd_message.get;
8216: wip_logger.log(p_msg => l_msg,
8217: x_returnStatus => l_returnStatus);
8218: END IF;
8219: END IF; -- END repetitive schedule transactions
8220:
8366: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
8367: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8368: fnd_message.set_token('ENTITY2', 'MTL_MATERIAL_TRANSACTIONS_TEMP');
8369: l_msg := fnd_message.get;
8370: wip_logger.log(p_msg => l_msg,
8371: x_returnStatus => l_returnStatus);
8372: END IF;
8373:
8374: END IF; -- discrete jobs
8501: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
8502: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8503: fnd_message.set_token('ENTITY2', 'MTL_MATERIAL_TRANSACTIONS_TEMP');
8504: l_msg := fnd_message.get;
8505: wip_logger.log(p_msg => l_msg,
8506: x_returnStatus => l_returnStatus);
8507: END IF;
8508: END IF; -- Repetitive schedules
8509: END LOOP; -- FOR l_step
8585: x_returnStatus := fnd_api.g_ret_sts_success;
8586:
8587: -- write to the log file
8588: IF (l_logLevel <= wip_constants.trace_logging) THEN
8589: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.scrap_txns',
8590: p_procReturnStatus => x_returnStatus,
8591: p_msg => 'procedure complete',
8592: x_returnStatus => l_returnStatus);
8593: END IF;
8595: EXCEPTION
8596: WHEN fnd_api.g_exc_unexpected_error THEN
8597: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
8598: IF (l_logLevel <= wip_constants.trace_logging) THEN
8599: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.scrap_txns',
8600: p_procReturnStatus => x_returnStatus,
8601: p_msg => l_errMsg,
8602: x_returnStatus => l_returnStatus);
8603: END IF;
8606: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
8607: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
8608:
8609: IF (l_logLevel <= wip_constants.trace_logging) THEN
8610: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.scrap_txns',
8611: p_procReturnStatus => x_returnStatus,
8612: p_msg => l_errMsg,
8613: x_returnStatus => l_returnStatus);
8614: END IF;
8643: AND transaction_action_id IN (WIP_CONSTANTS.RETASSY_ACTION,
8644: WIP_CONSTANTS.CPLASSY_ACTION);
8645:
8646: l_repAssembly c_repAssembly%ROWTYPE;
8647: l_params wip_logger.param_tbl_t;
8648: l_returnStatus VARCHAR(1);
8649: l_errMsg VARCHAR(240);
8650: l_msg VARCHAR(240);
8651: l_step NUMBER;
8709: l_params(21).paramValue := p_txn_type;
8710: l_params(22).paramName := 'p_assy_header_id';
8711: l_params(22).paramValue := p_gib.assy_header_id;
8712:
8713: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.ez_completion',
8714: p_params => l_params,
8715: x_returnStatus => l_returnStatus);
8716: END IF;
8717:
9051: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
9052: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
9053: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTIONS_INTERFACE');
9054: l_msg := fnd_message.get;
9055: wip_logger.log(p_msg => l_msg,
9056: x_returnStatus => l_returnStatus);
9057: END IF;
9058:
9059: /* Only allow lot control for discrete/OSFM jobs */
9076: -- IF debug message level = 2, write statement below to log file
9077: IF (l_logLevel <= wip_constants.full_logging) THEN
9078: l_msg := 'No. of records in mti updated for lot controlled ' ||
9079: 'assemblies : ' || l_mti_lot_rec;
9080: wip_logger.log(p_msg => l_msg,
9081: x_returnStatus => l_returnStatus);
9082: END IF;
9083:
9084: /* IF records under lot control THEN continue */
9155: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
9156: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
9157: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
9158: l_msg := fnd_message.get;
9159: wip_logger.log(p_msg => l_msg,
9160: x_returnStatus => l_returnStatus);
9161: END IF;
9162:
9163: /* Update lot records with an expiration date */
9213: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
9214: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
9215: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
9216: l_msg := fnd_message.get;
9217: wip_logger.log(p_msg => l_msg,
9218: x_returnStatus => l_returnStatus);
9219: END IF;
9220:
9221: /* IF Exp date null in MTL_LOT_NUMBERS should I leave it null */
9259: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
9260: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
9261: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
9262: l_msg := fnd_message.get;
9263: wip_logger.log(p_msg => l_msg,
9264: x_returnStatus => l_returnStatus);
9265: END IF;
9266:
9267: END IF; -- (l_mti_lot_rec > 0)
9285: -- IF debug message level = 2, write statement below to log file
9286: IF (l_logLevel <= wip_constants.full_logging) THEN
9287: l_msg := 'No. of records in mti updated for serial controlled ' ||
9288: 'assemblies : ' || l_mti_ser_rec;
9289: wip_logger.log(p_msg => l_msg,
9290: x_returnStatus => l_returnStatus);
9291: END IF;
9292:
9293: /* IF records under serial control THEN continue */
9336: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
9337: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
9338: fnd_message.set_token('ENTITY2', 'MTL_SERIAL_NUMBERS_INTERFACE');
9339: l_msg := fnd_message.get;
9340: wip_logger.log(p_msg => l_msg,
9341: x_returnStatus => l_returnStatus);
9342: END IF;
9343: END IF; -- Discrete or OSFM jobs
9344:
9416: x_returnStatus := fnd_api.g_ret_sts_success;
9417:
9418: -- write to the log file
9419: IF (l_logLevel <= wip_constants.trace_logging) THEN
9420: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.ez_completion',
9421: p_procReturnStatus => x_returnStatus,
9422: p_msg => 'procedure complete',
9423: x_returnStatus => l_returnStatus);
9424: END IF;
9426: EXCEPTION
9427: WHEN fnd_api.g_exc_unexpected_error THEN
9428: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9429: IF (l_logLevel <= wip_constants.trace_logging) THEN
9430: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.ez_completion',
9431: p_procReturnStatus => x_returnStatus,
9432: p_msg => l_errMsg,
9433: x_returnStatus => l_returnStatus);
9434: END IF;
9437: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9438: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
9439:
9440: IF (l_logLevel <= wip_constants.trace_logging) THEN
9441: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.ez_completion',
9442: p_procReturnStatus => x_returnStatus,
9443: p_msg => l_errMsg,
9444: x_returnStatus => l_returnStatus);
9445: END IF;
9456: ****************************************************************************/
9457: PROCEDURE update_wro(p_gib IN group_rec_t,
9458: x_returnStatus OUT NOCOPY VARCHAR2) IS
9459:
9460: l_params wip_logger.param_tbl_t;
9461: l_returnStatus VARCHAR(1);
9462: l_errMsg VARCHAR2(240);
9463: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
9464:
9467: l_params(1).paramName := 'p_group_id';
9468: l_params(1).paramValue := p_gib.group_id;
9469: l_params(2).paramName := 'p_txn_date';
9470: l_params(2).paramValue := p_gib.txn_date;
9471: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.update_wro',
9472: p_params => l_params,
9473: x_returnStatus => l_returnStatus);
9474: END IF;
9475:
9536: x_returnStatus := fnd_api.g_ret_sts_success;
9537:
9538: -- write to the log file
9539: IF (l_logLevel <= wip_constants.trace_logging) THEN
9540: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wro',
9541: p_procReturnStatus => x_returnStatus,
9542: p_msg => 'procedure complete',
9543: x_returnStatus => l_returnStatus);
9544: END IF;
9548: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9549: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
9550:
9551: IF (l_logLevel <= wip_constants.trace_logging) THEN
9552: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.update_wro',
9553: p_procReturnStatus => x_returnStatus,
9554: p_msg => l_errMsg,
9555: x_returnStatus => l_returnStatus);
9556: END IF;
9566:
9567: PROCEDURE move_txns(p_gib IN OUT NOCOPY group_rec_t,
9568: x_returnStatus OUT NOCOPY VARCHAR2) IS
9569:
9570: l_params wip_logger.param_tbl_t;
9571: l_returnStatus VARCHAR(1);
9572: l_errMsg VARCHAR(240);
9573: l_move move_profile_rec_t;
9574: l_po BOOLEAN;
9642: l_params(30).paramName := 'p_poReqItem';
9643: l_params(30).paramValue := l_move.poReqItem;
9644: l_params(31).paramName := 'p_poReqLot';
9645: l_params(31).paramValue := l_move.poReqLot;
9646: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.move_txns',
9647: p_params => l_params,
9648: x_returnStatus => l_returnStatus);
9649: END IF;
9650:
9807: x_returnStatus := fnd_api.g_ret_sts_success;
9808:
9809: -- write to the log file
9810: IF (l_logLevel <= wip_constants.trace_logging) THEN
9811: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.move_txns',
9812: p_procReturnStatus => x_returnStatus,
9813: p_msg => 'procedure complete',
9814: x_returnStatus => l_returnStatus);
9815: END IF;
9817: EXCEPTION
9818: WHEN fnd_api.g_exc_unexpected_error THEN
9819: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9820: IF (l_logLevel <= wip_constants.trace_logging) THEN
9821: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.move_txns',
9822: p_procReturnStatus => x_returnStatus,
9823: p_msg => l_errMsg,
9824: x_returnStatus => l_returnStatus);
9825: END IF;
9828: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9829: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
9830:
9831: IF (l_logLevel <= wip_constants.trace_logging) THEN
9832: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.move_txns',
9833: p_procReturnStatus => x_returnStatus,
9834: p_msg => l_errMsg,
9835: x_returnStatus => l_returnStatus);
9836: END IF;
9942: l_gib group_rec_t;
9943: l_move_online c_move_online%ROWTYPE;
9944: l_backflush c_backflush%ROWTYPE;
9945: l_jobs c_jobs%ROWTYPE;
9946: l_params wip_logger.param_tbl_t;
9947: l_returnStatus VARCHAR(1);
9948: l_errMsg VARCHAR(2000);
9949: l_msg VARCHAR(240);
9950: l_bf_mode NUMBER;
10007: l_params(12).paramValue := p_assy_header_id;
10008: l_params(13).paramName := 'p_allow_partial_commit';
10009: l_params(13).paramValue := p_allow_partial_commit;
10010:
10011: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.processIntf',
10012: p_params => l_params,
10013: x_returnStatus => l_returnStatus);
10014: END IF;
10015:
10094: l_gib.seq_move := NVL(p_seq_move, WIP_CONSTANTS.NO);
10095: END IF; -- move is online
10096:
10097: /*Bug 13992087: Check if the job associated to any EZ Completion record is locked. If yes, then error that transaction*/
10098: wip_logger.log('Check to see if job associated to any EZ Completion WMTI record is locked', l_returnStatus);
10099: FOR l_jobs IN c_jobs LOOP
10100: wip_logger.log('Looking at job id: ' || l_jobs.wip_entity_id || ' txn id: ' || l_jobs.txn_id || ' txn_type: ' || l_jobs.txn_type, l_returnStatus);
10101: begin
10102: select wip_entity_id into l_wip_entity_id
10096:
10097: /*Bug 13992087: Check if the job associated to any EZ Completion record is locked. If yes, then error that transaction*/
10098: wip_logger.log('Check to see if job associated to any EZ Completion WMTI record is locked', l_returnStatus);
10099: FOR l_jobs IN c_jobs LOOP
10100: wip_logger.log('Looking at job id: ' || l_jobs.wip_entity_id || ' txn id: ' || l_jobs.txn_id || ' txn_type: ' || l_jobs.txn_type, l_returnStatus);
10101: begin
10102: select wip_entity_id into l_wip_entity_id
10103: from wip_discrete_jobs
10104: where wip_entity_id = l_jobs.wip_entity_id
10102: select wip_entity_id into l_wip_entity_id
10103: from wip_discrete_jobs
10104: where wip_entity_id = l_jobs.wip_entity_id
10105: for update nowait;
10106: wip_logger.log('no lock existed for this job', l_returnStatus);
10107: exception
10108: when wip_constants.records_locked then
10109: wip_logger.log('Job is locked', l_returnStatus);
10110: IF(p_move_mode = WIP_CONSTANTS.BACKGROUND) THEN
10105: for update nowait;
10106: wip_logger.log('no lock existed for this job', l_returnStatus);
10107: exception
10108: when wip_constants.records_locked then
10109: wip_logger.log('Job is locked', l_returnStatus);
10110: IF(p_move_mode = WIP_CONSTANTS.BACKGROUND) THEN
10111: wip_logger.log('background mode is ON', l_returnStatus);
10112: /* Update process status to error */
10113: UPDATE wip_move_txn_interface
10107: exception
10108: when wip_constants.records_locked then
10109: wip_logger.log('Job is locked', l_returnStatus);
10110: IF(p_move_mode = WIP_CONSTANTS.BACKGROUND) THEN
10111: wip_logger.log('background mode is ON', l_returnStatus);
10112: /* Update process status to error */
10113: UPDATE wip_move_txn_interface
10114: SET process_status = WIP_CONSTANTS.ERROR
10115: WHERE group_id = p_group_id
10114: SET process_status = WIP_CONSTANTS.ERROR
10115: WHERE group_id = p_group_id
10116: AND process_status = WIP_CONSTANTS.RUNNING
10117: AND transaction_id = l_jobs.txn_id;
10118: wip_logger.log('Updated WMTI record to error', l_returnStatus);
10119:
10120: select WIP_ENTITY_NAME into l_job_name from wip_entities where WIP_ENTITY_ID = l_jobs.wip_entity_id;
10121: fnd_message.set_name('WIP', 'WIP_WORK_ORDER_LOCKED');
10122: fnd_message.set_token('JOBNAME', l_job_name);
10120: select WIP_ENTITY_NAME into l_job_name from wip_entities where WIP_ENTITY_ID = l_jobs.wip_entity_id;
10121: fnd_message.set_name('WIP', 'WIP_WORK_ORDER_LOCKED');
10122: fnd_message.set_token('JOBNAME', l_job_name);
10123: l_errMsg := fnd_message.get;
10124: wip_logger.log(l_errMsg, l_returnStatus);
10125: /* insert error messages */
10126: INSERT INTO wip_txn_interface_errors
10127: (transaction_id,
10128: error_column,
10151: SYSDATE -- program_update_date
10152: FROM wip_move_txn_interface wmti
10153: WHERE wmti.group_id = p_group_id
10154: AND transaction_id = l_jobs.txn_id;
10155: wip_logger.log('Inserted error message into WTIE', l_returnStatus);
10156: END IF;
10157: end;
10158: END LOOP;
10159: wip_logger.log('Completed the check for Jobs being locked', l_returnStatus);
10155: wip_logger.log('Inserted error message into WTIE', l_returnStatus);
10156: END IF;
10157: end;
10158: END LOOP;
10159: wip_logger.log('Completed the check for Jobs being locked', l_returnStatus);
10160: /*END 13992087*/
10161:
10162: IF(p_proc_phase = WIP_CONSTANTS.MOVE_VAL) THEN
10163: /*----------------+
10352:
10353: CLOSE c_qa_id; /* Bug 4204892 - Close the cursor c_qa_id to avoid ORA-6511. */
10354:
10355: IF (l_logLevel <= wip_constants.full_logging) THEN
10356: wip_logger.log(p_msg => 'QA enable success',
10357: x_returnStatus => l_returnStatus);
10358: END IF;
10359:
10360: UPDATE wip_move_txn_interface
10369: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
10370: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
10371: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TXN_INTERFACE');
10372: l_msg := fnd_message.get;
10373: wip_logger.log(p_msg => l_msg,
10374: x_returnStatus => l_returnStatus);
10375: END IF;
10376:
10377: IF(p_allow_partial_commit = WIP_CONSTANTS.YES) THEN
10592: END IF;
10593: IF (l_logLevel <= wip_constants.trace_logging) THEN
10594: l_errMsg := 'move_txn_id: ' || l_backflush.txn_id ||
10595: ' failed because ' || l_errMsg;
10596: wip_logger.log(p_msg => l_errMsg,
10597: x_returnStatus => l_returnStatus);
10598: END IF;
10599: END IF;
10600: END;
10618: write_mtl_errors(p_mtl_header_id => l_gib.mtl_header_id);
10619: IF (l_logLevel <= wip_constants.full_logging) THEN
10620: l_errMsg := 'wip_mtlTempProc_priv.validateInterfaceTxns failed'||
10621: ' (component records)' ;
10622: wip_logger.log(p_msg => l_errMsg,
10623: x_returnStatus => l_returnStatus);
10624: END IF;
10625: -- Fixed bug 5056289. We will not raise exception because we still
10626: -- want to process the components that pass validation.
10754: ROLLBACK TO SAVEPOINT s_move_proc;
10755: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10756: END IF;
10757: IF (l_logLevel <= wip_constants.trace_logging) THEN
10758: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.processIntf',
10759: p_procReturnStatus => x_returnStatus,
10760: p_msg => l_errMsg,
10761: x_returnStatus => l_returnStatus);
10762: END IF;
10761: x_returnStatus => l_returnStatus);
10762: END IF;
10763: -- close log file
10764: IF (p_ENDDebug = fnd_api.g_true) THEN
10765: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10766: END IF;
10767: GOTO END_program;
10768: END IF; -- move mode is background
10769:
10815: WHERE wtie.transaction_id = wmti.transaction_id);
10816: ELSE -- move mode is online
10817: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10818: IF (l_logLevel <= wip_constants.trace_logging) THEN
10819: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.processIntf',
10820: p_procReturnStatus => x_returnStatus,
10821: p_msg => 'unexpected error: ' || SQLERRM,
10822: x_returnStatus => l_returnStatus);
10823: END IF;
10822: x_returnStatus => l_returnStatus);
10823: END IF;
10824: -- close log file
10825: IF (p_ENDDebug = fnd_api.g_true) THEN
10826: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10827: END IF;
10828: GOTO END_program;
10829: END IF; -- move mode is background
10830: END;
10891: -- applicable for background transaction.
10892: --fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
10893: --fnd_msg_pub.add;
10894: IF (l_logLevel <= wip_constants.trace_logging) THEN
10895: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processIntf',
10896: p_procReturnStatus => x_returnStatus,
10897: p_msg => 'some records error out',
10898: x_returnStatus => l_returnStatus);
10899: END IF;
10898: x_returnStatus => l_returnStatus);
10899: END IF;
10900: -- close log file
10901: IF (p_ENDDebug = fnd_api.g_true) THEN
10902: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10903: END IF;
10904: /*Bug 5727221 (FP of 5580093): Mobile WIP Transaction seems to be leaving
10905: transaction in WMTI in some exception case. However there is no error
10906: message propagated back to UI. As a result transaction goes through fine
10910: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10911: ELSE
10912: x_returnStatus := fnd_api.g_ret_sts_success;
10913: IF (l_logLevel <= wip_constants.trace_logging) THEN
10914: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processIntf',
10915: p_procReturnStatus => x_returnStatus,
10916: p_msg => 'no record in this group error out',
10917: x_returnStatus => l_returnStatus);
10918: END IF;
10917: x_returnStatus => l_returnStatus);
10918: END IF;
10919: -- close log file
10920: IF (p_ENDDebug = fnd_api.g_true) THEN
10921: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10922: END IF;
10923: END IF;
10924:
10925: <
10997:
10998: PROCEDURE repetitive_scrap(p_tmp_id IN NUMBER,
10999: x_returnStatus OUT NOCOPY VARCHAR2) IS
11000:
11001: l_params wip_logger.param_tbl_t;
11002: l_returnStatus VARCHAR2(1);
11003: l_msg VARCHAR(240);
11004: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
11005: BEGIN
11006: -- write parameter value to log file
11007: IF (l_logLevel <= wip_constants.trace_logging) THEN
11008: l_params(1).paramName := 'p_tmp_id';
11009: l_params(1).paramValue := p_tmp_id;
11010: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.repetitive_scrap',
11011: p_params => l_params,
11012: x_returnStatus => l_returnStatus);
11013: END IF;
11014: -- insert into mtl_material_txn_allocations for repetitive schedule
11060: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
11061: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
11062: fnd_message.set_token('ENTITY2', 'MTL_MATERIAL_TXN_ALLOCATIONS');
11063: l_msg := fnd_message.get;
11064: wip_logger.log(p_msg => l_msg,
11065: x_returnStatus => l_returnStatus);
11066: END IF;
11067: x_returnStatus := fnd_api.g_ret_sts_success;
11068:
11071: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
11072: l_msg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
11073:
11074: IF (l_logLevel <= wip_constants.trace_logging) THEN
11075: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.repetitive_scrap',
11076: p_procReturnStatus => x_returnStatus,
11077: p_msg => l_msg,
11078: x_returnStatus => l_returnStatus);
11079: END IF;
11341: l_process_phase VARCHAR2(3);
11342: l_return_status VARCHAR(1);
11343: l_errors c_errors%ROWTYPE;
11344: l_move_records c_move_records%ROWTYPE;
11345: l_params wip_logger.param_tbl_t;
11346: l_msg_count NUMBER; /* VJ Label Printing */
11347: l_msg_stack VARCHAR2(2000); /* VJ Label Printing */
11348: L_LABEL_STATUS varchar2(1); /*Bug 13103060 print completion label for ez completion*/
11349: l_msg VARCHAR2(2000);
11369: l_params(6).paramValue := p_print_label; /* VJ Label Printing */
11370: l_params(7).paramName := 'p_print_cmpl_label'; /*Bug 13103060*/
11371: l_params(7).paramValue := p_print_cmpl_label; /*Bug 13103060*/
11372:
11373: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.processOATxn',
11374: p_params => l_params,
11375: x_returnStatus => l_return_status);
11376: END IF;
11377: l_process_phase := '2';
11439: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
11440: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
11441: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
11442: l_msg := fnd_message.get;
11443: wip_logger.log(p_msg => l_msg,
11444: x_returnStatus => l_return_status);
11445: END IF;
11446:
11447: /* IF Exp date null in MTL_LOT_NUMBERS should I leave it null */
11483: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
11484: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
11485: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
11486: l_msg := fnd_message.get;
11487: wip_logger.log(p_msg => l_msg,
11488: x_returnStatus => l_return_status);
11489: END IF;
11490:
11491: END IF; -- (l_mti_lot_rec > 0)
11517: -- do not error out if label printing, only put warning message in log
11518: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
11519: wip_utilities.get_message_stack(p_msg => l_msg_stack);
11520: IF (l_log_level <= wip_constants.full_logging) then
11521: wip_logger.log(p_msg => 'An error has occurred with label printing.\n' ||
11522: 'The following error has occurred during ' ||
11523: 'printing: ' || l_msg_stack || '\n' ||
11524: 'Please check the Inventory log file for more ' ||
11525: 'information.',
11576: -- do not error out if label printing, only put warning message in log
11577: IF(l_return_status <> fnd_api.g_ret_sts_success) THEN
11578: wip_utilities.get_message_stack(p_msg => l_msg_stack);
11579: IF (l_log_level <= wip_constants.full_logging) THEN
11580: wip_logger.log(p_msg => 'An error has occurred with label printing.\n' ||
11581: 'The following error has occurred during ' ||
11582: 'printing: ' || l_msg_stack || '\n' ||
11583: 'Please check the Inventory log file for more ' ||
11584: 'information.',
11593: x_returnStatus := fnd_api.g_ret_sts_success;
11594:
11595: -- write to the log file
11596: IF (l_log_level <= wip_constants.trace_logging) THEN
11597: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processOATxn',
11598: p_procReturnStatus => x_returnStatus,
11599: p_msg => 'procedure complete',
11600: x_returnStatus => l_return_status);
11601: END IF;
11599: p_msg => 'procedure complete',
11600: x_returnStatus => l_return_status);
11601: END IF;
11602: -- close log file
11603: wip_logger.cleanUp(x_returnStatus => l_return_status);
11604: EXCEPTION
11605: WHEN fnd_api.g_exc_unexpected_error THEN
11606: -- Fixed bug 5518780. We should not clear message from the stack.
11607: -- If it fails inventory validation, no error will be recorded in WTIE.
11614: END LOOP;
11615: ROLLBACK TO SAVEPOINT s_oa_txn_proc;
11616: x_returnStatus := fnd_api.g_ret_sts_error;
11617: IF (l_log_level <= wip_constants.trace_logging) THEN
11618: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processOATxn',
11619: p_procReturnStatus => x_returnStatus,
11620: p_msg => 'wip_movProc_priv.processOATxn failed : '
11621: || l_process_phase,
11622: x_returnStatus => l_return_status);
11621: || l_process_phase,
11622: x_returnStatus => l_return_status);
11623: END IF;
11624: -- close log file
11625: wip_logger.cleanUp(x_returnStatus => l_return_status);
11626: WHEN others THEN
11627: ROLLBACK TO SAVEPOINT s_oa_txn_proc;
11628: x_returnStatus := fnd_api.g_ret_sts_error;
11629: l_error_msg := ' unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
11632: fnd_message.set_token('MESSAGE', l_error_msg);
11633: fnd_msg_pub.add;
11634:
11635: IF (l_log_level <= wip_constants.trace_logging) THEN
11636: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processOATxn',
11637: p_procReturnStatus => x_returnStatus,
11638: p_msg => l_error_msg || ' : ' || l_process_phase,
11639: x_returnStatus => l_return_status);
11640: END IF;
11638: p_msg => l_error_msg || ' : ' || l_process_phase,
11639: x_returnStatus => l_return_status);
11640: END IF;
11641: -- close log file
11642: wip_logger.cleanUp(x_returnStatus => l_return_status);
11643: END processOATxn;
11644:
11645: /*****************************************************************************
11646: * This procedure update the lock_flag value to 'N' in MMTT if the move