632:
633: CURSOR c_chk_record_exists(pc_batch_number VARCHAR2)
634: IS
635: SELECT COUNT(batch_number)
636: FROM ozf_resale_batches_all
637: WHERE batch_number = pc_batch_number;
638:
639:
640: CURSOR c_chk_line_exists(pc_batch_number VARCHAR2)
639:
640: CURSOR c_chk_line_exists(pc_batch_number VARCHAR2)
641: IS
642: SELECT COUNT(b.resale_batch_id),a.status_code
643: FROM ozf_resale_batches_all a, ozf_resale_lines_int_all b
644: WHERE a.resale_batch_id = b.resale_batch_id
645: AND a.batch_number = pc_batch_number
646: GROUP BY a.resale_batch_id, a.status_code;
647:
649: CURSOR c_get_update_record(pc_batch_number VARCHAR2, pc_resale_line_int_id NUMBER)
650: IS
651: SELECT a.resale_batch_id, a.object_version_number,
652: b.object_version_number
653: FROM ozf_resale_batches_all a, ozf_resale_lines_int_all b
654: WHERE a.resale_batch_id = b.resale_batch_id
655: AND a.batch_number = pc_batch_number
656: AND b.resale_line_int_id = pc_resale_line_int_id;
657:
685: l_status_code VARCHAR2(30);
686: l_line_status VARCHAR2(30);
687: l_batch_status VARCHAR2(30);
688:
689: l_resale_batch_rec ozf_resale_batches_all%rowtype;
690: l_int_line_tbl ozf_pre_process_pvt.resale_line_int_tbl_type := ozf_pre_process_pvt.resale_line_int_tbl_type();
691: l_resale_line_int_id_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
692: l_object_version_no_tbl JTF_NUMBER_TABLE := JTF_NUMBER_TABLE();
693: l_total_claimed_amount NUMBER := 0;
1345: -- the first time this API call is made. Batch is created when batch count = 0
1346: -- ==============================================================================
1347:
1348: IF l_status_code = 'NEW' AND l_batch_count = 0 THEN
1349: SELECT ozf_resale_batches_all_s.nextval
1350: INTO l_resale_batch_rec.resale_batch_id
1351: FROM DUAL;
1352:
1353: -- ==============================================================================
1646: p_api_version_number IN NUMBER,
1647: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1648: p_Commit IN VARCHAR2 := FND_API.G_FALSE,
1649: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1650: p_int_batch_rec IN ozf_resale_batches_all%rowtype,
1651: x_return_status OUT NOCOPY VARCHAR2,
1652: x_msg_count OUT NOCOPY NUMBER,
1653: x_msg_data OUT NOCOPY VARCHAR2
1654: )
1656:
1657: l_api_name CONSTANT VARCHAR2(30) := 'Update_Resale_Batch';
1658: l_api_version_number CONSTANT NUMBER := 1.0;
1659:
1660: l_resale_batch_rec ozf_resale_batches_all%rowtype;
1661:
1662: CURSOR get_resale_batch (pc_batch_number VARCHAR2)
1663: IS
1664: SELECT last_update_date,