[Home] [Help]
4162:
4163: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4164: l_msg_tokens.delete;
4165: WSM_log_PVT.logMessage (p_module_name => l_module ,
4166: p_msg_text => 'Going to Insert ' || l_count || ' user provided records into wip_serial_move_interface for move and scrap',
4167: p_stmt_num => l_stmt_num ,
4168: p_msg_tokens => l_msg_tokens ,
4169: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4170: p_run_log_level => l_log_level
4173:
4174: l_stmt_num := 110;
4175: -- do a bulk insert...
4176: forall l_cntr in l_wip_serial_nums_tbl.first..l_wip_serial_nums_tbl.last
4177: insert into wip_serial_move_interface values l_wip_serial_nums_tbl(l_cntr);
4178:
4179: l_stmt_num := 120;
4180: IF l_move_serial_qty + l_scrap_serial_qty <> p_available_qty THEN
4181:
4181:
4182: l_stmt_num := 130;
4183: -- Now insert the left over serial numbers for scrap..
4184: -- insert the remaining records as scrap records....
4185: INSERT INTO WIP_SERIAL_MOVE_INTERFACE
4186: ( TRANSACTION_ID,
4187: ASSEMBLY_SERIAL_NUMBER,
4188: GEN_OBJECT_ID,
4189: LAST_UPDATE_DATE,
4221: -- AND MSN.current_status = WIP_CONSTANTS.IN_STORES
4222: -- AND MSN.operation_seq_num = p_curr_job_op_seq_num
4223: AND nvl(MSN.intraoperation_step_type,-1) <> WIP_CONSTANTS.SCRAP
4224: AND NOT EXISTS (select 'Serial Already inserted for move'
4225: from WIP_SERIAL_MOVE_INTERFACE
4226: where TRANSACTION_ID = p_move_txn_id
4227: AND ASSEMBLY_SERIAL_NUMBER = MSN.SERIAL_NUMBER
4228: )
4229: AND NOT EXISTS (select 'Serial Already inserted for scrap'
4226: where TRANSACTION_ID = p_move_txn_id
4227: AND ASSEMBLY_SERIAL_NUMBER = MSN.SERIAL_NUMBER
4228: )
4229: AND NOT EXISTS (select 'Serial Already inserted for scrap'
4230: from WIP_SERIAL_MOVE_INTERFACE
4231: where TRANSACTION_ID = p_scrap_txn_id
4232: AND ASSEMBLY_SERIAL_NUMBER = MSN.SERIAL_NUMBER
4233: )
4234: );
4235:
4236: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4237: l_msg_tokens.delete;
4238: WSM_log_PVT.logMessage (p_module_name => l_module ,
4239: p_msg_text => 'Inserted ' || SQL%ROWCOUNT || ' records into wip_serial_move_interface for scrap',
4240: p_stmt_num => l_stmt_num ,
4241: p_msg_tokens => l_msg_tokens ,
4242: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4243: p_run_log_level => l_log_level
4294:
4295: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4296: l_msg_tokens.delete;
4297: WSM_log_PVT.logMessage (p_module_name => l_module ,
4298: p_msg_text => 'Going to Insert ' || l_count || ' user provided records into wip_serial_move_interface for move and scrap',
4299: p_stmt_num => l_stmt_num ,
4300: p_msg_tokens => l_msg_tokens ,
4301: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4302: p_run_log_level => l_log_level
4305:
4306: l_stmt_num := 160;
4307: -- do a bulk insert...
4308: forall l_cntr in l_wip_serial_nums_tbl.first..l_wip_serial_nums_tbl.last
4309: insert into wip_serial_move_interface values l_wip_serial_nums_tbl(l_cntr);
4310:
4311: l_stmt_num := 170;
4312: IF l_move_serial_qty + l_scrap_serial_qty <> p_available_qty THEN
4313:
4313:
4314: l_stmt_num := 180;
4315: -- Now insert the left over serial numbers for scrap..
4316: -- insert the remaining records as scrap records....
4317: INSERT INTO WIP_SERIAL_MOVE_INTERFACE
4318: ( TRANSACTION_ID,
4319: ASSEMBLY_SERIAL_NUMBER,
4320: gen_object_id,
4321: LAST_UPDATE_DATE,
4353: -- AND MSN.current_status = WIP_CONSTANTS.IN_STORES
4354: -- AND MSN.operation_seq_num = p_curr_job_op_seq_num
4355: AND nvl(MSN.intraoperation_step_type,-1) <> WIP_CONSTANTS.SCRAP
4356: AND NOT EXISTS (select 'Serial Already inserted for move'
4357: from WIP_SERIAL_MOVE_INTERFACE
4358: where TRANSACTION_ID = p_move_txn_id
4359: AND ASSEMBLY_SERIAL_NUMBER = MSN.SERIAL_NUMBER
4360: )
4361: AND NOT EXISTS (select 'Serial Already inserted for scrap'
4358: where TRANSACTION_ID = p_move_txn_id
4359: AND ASSEMBLY_SERIAL_NUMBER = MSN.SERIAL_NUMBER
4360: )
4361: AND NOT EXISTS (select 'Serial Already inserted for scrap'
4362: from WIP_SERIAL_MOVE_INTERFACE
4363: where TRANSACTION_ID = p_scrap_txn_id
4364: AND ASSEMBLY_SERIAL_NUMBER = MSN.SERIAL_NUMBER
4365: )
4366: );
4368: l_stmt_num := 190;
4369: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4370: l_msg_tokens.delete;
4371: WSM_log_PVT.logMessage (p_module_name => l_module ,
4372: p_msg_text => 'Inserted ' || SQL%ROWCOUNT || ' records into wip_serial_move_interface for Move',
4373: p_stmt_num => l_stmt_num ,
4374: p_msg_tokens => l_msg_tokens ,
4375: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4376: p_run_log_level => l_log_level
4386:
4387: l_stmt_num := 200;
4388: -- Move Quantity is equal to the available qty...
4389: -- Insert all the serial numbers linked to the job...
4390: INSERT INTO WIP_SERIAL_MOVE_INTERFACE
4391: ( TRANSACTION_ID,
4392: ASSEMBLY_SERIAL_NUMBER,
4393: gen_object_id,
4394: LAST_UPDATE_DATE,
4430:
4431: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4432: l_msg_tokens.delete;
4433: WSM_log_PVT.logMessage (p_module_name => l_module ,
4434: p_msg_text => 'Inserted ' || SQL%ROWCOUNT || ' records into WIP_SERIAL_MOVE_INTERFACE to be moved',
4435: p_stmt_num => l_stmt_num ,
4436: p_msg_tokens => l_msg_tokens ,
4437: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4438: p_run_log_level => l_log_level
4444:
4445: l_stmt_num := 220;
4446: -- Scrap Quantity is equal to the available qty...
4447: -- Insert all the serial numbers linked to the job...
4448: INSERT INTO WIP_SERIAL_MOVE_INTERFACE
4449: ( TRANSACTION_ID,
4450: ASSEMBLY_SERIAL_NUMBER,
4451: gen_object_id,
4452: LAST_UPDATE_DATE,
4488:
4489: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4490: l_msg_tokens.delete;
4491: WSM_log_PVT.logMessage (p_module_name => l_module ,
4492: p_msg_text => 'Inserted ' || SQL%ROWCOUNT || ' records into WIP_SERIAL_MOVE_INTERFACE to be scrapped',
4493: p_stmt_num => l_stmt_num ,
4494: p_msg_tokens => l_msg_tokens ,
4495: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4496: p_run_log_level => l_log_level
4568:
4569: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
4570: l_msg_tokens.delete;
4571: WSM_log_PVT.logMessage (p_module_name => l_module ,
4572: p_msg_text => 'Going to insert ' || l_wip_serial_nums_tbl.count || ' records into WIP_SERIAL_MOVE_INTERFACE to be scrapped',
4573: p_stmt_num => l_stmt_num ,
4574: p_msg_tokens => l_msg_tokens ,
4575: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
4576: p_run_log_level => l_log_level
4579:
4580: l_stmt_num := 270;
4581: -- do a bulk insert...
4582: forall l_cntr in l_wip_serial_nums_tbl.first..l_wip_serial_nums_tbl.last
4583: insert into wip_serial_move_interface values l_wip_serial_nums_tbl(l_cntr);
4584:
4585: l_stmt_num := 280;
4586: END IF;
4587: END IF;
4996: );
4997: END IF;
4998:
4999: forall l_counter in l_wip_serial_rows_tbl.first..l_wip_serial_rows_tbl.last
5000: insert into wip_serial_move_interface values l_wip_serial_rows_tbl(l_counter);
5001:
5002: EXCEPTION
5003: WHEN FND_API.G_EXC_ERROR THEN
5004:
7926: g_program_appl_id ,
7927: g_program_id ,
7928: sysdate ,
7929: null
7930: from wip_serial_move_interface WSMI,
7931: mtl_serial_numbers MSN,
7932: wip_move_txn_interface WMTI
7933: where WMTI.group_id = p_group_id
7934: and WMTI.transaction_id = WSMI.transaction_id
8140: g_program_appl_id ,
8141: g_program_id ,
8142: sysdate ,
8143: null
8144: from wip_serial_move_interface WSMI,
8145: mtl_serial_numbers MSN,
8146: wip_move_txn_interface WMTI
8147: where WMTI.transaction_id in (p_move_txn_id,p_scrap_txn_id)
8148: and WMTI.transaction_id = WSMI.transaction_id