[Home] [Help]
68: CURSOR OPEN_line_count_csr (p_id in NUMBER) IS
69: SELECT count(1)
70: From ozf_resale_lines_int
71: WHERE resale_batch_id = p_id
72: AND status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN;
73: l_count NUMBER;
74:
75: TYPE id_type IS RECORD (
76: id NUMBER
77: );
78:
79: TYPE id_tbl_type is TABLE OF id_type INDEX BY binary_integer;
80:
81: l_line_int_rec OZF_RESALE_COMMON_PVT.g_interface_rec_csr%rowtype;
82:
83: CURSOR valid_line_id_csr(p_id in NUMBER,
84: p_order_number in VARCHAR2,
85: p_cust_id in NUMBER,
91: AND order_number = p_order_number
92: AND sold_from_cust_account_id = p_cust_id
93: AND date_ordered = p_date
94: AND status_code = 'PROCESSED';
95: --AND status_code in (OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
96: --AND duplicated_adjustment_id <> -1;
97:
98:
99: l_valid_line_id_tbl id_tbl_type;
118: AND b.status_code IN ('DUPLICATED', 'PROCESSED')
119: AND b.duplicated_line_id = c.resale_line_id
120: AND c.resale_header_id = a.resale_header_id;
121:
122: l_dup_header_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
123:
124: l_header_id NUMBER;
125: l_line_id NUMBER;
126:
129: sold_from_cust_account_id,
130: date_ordered
131: FROM ozf_resale_lines_int
132: WHERE resale_batch_id = p_id
133: AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED)
134: --AND duplicated_adjustment_id <> -1
135: ORDER BY date_ordered;
136:
137: TYPE order_num_tbl_type is TABLE OF batch_order_num_csr%rowtype INDEX BY binary_integer;
151: FROM ozf_sys_parameters;
152: -- BUG 4992408 (-)
153:
154: l_end_cust_relation_flag varchar2(30);
155: l_new_party_rec OZF_RESALE_COMMON_PVT.party_rec_type;
156:
157: CURSOR csr_orig_billto_cust(cv_resale_batch_id IN NUMBER) IS
158: SELECT DISTINCT bill_to_party_name
159: , bill_to_address
231: l_batch_NUMBER,
232: l_last_updated_by;
233: CLOSE batch_info_csr;
234:
235: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_PAYMENT THEN
236:
237: OPEN OPEN_line_count_csr(p_resale_batch_id);
238: FETCH OPEN_line_count_csr INTO l_count;
239: CLOSE OPEN_line_count_csr;
243: ozf_utility_pvt.error_message('OZF_RESALE_OPEN_LINE_EXIST');
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSE
246: -- Check whether there is a need to do inventory_verification
247: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
248: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
249: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
250:
251: IF l_inventory_tracking = 'T' THEN
244: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
245: ELSE
246: -- Check whether there is a need to do inventory_verification
247: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
248: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
249: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
250:
251: IF l_inventory_tracking = 'T' THEN
252: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
245: ELSE
246: -- Check whether there is a need to do inventory_verification
247: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
248: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
249: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
250:
251: IF l_inventory_tracking = 'T' THEN
252: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
253: p_api_version => 1.0
292: l_new_party_rec.postal_Code := l_orig_billto_cust_tbl(i).bill_to_postal_code;
293: l_new_party_rec.country := l_orig_billto_cust_tbl(i).bill_to_country;
294: l_new_party_rec.site_Use_Code := 'BILL_TO';
295:
296: OZF_RESALE_COMMON_PVT.Create_Party(
297: p_api_version => 1.0
298: ,p_init_msg_list => FND_API.G_FALSE
299: ,p_commit => FND_API.G_FALSE
300: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
347: l_new_party_rec.postal_code := l_orig_end_cust_tbl(i).end_cust_postal_code;
348: l_new_party_rec.country := l_orig_end_cust_tbl(i).end_cust_country;
349: l_new_party_rec.site_use_code := l_orig_end_cust_tbl(i).end_cust_site_use_code;
350:
351: OZF_RESALE_COMMON_PVT.Create_Party
352: ( p_api_version => 1.0
353: ,p_init_msg_list => FND_API.G_FALSE
354: ,p_commit => FND_API.G_FALSE
355: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
424: -- There is something wrong with this order. dispute all the orders
425: -- and move to the next one.
426: -- JXWU move update to common pvt
427: UPDATE ozf_resale_lines_int_all
428: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
429: dispute_code = 'OZF_RESALE_MULTI_HEADER',
430: followup_action_code = 'C',
431: response_type = 'CA',
432: response_code = 'N'
433: WHERE resale_batch_id = p_resale_batch_id
434: AND order_number = l_order_num_tbl(k).order_number
435: AND sold_from_cust_account_id = l_order_num_tbl(k).sold_from_cust_account_id
436: AND date_ordered = l_order_num_tbl(k).date_ordered
437: AND status_code in (OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
438: --AND duplicated_adjustment_id <> -1;
439:
440:
441: GOTO END_ORDER_HEADER;
475: LOOP
476: IF OZF_DEBUG_LOW_ON THEN
477: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
478: END IF;
479: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
480: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
481: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
482:
483: -- Need to check against inventory
476: IF OZF_DEBUG_LOW_ON THEN
477: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
478: END IF;
479: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
480: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
481: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
482:
483: -- Need to check against inventory
484: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
477: OZF_UTILITY_PVT.debug_message('Current line_int_id:' || l_valid_line_id_tbl(j).id);
478: END IF;
479: OPEN OZF_RESALE_COMMON_PVT.g_interface_rec_csr(l_valid_line_id_tbl(j).id);
480: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
481: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
482:
483: -- Need to check against inventory
484: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
485: l_inventory_tracking = 'T'
480: FETCH OZF_RESALE_COMMON_PVT.g_interface_rec_csr INTO l_line_int_rec;
481: CLOSE OZF_RESALE_COMMON_PVT.g_interface_rec_csr;
482:
483: -- Need to check against inventory
484: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
485: l_inventory_tracking = 'T'
486: THEN
487: -- Check inventory level first
488: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
500: OZF_UTILITY_PVT.debug_message('Did NOT pass inventory checking');
501: END IF;
502: -- Here turn thIS line to DISPUTED AND create a dISput code FOR it.
503: UPDATE ozf_resale_lines_int
504: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
505: dispute_code = 'OZF_LT_INVT',
506: followup_action_code = 'C',
507: response_type = 'CA',
508: response_code = 'N'
509: WHERE resale_line_int_id = l_line_int_rec.resale_line_int_id;
510:
511: -- SET Batch as DISPUTED
512: UPDATE ozf_resale_batches
513: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED
514: WHERE resale_batch_id = l_line_int_rec.resale_batch_id;
515:
516: GOTO END_ORDER_LINE;
517: END IF;
523: -- see jxwu header_fix.
524: IF j = 1 THEN
525: -- Determin header id
526: IF l_create_order_header THEN
527: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
528: p_api_version => 1
529: ,p_init_msg_list => FND_API.G_FALSE
530: ,p_commit => FND_API.G_FALSE
531: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
550: IF OZF_DEBUG_LOW_ON THEN
551: OZF_UTILITY_PVT.debug_message('header_id is '|| l_header_id);
552: END IF;
553:
554: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED THEN
555: IF l_line_int_rec.duplicated_line_id IS NULL THEN
556:
557: -- We need to create party id for bill_to and end customer if
558: -- users wants us to do it.
557: -- We need to create party id for bill_to and end customer if
558: -- users wants us to do it.
559:
560: -- No problem so far. Insert INTO batch_lines TABLE
561: OZF_RESALE_COMMON_PVT.Insert_Resale_Line(
562: p_api_version => 1
563: ,p_init_msg_list => FND_API.G_FALSE
564: ,p_commit => FND_API.G_FALSE
565: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
577: END IF;
578: --
579:
580: -- FOR processed order line, I need to create a transaction FOR it.
581: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
582: p_api_version => 1.0
583: ,p_init_msg_list => FND_API.G_FALSE
584: ,p_commit => FND_API.G_FALSE
585: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
617: END IF;
618: ELSE
619: l_line_id := l_line_int_rec.duplicated_line_id;
620: END IF;
621: ELSIF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED THEN
622: l_line_id := l_line_int_rec.duplicated_line_id;
623: END IF;
624:
625: IF OZF_DEBUG_LOW_ON THEN
625: IF OZF_DEBUG_LOW_ON THEN
626: OZF_UTILITY_PVT.debug_message('line_id is '|| l_line_id);
627: END IF;
628:
629: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED OR
630: l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
631: THEN
632: -- only create mapping FOR the lines that are processed or
633: -- duplicated, yet the adjustment IS new then
626: OZF_UTILITY_PVT.debug_message('line_id is '|| l_line_id);
627: END IF;
628:
629: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED OR
630: l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
631: THEN
632: -- only create mapping FOR the lines that are processed or
633: -- duplicated, yet the adjustment IS new then
634: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
630: l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
631: THEN
632: -- only create mapping FOR the lines that are processed or
633: -- duplicated, yet the adjustment IS new then
634: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
635: p_api_version => 1
636: ,p_init_msg_list => FND_API.G_FALSE
637: ,p_commit => FND_API.G_FALSE
638: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
666: -- UPDATE batch line status to CLOSEd for each OPEN and duplicated lines.
667:
668: BEGIN
669: UPDATE ozf_resale_lines_int
670: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_CLOSED
671: WHERE resale_batch_id = p_resale_batch_id
672: AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
673: --AND duplicated_adjustment_id <> -1;
674:
668: BEGIN
669: UPDATE ozf_resale_lines_int
670: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_CLOSED
671: WHERE resale_batch_id = p_resale_batch_id
672: AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED);
673: --AND duplicated_adjustment_id <> -1;
674:
675: -- UPDATE batch status to CLOSEd -- might change later.
676: UPDATE ozf_resale_batches
673: --AND duplicated_adjustment_id <> -1;
674:
675: -- UPDATE batch status to CLOSEd -- might change later.
676: UPDATE ozf_resale_batches
677: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED
678: WHERE resale_batch_id = p_resale_batch_id;
679: EXCEPTION
680: WHEN OTHERS THEN
681: ozf_utility_pvt.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': END');
922: sold_from_cust_account_id,
923: date_ordered
924: FROM ozf_resale_lines_int
925: WHERE status_code = 'OPEN'
926: -- status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED)
927: AND duplicated_adjustment_id IS NULL
928: AND resale_batch_id = p_resale_batch_id
929: ORDER BY date_ordered;
930:
927: AND duplicated_adjustment_id IS NULL
928: AND resale_batch_id = p_resale_batch_id
929: ORDER BY date_ordered;
930:
931: l_cust_account_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
932: l_order_num_tbl OZF_RESALE_COMMON_PVT.varchar_tbl_type;
933: l_order_date_tbl OZF_RESALE_COMMON_PVT.date_tbl_type;
934:
935: CURSOR order_set_csr(p_order_NUMBER in VARCHAR2,
928: AND resale_batch_id = p_resale_batch_id
929: ORDER BY date_ordered;
930:
931: l_cust_account_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
932: l_order_num_tbl OZF_RESALE_COMMON_PVT.varchar_tbl_type;
933: l_order_date_tbl OZF_RESALE_COMMON_PVT.date_tbl_type;
934:
935: CURSOR order_set_csr(p_order_NUMBER in VARCHAR2,
936: p_cust_account_id in NUMBER,
929: ORDER BY date_ordered;
930:
931: l_cust_account_id_tbl OZF_RESALE_COMMON_PVT.number_tbl_type;
932: l_order_num_tbl OZF_RESALE_COMMON_PVT.varchar_tbl_type;
933: l_order_date_tbl OZF_RESALE_COMMON_PVT.date_tbl_type;
934:
935: CURSOR order_set_csr(p_order_NUMBER in VARCHAR2,
936: p_cust_account_id in NUMBER,
937: p_date in date) IS
940: WHERE order_NUMBER = p_order_NUMBER
941: AND date_ordered = p_date
942: AND sold_from_cust_account_id = p_cust_account_id
943: AND status_code = 'OPEN'
944: --AND status_code in(OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN, OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED)
945: AND duplicated_adjustment_id is NULL
946: AND resale_batch_id = p_resale_batch_id;
947:
948: TYPE resale_lines_tbl_type IS TABLE OF order_set_csr%rowtype INDEX BY binary_integer;
957:
958: CURSOR invalid_line_count_csr (p_id NUMBER) IS
959: SELECT COUNT(1)
960: FROM ozf_resale_lines_int
961: WHERE status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED
962: AND dispute_code = OZF_RESALE_COMMON_PVT.G_INVALD_DISPUTE_CODE
963: AND resale_batch_id = p_id;
964: l_lines_invalid NUMBER;
965:
958: CURSOR invalid_line_count_csr (p_id NUMBER) IS
959: SELECT COUNT(1)
960: FROM ozf_resale_lines_int
961: WHERE status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED
962: AND dispute_code = OZF_RESALE_COMMON_PVT.G_INVALD_DISPUTE_CODE
963: AND resale_batch_id = p_id;
964: l_lines_invalid NUMBER;
965:
966: l_status_code VARCHAR2(30);
1006: x_return_status := FND_API.G_RET_STS_SUCCESS;
1007:
1008:
1009: /*
1010: OZF_RESALE_COMMON_PVT.Delete_Log(
1011: p_api_version => 1.0
1012: ,p_init_msg_list => FND_API.G_FALSE
1013: ,p_commit => FND_API.G_FALSE
1014: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1035: CLOSE order_num_csr;
1036:
1037: IF l_order_num_tbl.EXISTS(1) THEN
1038:
1039: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1040: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
1041: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1042:
1043: IF l_inventory_tracking = 'T' THEN
1036:
1037: IF l_order_num_tbl.EXISTS(1) THEN
1038:
1039: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1040: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
1041: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1042:
1043: IF l_inventory_tracking = 'T' THEN
1044: OPEN Batch_info_csr(p_resale_batch_id);
1037: IF l_order_num_tbl.EXISTS(1) THEN
1038:
1039: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1040: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
1041: CLOSE OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
1042:
1043: IF l_inventory_tracking = 'T' THEN
1044: OPEN Batch_info_csr(p_resale_batch_id);
1045: FETCH batch_info_csr INTO l_partner_party_id,
1116: -- Purge the any error message that might be there.
1117: BEGIN
1118: DELETE FROM ozf_resale_logs
1119: WHERE resale_id = l_order_set_tbl(J).resale_line_int_id
1120: AND resale_id_type = OZF_RESALE_COMMON_PVT.G_ID_TYPE_IFACE;
1121: EXCEPTION
1122: WHEN OTHERS THEN
1123: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
1124: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1144: ozf_utility_PVT.debug_message('Did not pass inventory checking');
1145: END IF;
1146: -- Here turn this line to disputed and create a disput code for it.
1147: UPDATE ozf_resale_lines_int
1148: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
1149: dispute_code = 'OZF_LT_INVT',
1150: followup_action_code = 'C',
1151: response_type = 'CA',
1152: response_code = 'N'
1153: WHERE resale_line_int_id = l_order_set_tbl(J).resale_line_int_id;
1154:
1155: -- SET Batch as DISPUTED
1156: UPDATE ozf_resale_batches
1157: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED
1158: WHERE resale_batch_id = p_resale_batch_id;
1159:
1160: GOTO END_ORDER_LINE;
1161: ELSE
1160: GOTO END_ORDER_LINE;
1161: ELSE
1162: -- This is a valid tracing line
1163: UPDATE ozf_resale_lines_int
1164: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
1165: WHERE resale_line_int_id = l_order_set_tbl(J).resale_line_int_id;
1166: END IF;
1167: ELSE
1168: -- Set line status to Processed if not tracking inventory
1166: END IF;
1167: ELSE
1168: -- Set line status to Processed if not tracking inventory
1169: UPDATE ozf_resale_lines_int
1170: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
1171: WHERE resale_line_int_Id = l_order_set_tbl(j).resale_line_int_id;
1172: END IF;
1173: << END_ORDER_LINE >>
1174: NULL;
1186: END IF;
1187: END IF;
1188:
1189: -- get data regard this process
1190: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
1191: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
1192: CLOSE OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr;
1193:
1194: OPEN invalid_line_count_csr(p_resale_batch_id);
1187: END IF;
1188:
1189: -- get data regard this process
1190: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
1191: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
1192: CLOSE OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr;
1193:
1194: OPEN invalid_line_count_csr(p_resale_batch_id);
1195: FETCH invalid_line_count_csr INTO l_lines_invalid;
1188:
1189: -- get data regard this process
1190: OPEN OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr (p_resale_batch_id);
1191: FETCH OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr INTO l_lines_disputed;
1192: CLOSE OZF_RESALE_COMMON_PVT.g_disputed_line_count_csr;
1193:
1194: OPEN invalid_line_count_csr(p_resale_batch_id);
1195: FETCH invalid_line_count_csr INTO l_lines_invalid;
1196: CLOSE invalid_line_count_csr;
1195: FETCH invalid_line_count_csr INTO l_lines_invalid;
1196: CLOSE invalid_line_count_csr;
1197:
1198: IF l_lines_disputed = 0 THEN
1199: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_PROCESSED;
1200: ELSE
1201: -- batch is in dispute
1202: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED;
1203: END IF;
1198: IF l_lines_disputed = 0 THEN
1199: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_PROCESSED;
1200: ELSE
1201: -- batch is in dispute
1202: l_status_code := OZF_RESALE_COMMON_PVT.G_BATCH_DISPUTED;
1203: END IF;
1204:
1205: -- Lastly, I will UPDATE the batch
1206: BEGIN