712: ---------------------------------
713: PROCEDURE validate_id(
714: x_return_status OUT NOCOPY VARCHAR2,
715: p_ttdv_rec IN ttdv_rec_type) IS
716: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
717: BEGIN
718:
719: IF (p_ttdv_rec.id = OKL_API.G_MISS_NUM OR p_ttdv_rec.id IS NULL)
720: THEN
717: BEGIN
718:
719: IF (p_ttdv_rec.id = OKL_API.G_MISS_NUM OR p_ttdv_rec.id IS NULL)
720: THEN
721: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'id');
722: l_return_status := OKL_API.G_RET_STS_ERROR;
723:
724: END IF;
725: x_return_status := l_return_status;
725: x_return_status := l_return_status;
726: EXCEPTION
727:
728: WHEN OTHERS THEN
729: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
730: ,p_msg_name => G_UNEXPECTED_ERROR
731: ,p_token1 => G_SQLCODE_TOKEN
732: ,p_token1_value => SQLCODE
733: ,p_token2 => G_SQLERRM_TOKEN
739: -------------------------------------
740: PROCEDURE validate_txs_id(
741: x_return_status OUT NOCOPY VARCHAR2,
742: p_ttdv_rec IN ttdv_rec_type) IS
743: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
744:
745: l_dummy_var VARCHAR2(1) := '?' ;
746:
747: CURSOR okl_ttdv_txs_id_fk_csr (p_id IN NUMBER) IS
751: BEGIN
752:
753: IF (p_ttdv_rec.txs_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.txs_id IS NULL)
754: THEN
755: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'txs_id');
756: l_return_status := OKL_API.G_RET_STS_ERROR;
757: ELSE
758: OPEN okl_ttdv_txs_id_fk_csr(p_ttdv_rec.txs_id) ;
759: FETCH okl_ttdv_txs_id_fk_csr into l_dummy_var ;
759: FETCH okl_ttdv_txs_id_fk_csr into l_dummy_var ;
760: CLOSE okl_ttdv_txs_id_fk_csr ;
761: -- still set to default means data was not found
762: IF ( l_dummy_var = '?' ) THEN
763: OKC_API.set_message(g_app_name,
764: g_no_parent_record,
765: g_col_name_token,
766: 'txs_id',
767: g_child_table_token ,
767: g_child_table_token ,
768: 'OKL_TAX_TRX_DETAILS',
769: g_parent_table_token ,
770: 'OKL_TAX_SOURCES');
771: l_return_status := OKC_API.G_RET_STS_ERROR;
772:
773: END IF;
774: END IF;
775: x_return_status := l_return_status;
775: x_return_status := l_return_status;
776: EXCEPTION
777:
778: WHEN OTHERS THEN
779: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
780: ,p_msg_name => G_UNEXPECTED_ERROR
781: ,p_token1 => G_SQLCODE_TOKEN
782: ,p_token1_value => SQLCODE
783: ,p_token2 => G_SQLERRM_TOKEN
789: -------------------------------------------------
790: PROCEDURE validate_tax_call_type_code(
791: x_return_status OUT NOCOPY VARCHAR2,
792: p_ttdv_rec IN ttdv_rec_type) IS
793: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
794:
795: l_dummy_var VARCHAR2(1) := '?' ;
796:
797: CURSOR okl_ttdv_tctc_fk_csr (p_lookup_code IN VARCHAR2, p_lookup_type IN VARCHAR2) IS
802: BEGIN
803:
804: IF (p_ttdv_rec.tax_call_type_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_call_type_code IS NOT NULL)
805: THEN
806: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
807: --l_return_status := OKL_API.G_RET_STS_ERROR;
808: OPEN okl_ttdv_tctc_fk_csr(p_ttdv_rec.tax_call_type_code, 'OKL_TAX_CALL_TYPE') ;
809: FETCH okl_ttdv_tctc_fk_csr into l_dummy_var ;
810: CLOSE okl_ttdv_tctc_fk_csr ;
810: CLOSE okl_ttdv_tctc_fk_csr ;
811: -- still set to default means data was not found
812: IF ( l_dummy_var = '?' ) THEN
813:
814: OKC_API.set_message(g_app_name,
815: g_no_parent_record,
816: g_col_name_token,
817: 'tax_call_type_code',
818: g_child_table_token ,
818: g_child_table_token ,
819: 'OKL_TAX_TRX_DETAILS',
820: g_parent_table_token ,
821: 'FND_LOOKUP_VALUES');
822: l_return_status := OKC_API.G_RET_STS_ERROR;
823:
824: END IF;
825:
826: END IF;
827: x_return_status := l_return_status;
828: EXCEPTION
829:
830: WHEN OTHERS THEN
831: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
832: ,p_msg_name => G_UNEXPECTED_ERROR
833: ,p_token1 => G_SQLCODE_TOKEN
834: ,p_token1_value => SQLCODE
835: ,p_token2 => G_SQLERRM_TOKEN
844: -------------------------------------------------
845: PROCEDURE validate_tax_rate_id(
846: x_return_status OUT NOCOPY VARCHAR2,
847: p_ttdv_rec IN ttdv_rec_type) IS
848: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
849:
850: l_dummy_var VARCHAR2(1) := '?' ;
851:
852: CURSOR okl_ttdv_tri_fk_csr (p_id IN NUMBER) IS
856: BEGIN
857:
858: IF (p_ttdv_rec.tax_rate_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_rate_id IS NOT NULL)
859: THEN
860: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
861: --l_return_status := OKL_API.G_RET_STS_ERROR;
862: OPEN okl_ttdv_tri_fk_csr(p_ttdv_rec.tax_rate_id) ;
863: FETCH okl_ttdv_tri_fk_csr into l_dummy_var ;
864: CLOSE okl_ttdv_tri_fk_csr ;
864: CLOSE okl_ttdv_tri_fk_csr ;
865: -- still set to default means data was not found
866: IF ( l_dummy_var = '?' ) THEN
867:
868: OKC_API.set_message(g_app_name,
869: g_no_parent_record,
870: g_col_name_token,
871: 'tax_rate_id',
872: g_child_table_token ,
872: g_child_table_token ,
873: 'OKL_TAX_TRX_DETAILS',
874: g_parent_table_token ,
875: 'ZX_RATES_B');
876: l_return_status := OKC_API.G_RET_STS_ERROR;
877:
878: END IF;
879:
880: END IF;
881: x_return_status := l_return_status;
882: EXCEPTION
883:
884: WHEN OTHERS THEN
885: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
886: ,p_msg_name => G_UNEXPECTED_ERROR
887: ,p_token1 => G_SQLCODE_TOKEN
888: ,p_token1_value => SQLCODE
889: ,p_token2 => G_SQLERRM_TOKEN
895: -------------------------------------------------
896: PROCEDURE validate_tax_rate_code(
897: x_return_status OUT NOCOPY VARCHAR2,
898: p_ttdv_rec IN ttdv_rec_type) IS
899: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
900:
901: l_dummy_var VARCHAR2(1) := '?' ;
902:
903: CURSOR okl_ttdv_trc_fk_csr (p_code IN VARCHAR2) IS
907: BEGIN
908:
909: IF (p_ttdv_rec.tax_rate_code <> OKL_API.G_MISS_CHAR AND p_ttdv_rec.tax_rate_code IS NOT NULL)
910: THEN
911: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
912: --l_return_status := OKL_API.G_RET_STS_ERROR;
913: OPEN okl_ttdv_trc_fk_csr(p_ttdv_rec.tax_rate_code) ;
914: FETCH okl_ttdv_trc_fk_csr into l_dummy_var ;
915: CLOSE okl_ttdv_trc_fk_csr ;
915: CLOSE okl_ttdv_trc_fk_csr ;
916: -- still set to default means data was not found
917: IF ( l_dummy_var = '?' ) THEN
918:
919: OKC_API.set_message(g_app_name,
920: g_no_parent_record,
921: g_col_name_token,
922: 'tax_rate_code',
923: g_child_table_token ,
923: g_child_table_token ,
924: 'OKL_TAX_TRX_DETAILS',
925: g_parent_table_token ,
926: 'ZX_RATES_B');
927: l_return_status := OKC_API.G_RET_STS_ERROR;
928:
929: END IF;
930:
931: END IF;
932: x_return_status := l_return_status;
933: EXCEPTION
934:
935: WHEN OTHERS THEN
936: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
937: ,p_msg_name => G_UNEXPECTED_ERROR
938: ,p_token1 => G_SQLCODE_TOKEN
939: ,p_token1_value => SQLCODE
940: ,p_token2 => G_SQLERRM_TOKEN
946: -------------------------------------------------
947: PROCEDURE validate_tax_exemption_id(
948: x_return_status OUT NOCOPY VARCHAR2,
949: p_ttdv_rec IN ttdv_rec_type) IS
950: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
951:
952: l_dummy_var VARCHAR2(1) := '?' ;
953:
954: CURSOR okl_ttdv_tei_fk_csr (p_id IN NUMBER) IS
958: BEGIN
959:
960: IF (p_ttdv_rec.tax_exemption_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.tax_exemption_id IS NOT NULL)
961: THEN
962: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
963: --l_return_status := OKL_API.G_RET_STS_ERROR;
964: OPEN okl_ttdv_tei_fk_csr(p_ttdv_rec.tax_exemption_id) ;
965: FETCH okl_ttdv_tei_fk_csr into l_dummy_var ;
966: CLOSE okl_ttdv_tei_fk_csr ;
966: CLOSE okl_ttdv_tei_fk_csr ;
967: -- still set to default means data was not found
968: IF ( l_dummy_var = '?' ) THEN
969:
970: OKC_API.set_message(g_app_name,
971: g_no_parent_record,
972: g_col_name_token,
973: 'tax_exemption_id',
974: g_child_table_token ,
974: g_child_table_token ,
975: 'OKL_TAX_TRX_DETAILS',
976: g_parent_table_token ,
977: 'ZX_EXEMPTIONS');
978: l_return_status := OKC_API.G_RET_STS_ERROR;
979:
980: END IF;
981:
982: END IF;
983: x_return_status := l_return_status;
984: EXCEPTION
985:
986: WHEN OTHERS THEN
987: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
988: ,p_msg_name => G_UNEXPECTED_ERROR
989: ,p_token1 => G_SQLCODE_TOKEN
990: ,p_token1_value => SQLCODE
991: ,p_token2 => G_SQLERRM_TOKEN
997: -------------------------------------------------
998: PROCEDURE validate_int_org_id(
999: x_return_status OUT NOCOPY VARCHAR2,
1000: p_ttdv_rec IN ttdv_rec_type) IS
1001: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1002:
1003: l_dummy_var VARCHAR2(1) := '?' ;
1004:
1005: CURSOR okl_ttdv_ioi_fk_csr (p_id IN NUMBER) IS
1009: BEGIN
1010:
1011: IF (p_ttdv_rec.internal_organization_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.internal_organization_id IS NOT NULL)
1012: THEN
1013: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
1014: --l_return_status := OKL_API.G_RET_STS_ERROR;
1015: OPEN okl_ttdv_ioi_fk_csr(p_ttdv_rec.internal_organization_id) ;
1016: FETCH okl_ttdv_ioi_fk_csr into l_dummy_var ;
1017: CLOSE okl_ttdv_ioi_fk_csr ;
1017: CLOSE okl_ttdv_ioi_fk_csr ;
1018: -- still set to default means data was not found
1019: IF ( l_dummy_var = '?' ) THEN
1020:
1021: OKC_API.set_message(g_app_name,
1022: g_no_parent_record,
1023: g_col_name_token,
1024: 'internal_organization_id',
1025: g_child_table_token ,
1025: g_child_table_token ,
1026: 'OKL_TAX_TRX_DETAILS',
1027: g_parent_table_token ,
1028: 'HR_ALL_ORGANIZATION_UNITS');
1029: l_return_status := OKC_API.G_RET_STS_ERROR;
1030:
1031: END IF;
1032: ELSIF (p_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.internal_organization_id IS NULL)
1033: THEN
1030:
1031: END IF;
1032: ELSIF (p_ttdv_rec.internal_organization_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.internal_organization_id IS NULL)
1033: THEN
1034: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'internal_organization_id');
1035: l_return_status := OKL_API.G_RET_STS_ERROR;
1036:
1037: END IF;
1038: x_return_status := l_return_status;
1038: x_return_status := l_return_status;
1039: EXCEPTION
1040:
1041: WHEN OTHERS THEN
1042: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1043: ,p_msg_name => G_UNEXPECTED_ERROR
1044: ,p_token1 => G_SQLCODE_TOKEN
1045: ,p_token1_value => SQLCODE
1046: ,p_token2 => G_SQLERRM_TOKEN
1052: -------------------------------------------------
1053: PROCEDURE validate_application_id(
1054: x_return_status OUT NOCOPY VARCHAR2,
1055: p_ttdv_rec IN ttdv_rec_type) IS
1056: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1057:
1058: l_dummy_var VARCHAR2(1) := '?' ;
1059:
1060: CURSOR okl_ttdv_app_id_fk_csr (p_id IN NUMBER) IS
1064: BEGIN
1065:
1066: IF (p_ttdv_rec.application_id <> OKL_API.G_MISS_NUM AND p_ttdv_rec.application_id IS NOT NULL)
1067: THEN
1068: --OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_call_type_code');
1069: --l_return_status := OKL_API.G_RET_STS_ERROR;
1070: OPEN okl_ttdv_app_id_fk_csr(p_ttdv_rec.application_id) ;
1071: FETCH okl_ttdv_app_id_fk_csr into l_dummy_var ;
1072: CLOSE okl_ttdv_app_id_fk_csr ;
1072: CLOSE okl_ttdv_app_id_fk_csr ;
1073: -- still set to default means data was not found
1074: IF ( l_dummy_var = '?' ) THEN
1075:
1076: OKC_API.set_message(g_app_name,
1077: g_no_parent_record,
1078: g_col_name_token,
1079: 'application_id',
1080: g_child_table_token ,
1080: g_child_table_token ,
1081: 'OKL_TAX_TRX_DETAILS',
1082: g_parent_table_token ,
1083: 'FND_APPLICATION');
1084: l_return_status := OKC_API.G_RET_STS_ERROR;
1085:
1086: END IF;
1087: ELSIF (p_ttdv_rec.application_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.application_id IS NULL)
1088: THEN
1085:
1086: END IF;
1087: ELSIF (p_ttdv_rec.application_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.application_id IS NULL)
1088: THEN
1089: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'application_id');
1090: l_return_status := OKL_API.G_RET_STS_ERROR;
1091:
1092: END IF;
1093: x_return_status := l_return_status;
1093: x_return_status := l_return_status;
1094: EXCEPTION
1095:
1096: WHEN OTHERS THEN
1097: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1098: ,p_msg_name => G_UNEXPECTED_ERROR
1099: ,p_token1 => G_SQLCODE_TOKEN
1100: ,p_token1_value => SQLCODE
1101: ,p_token2 => G_SQLERRM_TOKEN
1107: -------------------------------------------------
1108: PROCEDURE validate_entity_code(
1109: x_return_status OUT NOCOPY VARCHAR2,
1110: p_ttdv_rec IN ttdv_rec_type) IS
1111: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1112: BEGIN
1113:
1114: IF (p_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.entity_code IS NULL)
1115: THEN
1112: BEGIN
1113:
1114: IF (p_ttdv_rec.entity_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.entity_code IS NULL)
1115: THEN
1116: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'entity_code');
1117: l_return_status := OKL_API.G_RET_STS_ERROR;
1118: END IF;
1119: x_return_status := l_return_status;
1120: EXCEPTION
1119: x_return_status := l_return_status;
1120: EXCEPTION
1121:
1122: WHEN OTHERS THEN
1123: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1124: ,p_msg_name => G_UNEXPECTED_ERROR
1125: ,p_token1 => G_SQLCODE_TOKEN
1126: ,p_token1_value => SQLCODE
1127: ,p_token2 => G_SQLERRM_TOKEN
1133: -------------------------------------------------
1134: PROCEDURE validate_event_class_code(
1135: x_return_status OUT NOCOPY VARCHAR2,
1136: p_ttdv_rec IN ttdv_rec_type) IS
1137: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1138: BEGIN
1139:
1140: IF (p_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_class_code IS NULL)
1141: THEN
1138: BEGIN
1139:
1140: IF (p_ttdv_rec.event_class_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_class_code IS NULL)
1141: THEN
1142: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'event_class_code');
1143: l_return_status := OKL_API.G_RET_STS_ERROR;
1144: END IF;
1145: x_return_status := l_return_status;
1146: EXCEPTION
1145: x_return_status := l_return_status;
1146: EXCEPTION
1147:
1148: WHEN OTHERS THEN
1149: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1150: ,p_msg_name => G_UNEXPECTED_ERROR
1151: ,p_token1 => G_SQLCODE_TOKEN
1152: ,p_token1_value => SQLCODE
1153: ,p_token2 => G_SQLERRM_TOKEN
1159: -------------------------------------------------
1160: PROCEDURE validate_event_type_code(
1161: x_return_status OUT NOCOPY VARCHAR2,
1162: p_ttdv_rec IN ttdv_rec_type) IS
1163: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1164: BEGIN
1165:
1166: IF (p_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_type_code IS NULL)
1167: THEN
1164: BEGIN
1165:
1166: IF (p_ttdv_rec.event_type_code = OKL_API.G_MISS_CHAR OR p_ttdv_rec.event_type_code IS NULL)
1167: THEN
1168: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'event_type_code');
1169: l_return_status := OKL_API.G_RET_STS_ERROR;
1170: END IF;
1171: x_return_status := l_return_status;
1172: EXCEPTION
1171: x_return_status := l_return_status;
1172: EXCEPTION
1173:
1174: WHEN OTHERS THEN
1175: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1176: ,p_msg_name => G_UNEXPECTED_ERROR
1177: ,p_token1 => G_SQLCODE_TOKEN
1178: ,p_token1_value => SQLCODE
1179: ,p_token2 => G_SQLERRM_TOKEN
1185: -------------------------------------------------
1186: PROCEDURE validate_trx_id(
1187: x_return_status OUT NOCOPY VARCHAR2,
1188: p_ttdv_rec IN ttdv_rec_type) IS
1189: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1190: BEGIN
1191:
1192: IF (p_ttdv_rec.trx_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_id IS NULL)
1193: THEN
1190: BEGIN
1191:
1192: IF (p_ttdv_rec.trx_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_id IS NULL)
1193: THEN
1194: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_id');
1195: l_return_status := OKL_API.G_RET_STS_ERROR;
1196: END IF;
1197: x_return_status := l_return_status;
1198: EXCEPTION
1197: x_return_status := l_return_status;
1198: EXCEPTION
1199:
1200: WHEN OTHERS THEN
1201: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1202: ,p_msg_name => G_UNEXPECTED_ERROR
1203: ,p_token1 => G_SQLCODE_TOKEN
1204: ,p_token1_value => SQLCODE
1205: ,p_token2 => G_SQLERRM_TOKEN
1211: -------------------------------------------------
1212: PROCEDURE validate_trx_line_id(
1213: x_return_status OUT NOCOPY VARCHAR2,
1214: p_ttdv_rec IN ttdv_rec_type) IS
1215: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1216: BEGIN
1217:
1218: IF (p_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_line_id IS NULL)
1219: THEN
1216: BEGIN
1217:
1218: IF (p_ttdv_rec.trx_line_id = OKL_API.G_MISS_NUM OR p_ttdv_rec.trx_line_id IS NULL)
1219: THEN
1220: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_line_id');
1221: l_return_status := OKL_API.G_RET_STS_ERROR;
1222: END IF;
1223: x_return_status := l_return_status;
1224: EXCEPTION
1223: x_return_status := l_return_status;
1224: EXCEPTION
1225:
1226: WHEN OTHERS THEN
1227: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1228: ,p_msg_name => G_UNEXPECTED_ERROR
1229: ,p_token1 => G_SQLCODE_TOKEN
1230: ,p_token1_value => SQLCODE
1231: ,p_token2 => G_SQLERRM_TOKEN
1237: -------------------------------------------------
1238: PROCEDURE validate_trx_level_type(
1239: x_return_status OUT NOCOPY VARCHAR2,
1240: p_ttdv_rec IN ttdv_rec_type) IS
1241: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1242: BEGIN
1243:
1244: IF (p_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR OR p_ttdv_rec.trx_level_type IS NULL)
1245: THEN
1242: BEGIN
1243:
1244: IF (p_ttdv_rec.trx_level_type = OKL_API.G_MISS_CHAR OR p_ttdv_rec.trx_level_type IS NULL)
1245: THEN
1246: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'trx_level_type');
1247: l_return_status := OKL_API.G_RET_STS_ERROR;
1248: END IF;
1249: x_return_status := l_return_status;
1250: EXCEPTION
1249: x_return_status := l_return_status;
1250: EXCEPTION
1251:
1252: WHEN OTHERS THEN
1253: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1254: ,p_msg_name => G_UNEXPECTED_ERROR
1255: ,p_token1 => G_SQLCODE_TOKEN
1256: ,p_token1_value => SQLCODE
1257: ,p_token2 => G_SQLERRM_TOKEN
1263: -------------------------------------------------
1264: PROCEDURE validate_tax_line_number(
1265: x_return_status OUT NOCOPY VARCHAR2,
1266: p_ttdv_rec IN ttdv_rec_type) IS
1267: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1268: BEGIN
1269:
1270: IF (p_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM OR p_ttdv_rec.tax_line_number IS NULL)
1271: THEN
1268: BEGIN
1269:
1270: IF (p_ttdv_rec.tax_line_number = OKL_API.G_MISS_NUM OR p_ttdv_rec.tax_line_number IS NULL)
1271: THEN
1272: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'tax_line_number');
1273: l_return_status := OKL_API.G_RET_STS_ERROR;
1274: END IF;
1275: x_return_status := l_return_status;
1276: EXCEPTION
1275: x_return_status := l_return_status;
1276: EXCEPTION
1277:
1278: WHEN OTHERS THEN
1279: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1280: ,p_msg_name => G_UNEXPECTED_ERROR
1281: ,p_token1 => G_SQLCODE_TOKEN
1282: ,p_token1_value => SQLCODE
1283: ,p_token2 => G_SQLERRM_TOKEN
1289: -------------------------------------------------
1290: PROCEDURE validate_tax_regime_id(
1291: x_return_status OUT NOCOPY VARCHAR2,
1292: p_ttdv_rec IN ttdv_rec_type) IS
1293: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1294:
1295: l_dummy_var VARCHAR2(1) := '?' ;
1296:
1297: CURSOR okl_ttdv_tx_reg_id_fk_csr (p_id IN NUMBER) IS
1307: CLOSE okl_ttdv_tx_reg_id_fk_csr ;
1308: -- still set to default means data was not found
1309: IF ( l_dummy_var = '?' ) THEN
1310:
1311: OKC_API.set_message(g_app_name,
1312: g_no_parent_record,
1313: g_col_name_token,
1314: 'tax_regime_id',
1315: g_child_table_token ,
1315: g_child_table_token ,
1316: 'OKL_TAX_TRX_DETAILS',
1317: g_parent_table_token ,
1318: 'ZX_REGIMES_B');
1319: l_return_status := OKC_API.G_RET_STS_ERROR;
1320:
1321: END IF;
1322: END IF;
1323: x_return_status := l_return_status;
1323: x_return_status := l_return_status;
1324: EXCEPTION
1325:
1326: WHEN OTHERS THEN
1327: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1328: ,p_msg_name => G_UNEXPECTED_ERROR
1329: ,p_token1 => G_SQLCODE_TOKEN
1330: ,p_token1_value => SQLCODE
1331: ,p_token2 => G_SQLERRM_TOKEN
1337: -------------------------------------------------
1338: PROCEDURE validate_tax_regime_code(
1339: x_return_status OUT NOCOPY VARCHAR2,
1340: p_ttdv_rec IN ttdv_rec_type) IS
1341: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1342:
1343: l_dummy_var VARCHAR2(1) := '?' ;
1344:
1345: CURSOR okl_ttdv_tx_reg_cd_fk_csr (p_code IN VARCHAR2) IS
1355: CLOSE okl_ttdv_tx_reg_cd_fk_csr ;
1356: -- still set to default means data was not found
1357: IF ( l_dummy_var = '?' ) THEN
1358:
1359: OKC_API.set_message(g_app_name,
1360: g_no_parent_record,
1361: g_col_name_token,
1362: 'tax_regime_code',
1363: g_child_table_token ,
1363: g_child_table_token ,
1364: 'OKL_TAX_TRX_DETAILS',
1365: g_parent_table_token ,
1366: 'ZX_REGIMES_B');
1367: l_return_status := OKC_API.G_RET_STS_ERROR;
1368:
1369: END IF;
1370: END IF;
1371: x_return_status := l_return_status;
1371: x_return_status := l_return_status;
1372: EXCEPTION
1373:
1374: WHEN OTHERS THEN
1375: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1376: ,p_msg_name => G_UNEXPECTED_ERROR
1377: ,p_token1 => G_SQLCODE_TOKEN
1378: ,p_token1_value => SQLCODE
1379: ,p_token2 => G_SQLERRM_TOKEN
1385: -------------------------------------------------
1386: PROCEDURE validate_tax_id(
1387: x_return_status OUT NOCOPY VARCHAR2,
1388: p_ttdv_rec IN ttdv_rec_type) IS
1389: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1390:
1391: l_dummy_var VARCHAR2(1) := '?' ;
1392:
1393: CURSOR okl_ttdv_tx_id_fk_csr (p_id IN NUMBER) IS
1403: CLOSE okl_ttdv_tx_id_fk_csr ;
1404: -- still set to default means data was not found
1405: IF ( l_dummy_var = '?' ) THEN
1406:
1407: OKC_API.set_message(g_app_name,
1408: g_no_parent_record,
1409: g_col_name_token,
1410: 'tax_id',
1411: g_child_table_token ,
1411: g_child_table_token ,
1412: 'OKL_TAX_TRX_DETAILS',
1413: g_parent_table_token ,
1414: 'ZX_TAXES_B');
1415: l_return_status := OKC_API.G_RET_STS_ERROR;
1416:
1417: END IF;
1418: END IF;
1419: x_return_status := l_return_status;
1419: x_return_status := l_return_status;
1420: EXCEPTION
1421:
1422: WHEN OTHERS THEN
1423: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1424: ,p_msg_name => G_UNEXPECTED_ERROR
1425: ,p_token1 => G_SQLCODE_TOKEN
1426: ,p_token1_value => SQLCODE
1427: ,p_token2 => G_SQLERRM_TOKEN
1433: -------------------------------------------------
1434: PROCEDURE validate_tax_status_id(
1435: x_return_status OUT NOCOPY VARCHAR2,
1436: p_ttdv_rec IN ttdv_rec_type) IS
1437: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1438:
1439: l_dummy_var VARCHAR2(1) := '?' ;
1440:
1441: CURSOR okl_ttdv_tx_st_id_fk_csr (p_id IN NUMBER) IS
1451: CLOSE okl_ttdv_tx_st_id_fk_csr ;
1452: -- still set to default means data was not found
1453: IF ( l_dummy_var = '?' ) THEN
1454:
1455: OKC_API.set_message(g_app_name,
1456: g_no_parent_record,
1457: g_col_name_token,
1458: 'tax_status_id',
1459: g_child_table_token ,
1459: g_child_table_token ,
1460: 'OKL_TAX_TRX_DETAILS',
1461: g_parent_table_token ,
1462: 'ZX_STATUS_B');
1463: l_return_status := OKC_API.G_RET_STS_ERROR;
1464:
1465: END IF;
1466: END IF;
1467: x_return_status := l_return_status;
1467: x_return_status := l_return_status;
1468: EXCEPTION
1469:
1470: WHEN OTHERS THEN
1471: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1472: ,p_msg_name => G_UNEXPECTED_ERROR
1473: ,p_token1 => G_SQLCODE_TOKEN
1474: ,p_token1_value => SQLCODE
1475: ,p_token2 => G_SQLERRM_TOKEN
1481: -------------------------------------------------
1482: PROCEDURE validate_tax_juris_id(
1483: x_return_status OUT NOCOPY VARCHAR2,
1484: p_ttdv_rec IN ttdv_rec_type) IS
1485: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1486:
1487: l_dummy_var VARCHAR2(1) := '?' ;
1488:
1489: CURSOR okl_ttdv_tx_jur_id_fk_csr (p_id IN NUMBER) IS
1499: CLOSE okl_ttdv_tx_jur_id_fk_csr ;
1500: -- still set to default means data was not found
1501: IF ( l_dummy_var = '?' ) THEN
1502:
1503: OKC_API.set_message(g_app_name,
1504: g_no_parent_record,
1505: g_col_name_token,
1506: 'tax_jurisdiction_id',
1507: g_child_table_token ,
1507: g_child_table_token ,
1508: 'OKL_TAX_TRX_DETAILS',
1509: g_parent_table_token ,
1510: 'ZX_JURISDICTIONS_B');
1511: l_return_status := OKC_API.G_RET_STS_ERROR;
1512:
1513: END IF;
1514: END IF;
1515: x_return_status := l_return_status;
1515: x_return_status := l_return_status;
1516: EXCEPTION
1517:
1518: WHEN OTHERS THEN
1519: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1520: ,p_msg_name => G_UNEXPECTED_ERROR
1521: ,p_token1 => G_SQLCODE_TOKEN
1522: ,p_token1_value => SQLCODE
1523: ,p_token2 => G_SQLERRM_TOKEN
1529: -------------------------------------------------
1530: PROCEDURE validate_tax_curr_code(
1531: x_return_status OUT NOCOPY VARCHAR2,
1532: p_ttdv_rec IN ttdv_rec_type) IS
1533: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1534:
1535: l_dummy_var VARCHAR2(1) := '?' ;
1536:
1537: CURSOR okl_ttdv_tx_cur_cd_fk_csr (p_code IN VARCHAR2) IS
1547: CLOSE okl_ttdv_tx_cur_cd_fk_csr ;
1548: -- still set to default means data was not found
1549: IF ( l_dummy_var = '?' ) THEN
1550:
1551: OKC_API.set_message(g_app_name,
1552: g_no_parent_record,
1553: g_col_name_token,
1554: 'tax_currency_code',
1555: g_child_table_token ,
1555: g_child_table_token ,
1556: 'OKL_TAX_TRX_DETAILS',
1557: g_parent_table_token ,
1558: 'FND_CURRENCIES');
1559: l_return_status := OKC_API.G_RET_STS_ERROR;
1560:
1561: END IF;
1562: END IF;
1563: x_return_status := l_return_status;
1563: x_return_status := l_return_status;
1564: EXCEPTION
1565:
1566: WHEN OTHERS THEN
1567: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1568: ,p_msg_name => G_UNEXPECTED_ERROR
1569: ,p_token1 => G_SQLCODE_TOKEN
1570: ,p_token1_value => SQLCODE
1571: ,p_token2 => G_SQLERRM_TOKEN
1577: -------------------------------------------------
1578: PROCEDURE validate_trx_curr_code(
1579: x_return_status OUT NOCOPY VARCHAR2,
1580: p_ttdv_rec IN ttdv_rec_type) IS
1581: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
1582:
1583: l_dummy_var VARCHAR2(1) := '?' ;
1584:
1585: CURSOR okl_ttdv_trx_cur_cd_fk_csr (p_code IN VARCHAR2) IS
1595: CLOSE okl_ttdv_trx_cur_cd_fk_csr ;
1596: -- still set to default means data was not found
1597: IF ( l_dummy_var = '?' ) THEN
1598:
1599: OKC_API.set_message(g_app_name,
1600: g_no_parent_record,
1601: g_col_name_token,
1602: 'trx_currency_code',
1603: g_child_table_token ,
1603: g_child_table_token ,
1604: 'OKL_TAX_TRX_DETAILS',
1605: g_parent_table_token ,
1606: 'FND_CURRENCIES');
1607: l_return_status := OKC_API.G_RET_STS_ERROR;
1608:
1609: END IF;
1610: END IF;
1611: x_return_status := l_return_status;
1611: x_return_status := l_return_status;
1612: EXCEPTION
1613:
1614: WHEN OTHERS THEN
1615: OKC_API.SET_MESSAGE( p_app_name => G_APP_NAME
1616: ,p_msg_name => G_UNEXPECTED_ERROR
1617: ,p_token1 => G_SQLCODE_TOKEN
1618: ,p_token1_value => SQLCODE
1619: ,p_token2 => G_SQLERRM_TOKEN
1641: -- ***
1642: -- id
1643: -- ***
1644: validate_id(l_return_status, p_ttdv_rec);
1645: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: x_return_status := l_return_status;
1648: RAISE G_EXCEPTION_HALT_VALIDATION;
1649: ELSE
1642: -- id
1643: -- ***
1644: validate_id(l_return_status, p_ttdv_rec);
1645: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1646: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1647: x_return_status := l_return_status;
1648: RAISE G_EXCEPTION_HALT_VALIDATION;
1649: ELSE
1650: x_return_status := l_return_status;
1656: -- ***
1657: -- txs_id
1658: -- ***
1659: validate_txs_id(l_return_status, p_ttdv_rec);
1660: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1662: x_return_status := l_return_status;
1663: RAISE G_EXCEPTION_HALT_VALIDATION;
1664: ELSE
1657: -- txs_id
1658: -- ***
1659: validate_txs_id(l_return_status, p_ttdv_rec);
1660: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1661: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1662: x_return_status := l_return_status;
1663: RAISE G_EXCEPTION_HALT_VALIDATION;
1664: ELSE
1665: x_return_status := l_return_status;
1669: -- ***
1670: -- tax_call_type_code
1671: -- ***
1672: validate_tax_call_type_code(l_return_status, p_ttdv_rec);
1673: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1675: x_return_status := l_return_status;
1676: RAISE G_EXCEPTION_HALT_VALIDATION;
1677: ELSE
1670: -- tax_call_type_code
1671: -- ***
1672: validate_tax_call_type_code(l_return_status, p_ttdv_rec);
1673: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1674: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1675: x_return_status := l_return_status;
1676: RAISE G_EXCEPTION_HALT_VALIDATION;
1677: ELSE
1678: x_return_status := l_return_status;
1682: -- ***
1683: -- tax_rate_id
1684: -- ***
1685: validate_tax_rate_id(l_return_status, p_ttdv_rec);
1686: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1687: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1688: x_return_status := l_return_status;
1689: RAISE G_EXCEPTION_HALT_VALIDATION;
1690: ELSE
1683: -- tax_rate_id
1684: -- ***
1685: validate_tax_rate_id(l_return_status, p_ttdv_rec);
1686: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1687: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1688: x_return_status := l_return_status;
1689: RAISE G_EXCEPTION_HALT_VALIDATION;
1690: ELSE
1691: x_return_status := l_return_status;
1695: -- ***
1696: -- tax_rate_code
1697: -- ***
1698: validate_tax_rate_code(l_return_status, p_ttdv_rec);
1699: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: x_return_status := l_return_status;
1702: RAISE G_EXCEPTION_HALT_VALIDATION;
1703: ELSE
1696: -- tax_rate_code
1697: -- ***
1698: validate_tax_rate_code(l_return_status, p_ttdv_rec);
1699: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1700: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1701: x_return_status := l_return_status;
1702: RAISE G_EXCEPTION_HALT_VALIDATION;
1703: ELSE
1704: x_return_status := l_return_status;
1708: -- ***
1709: -- tax_exemption_id
1710: -- ***
1711: validate_tax_exemption_id(l_return_status, p_ttdv_rec);
1712: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1713: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1714: x_return_status := l_return_status;
1715: RAISE G_EXCEPTION_HALT_VALIDATION;
1716: ELSE
1709: -- tax_exemption_id
1710: -- ***
1711: validate_tax_exemption_id(l_return_status, p_ttdv_rec);
1712: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1713: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1714: x_return_status := l_return_status;
1715: RAISE G_EXCEPTION_HALT_VALIDATION;
1716: ELSE
1717: x_return_status := l_return_status;
1721: -- ***
1722: -- internal_organization_id
1723: -- ***
1724: validate_int_org_id(l_return_status, p_ttdv_rec);
1725: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1727: x_return_status := l_return_status;
1728: RAISE G_EXCEPTION_HALT_VALIDATION;
1729: ELSE
1722: -- internal_organization_id
1723: -- ***
1724: validate_int_org_id(l_return_status, p_ttdv_rec);
1725: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1726: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1727: x_return_status := l_return_status;
1728: RAISE G_EXCEPTION_HALT_VALIDATION;
1729: ELSE
1730: x_return_status := l_return_status;
1734: -- ***
1735: -- application_id
1736: -- ***
1737: validate_application_id(l_return_status, p_ttdv_rec);
1738: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1740: x_return_status := l_return_status;
1741: RAISE G_EXCEPTION_HALT_VALIDATION;
1742: ELSE
1735: -- application_id
1736: -- ***
1737: validate_application_id(l_return_status, p_ttdv_rec);
1738: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1739: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1740: x_return_status := l_return_status;
1741: RAISE G_EXCEPTION_HALT_VALIDATION;
1742: ELSE
1743: x_return_status := l_return_status;
1747: -- ***
1748: -- entity_code
1749: -- ***
1750: validate_entity_code(l_return_status, p_ttdv_rec);
1751: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1753: x_return_status := l_return_status;
1754: RAISE G_EXCEPTION_HALT_VALIDATION;
1755: ELSE
1748: -- entity_code
1749: -- ***
1750: validate_entity_code(l_return_status, p_ttdv_rec);
1751: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1752: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1753: x_return_status := l_return_status;
1754: RAISE G_EXCEPTION_HALT_VALIDATION;
1755: ELSE
1756: x_return_status := l_return_status;
1760: -- ***
1761: -- event_class_code
1762: -- ***
1763: validate_event_class_code(l_return_status, p_ttdv_rec);
1764: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1765: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1766: x_return_status := l_return_status;
1767: RAISE G_EXCEPTION_HALT_VALIDATION;
1768: ELSE
1761: -- event_class_code
1762: -- ***
1763: validate_event_class_code(l_return_status, p_ttdv_rec);
1764: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1765: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1766: x_return_status := l_return_status;
1767: RAISE G_EXCEPTION_HALT_VALIDATION;
1768: ELSE
1769: x_return_status := l_return_status;
1773: -- ***
1774: -- event_type_code
1775: -- ***
1776: validate_event_type_code(l_return_status, p_ttdv_rec);
1777: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: x_return_status := l_return_status;
1780: RAISE G_EXCEPTION_HALT_VALIDATION;
1781: ELSE
1774: -- event_type_code
1775: -- ***
1776: validate_event_type_code(l_return_status, p_ttdv_rec);
1777: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1778: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1779: x_return_status := l_return_status;
1780: RAISE G_EXCEPTION_HALT_VALIDATION;
1781: ELSE
1782: x_return_status := l_return_status;
1786: -- ***
1787: -- trx_id
1788: -- ***
1789: validate_trx_id(l_return_status, p_ttdv_rec);
1790: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1791: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1792: x_return_status := l_return_status;
1793: RAISE G_EXCEPTION_HALT_VALIDATION;
1794: ELSE
1787: -- trx_id
1788: -- ***
1789: validate_trx_id(l_return_status, p_ttdv_rec);
1790: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1791: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1792: x_return_status := l_return_status;
1793: RAISE G_EXCEPTION_HALT_VALIDATION;
1794: ELSE
1795: x_return_status := l_return_status;
1799: -- ***
1800: -- trx_line_id
1801: -- ***
1802: validate_trx_line_id(l_return_status, p_ttdv_rec);
1803: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1804: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1805: x_return_status := l_return_status;
1806: RAISE G_EXCEPTION_HALT_VALIDATION;
1807: ELSE
1800: -- trx_line_id
1801: -- ***
1802: validate_trx_line_id(l_return_status, p_ttdv_rec);
1803: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1804: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1805: x_return_status := l_return_status;
1806: RAISE G_EXCEPTION_HALT_VALIDATION;
1807: ELSE
1808: x_return_status := l_return_status;
1812: -- ***
1813: -- trx_level_type
1814: -- ***
1815: validate_trx_level_type(l_return_status, p_ttdv_rec);
1816: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: x_return_status := l_return_status;
1819: RAISE G_EXCEPTION_HALT_VALIDATION;
1820: ELSE
1813: -- trx_level_type
1814: -- ***
1815: validate_trx_level_type(l_return_status, p_ttdv_rec);
1816: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1817: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1818: x_return_status := l_return_status;
1819: RAISE G_EXCEPTION_HALT_VALIDATION;
1820: ELSE
1821: x_return_status := l_return_status;
1825: -- ***
1826: -- tax_line_number
1827: -- ***
1828: validate_tax_line_number(l_return_status, p_ttdv_rec);
1829: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: x_return_status := l_return_status;
1832: RAISE G_EXCEPTION_HALT_VALIDATION;
1833: ELSE
1826: -- tax_line_number
1827: -- ***
1828: validate_tax_line_number(l_return_status, p_ttdv_rec);
1829: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1830: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1831: x_return_status := l_return_status;
1832: RAISE G_EXCEPTION_HALT_VALIDATION;
1833: ELSE
1834: x_return_status := l_return_status;
1838: -- ***
1839: -- tax_regime_id
1840: -- ***
1841: validate_tax_regime_id(l_return_status, p_ttdv_rec);
1842: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1844: x_return_status := l_return_status;
1845: RAISE G_EXCEPTION_HALT_VALIDATION;
1846: ELSE
1839: -- tax_regime_id
1840: -- ***
1841: validate_tax_regime_id(l_return_status, p_ttdv_rec);
1842: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1843: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1844: x_return_status := l_return_status;
1845: RAISE G_EXCEPTION_HALT_VALIDATION;
1846: ELSE
1847: x_return_status := l_return_status;
1851: -- ***
1852: -- tax_regime_code
1853: -- ***
1854: validate_tax_regime_code(l_return_status, p_ttdv_rec);
1855: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1856: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1857: x_return_status := l_return_status;
1858: RAISE G_EXCEPTION_HALT_VALIDATION;
1859: ELSE
1852: -- tax_regime_code
1853: -- ***
1854: validate_tax_regime_code(l_return_status, p_ttdv_rec);
1855: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1856: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1857: x_return_status := l_return_status;
1858: RAISE G_EXCEPTION_HALT_VALIDATION;
1859: ELSE
1860: x_return_status := l_return_status;
1864: -- ***
1865: -- tax_id
1866: -- ***
1867: validate_tax_id(l_return_status, p_ttdv_rec);
1868: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: x_return_status := l_return_status;
1871: RAISE G_EXCEPTION_HALT_VALIDATION;
1872: ELSE
1865: -- tax_id
1866: -- ***
1867: validate_tax_id(l_return_status, p_ttdv_rec);
1868: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1869: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1870: x_return_status := l_return_status;
1871: RAISE G_EXCEPTION_HALT_VALIDATION;
1872: ELSE
1873: x_return_status := l_return_status;
1877: -- ***
1878: -- tax_status_id
1879: -- ***
1880: validate_tax_status_id(l_return_status, p_ttdv_rec);
1881: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1882: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1883: x_return_status := l_return_status;
1884: RAISE G_EXCEPTION_HALT_VALIDATION;
1885: ELSE
1878: -- tax_status_id
1879: -- ***
1880: validate_tax_status_id(l_return_status, p_ttdv_rec);
1881: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1882: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1883: x_return_status := l_return_status;
1884: RAISE G_EXCEPTION_HALT_VALIDATION;
1885: ELSE
1886: x_return_status := l_return_status;
1890: -- ***
1891: -- tax_juris_id
1892: -- ***
1893: validate_tax_juris_id(l_return_status, p_ttdv_rec);
1894: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1896: x_return_status := l_return_status;
1897: RAISE G_EXCEPTION_HALT_VALIDATION;
1898: ELSE
1891: -- tax_juris_id
1892: -- ***
1893: validate_tax_juris_id(l_return_status, p_ttdv_rec);
1894: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1895: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1896: x_return_status := l_return_status;
1897: RAISE G_EXCEPTION_HALT_VALIDATION;
1898: ELSE
1899: x_return_status := l_return_status;
1903: -- ***
1904: -- tax_currency_code
1905: -- ***
1906: validate_tax_curr_code(l_return_status, p_ttdv_rec);
1907: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1908: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1909: x_return_status := l_return_status;
1910: RAISE G_EXCEPTION_HALT_VALIDATION;
1911: ELSE
1904: -- tax_currency_code
1905: -- ***
1906: validate_tax_curr_code(l_return_status, p_ttdv_rec);
1907: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1908: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1909: x_return_status := l_return_status;
1910: RAISE G_EXCEPTION_HALT_VALIDATION;
1911: ELSE
1912: x_return_status := l_return_status;
1916: -- ***
1917: -- trx_currency_code
1918: -- ***
1919: validate_trx_curr_code(l_return_status, p_ttdv_rec);
1920: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1921: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1922: x_return_status := l_return_status;
1923: RAISE G_EXCEPTION_HALT_VALIDATION;
1924: ELSE
1917: -- trx_currency_code
1918: -- ***
1919: validate_trx_curr_code(l_return_status, p_ttdv_rec);
1920: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
1921: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1922: x_return_status := l_return_status;
1923: RAISE G_EXCEPTION_HALT_VALIDATION;
1924: ELSE
1925: x_return_status := l_return_status;