1: PACKAGE BODY QP_Validate_Sou AS
2: /* $Header: QPXLSOUB.pls 120.1 2005/06/08 21:26:26 appldev $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXLSOUB.pls 120.1 2005/06/08 21:26:26 appldev $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Sou';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
105: ( p_SOU_rec.attribute_sourcing_id <>
106: p_old_SOU_rec.attribute_sourcing_id OR
107: p_old_SOU_rec.attribute_sourcing_id IS NULL )
108: THEN
109: IF NOT QP_Validate.Attribute_Sourcing(p_SOU_rec.attribute_sourcing_id) THEN
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: END IF;
112: END IF;
113:
115: ( p_SOU_rec.attribute_sourcing_level <>
116: p_old_SOU_rec.attribute_sourcing_level OR
117: p_old_SOU_rec.attribute_sourcing_level IS NULL )
118: THEN
119: IF NOT QP_Validate.Attribute_Sourcing_Level(p_SOU_rec.attribute_sourcing_level) THEN
120: x_return_status := FND_API.G_RET_STS_ERROR;
121: END IF;
122: END IF;
123:
125: ( p_SOU_rec.application_id <>
126: p_old_SOU_rec.application_id OR
127: p_old_SOU_rec.application_id IS NULL )
128: THEN
129: IF NOT QP_Validate.application_id(p_SOU_rec.application_id) THEN
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: END IF;
132: END IF;
133:
135: ( p_SOU_rec.created_by <>
136: p_old_SOU_rec.created_by OR
137: p_old_SOU_rec.created_by IS NULL )
138: THEN
139: IF NOT QP_Validate.Created_By(p_SOU_rec.created_by) THEN
140: x_return_status := FND_API.G_RET_STS_ERROR;
141: END IF;
142: END IF;
143:
145: ( p_SOU_rec.creation_date <>
146: p_old_SOU_rec.creation_date OR
147: p_old_SOU_rec.creation_date IS NULL )
148: THEN
149: IF NOT QP_Validate.Creation_Date(p_SOU_rec.creation_date) THEN
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: END IF;
152: END IF;
153:
155: ( p_SOU_rec.enabled_flag <>
156: p_old_SOU_rec.enabled_flag OR
157: p_old_SOU_rec.enabled_flag IS NULL )
158: THEN
159: IF NOT QP_Validate.Enabled(p_SOU_rec.enabled_flag) THEN
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: END IF;
162: END IF;
163:
165: ( p_SOU_rec.last_updated_by <>
166: p_old_SOU_rec.last_updated_by OR
167: p_old_SOU_rec.last_updated_by IS NULL )
168: THEN
169: IF NOT QP_Validate.Last_Updated_By(p_SOU_rec.last_updated_by) THEN
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: END IF;
172: END IF;
173:
175: ( p_SOU_rec.last_update_date <>
176: p_old_SOU_rec.last_update_date OR
177: p_old_SOU_rec.last_update_date IS NULL )
178: THEN
179: IF NOT QP_Validate.Last_Update_Date(p_SOU_rec.last_update_date) THEN
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END IF;
182: END IF;
183:
185: ( p_SOU_rec.last_update_login <>
186: p_old_SOU_rec.last_update_login OR
187: p_old_SOU_rec.last_update_login IS NULL )
188: THEN
189: IF NOT QP_Validate.Last_Update_Login(p_SOU_rec.last_update_login) THEN
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: END IF;
192: END IF;
193:
195: ( p_SOU_rec.program_application_id <>
196: p_old_SOU_rec.program_application_id OR
197: p_old_SOU_rec.program_application_id IS NULL )
198: THEN
199: IF NOT QP_Validate.Program_Application(p_SOU_rec.program_application_id) THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: END IF;
202: END IF;
203:
205: ( p_SOU_rec.program_id <>
206: p_old_SOU_rec.program_id OR
207: p_old_SOU_rec.program_id IS NULL )
208: THEN
209: IF NOT QP_Validate.Program(p_SOU_rec.program_id) THEN
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: END IF;
212: END IF;
213:
215: ( p_SOU_rec.program_update_date <>
216: p_old_SOU_rec.program_update_date OR
217: p_old_SOU_rec.program_update_date IS NULL )
218: THEN
219: IF NOT QP_Validate.Program_Update_Date(p_SOU_rec.program_update_date) THEN
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: END IF;
222: END IF;
223:
225: ( p_SOU_rec.request_type_code <>
226: p_old_SOU_rec.request_type_code OR
227: p_old_SOU_rec.request_type_code IS NULL )
228: THEN
229: IF NOT QP_Validate.Request_Type(p_SOU_rec.request_type_code) THEN
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: END IF;
232: END IF;
233:
235: ( p_SOU_rec.seeded_flag <>
236: p_old_SOU_rec.seeded_flag OR
237: p_old_SOU_rec.seeded_flag IS NULL )
238: THEN
239: IF NOT QP_Validate.Seeded(p_SOU_rec.seeded_flag) THEN
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: END IF;
242: END IF;
243:
245: ( p_SOU_rec.seeded_sourcing_type <>
246: p_old_SOU_rec.seeded_sourcing_type OR
247: p_old_SOU_rec.seeded_sourcing_type IS NULL )
248: THEN
249: IF NOT QP_Validate.Seeded_Sourcing_Type(p_SOU_rec.seeded_sourcing_type) THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: END IF;
252: END IF;
253:
255: ( p_SOU_rec.seeded_value_string <>
256: p_old_SOU_rec.seeded_value_string OR
257: p_old_SOU_rec.seeded_value_string IS NULL )
258: THEN
259: IF NOT QP_Validate.Seeded_Value_String(p_SOU_rec.seeded_value_string) THEN
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: END IF;
262: END IF;
263:
265: ( p_SOU_rec.segment_id <>
266: p_old_SOU_rec.segment_id OR
267: p_old_SOU_rec.segment_id IS NULL )
268: THEN
269: IF NOT QP_Validate.Segment(p_SOU_rec.segment_id) THEN
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: END IF;
272: END IF;
273:
275: ( p_SOU_rec.user_sourcing_type <>
276: p_old_SOU_rec.user_sourcing_type OR
277: p_old_SOU_rec.user_sourcing_type IS NULL )
278: THEN
279: IF NOT QP_Validate.User_Sourcing_Type(p_SOU_rec.user_sourcing_type) THEN
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: END IF;
282: END IF;
283:
285: ( p_SOU_rec.user_value_string <>
286: p_old_SOU_rec.user_value_string OR
287: p_old_SOU_rec.user_value_string IS NULL )
288: THEN
289: IF NOT QP_Validate.User_Value_String(p_SOU_rec.user_value_string) THEN
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: END IF;
292: END IF;
293:
427: */
428:
429: -- Validate descriptive flexfield.
430:
431: IF NOT QP_Validate.Desc_Flex( 'SOU' ) THEN
432: x_return_status := FND_API.G_RET_STS_ERROR;
433: END IF;
434:
435: END IF;
501: END IF;
502:
503: END Entity_Delete;
504:
505: END QP_Validate_Sou;