1: PACKAGE BODY po_val_headers AS
2: -- $Header: PO_VAL_HEADERS.plb 120.18.12020000.5 2013/04/04 04:42:01 amalick ship $
3:
4: c_entity_type_HEADER CONSTANT VARCHAR2(30) := PO_VALIDATIONS.c_entity_type_HEADER;
5:
6: c_AGENT_ID CONSTANT VARCHAR2(30) := 'AGENT_ID';
7: c_AMOUNT_LIMIT CONSTANT VARCHAR2(30) := 'AMOUNT_LIMIT';
8: c_BLANKET_TOTAL_AMOUNT CONSTANT VARCHAR2(30) := 'BLANKET_TOTAL_AMOUNT';
344: END IF;
345: END LOOP;
346:
347: IF (l_results_count < x_results.result_type.COUNT) THEN
348: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
349: ELSE
350: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
351: END IF;
352:
346:
347: IF (l_results_count < x_results.result_type.COUNT) THEN
348: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
349: ELSE
350: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
351: END IF;
352:
353: IF PO_LOG.d_proc THEN
354: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
384: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
385: END IF;
386:
387: IF (x_result_set_id IS NULL) THEN
388: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
389: END IF;
390:
391: FORALL i IN 1 .. p_header_id_tbl.COUNT
392: INSERT INTO PO_VALIDATION_RESULTS_GT
399: , message_name
400: )
401: SELECT
402: x_result_set_id
403: , PO_VALIDATIONS.c_result_type_WARNING
404: , c_entity_type_HEADER
405: , p_header_id_tbl(i)
406: , c_VENDOR_ID
407: , TO_CHAR(p_vendor_id_tbl(i))
413: AND SUPPLIER.hold_flag = 'Y'
414: ;
415:
416: IF(SQL%ROWCOUNT > 0) THEN
417: x_result_type := PO_VALIDATIONS.c_result_type_WARNING;
418: ELSE
419: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
420: END IF;
421:
415:
416: IF(SQL%ROWCOUNT > 0) THEN
417: x_result_type := PO_VALIDATIONS.c_result_type_WARNING;
418: ELSE
419: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
420: END IF;
421:
422: IF PO_LOG.d_proc THEN
423: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
419: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
420: END IF;
421:
422: IF PO_LOG.d_proc THEN
423: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
424: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
425: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
426: END IF;
427:
557:
558: END LOOP;
559:
560: IF (l_results_count < x_results.result_type.COUNT) THEN
561: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
562: ELSE
563: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
564: END IF;
565:
559:
560: IF (l_results_count < x_results.result_type.COUNT) THEN
561: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
562: ELSE
563: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
564: END IF;
565:
566: IF PO_LOG.d_proc THEN
567: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
632:
633: END LOOP;
634:
635: IF (l_results_count < x_results.result_type.COUNT) THEN
636: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
637: ELSE
638: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
639: END IF;
640:
634:
635: IF (l_results_count < x_results.result_type.COUNT) THEN
636: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
637: ELSE
638: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
639: END IF;
640:
641: IF PO_LOG.d_proc THEN
642: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
714: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
715: END IF;
716:
717: IF (x_result_set_id IS NULL) THEN
718: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
719: END IF;
720:
721: FORALL i IN 1 .. p_header_id_tbl.COUNT
722: INSERT INTO PO_VALIDATION_RESULTS_GT
745: AND p_start_date_tbl(i) > ORDER_LINE.creation_date
746: );
747:
748: IF (SQL%ROWCOUNT > 0) THEN
749: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
750: ELSE
751: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
752: END IF;
753:
747:
748: IF (SQL%ROWCOUNT > 0) THEN
749: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
750: ELSE
751: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
752: END IF;
753:
754: IF PO_LOG.d_proc THEN
755: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
751: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
752: END IF;
753:
754: IF PO_LOG.d_proc THEN
755: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
756: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
757: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
758: END IF;
759:
791: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
792: END IF;
793:
794: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
795: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
796: RETURN;
797: END IF;
798:
799:
797: END IF;
798:
799:
800: IF (x_result_set_id IS NULL) THEN
801: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
802: END IF;
803:
804: FORALL i IN 1 .. p_header_id_tbl.COUNT
805: INSERT INTO PO_VALIDATION_RESULTS_GT
822: WHERE p_type_lookup_code_tbl(i) IN (c_CONTRACT,c_BLANKET)
823: AND p_start_date_tbl(i) < p_clm_effective_date_tbl(i);
824:
825: IF (SQL%ROWCOUNT > 0) THEN
826: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
827: ELSE
828: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
829: END IF;
830:
824:
825: IF (SQL%ROWCOUNT > 0) THEN
826: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
827: ELSE
828: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
829: END IF;
830:
831: IF PO_LOG.d_proc THEN
832: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
828: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
829: END IF;
830:
831: IF PO_LOG.d_proc THEN
832: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
833: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
834: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
835: END IF;
836:
866: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
867: END IF;
868:
869: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
870: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
871: RETURN;
872: END IF;
873:
874: IF (x_result_set_id IS NULL) THEN
871: RETURN;
872: END IF;
873:
874: IF (x_result_set_id IS NULL) THEN
875: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
876: END IF;
877:
878: FORALL i IN 1 .. p_header_id_tbl.COUNT
879: INSERT INTO PO_VALIDATION_RESULTS_GT
896: WHERE p_type_lookup_code_tbl(i) IN (c_CONTRACT,c_BLANKET)
897: AND p_amount_limit_tbl(i) < p_min_grnt_awd_amt_tbl(i);
898:
899: IF (SQL%ROWCOUNT > 0) THEN
900: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
901: ELSE
902: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
903: END IF;
904:
898:
899: IF (SQL%ROWCOUNT > 0) THEN
900: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
901: ELSE
902: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
903: END IF;
904:
905: IF PO_LOG.d_proc THEN
906: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
902: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
903: END IF;
904:
905: IF PO_LOG.d_proc THEN
906: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
907: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
908: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
909: END IF;
910:
940: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
941: END IF;
942:
943: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
944: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
945: RETURN;
946: END IF;
947:
948: IF (x_result_set_id IS NULL) THEN
945: RETURN;
946: END IF;
947:
948: IF (x_result_set_id IS NULL) THEN
949: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
950: END IF;
951:
952: FORALL i IN 1 .. p_header_id_tbl.COUNT
953: INSERT INTO PO_VALIDATION_RESULTS_GT
970: WHERE p_type_lookup_code_tbl(i) IN (c_CONTRACT,c_BLANKET)
971: AND p_amount_limit_tbl(i) < p_min_order_amt_tbl(i);
972:
973: IF (SQL%ROWCOUNT > 0) THEN
974: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
975: ELSE
976: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
977: END IF;
978:
972:
973: IF (SQL%ROWCOUNT > 0) THEN
974: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
975: ELSE
976: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
977: END IF;
978:
979: IF PO_LOG.d_proc THEN
980: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
976: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
977: END IF;
978:
979: IF PO_LOG.d_proc THEN
980: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
981: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
982: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
983: END IF;
984:
1013: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
1014: END IF;
1015:
1016: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
1017: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1018: RETURN;
1019: END IF;
1020:
1021: IF (x_result_set_id IS NULL) THEN
1018: RETURN;
1019: END IF;
1020:
1021: IF (x_result_set_id IS NULL) THEN
1022: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1023: END IF;
1024:
1025: FORALL i IN 1 .. p_header_id_tbl.COUNT
1026: INSERT INTO PO_VALIDATION_RESULTS_GT
1043: WHERE p_type_lookup_code_tbl(i) IN (c_CONTRACT,c_BLANKET)
1044: AND p_amount_limit_tbl(i) < p_max_order_amt_tbl(i);
1045:
1046: IF (SQL%ROWCOUNT > 0) THEN
1047: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1048: ELSE
1049: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1050: END IF;
1051:
1045:
1046: IF (SQL%ROWCOUNT > 0) THEN
1047: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1048: ELSE
1049: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1050: END IF;
1051:
1052: IF PO_LOG.d_proc THEN
1053: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1049: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1050: END IF;
1051:
1052: IF PO_LOG.d_proc THEN
1053: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1054: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1055: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
1056: END IF;
1057:
1082: PO_LOG.proc_begin(d_mod,'p_min_guar_perc_tbl',p_min_guar_perc_tbl);
1083: END IF;
1084:
1085: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
1086: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1087: RETURN;
1088: END IF;
1089:
1090: PO_VALIDATION_HELPER.within_percentage_range(
1125: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
1126: END IF;
1127:
1128: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
1129: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1130: RETURN;
1131: END IF;
1132:
1133: IF (x_result_set_id IS NULL) THEN
1130: RETURN;
1131: END IF;
1132:
1133: IF (x_result_set_id IS NULL) THEN
1134: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1135: END IF;
1136:
1137: FORALL i IN 1 .. p_header_id_tbl.COUNT
1138: INSERT INTO PO_VALIDATION_RESULTS_GT
1155: WHERE p_type_lookup_code_tbl(i) IN (c_CONTRACT,c_BLANKET)
1156: AND p_max_order_amt_tbl(i) < p_min_order_amt_tbl(i);
1157:
1158: IF (SQL%ROWCOUNT > 0) THEN
1159: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1160: ELSE
1161: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1162: END IF;
1163:
1157:
1158: IF (SQL%ROWCOUNT > 0) THEN
1159: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1160: ELSE
1161: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1162: END IF;
1163:
1164: IF PO_LOG.d_proc THEN
1165: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1161: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1162: END IF;
1163:
1164: IF PO_LOG.d_proc THEN
1165: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1166: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1167: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
1168: END IF;
1169:
1204: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
1205: END IF;
1206:
1207: IF (x_result_set_id IS NULL) THEN
1208: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1209: END IF;
1210:
1211: FORALL i IN 1 .. p_header_id_tbl.COUNT
1212: INSERT INTO PO_VALIDATION_RESULTS_GT
1245: )
1246: AND Nvl(p_draft_type_tbl(i),'*') <> 'PAR'; --
1247:
1248: IF (SQL%ROWCOUNT > 0) THEN
1249: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1250: ELSE
1251: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1252: END IF;
1253:
1247:
1248: IF (SQL%ROWCOUNT > 0) THEN
1249: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1250: ELSE
1251: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1252: END IF;
1253:
1254: IF PO_LOG.d_proc THEN
1255: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1251: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1252: END IF;
1253:
1254: IF PO_LOG.d_proc THEN
1255: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1256: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1257: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
1258: END IF;
1259:
1288: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
1289: END IF;
1290:
1291: IF (x_result_set_id IS NULL) THEN
1292: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1293: END IF;
1294:
1295: FORALL i IN 1 .. p_header_id_tbl.COUNT
1296: INSERT INTO PO_VALIDATION_RESULTS_GT
1328: )
1329: ;
1330:
1331: IF (SQL%ROWCOUNT > 0) THEN
1332: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1333: ELSE
1334: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1335: END IF;
1336:
1330:
1331: IF (SQL%ROWCOUNT > 0) THEN
1332: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1333: ELSE
1334: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1335: END IF;
1336:
1337: IF PO_LOG.d_proc THEN
1338: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1334: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1335: END IF;
1336:
1337: IF PO_LOG.d_proc THEN
1338: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1339: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1340: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
1341: END IF;
1342:
1372: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
1373: END IF;
1374:
1375: IF (x_result_set_id IS NULL) THEN
1376: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1377: END IF;
1378:
1379: FORALL i IN 1 .. p_header_id_tbl.COUNT
1380: INSERT INTO PO_VALIDATION_RESULTS_GT
1412:
1413: -- TODO: check with PM about differences in Agreements / Contracts checks.
1414:
1415: IF (SQL%ROWCOUNT > 0) THEN
1416: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1417: ELSE
1418: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1419: END IF;
1420:
1414:
1415: IF (SQL%ROWCOUNT > 0) THEN
1416: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1417: ELSE
1418: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1419: END IF;
1420:
1421: IF PO_LOG.d_proc THEN
1422: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1418: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1419: END IF;
1420:
1421: IF PO_LOG.d_proc THEN
1422: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1423: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1424: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
1425: END IF;
1426:
1456: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
1457: END IF;
1458:
1459: IF (x_result_set_id IS NULL) THEN
1460: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1461: END IF;
1462:
1463: FORALL i IN 1 .. p_header_id_tbl.COUNT
1464: INSERT INTO PO_VALIDATION_RESULTS_GT
1496: )
1497: ;
1498:
1499: IF (SQL%ROWCOUNT > 0) THEN
1500: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1501: ELSE
1502: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1503: END IF;
1504:
1498:
1499: IF (SQL%ROWCOUNT > 0) THEN
1500: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1501: ELSE
1502: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1503: END IF;
1504:
1505: IF PO_LOG.d_proc THEN
1506: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1502: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1503: END IF;
1504:
1505: IF PO_LOG.d_proc THEN
1506: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
1507: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1508: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
1509: END IF;
1510:
1631: END;
1632: END LOOP;
1633:
1634: IF (l_results_count < x_results.result_type.COUNT) THEN
1635: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1636: ELSE
1637: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1638: END IF;
1639:
1633:
1634: IF (l_results_count < x_results.result_type.COUNT) THEN
1635: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1636: ELSE
1637: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1638: END IF;
1639:
1640: IF PO_LOG.d_proc THEN
1641: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1864:
1865: d_position := 500;
1866:
1867: IF (l_results_count < x_results.result_type.COUNT) THEN
1868: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1869: ELSE
1870: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1871: END IF;
1872:
1866:
1867: IF (l_results_count < x_results.result_type.COUNT) THEN
1868: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1869: ELSE
1870: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1871: END IF;
1872:
1873: IF PO_LOG.d_proc THEN
1874: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2288: IS
2289: BEGIN
2290:
2291: IF (x_result_set_id IS NULL) THEN
2292: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
2293: END IF;
2294:
2295: FORALL i IN 1 .. p_header_id_tbl.COUNT
2296: INSERT INTO PO_VALIDATION_RESULTS_GT
2313: AND USER_DEFINED_PO_NUM_CODE = c_MANUAL
2314: AND p_segment1_tbl(i) IS NULL;
2315:
2316: IF (SQL%ROWCOUNT > 0) THEN
2317: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2318: ELSE
2319: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2320: END IF;
2321:
2315:
2316: IF (SQL%ROWCOUNT > 0) THEN
2317: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2318: ELSE
2319: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2320: END IF;
2321:
2322: END segment1_not_null;
2323: --
2335: d_mod CONSTANT VARCHAR2(100) := 'SHIP_VIA_LOOKUP_CODE';
2336: x_temp VARCHAR2(100);
2337: BEGIN
2338: IF x_result_set_id IS NULL THEN
2339: x_result_set_id := po_validations.next_result_set_id();
2340: END IF;
2341:
2342: IF po_log.d_proc THEN
2343: po_log.proc_begin(d_mod, 'p_header_id_tbl', p_header_id_tbl);
2346:
2347:
2348: END IF;
2349:
2350: x_result_type := po_validations.c_result_type_success;
2351:
2352: FOR i IN 1 .. p_header_id_tbl.Count
2353: LOOP
2354: IF p_ship_via_lookup_code_tbl(i) IS NOT NULL THEN
2364: token1_name,
2365: token1_value,
2366: validation_id)
2367: SELECT x_result_set_id,
2368: po_validations.c_result_type_failure,
2369: c_entity_type_header,
2370: 'PO_PDOI_INVALID_FREIGHT_CARR',
2371: 'SHIP_VIA_LOOKUP_CODE',
2372: p_ship_via_lookup_code_tbl(i),
2393: END LOOP ;
2394:
2395:
2396: IF (SQL%ROWCOUNT > 0 ) THEN
2397: x_result_type := po_validations.c_result_type_FAILURE;
2398: END IF;
2399:
2400: IF po_log.d_proc THEN
2401: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2397: x_result_type := po_validations.c_result_type_FAILURE;
2398: END IF;
2399:
2400: IF po_log.d_proc THEN
2401: po_validations.log_validation_results_gt(d_mod, 9, x_result_set_id);
2402: po_log.proc_end(d_mod, 'x_result_type', x_result_type);
2403: po_log.proc_end(d_mod, 'x_result_set_id', x_result_set_id);
2404: END IF;
2405:
2432: PO_LOG.proc_begin(d_mod,'p_mod_eff_date_tbl',p_mod_eff_date_tbl);
2433: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
2434: END IF;
2435: IF (x_result_set_id IS NULL) THEN
2436: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
2437: END IF;
2438:
2439: FORALL i IN 1..p_header_id_tbl.COUNT
2440: INSERT INTO po_validation_results_gt
2457: FROM PO_LINE_LOCATIONS_ALL
2458: WHERE po_header_id = p_header_id_tbl(i));
2459:
2460: IF (SQL%ROWCOUNT > 0) THEN
2461: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2462: ELSE
2463: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2464: END IF;
2465:
2459:
2460: IF (SQL%ROWCOUNT > 0) THEN
2461: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2462: ELSE
2463: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2464: END IF;
2465:
2466:
2467: IF PO_LOG.d_proc THEN
2464: END IF;
2465:
2466:
2467: IF PO_LOG.d_proc THEN
2468: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
2469: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2470: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
2471: END IF;
2472:
2499: PO_LOG.proc_begin(d_mod,'p_mod_eff_date_tbl',p_mod_eff_date_tbl);
2500: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
2501: END IF;
2502: IF (x_result_set_id IS NULL) THEN
2503: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
2504: END IF;
2505:
2506: FORALL i IN 1..p_header_id_tbl.COUNT
2507: INSERT INTO po_validation_results_gt
2519: WHERE p_mod_eff_date_tbl(i) is NULL
2520: AND nvl(p_draft_type_tbl(i), '*') = 'MOD';
2521:
2522: IF (SQL%ROWCOUNT > 0) THEN
2523: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2524: ELSE
2525: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2526: END IF;
2527:
2521:
2522: IF (SQL%ROWCOUNT > 0) THEN
2523: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2524: ELSE
2525: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2526: END IF;
2527:
2528:
2529: IF PO_LOG.d_proc THEN
2526: END IF;
2527:
2528:
2529: IF PO_LOG.d_proc THEN
2530: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
2531: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2532: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
2533: END IF;
2534:
2556: PO_LOG.proc_begin(d_mod,'p_control_action_tbl',p_control_action_tbl);
2557: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
2558: END IF;
2559: IF (x_result_set_id IS NULL) THEN
2560: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
2561: END IF;
2562:
2563: FORALL i IN 1..p_header_id_tbl.COUNT
2564: INSERT INTO po_validation_results_gt
2582: WHERE po_header_id = p_header_id_tbl(i)
2583: AND quantity > quantity_received);
2584:
2585: IF (SQL%ROWCOUNT > 0) THEN
2586: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2587: ELSE
2588: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2589: END IF;
2590:
2584:
2585: IF (SQL%ROWCOUNT > 0) THEN
2586: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2587: ELSE
2588: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2589: END IF;
2590:
2591:
2592: IF PO_LOG.d_proc THEN
2589: END IF;
2590:
2591:
2592: IF PO_LOG.d_proc THEN
2593: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
2594: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2595: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
2596: END IF;
2597:
2620:
2621: BEGIN
2622: -- skip the validation for non-CLM documents
2623: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
2624: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2625: RETURN;
2626: END IF;
2627:
2628: IF PO_LOG.d_proc THEN
2656: END;
2657: END IF;
2658: END LOOP;
2659: IF l_results_count > 0 THEN
2660: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2661: ELSE
2662: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2663: END IF;
2664:
2658: END LOOP;
2659: IF l_results_count > 0 THEN
2660: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2661: ELSE
2662: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2663: END IF;
2664:
2665: IF PO_LOG.d_proc THEN
2666: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2689: l_valid_document_format VARCHAR2(1):= NULL;
2690: BEGIN
2691: -- skip the validation for non-CLM documents
2692: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
2693: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2694: RETURN;
2695: END IF;
2696:
2697: IF PO_LOG.d_proc THEN
2737: END IF;
2738: END IF;
2739: END LOOP;
2740: IF l_results_count > 0 THEN
2741: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2742: ELSE
2743: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2744: END IF;
2745:
2739: END LOOP;
2740: IF l_results_count > 0 THEN
2741: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2742: ELSE
2743: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2744: END IF;
2745:
2746: IF PO_LOG.d_proc THEN
2747: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2771: is_valid_src_doc_id VARCHAR2(1):= NULL;
2772: BEGIN
2773: -- skip the validation for non-CLM documents
2774: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
2775: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2776: RETURN;
2777: END IF;
2778:
2779: IF PO_LOG.d_proc THEN
2843: END;
2844: END IF;
2845: END LOOP;
2846: IF l_results_count > 0 THEN
2847: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2848: ELSE
2849: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2850: END IF;
2851: IF PO_LOG.d_proc THEN
2845: END LOOP;
2846: IF l_results_count > 0 THEN
2847: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2848: ELSE
2849: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2850: END IF;
2851: IF PO_LOG.d_proc THEN
2852: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2853: END IF;
2875: is_valid_award_admin VARCHAR2(1):= NULL;
2876: BEGIN
2877: -- skip the validation for non-CLM documents
2878: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
2879: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2880: RETURN;
2881: END IF;
2882:
2883: IF PO_LOG.d_proc THEN
2911: END;
2912: END IF;
2913: END LOOP;
2914: IF l_results_count > 0 THEN
2915: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2916: ELSE
2917: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2918: END IF;
2919: IF PO_LOG.d_proc THEN
2913: END LOOP;
2914: IF l_results_count > 0 THEN
2915: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2916: ELSE
2917: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2918: END IF;
2919: IF PO_LOG.d_proc THEN
2920: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2921: END IF;
2943: is_valid_contract_officer VARCHAR2(1):= NULL;
2944: BEGIN
2945: -- skip the validation for non-CLM documents
2946: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
2947: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2948: RETURN;
2949: END IF;
2950:
2951: IF PO_LOG.d_proc THEN
2980: END;
2981: END IF;
2982: END LOOP;
2983: IF l_results_count > 0 THEN
2984: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2985: ELSE
2986: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2987: END IF;
2988: IF PO_LOG.d_proc THEN
2982: END LOOP;
2983: IF l_results_count > 0 THEN
2984: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
2985: ELSE
2986: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
2987: END IF;
2988: IF PO_LOG.d_proc THEN
2989: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
2990: END IF;
3012: is_valid_umbrella_prg_id VARCHAR2(1):= NULL;
3013: BEGIN
3014: -- skip the validation for non-CLM documents
3015: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
3016: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3017: RETURN;
3018: END IF;
3019:
3020: IF PO_LOG.d_proc THEN
3048: END;
3049: END IF;
3050: END LOOP;
3051: IF l_results_count > 0 THEN
3052: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3053: ELSE
3054: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3055: END IF;
3056: IF PO_LOG.d_proc THEN
3050: END LOOP;
3051: IF l_results_count > 0 THEN
3052: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3053: ELSE
3054: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3055: END IF;
3056: IF PO_LOG.d_proc THEN
3057: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3058: END IF;
3081: is_valid_awd_type VARCHAR2(1):= NULL;
3082: BEGIN
3083: -- skip the validation for non-CLM documents
3084: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
3085: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3086: RETURN;
3087: END IF;
3088:
3089: IF PO_LOG.d_proc THEN
3146: END IF;
3147: END LOOP;
3148:
3149: IF l_results_count > 0 THEN
3150: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3151: ELSE
3152: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3153: END IF;
3154: IF PO_LOG.d_proc THEN
3148:
3149: IF l_results_count > 0 THEN
3150: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3151: ELSE
3152: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3153: END IF;
3154: IF PO_LOG.d_proc THEN
3155: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3156: END IF;
3182: l_style_id_tbl PO_TBL_NUMBER;
3183: BEGIN
3184: -- skip the validation for non-CLM documents
3185: IF NOT PO_CLM_CLO_UTIL.Isclminstalled THEN
3186: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3187: RETURN;
3188: END IF;
3189:
3190: IF PO_LOG.d_proc THEN
3237: END IF;
3238: END LOOP;
3239:
3240: IF l_intf_header_id_tbl.count > 0 THEN
3241: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3242: ELSE
3243: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3244: END IF;
3245: IF PO_LOG.d_proc THEN
3239:
3240: IF l_intf_header_id_tbl.count > 0 THEN
3241: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3242: ELSE
3243: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3244: END IF;
3245: IF PO_LOG.d_proc THEN
3246: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3247: END IF;
3307: );
3308: END LOOP;
3309:
3310: IF l_intf_header_id_tbl.count > 0 THEN
3311: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3312: ELSE
3313: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3314: END IF;
3315:
3309:
3310: IF l_intf_header_id_tbl.count > 0 THEN
3311: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3312: ELSE
3313: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3314: END IF;
3315:
3316: IF PO_LOG.d_proc THEN
3317: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3378: );
3379: END LOOP;
3380:
3381: IF l_intf_header_id_tbl.count > 0 THEN
3382: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3383: ELSE
3384: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3385: END IF;
3386:
3380:
3381: IF l_intf_header_id_tbl.count > 0 THEN
3382: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3383: ELSE
3384: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3385: END IF;
3386:
3387: IF PO_LOG.d_proc THEN
3388: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3450: );
3451: END LOOP;
3452:
3453: IF l_intf_header_id_tbl.count > 0 THEN
3454: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3455: ELSE
3456: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3457: END IF;
3458:
3452:
3453: IF l_intf_header_id_tbl.count > 0 THEN
3454: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3455: ELSE
3456: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3457: END IF;
3458:
3459: IF PO_LOG.d_proc THEN
3460: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
3507: END IF;
3508: END LOOP;
3509:
3510: IF (l_results_count < x_results.result_type.COUNT) THEN
3511: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3512: ELSE
3513: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3514: END IF;
3515:
3509:
3510: IF (l_results_count < x_results.result_type.COUNT) THEN
3511: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
3512: ELSE
3513: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
3514: END IF;
3515:
3516: IF PO_LOG.d_proc THEN
3517: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);