[Home] [Help]
4: -- PROCEDURE load_error_tbl
5: ---------------------------------------------------------------------------
6:
7: PROCEDURE load_error_tbl (
8: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
9: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
5: ---------------------------------------------------------------------------
6:
7: PROCEDURE load_error_tbl (
8: px_error_rec IN OUT NOCOPY OKL_API.ERROR_REC_TYPE,
9: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
10: j INTEGER := NVL(px_error_tbl.LAST, 0) + 1;
11: last_msg_idx INTEGER := FND_MSG_PUB.COUNT_MSG;
12: l_msg_idx INTEGER := FND_MSG_PUB.G_NEXT;
13:
64: ---------------------------------------------------------------------------
65:
66: -- Finds the highest exception (G_RET_STS_UNEXP_ERROR)
67:
68: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
69:
70: FUNCTION find_highest_exception(
71:
72: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
68: -- in a OKL_API.ERROR_TBL_TYPE, and returns it.
69:
70: FUNCTION find_highest_exception(
71:
72: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
73:
74: ) RETURN VARCHAR2 IS
75:
76: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
72: p_error_tbl IN OKL_API.ERROR_TBL_TYPE
73:
74: ) RETURN VARCHAR2 IS
75:
76: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
77:
78: i INTEGER := 1;
79:
80: BEGIN
84: i := p_error_tbl.FIRST;
85:
86: LOOP
87:
88: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
89:
90: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
91:
92: l_return_status := p_error_tbl(i).error_type;
86: LOOP
87:
88: IF (p_error_tbl(i).error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
89:
90: IF (l_return_status <> OKL_API.G_RET_STS_UNEXP_ERROR) THEN
91:
92: l_return_status := p_error_tbl(i).error_type;
93:
94: END IF;
488: l_row_notfound BOOLEAN := TRUE;
489:
490: BEGIN
491:
492: x_return_status := OKL_API.G_RET_STS_SUCCESS;
493:
494: l_drav_rec := get_rec(p_drav_rec, l_row_notfound);
495:
496: IF (l_row_notfound) THEN
494: l_drav_rec := get_rec(p_drav_rec, l_row_notfound);
495:
496: IF (l_row_notfound) THEN
497:
498: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
499:
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501:
502: END IF;
496: IF (l_row_notfound) THEN
497:
498: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
499:
500: x_return_status := OKL_API.G_RET_STS_ERROR;
501:
502: END IF;
503:
504: RETURN(l_drav_rec);
636: l_row_notfound BOOLEAN := TRUE;
637:
638: BEGIN
639:
640: x_return_status := OKL_API.G_RET_STS_SUCCESS;
641:
642: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_row_notfound);
643:
644: IF (l_row_notfound) THEN
642: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_row_notfound);
643:
644: IF (l_row_notfound) THEN
645:
646: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
647:
648: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
649:
650: x_return_status := OKL_API.G_RET_STS_ERROR;
644: IF (l_row_notfound) THEN
645:
646: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
647:
648: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
649:
650: x_return_status := OKL_API.G_RET_STS_ERROR;
651:
652: END IF;
646: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
647:
648: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'LANGUAGE');
649:
650: x_return_status := OKL_API.G_RET_STS_ERROR;
651:
652: END IF;
653:
654: RETURN(l_okl_disb_rules_tl_rec);
884: l_row_notfound BOOLEAN := TRUE;
885:
886: BEGIN
887:
888: x_return_status := OKL_API.G_RET_STS_SUCCESS;
889:
890: l_dra_rec := get_rec(p_dra_rec, l_row_notfound);
891:
892: IF (l_row_notfound) THEN
890: l_dra_rec := get_rec(p_dra_rec, l_row_notfound);
891:
892: IF (l_row_notfound) THEN
893:
894: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
895:
896: x_return_status := OKL_API.G_RET_STS_ERROR;
897:
898: END IF;
892: IF (l_row_notfound) THEN
893:
894: OKL_API.set_message(G_APP_NAME,G_INVALID_VALUE,G_COL_NAME_TOKEN,'DISB_RULE_ID');
895:
896: x_return_status := OKL_API.G_RET_STS_ERROR;
897:
898: END IF;
899:
900: RETURN(l_dra_rec);
936: l_drav_rec drav_rec_type := p_drav_rec;
937:
938: BEGIN
939:
940: IF (l_drav_rec.disb_rule_id = OKL_API.G_MISS_NUM ) THEN
941:
942: l_drav_rec.disb_rule_id := NULL;
943:
944: END IF;
942: l_drav_rec.disb_rule_id := NULL;
943:
944: END IF;
945:
946: IF (l_drav_rec.object_version_number = OKL_API.G_MISS_NUM ) THEN
947:
948: l_drav_rec.object_version_number := NULL;
949:
950: END IF;
948: l_drav_rec.object_version_number := NULL;
949:
950: END IF;
951:
952: IF (l_drav_rec.sfwt_flag = OKL_API.G_MISS_CHAR ) THEN
953:
954: l_drav_rec.sfwt_flag := NULL;
955:
956: END IF;
954: l_drav_rec.sfwt_flag := NULL;
955:
956: END IF;
957:
958: IF (l_drav_rec.rule_name = OKL_API.G_MISS_CHAR ) THEN
959:
960: l_drav_rec.rule_name := NULL;
961:
962: END IF;
960: l_drav_rec.rule_name := NULL;
961:
962: END IF;
963:
964: IF (l_drav_rec.org_id = OKL_API.G_MISS_NUM ) THEN
965:
966: l_drav_rec.org_id := NULL;
967:
968: END IF;
966: l_drav_rec.org_id := NULL;
967:
968: END IF;
969:
970: IF (l_drav_rec.start_date = OKL_API.G_MISS_DATE ) THEN
971:
972: l_drav_rec.start_date := NULL;
973:
974: END IF;
972: l_drav_rec.start_date := NULL;
973:
974: END IF;
975:
976: IF (l_drav_rec.end_date = OKL_API.G_MISS_DATE ) THEN
977:
978: l_drav_rec.end_date := NULL;
979:
980: END IF;
978: l_drav_rec.end_date := NULL;
979:
980: END IF;
981:
982: IF (l_drav_rec.fee_option = OKL_API.G_MISS_CHAR ) THEN
983:
984: l_drav_rec.fee_option := NULL;
985:
986: END IF;
984: l_drav_rec.fee_option := NULL;
985:
986: END IF;
987:
988: IF (l_drav_rec.fee_basis = OKL_API.G_MISS_CHAR ) THEN
989:
990: l_drav_rec.fee_basis := NULL;
991:
992: END IF;
990: l_drav_rec.fee_basis := NULL;
991:
992: END IF;
993:
994: IF (l_drav_rec.fee_amount = OKL_API.G_MISS_NUM ) THEN
995:
996: l_drav_rec.fee_amount := NULL;
997:
998: END IF;
996: l_drav_rec.fee_amount := NULL;
997:
998: END IF;
999:
1000: IF (l_drav_rec.fee_percent = OKL_API.G_MISS_NUM ) THEN
1001:
1002: l_drav_rec.fee_percent := NULL;
1003:
1004: END IF;
1002: l_drav_rec.fee_percent := NULL;
1003:
1004: END IF;
1005:
1006: IF (l_drav_rec.consolidate_by_due_date = OKL_API.G_MISS_CHAR ) THEN
1007:
1008: l_drav_rec.consolidate_by_due_date := NULL;
1009:
1010: END IF;
1008: l_drav_rec.consolidate_by_due_date := NULL;
1009:
1010: END IF;
1011:
1012: IF (l_drav_rec.frequency = OKL_API.G_MISS_CHAR ) THEN
1013:
1014: l_drav_rec.frequency := NULL;
1015:
1016: END IF;
1014: l_drav_rec.frequency := NULL;
1015:
1016: END IF;
1017:
1018: IF (l_drav_rec.day_of_month = OKL_API.G_MISS_NUM ) THEN
1019:
1020: l_drav_rec.day_of_month := NULL;
1021:
1022: END IF;
1020: l_drav_rec.day_of_month := NULL;
1021:
1022: END IF;
1023:
1024: IF (l_drav_rec.scheduled_month = OKL_API.G_MISS_CHAR ) THEN
1025:
1026: l_drav_rec.scheduled_month := NULL;
1027:
1028: END IF;
1026: l_drav_rec.scheduled_month := NULL;
1027:
1028: END IF;
1029:
1030: IF (l_drav_rec.consolidate_strm_type = OKL_API.G_MISS_CHAR ) THEN
1031:
1032: l_drav_rec.consolidate_strm_type := NULL;
1033:
1034: END IF;
1032: l_drav_rec.consolidate_strm_type := NULL;
1033:
1034: END IF;
1035:
1036: IF (l_drav_rec.description = OKL_API.G_MISS_CHAR ) THEN
1037:
1038: l_drav_rec.description := NULL;
1039:
1040: END IF;
1038: l_drav_rec.description := NULL;
1039:
1040: END IF;
1041:
1042: IF (l_drav_rec.attribute_category = OKL_API.G_MISS_CHAR ) THEN
1043:
1044: l_drav_rec.attribute_category := NULL;
1045:
1046: END IF;
1044: l_drav_rec.attribute_category := NULL;
1045:
1046: END IF;
1047:
1048: IF (l_drav_rec.attribute1 = OKL_API.G_MISS_CHAR ) THEN
1049:
1050: l_drav_rec.attribute1 := NULL;
1051:
1052: END IF;
1050: l_drav_rec.attribute1 := NULL;
1051:
1052: END IF;
1053:
1054: IF (l_drav_rec.attribute2 = OKL_API.G_MISS_CHAR ) THEN
1055:
1056: l_drav_rec.attribute2 := NULL;
1057:
1058: END IF;
1056: l_drav_rec.attribute2 := NULL;
1057:
1058: END IF;
1059:
1060: IF (l_drav_rec.attribute3 = OKL_API.G_MISS_CHAR ) THEN
1061:
1062: l_drav_rec.attribute3 := NULL;
1063:
1064: END IF;
1062: l_drav_rec.attribute3 := NULL;
1063:
1064: END IF;
1065:
1066: IF (l_drav_rec.attribute4 = OKL_API.G_MISS_CHAR ) THEN
1067:
1068: l_drav_rec.attribute4 := NULL;
1069:
1070: END IF;
1068: l_drav_rec.attribute4 := NULL;
1069:
1070: END IF;
1071:
1072: IF (l_drav_rec.attribute5 = OKL_API.G_MISS_CHAR ) THEN
1073:
1074: l_drav_rec.attribute5 := NULL;
1075:
1076: END IF;
1074: l_drav_rec.attribute5 := NULL;
1075:
1076: END IF;
1077:
1078: IF (l_drav_rec.attribute6 = OKL_API.G_MISS_CHAR ) THEN
1079:
1080: l_drav_rec.attribute6 := NULL;
1081:
1082: END IF;
1080: l_drav_rec.attribute6 := NULL;
1081:
1082: END IF;
1083:
1084: IF (l_drav_rec.attribute7 = OKL_API.G_MISS_CHAR ) THEN
1085:
1086: l_drav_rec.attribute7 := NULL;
1087:
1088: END IF;
1086: l_drav_rec.attribute7 := NULL;
1087:
1088: END IF;
1089:
1090: IF (l_drav_rec.attribute8 = OKL_API.G_MISS_CHAR ) THEN
1091:
1092: l_drav_rec.attribute8 := NULL;
1093:
1094: END IF;
1092: l_drav_rec.attribute8 := NULL;
1093:
1094: END IF;
1095:
1096: IF (l_drav_rec.attribute9 = OKL_API.G_MISS_CHAR ) THEN
1097:
1098: l_drav_rec.attribute9 := NULL;
1099:
1100: END IF;
1098: l_drav_rec.attribute9 := NULL;
1099:
1100: END IF;
1101:
1102: IF (l_drav_rec.attribute10 = OKL_API.G_MISS_CHAR ) THEN
1103:
1104: l_drav_rec.attribute10 := NULL;
1105:
1106: END IF;
1104: l_drav_rec.attribute10 := NULL;
1105:
1106: END IF;
1107:
1108: IF (l_drav_rec.attribute11 = OKL_API.G_MISS_CHAR ) THEN
1109:
1110: l_drav_rec.attribute11 := NULL;
1111:
1112: END IF;
1110: l_drav_rec.attribute11 := NULL;
1111:
1112: END IF;
1113:
1114: IF (l_drav_rec.attribute12 = OKL_API.G_MISS_CHAR ) THEN
1115:
1116: l_drav_rec.attribute12 := NULL;
1117:
1118: END IF;
1116: l_drav_rec.attribute12 := NULL;
1117:
1118: END IF;
1119:
1120: IF (l_drav_rec.attribute13 = OKL_API.G_MISS_CHAR ) THEN
1121:
1122: l_drav_rec.attribute13 := NULL;
1123:
1124: END IF;
1122: l_drav_rec.attribute13 := NULL;
1123:
1124: END IF;
1125:
1126: IF (l_drav_rec.attribute14 = OKL_API.G_MISS_CHAR ) THEN
1127:
1128: l_drav_rec.attribute14 := NULL;
1129:
1130: END IF;
1128: l_drav_rec.attribute14 := NULL;
1129:
1130: END IF;
1131:
1132: IF (l_drav_rec.attribute15 = OKL_API.G_MISS_CHAR ) THEN
1133:
1134: l_drav_rec.attribute15 := NULL;
1135:
1136: END IF;
1134: l_drav_rec.attribute15 := NULL;
1135:
1136: END IF;
1137:
1138: IF (l_drav_rec.created_by = OKL_API.G_MISS_NUM ) THEN
1139:
1140: l_drav_rec.created_by := NULL;
1141:
1142: END IF;
1140: l_drav_rec.created_by := NULL;
1141:
1142: END IF;
1143:
1144: IF (l_drav_rec.creation_date = OKL_API.G_MISS_DATE ) THEN
1145:
1146: l_drav_rec.creation_date := NULL;
1147:
1148: END IF;
1146: l_drav_rec.creation_date := NULL;
1147:
1148: END IF;
1149:
1150: IF (l_drav_rec.last_updated_by = OKL_API.G_MISS_NUM ) THEN
1151:
1152: l_drav_rec.last_updated_by := NULL;
1153:
1154: END IF;
1152: l_drav_rec.last_updated_by := NULL;
1153:
1154: END IF;
1155:
1156: IF (l_drav_rec.last_update_date = OKL_API.G_MISS_DATE ) THEN
1157:
1158: l_drav_rec.last_update_date := NULL;
1159:
1160: END IF;
1158: l_drav_rec.last_update_date := NULL;
1159:
1160: END IF;
1161:
1162: IF (l_drav_rec.last_update_login = OKL_API.G_MISS_NUM ) THEN
1163:
1164: l_drav_rec.last_update_login := NULL;
1165:
1166: END IF;
1182: p_disb_rule_id IN NUMBER) IS
1183:
1184: BEGIN
1185:
1186: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1187:
1188: IF (p_disb_rule_id IS NULL) THEN
1189:
1190: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'disb_rule_id');
1186: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1187:
1188: IF (p_disb_rule_id IS NULL) THEN
1189:
1190: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'disb_rule_id');
1191:
1192: x_return_status := OKL_API.G_RET_STS_ERROR;
1193:
1194: RAISE G_EXCEPTION_HALT_VALIDATION;
1188: IF (p_disb_rule_id IS NULL) THEN
1189:
1190: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'disb_rule_id');
1191:
1192: x_return_status := OKL_API.G_RET_STS_ERROR;
1193:
1194: RAISE G_EXCEPTION_HALT_VALIDATION;
1195:
1196: END IF;
1202: null;
1203:
1204: WHEN OTHERS THEN
1205:
1206: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1207:
1208: ,p_msg_name => G_UNEXPECTED_ERROR
1209:
1210: ,p_token1 => G_SQLCODE_TOKEN
1214: ,p_token2 => G_SQLERRM_TOKEN
1215:
1216: ,p_token2_value => SQLERRM);
1217:
1218: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1219:
1220: END validate_disb_rule_id;
1221:
1222: ----------------------------------------------------
1232: p_object_version_number IN NUMBER) IS
1233:
1234: BEGIN
1235:
1236: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1237:
1238: IF (p_object_version_number IS NULL) THEN
1239:
1240: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1236: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1237:
1238: IF (p_object_version_number IS NULL) THEN
1239:
1240: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1241:
1242: x_return_status := OKL_API.G_RET_STS_ERROR;
1243:
1244: RAISE G_EXCEPTION_HALT_VALIDATION;
1238: IF (p_object_version_number IS NULL) THEN
1239:
1240: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'object_version_number');
1241:
1242: x_return_status := OKL_API.G_RET_STS_ERROR;
1243:
1244: RAISE G_EXCEPTION_HALT_VALIDATION;
1245:
1246: END IF;
1252: null;
1253:
1254: WHEN OTHERS THEN
1255:
1256: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1257:
1258: ,p_msg_name => G_UNEXPECTED_ERROR
1259:
1260: ,p_token1 => G_SQLCODE_TOKEN
1264: ,p_token2 => G_SQLERRM_TOKEN
1265:
1266: ,p_token2_value => SQLERRM);
1267:
1268: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1269:
1270: END validate_object_version_number;
1271:
1272: ----------------------------------------
1282: p_sfwt_flag IN VARCHAR2) IS
1283:
1284: BEGIN
1285:
1286: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1287:
1288: IF (p_sfwt_flag IS NULL) THEN
1289:
1290: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sfwt_flag');
1286: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1287:
1288: IF (p_sfwt_flag IS NULL) THEN
1289:
1290: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sfwt_flag');
1291:
1292: x_return_status := OKL_API.G_RET_STS_ERROR;
1293:
1294: RAISE G_EXCEPTION_HALT_VALIDATION;
1288: IF (p_sfwt_flag IS NULL) THEN
1289:
1290: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'sfwt_flag');
1291:
1292: x_return_status := OKL_API.G_RET_STS_ERROR;
1293:
1294: RAISE G_EXCEPTION_HALT_VALIDATION;
1295:
1296: END IF;
1302: null;
1303:
1304: WHEN OTHERS THEN
1305:
1306: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1307:
1308: ,p_msg_name => G_UNEXPECTED_ERROR
1309:
1310: ,p_token1 => G_SQLCODE_TOKEN
1314: ,p_token2 => G_SQLERRM_TOKEN
1315:
1316: ,p_token2_value => SQLERRM);
1317:
1318: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1319:
1320: END validate_sfwt_flag;
1321:
1322: ----------------------------------------
1332: p_rule_name IN VARCHAR2) IS
1333:
1334: BEGIN
1335:
1336: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1337:
1338: IF (p_rule_name IS NULL) THEN
1339:
1340: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'rule_name');
1336: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1337:
1338: IF (p_rule_name IS NULL) THEN
1339:
1340: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'rule_name');
1341:
1342: x_return_status := OKL_API.G_RET_STS_ERROR;
1343:
1344: RAISE G_EXCEPTION_HALT_VALIDATION;
1338: IF (p_rule_name IS NULL) THEN
1339:
1340: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'rule_name');
1341:
1342: x_return_status := OKL_API.G_RET_STS_ERROR;
1343:
1344: RAISE G_EXCEPTION_HALT_VALIDATION;
1345:
1346: END IF;
1352: null;
1353:
1354: WHEN OTHERS THEN
1355:
1356: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1357:
1358: ,p_msg_name => G_UNEXPECTED_ERROR
1359:
1360: ,p_token1 => G_SQLCODE_TOKEN
1364: ,p_token2 => G_SQLERRM_TOKEN
1365:
1366: ,p_token2_value => SQLERRM);
1367:
1368: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1369:
1370: END validate_rule_name;
1371:
1372: -------------------------------------
1382: p_org_id IN NUMBER) IS
1383:
1384: BEGIN
1385:
1386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1387:
1388: IF (p_org_id IS NULL) THEN
1389:
1390: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'org_id');
1386: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1387:
1388: IF (p_org_id IS NULL) THEN
1389:
1390: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'org_id');
1391:
1392: x_return_status := OKL_API.G_RET_STS_ERROR;
1393:
1394: RAISE G_EXCEPTION_HALT_VALIDATION;
1388: IF (p_org_id IS NULL) THEN
1389:
1390: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'org_id');
1391:
1392: x_return_status := OKL_API.G_RET_STS_ERROR;
1393:
1394: RAISE G_EXCEPTION_HALT_VALIDATION;
1395:
1396: END IF;
1402: null;
1403:
1404: WHEN OTHERS THEN
1405:
1406: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1407:
1408: ,p_msg_name => G_UNEXPECTED_ERROR
1409:
1410: ,p_token1 => G_SQLCODE_TOKEN
1414: ,p_token2 => G_SQLERRM_TOKEN
1415:
1416: ,p_token2_value => SQLERRM);
1417:
1418: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1419:
1420: END validate_org_id;
1421:
1422: -----------------------------------------
1432: p_start_date IN DATE) IS
1433:
1434: BEGIN
1435:
1436: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1437:
1438: IF (p_start_date IS NULL) THEN
1439:
1440: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'start_date');
1436: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1437:
1438: IF (p_start_date IS NULL) THEN
1439:
1440: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'start_date');
1441:
1442: x_return_status := OKL_API.G_RET_STS_ERROR;
1443:
1444: RAISE G_EXCEPTION_HALT_VALIDATION;
1438: IF (p_start_date IS NULL) THEN
1439:
1440: OKL_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'start_date');
1441:
1442: x_return_status := OKL_API.G_RET_STS_ERROR;
1443:
1444: RAISE G_EXCEPTION_HALT_VALIDATION;
1445:
1446: END IF;
1452: null;
1453:
1454: WHEN OTHERS THEN
1455:
1456: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1457:
1458: ,p_msg_name => G_UNEXPECTED_ERROR
1459:
1460: ,p_token1 => G_SQLCODE_TOKEN
1464: ,p_token2 => G_SQLERRM_TOKEN
1465:
1466: ,p_token2_value => SQLERRM);
1467:
1468: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1469:
1470: END validate_start_date;
1471:
1472: ---------------------------------------------------------------------------
1486: p_drav_rec IN drav_rec_type
1487:
1488: ) RETURN VARCHAR2 IS
1489:
1490: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1491:
1492: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1493:
1494: BEGIN
1488: ) RETURN VARCHAR2 IS
1489:
1490: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1491:
1492: x_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1493:
1494: BEGIN
1495:
1496: -----------------------------
1506: -- ***
1507:
1508: validate_disb_rule_id(x_return_status, p_drav_rec.disb_rule_id);
1509:
1510: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1511:
1512: l_return_status := x_return_status;
1513:
1514: RAISE G_EXCEPTION_HALT_VALIDATION;
1524: -- ***
1525:
1526: validate_object_version_number(x_return_status, p_drav_rec.object_version_number);
1527:
1528: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1529:
1530: l_return_status := x_return_status;
1531:
1532: RAISE G_EXCEPTION_HALT_VALIDATION;
1542: -- ***
1543:
1544: /* validate_sfwt_flag(x_return_status, p_drav_rec.sfwt_flag);
1545:
1546: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1547:
1548: l_return_status := x_return_status;
1549:
1550: RAISE G_EXCEPTION_HALT_VALIDATION;
1560: -- ***
1561:
1562: validate_rule_name(x_return_status, p_drav_rec.rule_name);
1563:
1564: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1565:
1566: l_return_status := x_return_status;
1567:
1568: RAISE G_EXCEPTION_HALT_VALIDATION;
1578: -- ***
1579:
1580: validate_org_id(x_return_status, p_drav_rec.org_id);
1581:
1582: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1583:
1584: l_return_status := x_return_status;
1585:
1586: RAISE G_EXCEPTION_HALT_VALIDATION;
1596: -- ***
1597:
1598: validate_start_date(x_return_status, p_drav_rec.start_date);
1599:
1600: IF (x_return_status <> OKL_API.G_RET_STS_SUCCESS) THEN
1601:
1602: l_return_status := x_return_status;
1603:
1604: RAISE G_EXCEPTION_HALT_VALIDATION;
1616: RETURN(l_return_status);
1617:
1618: WHEN OTHERS THEN
1619:
1620: OKL_API.SET_MESSAGE( p_app_name => G_APP_NAME
1621:
1622: ,p_msg_name => G_UNEXPECTED_ERROR
1623:
1624: ,p_token1 => G_SQLCODE_TOKEN
1628: ,p_token2 => G_SQLERRM_TOKEN
1629:
1630: ,p_token2_value => SQLERRM);
1631:
1632: l_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
1633:
1634: RETURN(l_return_status);
1635:
1636: END Validate_Attributes;
1654: p_db_drav_rec IN drav_rec_type
1655:
1656: ) RETURN VARCHAR2 IS
1657:
1658: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1659:
1660: BEGIN
1661:
1662: RETURN (l_return_status);
1668: p_drav_rec IN drav_rec_type
1669:
1670: ) RETURN VARCHAR2 IS
1671:
1672: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1673:
1674: l_db_drav_rec drav_rec_type := get_rec(p_drav_rec);
1675:
1676: BEGIN
1936: PROCEDURE validate_row(
1937:
1938: p_api_version IN NUMBER,
1939:
1940: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1941:
1942: x_return_status OUT NOCOPY VARCHAR2,
1943:
1944: x_msg_count OUT NOCOPY NUMBER,
1952: l_api_version CONSTANT NUMBER := 1;
1953:
1954: l_api_name CONSTANT VARCHAR2(30) := 'V_validate_row';
1955:
1956: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1957:
1958: l_drav_rec drav_rec_type := p_drav_rec;
1959:
1960: l_dra_rec dra_rec_type;
1962: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
1963:
1964: BEGIN
1965:
1966: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
1967:
1968: G_PKG_NAME,
1969:
1970: p_init_msg_list,
1976: '_PVT',
1977:
1978: x_return_status);
1979:
1980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1981:
1982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1983:
1984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1978: x_return_status);
1979:
1980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1981:
1982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1983:
1984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1985:
1986: RAISE OKL_API.G_EXCEPTION_ERROR;
1980: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1981:
1982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1983:
1984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1985:
1986: RAISE OKL_API.G_EXCEPTION_ERROR;
1987:
1988: END IF;
1982: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1983:
1984: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1985:
1986: RAISE OKL_API.G_EXCEPTION_ERROR;
1987:
1988: END IF;
1989:
1990: --- Validate all non-missing attributes (Item Level Validation)
1992: l_return_status := Validate_Attributes(l_drav_rec);
1993:
1994: --- If any errors happen abort API
1995:
1996: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997:
1998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1999:
2000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
1994: --- If any errors happen abort API
1995:
1996: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997:
1998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1999:
2000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2001:
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
1996: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
1997:
1998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1999:
2000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2001:
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003:
2004: END IF;
1998: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
1999:
2000: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2001:
2002: RAISE OKL_API.G_EXCEPTION_ERROR;
2003:
2004: END IF;
2005:
2006: l_return_status := Validate_Record(l_drav_rec);
2004: END IF;
2005:
2006: l_return_status := Validate_Record(l_drav_rec);
2007:
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009:
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011:
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2006: l_return_status := Validate_Record(l_drav_rec);
2007:
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009:
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011:
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013:
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2008: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2009:
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011:
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013:
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2015:
2016: END IF;
2010: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2011:
2012: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2013:
2014: RAISE OKL_API.G_EXCEPTION_ERROR;
2015:
2016: END IF;
2017:
2018: x_return_status := l_return_status;
2018: x_return_status := l_return_status;
2019:
2020: EXCEPTION
2021:
2022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2023:
2024: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2025:
2026: (
2020: EXCEPTION
2021:
2022: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2023:
2024: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2025:
2026: (
2027:
2028: l_api_name,
2028: l_api_name,
2029:
2030: G_PKG_NAME,
2031:
2032: 'OKL_API.G_RET_STS_ERROR',
2033:
2034: x_msg_count,
2035:
2036: x_msg_data,
2038: '_PVT'
2039:
2040: );
2041:
2042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2043:
2044: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2045:
2046: (
2040: );
2041:
2042: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2043:
2044: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2045:
2046: (
2047:
2048: l_api_name,
2048: l_api_name,
2049:
2050: G_PKG_NAME,
2051:
2052: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2053:
2054: x_msg_count,
2055:
2056: x_msg_data,
2060: );
2061:
2062: WHEN OTHERS THEN
2063:
2064: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2065:
2066: (
2067:
2068: l_api_name,
2090: PROCEDURE validate_row(
2091:
2092: p_api_version IN NUMBER,
2093:
2094: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2095:
2096: x_return_status OUT NOCOPY VARCHAR2,
2097:
2098: x_msg_count OUT NOCOPY NUMBER,
2100: x_msg_data OUT NOCOPY VARCHAR2,
2101:
2102: p_drav_tbl IN drav_tbl_type,
2103:
2104: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
2105:
2106:
2107:
2108: l_api_version CONSTANT NUMBER := 1;
2112: i NUMBER := 0;
2113:
2114: BEGIN
2115:
2116: OKL_API.init_msg_list(p_init_msg_list);
2117:
2118: -- Make sure PL/SQL table has records in it before passing
2119:
2120: IF (p_drav_tbl.COUNT > 0) THEN
2124: LOOP
2125:
2126: DECLARE
2127:
2128: l_error_rec OKL_API.ERROR_REC_TYPE;
2129:
2130: BEGIN
2131:
2132: l_error_rec.api_name := l_api_name;
2138: validate_row (
2139:
2140: p_api_version => p_api_version,
2141:
2142: p_init_msg_list => OKL_API.G_FALSE,
2143:
2144: x_return_status => l_error_rec.error_type,
2145:
2146: x_msg_count => l_error_rec.msg_count,
2148: x_msg_data => l_error_rec.msg_data,
2149:
2150: p_drav_rec => p_drav_tbl(i));
2151:
2152: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
2153:
2154: l_error_rec.sqlcode := SQLCODE;
2155:
2156: load_error_tbl(l_error_rec, px_error_tbl);
2164: END IF;
2165:
2166: EXCEPTION
2167:
2168: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2169:
2170: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2171:
2172: l_error_rec.sqlcode := SQLCODE;
2166: EXCEPTION
2167:
2168: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2169:
2170: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
2171:
2172: l_error_rec.sqlcode := SQLCODE;
2173:
2174: load_error_tbl(l_error_rec, px_error_tbl);
2172: l_error_rec.sqlcode := SQLCODE;
2173:
2174: load_error_tbl(l_error_rec, px_error_tbl);
2175:
2176: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2177:
2178: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2179:
2180: l_error_rec.sqlcode := SQLCODE;
2174: load_error_tbl(l_error_rec, px_error_tbl);
2175:
2176: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2177:
2178: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
2179:
2180: l_error_rec.sqlcode := SQLCODE;
2181:
2182: load_error_tbl(l_error_rec, px_error_tbl);
2204: -- and return it.
2205:
2206: x_return_status := find_highest_exception(px_error_tbl);
2207:
2208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2209:
2210: EXCEPTION
2211:
2212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2208: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2209:
2210: EXCEPTION
2211:
2212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2213:
2214: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2215:
2216: (
2210: EXCEPTION
2211:
2212: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2213:
2214: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2215:
2216: (
2217:
2218: l_api_name,
2218: l_api_name,
2219:
2220: G_PKG_NAME,
2221:
2222: 'OKL_API.G_RET_STS_ERROR',
2223:
2224: x_msg_count,
2225:
2226: x_msg_data,
2228: '_PVT'
2229:
2230: );
2231:
2232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2233:
2234: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2235:
2236: (
2230: );
2231:
2232: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2233:
2234: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2235:
2236: (
2237:
2238: l_api_name,
2238: l_api_name,
2239:
2240: G_PKG_NAME,
2241:
2242: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2243:
2244: x_msg_count,
2245:
2246: x_msg_data,
2250: );
2251:
2252: WHEN OTHERS THEN
2253:
2254: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2255:
2256: (
2257:
2258: l_api_name,
2282: PROCEDURE validate_row(
2283:
2284: p_api_version IN NUMBER,
2285:
2286: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2287:
2288: x_return_status OUT NOCOPY VARCHAR2,
2289:
2290: x_msg_count OUT NOCOPY NUMBER,
2298: l_api_version CONSTANT NUMBER := 1;
2299:
2300: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2301:
2302: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2303:
2304: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2305:
2306: BEGIN
2300: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_validate_row';
2301:
2302: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2303:
2304: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2305:
2306: BEGIN
2307:
2308: OKL_API.init_msg_list(p_init_msg_list);
2304: l_error_tbl OKL_API.ERROR_TBL_TYPE;
2305:
2306: BEGIN
2307:
2308: OKL_API.init_msg_list(p_init_msg_list);
2309:
2310: -- Make sure PL/SQL table has records in it before passing
2311:
2312: IF (p_drav_tbl.COUNT > 0) THEN
2314: validate_row (
2315:
2316: p_api_version => p_api_version,
2317:
2318: p_init_msg_list => OKL_API.G_FALSE,
2319:
2320: x_return_status => x_return_status,
2321:
2322: x_msg_count => x_msg_count,
2328: px_error_tbl => l_error_tbl);
2329:
2330: END IF;
2331:
2332: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2333:
2334: EXCEPTION
2335:
2336: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2332: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2333:
2334: EXCEPTION
2335:
2336: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2337:
2338: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2339:
2340: (
2334: EXCEPTION
2335:
2336: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2337:
2338: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2339:
2340: (
2341:
2342: l_api_name,
2342: l_api_name,
2343:
2344: G_PKG_NAME,
2345:
2346: 'OKL_API.G_RET_STS_ERROR',
2347:
2348: x_msg_count,
2349:
2350: x_msg_data,
2352: '_PVT'
2353:
2354: );
2355:
2356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2357:
2358: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2359:
2360: (
2354: );
2355:
2356: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2357:
2358: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2359:
2360: (
2361:
2362: l_api_name,
2362: l_api_name,
2363:
2364: G_PKG_NAME,
2365:
2366: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2367:
2368: x_msg_count,
2369:
2370: x_msg_data,
2374: );
2375:
2376: WHEN OTHERS THEN
2377:
2378: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2379:
2380: (
2381:
2382: l_api_name,
2410: -------------------------------------
2411:
2412: PROCEDURE insert_row(
2413:
2414: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2415: x_return_status OUT NOCOPY VARCHAR2,
2416: x_msg_count OUT NOCOPY NUMBER,
2417: x_msg_data OUT NOCOPY VARCHAR2,
2418: p_dra_rec IN dra_rec_type,
2421:
2422:
2423: l_api_version CONSTANT NUMBER := 1;
2424: l_api_name CONSTANT VARCHAR2(30) := 'B_insert_row';
2425: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2426: l_dra_rec dra_rec_type := p_dra_rec;
2427: l_def_dra_rec dra_rec_type;
2428:
2429: -----------------------------------------
2437: x_dra_rec OUT NOCOPY dra_rec_type
2438:
2439: ) RETURN VARCHAR2 IS
2440:
2441: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2442:
2443: BEGIN
2444: x_dra_rec := p_dra_rec;
2445: RETURN(l_return_status);
2446: END Set_Attributes;
2447:
2448: BEGIN
2449:
2450: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2451: p_init_msg_list,
2452: '_PVT',
2453: x_return_status);
2454:
2451: p_init_msg_list,
2452: '_PVT',
2453: x_return_status);
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2452: '_PVT',
2453: x_return_status);
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2453: x_return_status);
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2461: --- Setting item atributes
2454:
2455: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2456: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2457: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2458: RAISE OKL_API.G_EXCEPTION_ERROR;
2459: END IF;
2460:
2461: --- Setting item atributes
2462:
2465: l_def_dra_rec); -- OUT
2466:
2467: --- If any errors happen abort API
2468:
2469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2466:
2467: --- If any errors happen abort API
2468:
2469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474:
2467: --- If any errors happen abort API
2468:
2469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474:
2475: INSERT INTO OKL_DISB_RULES_B(
2468:
2469: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2470: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2471: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2472: RAISE OKL_API.G_EXCEPTION_ERROR;
2473: END IF;
2474:
2475: INSERT INTO OKL_DISB_RULES_B(
2476: disb_rule_id,
2621: x_dra_rec := l_dra_rec;
2622:
2623: x_return_status := l_return_status;
2624:
2625: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626:
2627: EXCEPTION
2628:
2629: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2625: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2626:
2627: EXCEPTION
2628:
2629: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2630:
2631: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2632:
2633: (
2627: EXCEPTION
2628:
2629: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2630:
2631: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2632:
2633: (
2634:
2635: l_api_name,
2635: l_api_name,
2636:
2637: G_PKG_NAME,
2638:
2639: 'OKL_API.G_RET_STS_ERROR',
2640:
2641: x_msg_count,
2642:
2643: x_msg_data,
2645: '_PVT'
2646:
2647: );
2648:
2649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2650:
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652:
2653: (
2647: );
2648:
2649: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2650:
2651: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2652:
2653: (
2654:
2655: l_api_name,
2655: l_api_name,
2656:
2657: G_PKG_NAME,
2658:
2659: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2660:
2661: x_msg_count,
2662:
2663: x_msg_data,
2667: );
2668:
2669: WHEN OTHERS THEN
2670:
2671: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2672:
2673: (
2674:
2675: l_api_name,
2695: --------------------------------------
2696:
2697: PROCEDURE insert_row(
2698:
2699: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2700:
2701: x_return_status OUT NOCOPY VARCHAR2,
2702:
2703: x_msg_count OUT NOCOPY NUMBER,
2713: l_api_version CONSTANT NUMBER := 1;
2714:
2715: l_api_name CONSTANT VARCHAR2(30) := 'TL_insert_row';
2716:
2717: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2718:
2719: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
2720:
2721: l_def_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
2741: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
2742:
2743: ) RETURN VARCHAR2 IS
2744:
2745: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2746:
2747: BEGIN
2748:
2749: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
2757: END Set_Attributes;
2758:
2759: BEGIN
2760:
2761: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
2762:
2763: p_init_msg_list,
2764:
2765: '_PVT',
2765: '_PVT',
2766:
2767: x_return_status);
2768:
2769: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2770:
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772:
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2767: x_return_status);
2768:
2769: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2770:
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772:
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774:
2775: RAISE OKL_API.G_EXCEPTION_ERROR;
2769: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2770:
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772:
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774:
2775: RAISE OKL_API.G_EXCEPTION_ERROR;
2776:
2777: END IF;
2771: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2772:
2773: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2774:
2775: RAISE OKL_API.G_EXCEPTION_ERROR;
2776:
2777: END IF;
2778:
2779: --- Setting item attributes
2785: l_okl_disb_rules_tl_rec); -- OUT
2786:
2787: --- If any errors happen abort API
2788:
2789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2790:
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792:
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2787: --- If any errors happen abort API
2788:
2789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2790:
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792:
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2794:
2795: RAISE OKL_API.G_EXCEPTION_ERROR;
2789: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
2790:
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792:
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2794:
2795: RAISE OKL_API.G_EXCEPTION_ERROR;
2796:
2797: END IF;
2791: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
2792:
2793: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
2794:
2795: RAISE OKL_API.G_EXCEPTION_ERROR;
2796:
2797: END IF;
2798:
2799: FOR l_lang_rec IN get_languages LOOP
2851: x_okl_disb_rules_tl_rec := l_okl_disb_rules_tl_rec;
2852:
2853: x_return_status := l_return_status;
2854:
2855: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2856:
2857: EXCEPTION
2858:
2859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2855: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
2856:
2857: EXCEPTION
2858:
2859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2860:
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862:
2863: (
2857: EXCEPTION
2858:
2859: WHEN OKL_API.G_EXCEPTION_ERROR THEN
2860:
2861: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2862:
2863: (
2864:
2865: l_api_name,
2865: l_api_name,
2866:
2867: G_PKG_NAME,
2868:
2869: 'OKL_API.G_RET_STS_ERROR',
2870:
2871: x_msg_count,
2872:
2873: x_msg_data,
2875: '_PVT'
2876:
2877: );
2878:
2879: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2880:
2881: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2882:
2883: (
2877: );
2878:
2879: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
2880:
2881: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2882:
2883: (
2884:
2885: l_api_name,
2885: l_api_name,
2886:
2887: G_PKG_NAME,
2888:
2889: 'OKL_API.G_RET_STS_UNEXP_ERROR',
2890:
2891: x_msg_count,
2892:
2893: x_msg_data,
2897: );
2898:
2899: WHEN OTHERS THEN
2900:
2901: x_return_status := OKL_API.HANDLE_EXCEPTIONS
2902:
2903: (
2904:
2905: l_api_name,
2927: PROCEDURE insert_row(
2928:
2929: p_api_version IN NUMBER,
2930:
2931: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
2932:
2933: x_return_status OUT NOCOPY VARCHAR2,
2934:
2935: x_msg_count OUT NOCOPY NUMBER,
2945: l_api_version CONSTANT NUMBER := 1;
2946:
2947: l_api_name CONSTANT VARCHAR2(30) := 'V_insert_row';
2948:
2949: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
2950:
2951: l_drav_rec drav_rec_type := p_drav_rec;
2952:
2953: l_def_drav_rec drav_rec_type;
3003: x_drav_rec OUT NOCOPY drav_rec_type
3004:
3005: ) RETURN VARCHAR2 IS
3006:
3007: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3008:
3009: BEGIN
3010:
3011: x_drav_rec := p_drav_rec;
3019: END Set_Attributes;
3020:
3021: BEGIN
3022:
3023: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3024:
3025: G_PKG_NAME,
3026:
3027: p_init_msg_list,
3033: '_PVT',
3034:
3035: x_return_status);
3036:
3037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3038:
3039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3040:
3041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3035: x_return_status);
3036:
3037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3038:
3039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3040:
3041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3042:
3043: RAISE OKL_API.G_EXCEPTION_ERROR;
3037: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3038:
3039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3040:
3041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3042:
3043: RAISE OKL_API.G_EXCEPTION_ERROR;
3044:
3045: END IF;
3039: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3040:
3041: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3042:
3043: RAISE OKL_API.G_EXCEPTION_ERROR;
3044:
3045: END IF;
3046:
3047: l_drav_rec := null_out_defaults(p_drav_rec);
3059: l_def_drav_rec); -- OUT
3060:
3061: --- If any errors happen abort API
3062:
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064:
3065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066:
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3061: --- If any errors happen abort API
3062:
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064:
3065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066:
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068:
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3063: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3064:
3065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066:
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068:
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070:
3071: END IF;
3065: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3066:
3067: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3068:
3069: RAISE OKL_API.G_EXCEPTION_ERROR;
3070:
3071: END IF;
3072:
3073: l_def_drav_rec := fill_who_columns(l_def_drav_rec);
3077: l_return_status := Validate_Attributes(l_def_drav_rec);
3078:
3079: --- If any errors happen abort API
3080:
3081: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082:
3083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3084:
3085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3079: --- If any errors happen abort API
3080:
3081: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082:
3083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3084:
3085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3086:
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3081: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3082:
3083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3084:
3085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3086:
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088:
3089: END IF;
3083: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3084:
3085: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3086:
3087: RAISE OKL_API.G_EXCEPTION_ERROR;
3088:
3089: END IF;
3090:
3091: l_return_status := Validate_Record(l_def_drav_rec);
3089: END IF;
3090:
3091: l_return_status := Validate_Record(l_def_drav_rec);
3092:
3093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094:
3095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3096:
3097: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3091: l_return_status := Validate_Record(l_def_drav_rec);
3092:
3093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094:
3095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3096:
3097: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3098:
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3093: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3094:
3095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3096:
3097: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3098:
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100:
3101: END IF;
3095: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3096:
3097: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3098:
3099: RAISE OKL_API.G_EXCEPTION_ERROR;
3100:
3101: END IF;
3102:
3103: -----------------------------------------
3136: lx_dra_rec
3137:
3138: );
3139:
3140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3141:
3142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143:
3144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3138: );
3139:
3140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3141:
3142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143:
3144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145:
3146: RAISE OKL_API.G_EXCEPTION_ERROR;
3140: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3141:
3142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143:
3144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145:
3146: RAISE OKL_API.G_EXCEPTION_ERROR;
3147:
3148: END IF;
3142: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3143:
3144: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3145:
3146: RAISE OKL_API.G_EXCEPTION_ERROR;
3147:
3148: END IF;
3149:
3150: migrate(lx_dra_rec, l_def_drav_rec);
3164: lx_okl_disb_rules_tl_rec
3165:
3166: );
3167:
3168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3169:
3170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171:
3172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3166: );
3167:
3168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3169:
3170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171:
3172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3173:
3174: RAISE OKL_API.G_EXCEPTION_ERROR;
3168: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3169:
3170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171:
3172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3173:
3174: RAISE OKL_API.G_EXCEPTION_ERROR;
3175:
3176: END IF;
3170: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3171:
3172: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3173:
3174: RAISE OKL_API.G_EXCEPTION_ERROR;
3175:
3176: END IF;
3177:
3178: migrate(lx_okl_disb_rules_tl_rec, l_def_drav_rec);
3182: x_drav_rec := l_def_drav_rec;
3183:
3184: x_return_status := l_return_status;
3185:
3186: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3187:
3188: EXCEPTION
3189:
3190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3186: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3187:
3188: EXCEPTION
3189:
3190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3191:
3192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3193:
3194: (
3188: EXCEPTION
3189:
3190: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3191:
3192: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3193:
3194: (
3195:
3196: l_api_name,
3196: l_api_name,
3197:
3198: G_PKG_NAME,
3199:
3200: 'OKL_API.G_RET_STS_ERROR',
3201:
3202: x_msg_count,
3203:
3204: x_msg_data,
3206: '_PVT'
3207:
3208: );
3209:
3210: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3211:
3212: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3213:
3214: (
3208: );
3209:
3210: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3211:
3212: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3213:
3214: (
3215:
3216: l_api_name,
3216: l_api_name,
3217:
3218: G_PKG_NAME,
3219:
3220: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3221:
3222: x_msg_count,
3223:
3224: x_msg_data,
3228: );
3229:
3230: WHEN OTHERS THEN
3231:
3232: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3233:
3234: (
3235:
3236: l_api_name,
3258: PROCEDURE insert_row(
3259:
3260: p_api_version IN NUMBER,
3261:
3262: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3263:
3264: x_return_status OUT NOCOPY VARCHAR2,
3265:
3266: x_msg_count OUT NOCOPY NUMBER,
3270: p_drav_tbl IN drav_tbl_type,
3271:
3272: x_drav_tbl OUT NOCOPY drav_tbl_type,
3273:
3274: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
3275:
3276:
3277:
3278: l_api_version CONSTANT NUMBER := 1;
3282: i NUMBER := 0;
3283:
3284: BEGIN
3285:
3286: OKL_API.init_msg_list(p_init_msg_list);
3287:
3288: -- Make sure PL/SQL table has records in it before passing
3289:
3290: IF (p_drav_tbl.COUNT > 0) THEN
3294: LOOP
3295:
3296: DECLARE
3297:
3298: l_error_rec OKL_API.ERROR_REC_TYPE;
3299:
3300: BEGIN
3301:
3302: l_error_rec.api_name := l_api_name;
3308: insert_row (
3309:
3310: p_api_version => p_api_version,
3311:
3312: p_init_msg_list => OKL_API.G_FALSE,
3313:
3314: x_return_status => l_error_rec.error_type,
3315:
3316: x_msg_count => l_error_rec.msg_count,
3320: p_drav_rec => p_drav_tbl(i),
3321:
3322: x_drav_rec => x_drav_tbl(i));
3323:
3324: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
3325:
3326: l_error_rec.sqlcode := SQLCODE;
3327:
3328: load_error_tbl(l_error_rec, px_error_tbl);
3336: END IF;
3337:
3338: EXCEPTION
3339:
3340: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3341:
3342: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3343:
3344: l_error_rec.sqlcode := SQLCODE;
3338: EXCEPTION
3339:
3340: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3341:
3342: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
3343:
3344: l_error_rec.sqlcode := SQLCODE;
3345:
3346: load_error_tbl(l_error_rec, px_error_tbl);
3344: l_error_rec.sqlcode := SQLCODE;
3345:
3346: load_error_tbl(l_error_rec, px_error_tbl);
3347:
3348: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3349:
3350: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3351:
3352: l_error_rec.sqlcode := SQLCODE;
3346: load_error_tbl(l_error_rec, px_error_tbl);
3347:
3348: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3349:
3350: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
3351:
3352: l_error_rec.sqlcode := SQLCODE;
3353:
3354: load_error_tbl(l_error_rec, px_error_tbl);
3376: -- and return it.
3377:
3378: x_return_status := find_highest_exception(px_error_tbl);
3379:
3380: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3381:
3382: EXCEPTION
3383:
3384: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3380: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3381:
3382: EXCEPTION
3383:
3384: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3385:
3386: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3387:
3388: (
3382: EXCEPTION
3383:
3384: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3385:
3386: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3387:
3388: (
3389:
3390: l_api_name,
3390: l_api_name,
3391:
3392: G_PKG_NAME,
3393:
3394: 'OKL_API.G_RET_STS_ERROR',
3395:
3396: x_msg_count,
3397:
3398: x_msg_data,
3400: '_PVT'
3401:
3402: );
3403:
3404: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3405:
3406: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3407:
3408: (
3402: );
3403:
3404: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3405:
3406: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3407:
3408: (
3409:
3410: l_api_name,
3410: l_api_name,
3411:
3412: G_PKG_NAME,
3413:
3414: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3415:
3416: x_msg_count,
3417:
3418: x_msg_data,
3422: );
3423:
3424: WHEN OTHERS THEN
3425:
3426: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3427:
3428: (
3429:
3430: l_api_name,
3454: PROCEDURE insert_row(
3455:
3456: p_api_version IN NUMBER,
3457:
3458: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3459:
3460: x_return_status OUT NOCOPY VARCHAR2,
3461:
3462: x_msg_count OUT NOCOPY NUMBER,
3472: l_api_version CONSTANT NUMBER := 1;
3473:
3474: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3475:
3476: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3477:
3478: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3479:
3480: BEGIN
3474: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_insert_row';
3475:
3476: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3477:
3478: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3479:
3480: BEGIN
3481:
3482: OKL_API.init_msg_list(p_init_msg_list);
3478: l_error_tbl OKL_API.ERROR_TBL_TYPE;
3479:
3480: BEGIN
3481:
3482: OKL_API.init_msg_list(p_init_msg_list);
3483:
3484: -- Make sure PL/SQL table has records in it before passing
3485:
3486: IF (p_drav_tbl.COUNT > 0) THEN
3488: insert_row (
3489:
3490: p_api_version => p_api_version,
3491:
3492: p_init_msg_list => OKL_API.G_FALSE,
3493:
3494: x_return_status => x_return_status,
3495:
3496: x_msg_count => x_msg_count,
3504: px_error_tbl => l_error_tbl);
3505:
3506: END IF;
3507:
3508: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3509:
3510: EXCEPTION
3511:
3512: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3508: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3509:
3510: EXCEPTION
3511:
3512: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3513:
3514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3515:
3516: (
3510: EXCEPTION
3511:
3512: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3513:
3514: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3515:
3516: (
3517:
3518: l_api_name,
3518: l_api_name,
3519:
3520: G_PKG_NAME,
3521:
3522: 'OKL_API.G_RET_STS_ERROR',
3523:
3524: x_msg_count,
3525:
3526: x_msg_data,
3528: '_PVT'
3529:
3530: );
3531:
3532: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3533:
3534: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3535:
3536: (
3530: );
3531:
3532: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3533:
3534: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3535:
3536: (
3537:
3538: l_api_name,
3538: l_api_name,
3539:
3540: G_PKG_NAME,
3541:
3542: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3543:
3544: x_msg_count,
3545:
3546: x_msg_data,
3550: );
3551:
3552: WHEN OTHERS THEN
3553:
3554: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3555:
3556: (
3557:
3558: l_api_name,
3586: -----------------------------------
3587:
3588: PROCEDURE lock_row(
3589:
3590: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3591:
3592: x_return_status OUT NOCOPY VARCHAR2,
3593:
3594: x_msg_count OUT NOCOPY NUMBER,
3628: l_api_version CONSTANT NUMBER := 1;
3629:
3630: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
3631:
3632: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3633:
3634: l_object_version_number OKL_DISB_RULES_B.OBJECT_VERSION_NUMBER%TYPE;
3635:
3636: lc_object_version_number OKL_DISB_RULES_B.OBJECT_VERSION_NUMBER%TYPE;
3640: lc_row_notfound BOOLEAN := FALSE;
3641:
3642: BEGIN
3643:
3644: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3645:
3646: p_init_msg_list,
3647:
3648: '_PVT',
3648: '_PVT',
3649:
3650: x_return_status);
3651:
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653:
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655:
3656: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3650: x_return_status);
3651:
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653:
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655:
3656: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3657:
3658: RAISE OKL_API.G_EXCEPTION_ERROR;
3652: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3653:
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655:
3656: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3657:
3658: RAISE OKL_API.G_EXCEPTION_ERROR;
3659:
3660: END IF;
3654: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3655:
3656: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3657:
3658: RAISE OKL_API.G_EXCEPTION_ERROR;
3659:
3660: END IF;
3661:
3662: BEGIN
3678: CLOSE lock_csr;
3679:
3680: END IF;
3681:
3682: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3683:
3684: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3685:
3686: END;
3700: END IF;
3701:
3702: IF (lc_row_notfound) THEN
3703:
3704: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3705:
3706: RAISE OKL_API.G_EXCEPTION_ERROR;
3707:
3708: ELSIF lc_object_version_number > p_dra_rec.object_version_number THEN
3702: IF (lc_row_notfound) THEN
3703:
3704: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3705:
3706: RAISE OKL_API.G_EXCEPTION_ERROR;
3707:
3708: ELSIF lc_object_version_number > p_dra_rec.object_version_number THEN
3709:
3710: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3706: RAISE OKL_API.G_EXCEPTION_ERROR;
3707:
3708: ELSIF lc_object_version_number > p_dra_rec.object_version_number THEN
3709:
3710: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711:
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713:
3714: ELSIF lc_object_version_number <> p_dra_rec.object_version_number THEN
3708: ELSIF lc_object_version_number > p_dra_rec.object_version_number THEN
3709:
3710: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3711:
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713:
3714: ELSIF lc_object_version_number <> p_dra_rec.object_version_number THEN
3715:
3716: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3712: RAISE OKL_API.G_EXCEPTION_ERROR;
3713:
3714: ELSIF lc_object_version_number <> p_dra_rec.object_version_number THEN
3715:
3716: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3717:
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719:
3720: ELSIF lc_object_version_number = -1 THEN
3714: ELSIF lc_object_version_number <> p_dra_rec.object_version_number THEN
3715:
3716: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_CHANGED);
3717:
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719:
3720: ELSIF lc_object_version_number = -1 THEN
3721:
3722: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3718: RAISE OKL_API.G_EXCEPTION_ERROR;
3719:
3720: ELSIF lc_object_version_number = -1 THEN
3721:
3722: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3723:
3724: RAISE OKL_API.G_EXCEPTION_ERROR;
3725:
3726: END IF;
3720: ELSIF lc_object_version_number = -1 THEN
3721:
3722: OKL_API.set_message(G_APP_NAME,G_RECORD_LOGICALLY_DELETED);
3723:
3724: RAISE OKL_API.G_EXCEPTION_ERROR;
3725:
3726: END IF;
3727:
3728: x_return_status := l_return_status;
3726: END IF;
3727:
3728: x_return_status := l_return_status;
3729:
3730: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3731:
3732: EXCEPTION
3733:
3734: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3730: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3731:
3732: EXCEPTION
3733:
3734: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3735:
3736: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3737:
3738: (
3732: EXCEPTION
3733:
3734: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3735:
3736: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3737:
3738: (
3739:
3740: l_api_name,
3740: l_api_name,
3741:
3742: G_PKG_NAME,
3743:
3744: 'OKL_API.G_RET_STS_ERROR',
3745:
3746: x_msg_count,
3747:
3748: x_msg_data,
3750: '_PVT'
3751:
3752: );
3753:
3754: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3755:
3756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3757:
3758: (
3752: );
3753:
3754: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3755:
3756: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3757:
3758: (
3759:
3760: l_api_name,
3760: l_api_name,
3761:
3762: G_PKG_NAME,
3763:
3764: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3765:
3766: x_msg_count,
3767:
3768: x_msg_data,
3772: );
3773:
3774: WHEN OTHERS THEN
3775:
3776: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3777:
3778: (
3779:
3780: l_api_name,
3800: ------------------------------------
3801:
3802: PROCEDURE lock_row(
3803:
3804: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3805:
3806: x_return_status OUT NOCOPY VARCHAR2,
3807:
3808: x_msg_count OUT NOCOPY NUMBER,
3832: l_api_version CONSTANT NUMBER := 1;
3833:
3834: l_api_name CONSTANT VARCHAR2(30) := 'TL_lock_row';
3835:
3836: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3837:
3838: l_lock_var lock_csr%ROWTYPE;
3839:
3840: l_row_notfound BOOLEAN := FALSE;
3842: lc_row_notfound BOOLEAN := FALSE;
3843:
3844: BEGIN
3845:
3846: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
3847:
3848: p_init_msg_list,
3849:
3850: '_PVT',
3850: '_PVT',
3851:
3852: x_return_status);
3853:
3854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3855:
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857:
3858: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3852: x_return_status);
3853:
3854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3855:
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857:
3858: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859:
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3854: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
3855:
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857:
3858: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859:
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3861:
3862: END IF;
3856: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
3857:
3858: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
3859:
3860: RAISE OKL_API.G_EXCEPTION_ERROR;
3861:
3862: END IF;
3863:
3864: BEGIN
3880: CLOSE lock_csr;
3881:
3882: END IF;
3883:
3884: OKL_API.set_message(G_FND_APP,G_FORM_UNABLE_TO_RESERVE_REC);
3885:
3886: RAISE APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION;
3887:
3888: END;
3890:
3891:
3892: IF ( l_row_notfound ) THEN
3893:
3894: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3895:
3896: RAISE OKL_API.G_EXCEPTION_ERROR;
3897:
3898: END IF;
3892: IF ( l_row_notfound ) THEN
3893:
3894: OKL_API.set_message(G_FND_APP,G_FORM_RECORD_DELETED);
3895:
3896: RAISE OKL_API.G_EXCEPTION_ERROR;
3897:
3898: END IF;
3899:
3900: x_return_status := l_return_status;
3898: END IF;
3899:
3900: x_return_status := l_return_status;
3901:
3902: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3903:
3904: EXCEPTION
3905:
3906: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3902: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
3903:
3904: EXCEPTION
3905:
3906: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3907:
3908: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3909:
3910: (
3904: EXCEPTION
3905:
3906: WHEN OKL_API.G_EXCEPTION_ERROR THEN
3907:
3908: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3909:
3910: (
3911:
3912: l_api_name,
3912: l_api_name,
3913:
3914: G_PKG_NAME,
3915:
3916: 'OKL_API.G_RET_STS_ERROR',
3917:
3918: x_msg_count,
3919:
3920: x_msg_data,
3922: '_PVT'
3923:
3924: );
3925:
3926: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3927:
3928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3929:
3930: (
3924: );
3925:
3926: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3927:
3928: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3929:
3930: (
3931:
3932: l_api_name,
3932: l_api_name,
3933:
3934: G_PKG_NAME,
3935:
3936: 'OKL_API.G_RET_STS_UNEXP_ERROR',
3937:
3938: x_msg_count,
3939:
3940: x_msg_data,
3944: );
3945:
3946: WHEN OTHERS THEN
3947:
3948: x_return_status := OKL_API.HANDLE_EXCEPTIONS
3949:
3950: (
3951:
3952: l_api_name,
3974: PROCEDURE lock_row(
3975:
3976: p_api_version IN NUMBER,
3977:
3978: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
3979:
3980: x_return_status OUT NOCOPY VARCHAR2,
3981:
3982: x_msg_count OUT NOCOPY NUMBER,
3990: l_api_version CONSTANT NUMBER := 1;
3991:
3992: l_api_name CONSTANT VARCHAR2(30) := 'V_lock_row';
3993:
3994: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
3995:
3996: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
3997:
3998: l_dra_rec dra_rec_type;
3998: l_dra_rec dra_rec_type;
3999:
4000: BEGIN
4001:
4002: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4003:
4004: G_PKG_NAME,
4005:
4006: p_init_msg_list,
4012: '_PVT',
4013:
4014: x_return_status);
4015:
4016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4017:
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019:
4020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4014: x_return_status);
4015:
4016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4017:
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019:
4020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021:
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4016: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4017:
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019:
4020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021:
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4023:
4024: END IF;
4018: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4019:
4020: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4021:
4022: RAISE OKL_API.G_EXCEPTION_ERROR;
4023:
4024: END IF;
4025:
4026: -----------------------------------------
4052: l_okl_disb_rules_tl_rec
4053:
4054: );
4055:
4056: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4057:
4058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4059:
4060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4054: );
4055:
4056: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4057:
4058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4059:
4060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4061:
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4056: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4057:
4058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4059:
4060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4061:
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4063:
4064: END IF;
4058: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4059:
4060: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4061:
4062: RAISE OKL_API.G_EXCEPTION_ERROR;
4063:
4064: END IF;
4065:
4066: lock_row(
4076: l_dra_rec
4077:
4078: );
4079:
4080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081:
4082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083:
4084: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4078: );
4079:
4080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081:
4082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083:
4084: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4085:
4086: RAISE OKL_API.G_EXCEPTION_ERROR;
4080: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4081:
4082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083:
4084: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4085:
4086: RAISE OKL_API.G_EXCEPTION_ERROR;
4087:
4088: END IF;
4082: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4083:
4084: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4085:
4086: RAISE OKL_API.G_EXCEPTION_ERROR;
4087:
4088: END IF;
4089:
4090: x_return_status := l_return_status;
4088: END IF;
4089:
4090: x_return_status := l_return_status;
4091:
4092: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4093:
4094: EXCEPTION
4095:
4096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4092: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4093:
4094: EXCEPTION
4095:
4096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4097:
4098: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4099:
4100: (
4094: EXCEPTION
4095:
4096: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4097:
4098: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4099:
4100: (
4101:
4102: l_api_name,
4102: l_api_name,
4103:
4104: G_PKG_NAME,
4105:
4106: 'OKL_API.G_RET_STS_ERROR',
4107:
4108: x_msg_count,
4109:
4110: x_msg_data,
4112: '_PVT'
4113:
4114: );
4115:
4116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4117:
4118: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4119:
4120: (
4114: );
4115:
4116: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4117:
4118: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4119:
4120: (
4121:
4122: l_api_name,
4122: l_api_name,
4123:
4124: G_PKG_NAME,
4125:
4126: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4127:
4128: x_msg_count,
4129:
4130: x_msg_data,
4134: );
4135:
4136: WHEN OTHERS THEN
4137:
4138: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4139:
4140: (
4141:
4142: l_api_name,
4164: PROCEDURE lock_row(
4165:
4166: p_api_version IN NUMBER,
4167:
4168: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4169:
4170: x_return_status OUT NOCOPY VARCHAR2,
4171:
4172: x_msg_count OUT NOCOPY NUMBER,
4174: x_msg_data OUT NOCOPY VARCHAR2,
4175:
4176: p_drav_tbl IN drav_tbl_type,
4177:
4178: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
4179:
4180:
4181:
4182: l_api_version CONSTANT NUMBER := 1;
4186: i NUMBER := 0;
4187:
4188: BEGIN
4189:
4190: OKL_API.init_msg_list(p_init_msg_list);
4191:
4192: -- Make sure PL/SQL table has recrods in it before passing
4193:
4194: IF (p_drav_tbl.COUNT > 0) THEN
4198: LOOP
4199:
4200: DECLARE
4201:
4202: l_error_rec OKL_API.ERROR_REC_TYPE;
4203:
4204: BEGIN
4205:
4206: l_error_rec.api_name := l_api_name;
4212: lock_row(
4213:
4214: p_api_version => p_api_version,
4215:
4216: p_init_msg_list => OKL_API.G_FALSE,
4217:
4218: x_return_status => l_error_rec.error_type,
4219:
4220: x_msg_count => l_error_rec.msg_count,
4222: x_msg_data => l_error_rec.msg_data,
4223:
4224: p_drav_rec => p_drav_tbl(i));
4225:
4226: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
4227:
4228: l_error_rec.sqlcode := SQLCODE;
4229:
4230: load_error_tbl(l_error_rec, px_error_tbl);
4238: END IF;
4239:
4240: EXCEPTION
4241:
4242: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4243:
4244: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4245:
4246: l_error_rec.sqlcode := SQLCODE;
4240: EXCEPTION
4241:
4242: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4243:
4244: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
4245:
4246: l_error_rec.sqlcode := SQLCODE;
4247:
4248: load_error_tbl(l_error_rec, px_error_tbl);
4246: l_error_rec.sqlcode := SQLCODE;
4247:
4248: load_error_tbl(l_error_rec, px_error_tbl);
4249:
4250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4251:
4252: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4253:
4254: l_error_rec.sqlcode := SQLCODE;
4248: load_error_tbl(l_error_rec, px_error_tbl);
4249:
4250: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4251:
4252: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
4253:
4254: l_error_rec.sqlcode := SQLCODE;
4255:
4256: load_error_tbl(l_error_rec, px_error_tbl);
4278: -- and return it.
4279:
4280: x_return_status := find_highest_exception(px_error_tbl);
4281:
4282: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4283:
4284: EXCEPTION
4285:
4286: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4282: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4283:
4284: EXCEPTION
4285:
4286: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4287:
4288: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4289:
4290: (
4284: EXCEPTION
4285:
4286: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4287:
4288: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4289:
4290: (
4291:
4292: l_api_name,
4292: l_api_name,
4293:
4294: G_PKG_NAME,
4295:
4296: 'OKL_API.G_RET_STS_ERROR',
4297:
4298: x_msg_count,
4299:
4300: x_msg_data,
4302: '_PVT'
4303:
4304: );
4305:
4306: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4307:
4308: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4309:
4310: (
4304: );
4305:
4306: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4307:
4308: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4309:
4310: (
4311:
4312: l_api_name,
4312: l_api_name,
4313:
4314: G_PKG_NAME,
4315:
4316: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4317:
4318: x_msg_count,
4319:
4320: x_msg_data,
4324: );
4325:
4326: WHEN OTHERS THEN
4327:
4328: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4329:
4330: (
4331:
4332: l_api_name,
4354: PROCEDURE lock_row(
4355:
4356: p_api_version IN NUMBER,
4357:
4358: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4359:
4360: x_return_status OUT NOCOPY VARCHAR2,
4361:
4362: x_msg_count OUT NOCOPY NUMBER,
4370: l_api_version CONSTANT NUMBER := 1;
4371:
4372: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
4373:
4374: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4375:
4376: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4377:
4378: BEGIN
4372: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_lock_row';
4373:
4374: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4375:
4376: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4377:
4378: BEGIN
4379:
4380: OKL_API.init_msg_list(p_init_msg_list);
4376: l_error_tbl OKL_API.ERROR_TBL_TYPE;
4377:
4378: BEGIN
4379:
4380: OKL_API.init_msg_list(p_init_msg_list);
4381:
4382: -- Make sure PL/SQL table has recrods in it before passing
4383:
4384: IF (p_drav_tbl.COUNT > 0) THEN
4386: lock_row(
4387:
4388: p_api_version => p_api_version,
4389:
4390: p_init_msg_list => OKL_API.G_FALSE,
4391:
4392: x_return_status => x_return_status,
4393:
4394: x_msg_count => x_msg_count,
4400: px_error_tbl => l_error_tbl);
4401:
4402: END IF;
4403:
4404: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4405:
4406: EXCEPTION
4407:
4408: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4404: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4405:
4406: EXCEPTION
4407:
4408: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4409:
4410: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4411:
4412: (
4406: EXCEPTION
4407:
4408: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4409:
4410: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4411:
4412: (
4413:
4414: l_api_name,
4414: l_api_name,
4415:
4416: G_PKG_NAME,
4417:
4418: 'OKL_API.G_RET_STS_ERROR',
4419:
4420: x_msg_count,
4421:
4422: x_msg_data,
4424: '_PVT'
4425:
4426: );
4427:
4428: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4429:
4430: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4431:
4432: (
4426: );
4427:
4428: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4429:
4430: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4431:
4432: (
4433:
4434: l_api_name,
4434: l_api_name,
4435:
4436: G_PKG_NAME,
4437:
4438: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4439:
4440: x_msg_count,
4441:
4442: x_msg_data,
4446: );
4447:
4448: WHEN OTHERS THEN
4449:
4450: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4451:
4452: (
4453:
4454: l_api_name,
4480: -------------------------------------
4481:
4482: PROCEDURE update_row(
4483:
4484: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4485: x_return_status OUT NOCOPY VARCHAR2,
4486: x_msg_count OUT NOCOPY NUMBER,
4487: x_msg_data OUT NOCOPY VARCHAR2,
4488: p_dra_rec IN dra_rec_type,
4491:
4492:
4493: l_api_version CONSTANT NUMBER := 1;
4494: l_api_name CONSTANT VARCHAR2(30) := 'B_update_row';
4495: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4496: l_dra_rec dra_rec_type := p_dra_rec;
4497: l_def_dra_rec dra_rec_type;
4498: l_row_notfound BOOLEAN := TRUE;
4499:
4514: l_dra_rec dra_rec_type;
4515:
4516: l_row_notfound BOOLEAN := TRUE;
4517:
4518: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4519:
4520: BEGIN
4521:
4522: x_dra_rec := p_dra_rec;
4524: -- Get current database values
4525:
4526: l_dra_rec := get_rec(p_dra_rec, l_return_status);
4527:
4528: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
4529:
4530: IF x_dra_rec.disb_rule_id IS NULL THEN
4531:
4532: x_dra_rec.disb_rule_id := l_dra_rec.disb_rule_id;
4762: x_dra_rec OUT NOCOPY dra_rec_type
4763:
4764: ) RETURN VARCHAR2 IS
4765:
4766: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
4767:
4768: BEGIN
4769:
4770: x_dra_rec := p_dra_rec;
4779:
4780: --g_debug_proc('In DRA l_def_dra_rec.day_of_month ' || p_dra_rec.day_of_month);
4781: --g_debug_proc('In DRA l_def_dra_rec.scheduled_month ' || p_dra_rec.scheduled_month);
4782:
4783: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
4784:
4785: p_init_msg_list,
4786:
4787: '_PVT',
4787: '_PVT',
4788:
4789: x_return_status);
4790:
4791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4792:
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794:
4795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4789: x_return_status);
4790:
4791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4792:
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794:
4795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4796:
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4791: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4792:
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794:
4795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4796:
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4798:
4799: END IF;
4793: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4794:
4795: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4796:
4797: RAISE OKL_API.G_EXCEPTION_ERROR;
4798:
4799: END IF;
4800:
4801: --- Setting item attributes
4807: l_dra_rec); -- OUT
4808:
4809: --- If any errors happen abort API
4810:
4811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812:
4813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814:
4815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4809: --- If any errors happen abort API
4810:
4811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812:
4813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814:
4815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816:
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4811: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4812:
4813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814:
4815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816:
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818:
4819: END IF;
4813: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4814:
4815: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4816:
4817: RAISE OKL_API.G_EXCEPTION_ERROR;
4818:
4819: END IF;
4820:
4821: l_return_status := populate_new_record(l_dra_rec, l_def_dra_rec);
4819: END IF;
4820:
4821: l_return_status := populate_new_record(l_dra_rec, l_def_dra_rec);
4822:
4823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4824:
4825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4826:
4827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4821: l_return_status := populate_new_record(l_dra_rec, l_def_dra_rec);
4822:
4823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4824:
4825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4826:
4827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4828:
4829: RAISE OKL_API.G_EXCEPTION_ERROR;
4823: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
4824:
4825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4826:
4827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4828:
4829: RAISE OKL_API.G_EXCEPTION_ERROR;
4830:
4831: END IF;
4825: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
4826:
4827: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
4828:
4829: RAISE OKL_API.G_EXCEPTION_ERROR;
4830:
4831: END IF;
4832:
4833: --g_debug_proc('In DRA l_def_dra_rec.day_of_month ' || l_def_dra_rec.day_of_month);
4912: x_dra_rec := l_dra_rec;
4913:
4914: x_return_status := l_return_status;
4915:
4916: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4917:
4918: EXCEPTION
4919:
4920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4916: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
4917:
4918: EXCEPTION
4919:
4920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4921:
4922: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4923:
4924: (
4918: EXCEPTION
4919:
4920: WHEN OKL_API.G_EXCEPTION_ERROR THEN
4921:
4922: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4923:
4924: (
4925:
4926: l_api_name,
4926: l_api_name,
4927:
4928: G_PKG_NAME,
4929:
4930: 'OKL_API.G_RET_STS_ERROR',
4931:
4932: x_msg_count,
4933:
4934: x_msg_data,
4936: '_PVT'
4937:
4938: );
4939:
4940: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4941:
4942: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4943:
4944: (
4938: );
4939:
4940: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
4941:
4942: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4943:
4944: (
4945:
4946: l_api_name,
4946: l_api_name,
4947:
4948: G_PKG_NAME,
4949:
4950: 'OKL_API.G_RET_STS_UNEXP_ERROR',
4951:
4952: x_msg_count,
4953:
4954: x_msg_data,
4958: );
4959:
4960: WHEN OTHERS THEN
4961:
4962: x_return_status := OKL_API.HANDLE_EXCEPTIONS
4963:
4964: (
4965:
4966: l_api_name,
4986: --------------------------------------
4987:
4988: PROCEDURE update_row(
4989:
4990: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
4991:
4992: x_return_status OUT NOCOPY VARCHAR2,
4993:
4994: x_msg_count OUT NOCOPY NUMBER,
5004: l_api_version CONSTANT NUMBER := 1;
5005:
5006: l_api_name CONSTANT VARCHAR2(30) := 'TL_update_row';
5007:
5008: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5009:
5010: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
5011:
5012: l_def_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5030: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
5031:
5032: l_row_notfound BOOLEAN := TRUE;
5033:
5034: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5035:
5036: BEGIN
5037:
5038: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5040: -- Get current database values
5041:
5042: l_okl_disb_rules_tl_rec := get_rec(p_okl_disb_rules_tl_rec, l_return_status);
5043:
5044: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
5045:
5046: IF x_okl_disb_rules_tl_rec.disb_rule_id IS NULL THEN
5047:
5048: x_okl_disb_rules_tl_rec.disb_rule_id := l_okl_disb_rules_tl_rec.disb_rule_id;
5121:
5122: x_okl_disb_rules_tl_rec OUT NOCOPY okl_disb_rules_tl_rec_type
5123:
5124: ) RETURN VARCHAR2 IS
5125: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5126: BEGIN
5127: x_okl_disb_rules_tl_rec := p_okl_disb_rules_tl_rec;
5128: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5129: x_okl_disb_rules_tl_rec.LANGUAGE := USERENV('LANG');
5131: END Set_Attributes;
5132:
5133: BEGIN
5134:
5135: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5136:
5137: p_init_msg_list,
5138:
5139: '_PVT',
5139: '_PVT',
5140:
5141: x_return_status);
5142:
5143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5144:
5145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146:
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5141: x_return_status);
5142:
5143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5144:
5145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146:
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148:
5149: RAISE OKL_API.G_EXCEPTION_ERROR;
5143: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5144:
5145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146:
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148:
5149: RAISE OKL_API.G_EXCEPTION_ERROR;
5150:
5151: END IF;
5145: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5146:
5147: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5148:
5149: RAISE OKL_API.G_EXCEPTION_ERROR;
5150:
5151: END IF;
5152:
5153: --- Setting item attributes
5159: l_okl_disb_rules_tl_rec); -- OUT
5160:
5161: --- If any errors happen abort API
5162:
5163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164:
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166:
5167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5161: --- If any errors happen abort API
5162:
5163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164:
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166:
5167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5168:
5169: RAISE OKL_API.G_EXCEPTION_ERROR;
5163: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5164:
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166:
5167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5168:
5169: RAISE OKL_API.G_EXCEPTION_ERROR;
5170:
5171: END IF;
5165: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5166:
5167: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5168:
5169: RAISE OKL_API.G_EXCEPTION_ERROR;
5170:
5171: END IF;
5172:
5173: l_return_status := populate_new_record(l_okl_disb_rules_tl_rec, l_def_okl_disb_rules_tl_rec);
5171: END IF;
5172:
5173: l_return_status := populate_new_record(l_okl_disb_rules_tl_rec, l_def_okl_disb_rules_tl_rec);
5174:
5175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5176:
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178:
5179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5173: l_return_status := populate_new_record(l_okl_disb_rules_tl_rec, l_def_okl_disb_rules_tl_rec);
5174:
5175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5176:
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178:
5179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180:
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5175: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5176:
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178:
5179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180:
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182:
5183: END IF;
5177: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5178:
5179: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5180:
5181: RAISE OKL_API.G_EXCEPTION_ERROR;
5182:
5183: END IF;
5184:
5185: UPDATE OKL_DISB_RULES_TL
5215: x_okl_disb_rules_tl_rec := l_okl_disb_rules_tl_rec;
5216:
5217: x_return_status := l_return_status;
5218:
5219: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5220:
5221: EXCEPTION
5222:
5223: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5219: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5220:
5221: EXCEPTION
5222:
5223: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5224:
5225: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5226:
5227: (
5221: EXCEPTION
5222:
5223: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5224:
5225: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5226:
5227: (
5228:
5229: l_api_name,
5229: l_api_name,
5230:
5231: G_PKG_NAME,
5232:
5233: 'OKL_API.G_RET_STS_ERROR',
5234:
5235: x_msg_count,
5236:
5237: x_msg_data,
5239: '_PVT'
5240:
5241: );
5242:
5243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5244:
5245: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5246:
5247: (
5241: );
5242:
5243: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5244:
5245: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5246:
5247: (
5248:
5249: l_api_name,
5249: l_api_name,
5250:
5251: G_PKG_NAME,
5252:
5253: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5254:
5255: x_msg_count,
5256:
5257: x_msg_data,
5261: );
5262:
5263: WHEN OTHERS THEN
5264:
5265: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5266:
5267: (
5268:
5269: l_api_name,
5289: -------------------------------------
5290:
5291: PROCEDURE update_row(
5292: p_api_version IN NUMBER,
5293: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5294: x_return_status OUT NOCOPY VARCHAR2,
5295: x_msg_count OUT NOCOPY NUMBER,
5296: x_msg_data OUT NOCOPY VARCHAR2,
5297: p_drav_rec IN drav_rec_type,
5298: x_drav_rec OUT NOCOPY drav_rec_type) IS
5299:
5300: l_api_version CONSTANT NUMBER := 1;
5301: l_api_name CONSTANT VARCHAR2(30) := 'V_update_row';
5302: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5303: l_drav_rec drav_rec_type := p_drav_rec;
5304: l_def_drav_rec drav_rec_type;
5305: l_db_drav_rec drav_rec_type;
5306: l_dra_rec dra_rec_type;
5349: ) RETURN VARCHAR2 IS
5350:
5351: l_row_notfound BOOLEAN := TRUE;
5352:
5353: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5354:
5355: BEGIN
5356:
5357: x_drav_rec := p_drav_rec;
5363: -- so it may be verified through LOCK_ROW.
5364:
5365: l_db_drav_rec := get_rec(p_drav_rec, l_return_status);
5366:
5367: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
5368:
5369: IF x_drav_rec.disb_rule_id IS NULL THEN
5370:
5371: x_drav_rec.disb_rule_id := l_db_drav_rec.disb_rule_id;
5607: x_drav_rec OUT NOCOPY drav_rec_type
5608:
5609: ) RETURN VARCHAR2 IS
5610:
5611: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
5612:
5613: BEGIN
5614:
5615: x_drav_rec := p_drav_rec;
5620:
5621: BEGIN
5622: --g_debug_proc('In TAPI DRA ' || p_drav_rec.scheduled_month);
5623:
5624: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
5625: G_PKG_NAME,
5626: p_init_msg_list,
5627: l_api_version,
5628: p_api_version,
5628: p_api_version,
5629: '_PVT',
5630: x_return_status);
5631:
5632: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5629: '_PVT',
5630: x_return_status);
5631:
5632: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5637:
5630: x_return_status);
5631:
5632: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5637:
5638: --- Setting item attributes
5631:
5632: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5633: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5634: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5635: RAISE OKL_API.G_EXCEPTION_ERROR;
5636: END IF;
5637:
5638: --- Setting item attributes
5639:
5644: ----g_debug_proc('SEt Attri');
5645:
5646: --- If any errors happen abort API
5647:
5648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5645:
5646: --- If any errors happen abort API
5647:
5648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5653:
5646: --- If any errors happen abort API
5647:
5648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5653:
5654: l_return_status := populate_new_record(l_drav_rec, l_def_drav_rec);
5647:
5648: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5649: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5650: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5651: RAISE OKL_API.G_EXCEPTION_ERROR;
5652: END IF;
5653:
5654: l_return_status := populate_new_record(l_drav_rec, l_def_drav_rec);
5655:
5654: l_return_status := populate_new_record(l_drav_rec, l_def_drav_rec);
5655:
5656: ----g_debug_proc('Populate Record');
5657:
5658: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: RAISE OKL_API.G_EXCEPTION_ERROR;
5662: END IF;
5655:
5656: ----g_debug_proc('Populate Record');
5657:
5658: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: RAISE OKL_API.G_EXCEPTION_ERROR;
5662: END IF;
5663:
5656: ----g_debug_proc('Populate Record');
5657:
5658: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: RAISE OKL_API.G_EXCEPTION_ERROR;
5662: END IF;
5663:
5664: l_def_drav_rec := null_out_defaults(l_def_drav_rec);
5657:
5658: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5659: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5660: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5661: RAISE OKL_API.G_EXCEPTION_ERROR;
5662: END IF;
5663:
5664: l_def_drav_rec := null_out_defaults(l_def_drav_rec);
5665: --g_debug_proc('null defects ' || l_def_drav_rec.scheduled_month);
5673:
5674: --g_debug_proc('validate attri ' || l_return_status);
5675: --- If any errors happen abort API
5676:
5677: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678:
5679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680:
5681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5675: --- If any errors happen abort API
5676:
5677: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678:
5679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680:
5681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682:
5683: RAISE OKL_API.G_EXCEPTION_ERROR;
5677: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5678:
5679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680:
5681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682:
5683: RAISE OKL_API.G_EXCEPTION_ERROR;
5684:
5685: END IF;
5679: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5680:
5681: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5682:
5683: RAISE OKL_API.G_EXCEPTION_ERROR;
5684:
5685: END IF;
5686:
5687: l_return_status := Validate_Record(l_def_drav_rec, l_db_drav_rec);
5686:
5687: l_return_status := Validate_Record(l_def_drav_rec, l_db_drav_rec);
5688: --g_debug_proc('validate rec ' || l_return_status);
5689:
5690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5687: l_return_status := Validate_Record(l_def_drav_rec, l_db_drav_rec);
5688: --g_debug_proc('validate rec ' || l_return_status);
5689:
5690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5695:
5688: --g_debug_proc('validate rec ' || l_return_status);
5689:
5690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5695:
5696:
5689:
5690: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5691: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5692: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5693: RAISE OKL_API.G_EXCEPTION_ERROR;
5694: END IF;
5695:
5696:
5697: --g_debug_proc('Tapi update LOCK DRA');
5704: x_msg_count => x_msg_count,
5705: x_msg_data => x_msg_data,
5706: p_drav_rec => l_db_drav_rec);
5707:
5708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5711: RAISE OKL_API.G_EXCEPTION_ERROR;
5712: END IF;
5705: x_msg_data => x_msg_data,
5706: p_drav_rec => l_db_drav_rec);
5707:
5708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5711: RAISE OKL_API.G_EXCEPTION_ERROR;
5712: END IF;
5713:
5706: p_drav_rec => l_db_drav_rec);
5707:
5708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5711: RAISE OKL_API.G_EXCEPTION_ERROR;
5712: END IF;
5713:
5714:
5707:
5708: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5709: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5710: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5711: RAISE OKL_API.G_EXCEPTION_ERROR;
5712: END IF;
5713:
5714:
5715:
5741: );
5742:
5743: --g_debug_proc('Tapi UpdateDRA ' || l_return_status);
5744:
5745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5746:
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748:
5749: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5743: --g_debug_proc('Tapi UpdateDRA ' || l_return_status);
5744:
5745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5746:
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748:
5749: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5750:
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5745: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5746:
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748:
5749: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5750:
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752:
5753: END IF;
5747: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5748:
5749: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5750:
5751: RAISE OKL_API.G_EXCEPTION_ERROR;
5752:
5753: END IF;
5754:
5755: migrate(lx_dra_rec, l_def_drav_rec);
5769: lx_okl_disb_rules_tl_rec
5770:
5771: );
5772:
5773: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5774:
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776:
5777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5771: );
5772:
5773: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5774:
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776:
5777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5778:
5779: RAISE OKL_API.G_EXCEPTION_ERROR;
5773: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
5774:
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776:
5777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5778:
5779: RAISE OKL_API.G_EXCEPTION_ERROR;
5780:
5781: END IF;
5775: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
5776:
5777: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
5778:
5779: RAISE OKL_API.G_EXCEPTION_ERROR;
5780:
5781: END IF;
5782:
5783: migrate(lx_okl_disb_rules_tl_rec, l_def_drav_rec);
5785: x_drav_rec := l_def_drav_rec;
5786:
5787: x_return_status := l_return_status;
5788:
5789: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5790:
5791: EXCEPTION
5792:
5793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5789: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5790:
5791: EXCEPTION
5792:
5793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5794:
5795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5796:
5797: (
5791: EXCEPTION
5792:
5793: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5794:
5795: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5796:
5797: (
5798:
5799: l_api_name,
5799: l_api_name,
5800:
5801: G_PKG_NAME,
5802:
5803: 'OKL_API.G_RET_STS_ERROR',
5804:
5805: x_msg_count,
5806:
5807: x_msg_data,
5809: '_PVT'
5810:
5811: );
5812:
5813: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5814:
5815: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5816:
5817: (
5811: );
5812:
5813: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5814:
5815: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5816:
5817: (
5818:
5819: l_api_name,
5819: l_api_name,
5820:
5821: G_PKG_NAME,
5822:
5823: 'OKL_API.G_RET_STS_UNEXP_ERROR',
5824:
5825: x_msg_count,
5826:
5827: x_msg_data,
5831: );
5832:
5833: WHEN OTHERS THEN
5834:
5835: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5836:
5837: (
5838:
5839: l_api_name,
5861: PROCEDURE update_row(
5862:
5863: p_api_version IN NUMBER,
5864:
5865: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
5866:
5867: x_return_status OUT NOCOPY VARCHAR2,
5868:
5869: x_msg_count OUT NOCOPY NUMBER,
5873: p_drav_tbl IN drav_tbl_type,
5874:
5875: x_drav_tbl OUT NOCOPY drav_tbl_type,
5876:
5877: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
5878:
5879:
5880:
5881: l_api_version CONSTANT NUMBER := 1;
5885: i NUMBER := 0;
5886:
5887: BEGIN
5888:
5889: OKL_API.init_msg_list(p_init_msg_list);
5890:
5891: -- Make sure PL/SQL table has records in it before passing
5892:
5893: IF (p_drav_tbl.COUNT > 0) THEN
5897: LOOP
5898:
5899: DECLARE
5900:
5901: l_error_rec OKL_API.ERROR_REC_TYPE;
5902:
5903: BEGIN
5904:
5905: l_error_rec.api_name := l_api_name;
5911: update_row (
5912:
5913: p_api_version => p_api_version,
5914:
5915: p_init_msg_list => OKL_API.G_FALSE,
5916:
5917: x_return_status => l_error_rec.error_type,
5918:
5919: x_msg_count => l_error_rec.msg_count,
5923: p_drav_rec => p_drav_tbl(i),
5924:
5925: x_drav_rec => x_drav_tbl(i));
5926:
5927: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
5928:
5929: l_error_rec.sqlcode := SQLCODE;
5930:
5931: load_error_tbl(l_error_rec, px_error_tbl);
5939: END IF;
5940:
5941: EXCEPTION
5942:
5943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5944:
5945: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
5946:
5947: l_error_rec.sqlcode := SQLCODE;
5941: EXCEPTION
5942:
5943: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5944:
5945: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
5946:
5947: l_error_rec.sqlcode := SQLCODE;
5948:
5949: load_error_tbl(l_error_rec, px_error_tbl);
5947: l_error_rec.sqlcode := SQLCODE;
5948:
5949: load_error_tbl(l_error_rec, px_error_tbl);
5950:
5951: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5952:
5953: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
5954:
5955: l_error_rec.sqlcode := SQLCODE;
5949: load_error_tbl(l_error_rec, px_error_tbl);
5950:
5951: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
5952:
5953: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
5954:
5955: l_error_rec.sqlcode := SQLCODE;
5956:
5957: load_error_tbl(l_error_rec, px_error_tbl);
5979: -- and return it.
5980:
5981: x_return_status := find_highest_exception(px_error_tbl);
5982:
5983: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5984:
5985: EXCEPTION
5986:
5987: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5983: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
5984:
5985: EXCEPTION
5986:
5987: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5988:
5989: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5990:
5991: (
5985: EXCEPTION
5986:
5987: WHEN OKL_API.G_EXCEPTION_ERROR THEN
5988:
5989: x_return_status := OKL_API.HANDLE_EXCEPTIONS
5990:
5991: (
5992:
5993: l_api_name,
5993: l_api_name,
5994:
5995: G_PKG_NAME,
5996:
5997: 'OKL_API.G_RET_STS_ERROR',
5998:
5999: x_msg_count,
6000:
6001: x_msg_data,
6003: '_PVT'
6004:
6005: );
6006:
6007: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6008:
6009: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6010:
6011: (
6005: );
6006:
6007: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6008:
6009: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6010:
6011: (
6012:
6013: l_api_name,
6013: l_api_name,
6014:
6015: G_PKG_NAME,
6016:
6017: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6018:
6019: x_msg_count,
6020:
6021: x_msg_data,
6025: );
6026:
6027: WHEN OTHERS THEN
6028:
6029: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6030:
6031: (
6032:
6033: l_api_name,
6057: PROCEDURE update_row(
6058:
6059: p_api_version IN NUMBER,
6060:
6061: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6062:
6063: x_return_status OUT NOCOPY VARCHAR2,
6064:
6065: x_msg_count OUT NOCOPY NUMBER,
6075: l_api_version CONSTANT NUMBER := 1;
6076:
6077: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
6078:
6079: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6080:
6081: l_error_tbl OKL_API.ERROR_TBL_TYPE;
6082:
6083: BEGIN
6077: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_update_row';
6078:
6079: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6080:
6081: l_error_tbl OKL_API.ERROR_TBL_TYPE;
6082:
6083: BEGIN
6084:
6085: OKL_API.init_msg_list(p_init_msg_list);
6081: l_error_tbl OKL_API.ERROR_TBL_TYPE;
6082:
6083: BEGIN
6084:
6085: OKL_API.init_msg_list(p_init_msg_list);
6086:
6087: -- Make sure PL/SQL table has records in it before passing
6088:
6089: IF (p_drav_tbl.COUNT > 0) THEN
6091: update_row (
6092:
6093: p_api_version => p_api_version,
6094:
6095: p_init_msg_list => OKL_API.G_FALSE,
6096:
6097: x_return_status => x_return_status,
6098:
6099: x_msg_count => x_msg_count,
6107: px_error_tbl => l_error_tbl);
6108:
6109: END IF;
6110:
6111: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6112:
6113: EXCEPTION
6114:
6115: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6111: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6112:
6113: EXCEPTION
6114:
6115: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6116:
6117: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6118:
6119: (
6113: EXCEPTION
6114:
6115: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6116:
6117: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6118:
6119: (
6120:
6121: l_api_name,
6121: l_api_name,
6122:
6123: G_PKG_NAME,
6124:
6125: 'OKL_API.G_RET_STS_ERROR',
6126:
6127: x_msg_count,
6128:
6129: x_msg_data,
6131: '_PVT'
6132:
6133: );
6134:
6135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6136:
6137: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6138:
6139: (
6133: );
6134:
6135: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6136:
6137: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6138:
6139: (
6140:
6141: l_api_name,
6141: l_api_name,
6142:
6143: G_PKG_NAME,
6144:
6145: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6146:
6147: x_msg_count,
6148:
6149: x_msg_data,
6153: );
6154:
6155: WHEN OTHERS THEN
6156:
6157: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6158:
6159: (
6160:
6161: l_api_name,
6189: -------------------------------------
6190:
6191: PROCEDURE delete_row(
6192:
6193: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6194:
6195: x_return_status OUT NOCOPY VARCHAR2,
6196:
6197: x_msg_count OUT NOCOPY NUMBER,
6205: l_api_version CONSTANT NUMBER := 1;
6206:
6207: l_api_name CONSTANT VARCHAR2(30) := 'B_delete_row';
6208:
6209: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6210:
6211: l_dra_rec dra_rec_type := p_dra_rec;
6212:
6213: l_row_notfound BOOLEAN := TRUE;
6213: l_row_notfound BOOLEAN := TRUE;
6214:
6215: BEGIN
6216:
6217: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6218:
6219: p_init_msg_list,
6220:
6221: '_PVT',
6221: '_PVT',
6222:
6223: x_return_status);
6224:
6225: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6226:
6227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6228:
6229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6223: x_return_status);
6224:
6225: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6226:
6227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6228:
6229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6230:
6231: RAISE OKL_API.G_EXCEPTION_ERROR;
6225: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6226:
6227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6228:
6229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6230:
6231: RAISE OKL_API.G_EXCEPTION_ERROR;
6232:
6233: END IF;
6227: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6228:
6229: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6230:
6231: RAISE OKL_API.G_EXCEPTION_ERROR;
6232:
6233: END IF;
6234:
6235:
6241:
6242:
6243: x_return_status := l_return_status;
6244:
6245: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6246:
6247: EXCEPTION
6248:
6249: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6245: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6246:
6247: EXCEPTION
6248:
6249: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6250:
6251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6252:
6253: (
6247: EXCEPTION
6248:
6249: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6250:
6251: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6252:
6253: (
6254:
6255: l_api_name,
6255: l_api_name,
6256:
6257: G_PKG_NAME,
6258:
6259: 'OKL_API.G_RET_STS_ERROR',
6260:
6261: x_msg_count,
6262:
6263: x_msg_data,
6265: '_PVT'
6266:
6267: );
6268:
6269: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6270:
6271: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6272:
6273: (
6267: );
6268:
6269: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6270:
6271: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6272:
6273: (
6274:
6275: l_api_name,
6275: l_api_name,
6276:
6277: G_PKG_NAME,
6278:
6279: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6280:
6281: x_msg_count,
6282:
6283: x_msg_data,
6287: );
6288:
6289: WHEN OTHERS THEN
6290:
6291: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6292:
6293: (
6294:
6295: l_api_name,
6315: --------------------------------------
6316:
6317: PROCEDURE delete_row(
6318:
6319: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6320:
6321: x_return_status OUT NOCOPY VARCHAR2,
6322:
6323: x_msg_count OUT NOCOPY NUMBER,
6331: l_api_version CONSTANT NUMBER := 1;
6332:
6333: l_api_name CONSTANT VARCHAR2(30) := 'TL_delete_row';
6334:
6335: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6336:
6337: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type := p_okl_disb_rules_tl_rec;
6338:
6339: l_row_notfound BOOLEAN := TRUE;
6339: l_row_notfound BOOLEAN := TRUE;
6340:
6341: BEGIN
6342:
6343: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6344:
6345: p_init_msg_list,
6346:
6347: '_PVT',
6347: '_PVT',
6348:
6349: x_return_status);
6350:
6351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6352:
6353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354:
6355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6349: x_return_status);
6350:
6351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6352:
6353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354:
6355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6356:
6357: RAISE OKL_API.G_EXCEPTION_ERROR;
6351: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6352:
6353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354:
6355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6356:
6357: RAISE OKL_API.G_EXCEPTION_ERROR;
6358:
6359: END IF;
6353: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6354:
6355: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6356:
6357: RAISE OKL_API.G_EXCEPTION_ERROR;
6358:
6359: END IF;
6360:
6361:
6367:
6368:
6369: x_return_status := l_return_status;
6370:
6371: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6372:
6373: EXCEPTION
6374:
6375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6371: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6372:
6373: EXCEPTION
6374:
6375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6376:
6377: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6378:
6379: (
6373: EXCEPTION
6374:
6375: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6376:
6377: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6378:
6379: (
6380:
6381: l_api_name,
6381: l_api_name,
6382:
6383: G_PKG_NAME,
6384:
6385: 'OKL_API.G_RET_STS_ERROR',
6386:
6387: x_msg_count,
6388:
6389: x_msg_data,
6391: '_PVT'
6392:
6393: );
6394:
6395: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6396:
6397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6398:
6399: (
6393: );
6394:
6395: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6396:
6397: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6398:
6399: (
6400:
6401: l_api_name,
6401: l_api_name,
6402:
6403: G_PKG_NAME,
6404:
6405: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6406:
6407: x_msg_count,
6408:
6409: x_msg_data,
6413: );
6414:
6415: WHEN OTHERS THEN
6416:
6417: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6418:
6419: (
6420:
6421: l_api_name,
6443: PROCEDURE delete_row(
6444:
6445: p_api_version IN NUMBER,
6446:
6447: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6448:
6449: x_return_status OUT NOCOPY VARCHAR2,
6450:
6451: x_msg_count OUT NOCOPY NUMBER,
6459: l_api_version CONSTANT NUMBER := 1;
6460:
6461: l_api_name CONSTANT VARCHAR2(30) := 'V_delete_row';
6462:
6463: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6464:
6465: l_drav_rec drav_rec_type := p_drav_rec;
6466:
6467: l_okl_disb_rules_tl_rec okl_disb_rules_tl_rec_type;
6469: l_dra_rec dra_rec_type;
6470:
6471: BEGIN
6472:
6473: l_return_status := OKL_API.START_ACTIVITY(l_api_name,
6474:
6475: G_PKG_NAME,
6476:
6477: p_init_msg_list,
6483: '_PVT',
6484:
6485: x_return_status);
6486:
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488:
6489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6490:
6491: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6485: x_return_status);
6486:
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488:
6489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6490:
6491: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6492:
6493: RAISE OKL_API.G_EXCEPTION_ERROR;
6487: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6488:
6489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6490:
6491: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6492:
6493: RAISE OKL_API.G_EXCEPTION_ERROR;
6494:
6495: END IF;
6489: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6490:
6491: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6492:
6493: RAISE OKL_API.G_EXCEPTION_ERROR;
6494:
6495: END IF;
6496:
6497: -----------------------------------------
6523: l_okl_disb_rules_tl_rec
6524:
6525: );
6526:
6527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6528:
6529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6530:
6531: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6525: );
6526:
6527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6528:
6529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6530:
6531: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6532:
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6527: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6528:
6529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6530:
6531: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6532:
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534:
6535: END IF;
6529: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6530:
6531: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6532:
6533: RAISE OKL_API.G_EXCEPTION_ERROR;
6534:
6535: END IF;
6536:
6537: delete_row(
6547: l_dra_rec
6548:
6549: );
6550:
6551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6552:
6553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6554:
6555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6549: );
6550:
6551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6552:
6553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6554:
6555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6556:
6557: RAISE OKL_API.G_EXCEPTION_ERROR;
6551: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
6552:
6553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6554:
6555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6556:
6557: RAISE OKL_API.G_EXCEPTION_ERROR;
6558:
6559: END IF;
6553: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
6554:
6555: ELSIF (l_return_status = OKL_API.G_RET_STS_ERROR) THEN
6556:
6557: RAISE OKL_API.G_EXCEPTION_ERROR;
6558:
6559: END IF;
6560:
6561: x_return_status := l_return_status;
6559: END IF;
6560:
6561: x_return_status := l_return_status;
6562:
6563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6564:
6565: EXCEPTION
6566:
6567: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6563: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6564:
6565: EXCEPTION
6566:
6567: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6568:
6569: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6570:
6571: (
6565: EXCEPTION
6566:
6567: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6568:
6569: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6570:
6571: (
6572:
6573: l_api_name,
6573: l_api_name,
6574:
6575: G_PKG_NAME,
6576:
6577: 'OKL_API.G_RET_STS_ERROR',
6578:
6579: x_msg_count,
6580:
6581: x_msg_data,
6583: '_PVT'
6584:
6585: );
6586:
6587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6588:
6589: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6590:
6591: (
6585: );
6586:
6587: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6588:
6589: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6590:
6591: (
6592:
6593: l_api_name,
6593: l_api_name,
6594:
6595: G_PKG_NAME,
6596:
6597: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6598:
6599: x_msg_count,
6600:
6601: x_msg_data,
6605: );
6606:
6607: WHEN OTHERS THEN
6608:
6609: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6610:
6611: (
6612:
6613: l_api_name,
6635: PROCEDURE delete_row(
6636:
6637: p_api_version IN NUMBER,
6638:
6639: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6640:
6641: x_return_status OUT NOCOPY VARCHAR2,
6642:
6643: x_msg_count OUT NOCOPY NUMBER,
6645: x_msg_data OUT NOCOPY VARCHAR2,
6646:
6647: p_drav_tbl IN drav_tbl_type,
6648:
6649: px_error_tbl IN OUT NOCOPY OKL_API.ERROR_TBL_TYPE) IS
6650:
6651:
6652:
6653: l_api_version CONSTANT NUMBER := 1;
6657: i NUMBER := 0;
6658:
6659: BEGIN
6660:
6661: OKL_API.init_msg_list(p_init_msg_list);
6662:
6663: -- Make sure PL/SQL table has records in it before passing
6664:
6665: IF (p_drav_tbl.COUNT > 0) THEN
6669: LOOP
6670:
6671: DECLARE
6672:
6673: l_error_rec OKL_API.ERROR_REC_TYPE;
6674:
6675: BEGIN
6676:
6677: l_error_rec.api_name := l_api_name;
6683: delete_row (
6684:
6685: p_api_version => p_api_version,
6686:
6687: p_init_msg_list => OKL_API.G_FALSE,
6688:
6689: x_return_status => l_error_rec.error_type,
6690:
6691: x_msg_count => l_error_rec.msg_count,
6693: x_msg_data => l_error_rec.msg_data,
6694:
6695: p_drav_rec => p_drav_tbl(i));
6696:
6697: IF (l_error_rec.error_type <> OKL_API.G_RET_STS_SUCCESS) THEN
6698:
6699: l_error_rec.sqlcode := SQLCODE;
6700:
6701: load_error_tbl(l_error_rec, px_error_tbl);
6709: END IF;
6710:
6711: EXCEPTION
6712:
6713: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6714:
6715: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
6716:
6717: l_error_rec.sqlcode := SQLCODE;
6711: EXCEPTION
6712:
6713: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6714:
6715: l_error_rec.error_type := OKL_API.G_RET_STS_ERROR;
6716:
6717: l_error_rec.sqlcode := SQLCODE;
6718:
6719: load_error_tbl(l_error_rec, px_error_tbl);
6717: l_error_rec.sqlcode := SQLCODE;
6718:
6719: load_error_tbl(l_error_rec, px_error_tbl);
6720:
6721: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6722:
6723: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
6724:
6725: l_error_rec.sqlcode := SQLCODE;
6719: load_error_tbl(l_error_rec, px_error_tbl);
6720:
6721: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6722:
6723: l_error_rec.error_type := OKL_API.G_RET_STS_UNEXP_ERROR;
6724:
6725: l_error_rec.sqlcode := SQLCODE;
6726:
6727: load_error_tbl(l_error_rec, px_error_tbl);
6749: -- and return it.
6750:
6751: x_return_status := find_highest_exception(px_error_tbl);
6752:
6753: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6754:
6755: EXCEPTION
6756:
6757: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6753: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6754:
6755: EXCEPTION
6756:
6757: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6758:
6759: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6760:
6761: (
6755: EXCEPTION
6756:
6757: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6758:
6759: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6760:
6761: (
6762:
6763: l_api_name,
6763: l_api_name,
6764:
6765: G_PKG_NAME,
6766:
6767: 'OKL_API.G_RET_STS_ERROR',
6768:
6769: x_msg_count,
6770:
6771: x_msg_data,
6773: '_PVT'
6774:
6775: );
6776:
6777: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6778:
6779: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6780:
6781: (
6775: );
6776:
6777: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6778:
6779: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6780:
6781: (
6782:
6783: l_api_name,
6783: l_api_name,
6784:
6785: G_PKG_NAME,
6786:
6787: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6788:
6789: x_msg_count,
6790:
6791: x_msg_data,
6795: );
6796:
6797: WHEN OTHERS THEN
6798:
6799: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6800:
6801: (
6802:
6803: l_api_name,
6827: PROCEDURE delete_row(
6828:
6829: p_api_version IN NUMBER,
6830:
6831: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
6832:
6833: x_return_status OUT NOCOPY VARCHAR2,
6834:
6835: x_msg_count OUT NOCOPY NUMBER,
6843: l_api_version CONSTANT NUMBER := 1;
6844:
6845: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
6846:
6847: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6848:
6849: l_error_tbl OKL_API.ERROR_TBL_TYPE;
6850:
6851: BEGIN
6845: l_api_name CONSTANT VARCHAR2(30) := 'V_tbl_delete_row';
6846:
6847: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
6848:
6849: l_error_tbl OKL_API.ERROR_TBL_TYPE;
6850:
6851: BEGIN
6852:
6853: OKL_API.init_msg_list(p_init_msg_list);
6849: l_error_tbl OKL_API.ERROR_TBL_TYPE;
6850:
6851: BEGIN
6852:
6853: OKL_API.init_msg_list(p_init_msg_list);
6854:
6855: -- Make sure PL/SQL table has records in it before passing
6856:
6857: IF (p_drav_tbl.COUNT > 0) THEN
6859: delete_row (
6860:
6861: p_api_version => p_api_version,
6862:
6863: p_init_msg_list => OKL_API.G_FALSE,
6864:
6865: x_return_status => x_return_status,
6866:
6867: x_msg_count => x_msg_count,
6873: px_error_tbl => l_error_tbl);
6874:
6875: END IF;
6876:
6877: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6878:
6879: EXCEPTION
6880:
6881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6877: OKL_API.END_ACTIVITY(x_msg_count, x_msg_data);
6878:
6879: EXCEPTION
6880:
6881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6882:
6883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6884:
6885: (
6879: EXCEPTION
6880:
6881: WHEN OKL_API.G_EXCEPTION_ERROR THEN
6882:
6883: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6884:
6885: (
6886:
6887: l_api_name,
6887: l_api_name,
6888:
6889: G_PKG_NAME,
6890:
6891: 'OKL_API.G_RET_STS_ERROR',
6892:
6893: x_msg_count,
6894:
6895: x_msg_data,
6897: '_PVT'
6898:
6899: );
6900:
6901: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6902:
6903: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6904:
6905: (
6899: );
6900:
6901: WHEN OKL_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
6902:
6903: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6904:
6905: (
6906:
6907: l_api_name,
6907: l_api_name,
6908:
6909: G_PKG_NAME,
6910:
6911: 'OKL_API.G_RET_STS_UNEXP_ERROR',
6912:
6913: x_msg_count,
6914:
6915: x_msg_data,
6919: );
6920:
6921: WHEN OTHERS THEN
6922:
6923: x_return_status := OKL_API.HANDLE_EXCEPTIONS
6924:
6925: (
6926:
6927: l_api_name,