[Home] [Help]
79: CURSOR OPEN_line_count_csr (p_id in NUMBER) IS
80: SELECT count(1)
81: From ozf_resale_lines_int
82: WHERE resale_batch_id = p_id
83: AND status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN;
84: l_count NUMBER;
85:
86: TYPE id_type IS RECORD (
87: id NUMBER
88: );
89:
90: TYPE id_tbl_type is TABLE OF id_type INDEX BY binary_integer;
91:
92: l_line_int_rec OZF_RESALE_COMMON_PVT.g_interface_rec_csr%rowtype;
93:
94: CURSOR valid_line_id_csr(p_id in NUMBER,
95: p_order_number in VARCHAR2,
96: p_cust_id in NUMBER,
102: AND order_number = p_order_number
103: AND sold_from_cust_account_id = p_cust_id
104: AND date_ordered = p_date
105: AND status_code = 'PROCESSED';
106: --AND status_code in (OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
107: --AND duplicated_adjustment_id <> -1;
108:
109:
110: l_valid_line_id_tbl id_tbl_type;
129: AND b.status_code IN ('DUPLICATED', 'PROCESSED')
130: AND b.duplicated_line_id = c.resale_line_id
131: AND c.resale_header_id = a.resale_header_id;
132:
133: l_dup_header_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
134:
135: l_header_id NUMBER;
136: l_line_id NUMBER;
137:
140: sold_from_cust_account_id,
141: date_ordered
142: FROM ozf_resale_lines_int
143: WHERE resale_batch_id = p_id
144: AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED)
145: --AND duplicated_adjustment_id <> -1
146: ORDER BY date_ordered;
147:
148: TYPE order_num_tbl_type is TABLE OF batch_order_num_csr%rowtype INDEX BY binary_integer;
165: l_end_cust_relation_flag varchar2(30);
166:
167: --Bug# 8489216 fixed by ateotia(+)
168: /*
169: l_new_party_rec OZF_RESALE_COMMON_PVT.party_rec_type;
170:
171: CURSOR csr_orig_billto_cust(cv_resale_batch_id IN NUMBER) IS
172: SELECT DISTINCT bill_to_party_name
173: , bill_to_address
252:
253: -- Fix for bug # 12716192 : commented extra set context
254: -- MO_GLOBAL.set_policy_context( p_access_mode => 'S', p_org_id => l_org_id);
255:
256: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT THEN
257:
258: OPEN OPEN_line_count_csr(p_resale_batch_id);
259: FETCH OPEN_line_count_csr INTO l_count;
260: CLOSE OPEN_line_count_csr;
264: ozf_utility_pvt.error_message('OZF_RESALE_OPEN_LINE_EXIST');
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSE
267: -- Check whether there is a need to do inventory_verification
268: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
269: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
270: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
271:
272: IF l_inventory_tracking = 'T'
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSE
267: -- Check whether there is a need to do inventory_verification
268: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
269: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
270: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
271:
272: IF l_inventory_tracking = 'T'
273: AND ( l_direct_order_flag <> 'Y') THEN -- Indirect order Check
266: ELSE
267: -- Check whether there is a need to do inventory_verification
268: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
269: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
270: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
271:
272: IF l_inventory_tracking = 'T'
273: AND ( l_direct_order_flag <> 'Y') THEN -- Indirect order Check
274:
298:
299: IF l_end_cust_relation_flag = 'T' THEN
300: --Bug# 8489216 fixed by ateotia(+)
301: --Moved the logic of End Customer/Bill_To/Ship_To Party creation to Common Resale API.
302: OZF_RESALE_COMMON_PVT.Derive_Orig_Parties
303: ( p_api_version => 1.0
304: ,p_init_msg_list => FND_API.G_FALSE
305: ,p_commit => FND_API.G_FALSE
306: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
334: l_new_party_rec.postal_Code := l_orig_billto_cust_tbl(i).bill_to_postal_code;
335: l_new_party_rec.country := l_orig_billto_cust_tbl(i).bill_to_country;
336: l_new_party_rec.site_Use_Code := 'BILL_TO';
337:
338: OZF_RESALE_COMMON_PVT.Create_Party(
339: p_api_version => 1.0
340: ,p_init_msg_list => FND_API.G_FALSE
341: ,p_commit => FND_API.G_FALSE
342: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
389: l_new_party_rec.postal_code := l_orig_end_cust_tbl(i).end_cust_postal_code;
390: l_new_party_rec.country := l_orig_end_cust_tbl(i).end_cust_country;
391: l_new_party_rec.site_use_code := l_orig_end_cust_tbl(i).end_cust_site_use_code;
392:
393: OZF_RESALE_COMMON_PVT.Create_Party
394: ( p_api_version => 1.0
395: ,p_init_msg_list => FND_API.G_FALSE
396: ,p_commit => FND_API.G_FALSE
397: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
468: -- There is something wrong with this order. dispute all the orders
469: -- and move to the next one.
470: -- JXWU move update to common pvt
471: UPDATE ozf_resale_lines_int_all
472: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
473: dispute_code = 'OZF_RESALE_MULTI_HEADER',
474: followup_action_code = NVL2(followup_action_code,followup_action_code,'C'),
475: response_type = 'CA',
476: response_code = 'N'
477: WHERE resale_batch_id = p_resale_batch_id
478: AND order_number = l_order_num_tbl(k).order_number
479: AND sold_from_cust_account_id = l_order_num_tbl(k).sold_from_cust_account_id
480: AND date_ordered = l_order_num_tbl(k).date_ordered
481: AND status_code in (OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
482: --AND duplicated_adjustment_id <> -1;
483:
484:
485: GOTO END_ORDER_HEADER;
519: LOOP
520: IF OZF_DEBUG_LOW_ON THEN
521: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
522: END IF;
523: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
524: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
525: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
526:
527:
520: IF OZF_DEBUG_LOW_ON THEN
521: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
522: END IF;
523: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
524: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
525: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
526:
527:
528: /*
521: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
522: END IF;
523: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
524: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
525: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
526:
527:
528: /*
529: For Bug#9447673 SSD IDSM ER - Restricting the
529: For Bug#9447673 SSD IDSM ER - Restricting the
530: Validate inventory flow for Direct order only
531: */
532: -- Need to check against inventory
533: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
534: AND l_inventory_tracking = 'T'
535: AND (l_direct_order_flag <> 'Y') THEN
536: -- Check inventory level first
537: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
549: OZF_UTILITY_PVT.debug_message('Did NOT pass inventory checking');
550: END IF;
551: -- Here turn thIS line to DISPUTED AND create a dISput code FOR it.
552: UPDATE ozf_resale_lines_int
553: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
554: dispute_code = 'OZF_LT_INVT',
555: followup_action_code = NVL2(followup_action_code,followup_action_code,'C'),
556: response_type = 'CA',
557: response_code = 'N'
558: WHERE resale_line_int_id = l_line_int_rec.resale_line_int_id;
559:
560: -- SET Batch as DISPUTED
561: UPDATE ozf_resale_batches
562: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED
563: WHERE resale_batch_id = l_line_int_rec.resale_batch_id;
564:
565: GOTO END_ORDER_LINE;
566: END IF;
572: -- see jxwu header_fix.
573: IF j = 1 THEN
574: -- Determin header id
575: IF l_create_order_header THEN
576: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
577: p_api_version => 1
578: ,p_init_msg_list => FND_API.G_FALSE
579: ,p_commit => FND_API.G_FALSE
580: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
599: IF OZF_DEBUG_LOW_ON THEN
600: OZF_UTILITY_PVT.debug_message('header_id is '|| l_header_id);
601: END IF;
602:
603: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED THEN
604: IF l_line_int_rec.duplicated_line_id IS NULL THEN
605:
606: -- We need to create party id for bill_to and end customer if
607: -- users wants us to do it.
606: -- We need to create party id for bill_to and end customer if
607: -- users wants us to do it.
608:
609: -- No problem so far. Insert INTO batch_lines TABLE
610: OZF_RESALE_COMMON_PVT.Insert_Resale_Line(
611: p_api_version => 1
612: ,p_init_msg_list => FND_API.G_FALSE
613: ,p_commit => FND_API.G_FALSE
614: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
626: END IF;
627: --
628:
629: -- FOR processed order line, I need to create a transaction FOR it.
630: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
631: p_api_version => 1.0
632: ,p_init_msg_list => FND_API.G_FALSE
633: ,p_commit => FND_API.G_FALSE
634: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
671: END IF;
672: ELSE
673: l_line_id := l_line_int_rec.duplicated_line_id;
674: END IF;
675: ELSIF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED THEN
676: l_line_id := l_line_int_rec.duplicated_line_id;
677: END IF;
678:
679: IF OZF_DEBUG_LOW_ON THEN
679: IF OZF_DEBUG_LOW_ON THEN
680: OZF_UTILITY_PVT.debug_message('line_id is '|| l_line_id);
681: END IF;
682:
683: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED OR
684: l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
685: THEN
686: -- only create mapping FOR the lines that are processed or
687: -- duplicated, yet the adjustment IS new then
680: OZF_UTILITY_PVT.debug_message('line_id is '|| l_line_id);
681: END IF;
682:
683: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED OR
684: l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
685: THEN
686: -- only create mapping FOR the lines that are processed or
687: -- duplicated, yet the adjustment IS new then
688: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
684: l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
685: THEN
686: -- only create mapping FOR the lines that are processed or
687: -- duplicated, yet the adjustment IS new then
688: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
689: p_api_version => 1
690: ,p_init_msg_list => FND_API.G_FALSE
691: ,p_commit => FND_API.G_FALSE
692: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
720: -- UPDATE batch line status to CLOSEd for each OPEN and duplicated lines.
721:
722: BEGIN
723: UPDATE ozf_resale_lines_int_all
724: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_CLOSED
725: WHERE resale_batch_id = p_resale_batch_id
726: --Bug# 8414563 fixed by ateotia(+)
727: --AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
728: AND status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED;
723: UPDATE ozf_resale_lines_int_all
724: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_CLOSED
725: WHERE resale_batch_id = p_resale_batch_id
726: --Bug# 8414563 fixed by ateotia(+)
727: --AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
728: AND status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED;
729: --Bug# 8414563 fixed by ateotia(-)
730: --AND duplicated_adjustment_id <> -1;
731:
724: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_CLOSED
725: WHERE resale_batch_id = p_resale_batch_id
726: --Bug# 8414563 fixed by ateotia(+)
727: --AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
728: AND status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED;
729: --Bug# 8414563 fixed by ateotia(-)
730: --AND duplicated_adjustment_id <> -1;
731:
732: -- UPDATE batch status to CLOSEd -- might change later.
730: --AND duplicated_adjustment_id <> -1;
731:
732: -- UPDATE batch status to CLOSEd -- might change later.
733: UPDATE ozf_resale_batches_all
734: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED
735: WHERE resale_batch_id = p_resale_batch_id;
736: EXCEPTION
737: WHEN OTHERS THEN
738: ozf_utility_pvt.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': END');
980: sold_from_cust_account_id,
981: date_ordered
982: FROM ozf_resale_lines_int
983: WHERE status_code = 'OPEN'
984: -- status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED)
985: AND duplicated_adjustment_id IS NULL
986: AND resale_batch_id = p_resale_batch_id
987: ORDER BY date_ordered;
988:
985: AND duplicated_adjustment_id IS NULL
986: AND resale_batch_id = p_resale_batch_id
987: ORDER BY date_ordered;
988:
989: l_cust_account_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
990: l_order_num_tbl OZF_RESALE_COMMON_PVT.varchar_tbl_type;
991: l_order_date_tbl OZF_RESALE_COMMON_PVT.date_tbl_type;
992:
993: CURSOR order_set_csr(p_order_NUMBER in VARCHAR2,
986: AND resale_batch_id = p_resale_batch_id
987: ORDER BY date_ordered;
988:
989: l_cust_account_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
990: l_order_num_tbl OZF_RESALE_COMMON_PVT.varchar_tbl_type;
991: l_order_date_tbl OZF_RESALE_COMMON_PVT.date_tbl_type;
992:
993: CURSOR order_set_csr(p_order_NUMBER in VARCHAR2,
994: p_cust_account_id in NUMBER,
987: ORDER BY date_ordered;
988:
989: l_cust_account_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
990: l_order_num_tbl OZF_RESALE_COMMON_PVT.varchar_tbl_type;
991: l_order_date_tbl OZF_RESALE_COMMON_PVT.date_tbl_type;
992:
993: CURSOR order_set_csr(p_order_NUMBER in VARCHAR2,
994: p_cust_account_id in NUMBER,
995: p_date in date) IS
998: WHERE order_NUMBER = p_order_NUMBER
999: AND date_ordered = p_date
1000: AND sold_from_cust_account_id = p_cust_account_id
1001: AND status_code = 'OPEN'
1002: --AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED)
1003: AND duplicated_adjustment_id is NULL
1004: AND resale_batch_id = p_resale_batch_id;
1005:
1006: TYPE resale_lines_tbl_type IS TABLE OF order_set_csr%rowtype INDEX BY binary_integer;
1008:
1009: CURSOR invalid_line_count_csr (p_id NUMBER) IS
1010: SELECT COUNT(1)
1011: FROM ozf_resale_lines_int
1012: WHERE status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED
1013: AND dispute_code = OZF_RESALE_COMMON_PVT.G_INVALD_DISPUTE_CODE
1014: AND resale_batch_id = p_id;
1015:
1016: CURSOR Batch_info_csr (p_id in NUMBER) IS
1009: CURSOR invalid_line_count_csr (p_id NUMBER) IS
1010: SELECT COUNT(1)
1011: FROM ozf_resale_lines_int
1012: WHERE status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED
1013: AND dispute_code = OZF_RESALE_COMMON_PVT.G_INVALD_DISPUTE_CODE
1014: AND resale_batch_id = p_id;
1015:
1016: CURSOR Batch_info_csr (p_id in NUMBER) IS
1017: SELECT partner_party_id,
1058: x_return_status := FND_API.G_RET_STS_SUCCESS;
1059:
1060:
1061: /*
1062: OZF_RESALE_COMMON_PVT.Delete_Log(
1063: p_api_version => 1.0
1064: ,p_init_msg_list => FND_API.G_FALSE
1065: ,p_commit => FND_API.G_FALSE
1066: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1087: CLOSE order_num_csr;
1088:
1089: IF l_order_num_tbl.EXISTS(1) THEN
1090:
1091: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1092: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
1093: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1094:
1095: IF l_inventory_tracking = 'T' THEN
1088:
1089: IF l_order_num_tbl.EXISTS(1) THEN
1090:
1091: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1092: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
1093: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1094:
1095: IF l_inventory_tracking = 'T' THEN
1096: OPEN Batch_info_csr(p_resale_batch_id);
1089: IF l_order_num_tbl.EXISTS(1) THEN
1090:
1091: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1092: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
1093: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1094:
1095: IF l_inventory_tracking = 'T' THEN
1096: OPEN Batch_info_csr(p_resale_batch_id);
1097: FETCH batch_info_csr INTO l_partner_party_id,
1177: -- Purge the any error message that might be there.
1178: BEGIN
1179: DELETE FROM ozf_resale_logs
1180: WHERE resale_id = l_order_set_tbl(J).resale_line_int_id
1181: AND resale_id_type = OZF_RESALE_COMMON_PVT.G_ID_TYPE_IFACE;
1182: EXCEPTION
1183: WHEN OTHERS THEN
1184: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1210: ozf_utility_PVT.debug_message('Did not pass inventory checking');
1211: END IF;
1212: -- Here turn this line to disputed and create a disput code for it.
1213: UPDATE ozf_resale_lines_int
1214: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
1215: dispute_code = 'OZF_LT_INVT',
1216: followup_action_code = NVL2(followup_action_code,followup_action_code,'C'),
1217: response_type = 'CA',
1218: response_code = 'N'
1219: WHERE resale_line_int_id = l_order_set_tbl(J).resale_line_int_id;
1220:
1221: -- SET Batch as DISPUTED
1222: UPDATE ozf_resale_batches
1223: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED
1224: WHERE resale_batch_id = p_resale_batch_id;
1225:
1226: GOTO END_ORDER_LINE;
1227: ELSE
1226: GOTO END_ORDER_LINE;
1227: ELSE
1228: -- This is a valid tracing line
1229: UPDATE ozf_resale_lines_int
1230: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
1231: WHERE resale_line_int_id = l_order_set_tbl(J).resale_line_int_id;
1232: END IF;
1233: ELSE
1234: -- Set line status to Processed if not tracking inventory
1232: END IF;
1233: ELSE
1234: -- Set line status to Processed if not tracking inventory
1235: UPDATE ozf_resale_lines_int
1236: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
1237: WHERE resale_line_int_Id = l_order_set_tbl(j).resale_line_int_id;
1238: END IF;
1239: << END_ORDER_LINE >>
1240: NULL;
1252: END IF;
1253: END IF;
1254:
1255: -- get data regard this process
1256: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
1257: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
1258: CLOSE OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr;
1259:
1260: OPEN invalid_line_count_csr(p_resale_batch_id);
1253: END IF;
1254:
1255: -- get data regard this process
1256: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
1257: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
1258: CLOSE OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr;
1259:
1260: OPEN invalid_line_count_csr(p_resale_batch_id);
1261: FETCH invalid_line_count_csr INTO l_lines_invalid;
1254:
1255: -- get data regard this process
1256: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
1257: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
1258: CLOSE OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr;
1259:
1260: OPEN invalid_line_count_csr(p_resale_batch_id);
1261: FETCH invalid_line_count_csr INTO l_lines_invalid;
1262: CLOSE invalid_line_count_csr;
1261: FETCH invalid_line_count_csr INTO l_lines_invalid;
1262: CLOSE invalid_line_count_csr;
1263:
1264: --Bug# 8414563 fixed by ateotia(+)
1265: OPEN OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr (p_resale_batch_id);
1266: FETCH OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr INTO l_lines_duplicated;
1267: CLOSE OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr;
1268:
1269: --IF l_lines_disputed = 0 THEN
1262: CLOSE invalid_line_count_csr;
1263:
1264: --Bug# 8414563 fixed by ateotia(+)
1265: OPEN OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr (p_resale_batch_id);
1266: FETCH OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr INTO l_lines_duplicated;
1267: CLOSE OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr;
1268:
1269: --IF l_lines_disputed = 0 THEN
1270: IF (l_lines_disputed = 0 AND l_lines_duplicated = 0) THEN
1263:
1264: --Bug# 8414563 fixed by ateotia(+)
1265: OPEN OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr (p_resale_batch_id);
1266: FETCH OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr INTO l_lines_duplicated;
1267: CLOSE OZF_RESALE_COMMON_PVT.g_duplicated_line_count_csr;
1268:
1269: --IF l_lines_disputed = 0 THEN
1270: IF (l_lines_disputed = 0 AND l_lines_duplicated = 0) THEN
1271: --Bug# 8414563 fixed by ateotia(-)
1268:
1269: --IF l_lines_disputed = 0 THEN
1270: IF (l_lines_disputed = 0 AND l_lines_duplicated = 0) THEN
1271: --Bug# 8414563 fixed by ateotia(-)
1272: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_PROCESSED;
1273: ELSE
1274: -- batch is in dispute
1275: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED;
1276: END IF;
1271: --Bug# 8414563 fixed by ateotia(-)
1272: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_PROCESSED;
1273: ELSE
1274: -- batch is in dispute
1275: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED;
1276: END IF;
1277:
1278: -- Lastly, I will UPDATE the batch
1279: BEGIN