3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_CLAIM_SETTLEMENT_VAL_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcsvb.pls';
6:
7: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: /*=======================================================================*
11: | PROCEDURE
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OZF_CLAIM_SETTLEMENT_VAL_PVT';
5: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfvcsvb.pls';
6:
7: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
8: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
9:
10: /*=======================================================================*
11: | PROCEDURE
12: | Default_Claim_Line
91: x_return_status := FND_API.G_RET_STS_ERROR;
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: WHEN OTHERS THEN
95: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
96: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
97: END IF;
98: x_return_status := FND_API.g_ret_sts_unexp_error;
99:
92: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
93: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
94: WHEN OTHERS THEN
95: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
96: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
97: END IF;
98: x_return_status := FND_API.g_ret_sts_unexp_error;
99:
100: END Default_Claim_Line;
198: x_return_status := FND_API.G_RET_STS_ERROR;
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: WHEN OTHERS THEN
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
204: END IF;
205: x_return_status := FND_API.g_ret_sts_unexp_error;
206:
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
201: WHEN OTHERS THEN
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
204: END IF;
205: x_return_status := FND_API.g_ret_sts_unexp_error;
206:
207: END Default_Claim_Line_Tbl;
285: WHEN OTHERS THEN
286: IF OZF_DEBUG_LOW_ON THEN
287: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
288: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
289: FND_MSG_PUB.Add;
290: END IF;
291: x_return_status := FND_API.g_ret_sts_unexp_error;
292:
293: END Validate_Claim_Line;
400: WHEN OTHERS THEN
401: IF OZF_DEBUG_LOW_ON THEN
402: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
403: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
404: FND_MSG_PUB.Add;
405: END IF;
406: x_return_status := FND_API.g_ret_sts_unexp_error;
407:
408: END Validate_Claim_Line_Tbl;
475: WHEN OTHERS THEN
476: IF OZF_DEBUG_LOW_ON THEN
477: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
478: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
479: FND_MSG_PUB.Add;
480: END IF;
481: RETURN FALSE;
482: END gl_date_in_open;
483:
708: END IF;
709:
710: IF (p_claim_rec.payment_method IS NULL OR p_claim_rec.payment_method = FND_API.G_MISS_CHAR
711: OR p_claim_rec.payment_method = '' ) THEN
712: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
713: FND_MESSAGE.set_name('OZF', 'OZF_SETL_PAYMETHOD_REQ');
714: FND_MSG_PUB.add;
715: END IF;
716: RAISE FND_API.G_EXC_ERROR;
710: IF (p_claim_rec.payment_method IS NULL OR p_claim_rec.payment_method = FND_API.G_MISS_CHAR
711: OR p_claim_rec.payment_method = '' ) THEN
712: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
713: FND_MESSAGE.set_name('OZF', 'OZF_SETL_PAYMETHOD_REQ');
714: FND_MSG_PUB.add;
715: END IF;
716: RAISE FND_API.G_EXC_ERROR;
717: END IF;
718:
801: FETCH csr_inv_line_exist INTO l_inv_line_id;
802: CLOSE csr_inv_line_exist;
803:
804: IF l_inv_line_id IS NULL THEN
805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
806: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_INV_LINE_ERR');
807: FND_MSG_PUB.add;
808: END IF;
809: l_error := TRUE;
803:
804: IF l_inv_line_id IS NULL THEN
805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
806: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_INV_LINE_ERR');
807: FND_MSG_PUB.add;
808: END IF;
809: l_error := TRUE;
810: END IF;
811:
810: END IF;
811:
812: IF l_line_item_id IS NOT NULL AND
813: l_line_item_id <> l_inv_item_id THEN
814: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
815: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_LINE_ITEM_DIFF');
816: FND_MSG_PUB.add;
817: END IF;
818: l_error := TRUE;
812: IF l_line_item_id IS NOT NULL AND
813: l_line_item_id <> l_inv_item_id THEN
814: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
815: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VAL_LINE_ITEM_DIFF');
816: FND_MSG_PUB.add;
817: END IF;
818: l_error := TRUE;
819: END IF;
820: END IF;
825: -- have both positive and negative lines.
826: ------------------------------------
827: IF NOT l_asso_earnings_exist AND
828: SIGN(p_claim_rec.amount_remaining) <> SIGN(l_line_claim_curr_amt) THEN
829: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
830: FND_MESSAGE.set_name('OZF', 'OZF_SETL_LINE_AMT_SIGN_ERR');
831: FND_MSG_PUB.add;
832: END IF;
833: l_error := TRUE;
827: IF NOT l_asso_earnings_exist AND
828: SIGN(p_claim_rec.amount_remaining) <> SIGN(l_line_claim_curr_amt) THEN
829: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
830: FND_MESSAGE.set_name('OZF', 'OZF_SETL_LINE_AMT_SIGN_ERR');
831: FND_MSG_PUB.add;
832: END IF;
833: l_error := TRUE;
834: END IF;
835:
876: , 'PREV_OPEN_CREDIT'
877: , 'PREV_OPEN_DEBIT'
878: ) THEN
879: IF NVL(l_gl_acc_checking,'F') = 'T' THEN
880: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
881: FND_MESSAGE.set_name('OZF', 'OZF_POST_ASSO_PAYMETHOD_ERR');
882: FND_MSG_PUB.add;
883: END IF;
884: RAISE FND_API.G_EXC_ERROR;
878: ) THEN
879: IF NVL(l_gl_acc_checking,'F') = 'T' THEN
880: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
881: FND_MESSAGE.set_name('OZF', 'OZF_POST_ASSO_PAYMETHOD_ERR');
882: FND_MSG_PUB.add;
883: END IF;
884: RAISE FND_API.G_EXC_ERROR;
885: END IF;
886: ELSE
883: END IF;
884: RAISE FND_API.G_EXC_ERROR;
885: END IF;
886: ELSE
887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: FND_MESSAGE.set_name('OZF', 'OZF_SETL_ASSO_PAYMETHOD_ERR');
889: FND_MSG_PUB.add;
890: END IF;
891: RAISE FND_API.G_EXC_ERROR;
885: END IF;
886: ELSE
887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
888: FND_MESSAGE.set_name('OZF', 'OZF_SETL_ASSO_PAYMETHOD_ERR');
889: FND_MSG_PUB.add;
890: END IF;
891: RAISE FND_API.G_EXC_ERROR;
892: END IF;
893: END IF;
896: -- Claim Line Validation
897: ---------------------------
898: -- raise error when line amount not equal to utilizations associated
899: IF l_line_util_err THEN
900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
901: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_UTIL_ERR');
902: FND_MSG_PUB.add;
903: END IF;
904: RAISE FND_API.G_EXC_ERROR;
898: -- raise error when line amount not equal to utilizations associated
899: IF l_line_util_err THEN
900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
901: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_UTIL_ERR');
902: FND_MSG_PUB.add;
903: END IF;
904: RAISE FND_API.G_EXC_ERROR;
905: END IF;
906:
905: END IF;
906:
907: -- raise error if performance complete is required.
908: IF l_offr_perf_flag_err THEN
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
910: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_PERF_ERR');
911: FND_MSG_PUB.add;
912: END IF;
913: RAISE FND_API.G_EXC_ERROR;
907: -- raise error if performance complete is required.
908: IF l_offr_perf_flag_err THEN
909: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
910: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_PERF_ERR');
911: FND_MSG_PUB.add;
912: END IF;
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915:
926:
927: -- line amount should be equal to claim_currency_amount
928: -- if curreny code is the same as claim.
929: IF l_line_amount_err THEN
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
931: FND_MESSAGE.set_name('OZF', 'OZF_SETL_LINE_AMT_ERR');
932: FND_MSG_PUB.add;
933: END IF;
934: RAISE FND_API.G_EXC_ERROR;
928: -- if curreny code is the same as claim.
929: IF l_line_amount_err THEN
930: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
931: FND_MESSAGE.set_name('OZF', 'OZF_SETL_LINE_AMT_ERR');
932: FND_MSG_PUB.add;
933: END IF;
934: RAISE FND_API.G_EXC_ERROR;
935: END IF;
936:
943: -- 4. RMA settlement
944: --- R12: Also EFT, WIRE, AP_DEBIT
945: IF l_line_sum_curr_amt IS NULL OR
946: l_line_sum_curr_amt = 0 THEN
947: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
948: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_AMOUNT_ERR');
949: FND_MSG_PUB.add;
950: END IF;
951: RAISE FND_API.G_EXC_ERROR;
945: IF l_line_sum_curr_amt IS NULL OR
946: l_line_sum_curr_amt = 0 THEN
947: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
948: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_AMOUNT_ERR');
949: FND_MSG_PUB.add;
950: END IF;
951: RAISE FND_API.G_EXC_ERROR;
952: ELSIF l_line_sum_curr_amt <> p_claim_rec.amount_remaining THEN
953: IF p_claim_rec.payment_method IN ('CREDIT_MEMO',
960: 'AP_DEFAULT',
961: 'ACCOUNTING_ONLY') THEN --R12.1 Enhancement
962: NULL;
963: ELSE
964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
965: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_AMOUNT_ERR');
966: FND_MSG_PUB.add;
967: END IF;
968: RAISE FND_API.G_EXC_ERROR;
962: NULL;
963: ELSE
964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
965: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_AMOUNT_ERR');
966: FND_MSG_PUB.add;
967: END IF;
968: RAISE FND_API.G_EXC_ERROR;
969: END IF;
970: END IF;
985: CLOSE csr_line_prom_distinct_chk;
986:
987: -- raise error if earning associated flag is not distinct.
988: IF l_promo_distinct_err THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_PROM_ERR');
991: FND_MSG_PUB.add;
992: END IF;
993: RAISE FND_API.G_EXC_ERROR;
987: -- raise error if earning associated flag is not distinct.
988: IF l_promo_distinct_err THEN
989: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
990: FND_MESSAGE.set_name('OZF', 'OZF_SETL_COMP_LINE_PROM_ERR');
991: FND_MSG_PUB.add;
992: END IF;
993: RAISE FND_API.G_EXC_ERROR;
994: END IF;
995:
997: ---------------------------
998: -- Owner Id: Required
999: ---------------------------
1000: IF p_claim_rec.owner_id IS NULL THEN
1001: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1002: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OWNER_REQ');
1003: FND_MSG_PUB.add;
1004: END IF;
1005: RAISE FND_API.G_EXC_ERROR;
999: ---------------------------
1000: IF p_claim_rec.owner_id IS NULL THEN
1001: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1002: FND_MESSAGE.set_name('OZF', 'OZF_SETL_OWNER_REQ');
1003: FND_MSG_PUB.add;
1004: END IF;
1005: RAISE FND_API.G_EXC_ERROR;
1006: END IF;
1007:
1037: p_application_id => 222
1038: , p_claim_id => p_claim_rec.claim_id
1039: , p_gl_date => l_gl_date
1040: ) THEN
1041: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1042: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_INVALID');
1043: FND_MSG_PUB.add;
1044: END IF;
1045: RAISE FND_API.G_EXC_ERROR;
1039: , p_gl_date => l_gl_date
1040: ) THEN
1041: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1042: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_INVALID');
1043: FND_MSG_PUB.add;
1044: END IF;
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1047:
1050: p_application_id => 200
1051: , p_claim_id => p_claim_rec.claim_id
1052: , p_gl_date => l_gl_date
1053: ) THEN
1054: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1055: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_INVALID');
1056: FND_MSG_PUB.add;
1057: END IF;
1058: RAISE FND_API.G_EXC_ERROR;
1052: , p_gl_date => l_gl_date
1053: ) THEN
1054: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1055: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_INVALID');
1056: FND_MSG_PUB.add;
1057: END IF;
1058: RAISE FND_API.G_EXC_ERROR;
1059: END IF;
1060: END IF;
1060: END IF;
1061: ELSE
1062:
1063: IF l_sys_gl_date_type IS NULL THEN
1064: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1065: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_DRIVE_ERR');
1066: FND_MSG_PUB.add;
1067: END IF;
1068: RAISE FND_API.G_EXC_ERROR;
1062:
1063: IF l_sys_gl_date_type IS NULL THEN
1064: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1065: FND_MESSAGE.set_name('OZF', 'OZF_SETL_GLDATE_DRIVE_ERR');
1066: FND_MSG_PUB.add;
1067: END IF;
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: END IF;
1142: -----------------------------------------------------
1143: -- Payable Source
1144: -----------------------------------------------------
1145: IF l_payables_source IS NULL THEN
1146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1147: FND_MESSAGE.set_name('OZF', 'OZF_SETL_PAYABLES_SOURCE_NULL');
1148: FND_MSG_PUB.add;
1149: END IF;
1150: RAISE FND_API.G_EXC_ERROR;
1144: -----------------------------------------------------
1145: IF l_payables_source IS NULL THEN
1146: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1147: FND_MESSAGE.set_name('OZF', 'OZF_SETL_PAYABLES_SOURCE_NULL');
1148: FND_MSG_PUB.add;
1149: END IF;
1150: RAISE FND_API.G_EXC_ERROR;
1151: END IF;
1152:
1153: -----------------------------------------------------
1154: -- Vendor_Id
1155: -----------------------------------------------------
1156: IF p_claim_rec.vendor_id IS NULL THEN
1157: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1158: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_REQ');
1159: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1160: FND_MSG_PUB.add;
1161: END IF;
1156: IF p_claim_rec.vendor_id IS NULL THEN
1157: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1158: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_REQ');
1159: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1160: FND_MSG_PUB.add;
1161: END IF;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164:
1165: -----------------------------------------------------
1166: -- Vendor_Site_Id
1167: -----------------------------------------------------
1168: IF p_claim_rec.vendor_site_id IS NULL THEN
1169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1170: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_SITE_REQ');
1171: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1172: FND_MSG_PUB.add;
1173: END IF;
1168: IF p_claim_rec.vendor_site_id IS NULL THEN
1169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1170: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_SITE_REQ');
1171: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1172: FND_MSG_PUB.add;
1173: END IF;
1174: RAISE FND_API.G_EXC_ERROR;
1175: END IF;
1176:
1182: OPEN csr_active_vendor(p_claim_rec.vendor_id, p_claim_rec.vendor_site_id);
1183: FETCH csr_active_vendor INTO l_active_vendor_num;
1184: CLOSE csr_active_vendor;
1185: IF l_active_vendor_num is null THEN
1186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1187: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_VENDOR_INACTIVE');
1188: FND_MSG_PUB.add;
1189: END IF;
1190: RAISE FND_API.G_EXC_ERROR;
1184: CLOSE csr_active_vendor;
1185: IF l_active_vendor_num is null THEN
1186: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1187: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SETL_VENDOR_INACTIVE');
1188: FND_MSG_PUB.add;
1189: END IF;
1190: RAISE FND_API.G_EXC_ERROR;
1191: END IF;
1192: END IF;
1195: -----------------------------------------------------
1196: -- vendor clearing account must exist in system parameter
1197: IF l_gl_acc_checking = FND_API.g_true THEN
1198: IF l_vendor_in_sys IS NULL THEN
1199: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1200: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENCLRACC_REQ');
1201: FND_MSG_PUB.add;
1202: END IF;
1203: RAISE FND_API.G_EXC_ERROR;
1197: IF l_gl_acc_checking = FND_API.g_true THEN
1198: IF l_vendor_in_sys IS NULL THEN
1199: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1200: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENCLRACC_REQ');
1201: FND_MSG_PUB.add;
1202: END IF;
1203: RAISE FND_API.G_EXC_ERROR;
1204: END IF;
1205: END IF;
1210: ELSIF p_claim_rec.payment_method = 'CONTRA_CHARGE' THEN
1211:
1212: -- check vendor_id
1213: IF p_claim_rec.vendor_id IS NULL THEN
1214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1215: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_REQ');
1216: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1217: FND_MSG_PUB.add;
1218: END IF;
1213: IF p_claim_rec.vendor_id IS NULL THEN
1214: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1215: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_REQ');
1216: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1217: FND_MSG_PUB.add;
1218: END IF;
1219: RAISE FND_API.G_EXC_ERROR;
1220: END IF;
1221:
1220: END IF;
1221:
1222: -- check vendor_site_id
1223: IF p_claim_rec.vendor_site_id IS NULL THEN
1224: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1225: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_SITE_REQ');
1226: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1227: FND_MSG_PUB.add;
1228: END IF;
1223: IF p_claim_rec.vendor_site_id IS NULL THEN
1224: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1225: FND_MESSAGE.set_name('OZF', 'OZF_SETL_VENDOR_SITE_REQ');
1226: FND_MESSAGE.set_token('PAY_METHOD', OZF_Utility_Pvt.get_lookup_meaning('OZF_PAYMENT_METHOD', p_claim_rec.payment_method));
1227: FND_MSG_PUB.add;
1228: END IF;
1229: RAISE FND_API.G_EXC_ERROR;
1230: END IF;
1231:
1251: WHEN OTHERS THEN
1252: IF OZF_DEBUG_LOW_ON THEN
1253: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1254: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1255: FND_MSG_PUB.Add;
1256: END IF;
1257: x_return_status := FND_API.g_ret_sts_unexp_error;
1258:
1259: END Complete_Claim_Validation;
1337: WHEN OTHERS THEN
1338: IF OZF_DEBUG_LOW_ON THEN
1339: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1340: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Error');
1341: FND_MSG_PUB.Add;
1342: END IF;
1343: x_return_status := FND_API.g_ret_sts_unexp_error;
1344:
1345: END Complete_Claim;