[Home] [Help]
232: IF(l_ls_required = WIP_CONSTANTS.YES) THEN
233: -- If we need to gather more lot/serial, error out because
234: -- we cannot gather lot/serial for background transaction.
235: fnd_message.set_name('WIP', 'WIP_NO_LOT_SER_COMP_BKGND');
236: fnd_msg_pub.add;
237: raise fnd_api.g_exc_unexpected_error;
238: END IF;
239: END IF; -- check return status
240: END LOOP; -- repetitive schedule
275: IF(l_ls_required = WIP_CONSTANTS.YES) THEN
276: -- If we need to gather more lot/serial, error out because
277: -- we cannot gather lot/serial for background transaction.
278: fnd_message.set_name('WIP', 'WIP_NO_LOT_SER_COMP_BKGND');
279: fnd_msg_pub.add;
280: raise fnd_api.g_exc_unexpected_error;
281: END IF;
282: END IF; -- check return status
283: END LOOP; -- Discrete
315: IF(l_ls_required = WIP_CONSTANTS.YES) THEN
316: -- If we need to gather more lot/serial, error out because
317: -- we cannot gather lot/serial for background transaction.
318: fnd_message.set_name('WIP', 'WIP_NO_LOT_SER_COMP_BKGND');
319: fnd_msg_pub.add;
320: raise fnd_api.g_exc_unexpected_error;
321: END IF;
322: END IF; -- check return status
323: END LOOP; -- OSFM
522: -- Clear inventory message from the stack because inventory always put
523: -- quantity tree error into message stack, but did not error out the
524: -- transactions. This will mislead both customer and developer if transaction
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);
549: x_returnStatus => l_returnStatus);
550: END IF;
551: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
552: fnd_message.set_token('MESSAGE', l_errMsg);
553: fnd_msg_pub.add;
554: END write_mtl_errors;
555:
556: /*****************************************************************************
557: * This procedure is equivalent to witpslw_lock_wipops in wiltps.ppc
637: p_msg => l_errMsg,
638: x_returnStatus => l_returnStatus);
639: END IF;
640: fnd_message.set_name('INV','INV_WIP_WORK_ORDER_LOCKED');
641: fnd_msg_pub.add;
642:
643: WHEN others THEN
644: IF(c_wipops%ISOPEN) THEN
645: CLOSE c_wipops;
654: x_returnStatus => l_returnStatus);
655: END IF;
656: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
657: fnd_message.set_token('MESSAGE', l_errMsg);
658: fnd_msg_pub.add;
659: END lock_wipops;
660:
661: /*****************************************************************************
662: * This procedure is equivalent to witpssa_sched_alloc in wiltps.ppc
928:
929: /* Fix for bug 5373061: Passed missing token */
930: fnd_message.set_name('WIP','WIP_INT_ERROR_NO_SCHED');
931: fnd_message.set_token('ROUTINE', 'wip_movProc_priv.schedule_alloc');
932: fnd_msg_pub.add;
933:
934: WHEN others THEN
935: IF(c_rsa%ISOPEN) THEN
936: CLOSE c_rsa;
946: x_returnStatus => l_returnStatus);
947: END IF;
948: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
949: fnd_message.set_token('MESSAGE', l_errMsg);
950: fnd_msg_pub.add;
951: END schedule_alloc;
952:
953: /*****************************************************************************
954: * This procedure is equivalent to witoc_insert_alloc_child in wiltps.ppc
1089: END IF;
1090:
1091: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1092: fnd_message.set_token('MESSAGE', l_msgData);
1093: fnd_msg_pub.add;
1094:
1095: WHEN others THEN
1096: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
1097: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
1103: x_returnStatus => l_returnStatus);
1104: END IF;
1105: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1106: fnd_message.set_token('MESSAGE', l_errMsg);
1107: fnd_msg_pub.add;
1108: END insert_alloc_child;
1109:
1110: /*****************************************************************************
1111: * This procedure is equivalent to wip_update_wo_rs in wiltps.ppc
1305: x_returnStatus => l_returnStatus);
1306: END IF;
1307: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1308: fnd_message.set_token('MESSAGE', l_errMsg);
1309: fnd_msg_pub.add;
1310: END update_wo_rs;
1311:
1312:
1313: /*****************************************************************************
1417: x_returnStatus => l_returnStatus);
1418: END IF;
1419: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1420: fnd_message.set_token('MESSAGE', l_errMsg);
1421: fnd_msg_pub.add;
1422: END update_wipops;
1423:
1424: /*****************************************************************************
1425: * This procedure is equivalent to witpsma_move_alloc in wiltps.ppc
1731: END IF; -- BACKGROUND check
1732:
1733: IF(l_proc_status = TVE_OVERCOMPLETION_MISMATCH) THEN
1734: fnd_message.set_name('WIP', 'WIP_OVERCOMPLETION_MISMATCH');
1735: fnd_msg_pub.add;
1736: l_errMsg := 'parent txn is not really overcompletion txn';
1737: raise fnd_api.g_exc_unexpected_error;
1738: ELSE
1739: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
1738: ELSE
1739: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
1740: fnd_message.set_token('ENTITY1', 'transaction quantity');
1741: fnd_message.set_token('ENTITY2', 'quantity available to move');
1742: fnd_msg_pub.add;
1743: l_errMsg := 'available qty is not enough to fullfill move txn';
1744: raise fnd_api.g_exc_unexpected_error;
1745: END IF;
1746:
1873: x_returnStatus => l_returnStatus);
1874: END IF;
1875: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
1876: fnd_message.set_token('MESSAGE', l_errMsg);
1877: fnd_msg_pub.add;
1878: END rep_move_alloc;
1879:
1880: /*****************************************************************************
1881: * This procedure is equivalent to wip_update_wo_dj in wiltps.ppc
2083: x_returnStatus => l_returnStatus);
2084: END IF;
2085: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
2086: fnd_message.set_token('MESSAGE', l_errMsg);
2087: fnd_msg_pub.add;
2088: END update_wo_dj;
2089:
2090: /*****************************************************************************
2091: * This procedure is equivalent to witpssq_step_qtys_dj in wiltps.ppc
2229: WIP_CONSTANTS.MOVE_TXN) AND
2230: (l_ser_loc.sn_op <> l_dj_txn.fm_op OR
2231: l_ser_loc.sn_step <> l_dj_txn.fm_step)) THEN
2232: fnd_message.set_name('WIP', 'WIP_SERIAL_LOCATION_MISSMATCH');
2233: fnd_msg_pub.add;
2234: l_errMsg := 'current serial location missmatch';
2235: raise fnd_api.g_exc_unexpected_error;
2236: ELSE -- serial location is valid to move
2237: -- If user move back to Queue of serialization start op, we clear
2328: END IF; -- BACKGROUND check
2329: fnd_message.set_name('WIP', 'WIP_LESS_OR_EQUAL');
2330: fnd_message.set_token('ENTITY1', 'transaction quantity');
2331: fnd_message.set_token('ENTITY2', 'quantity available to move');
2332: fnd_msg_pub.add;
2333: l_errMsg := 'available qty is not enough to fullfill move txn';
2334: raise fnd_api.g_exc_unexpected_error;
2335: ELSE -- enough qty to move
2336: IF(l_dj_txn.oc_txn_type = WIP_CONSTANTS.parent_txn) THEN
2545: x_returnStatus => l_returnStatus);
2546: END IF;
2547: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
2548: fnd_message.set_token('MESSAGE', l_errMsg);
2549: fnd_msg_pub.add;
2550: END check_qty_dj;
2551:
2552: /*****************************************************************************
2553: * This procedure is equivalent to witvemp_move_profile in wiltve.ppc
2752: x_returnStatus => l_returnStatus);
2753: END IF;
2754: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
2755: fnd_message.set_token('MESSAGE', l_errMsg);
2756: fnd_msg_pub.add;
2757: END get_move_profile;
2758:
2759: /*****************************************************************************
2760: * This procedure is equivalent to witpsth_txn_history in wiltps5.ppc
3128: x_returnStatus => l_returnStatus);
3129: END IF;
3130: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
3131: fnd_message.set_token('MESSAGE', l_errMsg);
3132: fnd_msg_pub.add;
3133: END insert_txn_history;
3134:
3135: /*****************************************************************************
3136: * This procedure is equivalent to witoc_delete_child in wiltps5.ppc
3193: x_returnStatus => l_returnStatus);
3194: END IF;
3195: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
3196: fnd_message.set_token('MESSAGE', l_errMsg);
3197: fnd_msg_pub.add;
3198: END delete_child_txn;
3199:
3200: /*****************************************************************************
3201: * This procedure is equivalent to witpsar_auto_resources in wiltps2.ppc
4346: x_returnStatus => l_returnStatus);
4347: END IF;
4348: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
4349: fnd_message.set_token('MESSAGE', l_errMsg);
4350: fnd_msg_pub.add;
4351: END insert_auto_resource;
4352:
4353: /*****************************************************************************
4354: * This procedure is equivalent to wipiara in wiltca.ppc
4486: x_returnStatus => l_returnStatus);
4487: END IF;
4488: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
4489: fnd_message.set_token('MESSAGE', l_errMsg);
4490: fnd_msg_pub.add;
4491: END insert_txn_alloc;
4492:
4493: /*****************************************************************************
4494: * This procedure is equivalent to witpsdo_dept_overheads in wiltps3.ppc
5617: x_returnStatus => l_returnStatus);
5618: END IF;
5619: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
5620: fnd_message.set_token('MESSAGE', l_errMsg);
5621: fnd_msg_pub.add;
5622: END insert_dept_overhead;
5623:
5624: /*****************************************************************************
5625: * This procedure is equivalent to witpsrt_release_cost_txns in wiltps3.ppc
5684: x_returnStatus => l_returnStatus);
5685: END IF;
5686: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
5687: fnd_message.set_token('MESSAGE', l_errMsg);
5688: fnd_msg_pub.add;
5689: END release_cost_txn;
5690:
5691: /*****************************************************************************
5692: * This procedure is equivalent to witpspr_po_req in wiltps4.ppc
6726: x_returnStatus => l_returnStatus);
6727: END IF;
6728: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
6729: fnd_message.set_token('MESSAGE', l_errMsg);
6730: fnd_msg_pub.add;
6731: END insert_po_req;
6732:
6733: /*****************************************************************************
6734: * This procedure is equivalent to wip_startwf in wiltps4.ppc
6922: x_returnStatus => l_returnStatus);
6923: END IF;
6924: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
6925: fnd_message.set_token('MESSAGE', l_errMsg);
6926: fnd_msg_pub.add;
6927: END start_workflow;
6928:
6929: /*****************************************************************************
6930: * This procedure is equivalent to witpsuc_op_units_complete in wiltps5.ppc
7132: x_returnStatus => l_returnStatus);
7133: END IF;
7134: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7135: fnd_message.set_token('MESSAGE', l_errMsg);
7136: fnd_msg_pub.add;
7137: END update_complete_qty;
7138:
7139: /*****************************************************************************
7140: * This procedure is equivalent to wit_op_snapshot in wiltps5.ppc
7192: x_returnStatus => l_returnStatus);
7193: END IF;
7194:
7195: fnd_message.set_name('CST', l_errCode);
7196: fnd_msg_pub.add;
7197:
7198: WHEN others THEN
7199: x_returnStatus := fnd_api.g_ret_sts_unexp_error;
7200: l_errMsg := 'unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
7206: x_returnStatus => l_returnStatus);
7207: END IF;
7208: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7209: fnd_message.set_token('MESSAGE', l_errMsg);
7210: fnd_msg_pub.add;
7211: END op_snapshot;
7212:
7213: /*****************************************************************************
7214: * This procedure is equivalent to wit_snapshot_online in wiltps5.ppc
7334: x_returnStatus => l_returnStatus);
7335: END IF;
7336: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7337: fnd_message.set_token('MESSAGE', l_errMsg);
7338: fnd_msg_pub.add;
7339: END snapshot_online;
7340:
7341: /*****************************************************************************
7342: * This procedure is equivalent to wit_snapshot_background in wiltps5.ppc
7501: err_msg => l_errMsg);
7502:
7503: IF(l_returnValue <> 1) THEN
7504: fnd_message.set_name('CST', l_errCode);
7505: fnd_msg_pub.add;
7506: l_errMsg := 'CSTACOSN.validate_move_snap_to_temp failed';
7507: raise fnd_api.g_exc_unexpected_error;
7508: END IF; -- check return status
7509: ELSE
7550: x_returnStatus => l_returnStatus);
7551: END IF;
7552: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7553: fnd_message.set_token('MESSAGE', l_errMsg);
7554: fnd_msg_pub.add;
7555: END snapshot_background;
7556:
7557: /*****************************************************************************
7558: * This procedure will be used to update quantity_completed, and take snapshot
7658: x_returnStatus => l_returnStatus);
7659: END IF;
7660: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
7661: fnd_message.set_token('MESSAGE', l_errMsg);
7662: fnd_msg_pub.add;
7663: END update_wo_and_snapshot;
7664:
7665: /*****************************************************************************
7666: * This procedure is equivalent to witpsst_scrap_txns in wiltps5.ppc
7824: x_msg_data => l_msg_data
7825: );
7826: IF (l_returnstatus <> fnd_api.g_ret_sts_success) THEN
7827: IF (l_returnstatus = fnd_api.g_ret_sts_error) THEN
7828: fnd_msg_pub.count_and_get(
7829: p_encoded => fnd_api.g_false,
7830: p_count => l_msg_count,
7831: p_data => l_errmsg);
7832: RAISE fnd_api.g_exc_error;
7830: p_count => l_msg_count,
7831: p_data => l_errmsg);
7832: RAISE fnd_api.g_exc_error;
7833: ELSE
7834: fnd_msg_pub.count_and_get(
7835: p_encoded => fnd_api.g_false,
7836: p_count => l_msg_count,
7837: p_data => l_errmsg);
7838:
8370: x_returnStatus => l_returnStatus);
8371: END IF;
8372: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
8373: fnd_message.set_token('MESSAGE', l_errMsg);
8374: fnd_msg_pub.add;
8375: END scrap_txns;
8376:
8377: /*****************************************************************************
8378: * This procedure is equivalent to witpscp_completion in wiltps5.ppc
9084: x_returnStatus => x_returnStatus);
9085:
9086: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
9087: --FP bug 5752485 (base bug 4128207) Added the IF condition below since write_mtl_errors
9088: --is not applicable for ONLINE completions. Otherwise the fnd_msg_pub stack is initialized
9089: --inside write_mtl_errors which suppresses messages to be shown to the user in the UI
9090: IF (l_transaction_mode <> WIP_CONSTANTS.ONLINE) THEN
9091: -- write mtl error message into WIP_TXN_INTERFACE_ERRORS
9092: write_mtl_errors(p_mtl_header_id => p_gib.assy_header_id);
9171: x_returnStatus => l_returnStatus);
9172: END IF;
9173: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
9174: fnd_message.set_token('MESSAGE', l_errMsg);
9175: fnd_msg_pub.add;
9176: END ez_completion;
9177:
9178: /*****************************************************************************
9179: * This procedure is equivalent to witoc_update_wro in wiltps5.ppc
9282: x_returnStatus => l_returnStatus);
9283: END IF;
9284: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
9285: fnd_message.set_token('MESSAGE', l_errMsg);
9286: fnd_msg_pub.add;
9287: END update_wro;
9288:
9289: /*****************************************************************************
9290: * This procedure is equivalent to wiltps in wiltps5.ppc
9562: x_returnStatus => l_returnStatus);
9563: END IF;
9564: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
9565: fnd_message.set_token('MESSAGE', l_errMsg);
9566: fnd_msg_pub.add;
9567: END move_txns;
9568:
9569: /*****************************************************************************
9570: * This procedure is equivalent to SF_MOVE in wiutps.ppc + EASY_COMPLETE in
9686: l_return_hdr_id NUMBER := -1;
9687: BEGIN
9688:
9689: IF(fnd_api.to_boolean(p_initMsgList)) THEN
9690: fnd_msg_pub.initialize;
9691: END IF;
9692:
9693: IF (l_logLevel <= wip_constants.trace_logging) THEN
9694: l_params(1).paramName := 'p_group_id';
9910:
9911: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
9912: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
9913: fnd_message.set_token('MESSAGE', l_errMsg);
9914: fnd_msg_pub.add;
9915: l_errMsg := 'wip_mtlTempProc_priv.processTemp failed' ;
9916: raise fnd_api.g_exc_unexpected_error;
9917: END IF;
9918: l_return_hdr_id := l_gib.assy_header_id;
9990:
9991: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
9992: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
9993: fnd_message.set_token('MESSAGE', l_errMsg);
9994: fnd_msg_pub.add;
9995: l_errMsg := 'QA Failed. Collection ID:' || l_qa_collection_id;
9996: raise fnd_api.g_exc_unexpected_error;
9997: END IF;
9998: END LOOP; -- c_qa_id FETCH
10057:
10058: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
10059: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
10060: fnd_message.set_token('MESSAGE', l_errMsg);
10061: fnd_msg_pub.add;
10062: l_errMsg := 'wip_mtlTempProc_priv.processTemp failed' ;
10063: raise fnd_api.g_exc_unexpected_error;
10064: END IF;
10065: END IF; -- check l_gib.assy_header_id
10138: IF(l_ls_required = WIP_CONSTANTS.YES) THEN
10139: -- If we need to gather more lot/serial, error out because
10140: -- we cannot gather lot/serial for background transaction.
10141: fnd_message.set_name('WIP', 'WIP_NO_LOT_SER_COMP_BKGND');
10142: fnd_msg_pub.add;
10143: raise fnd_api.g_exc_unexpected_error;
10144: END IF;
10145: END IF; -- check return status
10146: ELSE -- discrete job or repetitive schedule
10177: IF(l_ls_required = WIP_CONSTANTS.YES) THEN
10178: -- If we need to gather more lot/serial, error out because
10179: -- we cannot gather lot/serial for background transaction.
10180: fnd_message.set_name('WIP', 'WIP_NO_LOT_SER_COMP_BKGND');
10181: fnd_msg_pub.add;
10182: raise fnd_api.g_exc_unexpected_error;
10183: END IF;
10184: END IF; -- check return status
10185: END IF; -- check entity type
10301:
10302: IF(x_returnStatus <> fnd_api.g_ret_sts_success) THEN
10303: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
10304: fnd_message.set_token('MESSAGE', l_errMsg);
10305: fnd_msg_pub.add;
10306: l_errMsg := 'wip_mtlTempProc_priv.processTemp failed' ;
10307: raise fnd_api.g_exc_unexpected_error;
10308: END IF;
10309: END IF; -- there is the records in MMTT with this header_id
10532: -- the message stack because this API will be called for both online and
10533: -- background transaction. However, WIP_SOME_RECORDS_ERROR is only
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',
10721: x_returnStatus => l_returnStatus);
10722: END IF;
10723: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
10724: fnd_message.set_token('MESSAGE', l_msg);
10725: fnd_msg_pub.add;
10726: END repetitive_scrap;
10727:
10728: /*****************************************************************************
10729: * This procedure will be used by WIP OA Transaction page to insert record
10990: BEGIN
10991:
10992: /* Fix for bug 5518780. Initialize msg stack here instead of exception handler
10993: so that messages from INV are not deleted */
10994: fnd_msg_pub.initialize;
10995:
10996: l_process_phase := '1';
10997: IF (l_log_level <= wip_constants.trace_logging) THEN
10998: l_params(1).paramName := 'p_group_id';
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.
11116: -- Instead, error message will be put in message stack.
11117: -- fnd_msg_pub.initialize;
11118: FOR l_errors IN c_errors LOOP
11119: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
11120: fnd_message.set_token('MESSAGE', l_errors.error_message);
11121: fnd_msg_pub.add;
11117: -- fnd_msg_pub.initialize;
11118: FOR l_errors IN c_errors LOOP
11119: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
11120: fnd_message.set_token('MESSAGE', l_errors.error_message);
11121: fnd_msg_pub.add;
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
11137: l_error_msg := ' unexpected error: ' || SQLERRM || 'SQLCODE = ' || SQLCODE;
11138:
11139: fnd_message.set_name('FND', 'FND_GENERIC_MESSAGE');
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,