[Home] [Help]
229: END IF;
230:
231: -- Debug Message
232: IF OZF_DEBUG_HIGH_ON THEN
233: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
234: END IF;
235:
236:
237: -- Initialize API return status to sucess
260: CLOSE OPEN_line_count_csr;
261:
262: IF l_count <> 0 THEN
263: --Can not pay if there is an OPEN line
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;
283: ,x_msg_count => l_msg_count
284: ,x_msg_data => l_msg_data
285: );
286: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
288: RAISE FND_API.G_EXC_ERROR;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
288: RAISE FND_API.G_EXC_ERROR;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: END IF;
293: END IF;
294:
440: IF l_order_num_tbl.EXISTS(1) THEN -- IF B
441: FOR k in 1..l_order_num_tbl.LAST LOOP -- FOR C
442:
443: IF OZF_DEBUG_LOW_ON THEN
444: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
445: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
446: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
447: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
448: END IF;
441: FOR k in 1..l_order_num_tbl.LAST LOOP -- FOR C
442:
443: IF OZF_DEBUG_LOW_ON THEN
444: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
445: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
446: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
447: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
448: END IF;
449:
442:
443: IF OZF_DEBUG_LOW_ON THEN
444: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
445: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
446: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
447: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
448: END IF;
449:
450: -- beginjxwu header_fix
443: IF OZF_DEBUG_LOW_ON THEN
444: ozf_utility_PVT.debug_message('PROCESS ORDER: ');
445: ozf_utility_PVT.debug_message('ORDER NUMBER: '||l_order_num_tbl(k).order_number);
446: ozf_utility_PVT.debug_message('SOLD_FROM_ACCT: '||l_order_num_tbl(k).sold_from_cust_account_id);
447: ozf_utility_PVT.debug_message('DATE ORDERED: '||l_order_num_tbl(k).date_ordered);
448: END IF;
449:
450: -- beginjxwu header_fix
451: -- Here, I assume if a line is the duplicate of another line, then they share
517: -- I then try to create resale data.
518: FOR j in 1..l_valid_line_id_tbl.last -- FOR E
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;
545: ,x_msg_data => l_msg_data
546: );
547: IF NOT l_inventory_level_valid THEN
548: IF OZF_DEBUG_LOW_ON THEN
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,
596: END IF;
597: END IF;
598:
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
676: l_line_id := l_line_int_rec.duplicated_line_id;
677: END IF;
678:
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
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');
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END;
741:
742: ELSE
740: END;
741:
742: ELSE
743: -- Only disputed and processed batch can be paid.
744: ozf_utility_pvt.error_message('OZF_RESALE_WRONG_STAUS_TO_PAY');
745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
746: END IF;
747:
748: -- Debug Message
746: END IF;
747:
748: -- Debug Message
749: IF OZF_DEBUG_HIGH_ON THEN
750: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
751: END IF;
752: --Standard call to get message count and if count=1, get the message
753: FND_MSG_PUB.Count_And_Get (
754: p_encoded => FND_API.G_FALSE,
839: END IF;
840:
841: -- Debug Message
842: IF OZF_DEBUG_HIGH_ON THEN
843: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
844: END IF;
845:
846: --Initialize message list if p_init_msg_list is TRUE.
847: IF FND_API.To_Boolean (p_init_msg_list) THEN
886: AND a.error_code ='OZF_RESALE_NON_TRC'
887: );
888: EXCEPTION
889: WHEN OTHERS THEN
890: OZF_UTILITY_PVT.error_message(
891: p_message_name => 'OZF_INS_RESALE_LOG_WRG',
892: p_token_name => 'TEXT',
893: p_token_value => l_full_name||': END');
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906:
907: -- Debug Message
908: IF OZF_DEBUG_HIGH_ON THEN
909: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
910: END IF;
911: --Standard call to get message count and if count=1, get the message
912: FND_MSG_PUB.Count_And_Get (
913: p_encoded => FND_API.G_FALSE,
1045: END IF;
1046:
1047: -- Debug Message
1048: IF OZF_DEBUG_HIGH_ON THEN
1049: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
1050: END IF;
1051:
1052: --Initialize message list if p_init_msg_list is TRUE.
1053: IF FND_API.To_Boolean (p_init_msg_list) THEN
1118: ,x_msg_count => l_msg_count
1119: ,x_msg_data => l_msg_data
1120: );
1121: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1128:
1129: /*
1149: l_cust_account_id_tbl(i) is not NULL AND
1150: l_order_date_tbl(i) is not NULL THEN
1151:
1152: IF OZF_DEBUG_LOW_ON THEN
1153: ozf_utility_PVT.debug_message('/*--- Processing order for order NUMBER:'||l_order_num_tbl(i)||'---*/');
1154: END IF;
1155: -- Before start process, clean up the data structures if necessary.
1156:
1157: --k:=1;
1169: --END LOOP;
1170: CLOSE order_set_csr;
1171:
1172: IF OZF_DEBUG_LOW_ON THEN
1173: ozf_utility_PVT.debug_message('after order set'||l_order_set_tbl.LAST);
1174: END IF;
1175:
1176: For J in 1..l_order_set_tbl.LAST LOOP
1177: -- Purge the any error message that might be there.
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;
1186: END;
1187:
1188: /*
1206:
1207: IF NOT l_inventory_level_valid THEN
1208:
1209: IF OZF_DEBUG_LOW_ON THEN
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,
1239: << END_ORDER_LINE >>
1240: NULL;
1241: END LOOP; -- END LOOP for l_order_set_tbl
1242: IF OZF_DEBUG_LOW_ON THEN
1243: ozf_utility_PVT.debug_message('/*--- Success: Processing order for order NUMBER:'||l_order_num_tbl(i)||'---*/');
1244: END IF;
1245: END IF; -- END if for order_NUMBER, date_ordered not NULL
1246: << END_LOOP >>
1247: NULL;
1247: NULL;
1248: END LOOP; -- END LOOP for l_order_num_tbl
1249: ELSE
1250: IF OZF_DEBUG_LOW_ON THEN
1251: ozf_utility_PVT.debug_message('/*--- No order to process ---*/');
1252: END IF;
1253: END IF;
1254:
1255: -- get data regard this process
1286: lines_invalid = l_lines_invalid
1287: WHERE resale_batch_id = p_resale_batch_id;
1288: EXCEPTION
1289: WHEN OTHERS THEN
1290: ozf_utility_pvt.error_message('OZF_UPD_RESALE_BATCH_WRG');
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END;
1293:
1294:
1293:
1294:
1295: -- Debug Message
1296: IF OZF_DEBUG_HIGH_ON THEN
1297: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
1298: END IF;
1299: --Standard call to get message count and if count=1, get the message
1300: FND_MSG_PUB.Count_And_Get (
1301: p_encoded => FND_API.G_FALSE,