[Home] [Help]
164:
165: l_repAssembly c_repAssembly%ROWTYPE;
166: l_discAssembly c_discAssembly%ROWTYPE;
167: l_OSFMAssembly c_OSFMAssembly%ROWTYPE;
168: l_params wip_logger.param_tbl_t;
169: l_returnStatus VARCHAR2(1);
170: l_errMsg VARCHAR(240);
171: l_msg VARCHAR(240);
172: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
189: l_params(4).paramValue := p_move_txn_id;
190: l_params(5).paramName := 'p_entity_type';
191: l_params(5).paramValue := p_entity_type;
192:
193: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.backflush_assy_pull',
194: p_params => l_params,
195: x_returnStatus => l_returnStatus);
196: END IF;
197: IF(p_entity_type = WIP_CONSTANTS.REPETITIVE) THEN
323: END LOOP; -- OSFM
324: END IF; -- entity_type check
325: -- write to the log file
326: IF (l_logLevel <= wip_constants.trace_logging) THEN
327: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.backflush_assy_pull',
328: p_procReturnStatus => 'S',
329: p_msg => 'procedure complete',
330: x_returnStatus => l_returnStatus);
331: END IF;
339: ****************************************************************************/
340: PROCEDURE component_cleanup(p_mtl_header_id IN NUMBER,
341: p_group_id IN NUMBER) IS
342:
343: l_params wip_logger.param_tbl_t;
344: l_returnStatus VARCHAR(1);
345: l_msg VARCHAR(240);
346: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
347: BEGIN
350: l_params(1).paramName := 'p_mtl_header_id';
351: l_params(1).paramValue := p_mtl_header_id;
352: l_params(2).paramName := 'p_group_id';
353: l_params(2).paramValue := p_group_id;
354: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.component_cleanup',
355: p_params => l_params,
356: x_returnStatus => l_returnStatus);
357: END IF;
358: -- Update status of move record to error if components fail inventory
371: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
372: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
373: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TXN_INTERFACE');
374: l_msg := fnd_message.get;
375: wip_logger.log(p_msg => l_msg,
376: x_returnStatus => l_returnStatus);
377: END IF;
378:
379: -- Delete error records from MTLI
385:
386: IF (l_logLevel <= wip_constants.full_logging) THEN
387: l_msg := SQL%ROWCOUNT ||
388: ' rows deleted from mtl_transaction_lots_interface';
389: wip_logger.log(p_msg => l_msg,
390: x_returnStatus => l_returnStatus);
391: END IF;
392:
393: -- Delete error records from MTI
396:
397: IF (l_logLevel <= wip_constants.full_logging) THEN
398: l_msg := SQL%ROWCOUNT ||
399: ' rows deleted from mtl_transactions_interface';
400: wip_logger.log(p_msg => l_msg,
401: x_returnStatus => l_returnStatus);
402: END IF;
403:
404: l_returnStatus := fnd_api.g_ret_sts_success;
402: END IF;
403:
404: l_returnStatus := fnd_api.g_ret_sts_success;
405: IF (l_logLevel <= wip_constants.trace_logging) THEN
406: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.component_cleanup',
407: p_procReturnStatus => l_returnStatus,
408: p_msg => 'procedure complete',
409: x_returnStatus => l_returnStatus);
410: END IF;
488: AND mti.organization_id = msik.organization_id
489: AND mti.error_explanation IS NOT NULL;
490:
491: l_mtl_errors c_mtl_errors%ROWTYPE;
492: l_params wip_logger.param_tbl_t;
493: l_returnStatus VARCHAR(1);
494: l_errMsg VARCHAR2(240);
495: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
496: l_count NUMBER;
498: -- write parameter value to log file
499: IF (l_logLevel <= wip_constants.trace_logging) THEN
500: l_params(1).paramName := 'p_mtl_header_id';
501: l_params(1).paramValue := p_mtl_header_id;
502: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.write_mtl_errors',
503: p_params => l_params,
504: x_returnStatus => l_returnStatus);
505: END IF;
506: l_count := 0;
525: -- fail inventory validation code.
526: fnd_msg_pub.initialize;
527:
528: IF (l_logLevel <= wip_constants.full_logging) THEN
529: wip_logger.log(p_msg => l_count || ' records inserted',
530: x_returnStatus => l_returnStatus);
531: END IF;
532:
533: l_returnStatus := fnd_api.g_ret_sts_success;
531: END IF;
532:
533: l_returnStatus := fnd_api.g_ret_sts_success;
534: IF (l_logLevel <= wip_constants.trace_logging) THEN
535: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.write_mtl_errors',
536: p_procReturnStatus => l_returnStatus,
537: p_msg => 'procedure complete',
538: x_returnStatus => l_returnStatus);
539: END IF;
542: l_returnStatus := fnd_api.g_ret_sts_unexp_error;
543: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
544:
545: IF (l_logLevel <= wip_constants.trace_logging) THEN
546: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.write_mtl_errors',
547: p_procReturnStatus => l_returnStatus,
548: p_msg => l_errMsg,
549: x_returnStatus => l_returnStatus);
550: END IF;
591:
592: l_wipops c_wipops%ROWTYPE;
593: l_returnStatus VARCHAR(1);
594: l_errMsg VARCHAR2(240);
595: l_params wip_logger.param_tbl_t;
596: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
597:
598: BEGIN
599: -- write parameter value to log file
601: l_params(1).paramName := 'p_group_id';
602: l_params(1).paramValue := p_gib.group_id;
603: l_params(2).paramName := 'p_txn_date';
604: l_params(2).paramValue := p_gib.txn_date;
605: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.lock_wipops',
606: p_params => l_params,
607: x_returnStatus => l_returnStatus);
608: END IF;
609:
616: x_returnStatus := fnd_api.g_ret_sts_success;
617:
618: -- write to the log file
619: IF (l_logLevel <= wip_constants.trace_logging) THEN
620: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.lock_wipops',
621: p_procReturnStatus => x_returnStatus,
622: p_msg => 'procedure complete',
623: x_returnStatus => l_returnStatus);
624: END IF;
631: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
632: l_errMsg := 'Unable to lock the record in wip_operations';
633:
634: IF (l_logLevel <= wip_constants.trace_logging) THEN
635: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.lock_wipops',
636: p_procReturnStatus => x_returnStatus,
637: p_msg => l_errMsg,
638: x_returnStatus => l_returnStatus);
639: END IF;
647: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
648: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
649:
650: IF (l_logLevel <= wip_constants.trace_logging) THEN
651: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.lock_wipops',
652: p_procReturnStatus => x_returnStatus,
653: p_msg => l_errMsg,
654: x_returnStatus => l_returnStatus);
655: END IF;
734: wrs.first_unit_start_date), -- no routing
735: NULL) DESC;
736:
737: l_rsa c_rsa%ROWTYPE;
738: l_params wip_logger.param_tbl_t;
739: l_returnStatus VARCHAR(1);
740: l_errMsg VARCHAR2(240);
741: l_forward NUMBER;
742: l_cur_qty NUMBER;
773: l_params(11).paramName := 'p_fm_form';
774: l_params(11).paramValue := p_fm_form;
775: l_params(12).paramName := 'p_comp_alloc';
776: l_params(12).paramValue := p_comp_alloc;
777: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
778: p_params => l_params,
779: x_returnStatus => l_returnStatus);
780: END IF;
781:
905: x_returnStatus := fnd_api.g_ret_sts_success;
906: x_proc_status := WIP_CONSTANTS.RUNNING;
907: -- write to the log file
908: IF (l_logLevel <= wip_constants.trace_logging) THEN
909: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
910: p_procReturnStatus => x_returnStatus,
911: p_msg => 'procedure complete',
912: x_returnStatus => l_returnStatus);
913: END IF;
919: END IF;
920: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
921:
922: IF (l_logLevel <= wip_constants.trace_logging) THEN
923: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
924: p_procReturnStatus => x_returnStatus,
925: p_msg => l_errMsg,
926: x_returnStatus => l_returnStatus);
927: END IF;
939: x_proc_status := WIP_CONSTANTS.ERROR;
940: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
941:
942: IF (l_logLevel <= wip_constants.trace_logging) THEN
943: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.schedule_alloc',
944: p_procReturnStatus => x_returnStatus,
945: p_msg => l_errMsg,
946: x_returnStatus => l_returnStatus);
947: END IF;
962: p_gib IN OUT NOCOPY group_rec_t,
963: x_oc_fm_op OUT NOCOPY NUMBER,
964: x_returnStatus OUT NOCOPY VARCHAR2) IS
965:
966: l_params wip_logger.param_tbl_t;
967: l_returnStatus VARCHAR(1);
968: l_errMsg VARCHAR2(240);
969: l_msgData VARCHAR2(240);
970: l_first_op_code VARCHAR2(4);
986: l_params(4).paramName := 'p_parent_txn_id';
987: l_params(4).paramValue := p_parent_txn_id;
988: l_params(5).paramName := 'child_txn_id';
989: l_params(5).paramValue := p_gib.move_profile.child_txn_id;
990: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
991: p_params => l_params,
992: x_returnStatus => l_returnStatus);
993: END IF;
994:
1069: x_returnStatus := fnd_api.g_ret_sts_success;
1070:
1071: -- write to the log file
1072: IF (l_logLevel <= wip_constants.trace_logging) THEN
1073: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1074: p_procReturnStatus => x_returnStatus,
1075: p_msg => 'procedure complete',
1076: x_returnStatus => l_returnStatus);
1077: END IF;
1081:
1082: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1083:
1084: IF (l_logLevel <= wip_constants.trace_logging) THEN
1085: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1086: p_procReturnStatus => x_returnStatus,
1087: p_msg => l_errMsg,
1088: x_returnStatus => l_returnStatus);
1089: END IF;
1096: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1097: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1098:
1099: IF (l_logLevel <= wip_constants.trace_logging) THEN
1100: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_alloc_child',
1101: p_procReturnStatus => x_returnStatus,
1102: p_msg => l_errMsg,
1103: x_returnStatus => l_returnStatus);
1104: END IF;
1115: p_rsa_rec IN update_rsa_tbl_t,
1116: p_txn_date IN DATE,
1117: x_returnStatus OUT NOCOPY VARCHAR2) IS
1118:
1119: l_params wip_logger.param_tbl_t;
1120: l_returnStatus VARCHAR(1);
1121: l_errMsg VARCHAR2(240);
1122: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1123: l_forward_move NUMBER;
1144: l_params(9).paramName := 'p_to_step';
1145: l_params(9).paramValue := p_rsa_rec(i).toStep;
1146: l_params(10).paramName := 'p_txn_date';
1147: l_params(10).paramValue := p_txn_date;
1148: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.update_wo_rs',
1149: p_params => l_params,
1150: x_returnStatus => l_returnStatus);
1151: END IF;
1152:
1286: x_returnStatus := fnd_api.g_ret_sts_success;
1287:
1288: -- write to the log file
1289: IF (l_logLevel <= wip_constants.trace_logging) THEN
1290: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_rs',
1291: p_procReturnStatus => x_returnStatus,
1292: p_msg => 'procedure complete',
1293: x_returnStatus => l_returnStatus);
1294: END IF;
1298: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1299: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1300:
1301: IF (l_logLevel <= wip_constants.trace_logging) THEN
1302: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_rs',
1303: p_procReturnStatus => x_returnStatus,
1304: p_msg => l_errMsg,
1305: x_returnStatus => l_returnStatus);
1306: END IF;
1318: PROCEDURE update_wipops(p_txn_id IN NUMBER,
1319: p_gib IN group_rec_t,
1320: x_returnStatus OUT NOCOPY VARCHAR2) IS
1321:
1322: l_params wip_logger.param_tbl_t;
1323: l_returnStatus VARCHAR2(1);
1324: l_errMsg VARCHAR2(240);
1325: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1326:
1332: l_params(2).paramName := 'p_group_id';
1333: l_params(2).paramValue := p_gib.group_id;
1334: l_params(3).paramName := 'p_txn_date';
1335: l_params(3).paramValue := p_gib.txn_date;
1336: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.update_wipops',
1337: p_params => l_params,
1338: x_returnStatus => l_returnStatus);
1339: END IF;
1340:
1398: x_returnStatus := fnd_api.g_ret_sts_success;
1399:
1400: -- write to the log file
1401: IF (l_logLevel <= wip_constants.trace_logging) THEN
1402: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wipops',
1403: p_procReturnStatus => x_returnStatus,
1404: p_msg => 'procedure complete',
1405: x_returnStatus => l_returnStatus);
1406: END IF;
1410: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1411: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1412:
1413: IF (l_logLevel <= wip_constants.trace_logging) THEN
1414: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wipops',
1415: p_procReturnStatus => x_returnStatus,
1416: p_msg => l_errMsg,
1417: x_returnStatus => l_returnStatus);
1418: END IF;
1468: fm_intraoperation_step_type, to_intraoperation_step_type,
1469: creation_date;
1470:
1471: l_rs_txn c_rs_txn%ROWTYPE;
1472: l_params wip_logger.param_tbl_t;
1473: l_rsa rsa_tbl_t;
1474: l_update_rsa update_rsa_tbl_t;
1475: l_returnStatus VARCHAR(1);
1476: l_errMsg VARCHAR2(240);
1502: l_params(8).paramName := 'p_move_mode';
1503: l_params(8).paramValue := p_gib.move_mode;
1504: l_params(9).paramName := 'p_backflush_mode';
1505: l_params(9).paramValue := p_gib.bf_mode;
1506: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1507: p_params => l_params,
1508: x_returnStatus => l_returnStatus);
1509: END IF;
1510:
1537: x_sche_count => l_sche_count,
1538: x_rsa => l_rsa,
1539: x_returnStatus => x_returnStatus);
1540: IF (l_logLevel <= wip_constants.full_logging) THEN
1541: wip_logger.log(p_msg => 'l_proc_status = ' || l_proc_status,
1542: x_returnStatus => l_returnStatus);
1543: wip_logger.log(p_msg => 'l_sche_count = ' || l_sche_count,
1544: x_returnStatus => l_returnStatus);
1545: END IF;
1539: x_returnStatus => x_returnStatus);
1540: IF (l_logLevel <= wip_constants.full_logging) THEN
1541: wip_logger.log(p_msg => 'l_proc_status = ' || l_proc_status,
1542: x_returnStatus => l_returnStatus);
1543: wip_logger.log(p_msg => 'l_sche_count = ' || l_sche_count,
1544: x_returnStatus => l_returnStatus);
1545: END IF;
1546:
1547: IF(l_proc_status = WIP_CONSTANTS.RUNNING) THEN
1836: x_returnStatus := fnd_api.g_ret_sts_success;
1837:
1838: -- write to the log file
1839: IF (l_logLevel <= wip_constants.trace_logging) THEN
1840: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1841: p_procReturnStatus => x_returnStatus,
1842: p_msg => 'procedure complete',
1843: x_returnStatus => l_returnStatus);
1844: END IF;
1853: END IF;
1854: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1855:
1856: IF (l_logLevel <= wip_constants.trace_logging) THEN
1857: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1858: p_procReturnStatus => x_returnStatus,
1859: p_msg => l_errMsg,
1860: x_returnStatus => l_returnStatus);
1861: END IF;
1866: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1867: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1868:
1869: IF (l_logLevel <= wip_constants.trace_logging) THEN
1870: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.rep_move_alloc',
1871: p_procReturnStatus => x_returnStatus,
1872: p_msg => l_errMsg,
1873: x_returnStatus => l_returnStatus);
1874: END IF;
1892: p_txn_date IN DATE,
1893: p_gib IN group_rec_t,
1894: x_returnStatus OUT NOCOPY VARCHAR2) IS
1895:
1896: l_params wip_logger.param_tbl_t;
1897: l_returnStatus VARCHAR(1);
1898: l_errMsg VARCHAR2(240);
1899: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
1900: l_forward_move NUMBER;
1917: l_params(7).paramName := 'p_org_id';
1918: l_params(7).paramValue := p_org_id;
1919: l_params(8).paramName := 'p_wip_id';
1920: l_params(8).paramValue := p_wip_id;
1921: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.update_wo_dj',
1922: p_params => l_params,
1923: x_returnStatus => l_returnStatus);
1924: END IF;
1925:
2064: x_returnStatus := fnd_api.g_ret_sts_success;
2065:
2066: -- write to the log file
2067: IF (l_logLevel <= wip_constants.trace_logging) THEN
2068: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_dj',
2069: p_procReturnStatus => x_returnStatus,
2070: p_msg => 'procedure complete',
2071: x_returnStatus => l_returnStatus);
2072: END IF;
2076: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2077: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
2078:
2079: IF (l_logLevel <= wip_constants.trace_logging) THEN
2080: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wo_dj',
2081: p_procReturnStatus => x_returnStatus,
2082: p_msg => l_errMsg,
2083: x_returnStatus => l_returnStatus);
2084: END IF;
2160: AND wmti.group_id = p_gib.group_id;
2161:
2162: l_dj_txn c_dj_txn%ROWTYPE;
2163: l_ser_loc c_ser_loc%ROWTYPE;
2164: l_params wip_logger.param_tbl_t;
2165: l_returnStatus VARCHAR(1);
2166: l_errMsg VARCHAR2(240);
2167: l_msg VARCHAR(2000);
2168: l_rec_count NUMBER :=0;
2192: l_params(3).paramName := 'p_txn_date';
2193: l_params(3).paramValue := p_gib.txn_date;
2194: l_params(4).paramName := 'p_move_mode';
2195: l_params(4).paramValue := p_gib.move_mode;
2196: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2197: p_params => l_params,
2198: x_returnStatus => l_returnStatus);
2199: END IF;
2200:
2509: x_returnStatus := fnd_api.g_ret_sts_success;
2510:
2511: -- write to the log file
2512: IF (l_logLevel <= wip_constants.trace_logging) THEN
2513: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2514: p_procReturnStatus => x_returnStatus,
2515: p_msg => 'procedure complete',
2516: x_returnStatus => l_returnStatus);
2517: END IF;
2524: END IF;
2525: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2526:
2527: IF (l_logLevel <= wip_constants.trace_logging) THEN
2528: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2529: p_procReturnStatus => x_returnStatus,
2530: p_msg => l_errMsg,
2531: x_returnStatus => l_returnStatus);
2532: END IF;
2538: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2539: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
2540:
2541: IF (l_logLevel <= wip_constants.trace_logging) THEN
2542: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.check_qty_dj',
2543: p_procReturnStatus => x_returnStatus,
2544: p_msg => l_errMsg,
2545: x_returnStatus => l_returnStatus);
2546: END IF;
2555: ****************************************************************************/
2556: PROCEDURE get_move_profile(p_gib IN OUT NOCOPY group_rec_t,
2557: x_returnStatus OUT NOCOPY VARCHAR2) IS
2558:
2559: l_params wip_logger.param_tbl_t;
2560: l_returnStatus VARCHAR(1);
2561: l_errMsg VARCHAR2(240);
2562: l_mv_item NUMBER;
2563: l_mv_lot NUMBER;
2609: l_params(17).paramName := 'poReqItem';
2610: l_params(17).paramValue := l_move.poReqItem;
2611: l_params(18).paramName := 'poRegLot';
2612: l_params(18).paramValue := l_move.poReqLot;
2613: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.get_move_profile',
2614: p_params => l_params,
2615: x_returnStatus => l_returnStatus);
2616: END IF;
2617:
2733: x_returnStatus := fnd_api.g_ret_sts_success;
2734:
2735: -- write to the log file
2736: IF (l_logLevel <= wip_constants.trace_logging) THEN
2737: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.get_move_profile',
2738: p_procReturnStatus => x_returnStatus,
2739: p_msg => 'procedure complete',
2740: x_returnStatus => l_returnStatus);
2741: END IF;
2745: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
2746: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
2747:
2748: IF (l_logLevel <= wip_constants.trace_logging) THEN
2749: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.get_move_profile',
2750: p_procReturnStatus => x_returnStatus,
2751: p_msg => l_errMsg,
2752: x_returnStatus => l_returnStatus);
2753: END IF;
2763: ****************************************************************************/
2764: PROCEDURE insert_txn_history(p_gib IN group_rec_t,
2765: x_returnStatus OUT NOCOPY VARCHAR2) IS
2766:
2767: l_params wip_logger.param_tbl_t;
2768: l_returnStatus VARCHAR(1);
2769: l_msg VARCHAR(240);
2770: l_errMsg VARCHAR2(240);
2771: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
2776: l_params(1).paramName := 'p_group_id';
2777: l_params(1).paramValue := p_gib.group_id;
2778: l_params(2).paramName := 'p_txn_date';
2779: l_params(2).paramValue := p_gib.txn_date;
2780: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.insert_txn_history',
2781: p_params => l_params,
2782: x_returnStatus => l_returnStatus);
2783: END IF;
2784:
2828: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
2829: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
2830: fnd_message.set_token('ENTITY2', 'WIP_SERIAL_MOVE_TRANSACTIONS');
2831: l_msg := fnd_message.get;
2832: wip_logger.log(p_msg => l_msg,
2833: x_returnStatus => l_returnStatus);
2834: END IF;
2835:
2836: -- insert history move record into WIP_MOVE_TRANSACTIONS
2971: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
2972: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
2973: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TRANSACTIONS');
2974: l_msg := fnd_message.get;
2975: wip_logger.log(p_msg => l_msg,
2976: x_returnStatus => l_returnStatus);
2977: END IF;
2978:
2979: -- Repetitive Schedule
3101: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3102: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3103: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TRANSACTIONS');
3104: l_msg := fnd_message.get;
3105: wip_logger.log(p_msg => l_msg,
3106: x_returnStatus => l_returnStatus);
3107: END IF;
3108:
3109: x_returnStatus := fnd_api.g_ret_sts_success;
3109: x_returnStatus := fnd_api.g_ret_sts_success;
3110:
3111: -- write to the log file
3112: IF (l_logLevel <= wip_constants.trace_logging) THEN
3113: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_txn_history',
3114: p_procReturnStatus => x_returnStatus,
3115: p_msg => 'procedure complete',
3116: x_returnStatus => l_returnStatus);
3117: END IF;
3121: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
3122: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
3123:
3124: IF (l_logLevel <= wip_constants.trace_logging) THEN
3125: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_txn_history',
3126: p_procReturnStatus => x_returnStatus,
3127: p_msg => l_errMsg,
3128: x_returnStatus => l_returnStatus);
3129: END IF;
3140: ****************************************************************************/
3141: PROCEDURE delete_child_txn(p_gib IN group_rec_t,
3142: x_returnStatus OUT NOCOPY VARCHAR2) IS
3143:
3144: l_params wip_logger.param_tbl_t;
3145: l_returnStatus VARCHAR(1);
3146: l_errMsg VARCHAR2(240);
3147: l_outcome NUMBER := -1;
3148: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
3153: l_params(1).paramName := 'p_group_id';
3154: l_params(1).paramValue := p_gib.group_id;
3155: l_params(2).paramName := 'p_txn_date';
3156: l_params(2).paramValue := p_gib.txn_date;
3157: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.delete_child_txn',
3158: p_params => l_params,
3159: x_returnStatus => l_returnStatus);
3160: END IF;
3161:
3175: x_returnStatus := fnd_api.g_ret_sts_success;
3176:
3177: -- write to the log file
3178: IF (l_logLevel <= wip_constants.trace_logging) THEN
3179: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.delete_child_txn',
3180: p_procReturnStatus => x_returnStatus,
3181: p_msg => 'procedure complete',
3182: x_returnStatus => l_returnStatus);
3183: END IF;
3186: WHEN others THEN
3187: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
3188: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
3189: IF (l_logLevel <= wip_constants.trace_logging) THEN
3190: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.delete_child_txn',
3191: p_procReturnStatus => x_returnStatus,
3192: p_msg => l_errMsg,
3193: x_returnStatus => l_returnStatus);
3194: END IF;
3205: ****************************************************************************/
3206: PROCEDURE insert_auto_resource(p_gib IN group_rec_t,
3207: x_returnStatus OUT NOCOPY VARCHAR2) IS
3208:
3209: l_params wip_logger.param_tbl_t;
3210: l_returnStatus VARCHAR(1);
3211: l_msg VARCHAR(240);
3212: l_errMsg VARCHAR2(240);
3213: l_move move_profile_rec_t;
3251: l_params(16).paramName := 'poReqItem';
3252: l_params(16).paramValue := l_move.poReqItem;
3253: l_params(17).paramName := 'poRegLot';
3254: l_params(17).paramValue := l_move.poReqLot;
3255: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_auto_resource',
3256: p_params => l_params,
3257: x_returnStatus => l_returnStatus);
3258: END IF;
3259:
3468: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3469: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3470: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
3471: l_msg := fnd_message.get;
3472: wip_logger.log(p_msg => l_msg,
3473: x_returnStatus => l_returnStatus);
3474: END IF;
3475:
3476: END IF; -- Per item basis type for discrete jobs
3688: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3689: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3690: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
3691: l_msg := fnd_message.get;
3692: wip_logger.log(p_msg => l_msg,
3693: x_returnStatus => l_returnStatus);
3694: END IF;
3695:
3696: END IF; -- Per item basis type for repetitive schedule
3942: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
3943: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
3944: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
3945: l_msg := fnd_message.get;
3946: wip_logger.log(p_msg => l_msg,
3947: x_returnStatus => l_returnStatus);
3948: END IF;
3949:
3950: END IF; -- Per order basis type for discrete jobs
4158: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4159: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4160: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4161: l_msg := fnd_message.get;
4162: wip_logger.log(p_msg => l_msg,
4163: x_returnStatus => l_returnStatus);
4164: END IF;
4165:
4166: END IF; -- Per order basis type for repetitive
4183: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
4184: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4185: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4186: l_msg := fnd_message.get;
4187: wip_logger.log(p_msg => l_msg,
4188: x_returnStatus => l_returnStatus);
4189: END IF;
4190:
4191: END IF; -- Either resource per item or resource per lot
4317: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4318: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4319: fnd_message.set_token('ENTITY2', 'WIP_TXN_ALLOCATIONS');
4320: l_msg := fnd_message.get;
4321: wip_logger.log(p_msg => l_msg,
4322: x_returnStatus => l_returnStatus);
4323: END IF;
4324:
4325: END IF; -- Per order basis type for repetitive
4327: x_returnStatus := fnd_api.g_ret_sts_success;
4328:
4329: -- write to the log file
4330: IF (l_logLevel <= wip_constants.trace_logging) THEN
4331: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_auto_resource',
4332: p_procReturnStatus => x_returnStatus,
4333: p_msg => 'procedure complete',
4334: x_returnStatus => l_returnStatus);
4335: END IF;
4339: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
4340: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
4341:
4342: IF (l_logLevel <= wip_constants.trace_logging) THEN
4343: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_auto_resource',
4344: p_procReturnStatus => x_returnStatus,
4345: p_msg => l_errMsg,
4346: x_returnStatus => l_returnStatus);
4347: END IF;
4360: ****************************************************************************/
4361: PROCEDURE insert_txn_alloc(p_gib IN group_rec_t,
4362: x_returnStatus OUT NOCOPY VARCHAR2) IS
4363:
4364: l_params wip_logger.param_tbl_t;
4365: l_returnStatus VARCHAR(1);
4366: l_msg VARCHAR(240);
4367: l_errMsg VARCHAR2(240);
4368: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
4371: -- write parameter value to log file
4372: IF (l_logLevel <= wip_constants.trace_logging) THEN
4373: l_params(1).paramName := 'p_group_id';
4374: l_params(1).paramValue := p_gib.group_id;
4375: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_txn_alloc',
4376: p_params => l_params,
4377: x_returnStatus => l_returnStatus);
4378: END IF;
4379:
4459: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4460: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4461: fnd_message.set_token('ENTITY2', 'WIP_TXN_ALLOCATIONS');
4462: l_msg := fnd_message.get;
4463: wip_logger.log(p_msg => l_msg,
4464: x_returnStatus => l_returnStatus);
4465: END IF;
4466:
4467: x_returnStatus := fnd_api.g_ret_sts_success;
4467: x_returnStatus := fnd_api.g_ret_sts_success;
4468:
4469: -- write to the log file
4470: IF (l_logLevel <= wip_constants.trace_logging) THEN
4471: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_txn_alloc',
4472: p_procReturnStatus => x_returnStatus,
4473: p_msg => 'procedure complete',
4474: x_returnStatus => l_returnStatus);
4475: END IF;
4479: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
4480: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
4481:
4482: IF (l_logLevel <= wip_constants.trace_logging) THEN
4483: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_txn_alloc',
4484: p_procReturnStatus => x_returnStatus,
4485: p_msg => l_errMsg,
4486: x_returnStatus => l_returnStatus);
4487: END IF;
4497: ****************************************************************************/
4498: PROCEDURE insert_dept_overhead(p_gib IN group_rec_t,
4499: x_returnStatus OUT NOCOPY VARCHAR2) IS
4500:
4501: l_params wip_logger.param_tbl_t;
4502: l_returnStatus VARCHAR(1);
4503: l_msg VARCHAR(240);
4504: l_errMsg VARCHAR2(240);
4505: l_move move_profile_rec_t;
4543: l_params(16).paramName := 'poReqItem';
4544: l_params(16).paramValue := l_move.poReqItem;
4545: l_params(17).paramName := 'poRegLot';
4546: l_params(17).paramValue := l_move.poReqLot;
4547: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_dept_overhead',
4548: p_params => l_params,
4549: x_returnStatus => l_returnStatus);
4550: END IF;
4551:
4770: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4771: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4772: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4773: l_msg := fnd_message.get;
4774: wip_logger.log(p_msg => l_msg,
4775: x_returnStatus => l_returnStatus);
4776: END IF;
4777:
4778: END IF; --Per item basis type for discrete jobs
4980: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
4981: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
4982: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
4983: l_msg := fnd_message.get;
4984: wip_logger.log(p_msg => l_msg,
4985: x_returnStatus => l_returnStatus);
4986: END IF;
4987:
4988: END IF; -- Per item basis type for repetitive schedule
5244: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5245: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5246: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5247: l_msg := fnd_message.get;
5248: wip_logger.log(p_msg => l_msg,
5249: x_returnStatus => l_returnStatus);
5250: END IF;
5251:
5252: END IF; -- Per order basis type for discrete jobs
5450: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5451: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5452: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5453: l_msg := fnd_message.get;
5454: wip_logger.log(p_msg => l_msg,
5455: x_returnStatus => l_returnStatus);
5456: END IF;
5457:
5458: END IF; -- Per order basis type for repetitive
5472: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
5473: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5474: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5475: l_msg := fnd_message.get;
5476: wip_logger.log(p_msg => l_msg,
5477: x_returnStatus => l_returnStatus);
5478: END IF;
5479:
5480: -- For repetitive
5588: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
5589: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5590: fnd_message.set_token('ENTITY2', 'WIP_TXN_ALLOCATIONS');
5591: l_msg := fnd_message.get;
5592: wip_logger.log(p_msg => l_msg,
5593: x_returnStatus => l_returnStatus);
5594: END IF;
5595:
5596: END IF; -- For repetitive
5598: x_returnStatus := fnd_api.g_ret_sts_success;
5599:
5600: -- write to the log file
5601: IF (l_logLevel <= wip_constants.trace_logging) THEN
5602: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_dept_overhead',
5603: p_procReturnStatus => x_returnStatus,
5604: p_msg => 'procedure complete',
5605: x_returnStatus => l_returnStatus);
5606: END IF;
5610: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
5611: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
5612:
5613: IF (l_logLevel <= wip_constants.trace_logging) THEN
5614: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_dept_overhead',
5615: p_procReturnStatus => x_returnStatus,
5616: p_msg => l_errMsg,
5617: x_returnStatus => l_returnStatus);
5618: END IF;
5628: ****************************************************************************/
5629: PROCEDURE release_cost_txn(p_gib IN group_rec_t,
5630: x_returnStatus OUT NOCOPY VARCHAR2) IS
5631:
5632: l_params wip_logger.param_tbl_t;
5633: l_returnStatus VARCHAR(1);
5634: l_msg VARCHAR(240);
5635: l_errMsg VARCHAR2(240);
5636: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
5641: l_params(1).paramName := 'p_group_id';
5642: l_params(1).paramValue := p_gib.group_id;
5643: l_params(2).paramName := 'p_txn_date';
5644: l_params(2).paramValue := p_gib.txn_date;
5645: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.release_cost_txn',
5646: p_params => l_params,
5647: x_returnStatus => l_returnStatus);
5648: END IF;
5649:
5657: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
5658: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
5659: fnd_message.set_token('ENTITY2', 'WIP_COST_TXN_INTERFACE');
5660: l_msg := fnd_message.get;
5661: wip_logger.log(p_msg => l_msg,
5662: x_returnStatus => l_returnStatus);
5663: END IF;
5664:
5665: x_returnStatus := fnd_api.g_ret_sts_success;
5665: x_returnStatus := fnd_api.g_ret_sts_success;
5666:
5667: -- write to the log file
5668: IF (l_logLevel <= wip_constants.trace_logging) THEN
5669: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.release_cost_txn',
5670: p_procReturnStatus => x_returnStatus,
5671: p_msg => 'procedure complete',
5672: x_returnStatus => l_returnStatus);
5673: END IF;
5677: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
5678: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
5679:
5680: IF (l_logLevel <= wip_constants.trace_logging) THEN
5681: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.release_cost_txn',
5682: p_procReturnStatus => x_returnStatus,
5683: p_msg => l_errMsg,
5684: x_returnStatus => l_returnStatus);
5685: END IF;
5759: WIP_CONSTANTS.PO_MOVE)
5760: AND wor.basis_type = WIP_CONSTANTS.PER_ITEM ;
5761:
5762:
5763: l_params wip_logger.param_tbl_t;
5764: l_returnStatus VARCHAR(1);
5765: l_msg VARCHAR(240);
5766: l_errMsg VARCHAR2(240);
5767: l_additional_reqs c_additional_reqs%ROWTYPE;
5807: l_params(16).paramValue := l_move.poReqItem;
5808: l_params(17).paramName := 'poRegLot';
5809: l_params(17).paramValue := l_move.poReqLot;
5810:
5811: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.insert_po_req',
5812: p_params => l_params,
5813: x_returnStatus => l_returnStatus);
5814: END IF;
5815:
6024: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6025: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6026: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6027: l_msg := fnd_message.get;
6028: wip_logger.log(p_msg => l_msg,
6029: x_returnStatus => l_returnStatus);
6030: END IF;
6031:
6032: END IF; -- po requisition per item for jobs
6217: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6218: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6219: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6220: l_msg := fnd_message.get;
6221: wip_logger.log(p_msg => l_msg,
6222: x_returnStatus => l_returnStatus);
6223: END IF;
6224:
6225: END IF; -- po requisition per item for schedule
6452: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6453: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6454: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6455: l_msg := fnd_message.get;
6456: wip_logger.log(p_msg => l_msg,
6457: x_returnStatus => l_returnStatus);
6458: END IF;
6459:
6460: END IF; -- po requisition per lot for job
6673: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
6674: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
6675: fnd_message.set_token('ENTITY2', 'PO_REQUISITIONS_INTERFACE_ALL');
6676: l_msg := fnd_message.get;
6677: wip_logger.log(p_msg => l_msg,
6678: x_returnStatus => l_returnStatus);
6679: END IF;
6680: END IF; -- po requisition per lot for schedule
6681:
6704: x_returnStatus := fnd_api.g_ret_sts_success;
6705:
6706: -- write to the log file
6707: IF (l_logLevel <= wip_constants.trace_logging) THEN
6708: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.insert_po_req',
6709: p_procReturnStatus => x_returnStatus,
6710: p_msg => 'procedure complete',
6711: x_returnStatus => l_returnStatus);
6712: END IF;
6719: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
6720: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
6721:
6722: IF (l_logLevel <= wip_constants.trace_logging) THEN
6723: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.insert_po_req',
6724: p_procReturnStatus => x_returnStatus,
6725: p_msg => l_errMsg,
6726: x_returnStatus => l_returnStatus);
6727: END IF;
6791: AND br.resource_id = wor.resource_id
6792: AND br.organization_id = wor.organization_id
6793: AND br.purchase_item_id IS NOT NULL;
6794:
6795: l_params wip_logger.param_tbl_t;
6796: l_returnStatus VARCHAR(1);
6797: l_errMsg VARCHAR2(240);
6798: l_wmti_txn c_wmti_txn%ROWTYPE;
6799: l_itemkey VARCHAR2(80) := NULL;
6813: l_params(1).paramName := 'p_group_id';
6814: l_params(1).paramValue := p_gib.group_id;
6815: l_params(2).paramName := 'p_txn_date';
6816: l_params(2).paramValue := p_gib.txn_date;
6817: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.start_workflow',
6818: p_params => l_params,
6819: x_returnStatus => l_returnStatus);
6820: END IF;
6821: OPEN c_wmti_txn(p_group_id => p_gib.group_id,
6899: END IF;
6900: x_returnStatus := fnd_api.g_ret_sts_success;
6901: -- write to the log file
6902: IF (l_logLevel <= wip_constants.trace_logging) THEN
6903: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.start_workflow',
6904: p_procReturnStatus => x_returnStatus,
6905: p_msg => 'procedure complete',
6906: x_returnStatus => l_returnStatus);
6907: END IF;
6915: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
6916: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
6917:
6918: IF (l_logLevel <= wip_constants.trace_logging) THEN
6919: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.start_workflow',
6920: p_procReturnStatus => x_returnStatus,
6921: p_msg => l_errMsg,
6922: x_returnStatus => l_returnStatus);
6923: END IF;
6934: PROCEDURE update_complete_qty(p_gib IN group_rec_t,
6935: p_txn_id IN NUMBER := NULL,
6936: x_returnStatus OUT NOCOPY VARCHAR2) IS
6937:
6938: l_params wip_logger.param_tbl_t;
6939: l_returnStatus VARCHAR(1);
6940: l_msg VARCHAR(240);
6941: l_errMsg VARCHAR2(240);
6942: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
6949: l_params(2).paramName := 'p_txn_date';
6950: l_params(2).paramValue := p_gib.txn_date;
6951: l_params(3).paramName := 'p_txn_id';
6952: l_params(3).paramValue := p_txn_id;
6953: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.update_complete_qty',
6954: p_params => l_params,
6955: x_returnStatus => l_returnStatus);
6956: END IF;
6957:
7105: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
7106: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
7107: fnd_message.set_token('ENTITY2', 'WIP_OPERATIONS');
7108: l_msg := fnd_message.get;
7109: wip_logger.log(p_msg => l_msg,
7110: x_returnStatus => l_returnStatus);
7111: END IF;
7112:
7113: x_returnStatus := fnd_api.g_ret_sts_success;
7113: x_returnStatus := fnd_api.g_ret_sts_success;
7114:
7115: -- write to the log file
7116: IF (l_logLevel <= wip_constants.trace_logging) THEN
7117: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_complete_qty',
7118: p_procReturnStatus => x_returnStatus,
7119: p_msg => 'procedure complete',
7120: x_returnStatus => l_returnStatus);
7121: END IF;
7125: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7126: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7127:
7128: IF (l_logLevel <= wip_constants.trace_logging) THEN
7129: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.update_complete_qty',
7130: p_procReturnStatus => x_returnStatus,
7131: p_msg => l_errMsg,
7132: x_returnStatus => l_returnStatus);
7133: END IF;
7142: ****************************************************************************/
7143: PROCEDURE op_snapshot(p_mtl_temp_id IN NUMBER,
7144: x_returnStatus OUT NOCOPY VARCHAR2) IS
7145:
7146: l_params wip_logger.param_tbl_t;
7147: l_returnStatus VARCHAR(1);
7148: l_returnValue NUMBER;
7149: l_msgCount NUMBER;
7150: l_errCode VARCHAR(240);
7155: -- write parameter value to log file
7156: IF (l_logLevel <= wip_constants.trace_logging) THEN
7157: l_params(1).paramName := 'p_mtl_temp_id';
7158: l_params(1).paramValue := p_mtl_temp_id;
7159: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.op_snapshot',
7160: p_params => l_params,
7161: x_returnStatus => l_returnStatus);
7162: END IF;
7163:
7174: x_returnStatus := fnd_api.g_ret_sts_success;
7175:
7176: -- write to the log file
7177: IF (l_logLevel <= wip_constants.trace_logging) THEN
7178: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.op_snapshot',
7179: p_procReturnStatus => x_returnStatus,
7180: p_msg => 'procedure complete',
7181: x_returnStatus => l_returnStatus);
7182: END IF;
7185: WHEN fnd_api.g_exc_unexpected_error THEN
7186: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7187:
7188: IF (l_logLevel <= wip_constants.trace_logging) THEN
7189: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.op_snapshot',
7190: p_procReturnStatus => x_returnStatus,
7191: p_msg => l_errMsg,
7192: x_returnStatus => l_returnStatus);
7193: END IF;
7199: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7200: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7201:
7202: IF (l_logLevel <= wip_constants.trace_logging) THEN
7203: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.op_snapshot',
7204: p_procReturnStatus => x_returnStatus,
7205: p_msg => l_errMsg,
7206: x_returnStatus => l_returnStatus);
7207: END IF;
7230: AND transaction_source_type_id = TPS_INV_JOB_OR_SCHED
7231: AND (wip_entity_type = WIP_CONSTANTS.DISCRETE
7232: OR wip_entity_type = WIP_CONSTANTS.LOTBASED); /*WSM */
7233:
7234: l_params wip_logger.param_tbl_t;
7235: l_returnStatus VARCHAR(1);
7236: l_errMsg VARCHAR(240);
7237: l_pri_cost_method NUMBER;
7238: l_mandatory_scrap_flag NUMBER;
7251: l_params(4).paramName := 'p_txn_type_id';
7252: l_params(4).paramValue := p_txn_type_id;
7253: l_params(5).paramName := 'p_txn_action_id';
7254: l_params(5).paramValue := p_txn_action_id;
7255: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.snapshot_online',
7256: p_params => l_params,
7257: x_returnStatus => l_returnStatus);
7258: END IF;
7259:
7305: x_returnStatus := fnd_api.g_ret_sts_success;
7306:
7307: -- write to the log file
7308: IF (l_logLevel <= wip_constants.trace_logging) THEN
7309: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.snapshot_online',
7310: p_procReturnStatus => x_returnStatus,
7311: p_msg => 'procedure complete',
7312: x_returnStatus => l_returnStatus);
7313: END IF;
7316: WHEN fnd_api.g_exc_unexpected_error THEN
7317: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7318:
7319: IF (l_logLevel <= wip_constants.trace_logging) THEN
7320: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.snapshot_online',
7321: p_procReturnStatus => x_returnStatus,
7322: p_msg => l_errMsg,
7323: x_returnStatus => l_returnStatus);
7324: END IF;
7327: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7328: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7329:
7330: IF (l_logLevel <= wip_constants.trace_logging) THEN
7331: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.snapshot_online',
7332: p_procReturnStatus => x_returnStatus,
7333: p_msg => l_errMsg,
7334: x_returnStatus => l_returnStatus);
7335: END IF;
7404: OR
7405: (wmti.transaction_type IN (WIP_CONSTANTS.COMP_TXN,
7406: WIP_CONSTANTS.RET_TXN)));
7407:
7408: l_params wip_logger.param_tbl_t;
7409: l_returnStatus VARCHAR(1);
7410: l_errMsg VARCHAR(240);
7411: l_errCode VARCHAR(240);
7412: l_txns c_txns%ROWTYPE;
7424: l_params(2).paramName := 'p_txn_date';
7425: l_params(2).paramValue := p_txn_date;
7426: l_params(3).paramName := 'p_txn_id';
7427: l_params(3).paramValue := p_txn_id;
7428: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.snapshot_background',
7429: p_params => l_params,
7430: x_returnStatus => l_returnStatus);
7431: END IF;
7432:
7521: x_returnStatus := fnd_api.g_ret_sts_success;
7522:
7523: -- write to the log file
7524: IF (l_logLevel <= wip_constants.trace_logging) THEN
7525: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.snapshot_background',
7526: p_procReturnStatus => x_returnStatus,
7527: p_msg => 'procedure complete',
7528: x_returnStatus => l_returnStatus);
7529: END IF;
7532: WHEN fnd_api.g_exc_unexpected_error THEN
7533: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7534:
7535: IF (l_logLevel <= wip_constants.trace_logging) THEN
7536: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.snapshot_background',
7537: p_procReturnStatus => x_returnStatus,
7538: p_msg => l_errMsg,
7539: x_returnStatus => l_returnStatus);
7540: END IF;
7543: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7544: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7545:
7546: IF (l_logLevel <= wip_constants.trace_logging) THEN
7547: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.snapshot_background',
7548: p_procReturnStatus => x_returnStatus,
7549: p_msg => l_errMsg,
7550: x_returnStatus => l_returnStatus);
7551: END IF;
7571:
7572: l_move_rec c_move_rec%ROWTYPE;
7573: l_returnStatus VARCHAR(1);
7574: l_errMsg VARCHAR(240);
7575: l_params wip_logger.param_tbl_t;
7576: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
7577: BEGIN
7578: IF (l_logLevel <= wip_constants.trace_logging) THEN
7579: l_params(1).paramName := 'p_gib.group_id';
7581: l_params(2).paramName := 'p_gib.txn_date';
7582: l_params(2).paramValue := p_gib.txn_date;
7583: l_params(3).paramName := 'p_gib.seq_move';
7584: l_params(3).paramValue := p_gib.seq_move;
7585: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.update_wo_and_snapshot',
7586: p_params => l_params,
7587: x_returnStatus => l_returnStatus);
7588: END IF;
7589:
7631:
7632: x_returnStatus := fnd_api.g_ret_sts_success;
7633: -- write to the log file
7634: IF (l_logLevel <= wip_constants.trace_logging) THEN
7635: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.update_wo_and_snapshot',
7636: p_procReturnStatus => x_returnStatus,
7637: p_msg => 'procedure complete',
7638: x_returnStatus => l_returnStatus);
7639: END IF;
7640: EXCEPTION
7641: WHEN fnd_api.g_exc_unexpected_error THEN
7642: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7643: IF (l_logLevel <= wip_constants.trace_logging) THEN
7644: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.update_wo_and_snapshot',
7645: p_procReturnStatus => x_returnStatus,
7646: p_msg => l_errMsg,
7647: x_returnStatus => l_returnStatus);
7648: END IF;
7651: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7652: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7653:
7654: IF (l_logLevel <= wip_constants.trace_logging) THEN
7655: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.update_wo_and_snapshot',
7656: p_procReturnStatus => x_returnStatus,
7657: p_msg => l_errMsg,
7658: x_returnStatus => l_returnStatus);
7659: END IF;
7724: AND mp.organization_id = wmti.organization_id
7725: AND mp.propagate_job_change_to_po = WIP_CONSTANTS.YES;
7726:
7727:
7728: l_params wip_logger.param_tbl_t;
7729: l_mtl_alloc c_mtl_alloc%ROWTYPE;
7730: l_returnStatus VARCHAR(1);
7731: l_msg_count NUMBER;
7732: l_msg_data VARCHAR2(2000);
7782: l_params(19).paramName := 'p_move_mode';
7783: l_params(19).paramValue := p_gib.move_mode;
7784: l_params(20).paramName := 'p_mtl_mode';
7785: l_params(20).paramValue := p_gib.mtl_mode;
7786: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.scrap_txns',
7787: p_params => l_params,
7788: x_returnStatus => l_returnStatus);
7789: END IF;
7790:
7953: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
7954: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
7955: fnd_message.set_token('ENTITY2', 'WIP_DISCRETE_JOBS');
7956: l_msg := fnd_message.get;
7957: wip_logger.log(p_msg => l_msg,
7958: x_returnStatus => l_returnStatus);
7959: END IF;
7960: END IF; -- END job transactions
7961:
8001: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
8002: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8003: fnd_message.set_token('ENTITY2', 'WIP_REPETITIVE_SCHEDULES');
8004: l_msg := fnd_message.get;
8005: wip_logger.log(p_msg => l_msg,
8006: x_returnStatus => l_returnStatus);
8007: END IF;
8008: END IF; -- END repetitive schedule transactions
8009:
8155: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
8156: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8157: fnd_message.set_token('ENTITY2', 'MTL_MATERIAL_TRANSACTIONS_TEMP');
8158: l_msg := fnd_message.get;
8159: wip_logger.log(p_msg => l_msg,
8160: x_returnStatus => l_returnStatus);
8161: END IF;
8162:
8163: END IF; -- discrete jobs
8290: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
8291: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8292: fnd_message.set_token('ENTITY2', 'MTL_MATERIAL_TRANSACTIONS_TEMP');
8293: l_msg := fnd_message.get;
8294: wip_logger.log(p_msg => l_msg,
8295: x_returnStatus => l_returnStatus);
8296: END IF;
8297: END IF; -- Repetitive schedules
8298: END LOOP; -- FOR l_step
8342: x_returnStatus := fnd_api.g_ret_sts_success;
8343:
8344: -- write to the log file
8345: IF (l_logLevel <= wip_constants.trace_logging) THEN
8346: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.scrap_txns',
8347: p_procReturnStatus => x_returnStatus,
8348: p_msg => 'procedure complete',
8349: x_returnStatus => l_returnStatus);
8350: END IF;
8352: EXCEPTION
8353: WHEN fnd_api.g_exc_unexpected_error THEN
8354: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
8355: IF (l_logLevel <= wip_constants.trace_logging) THEN
8356: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.scrap_txns',
8357: p_procReturnStatus => x_returnStatus,
8358: p_msg => l_errMsg,
8359: x_returnStatus => l_returnStatus);
8360: END IF;
8363: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
8364: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
8365:
8366: IF (l_logLevel <= wip_constants.trace_logging) THEN
8367: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.scrap_txns',
8368: p_procReturnStatus => x_returnStatus,
8369: p_msg => l_errMsg,
8370: x_returnStatus => l_returnStatus);
8371: END IF;
8400: AND transaction_action_id IN (WIP_CONSTANTS.RETASSY_ACTION,
8401: WIP_CONSTANTS.CPLASSY_ACTION);
8402:
8403: l_repAssembly c_repAssembly%ROWTYPE;
8404: l_params wip_logger.param_tbl_t;
8405: l_returnStatus VARCHAR(1);
8406: l_errMsg VARCHAR(240);
8407: l_msg VARCHAR(240);
8408: l_step NUMBER;
8466: l_params(21).paramValue := p_txn_type;
8467: l_params(22).paramName := 'p_assy_header_id';
8468: l_params(22).paramValue := p_gib.assy_header_id;
8469:
8470: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.ez_completion',
8471: p_params => l_params,
8472: x_returnStatus => l_returnStatus);
8473: END IF;
8474:
8795: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
8796: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8797: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTIONS_INTERFACE');
8798: l_msg := fnd_message.get;
8799: wip_logger.log(p_msg => l_msg,
8800: x_returnStatus => l_returnStatus);
8801: END IF;
8802:
8803: /* Only allow lot control for discrete/OSFM jobs */
8820: -- IF debug message level = 2, write statement below to log file
8821: IF (l_logLevel <= wip_constants.full_logging) THEN
8822: l_msg := 'No. of records in mti updated for lot controlled ' ||
8823: 'assemblies : ' || l_mti_lot_rec;
8824: wip_logger.log(p_msg => l_msg,
8825: x_returnStatus => l_returnStatus);
8826: END IF;
8827:
8828: /* IF records under lot control THEN continue */
8894: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
8895: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8896: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
8897: l_msg := fnd_message.get;
8898: wip_logger.log(p_msg => l_msg,
8899: x_returnStatus => l_returnStatus);
8900: END IF;
8901:
8902: /* Update lot records with an expiration date */
8940: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
8941: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8942: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
8943: l_msg := fnd_message.get;
8944: wip_logger.log(p_msg => l_msg,
8945: x_returnStatus => l_returnStatus);
8946: END IF;
8947:
8948: /* IF Exp date null in MTL_LOT_NUMBERS should I leave it null */
8986: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
8987: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
8988: fnd_message.set_token('ENTITY2', 'MTL_TRANSACTION_LOTS_INTERFACE');
8989: l_msg := fnd_message.get;
8990: wip_logger.log(p_msg => l_msg,
8991: x_returnStatus => l_returnStatus);
8992: END IF;
8993:
8994: END IF; -- (l_mti_lot_rec > 0)
9012: -- IF debug message level = 2, write statement below to log file
9013: IF (l_logLevel <= wip_constants.full_logging) THEN
9014: l_msg := 'No. of records in mti updated for serial controlled ' ||
9015: 'assemblies : ' || l_mti_ser_rec;
9016: wip_logger.log(p_msg => l_msg,
9017: x_returnStatus => l_returnStatus);
9018: END IF;
9019:
9020: /* IF records under serial control THEN continue */
9063: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
9064: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
9065: fnd_message.set_token('ENTITY2', 'MTL_SERIAL_NUMBERS_INTERFACE');
9066: l_msg := fnd_message.get;
9067: wip_logger.log(p_msg => l_msg,
9068: x_returnStatus => l_returnStatus);
9069: END IF;
9070: END IF; -- Discrete or OSFM jobs
9071:
9143: x_returnStatus := fnd_api.g_ret_sts_success;
9144:
9145: -- write to the log file
9146: IF (l_logLevel <= wip_constants.trace_logging) THEN
9147: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.ez_completion',
9148: p_procReturnStatus => x_returnStatus,
9149: p_msg => 'procedure complete',
9150: x_returnStatus => l_returnStatus);
9151: END IF;
9153: EXCEPTION
9154: WHEN fnd_api.g_exc_unexpected_error THEN
9155: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9156: IF (l_logLevel <= wip_constants.trace_logging) THEN
9157: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.ez_completion',
9158: p_procReturnStatus => x_returnStatus,
9159: p_msg => l_errMsg,
9160: x_returnStatus => l_returnStatus);
9161: END IF;
9164: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9165: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
9166:
9167: IF (l_logLevel <= wip_constants.trace_logging) THEN
9168: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.ez_completion',
9169: p_procReturnStatus => x_returnStatus,
9170: p_msg => l_errMsg,
9171: x_returnStatus => l_returnStatus);
9172: END IF;
9183: ****************************************************************************/
9184: PROCEDURE update_wro(p_gib IN group_rec_t,
9185: x_returnStatus OUT NOCOPY VARCHAR2) IS
9186:
9187: l_params wip_logger.param_tbl_t;
9188: l_returnStatus VARCHAR(1);
9189: l_errMsg VARCHAR2(240);
9190: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
9191:
9194: l_params(1).paramName := 'p_group_id';
9195: l_params(1).paramValue := p_gib.group_id;
9196: l_params(2).paramName := 'p_txn_date';
9197: l_params(2).paramValue := p_gib.txn_date;
9198: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.update_wro',
9199: p_params => l_params,
9200: x_returnStatus => l_returnStatus);
9201: END IF;
9202:
9263: x_returnStatus := fnd_api.g_ret_sts_success;
9264:
9265: -- write to the log file
9266: IF (l_logLevel <= wip_constants.trace_logging) THEN
9267: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.update_wro',
9268: p_procReturnStatus => x_returnStatus,
9269: p_msg => 'procedure complete',
9270: x_returnStatus => l_returnStatus);
9271: END IF;
9275: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9276: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
9277:
9278: IF (l_logLevel <= wip_constants.trace_logging) THEN
9279: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.update_wro',
9280: p_procReturnStatus => x_returnStatus,
9281: p_msg => l_errMsg,
9282: x_returnStatus => l_returnStatus);
9283: END IF;
9293:
9294: PROCEDURE move_txns(p_gib IN OUT NOCOPY group_rec_t,
9295: x_returnStatus OUT NOCOPY VARCHAR2) IS
9296:
9297: l_params wip_logger.param_tbl_t;
9298: l_returnStatus VARCHAR(1);
9299: l_errMsg VARCHAR(240);
9300: l_move move_profile_rec_t;
9301: l_po BOOLEAN;
9369: l_params(30).paramName := 'p_poReqItem';
9370: l_params(30).paramValue := l_move.poReqItem;
9371: l_params(31).paramName := 'p_poReqLot';
9372: l_params(31).paramValue := l_move.poReqLot;
9373: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.move_txns',
9374: p_params => l_params,
9375: x_returnStatus => l_returnStatus);
9376: END IF;
9377:
9534: x_returnStatus := fnd_api.g_ret_sts_success;
9535:
9536: -- write to the log file
9537: IF (l_logLevel <= wip_constants.trace_logging) THEN
9538: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.move_txns',
9539: p_procReturnStatus => x_returnStatus,
9540: p_msg => 'procedure complete',
9541: x_returnStatus => l_returnStatus);
9542: END IF;
9544: EXCEPTION
9545: WHEN fnd_api.g_exc_unexpected_error THEN
9546: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9547: IF (l_logLevel <= wip_constants.trace_logging) THEN
9548: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.move_txns',
9549: p_procReturnStatus => x_returnStatus,
9550: p_msg => l_errMsg,
9551: x_returnStatus => l_returnStatus);
9552: END IF;
9555: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
9556: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
9557:
9558: IF (l_logLevel <= wip_constants.trace_logging) THEN
9559: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.move_txns',
9560: p_procReturnStatus => x_returnStatus,
9561: p_msg => l_errMsg,
9562: x_returnStatus => l_returnStatus);
9563: END IF;
9656:
9657: l_gib group_rec_t;
9658: l_move_online c_move_online%ROWTYPE;
9659: l_backflush c_backflush%ROWTYPE;
9660: l_params wip_logger.param_tbl_t;
9661: l_returnStatus VARCHAR(1);
9662: l_errMsg VARCHAR(2000);
9663: l_msg VARCHAR(240);
9664: l_bf_mode NUMBER;
9719: l_params(12).paramValue := p_assy_header_id;
9720: l_params(13).paramName := 'p_allow_partial_commit';
9721: l_params(13).paramValue := p_allow_partial_commit;
9722:
9723: wip_logger.entryPoint(p_procName =>'wip_movProc_priv.processIntf',
9724: p_params => l_params,
9725: x_returnStatus => l_returnStatus);
9726: END IF;
9727:
9999:
10000: CLOSE c_qa_id; /* Bug 4204892 - Close the cursor c_qa_id to avoid ORA-6511. */
10001:
10002: IF (l_logLevel <= wip_constants.full_logging) THEN
10003: wip_logger.log(p_msg => 'QA enable success',
10004: x_returnStatus => l_returnStatus);
10005: END IF;
10006:
10007: UPDATE wip_move_txn_interface
10016: fnd_message.set_name('WIP', 'WIP_UPDATED_ROWS');
10017: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
10018: fnd_message.set_token('ENTITY2', 'WIP_MOVE_TXN_INTERFACE');
10019: l_msg := fnd_message.get;
10020: wip_logger.log(p_msg => l_msg,
10021: x_returnStatus => l_returnStatus);
10022: END IF;
10023:
10024: IF(p_allow_partial_commit = WIP_CONSTANTS.YES) THEN
10239: END IF;
10240: IF (l_logLevel <= wip_constants.trace_logging) THEN
10241: l_errMsg := 'move_txn_id: ' || l_backflush.txn_id ||
10242: ' failed because ' || l_errMsg;
10243: wip_logger.log(p_msg => l_errMsg,
10244: x_returnStatus => l_returnStatus);
10245: END IF;
10246: END IF;
10247: END;
10265: write_mtl_errors(p_mtl_header_id => l_gib.mtl_header_id);
10266: IF (l_logLevel <= wip_constants.full_logging) THEN
10267: l_errMsg := 'wip_mtlTempProc_priv.validateInterfaceTxns failed'||
10268: ' (component records)' ;
10269: wip_logger.log(p_msg => l_errMsg,
10270: x_returnStatus => l_returnStatus);
10271: END IF;
10272: -- Fixed bug 5056289. We will not raise exception because we still
10273: -- want to process the components that pass validation.
10397: ROLLBACK TO SAVEPOINT s_move_proc;
10398: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10399: END IF;
10400: IF (l_logLevel <= wip_constants.trace_logging) THEN
10401: wip_logger.exitPoint(p_procName =>'wip_movProc_priv.processIntf',
10402: p_procReturnStatus => x_returnStatus,
10403: p_msg => l_errMsg,
10404: x_returnStatus => l_returnStatus);
10405: END IF;
10404: x_returnStatus => l_returnStatus);
10405: END IF;
10406: -- close log file
10407: IF (p_ENDDebug = fnd_api.g_true) THEN
10408: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10409: END IF;
10410: GOTO END_program;
10411: END IF; -- move mode is background
10412:
10458: WHERE wtie.transaction_id = wmti.transaction_id);
10459: ELSE -- move mode is online
10460: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10461: IF (l_logLevel <= wip_constants.trace_logging) THEN
10462: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.processIntf',
10463: p_procReturnStatus => x_returnStatus,
10464: p_msg => 'unexpected error: ' || SQLERRM,
10465: x_returnStatus => l_returnStatus);
10466: END IF;
10465: x_returnStatus => l_returnStatus);
10466: END IF;
10467: -- close log file
10468: IF (p_ENDDebug = fnd_api.g_true) THEN
10469: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10470: END IF;
10471: GOTO END_program;
10472: END IF; -- move mode is background
10473: END;
10534: -- applicable for background transaction.
10535: --fnd_message.set_name('WIP', 'WIP_SOME_RECORDS_ERROR');
10536: --fnd_msg_pub.add;
10537: IF (l_logLevel <= wip_constants.trace_logging) THEN
10538: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processIntf',
10539: p_procReturnStatus => x_returnStatus,
10540: p_msg => 'some records error out',
10541: x_returnStatus => l_returnStatus);
10542: END IF;
10541: x_returnStatus => l_returnStatus);
10542: END IF;
10543: -- close log file
10544: IF (p_ENDDebug = fnd_api.g_true) THEN
10545: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10546: END IF;
10547: /*Bug 5727221 (FP of 5580093): Mobile WIP Transaction seems to be leaving
10548: transaction in WMTI in some exception case. However there is no error
10549: message propagated back to UI. As a result transaction goes through fine
10553: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10554: ELSE
10555: x_returnStatus := fnd_api.g_ret_sts_success;
10556: IF (l_logLevel <= wip_constants.trace_logging) THEN
10557: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processIntf',
10558: p_procReturnStatus => x_returnStatus,
10559: p_msg => 'no record in this group error out',
10560: x_returnStatus => l_returnStatus);
10561: END IF;
10560: x_returnStatus => l_returnStatus);
10561: END IF;
10562: -- close log file
10563: IF (p_ENDDebug = fnd_api.g_true) THEN
10564: wip_logger.cleanUp(x_returnStatus => l_returnStatus);
10565: END IF;
10566: END IF;
10567:
10568: <
10640:
10641: PROCEDURE repetitive_scrap(p_tmp_id IN NUMBER,
10642: x_returnStatus OUT NOCOPY VARCHAR2) IS
10643:
10644: l_params wip_logger.param_tbl_t;
10645: l_returnStatus VARCHAR2(1);
10646: l_msg VARCHAR(240);
10647: l_logLevel NUMBER := fnd_log.g_current_runtime_level;
10648: BEGIN
10649: -- write parameter value to log file
10650: IF (l_logLevel <= wip_constants.trace_logging) THEN
10651: l_params(1).paramName := 'p_tmp_id';
10652: l_params(1).paramValue := p_tmp_id;
10653: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.repetitive_scrap',
10654: p_params => l_params,
10655: x_returnStatus => l_returnStatus);
10656: END IF;
10657: -- insert into mtl_material_txn_allocations for repetitive schedule
10703: fnd_message.set_name('WIP', 'WIP_INSERTED_ROWS');
10704: fnd_message.set_token('ENTITY1', SQL%ROWCOUNT);
10705: fnd_message.set_token('ENTITY2', 'MTL_MATERIAL_TXN_ALLOCATIONS');
10706: l_msg := fnd_message.get;
10707: wip_logger.log(p_msg => l_msg,
10708: x_returnStatus => l_returnStatus);
10709: END IF;
10710: x_returnStatus := fnd_api.g_ret_sts_success;
10711:
10714: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
10715: l_msg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
10716:
10717: IF (l_logLevel <= wip_constants.trace_logging) THEN
10718: wip_logger.exitPoint(p_procName=>'wip_movProc_priv.repetitive_scrap',
10719: p_procReturnStatus => x_returnStatus,
10720: p_msg => l_msg,
10721: x_returnStatus => l_returnStatus);
10722: END IF;
10982: l_process_phase VARCHAR2(3);
10983: l_return_status VARCHAR(1);
10984: l_errors c_errors%ROWTYPE;
10985: l_move_records c_move_records%ROWTYPE;
10986: l_params wip_logger.param_tbl_t;
10987: l_msg_count NUMBER; /* VJ Label Printing */
10988: l_msg_stack VARCHAR2(2000); /* VJ Label Printing */
10989:
10990: BEGIN
11007: l_params(5).paramValue := p_assySerial;
11008: l_params(6).paramName := 'p_print_label'; /* VJ Label Printing */
11009: l_params(6).paramValue := p_print_label; /* VJ Label Printing */
11010:
11011: wip_logger.entryPoint(p_procName => 'wip_movProc_priv.processOATxn',
11012: p_params => l_params,
11013: x_returnStatus => l_return_status);
11014: END IF;
11015: l_process_phase := '2';
11085: -- do not error out if label printing, only put warning message in log
11086: IF(l_return_status <> fnd_api.g_ret_sts_success) THEN
11087: wip_utilities.get_message_stack(p_msg => l_msg_stack);
11088: IF (l_log_level <= wip_constants.full_logging) THEN
11089: wip_logger.log(p_msg => 'An error has occurred with label printing.\n' ||
11090: 'The following error has occurred during ' ||
11091: 'printing: ' || l_msg_stack || '\n' ||
11092: 'Please check the Inventory log file for more ' ||
11093: 'information.',
11101: x_returnStatus := fnd_api.g_ret_sts_success;
11102:
11103: -- write to the log file
11104: IF (l_log_level <= wip_constants.trace_logging) THEN
11105: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processOATxn',
11106: p_procReturnStatus => x_returnStatus,
11107: p_msg => 'procedure complete',
11108: x_returnStatus => l_return_status);
11109: END IF;
11107: p_msg => 'procedure complete',
11108: x_returnStatus => l_return_status);
11109: END IF;
11110: -- close log file
11111: wip_logger.cleanUp(x_returnStatus => l_return_status);
11112: EXCEPTION
11113: WHEN fnd_api.g_exc_unexpected_error THEN
11114: -- Fixed bug 5518780. We should not clear message from the stack.
11115: -- If it fails inventory validation, no error will be recorded in WTIE.
11122: END LOOP;
11123: ROLLBACK TO SAVEPOINT s_oa_txn_proc;
11124: x_returnStatus := fnd_api.g_ret_sts_error;
11125: IF (l_log_level <= wip_constants.trace_logging) THEN
11126: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processOATxn',
11127: p_procReturnStatus => x_returnStatus,
11128: p_msg => 'wip_movProc_priv.processOATxn failed : '
11129: || l_process_phase,
11130: x_returnStatus => l_return_status);
11129: || l_process_phase,
11130: x_returnStatus => l_return_status);
11131: END IF;
11132: -- close log file
11133: wip_logger.cleanUp(x_returnStatus => l_return_status);
11134: WHEN others THEN
11135: ROLLBACK TO SAVEPOINT s_oa_txn_proc;
11136: x_returnStatus := fnd_api.g_ret_sts_error;
11137: l_error_msg := ' unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
11140: fnd_message.set_token('MESSAGE', l_error_msg);
11141: fnd_msg_pub.add;
11142:
11143: IF (l_log_level <= wip_constants.trace_logging) THEN
11144: wip_logger.exitPoint(p_procName => 'wip_movProc_priv.processOATxn',
11145: p_procReturnStatus => x_returnStatus,
11146: p_msg => l_error_msg || ' : ' || l_process_phase,
11147: x_returnStatus => l_return_status);
11148: END IF;
11146: p_msg => l_error_msg || ' : ' || l_process_phase,
11147: x_returnStatus => l_return_status);
11148: END IF;
11149: -- close log file
11150: wip_logger.cleanUp(x_returnStatus => l_return_status);
11151: END processOATxn;
11152: END wip_movProc_priv;