[Home] [Help]
1: package body WSM_WIP_LOT_TXN_PVT as
2: /* $Header: WSMVWIPB.pls 120.7 2006/08/03 23:48:01 nlal noship $ */
3:
4: /* Package name */
5: g_pkg_name VARCHAR2(20) := 'WSM_WIP_LOT_TXN_PVT';
1: package body WSM_WIP_LOT_TXN_PVT as
2: /* $Header: WSMVWIPB.pls 120.7 2006/08/03 23:48:01 nlal noship $ */
3:
4: /* Package name */
5: g_pkg_name VARCHAR2(20) := 'WSM_WIP_LOT_TXN_PVT';
6:
7: /*logging variables*/
8:
9: g_log_level_unexpected NUMBER := FND_LOG.LEVEL_UNEXPECTED ;
39: -- Logging variables.....
40: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
41: l_msg_tokens WSM_log_PVT.token_rec_tbl;
42: l_stmt_num NUMBER;
43: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.Log_transaction_data';
44:
45: -- This assumption is based that each individual column to be logged doesnt exceed 3900 chars... (that's the max...)
46: type t_log_message_tbl IS table OF varchar2(3900) index by binary_integer;
47:
525: l_secondary_qty_tbl WSM_JOB_SECONDARY_QTY_TBL_TYPE;
526: l_poreq_request_id NUMBER;
527: l_index NUMBER;
528:
529: l_wltx_resulting_job_rec WSM_WIP_LOT_TXN_PVT.WLTX_RESULTING_JOBS_REC_TYPE; --ADD AH
530:
531: -- Logging variables.....
532: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
533: l_log_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
532: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
533: l_log_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
534:
535: l_stmt_num NUMBER;
536: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.invoke_txn_API';
537:
538: e_validation_error EXCEPTION;
539: begin
540: l_stmt_num := 10;
1361: -- Logging variables.....
1362: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
1363: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1364: l_stmt_num NUMBER;
1365: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.SPLIT_TXN';
1366: -- Logging variables...
1367:
1368: BEGIN
1369:
1842: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
1843: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1844:
1845: l_stmt_num NUMBER;
1846: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.MERGE_TXN';
1847: -- Logging variables...
1848:
1849: /* Have to create a table.... for the starting job */
1850: l_wltx_resulting_jobs_tbl WLTX_RESULTING_JOBS_TBL_TYPE;
2253: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2254: p_count => x_msg_count ,
2255: p_data => x_msg_data
2256: );
2257: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.merge_txn : ' || l_stmt_num || ' Error : ');
2258:
2259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2260:
2261: ROLLBACK TO start_merge_txn;
2265: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2266: p_count => x_msg_count,
2267: p_data => x_msg_data
2268: );
2269: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.merge_txn : ' || l_stmt_num || ' Unexp error : ');
2270:
2271: WHEN OTHERS THEN
2272:
2273: ROLLBACK TO start_merge_txn;
2287: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2288: p_count => x_msg_count ,
2289: p_data => x_msg_data
2290: );
2291: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.merge_txn : ' || l_stmt_num || ' Other error : ' || SQLCODE || ' : ' || substrb(SQLERRM,1,1000) );
2292: END;
2293:
2294: /* API for Update Assembly transaction.... */
2295: Procedure UPDATE_ASSEMBLY_TXN ( p_api_version IN NUMBER,
2318: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
2319: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2320:
2321: l_stmt_num NUMBER;
2322: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.UPDATE_ASSEMBLY_TXN';
2323:
2324: /* Have to create a table.... for the starting and resulting job */
2325: l_wltx_starting_jobs_tbl WLTX_STARTING_JOBS_TBL_TYPE;
2326: l_wltx_resulting_jobs_tbl WLTX_RESULTING_JOBS_TBL_TYPE;
2729: p_count => x_msg_count ,
2730: p_data => x_msg_data
2731: );
2732:
2733: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.update_assembly_txn : ' || l_stmt_num || ' Error : ');
2734:
2735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2736:
2737: ROLLBACK TO start_upd_assy_txn;
2741: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2742: p_count => x_msg_count ,
2743: p_data => x_msg_data
2744: );
2745: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.update_assembly_txn : ' || l_stmt_num || ' Un Exp Error : ');
2746: WHEN OTHERS THEN
2747:
2748: ROLLBACK TO start_upd_assy_txn;
2749:
2762: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2763: p_count => x_msg_count ,
2764: p_data => x_msg_data
2765: );
2766: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.update_assembly_txn : ' || l_stmt_num || ' Other Error : ');
2767: END;
2768:
2769: /* API for Update Routing transaction.... */
2770: Procedure UPDATE_ROUTING_TXN ( p_api_version IN NUMBER,
2794: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
2795: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2796:
2797: l_stmt_num NUMBER;
2798: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.UPDATE_ROUTING_TXN';
2799:
2800: /* Have to create a table.... for the starting job */
2801: l_wltx_starting_jobs_tbl WLTX_STARTING_JOBS_TBL_TYPE;
2802: l_wltx_resulting_jobs_tbl WLTX_RESULTING_JOBS_TBL_TYPE;
3267: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
3268: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3269:
3270: l_stmt_num NUMBER;
3271: l_module VARCHAR2(100) := 'wsm.plsql.WSM_WIP_LOT_TXN_PVT.UPDATE_QUANTITY_TXN';
3272:
3273: /* Have to create a table.... for the starting job */
3274: l_wltx_starting_jobs_tbl WLTX_STARTING_JOBS_TBL_TYPE;
3275: l_wltx_resulting_jobs_tbl WLTX_RESULTING_JOBS_TBL_TYPE;
3743: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
3744: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3745:
3746: l_stmt_num NUMBER;
3747: l_module VARCHAR2(100) :='wsm.plsql.WSM_WIP_LOT_TXN_PVT.UPDATE_LOTNAME_TXN';
3748:
3749: /* Have to create a table.... for the starting job */
3750: l_wltx_starting_jobs_tbl WLTX_STARTING_JOBS_TBL_TYPE;
3751: l_wltx_resulting_jobs_tbl WLTX_RESULTING_JOBS_TBL_TYPE;
4212: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
4213: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4214:
4215: l_stmt_num NUMBER;
4216: l_module VARCHAR2(100) :='wsm.plsql.WSM_WIP_LOT_TXN_PVT.BONUS_TXN';
4217:
4218: l_wltx_starting_job_rec WLTX_STARTING_JOBS_REC_TYPE;
4219:
4220: /* Have to create a table.... for the starting job */
4628: END;
4629:
4630: /* APIS not coded end */
4631:
4632: end WSM_WIP_LOT_TXN_PVT;