1: PACKAGE BODY PO_VAL_HEADERS AS
2: -- $Header: PO_VAL_HEADERS.plb 120.5 2006/09/22 22:29:46 masingh noship $
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';
254: END IF;
255: END LOOP;
256:
257: IF (l_results_count < x_results.result_type.COUNT) THEN
258: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
259: ELSE
260: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
261: END IF;
262:
256:
257: IF (l_results_count < x_results.result_type.COUNT) THEN
258: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
259: ELSE
260: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
261: END IF;
262:
263: IF PO_LOG.d_proc THEN
264: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
294: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
295: END IF;
296:
297: IF (x_result_set_id IS NULL) THEN
298: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
299: END IF;
300:
301: FORALL i IN 1 .. p_header_id_tbl.COUNT
302: INSERT INTO PO_VALIDATION_RESULTS_GT
309: , message_name
310: )
311: SELECT
312: x_result_set_id
313: , PO_VALIDATIONS.c_result_type_WARNING
314: , c_entity_type_HEADER
315: , p_header_id_tbl(i)
316: , c_VENDOR_ID
317: , TO_CHAR(p_vendor_id_tbl(i))
323: AND SUPPLIER.hold_flag = 'Y'
324: ;
325:
326: IF(SQL%ROWCOUNT > 0) THEN
327: x_result_type := PO_VALIDATIONS.c_result_type_WARNING;
328: ELSE
329: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
330: END IF;
331:
325:
326: IF(SQL%ROWCOUNT > 0) THEN
327: x_result_type := PO_VALIDATIONS.c_result_type_WARNING;
328: ELSE
329: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
330: END IF;
331:
332: IF PO_LOG.d_proc THEN
333: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
329: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
330: END IF;
331:
332: IF PO_LOG.d_proc THEN
333: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
334: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
335: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
336: END IF;
337:
467:
468: END LOOP;
469:
470: IF (l_results_count < x_results.result_type.COUNT) THEN
471: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
472: ELSE
473: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
474: END IF;
475:
469:
470: IF (l_results_count < x_results.result_type.COUNT) THEN
471: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
472: ELSE
473: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
474: END IF;
475:
476: IF PO_LOG.d_proc THEN
477: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
542:
543: END LOOP;
544:
545: IF (l_results_count < x_results.result_type.COUNT) THEN
546: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
547: ELSE
548: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
549: END IF;
550:
544:
545: IF (l_results_count < x_results.result_type.COUNT) THEN
546: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
547: ELSE
548: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
549: END IF;
550:
551: IF PO_LOG.d_proc THEN
552: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
617: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
618: END IF;
619:
620: IF (x_result_set_id IS NULL) THEN
621: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
622: END IF;
623:
624: FORALL i IN 1 .. p_header_id_tbl.COUNT
625: INSERT INTO PO_VALIDATION_RESULTS_GT
650: )
651: ;
652:
653: IF (SQL%ROWCOUNT > 0) THEN
654: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
655: ELSE
656: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
657: END IF;
658:
652:
653: IF (SQL%ROWCOUNT > 0) THEN
654: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
655: ELSE
656: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
657: END IF;
658:
659: IF PO_LOG.d_proc THEN
660: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
656: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
657: END IF;
658:
659: IF PO_LOG.d_proc THEN
660: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
661: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
662: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
663: END IF;
664:
695: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
696: END IF;
697:
698: IF (x_result_set_id IS NULL) THEN
699: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
700: END IF;
701:
702: FORALL i IN 1 .. p_header_id_tbl.COUNT
703: INSERT INTO PO_VALIDATION_RESULTS_GT
728: )
729: ;
730:
731: IF (SQL%ROWCOUNT > 0) THEN
732: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
733: ELSE
734: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
735: END IF;
736:
730:
731: IF (SQL%ROWCOUNT > 0) THEN
732: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
733: ELSE
734: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
735: END IF;
736:
737: IF PO_LOG.d_proc THEN
738: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
734: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
735: END IF;
736:
737: IF PO_LOG.d_proc THEN
738: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
739: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
740: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
741: END IF;
742:
772: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
773: END IF;
774:
775: IF (x_result_set_id IS NULL) THEN
776: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
777: END IF;
778:
779: FORALL i IN 1 .. p_header_id_tbl.COUNT
780: INSERT INTO PO_VALIDATION_RESULTS_GT
812:
813: -- TODO: check with PM about differences in Agreements / Contracts checks.
814:
815: IF (SQL%ROWCOUNT > 0) THEN
816: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
817: ELSE
818: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
819: END IF;
820:
814:
815: IF (SQL%ROWCOUNT > 0) THEN
816: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
817: ELSE
818: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
819: END IF;
820:
821: IF PO_LOG.d_proc THEN
822: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
818: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
819: END IF;
820:
821: IF PO_LOG.d_proc THEN
822: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
823: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
824: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
825: END IF;
826:
856: PO_LOG.proc_begin(d_mod,'x_result_set_id',x_result_set_id);
857: END IF;
858:
859: IF (x_result_set_id IS NULL) THEN
860: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
861: END IF;
862:
863: FORALL i IN 1 .. p_header_id_tbl.COUNT
864: INSERT INTO PO_VALIDATION_RESULTS_GT
894: )
895: ;
896:
897: IF (SQL%ROWCOUNT > 0) THEN
898: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
899: ELSE
900: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
901: END IF;
902:
896:
897: IF (SQL%ROWCOUNT > 0) THEN
898: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
899: ELSE
900: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
901: END IF;
902:
903: IF PO_LOG.d_proc THEN
904: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
900: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
901: END IF;
902:
903: IF PO_LOG.d_proc THEN
904: PO_VALIDATIONS.log_validation_results_gt(d_mod,9,x_result_set_id);
905: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
906: PO_LOG.proc_end(d_mod,'x_result_set_id',x_result_set_id);
907: END IF;
908:
998: END;
999: END LOOP;
1000:
1001: IF (l_results_count < x_results.result_type.COUNT) THEN
1002: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1003: ELSE
1004: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1005: END IF;
1006:
1000:
1001: IF (l_results_count < x_results.result_type.COUNT) THEN
1002: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1003: ELSE
1004: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1005: END IF;
1006:
1007: IF PO_LOG.d_proc THEN
1008: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1231:
1232: d_position := 500;
1233:
1234: IF (l_results_count < x_results.result_type.COUNT) THEN
1235: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1236: ELSE
1237: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1238: END IF;
1239:
1233:
1234: IF (l_results_count < x_results.result_type.COUNT) THEN
1235: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1236: ELSE
1237: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1238: END IF;
1239:
1240: IF PO_LOG.d_proc THEN
1241: PO_LOG.proc_end(d_mod,'x_result_type',x_result_type);
1655: IS
1656: BEGIN
1657:
1658: IF (x_result_set_id IS NULL) THEN
1659: x_result_set_id := PO_VALIDATIONS.next_result_set_id();
1660: END IF;
1661:
1662: FORALL i IN 1 .. p_header_id_tbl.COUNT
1663: INSERT INTO PO_VALIDATION_RESULTS_GT
1680: AND USER_DEFINED_PO_NUM_CODE = c_MANUAL
1681: AND p_segment1_tbl(i) IS NULL;
1682:
1683: IF (SQL%ROWCOUNT > 0) THEN
1684: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1685: ELSE
1686: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1687: END IF;
1688:
1682:
1683: IF (SQL%ROWCOUNT > 0) THEN
1684: x_result_type := PO_VALIDATIONS.c_result_type_FAILURE;
1685: ELSE
1686: x_result_type := PO_VALIDATIONS.c_result_type_SUCCESS;
1687: END IF;
1688:
1689: END segment1_not_null;
1690: --