156:
157: -- Procedure Clear_Dependent_Attr
158:
159: PROCEDURE Clear_Dependent_Attr
160: ( p_attr_id IN NUMBER := FND_API.G_MISS_NUM
161: , p_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type
162: , p_old_LIMITS_rec IN QP_Limits_PUB.Limits_Rec_Type := QP_Limits_PUB.G_MISS_LIMITS_REC
163: , x_LIMITS_rec OUT NOCOPY /* file.sql.39 change */ QP_Limits_PUB.Limits_Rec_Type
164: )
174:
175: -- If attr_id is missing compare old and new records and for
176: -- every changed attribute clear its dependent fields.
177:
178: IF p_attr_id = FND_API.G_MISS_NUM THEN
179:
180: IF NOT QP_GLOBALS.Equal(p_LIMITS_rec.amount, p_old_LIMITS_rec.amount)
181: THEN
182: l_index := l_index + 1;
810: IS
811: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
812: BEGIN
813:
814: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
815: l_LIMITS_rec.amount := p_old_LIMITS_rec.amount;
816: END IF;
817:
818: IF l_LIMITS_rec.attribute1 = FND_API.G_MISS_CHAR THEN
814: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
815: l_LIMITS_rec.amount := p_old_LIMITS_rec.amount;
816: END IF;
817:
818: IF l_LIMITS_rec.attribute1 = FND_API.G_MISS_CHAR THEN
819: l_LIMITS_rec.attribute1 := p_old_LIMITS_rec.attribute1;
820: END IF;
821:
822: IF l_LIMITS_rec.attribute10 = FND_API.G_MISS_CHAR THEN
818: IF l_LIMITS_rec.attribute1 = FND_API.G_MISS_CHAR THEN
819: l_LIMITS_rec.attribute1 := p_old_LIMITS_rec.attribute1;
820: END IF;
821:
822: IF l_LIMITS_rec.attribute10 = FND_API.G_MISS_CHAR THEN
823: l_LIMITS_rec.attribute10 := p_old_LIMITS_rec.attribute10;
824: END IF;
825:
826: IF l_LIMITS_rec.attribute11 = FND_API.G_MISS_CHAR THEN
822: IF l_LIMITS_rec.attribute10 = FND_API.G_MISS_CHAR THEN
823: l_LIMITS_rec.attribute10 := p_old_LIMITS_rec.attribute10;
824: END IF;
825:
826: IF l_LIMITS_rec.attribute11 = FND_API.G_MISS_CHAR THEN
827: l_LIMITS_rec.attribute11 := p_old_LIMITS_rec.attribute11;
828: END IF;
829:
830: IF l_LIMITS_rec.attribute12 = FND_API.G_MISS_CHAR THEN
826: IF l_LIMITS_rec.attribute11 = FND_API.G_MISS_CHAR THEN
827: l_LIMITS_rec.attribute11 := p_old_LIMITS_rec.attribute11;
828: END IF;
829:
830: IF l_LIMITS_rec.attribute12 = FND_API.G_MISS_CHAR THEN
831: l_LIMITS_rec.attribute12 := p_old_LIMITS_rec.attribute12;
832: END IF;
833:
834: IF l_LIMITS_rec.attribute13 = FND_API.G_MISS_CHAR THEN
830: IF l_LIMITS_rec.attribute12 = FND_API.G_MISS_CHAR THEN
831: l_LIMITS_rec.attribute12 := p_old_LIMITS_rec.attribute12;
832: END IF;
833:
834: IF l_LIMITS_rec.attribute13 = FND_API.G_MISS_CHAR THEN
835: l_LIMITS_rec.attribute13 := p_old_LIMITS_rec.attribute13;
836: END IF;
837:
838: IF l_LIMITS_rec.attribute14 = FND_API.G_MISS_CHAR THEN
834: IF l_LIMITS_rec.attribute13 = FND_API.G_MISS_CHAR THEN
835: l_LIMITS_rec.attribute13 := p_old_LIMITS_rec.attribute13;
836: END IF;
837:
838: IF l_LIMITS_rec.attribute14 = FND_API.G_MISS_CHAR THEN
839: l_LIMITS_rec.attribute14 := p_old_LIMITS_rec.attribute14;
840: END IF;
841:
842: IF l_LIMITS_rec.attribute15 = FND_API.G_MISS_CHAR THEN
838: IF l_LIMITS_rec.attribute14 = FND_API.G_MISS_CHAR THEN
839: l_LIMITS_rec.attribute14 := p_old_LIMITS_rec.attribute14;
840: END IF;
841:
842: IF l_LIMITS_rec.attribute15 = FND_API.G_MISS_CHAR THEN
843: l_LIMITS_rec.attribute15 := p_old_LIMITS_rec.attribute15;
844: END IF;
845:
846: IF l_LIMITS_rec.attribute2 = FND_API.G_MISS_CHAR THEN
842: IF l_LIMITS_rec.attribute15 = FND_API.G_MISS_CHAR THEN
843: l_LIMITS_rec.attribute15 := p_old_LIMITS_rec.attribute15;
844: END IF;
845:
846: IF l_LIMITS_rec.attribute2 = FND_API.G_MISS_CHAR THEN
847: l_LIMITS_rec.attribute2 := p_old_LIMITS_rec.attribute2;
848: END IF;
849:
850: IF l_LIMITS_rec.attribute3 = FND_API.G_MISS_CHAR THEN
846: IF l_LIMITS_rec.attribute2 = FND_API.G_MISS_CHAR THEN
847: l_LIMITS_rec.attribute2 := p_old_LIMITS_rec.attribute2;
848: END IF;
849:
850: IF l_LIMITS_rec.attribute3 = FND_API.G_MISS_CHAR THEN
851: l_LIMITS_rec.attribute3 := p_old_LIMITS_rec.attribute3;
852: END IF;
853:
854: IF l_LIMITS_rec.attribute4 = FND_API.G_MISS_CHAR THEN
850: IF l_LIMITS_rec.attribute3 = FND_API.G_MISS_CHAR THEN
851: l_LIMITS_rec.attribute3 := p_old_LIMITS_rec.attribute3;
852: END IF;
853:
854: IF l_LIMITS_rec.attribute4 = FND_API.G_MISS_CHAR THEN
855: l_LIMITS_rec.attribute4 := p_old_LIMITS_rec.attribute4;
856: END IF;
857:
858: IF l_LIMITS_rec.attribute5 = FND_API.G_MISS_CHAR THEN
854: IF l_LIMITS_rec.attribute4 = FND_API.G_MISS_CHAR THEN
855: l_LIMITS_rec.attribute4 := p_old_LIMITS_rec.attribute4;
856: END IF;
857:
858: IF l_LIMITS_rec.attribute5 = FND_API.G_MISS_CHAR THEN
859: l_LIMITS_rec.attribute5 := p_old_LIMITS_rec.attribute5;
860: END IF;
861:
862: IF l_LIMITS_rec.attribute6 = FND_API.G_MISS_CHAR THEN
858: IF l_LIMITS_rec.attribute5 = FND_API.G_MISS_CHAR THEN
859: l_LIMITS_rec.attribute5 := p_old_LIMITS_rec.attribute5;
860: END IF;
861:
862: IF l_LIMITS_rec.attribute6 = FND_API.G_MISS_CHAR THEN
863: l_LIMITS_rec.attribute6 := p_old_LIMITS_rec.attribute6;
864: END IF;
865:
866: IF l_LIMITS_rec.attribute7 = FND_API.G_MISS_CHAR THEN
862: IF l_LIMITS_rec.attribute6 = FND_API.G_MISS_CHAR THEN
863: l_LIMITS_rec.attribute6 := p_old_LIMITS_rec.attribute6;
864: END IF;
865:
866: IF l_LIMITS_rec.attribute7 = FND_API.G_MISS_CHAR THEN
867: l_LIMITS_rec.attribute7 := p_old_LIMITS_rec.attribute7;
868: END IF;
869:
870: IF l_LIMITS_rec.attribute8 = FND_API.G_MISS_CHAR THEN
866: IF l_LIMITS_rec.attribute7 = FND_API.G_MISS_CHAR THEN
867: l_LIMITS_rec.attribute7 := p_old_LIMITS_rec.attribute7;
868: END IF;
869:
870: IF l_LIMITS_rec.attribute8 = FND_API.G_MISS_CHAR THEN
871: l_LIMITS_rec.attribute8 := p_old_LIMITS_rec.attribute8;
872: END IF;
873:
874: IF l_LIMITS_rec.attribute9 = FND_API.G_MISS_CHAR THEN
870: IF l_LIMITS_rec.attribute8 = FND_API.G_MISS_CHAR THEN
871: l_LIMITS_rec.attribute8 := p_old_LIMITS_rec.attribute8;
872: END IF;
873:
874: IF l_LIMITS_rec.attribute9 = FND_API.G_MISS_CHAR THEN
875: l_LIMITS_rec.attribute9 := p_old_LIMITS_rec.attribute9;
876: END IF;
877:
878: IF l_LIMITS_rec.basis = FND_API.G_MISS_CHAR THEN
874: IF l_LIMITS_rec.attribute9 = FND_API.G_MISS_CHAR THEN
875: l_LIMITS_rec.attribute9 := p_old_LIMITS_rec.attribute9;
876: END IF;
877:
878: IF l_LIMITS_rec.basis = FND_API.G_MISS_CHAR THEN
879: l_LIMITS_rec.basis := p_old_LIMITS_rec.basis;
880: END IF;
881:
882: IF l_LIMITS_rec.context = FND_API.G_MISS_CHAR THEN
878: IF l_LIMITS_rec.basis = FND_API.G_MISS_CHAR THEN
879: l_LIMITS_rec.basis := p_old_LIMITS_rec.basis;
880: END IF;
881:
882: IF l_LIMITS_rec.context = FND_API.G_MISS_CHAR THEN
883: l_LIMITS_rec.context := p_old_LIMITS_rec.context;
884: END IF;
885:
886: IF l_LIMITS_rec.created_by = FND_API.G_MISS_NUM THEN
882: IF l_LIMITS_rec.context = FND_API.G_MISS_CHAR THEN
883: l_LIMITS_rec.context := p_old_LIMITS_rec.context;
884: END IF;
885:
886: IF l_LIMITS_rec.created_by = FND_API.G_MISS_NUM THEN
887: l_LIMITS_rec.created_by := p_old_LIMITS_rec.created_by;
888: END IF;
889:
890: IF l_LIMITS_rec.creation_date = FND_API.G_MISS_DATE THEN
886: IF l_LIMITS_rec.created_by = FND_API.G_MISS_NUM THEN
887: l_LIMITS_rec.created_by := p_old_LIMITS_rec.created_by;
888: END IF;
889:
890: IF l_LIMITS_rec.creation_date = FND_API.G_MISS_DATE THEN
891: l_LIMITS_rec.creation_date := p_old_LIMITS_rec.creation_date;
892: END IF;
893:
894: IF l_LIMITS_rec.last_updated_by = FND_API.G_MISS_NUM THEN
890: IF l_LIMITS_rec.creation_date = FND_API.G_MISS_DATE THEN
891: l_LIMITS_rec.creation_date := p_old_LIMITS_rec.creation_date;
892: END IF;
893:
894: IF l_LIMITS_rec.last_updated_by = FND_API.G_MISS_NUM THEN
895: l_LIMITS_rec.last_updated_by := p_old_LIMITS_rec.last_updated_by;
896: END IF;
897:
898: IF l_LIMITS_rec.last_update_date = FND_API.G_MISS_DATE THEN
894: IF l_LIMITS_rec.last_updated_by = FND_API.G_MISS_NUM THEN
895: l_LIMITS_rec.last_updated_by := p_old_LIMITS_rec.last_updated_by;
896: END IF;
897:
898: IF l_LIMITS_rec.last_update_date = FND_API.G_MISS_DATE THEN
899: l_LIMITS_rec.last_update_date := p_old_LIMITS_rec.last_update_date;
900: END IF;
901:
902: IF l_LIMITS_rec.last_update_login = FND_API.G_MISS_NUM THEN
898: IF l_LIMITS_rec.last_update_date = FND_API.G_MISS_DATE THEN
899: l_LIMITS_rec.last_update_date := p_old_LIMITS_rec.last_update_date;
900: END IF;
901:
902: IF l_LIMITS_rec.last_update_login = FND_API.G_MISS_NUM THEN
903: l_LIMITS_rec.last_update_login := p_old_LIMITS_rec.last_update_login;
904: END IF;
905:
906: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
902: IF l_LIMITS_rec.last_update_login = FND_API.G_MISS_NUM THEN
903: l_LIMITS_rec.last_update_login := p_old_LIMITS_rec.last_update_login;
904: END IF;
905:
906: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
907: l_LIMITS_rec.limit_exceed_action_code := p_old_LIMITS_rec.limit_exceed_action_code;
908: END IF;
909:
910: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
906: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
907: l_LIMITS_rec.limit_exceed_action_code := p_old_LIMITS_rec.limit_exceed_action_code;
908: END IF;
909:
910: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
911: l_LIMITS_rec.limit_id := p_old_LIMITS_rec.limit_id;
912: END IF;
913:
914: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
910: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
911: l_LIMITS_rec.limit_id := p_old_LIMITS_rec.limit_id;
912: END IF;
913:
914: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
915: l_LIMITS_rec.limit_level_code := p_old_LIMITS_rec.limit_level_code;
916: END IF;
917:
918: IF l_LIMITS_rec.limit_number = FND_API.G_MISS_NUM THEN
914: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
915: l_LIMITS_rec.limit_level_code := p_old_LIMITS_rec.limit_level_code;
916: END IF;
917:
918: IF l_LIMITS_rec.limit_number = FND_API.G_MISS_NUM THEN
919: l_LIMITS_rec.limit_number := p_old_LIMITS_rec.limit_number;
920: END IF;
921:
922: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
918: IF l_LIMITS_rec.limit_number = FND_API.G_MISS_NUM THEN
919: l_LIMITS_rec.limit_number := p_old_LIMITS_rec.limit_number;
920: END IF;
921:
922: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
923: l_LIMITS_rec.list_header_id := p_old_LIMITS_rec.list_header_id;
924: END IF;
925:
926: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
922: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
923: l_LIMITS_rec.list_header_id := p_old_LIMITS_rec.list_header_id;
924: END IF;
925:
926: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
927: l_LIMITS_rec.list_line_id := p_old_LIMITS_rec.list_line_id;
928: END IF;
929:
930: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
926: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
927: l_LIMITS_rec.list_line_id := p_old_LIMITS_rec.list_line_id;
928: END IF;
929:
930: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
931: l_LIMITS_rec.organization_flag := p_old_LIMITS_rec.organization_flag;
932: END IF;
933:
934: IF l_LIMITS_rec.program_application_id = FND_API.G_MISS_NUM THEN
930: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
931: l_LIMITS_rec.organization_flag := p_old_LIMITS_rec.organization_flag;
932: END IF;
933:
934: IF l_LIMITS_rec.program_application_id = FND_API.G_MISS_NUM THEN
935: l_LIMITS_rec.program_application_id := p_old_LIMITS_rec.program_application_id;
936: END IF;
937:
938: IF l_LIMITS_rec.program_id = FND_API.G_MISS_NUM THEN
934: IF l_LIMITS_rec.program_application_id = FND_API.G_MISS_NUM THEN
935: l_LIMITS_rec.program_application_id := p_old_LIMITS_rec.program_application_id;
936: END IF;
937:
938: IF l_LIMITS_rec.program_id = FND_API.G_MISS_NUM THEN
939: l_LIMITS_rec.program_id := p_old_LIMITS_rec.program_id;
940: END IF;
941:
942: IF l_LIMITS_rec.program_update_date = FND_API.G_MISS_DATE THEN
938: IF l_LIMITS_rec.program_id = FND_API.G_MISS_NUM THEN
939: l_LIMITS_rec.program_id := p_old_LIMITS_rec.program_id;
940: END IF;
941:
942: IF l_LIMITS_rec.program_update_date = FND_API.G_MISS_DATE THEN
943: l_LIMITS_rec.program_update_date := p_old_LIMITS_rec.program_update_date;
944: END IF;
945:
946: IF l_LIMITS_rec.request_id = FND_API.G_MISS_NUM THEN
942: IF l_LIMITS_rec.program_update_date = FND_API.G_MISS_DATE THEN
943: l_LIMITS_rec.program_update_date := p_old_LIMITS_rec.program_update_date;
944: END IF;
945:
946: IF l_LIMITS_rec.request_id = FND_API.G_MISS_NUM THEN
947: l_LIMITS_rec.request_id := p_old_LIMITS_rec.request_id;
948: END IF;
949:
950: IF l_LIMITS_rec.limit_hold_flag = FND_API.G_MISS_CHAR THEN
946: IF l_LIMITS_rec.request_id = FND_API.G_MISS_NUM THEN
947: l_LIMITS_rec.request_id := p_old_LIMITS_rec.request_id;
948: END IF;
949:
950: IF l_LIMITS_rec.limit_hold_flag = FND_API.G_MISS_CHAR THEN
951: l_LIMITS_rec.limit_hold_flag := p_old_LIMITS_rec.limit_hold_flag;
952: END IF;
953:
954: IF l_LIMITS_rec.multival_attr1_type = FND_API.G_MISS_CHAR THEN
950: IF l_LIMITS_rec.limit_hold_flag = FND_API.G_MISS_CHAR THEN
951: l_LIMITS_rec.limit_hold_flag := p_old_LIMITS_rec.limit_hold_flag;
952: END IF;
953:
954: IF l_LIMITS_rec.multival_attr1_type = FND_API.G_MISS_CHAR THEN
955: l_LIMITS_rec.multival_attr1_type := p_old_LIMITS_rec.multival_attr1_type;
956: END IF;
957:
958: IF l_LIMITS_rec.multival_attr1_context = FND_API.G_MISS_CHAR THEN
954: IF l_LIMITS_rec.multival_attr1_type = FND_API.G_MISS_CHAR THEN
955: l_LIMITS_rec.multival_attr1_type := p_old_LIMITS_rec.multival_attr1_type;
956: END IF;
957:
958: IF l_LIMITS_rec.multival_attr1_context = FND_API.G_MISS_CHAR THEN
959: l_LIMITS_rec.multival_attr1_context := p_old_LIMITS_rec.multival_attr1_context;
960: END IF;
961:
962: IF l_LIMITS_rec.multival_attribute1 = FND_API.G_MISS_CHAR THEN
958: IF l_LIMITS_rec.multival_attr1_context = FND_API.G_MISS_CHAR THEN
959: l_LIMITS_rec.multival_attr1_context := p_old_LIMITS_rec.multival_attr1_context;
960: END IF;
961:
962: IF l_LIMITS_rec.multival_attribute1 = FND_API.G_MISS_CHAR THEN
963: l_LIMITS_rec.multival_attribute1 := p_old_LIMITS_rec.multival_attribute1;
964: END IF;
965:
966: IF l_LIMITS_rec.multival_attr1_datatype = FND_API.G_MISS_CHAR THEN
962: IF l_LIMITS_rec.multival_attribute1 = FND_API.G_MISS_CHAR THEN
963: l_LIMITS_rec.multival_attribute1 := p_old_LIMITS_rec.multival_attribute1;
964: END IF;
965:
966: IF l_LIMITS_rec.multival_attr1_datatype = FND_API.G_MISS_CHAR THEN
967: l_LIMITS_rec.multival_attr1_datatype := p_old_LIMITS_rec.multival_attr1_datatype;
968: END IF;
969:
970: IF l_LIMITS_rec.multival_attr2_type = FND_API.G_MISS_CHAR THEN
966: IF l_LIMITS_rec.multival_attr1_datatype = FND_API.G_MISS_CHAR THEN
967: l_LIMITS_rec.multival_attr1_datatype := p_old_LIMITS_rec.multival_attr1_datatype;
968: END IF;
969:
970: IF l_LIMITS_rec.multival_attr2_type = FND_API.G_MISS_CHAR THEN
971: l_LIMITS_rec.multival_attr2_type := p_old_LIMITS_rec.multival_attr2_type;
972: END IF;
973:
974: IF l_LIMITS_rec.multival_attr2_context = FND_API.G_MISS_CHAR THEN
970: IF l_LIMITS_rec.multival_attr2_type = FND_API.G_MISS_CHAR THEN
971: l_LIMITS_rec.multival_attr2_type := p_old_LIMITS_rec.multival_attr2_type;
972: END IF;
973:
974: IF l_LIMITS_rec.multival_attr2_context = FND_API.G_MISS_CHAR THEN
975: l_LIMITS_rec.multival_attr2_context := p_old_LIMITS_rec.multival_attr2_context;
976: END IF;
977:
978: IF l_LIMITS_rec.multival_attribute2 = FND_API.G_MISS_CHAR THEN
974: IF l_LIMITS_rec.multival_attr2_context = FND_API.G_MISS_CHAR THEN
975: l_LIMITS_rec.multival_attr2_context := p_old_LIMITS_rec.multival_attr2_context;
976: END IF;
977:
978: IF l_LIMITS_rec.multival_attribute2 = FND_API.G_MISS_CHAR THEN
979: l_LIMITS_rec.multival_attribute2 := p_old_LIMITS_rec.multival_attribute2;
980: END IF;
981:
982: IF l_LIMITS_rec.multival_attr2_datatype = FND_API.G_MISS_CHAR THEN
978: IF l_LIMITS_rec.multival_attribute2 = FND_API.G_MISS_CHAR THEN
979: l_LIMITS_rec.multival_attribute2 := p_old_LIMITS_rec.multival_attribute2;
980: END IF;
981:
982: IF l_LIMITS_rec.multival_attr2_datatype = FND_API.G_MISS_CHAR THEN
983: l_LIMITS_rec.multival_attr2_datatype := p_old_LIMITS_rec.multival_attr2_datatype;
984: END IF;
985:
986: RETURN l_LIMITS_rec;
995: IS
996: l_LIMITS_rec QP_Limits_PUB.Limits_Rec_Type := p_LIMITS_rec;
997: BEGIN
998:
999: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
1000: l_LIMITS_rec.amount := NULL;
1001: END IF;
1002:
1003: IF l_LIMITS_rec.attribute1 = FND_API.G_MISS_CHAR THEN
999: IF l_LIMITS_rec.amount = FND_API.G_MISS_NUM THEN
1000: l_LIMITS_rec.amount := NULL;
1001: END IF;
1002:
1003: IF l_LIMITS_rec.attribute1 = FND_API.G_MISS_CHAR THEN
1004: l_LIMITS_rec.attribute1 := NULL;
1005: END IF;
1006:
1007: IF l_LIMITS_rec.attribute10 = FND_API.G_MISS_CHAR THEN
1003: IF l_LIMITS_rec.attribute1 = FND_API.G_MISS_CHAR THEN
1004: l_LIMITS_rec.attribute1 := NULL;
1005: END IF;
1006:
1007: IF l_LIMITS_rec.attribute10 = FND_API.G_MISS_CHAR THEN
1008: l_LIMITS_rec.attribute10 := NULL;
1009: END IF;
1010:
1011: IF l_LIMITS_rec.attribute11 = FND_API.G_MISS_CHAR THEN
1007: IF l_LIMITS_rec.attribute10 = FND_API.G_MISS_CHAR THEN
1008: l_LIMITS_rec.attribute10 := NULL;
1009: END IF;
1010:
1011: IF l_LIMITS_rec.attribute11 = FND_API.G_MISS_CHAR THEN
1012: l_LIMITS_rec.attribute11 := NULL;
1013: END IF;
1014:
1015: IF l_LIMITS_rec.attribute12 = FND_API.G_MISS_CHAR THEN
1011: IF l_LIMITS_rec.attribute11 = FND_API.G_MISS_CHAR THEN
1012: l_LIMITS_rec.attribute11 := NULL;
1013: END IF;
1014:
1015: IF l_LIMITS_rec.attribute12 = FND_API.G_MISS_CHAR THEN
1016: l_LIMITS_rec.attribute12 := NULL;
1017: END IF;
1018:
1019: IF l_LIMITS_rec.attribute13 = FND_API.G_MISS_CHAR THEN
1015: IF l_LIMITS_rec.attribute12 = FND_API.G_MISS_CHAR THEN
1016: l_LIMITS_rec.attribute12 := NULL;
1017: END IF;
1018:
1019: IF l_LIMITS_rec.attribute13 = FND_API.G_MISS_CHAR THEN
1020: l_LIMITS_rec.attribute13 := NULL;
1021: END IF;
1022:
1023: IF l_LIMITS_rec.attribute14 = FND_API.G_MISS_CHAR THEN
1019: IF l_LIMITS_rec.attribute13 = FND_API.G_MISS_CHAR THEN
1020: l_LIMITS_rec.attribute13 := NULL;
1021: END IF;
1022:
1023: IF l_LIMITS_rec.attribute14 = FND_API.G_MISS_CHAR THEN
1024: l_LIMITS_rec.attribute14 := NULL;
1025: END IF;
1026:
1027: IF l_LIMITS_rec.attribute15 = FND_API.G_MISS_CHAR THEN
1023: IF l_LIMITS_rec.attribute14 = FND_API.G_MISS_CHAR THEN
1024: l_LIMITS_rec.attribute14 := NULL;
1025: END IF;
1026:
1027: IF l_LIMITS_rec.attribute15 = FND_API.G_MISS_CHAR THEN
1028: l_LIMITS_rec.attribute15 := NULL;
1029: END IF;
1030:
1031: IF l_LIMITS_rec.attribute2 = FND_API.G_MISS_CHAR THEN
1027: IF l_LIMITS_rec.attribute15 = FND_API.G_MISS_CHAR THEN
1028: l_LIMITS_rec.attribute15 := NULL;
1029: END IF;
1030:
1031: IF l_LIMITS_rec.attribute2 = FND_API.G_MISS_CHAR THEN
1032: l_LIMITS_rec.attribute2 := NULL;
1033: END IF;
1034:
1035: IF l_LIMITS_rec.attribute3 = FND_API.G_MISS_CHAR THEN
1031: IF l_LIMITS_rec.attribute2 = FND_API.G_MISS_CHAR THEN
1032: l_LIMITS_rec.attribute2 := NULL;
1033: END IF;
1034:
1035: IF l_LIMITS_rec.attribute3 = FND_API.G_MISS_CHAR THEN
1036: l_LIMITS_rec.attribute3 := NULL;
1037: END IF;
1038:
1039: IF l_LIMITS_rec.attribute4 = FND_API.G_MISS_CHAR THEN
1035: IF l_LIMITS_rec.attribute3 = FND_API.G_MISS_CHAR THEN
1036: l_LIMITS_rec.attribute3 := NULL;
1037: END IF;
1038:
1039: IF l_LIMITS_rec.attribute4 = FND_API.G_MISS_CHAR THEN
1040: l_LIMITS_rec.attribute4 := NULL;
1041: END IF;
1042:
1043: IF l_LIMITS_rec.attribute5 = FND_API.G_MISS_CHAR THEN
1039: IF l_LIMITS_rec.attribute4 = FND_API.G_MISS_CHAR THEN
1040: l_LIMITS_rec.attribute4 := NULL;
1041: END IF;
1042:
1043: IF l_LIMITS_rec.attribute5 = FND_API.G_MISS_CHAR THEN
1044: l_LIMITS_rec.attribute5 := NULL;
1045: END IF;
1046:
1047: IF l_LIMITS_rec.attribute6 = FND_API.G_MISS_CHAR THEN
1043: IF l_LIMITS_rec.attribute5 = FND_API.G_MISS_CHAR THEN
1044: l_LIMITS_rec.attribute5 := NULL;
1045: END IF;
1046:
1047: IF l_LIMITS_rec.attribute6 = FND_API.G_MISS_CHAR THEN
1048: l_LIMITS_rec.attribute6 := NULL;
1049: END IF;
1050:
1051: IF l_LIMITS_rec.attribute7 = FND_API.G_MISS_CHAR THEN
1047: IF l_LIMITS_rec.attribute6 = FND_API.G_MISS_CHAR THEN
1048: l_LIMITS_rec.attribute6 := NULL;
1049: END IF;
1050:
1051: IF l_LIMITS_rec.attribute7 = FND_API.G_MISS_CHAR THEN
1052: l_LIMITS_rec.attribute7 := NULL;
1053: END IF;
1054:
1055: IF l_LIMITS_rec.attribute8 = FND_API.G_MISS_CHAR THEN
1051: IF l_LIMITS_rec.attribute7 = FND_API.G_MISS_CHAR THEN
1052: l_LIMITS_rec.attribute7 := NULL;
1053: END IF;
1054:
1055: IF l_LIMITS_rec.attribute8 = FND_API.G_MISS_CHAR THEN
1056: l_LIMITS_rec.attribute8 := NULL;
1057: END IF;
1058:
1059: IF l_LIMITS_rec.attribute9 = FND_API.G_MISS_CHAR THEN
1055: IF l_LIMITS_rec.attribute8 = FND_API.G_MISS_CHAR THEN
1056: l_LIMITS_rec.attribute8 := NULL;
1057: END IF;
1058:
1059: IF l_LIMITS_rec.attribute9 = FND_API.G_MISS_CHAR THEN
1060: l_LIMITS_rec.attribute9 := NULL;
1061: END IF;
1062:
1063: IF l_LIMITS_rec.basis = FND_API.G_MISS_CHAR THEN
1059: IF l_LIMITS_rec.attribute9 = FND_API.G_MISS_CHAR THEN
1060: l_LIMITS_rec.attribute9 := NULL;
1061: END IF;
1062:
1063: IF l_LIMITS_rec.basis = FND_API.G_MISS_CHAR THEN
1064: l_LIMITS_rec.basis := NULL;
1065: END IF;
1066:
1067: IF l_LIMITS_rec.context = FND_API.G_MISS_CHAR THEN
1063: IF l_LIMITS_rec.basis = FND_API.G_MISS_CHAR THEN
1064: l_LIMITS_rec.basis := NULL;
1065: END IF;
1066:
1067: IF l_LIMITS_rec.context = FND_API.G_MISS_CHAR THEN
1068: l_LIMITS_rec.context := NULL;
1069: END IF;
1070:
1071: IF l_LIMITS_rec.created_by = FND_API.G_MISS_NUM THEN
1067: IF l_LIMITS_rec.context = FND_API.G_MISS_CHAR THEN
1068: l_LIMITS_rec.context := NULL;
1069: END IF;
1070:
1071: IF l_LIMITS_rec.created_by = FND_API.G_MISS_NUM THEN
1072: l_LIMITS_rec.created_by := NULL;
1073: END IF;
1074:
1075: IF l_LIMITS_rec.creation_date = FND_API.G_MISS_DATE THEN
1071: IF l_LIMITS_rec.created_by = FND_API.G_MISS_NUM THEN
1072: l_LIMITS_rec.created_by := NULL;
1073: END IF;
1074:
1075: IF l_LIMITS_rec.creation_date = FND_API.G_MISS_DATE THEN
1076: l_LIMITS_rec.creation_date := NULL;
1077: END IF;
1078:
1079: IF l_LIMITS_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1075: IF l_LIMITS_rec.creation_date = FND_API.G_MISS_DATE THEN
1076: l_LIMITS_rec.creation_date := NULL;
1077: END IF;
1078:
1079: IF l_LIMITS_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1080: l_LIMITS_rec.last_updated_by := NULL;
1081: END IF;
1082:
1083: IF l_LIMITS_rec.last_update_date = FND_API.G_MISS_DATE THEN
1079: IF l_LIMITS_rec.last_updated_by = FND_API.G_MISS_NUM THEN
1080: l_LIMITS_rec.last_updated_by := NULL;
1081: END IF;
1082:
1083: IF l_LIMITS_rec.last_update_date = FND_API.G_MISS_DATE THEN
1084: l_LIMITS_rec.last_update_date := NULL;
1085: END IF;
1086:
1087: IF l_LIMITS_rec.last_update_login = FND_API.G_MISS_NUM THEN
1083: IF l_LIMITS_rec.last_update_date = FND_API.G_MISS_DATE THEN
1084: l_LIMITS_rec.last_update_date := NULL;
1085: END IF;
1086:
1087: IF l_LIMITS_rec.last_update_login = FND_API.G_MISS_NUM THEN
1088: l_LIMITS_rec.last_update_login := NULL;
1089: END IF;
1090:
1091: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
1087: IF l_LIMITS_rec.last_update_login = FND_API.G_MISS_NUM THEN
1088: l_LIMITS_rec.last_update_login := NULL;
1089: END IF;
1090:
1091: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
1092: l_LIMITS_rec.limit_exceed_action_code := NULL;
1093: END IF;
1094:
1095: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
1091: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
1092: l_LIMITS_rec.limit_exceed_action_code := NULL;
1093: END IF;
1094:
1095: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
1096: l_LIMITS_rec.limit_id := NULL;
1097: END IF;
1098:
1099: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
1095: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
1096: l_LIMITS_rec.limit_id := NULL;
1097: END IF;
1098:
1099: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
1100: l_LIMITS_rec.limit_level_code := NULL;
1101: END IF;
1102:
1103: IF l_LIMITS_rec.limit_number = FND_API.G_MISS_NUM THEN
1099: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
1100: l_LIMITS_rec.limit_level_code := NULL;
1101: END IF;
1102:
1103: IF l_LIMITS_rec.limit_number = FND_API.G_MISS_NUM THEN
1104: l_LIMITS_rec.limit_number := NULL;
1105: END IF;
1106:
1107: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
1103: IF l_LIMITS_rec.limit_number = FND_API.G_MISS_NUM THEN
1104: l_LIMITS_rec.limit_number := NULL;
1105: END IF;
1106:
1107: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
1108: l_LIMITS_rec.list_header_id := NULL;
1109: END IF;
1110:
1111: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
1107: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
1108: l_LIMITS_rec.list_header_id := NULL;
1109: END IF;
1110:
1111: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
1112: l_LIMITS_rec.list_line_id := NULL;
1113: END IF;
1114:
1115: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
1111: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
1112: l_LIMITS_rec.list_line_id := NULL;
1113: END IF;
1114:
1115: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
1116: l_LIMITS_rec.organization_flag := NULL;
1117: END IF;
1118:
1119: IF l_LIMITS_rec.program_application_id = FND_API.G_MISS_NUM THEN
1115: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
1116: l_LIMITS_rec.organization_flag := NULL;
1117: END IF;
1118:
1119: IF l_LIMITS_rec.program_application_id = FND_API.G_MISS_NUM THEN
1120: l_LIMITS_rec.program_application_id := NULL;
1121: END IF;
1122:
1123: IF l_LIMITS_rec.program_id = FND_API.G_MISS_NUM THEN
1119: IF l_LIMITS_rec.program_application_id = FND_API.G_MISS_NUM THEN
1120: l_LIMITS_rec.program_application_id := NULL;
1121: END IF;
1122:
1123: IF l_LIMITS_rec.program_id = FND_API.G_MISS_NUM THEN
1124: l_LIMITS_rec.program_id := NULL;
1125: END IF;
1126:
1127: IF l_LIMITS_rec.program_update_date = FND_API.G_MISS_DATE THEN
1123: IF l_LIMITS_rec.program_id = FND_API.G_MISS_NUM THEN
1124: l_LIMITS_rec.program_id := NULL;
1125: END IF;
1126:
1127: IF l_LIMITS_rec.program_update_date = FND_API.G_MISS_DATE THEN
1128: l_LIMITS_rec.program_update_date := NULL;
1129: END IF;
1130:
1131: IF l_LIMITS_rec.request_id = FND_API.G_MISS_NUM THEN
1127: IF l_LIMITS_rec.program_update_date = FND_API.G_MISS_DATE THEN
1128: l_LIMITS_rec.program_update_date := NULL;
1129: END IF;
1130:
1131: IF l_LIMITS_rec.request_id = FND_API.G_MISS_NUM THEN
1132: l_LIMITS_rec.request_id := NULL;
1133: END IF;
1134:
1135: IF l_LIMITS_rec.limit_hold_flag = FND_API.G_MISS_CHAR THEN
1131: IF l_LIMITS_rec.request_id = FND_API.G_MISS_NUM THEN
1132: l_LIMITS_rec.request_id := NULL;
1133: END IF;
1134:
1135: IF l_LIMITS_rec.limit_hold_flag = FND_API.G_MISS_CHAR THEN
1136: l_LIMITS_rec.limit_hold_flag := NULL;
1137: END IF;
1138:
1139: IF l_LIMITS_rec.multival_attr1_type = FND_API.G_MISS_CHAR THEN
1135: IF l_LIMITS_rec.limit_hold_flag = FND_API.G_MISS_CHAR THEN
1136: l_LIMITS_rec.limit_hold_flag := NULL;
1137: END IF;
1138:
1139: IF l_LIMITS_rec.multival_attr1_type = FND_API.G_MISS_CHAR THEN
1140: l_LIMITS_rec.multival_attr1_type := NULL;
1141: END IF;
1142:
1143: IF l_LIMITS_rec.multival_attr1_context = FND_API.G_MISS_CHAR THEN
1139: IF l_LIMITS_rec.multival_attr1_type = FND_API.G_MISS_CHAR THEN
1140: l_LIMITS_rec.multival_attr1_type := NULL;
1141: END IF;
1142:
1143: IF l_LIMITS_rec.multival_attr1_context = FND_API.G_MISS_CHAR THEN
1144: l_LIMITS_rec.multival_attr1_context := NULL;
1145: END IF;
1146:
1147: IF l_LIMITS_rec.multival_attribute1 = FND_API.G_MISS_CHAR THEN
1143: IF l_LIMITS_rec.multival_attr1_context = FND_API.G_MISS_CHAR THEN
1144: l_LIMITS_rec.multival_attr1_context := NULL;
1145: END IF;
1146:
1147: IF l_LIMITS_rec.multival_attribute1 = FND_API.G_MISS_CHAR THEN
1148: l_LIMITS_rec.multival_attribute1 := NULL;
1149: END IF;
1150:
1151: IF l_LIMITS_rec.multival_attr1_datatype = FND_API.G_MISS_CHAR THEN
1147: IF l_LIMITS_rec.multival_attribute1 = FND_API.G_MISS_CHAR THEN
1148: l_LIMITS_rec.multival_attribute1 := NULL;
1149: END IF;
1150:
1151: IF l_LIMITS_rec.multival_attr1_datatype = FND_API.G_MISS_CHAR THEN
1152: l_LIMITS_rec.multival_attr1_datatype := NULL;
1153: END IF;
1154:
1155: IF l_LIMITS_rec.multival_attr2_type = FND_API.G_MISS_CHAR THEN
1151: IF l_LIMITS_rec.multival_attr1_datatype = FND_API.G_MISS_CHAR THEN
1152: l_LIMITS_rec.multival_attr1_datatype := NULL;
1153: END IF;
1154:
1155: IF l_LIMITS_rec.multival_attr2_type = FND_API.G_MISS_CHAR THEN
1156: l_LIMITS_rec.multival_attr2_type := NULL;
1157: END IF;
1158:
1159: IF l_LIMITS_rec.multival_attr2_context = FND_API.G_MISS_CHAR THEN
1155: IF l_LIMITS_rec.multival_attr2_type = FND_API.G_MISS_CHAR THEN
1156: l_LIMITS_rec.multival_attr2_type := NULL;
1157: END IF;
1158:
1159: IF l_LIMITS_rec.multival_attr2_context = FND_API.G_MISS_CHAR THEN
1160: l_LIMITS_rec.multival_attr2_context := NULL;
1161: END IF;
1162:
1163: IF l_LIMITS_rec.multival_attribute2 = FND_API.G_MISS_CHAR THEN
1159: IF l_LIMITS_rec.multival_attr2_context = FND_API.G_MISS_CHAR THEN
1160: l_LIMITS_rec.multival_attr2_context := NULL;
1161: END IF;
1162:
1163: IF l_LIMITS_rec.multival_attribute2 = FND_API.G_MISS_CHAR THEN
1164: l_LIMITS_rec.multival_attribute2 := NULL;
1165: END IF;
1166:
1167: IF l_LIMITS_rec.multival_attr2_datatype = FND_API.G_MISS_CHAR THEN
1163: IF l_LIMITS_rec.multival_attribute2 = FND_API.G_MISS_CHAR THEN
1164: l_LIMITS_rec.multival_attribute2 := NULL;
1165: END IF;
1166:
1167: IF l_LIMITS_rec.multival_attr2_datatype = FND_API.G_MISS_CHAR THEN
1168: l_LIMITS_rec.multival_attr2_datatype := NULL;
1169: END IF;
1170:
1171: RETURN l_LIMITS_rec;
1289: OE_MSG_PUB.Add_Exc_Msg
1290: ( G_PKG_NAME
1291: , 'UPDATE_BALANCES'
1292: );
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1294: END IF;
1295: END IF;
1296:
1297:
1308: , 'Update_Row'
1309: );
1310: END IF;
1311:
1312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1313:
1314: END Update_Row;
1315:
1316: -- Procedure Insert_Row
1465: , 'Insert_Row'
1466: );
1467: END IF;
1468:
1469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1470:
1471: END Insert_Row;
1472:
1473: -- Procedure Delete_Row
1503: , 'Delete_Row'
1504: );
1505: END IF;
1506:
1507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1508:
1509: END Delete_Row;
1510:
1511: -- Function Query_Row
1623: , 'Query_Row'
1624: );
1625: END IF;
1626:
1627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1628:
1629: END Query_Row;
1630:
1631: -- Procedure lock_Row
1825: x_LIMITS_rec := l_LIMITS_rec;
1826:
1827: -- Set return status
1828:
1829: x_return_status := FND_API.G_RET_STS_SUCCESS;
1830: x_LIMITS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1831:
1832: ELSE
1833:
1826:
1827: -- Set return status
1828:
1829: x_return_status := FND_API.G_RET_STS_SUCCESS;
1830: x_LIMITS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1831:
1832: ELSE
1833:
1834: -- Row has changed by another user.
1832: ELSE
1833:
1834: -- Row has changed by another user.
1835:
1836: x_return_status := FND_API.G_RET_STS_ERROR;
1837: x_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
1838:
1839: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1840: THEN
1833:
1834: -- Row has changed by another user.
1835:
1836: x_return_status := FND_API.G_RET_STS_ERROR;
1837: x_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
1838:
1839: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1840: THEN
1841:
1849: EXCEPTION
1850:
1851: WHEN NO_DATA_FOUND THEN
1852:
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: x_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
1855:
1856: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1857: THEN
1850:
1851: WHEN NO_DATA_FOUND THEN
1852:
1853: x_return_status := FND_API.G_RET_STS_ERROR;
1854: x_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
1855:
1856: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1857: THEN
1858:
1861:
1862: END IF;
1863: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
1864:
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1866: x_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
1867:
1868: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1869: THEN
1862: END IF;
1863: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
1864:
1865: x_return_status := FND_API.G_RET_STS_ERROR;
1866: x_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
1867:
1868: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
1869: THEN
1870:
1873:
1874: END IF;
1875: WHEN OTHERS THEN
1876:
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1878: x_LIMITS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879:
1880: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1881: THEN
1874: END IF;
1875: WHEN OTHERS THEN
1876:
1877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1878: x_LIMITS_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879:
1880: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1881: THEN
1882: OE_MSG_PUB.Add_Exc_Msg
1898: l_LIMITS_val_rec QP_Limits_PUB.Limits_Val_Rec_Type;
1899: BEGIN
1900:
1901: IF p_LIMITS_rec.limit_exceed_action_code IS NOT NULL AND
1902: p_LIMITS_rec.limit_exceed_action_code <> FND_API.G_MISS_CHAR AND
1903: NOT QP_GLOBALS.Equal(p_LIMITS_rec.limit_exceed_action_code,
1904: p_old_LIMITS_rec.limit_exceed_action_code)
1905: THEN
1906: l_LIMITS_val_rec.limit_exceed_action := QP_Id_To_Value.Limit_Exceed_Action
1908: );
1909: END IF;
1910:
1911: IF p_LIMITS_rec.limit_id IS NOT NULL AND
1912: p_LIMITS_rec.limit_id <> FND_API.G_MISS_NUM AND
1913: NOT QP_GLOBALS.Equal(p_LIMITS_rec.limit_id,
1914: p_old_LIMITS_rec.limit_id)
1915: THEN
1916: l_LIMITS_val_rec.limit := QP_Id_To_Value.Limit
1918: );
1919: END IF;
1920:
1921: IF p_LIMITS_rec.limit_level_code IS NOT NULL AND
1922: p_LIMITS_rec.limit_level_code <> FND_API.G_MISS_CHAR AND
1923: NOT QP_GLOBALS.Equal(p_LIMITS_rec.limit_level_code,
1924: p_old_LIMITS_rec.limit_level_code)
1925: THEN
1926: l_LIMITS_val_rec.limit_level := QP_Id_To_Value.Limit_Level
1928: );
1929: END IF;
1930:
1931: IF p_LIMITS_rec.list_header_id IS NOT NULL AND
1932: p_LIMITS_rec.list_header_id <> FND_API.G_MISS_NUM AND
1933: NOT QP_GLOBALS.Equal(p_LIMITS_rec.list_header_id,
1934: p_old_LIMITS_rec.list_header_id)
1935: THEN
1936: l_LIMITS_val_rec.list_header := QP_Id_To_Value.List_Header
1938: );
1939: END IF;
1940:
1941: IF p_LIMITS_rec.list_line_id IS NOT NULL AND
1942: p_LIMITS_rec.list_line_id <> FND_API.G_MISS_NUM AND
1943: NOT QP_GLOBALS.Equal(p_LIMITS_rec.list_line_id,
1944: p_old_LIMITS_rec.list_line_id)
1945: THEN
1946: l_LIMITS_val_rec.list_line := QP_Id_To_Value.List_Line
1948: );
1949: END IF;
1950:
1951: IF p_LIMITS_rec.organization_flag IS NOT NULL AND
1952: p_LIMITS_rec.organization_flag <> FND_API.G_MISS_CHAR AND
1953: NOT QP_GLOBALS.Equal(p_LIMITS_rec.organization_flag,
1954: p_old_LIMITS_rec.organization_flag)
1955: THEN
1956: l_LIMITS_val_rec.organization := QP_Id_To_Value.Organization
1975: BEGIN
1976:
1977: -- initialize return_status.
1978:
1979: l_LIMITS_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1980:
1981: -- initialize l_LIMITS_rec.
1982:
1983: l_LIMITS_rec := p_LIMITS_rec;
1981: -- initialize l_LIMITS_rec.
1982:
1983: l_LIMITS_rec := p_LIMITS_rec;
1984:
1985: IF p_LIMITS_val_rec.limit_exceed_action <> FND_API.G_MISS_CHAR
1986: THEN
1987:
1988: IF p_LIMITS_rec.limit_exceed_action_code <> FND_API.G_MISS_CHAR THEN
1989:
1984:
1985: IF p_LIMITS_val_rec.limit_exceed_action <> FND_API.G_MISS_CHAR
1986: THEN
1987:
1988: IF p_LIMITS_rec.limit_exceed_action_code <> FND_API.G_MISS_CHAR THEN
1989:
1990: l_LIMITS_rec.limit_exceed_action_code := p_LIMITS_rec.limit_exceed_action_code;
1991:
1992: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
2003: l_LIMITS_rec.limit_exceed_action_code := QP_Value_To_Id.limit_exceed_action
2004: ( p_limit_exceed_action => p_LIMITS_val_rec.limit_exceed_action
2005: );
2006:
2007: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
2008: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2009: END IF;
2010:
2011: END IF;
2004: ( p_limit_exceed_action => p_LIMITS_val_rec.limit_exceed_action
2005: );
2006:
2007: IF l_LIMITS_rec.limit_exceed_action_code = FND_API.G_MISS_CHAR THEN
2008: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2009: END IF;
2010:
2011: END IF;
2012:
2011: END IF;
2012:
2013: END IF;
2014:
2015: IF p_LIMITS_val_rec.limit <> FND_API.G_MISS_CHAR
2016: THEN
2017:
2018: IF p_LIMITS_rec.limit_id <> FND_API.G_MISS_NUM THEN
2019:
2014:
2015: IF p_LIMITS_val_rec.limit <> FND_API.G_MISS_CHAR
2016: THEN
2017:
2018: IF p_LIMITS_rec.limit_id <> FND_API.G_MISS_NUM THEN
2019:
2020: l_LIMITS_rec.limit_id := p_LIMITS_rec.limit_id;
2021:
2022: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
2033: l_LIMITS_rec.limit_id := QP_Value_To_Id.limit
2034: ( p_limit => p_LIMITS_val_rec.limit
2035: );
2036:
2037: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
2038: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2039: END IF;
2040:
2041: END IF;
2034: ( p_limit => p_LIMITS_val_rec.limit
2035: );
2036:
2037: IF l_LIMITS_rec.limit_id = FND_API.G_MISS_NUM THEN
2038: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2039: END IF;
2040:
2041: END IF;
2042:
2041: END IF;
2042:
2043: END IF;
2044:
2045: IF p_LIMITS_val_rec.limit_level <> FND_API.G_MISS_CHAR
2046: THEN
2047:
2048: IF p_LIMITS_rec.limit_level_code <> FND_API.G_MISS_CHAR THEN
2049:
2044:
2045: IF p_LIMITS_val_rec.limit_level <> FND_API.G_MISS_CHAR
2046: THEN
2047:
2048: IF p_LIMITS_rec.limit_level_code <> FND_API.G_MISS_CHAR THEN
2049:
2050: l_LIMITS_rec.limit_level_code := p_LIMITS_rec.limit_level_code;
2051:
2052: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
2063: l_LIMITS_rec.limit_level_code := QP_Value_To_Id.limit_level
2064: ( p_limit_level => p_LIMITS_val_rec.limit_level
2065: );
2066:
2067: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
2068: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2069: END IF;
2070:
2071: END IF;
2064: ( p_limit_level => p_LIMITS_val_rec.limit_level
2065: );
2066:
2067: IF l_LIMITS_rec.limit_level_code = FND_API.G_MISS_CHAR THEN
2068: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2069: END IF;
2070:
2071: END IF;
2072:
2071: END IF;
2072:
2073: END IF;
2074:
2075: IF p_LIMITS_val_rec.list_header <> FND_API.G_MISS_CHAR
2076: THEN
2077:
2078: IF p_LIMITS_rec.list_header_id <> FND_API.G_MISS_NUM THEN
2079:
2074:
2075: IF p_LIMITS_val_rec.list_header <> FND_API.G_MISS_CHAR
2076: THEN
2077:
2078: IF p_LIMITS_rec.list_header_id <> FND_API.G_MISS_NUM THEN
2079:
2080: l_LIMITS_rec.list_header_id := p_LIMITS_rec.list_header_id;
2081:
2082: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
2093: l_LIMITS_rec.list_header_id := QP_Value_To_Id.list_header
2094: ( p_list_header => p_LIMITS_val_rec.list_header
2095: );
2096:
2097: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
2098: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2099: END IF;
2100:
2101: END IF;
2094: ( p_list_header => p_LIMITS_val_rec.list_header
2095: );
2096:
2097: IF l_LIMITS_rec.list_header_id = FND_API.G_MISS_NUM THEN
2098: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2099: END IF;
2100:
2101: END IF;
2102:
2101: END IF;
2102:
2103: END IF;
2104:
2105: IF p_LIMITS_val_rec.list_line <> FND_API.G_MISS_CHAR
2106: THEN
2107:
2108: IF p_LIMITS_rec.list_line_id <> FND_API.G_MISS_NUM THEN
2109:
2104:
2105: IF p_LIMITS_val_rec.list_line <> FND_API.G_MISS_CHAR
2106: THEN
2107:
2108: IF p_LIMITS_rec.list_line_id <> FND_API.G_MISS_NUM THEN
2109:
2110: l_LIMITS_rec.list_line_id := p_LIMITS_rec.list_line_id;
2111:
2112: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
2123: l_LIMITS_rec.list_line_id := QP_Value_To_Id.list_line
2124: ( p_list_line => p_LIMITS_val_rec.list_line
2125: );
2126:
2127: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
2128: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2129: END IF;
2130:
2131: END IF;
2124: ( p_list_line => p_LIMITS_val_rec.list_line
2125: );
2126:
2127: IF l_LIMITS_rec.list_line_id = FND_API.G_MISS_NUM THEN
2128: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2129: END IF;
2130:
2131: END IF;
2132:
2131: END IF;
2132:
2133: END IF;
2134:
2135: IF p_LIMITS_val_rec.organization <> FND_API.G_MISS_CHAR
2136: THEN
2137:
2138: IF p_LIMITS_rec.organization_flag <> FND_API.G_MISS_CHAR THEN
2139:
2134:
2135: IF p_LIMITS_val_rec.organization <> FND_API.G_MISS_CHAR
2136: THEN
2137:
2138: IF p_LIMITS_rec.organization_flag <> FND_API.G_MISS_CHAR THEN
2139:
2140: l_LIMITS_rec.organization_flag := p_LIMITS_rec.organization_flag;
2141:
2142: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_SUCCESS)
2153: l_LIMITS_rec.organization_flag := QP_Value_To_Id.organization
2154: ( p_organization => p_LIMITS_val_rec.organization
2155: );
2156:
2157: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
2158: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2159: END IF;
2160:
2161: END IF;
2154: ( p_organization => p_LIMITS_val_rec.organization
2155: );
2156:
2157: IF l_LIMITS_rec.organization_flag = FND_API.G_MISS_CHAR THEN
2158: l_LIMITS_rec.return_status := FND_API.G_RET_STS_ERROR;
2159: END IF;
2160:
2161: END IF;
2162:
2193: null;
2194: x_LIMITS_rec := l_LIMITS_rec;
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: RAISE;
2199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2200: RAISE;
2201: WHEN OTHERS THEN
2195:
2196: EXCEPTION
2197: WHEN FND_API.G_EXC_ERROR THEN
2198: RAISE;
2199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2200: RAISE;
2201: WHEN OTHERS THEN
2202: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
2203: THEN
2205: ( G_PKG_NAME
2206: , 'Pre_Write_Process'
2207: );
2208: END IF;
2209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2210:
2211: END Pre_Write_Process;
2212:
2213: