1: PACKAGE BODY QP_Validate_Price_List AS
2: /* $Header: QPXLPLHB.pls 120.9.12020000.2 2013/02/28 10:37:08 kdurgasi ship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXLPLHB.pls 120.9.12020000.2 2013/02/28 10:37:08 kdurgasi ship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Price_List';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
208: --
209: -- Check conditionally required attributes here.
210: --
211:
212: IF NOT QP_Validate.Currency(p_PRICE_LIST_rec.currency_code) THEN
213: l_return_status := FND_API.G_RET_STS_ERROR;
214: END IF;
215:
216:
213: l_return_status := FND_API.G_RET_STS_ERROR;
214: END IF;
215:
216:
217: IF NOT QP_Validate.Rounding_Factor(p_PRICE_LIST_rec.rounding_factor,p_PRICE_LIST_rec.currency_code) THEN
218: l_return_status := FND_API.G_RET_STS_ERROR;
219: END IF;
220:
221: IF ( p_PRICE_LIST_rec.automatic_flag IS NOT NULL
418: oe_msg_pub.add;
419: END;
420: END IF;
421:
422: IF NOT QP_Validate.List_Type(p_PRICE_LIST_rec.list_type_code) THEN
423: l_return_status := FND_API.G_RET_STS_ERROR;
424: END IF;
425:
426: /*
424: END IF;
425:
426: /*
427:
428: IF NOT QP_Validate.Source_System(p_PRICE_LIST_rec.source_system_code) THEN
429: l_return_status := FND_API.G_RET_STS_ERROR;
430: END IF;
431:
432: */
430: END IF;
431:
432: */
433:
434: IF NOT QP_Validate.Ship_Method(p_PRICE_LIST_rec.ship_method_code) THEN
435: l_return_status := FND_API.G_RET_STS_ERROR;
436: END IF;
437:
438: IF NOT QP_Validate.Freight_Terms(p_PRICE_LIST_rec.freight_terms_code) THEN
434: IF NOT QP_Validate.Ship_Method(p_PRICE_LIST_rec.ship_method_code) THEN
435: l_return_status := FND_API.G_RET_STS_ERROR;
436: END IF;
437:
438: IF NOT QP_Validate.Freight_Terms(p_PRICE_LIST_rec.freight_terms_code) THEN
439: l_return_status := FND_API.G_RET_STS_ERROR;
440: END IF;
441:
442: IF NOT QP_Validate.Terms(p_PRICE_LIST_rec.terms_id) THEN
438: IF NOT QP_Validate.Freight_Terms(p_PRICE_LIST_rec.freight_terms_code) THEN
439: l_return_status := FND_API.G_RET_STS_ERROR;
440: END IF;
441:
442: IF NOT QP_Validate.Terms(p_PRICE_LIST_rec.terms_id) THEN
443: l_return_status := FND_API.G_RET_STS_ERROR;
444: END IF;
445:
446: --
446: --
447: -- Validate attribute dependencies here.
448: --
449:
450: IF NOT QP_Validate.Start_Date_Active(p_PRICE_LIST_rec.start_date_active, p_PRICE_LIST_rec.end_date_active) THEN
451:
452: l_return_status := FND_API.G_RET_STS_ERROR;
453:
454: /*
485: oe_msg_pub.add;
486: END IF;
487: END IF;
488:
489: IF NOT QP_Validate.Price_List_Name(p_PRICE_LIST_rec.name,
490: p_PRICE_LIST_rec.list_header_id,
491: p_PRICE_LIST_rec.version_no) THEN
492:
493: l_return_status := FND_API.G_RET_STS_ERROR;
549: ( p_PRICE_LIST_rec.automatic_flag <>
550: p_old_PRICE_LIST_rec.automatic_flag OR
551: p_old_PRICE_LIST_rec.automatic_flag IS NULL )
552: THEN
553: IF NOT QP_Validate.Automatic(p_PRICE_LIST_rec.automatic_flag) THEN
554: x_return_status := FND_API.G_RET_STS_ERROR;
555: END IF;
556: END IF;
557:
559: (p_PRICE_LIST_rec.active_flag <>
560: p_old_PRICE_LIST_rec.active_flag OR
561: p_old_PRICE_LIST_rec.active_flag IS NULL)
562: THEN
563: IF NOT QP_Validate.active(p_PRICE_LIST_rec.active_flag) THEN
564: x_return_status := FND_API.G_RET_STS_ERROR;
565: END IF;
566: END IF;
567:
570: (p_PRICE_LIST_rec.mobile_download <>
571: p_old_PRICE_LIST_rec.mobile_download OR
572: p_old_PRICE_LIST_rec.mobile_download IS NULL)
573: THEN
574: IF NOT QP_Validate.mobile_download(p_PRICE_LIST_rec.mobile_download) THEN
575: x_return_status := FND_API.G_RET_STS_ERROR;
576: END IF;
577: END IF;
578:
581: (p_PRICE_LIST_rec.global_flag <>
582: p_old_PRICE_LIST_rec.global_flag OR
583: p_old_PRICE_LIST_rec.global_flag IS NULL)
584: THEN
585: IF NOT QP_Validate.global_flag(p_PRICE_LIST_rec.global_flag) THEN
586: x_return_status := FND_API.G_RET_STS_ERROR;
587: END IF;
588: END IF;
589:
592: ( p_PRICE_LIST_rec.description <>
593: p_old_PRICE_LIST_rec.description OR
594: p_old_PRICE_LIST_rec.description IS NULL )
595: THEN
596: IF NOT QP_Validate.Description(p_PRICE_LIST_rec.description) THEN
597: x_return_status := FND_API.G_RET_STS_ERROR;
598: END IF;
599: END IF;
600:
602: ( p_PRICE_LIST_rec.name <>
603: p_old_PRICE_LIST_rec.name OR
604: p_old_PRICE_LIST_rec.name IS NULL )
605: THEN
606: IF NOT QP_Validate.Name(p_PRICE_LIST_rec.name) THEN
607: x_return_status := FND_API.G_RET_STS_ERROR;
608: END IF;
609: END IF;
610:
612: ( p_PRICE_LIST_rec.comments <>
613: p_old_PRICE_LIST_rec.comments OR
614: p_old_PRICE_LIST_rec.comments IS NULL )
615: THEN
616: IF NOT QP_Validate.Comments(p_PRICE_LIST_rec.comments) THEN
617: x_return_status := FND_API.G_RET_STS_ERROR;
618: END IF;
619: END IF;
620:
622: ( p_PRICE_LIST_rec.created_by <>
623: p_old_PRICE_LIST_rec.created_by OR
624: p_old_PRICE_LIST_rec.created_by IS NULL )
625: THEN
626: IF NOT QP_Validate.Created_By(p_PRICE_LIST_rec.created_by) THEN
627: x_return_status := FND_API.G_RET_STS_ERROR;
628: END IF;
629: END IF;
630:
632: ( p_PRICE_LIST_rec.creation_date <>
633: p_old_PRICE_LIST_rec.creation_date OR
634: p_old_PRICE_LIST_rec.creation_date IS NULL )
635: THEN
636: IF NOT QP_Validate.Creation_Date(p_PRICE_LIST_rec.creation_date) THEN
637: x_return_status := FND_API.G_RET_STS_ERROR;
638: END IF;
639: END IF;
640:
642: ( p_PRICE_LIST_rec.currency_code <>
643: p_old_PRICE_LIST_rec.currency_code OR
644: p_old_PRICE_LIST_rec.currency_code IS NULL )
645: THEN
646: IF NOT QP_Validate.Currency(p_PRICE_LIST_rec.currency_code) THEN
647: x_return_status := FND_API.G_RET_STS_ERROR;
648: END IF;
649: END IF;
650:
652: ( p_PRICE_LIST_rec.discount_lines_flag <>
653: p_old_PRICE_LIST_rec.discount_lines_flag OR
654: p_old_PRICE_LIST_rec.discount_lines_flag IS NULL )
655: THEN
656: IF NOT QP_Validate.Discount_Lines(p_PRICE_LIST_rec.discount_lines_flag) THEN
657: x_return_status := FND_API.G_RET_STS_ERROR;
658: END IF;
659: END IF;
660:
662: ( p_PRICE_LIST_rec.end_date_active <>
663: p_old_PRICE_LIST_rec.end_date_active OR
664: p_old_PRICE_LIST_rec.end_date_active IS NULL )
665: THEN
666: IF NOT QP_Validate.End_Date_Active(p_PRICE_LIST_rec.end_date_active, p_PRICE_LIST_rec.start_date_active) THEN
667: x_return_status := FND_API.G_RET_STS_ERROR;
668: END IF;
669:
670: END IF;
673: ( p_PRICE_LIST_rec.freight_terms_code <>
674: p_old_PRICE_LIST_rec.freight_terms_code OR
675: p_old_PRICE_LIST_rec.freight_terms_code IS NULL )
676: THEN
677: IF NOT QP_Validate.Freight_Terms(p_PRICE_LIST_rec.freight_terms_code) THEN
678: x_return_status := FND_API.G_RET_STS_ERROR;
679: END IF;
680: END IF;
681:
683: ( p_PRICE_LIST_rec.gsa_indicator <>
684: p_old_PRICE_LIST_rec.gsa_indicator OR
685: p_old_PRICE_LIST_rec.gsa_indicator IS NULL )
686: THEN
687: IF NOT QP_Validate.Gsa_Indicator(p_PRICE_LIST_rec.gsa_indicator) THEN
688: x_return_status := FND_API.G_RET_STS_ERROR;
689: END IF;
690: END IF;
691:
693: ( p_PRICE_LIST_rec.last_updated_by <>
694: p_old_PRICE_LIST_rec.last_updated_by OR
695: p_old_PRICE_LIST_rec.last_updated_by IS NULL )
696: THEN
697: IF NOT QP_Validate.Last_Updated_By(p_PRICE_LIST_rec.last_updated_by) THEN
698: x_return_status := FND_API.G_RET_STS_ERROR;
699: END IF;
700: END IF;
701:
703: ( p_PRICE_LIST_rec.last_update_date <>
704: p_old_PRICE_LIST_rec.last_update_date OR
705: p_old_PRICE_LIST_rec.last_update_date IS NULL )
706: THEN
707: IF NOT QP_Validate.Last_Update_Date(p_PRICE_LIST_rec.last_update_date) THEN
708: x_return_status := FND_API.G_RET_STS_ERROR;
709: END IF;
710: END IF;
711:
713: ( p_PRICE_LIST_rec.last_update_login <>
714: p_old_PRICE_LIST_rec.last_update_login OR
715: p_old_PRICE_LIST_rec.last_update_login IS NULL )
716: THEN
717: IF NOT QP_Validate.Last_Update_Login(p_PRICE_LIST_rec.last_update_login) THEN
718: x_return_status := FND_API.G_RET_STS_ERROR;
719: END IF;
720: END IF;
721:
723: ( p_PRICE_LIST_rec.list_header_id <>
724: p_old_PRICE_LIST_rec.list_header_id OR
725: p_old_PRICE_LIST_rec.list_header_id IS NULL )
726: THEN
727: IF NOT QP_Validate.List_Header(p_PRICE_LIST_rec.list_header_id) THEN
728: x_return_status := FND_API.G_RET_STS_ERROR;
729: END IF;
730: END IF;
731:
733: ( p_PRICE_LIST_rec.list_type_code <>
734: p_old_PRICE_LIST_rec.list_type_code OR
735: p_old_PRICE_LIST_rec.list_type_code IS NULL )
736: THEN
737: IF NOT QP_Validate.List_Type(p_PRICE_LIST_rec.list_type_code) THEN
738: x_return_status := FND_API.G_RET_STS_ERROR;
739: END IF;
740: END IF;
741:
743: ( p_PRICE_LIST_rec.version_no <>
744: p_old_PRICE_LIST_rec.version_no OR
745: p_old_PRICE_LIST_rec.version_no IS NULL )
746: THEN
747: IF NOT QP_Validate.Version(p_PRICE_LIST_rec.version_no) THEN
748: x_return_status := FND_API.G_RET_STS_ERROR;
749: END IF;
750: END IF;
751:
753: ( p_PRICE_LIST_rec.program_application_id <>
754: p_old_PRICE_LIST_rec.program_application_id OR
755: p_old_PRICE_LIST_rec.program_application_id IS NULL )
756: THEN
757: IF NOT QP_Validate.Program_Application(p_PRICE_LIST_rec.program_application_id) THEN
758: x_return_status := FND_API.G_RET_STS_ERROR;
759: END IF;
760: END IF;
761:
763: ( p_PRICE_LIST_rec.program_id <>
764: p_old_PRICE_LIST_rec.program_id OR
765: p_old_PRICE_LIST_rec.program_id IS NULL )
766: THEN
767: IF NOT QP_Validate.Program(p_PRICE_LIST_rec.program_id) THEN
768: x_return_status := FND_API.G_RET_STS_ERROR;
769: END IF;
770: END IF;
771:
773: ( p_PRICE_LIST_rec.program_update_date <>
774: p_old_PRICE_LIST_rec.program_update_date OR
775: p_old_PRICE_LIST_rec.program_update_date IS NULL )
776: THEN
777: IF NOT QP_Validate.Program_Update_Date(p_PRICE_LIST_rec.program_update_date) THEN
778: x_return_status := FND_API.G_RET_STS_ERROR;
779: END IF;
780: END IF;
781:
783: ( p_PRICE_LIST_rec.prorate_flag <>
784: p_old_PRICE_LIST_rec.prorate_flag OR
785: p_old_PRICE_LIST_rec.prorate_flag IS NULL )
786: THEN
787: IF NOT QP_Validate.Prorate(p_PRICE_LIST_rec.prorate_flag) THEN
788: x_return_status := FND_API.G_RET_STS_ERROR;
789: END IF;
790: END IF;
791:
793: ( p_PRICE_LIST_rec.request_id <>
794: p_old_PRICE_LIST_rec.request_id OR
795: p_old_PRICE_LIST_rec.request_id IS NULL )
796: THEN
797: IF NOT QP_Validate.Request(p_PRICE_LIST_rec.request_id) THEN
798: x_return_status := FND_API.G_RET_STS_ERROR;
799: END IF;
800: END IF;
801:
803: ( p_PRICE_LIST_rec.rounding_factor <>
804: p_old_PRICE_LIST_rec.rounding_factor OR
805: p_old_PRICE_LIST_rec.rounding_factor IS NULL )
806: THEN
807: IF NOT QP_Validate.Rounding_Factor(p_PRICE_LIST_rec.rounding_factor) THEN
808: x_return_status := FND_API.G_RET_STS_ERROR;
809: END IF;
810: END IF;
811:
813: ( p_PRICE_LIST_rec.ship_method_code <>
814: p_old_PRICE_LIST_rec.ship_method_code OR
815: p_old_PRICE_LIST_rec.ship_method_code IS NULL )
816: THEN
817: IF NOT QP_Validate.Ship_Method(p_PRICE_LIST_rec.ship_method_code) THEN
818: x_return_status := FND_API.G_RET_STS_ERROR;
819: END IF;
820: END IF;
821:
823: ( p_PRICE_LIST_rec.start_date_active <>
824: p_old_PRICE_LIST_rec.start_date_active OR
825: p_old_PRICE_LIST_rec.start_date_active IS NULL )
826: THEN
827: IF NOT QP_Validate.Start_Date_Active(p_PRICE_LIST_rec.start_date_active, p_PRICE_LIST_rec.end_date_active) THEN
828: x_return_status := FND_API.G_RET_STS_ERROR;
829: END IF;
830:
831:
835: ( p_PRICE_LIST_rec.terms_id <>
836: p_old_PRICE_LIST_rec.terms_id OR
837: p_old_PRICE_LIST_rec.terms_id IS NULL )
838: THEN
839: IF NOT QP_Validate.Terms(p_PRICE_LIST_rec.terms_id) THEN
840: x_return_status := FND_API.G_RET_STS_ERROR;
841: END IF;
842: END IF;
843:
846: (p_PRICE_LIST_rec.currency_header_id <>
847: p_old_PRICE_LIST_rec.currency_header_id OR
848: p_old_PRICE_LIST_rec.currency_header_id IS NULL)
849: THEN
850: IF NOT QP_Validate.currency_header(p_PRICE_LIST_rec.currency_header_id) THEN
851: x_return_status := FND_API.G_RET_STS_ERROR;
852: END IF;
853: END IF;
854:
857: (p_PRICE_LIST_rec.pte_code <>
858: p_old_PRICE_LIST_rec.pte_code OR
859: p_old_PRICE_LIST_rec.pte_code IS NULL)
860: THEN
861: IF NOT QP_Validate.pte(p_PRICE_LIST_rec.pte_code) THEN
862: x_return_status := FND_API.G_RET_STS_ERROR;
863: END IF;
864: END IF;
865:
868: (p_PRICE_LIST_rec.LIST_SOURCE_CODE <>
869: p_old_PRICE_LIST_rec.LIST_SOURCE_CODE OR
870: p_old_PRICE_LIST_rec.LIST_SOURCE_CODE IS NULL)
871: THEN
872: IF NOT QP_Validate.list_source_code(p_PRICE_LIST_rec.LIST_SOURCE_CODE) THEN
873: x_return_status := FND_API.G_RET_STS_ERROR;
874: END IF;
875:
876: END IF;
880: (p_PRICE_LIST_rec.ORIG_SYSTEM_HEADER_REF <>
881: p_old_PRICE_LIST_rec.ORIG_SYSTEM_HEADER_REF OR
882: p_old_PRICE_LIST_rec.ORIG_SYSTEM_HEADER_REF IS NULL)
883: THEN
884: IF NOT QP_Validate.orig_system_header_ref(p_PRICE_LIST_rec.ORIG_SYSTEM_HEADER_REF) THEN
885: x_return_status := FND_API.G_RET_STS_ERROR;
886: END IF;
887:
888: END IF;
891: (p_PRICE_LIST_rec.SOURCE_SYSTEM_CODE <>
892: p_old_PRICE_LIST_rec.SOURCE_SYSTEM_CODE OR
893: p_old_PRICE_LIST_rec.SOURCE_SYSTEM_CODE IS NULL)
894: THEN
895: IF NOT QP_Validate.Source_System(p_PRICE_LIST_rec.SOURCE_SYSTEM_CODE) THEN
896: x_return_status := FND_API.G_RET_STS_ERROR;
897: END IF;
898: END IF;
899:
901: (p_PRICE_LIST_rec.SHAREABLE_FLAG <>
902: p_old_PRICE_LIST_rec.SHAREABLE_FLAG OR
903: p_old_PRICE_LIST_rec.SHAREABLE_FLAG IS NULL)
904: THEN
905: IF NOT QP_Validate.shareable_flag(p_PRICE_LIST_rec.SHAREABLE_FLAG) THEN
906: x_return_status := FND_API.G_RET_STS_ERROR;
907: END IF;
908: END IF;
909:
911: (p_PRICE_LIST_rec.SOLD_TO_ORG_ID <>
912: p_old_PRICE_LIST_rec.SOLD_TO_ORG_ID OR
913: p_old_PRICE_LIST_rec.SOLD_TO_ORG_ID IS NULL)
914: THEN
915: IF NOT QP_Validate.sold_to_org_id(p_PRICE_LIST_rec.SOLD_TO_ORG_ID) THEN
916: x_return_status := FND_API.G_RET_STS_ERROR;
917: END IF;
918: END IF;
919:
921: (p_PRICE_LIST_rec.locked_from_list_header_id <>
922: p_old_PRICE_LIST_rec.locked_from_list_header_id OR
923: p_old_PRICE_LIST_rec.locked_from_list_header_id IS NULL)
924: THEN
925: IF NOT QP_Validate.locked_from_list_header_id(p_PRICE_LIST_rec.locked_from_list_header_id) THEN
926: x_return_status := FND_API.G_RET_STS_ERROR;
927: END IF;
928: END IF;
929:
932: (p_PRICE_LIST_rec.org_id <>
933: p_old_PRICE_LIST_rec.org_id OR
934: p_old_PRICE_LIST_rec.org_id IS NULL)
935: THEN
936: IF NOT QP_Validate.org_id(p_PRICE_LIST_rec.org_id) THEN
937: x_return_status := FND_API.G_RET_STS_ERROR;
938: END IF;
939: END IF;
940:
1074: */
1075:
1076: -- Validate descriptive flexfield.
1077:
1078: IF NOT QP_Validate.Desc_Flex( 'PRICE_LIST' ) THEN
1079: x_return_status := FND_API.G_RET_STS_ERROR;
1080: END IF;
1081:
1082: END IF;
1148: END IF;
1149:
1150: END Entity_Delete;
1151:
1152: END QP_Validate_Price_List;