[Home] [Help]
1: PACKAGE BODY WSM_Serial_support_PVT AS
2: /* $Header: WSMVSERB.pls 120.26 2006/09/08 00:55:22 nlal noship $ */
3:
4:
5: type t_contorl_code is table of number index by varchar2(200);
327: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
328: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
329:
330: l_stmt_num NUMBER;
331: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.LBJ_serial_intf_proc';
332: l_param_tbl WSM_Log_PVT.param_tbl_type;
333: -- Logging variables...
334:
335:
505: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
506: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
507:
508: l_stmt_num NUMBER;
509: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.LBJ_serial_processor';
510: l_param_tbl WSM_Log_PVT.param_tbl_type;
511: -- Logging variables...
512:
513: BEGIN
700: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
701: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
702:
703: l_stmt_num NUMBER;
704: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.get_serial_track_info';
705: -- Logging variables...
706:
707: BEGIN
708: l_stmt_num := 10;
869: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
870: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
871:
872: l_stmt_num NUMBER;
873: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.process_serial_info';
874: l_param_tbl WSM_Log_PVT.param_tbl_type;
875: -- Logging variables...
876:
877: BEGIN
898:
899: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
900: l_msg_tokens.delete;
901: WSM_log_PVT.logMessage (p_module_name => l_module ,
902: p_msg_text => 'Inside WSM_SERIAL_SUPPORT_PVT.process_serial_info',
903: p_stmt_num => l_stmt_num ,
904: p_msg_tokens => l_msg_tokens ,
905: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
906: p_run_log_level => l_log_level
1303: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
1304: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1305:
1306: l_stmt_num NUMBER;
1307: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.add_assoc_serial_number';
1308: -- Logging variables...
1309:
1310: BEGIN
1311: l_stmt_num := 10;
1565: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
1566: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1567:
1568: l_stmt_num NUMBER;
1569: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.add_assoc_serial_number(2)';
1570: -- Logging variables...
1571:
1572:
1573: BEGIN
1819: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
1820: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
1821:
1822: l_stmt_num NUMBER;
1823: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.add_serial_number';
1824: -- Logging variables...
1825:
1826: BEGIN
1827:
2043: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
2044: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2045:
2046: l_stmt_num NUMBER;
2047: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.update_serial_attr';
2048: l_param_tbl WSM_Log_PVT.param_tbl_type;
2049: -- Logging variables...
2050:
2051: BEGIN
2463: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
2464: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2465:
2466: l_stmt_num NUMBER;
2467: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.update_serial_attr(2)';
2468: l_param_tbl WSM_Log_PVT.param_tbl_type;
2469: -- Logging variables...
2470:
2471: BEGIN
2652: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
2653: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2654:
2655: l_stmt_num NUMBER;
2656: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.wms_installed';
2657: -- Logging variables...
2658: BEGIN
2659:
2660: x_return_status := G_RET_SUCCESS;
2742: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
2743: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
2744:
2745: l_stmt_num NUMBER;
2746: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.update_serial';
2747: l_param_tbl WSM_Log_PVT.param_tbl_type;
2748: -- Logging variables...
2749:
2750: begin
3166: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
3167: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3168:
3169: l_stmt_num NUMBER;
3170: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.Move_serial_intf_proc';
3171: l_param_tbl WSM_Log_PVT.param_tbl_type;
3172: -- Logging variables...
3173:
3174: BEGIN
3535: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
3536: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3537:
3538: l_stmt_num NUMBER;
3539: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.Move_serial_processor';
3540: l_param_tbl WSM_Log_PVT.param_tbl_type;
3541: -- Logging variables...
3542:
3543: BEGIN
3598: l_stmt_num := 20;
3599: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
3600: l_msg_tokens.delete;
3601: WSM_log_PVT.logMessage (p_module_name => l_module ,
3602: p_msg_text => 'Invoking WSM_SERIAL_SUPPORT_PVT.check_move_serial_qty',
3603: p_stmt_num => l_stmt_num ,
3604: p_msg_tokens => l_msg_tokens ,
3605: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
3606: p_run_log_level => l_log_level
3694:
3695: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
3696: l_msg_tokens.delete;
3697: WSM_log_PVT.logMessage (p_module_name => l_module ,
3698: p_msg_text => 'Invoking WSM_Serial_support_PVT.populate_undo_txn',
3699: p_stmt_num => l_stmt_num ,
3700: p_msg_tokens => l_msg_tokens ,
3701: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
3702: p_run_log_level => l_log_level
3848: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
3849: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
3850:
3851: l_stmt_num NUMBER;
3852: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.check_move_serial_qty';
3853: l_param_tbl WSM_Log_PVT.param_tbl_type;
3854: -- Logging variables...
3855:
3856: l_charge_jump_from_queue NUMBER;
4784: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
4785: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
4786:
4787: l_stmt_num NUMBER;
4788: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.populate_undo_txn';
4789: l_param_tbl WSM_Log_PVT.param_tbl_type;
4790: -- Logging variables...
4791:
4792:
5159: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
5160: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5161:
5162: l_stmt_num NUMBER;
5163: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.WLT_serial_intf_proc';
5164: l_param_tbl WSM_Log_PVT.param_tbl_type;
5165: -- Logging variables...
5166:
5167: BEGIN
5439: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
5440: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5441:
5442: l_stmt_num NUMBER;
5443: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.fetch_wlt_serials';
5444: l_param_tbl WSM_Log_PVT.param_tbl_type;
5445: -- Logging variables...
5446:
5447:
5539: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
5540: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5541:
5542: l_stmt_num NUMBER;
5543: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.Insert_into_WST';
5544: l_param_tbl WSM_Log_PVT.param_tbl_type;
5545: -- Logging variables...
5546:
5547: BEGIN
5732: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
5733: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5734:
5735: l_stmt_num NUMBER;
5736: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.WLT_serial_processor';
5737: l_param_tbl WSM_Log_PVT.param_tbl_type;
5738: -- Logging variables...
5739:
5740: BEGIN
7505: l_conv_rate NUMBER;
7506: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
7507: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7508:
7509: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.validate_qty';
7510: l_stmt_num NUMBER;
7511:
7512: BEGIN
7513: x_return_status := G_RET_SUCCESS;
7701: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
7702: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
7703:
7704: l_stmt_num NUMBER;
7705: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.Insert_move_attr';
7706: l_param_tbl WSM_Log_PVT.param_tbl_type;
7707: -- Logging variables...
7708:
7709: BEGIN
8473: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
8474: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8475:
8476: l_stmt_num NUMBER;
8477: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.update_attr_move';
8478: l_param_tbl WSM_Log_PVT.param_tbl_type;
8479: -- Logging variables...
8480:
8481: BEGIN
8945: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
8946: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
8947:
8948: l_stmt_num NUMBER;
8949: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.find_undo_ret_serials';
8950: l_param_tbl WSM_Log_PVT.param_tbl_type;
8951: -- Logging variables...
8952:
8953: begin
9106: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
9107: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9108:
9109: l_stmt_num NUMBER;
9110: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.Move_forms_serial_proc';
9111: l_param_tbl WSM_Log_PVT.param_tbl_type;
9112: -- Logging variables...
9113:
9114: BEGIN
9115: l_stmt_num := 10;
9116: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
9117: l_msg_tokens.delete;
9118: WSM_log_PVT.logMessage (p_module_name => l_module ,
9119: p_msg_text => 'Entered wsm.plsql.WSM_SERIAL_SUPPORT_PVT.Move_forms_serial_proc',
9120: p_stmt_num => l_stmt_num ,
9121: p_msg_tokens => l_msg_tokens ,
9122: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
9123: p_run_log_level => l_log_level
9191:
9192: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
9193: l_msg_tokens.delete;
9194: WSM_log_PVT.logMessage (p_module_name => l_module ,
9195: p_msg_text => 'Invoking WSM_Serial_support_PVT.Move_serial_processor',
9196: p_stmt_num => l_stmt_num ,
9197: p_msg_tokens => l_msg_tokens ,
9198: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
9199: p_run_log_level => l_log_level
9199: p_run_log_level => l_log_level
9200: );
9201: END IF;
9202:
9203: WSM_Serial_support_PVT.Move_serial_processor ( p_calling_mode => 2 ,
9204: p_serial_num_tbl => l_wsm_serial_num_tbl ,
9205: p_move_txn_type => p_move_txn_type ,
9206: p_wip_entity_id => p_wip_entity_id ,
9207: p_organization_id => p_organization_id ,
9236: IF p_move_txn_type IN (2,3) THEN -- Assembly return and completion transaction...
9237: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
9238: l_msg_tokens.delete;
9239: WSM_log_PVT.logMessage (p_module_name => l_module ,
9240: p_msg_text => 'Invoking WSM_Serial_support_PVT.Insert_move_attr',
9241: p_stmt_num => l_stmt_num ,
9242: p_msg_tokens => l_msg_tokens ,
9243: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
9244: p_run_log_level => l_log_level
9245: );
9246: END IF;
9247:
9248: -- Insert records into the WSM_SERIAL_TXN_TEMP for serial attributes...
9249: WSM_Serial_support_PVT.Insert_move_attr ( p_group_id => null ,
9250: p_move_txn_id => p_move_txn_id ,
9251: p_scrap_txn_id => p_scrap_txn_id ,
9252: x_return_status => x_return_status ,
9253: x_error_count => x_error_count ,
9265:
9266: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
9267: l_msg_tokens.delete;
9268: WSM_log_PVT.logMessage (p_module_name => l_module ,
9269: p_msg_text => 'Processing in WSM_Serial_support_PVT.Move_forms_serial_proc complete',
9270: p_stmt_num => l_stmt_num ,
9271: p_msg_tokens => l_msg_tokens ,
9272: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
9273: p_run_log_level => l_log_level
9330: l_msg_tokens WSM_Log_PVT.token_rec_tbl;
9331: l_log_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
9332:
9333: l_stmt_num NUMBER;
9334: l_module VARCHAR2(100) := 'wsm.plsql.WSM_SERIAL_SUPPORT_PVT.log_serial_data';
9335: l_param_tbl WSM_Log_PVT.param_tbl_type;
9336: -- Logging variables...
9337:
9338: l_message_tbl t_log_message_tbl;
9519: p_data => x_error_msg
9520: );
9521: END log_serial_data;
9522:
9523: end WSM_Serial_support_PVT;