1: PACKAGE BODY QP_Validate_Pte AS
2: /* $Header: QPXLPTEB.pls 120.1 2005/06/09 00:01:33 appldev $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXLPTEB.pls 120.1 2005/06/09 00:01:33 appldev $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Pte';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
105: ( p_PTE_rec.description <>
106: p_old_PTE_rec.description OR
107: p_old_PTE_rec.description IS NULL )
108: THEN
109: IF NOT QP_Validate.Description(p_PTE_rec.description) THEN
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: END IF;
112: END IF;
113:
115: ( p_PTE_rec.enabled_flag <>
116: p_old_PTE_rec.enabled_flag OR
117: p_old_PTE_rec.enabled_flag IS NULL )
118: THEN
119: IF NOT QP_Validate.Enabled(p_PTE_rec.enabled_flag) THEN
120: x_return_status := FND_API.G_RET_STS_ERROR;
121: END IF;
122: END IF;
123:
125: ( p_PTE_rec.end_date_active <>
126: p_old_PTE_rec.end_date_active OR
127: p_old_PTE_rec.end_date_active IS NULL )
128: THEN
129: IF NOT QP_Validate.End_Date_Active(p_PTE_rec.end_date_active) THEN
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: END IF;
132: END IF;
133:
135: ( p_PTE_rec.lookup_code <>
136: p_old_PTE_rec.lookup_code OR
137: p_old_PTE_rec.lookup_code IS NULL )
138: THEN
139: IF NOT QP_Validate.Lookup(p_PTE_rec.lookup_code) THEN
140: x_return_status := FND_API.G_RET_STS_ERROR;
141: END IF;
142: END IF;
143:
145: ( p_PTE_rec.lookup_type <>
146: p_old_PTE_rec.lookup_type OR
147: p_old_PTE_rec.lookup_type IS NULL )
148: THEN
149: IF NOT QP_Validate.Lookup_Type(p_PTE_rec.lookup_type) THEN
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: END IF;
152: END IF;
153:
155: ( p_PTE_rec.meaning <>
156: p_old_PTE_rec.meaning OR
157: p_old_PTE_rec.meaning IS NULL )
158: THEN
159: IF NOT QP_Validate.Meaning(p_PTE_rec.meaning) THEN
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: END IF;
162: END IF;
163:
165: ( p_PTE_rec.start_date_active <>
166: p_old_PTE_rec.start_date_active OR
167: p_old_PTE_rec.start_date_active IS NULL )
168: THEN
169: IF NOT QP_Validate.Start_Date_Active(p_PTE_rec.start_date_active) THEN
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: END IF;
172: END IF;
173:
238: END IF;
239:
240: END Entity_Delete;
241:
242: END QP_Validate_Pte;