896: FOR i IN l_txn_line_tbl.FIRST..l_txn_line_tbl.LAST LOOP
897: --Insert into the output xml table to generate the error log
898: FOR get_claim_id_rec IN get_claim_id_csr (l_txn_line_tbl(i).transaction_line_id) LOOP
899: IF get_claim_id_rec.claim_id IS NOT NULL THEN
900: UPDATE DPP_CUSTOMER_CLAIMS_ALL
901: SET SUPP_CUST_CLAIM_ID = to_char(get_claim_id_rec.claim_id),
902: supplier_claim_created = 'Y',
903: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
904: last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
906: last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
907: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
908:
909: IF SQL%ROWCOUNT = 0 THEN
910: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_CUST_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: ELSE
914: UPDATE DPP_CUSTOMER_CLAIMS_ALL
910: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column SUPP_CUST_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
911: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
912: END IF;
913: ELSE
914: UPDATE DPP_CUSTOMER_CLAIMS_ALL
915: SET supplier_claim_created = 'N',
916: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
917: last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
918: last_update_date = sysdate,
919: last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
920: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
921:
922: IF SQL%ROWCOUNT = 0 THEN
923: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column supplier_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
925: END IF;
926: END IF;
927: END LOOP;
1112: --Assign the claim id to the corresponding lines
1113: FOR i IN l_txn_line_tbl.FIRST..l_txn_line_tbl.LAST LOOP
1114: FOR get_claim_id_rec IN get_claim_id_csr (l_txn_line_tbl(i).transaction_line_id) LOOP
1115: IF get_claim_id_rec.claim_id IS NOT NULL THEN
1116: UPDATE DPP_CUSTOMER_CLAIMS_ALL
1117: SET CUSTOMER_CLAIM_ID = to_char(get_claim_id_rec.claim_id),
1118: customer_claim_created = 'Y',
1119: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
1120: last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
1122: last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
1123: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
1124:
1125: IF SQL%ROWCOUNT = 0 THEN
1126: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column CUSTOMER_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: END IF;
1129: ELSE
1130: UPDATE DPP_CUSTOMER_CLAIMS_ALL
1126: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column CUSTOMER_CLAIM_ID in DPP_CUSTOMER_CLAIMS_ALL Table');
1127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1128: END IF;
1129: ELSE
1130: UPDATE DPP_CUSTOMER_CLAIMS_ALL
1131: SET customer_claim_created = 'N',
1132: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER +1,
1133: last_updated_by = l_txn_hdr_rec.LAST_UPDATED_BY,
1134: last_update_date = sysdate,
1135: last_update_login = l_txn_hdr_rec.LAST_UPDATED_BY
1136: WHERE CUSTOMER_INV_LINE_ID = l_txn_line_tbl(i).transaction_line_id;
1137:
1138: IF SQL%ROWCOUNT = 0 THEN
1139: DPP_UTILITY_PVT.debug_message(FND_LOG.LEVEL_STATEMENT, l_module, 'Unable to Update the column customer_claim_created in DPP_CUSTOMER_CLAIMS_ALL Table');
1140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1141: END IF;
1142: END IF;
1143: END LOOP;