1: PACKAGE BODY QP_Validate_Seg AS
2: /* $Header: QPXLSEGB.pls 120.2 2005/08/03 07:36:49 srashmi noship $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXLSEGB.pls 120.2 2005/08/03 07:36:49 srashmi noship $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Seg';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
105: ( p_SEG_rec.availability_in_basic <>
106: p_old_SEG_rec.availability_in_basic OR
107: p_old_SEG_rec.availability_in_basic IS NULL )
108: THEN
109: IF NOT QP_Validate.Availability_In_Basic(p_SEG_rec.availability_in_basic) THEN
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: END IF;
112: END IF;
113:
115: ( p_SEG_rec.created_by <>
116: p_old_SEG_rec.created_by OR
117: p_old_SEG_rec.created_by IS NULL )
118: THEN
119: IF NOT QP_Validate.Created_By(p_SEG_rec.created_by) THEN
120: x_return_status := FND_API.G_RET_STS_ERROR;
121: END IF;
122: END IF;
123:
125: ( p_SEG_rec.creation_date <>
126: p_old_SEG_rec.creation_date OR
127: p_old_SEG_rec.creation_date IS NULL )
128: THEN
129: IF NOT QP_Validate.Creation_Date(p_SEG_rec.creation_date) THEN
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: END IF;
132: END IF;
133:
135: ( p_SEG_rec.last_updated_by <>
136: p_old_SEG_rec.last_updated_by OR
137: p_old_SEG_rec.last_updated_by IS NULL )
138: THEN
139: IF NOT QP_Validate.Last_Updated_By(p_SEG_rec.last_updated_by) THEN
140: x_return_status := FND_API.G_RET_STS_ERROR;
141: END IF;
142: END IF;
143:
145: ( p_SEG_rec.last_update_date <>
146: p_old_SEG_rec.last_update_date OR
147: p_old_SEG_rec.last_update_date IS NULL )
148: THEN
149: IF NOT QP_Validate.Last_Update_Date(p_SEG_rec.last_update_date) THEN
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: END IF;
152: END IF;
153:
155: ( p_SEG_rec.last_update_login <>
156: p_old_SEG_rec.last_update_login OR
157: p_old_SEG_rec.last_update_login IS NULL )
158: THEN
159: IF NOT QP_Validate.Last_Update_Login(p_SEG_rec.last_update_login) THEN
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: END IF;
162: END IF;
163:
165: ( p_SEG_rec.prc_context_id <>
166: p_old_SEG_rec.prc_context_id OR
167: p_old_SEG_rec.prc_context_id IS NULL )
168: THEN
169: IF NOT QP_Validate.Prc_Context(p_SEG_rec.prc_context_id) THEN
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: END IF;
172: END IF;
173:
175: ( p_SEG_rec.program_application_id <>
176: p_old_SEG_rec.program_application_id OR
177: p_old_SEG_rec.program_application_id IS NULL )
178: THEN
179: IF NOT QP_Validate.Program_Application(p_SEG_rec.program_application_id) THEN
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END IF;
182: END IF;
183:
185: ( p_SEG_rec.program_id <>
186: p_old_SEG_rec.program_id OR
187: p_old_SEG_rec.program_id IS NULL )
188: THEN
189: IF NOT QP_Validate.Program(p_SEG_rec.program_id) THEN
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: END IF;
192: END IF;
193:
195: ( p_SEG_rec.program_update_date <>
196: p_old_SEG_rec.program_update_date OR
197: p_old_SEG_rec.program_update_date IS NULL )
198: THEN
199: IF NOT QP_Validate.Program_Update_Date(p_SEG_rec.program_update_date) THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: END IF;
202: END IF;
203:
205: ( p_SEG_rec.seeded_flag <>
206: p_old_SEG_rec.seeded_flag OR
207: p_old_SEG_rec.seeded_flag IS NULL )
208: THEN
209: IF NOT QP_Validate.Seeded(p_SEG_rec.seeded_flag) THEN
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: END IF;
212: END IF;
213:
215: ( p_SEG_rec.seeded_format_type <>
216: p_old_SEG_rec.seeded_format_type OR
217: p_old_SEG_rec.seeded_format_type IS NULL )
218: THEN
219: IF NOT QP_Validate.Seeded_Format_Type(p_SEG_rec.seeded_format_type) THEN
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: END IF;
222: END IF;
223:
225: ( p_SEG_rec.seeded_precedence <>
226: p_old_SEG_rec.seeded_precedence OR
227: p_old_SEG_rec.seeded_precedence IS NULL )
228: THEN
229: IF NOT QP_Validate.Seeded_Precedence(p_SEG_rec.seeded_precedence) THEN
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: END IF;
232: END IF;
233:
235: ( p_SEG_rec.seeded_segment_name <>
236: p_old_SEG_rec.seeded_segment_name OR
237: p_old_SEG_rec.seeded_segment_name IS NULL )
238: THEN
239: IF NOT QP_Validate.Seeded_Segment_Name(p_SEG_rec.seeded_segment_name) THEN
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: END IF;
242: END IF;
243:
245: ( p_SEG_rec.seeded_valueset_id <>
246: p_old_SEG_rec.seeded_valueset_id OR
247: p_old_SEG_rec.seeded_valueset_id IS NULL )
248: THEN
249: IF NOT QP_Validate.Seeded_Valueset(p_SEG_rec.seeded_valueset_id) THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: END IF;
252: END IF;
253:
255: ( p_SEG_rec.segment_code <>
256: p_old_SEG_rec.segment_code OR
257: p_old_SEG_rec.segment_code IS NULL )
258: THEN
259: IF NOT QP_Validate.Segment_code(p_SEG_rec.segment_code) THEN
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: END IF;
262: END IF;
263:
265: ( p_SEG_rec.segment_id <>
266: p_old_SEG_rec.segment_id OR
267: p_old_SEG_rec.segment_id IS NULL )
268: THEN
269: IF NOT QP_Validate.Segment(p_SEG_rec.segment_id) THEN
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: END IF;
272: END IF;
273: -- Added Application_Id : Abhijit
275: ( p_SEG_rec.application_id <>
276: p_old_SEG_rec.application_id OR
277: p_old_SEG_rec.application_id IS NULL )
278: THEN
279: IF NOT QP_Validate.application_id(p_SEG_rec.application_id) THEN
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: END IF;
282: END IF;
283:
285: ( p_SEG_rec.segment_mapping_column <>
286: p_old_SEG_rec.segment_mapping_column OR
287: p_old_SEG_rec.segment_mapping_column IS NULL )
288: THEN
289: IF NOT QP_Validate.Segment_Mapping_Column(p_SEG_rec.segment_mapping_column) THEN
290: x_return_status := FND_API.G_RET_STS_ERROR;
291: END IF;
292: END IF;
293:
295: ( p_SEG_rec.user_format_type <>
296: p_old_SEG_rec.user_format_type OR
297: p_old_SEG_rec.user_format_type IS NULL )
298: THEN
299: IF NOT QP_Validate.User_Format_Type(p_SEG_rec.user_format_type) THEN
300: x_return_status := FND_API.G_RET_STS_ERROR;
301: END IF;
302: END IF;
303:
305: ( p_SEG_rec.user_precedence <>
306: p_old_SEG_rec.user_precedence OR
307: p_old_SEG_rec.user_precedence IS NULL )
308: THEN
309: IF NOT QP_Validate.User_Precedence(p_SEG_rec.user_precedence) THEN
310: x_return_status := FND_API.G_RET_STS_ERROR;
311: END IF;
312: END IF;
313:
315: ( p_SEG_rec.user_segment_name <>
316: p_old_SEG_rec.user_segment_name OR
317: p_old_SEG_rec.user_segment_name IS NULL )
318: THEN
319: IF NOT QP_Validate.User_Segment_Name(p_SEG_rec.user_segment_name) THEN
320: x_return_status := FND_API.G_RET_STS_ERROR;
321: END IF;
322: END IF;
323:
325: ( p_SEG_rec.user_valueset_id <>
326: p_old_SEG_rec.user_valueset_id OR
327: p_old_SEG_rec.user_valueset_id IS NULL )
328: THEN
329: IF NOT QP_Validate.User_Valueset(p_SEG_rec.user_valueset_id) THEN
330: x_return_status := FND_API.G_RET_STS_ERROR;
331: END IF;
332: END IF;
333:
335: ( p_SEG_rec.seeded_description <>
336: p_old_SEG_rec.seeded_description OR
337: p_old_SEG_rec.seeded_description IS NULL )
338: THEN
339: IF NOT QP_Validate.Seeded_Description_Seg(p_SEG_rec.seeded_description) THEN
340: x_return_status := FND_API.G_RET_STS_ERROR;
341: END IF;
342: END IF;
343:
345: ( p_SEG_rec.user_description <>
346: p_old_SEG_rec.user_description OR
347: p_old_SEG_rec.user_description IS NULL )
348: THEN
349: IF NOT QP_Validate.User_Description_Seg(p_SEG_rec.user_description)
350: THEN
351: x_return_status := FND_API.G_RET_STS_ERROR;
352: END IF;
353: END IF;
356: ( p_SEG_rec.required_flag <>
357: p_old_SEG_rec.required_flag OR
358: p_old_SEG_rec.required_flag IS NULL )
359: THEN
360: IF NOT QP_Validate.required_flag(p_SEG_rec.required_flag) THEN
361: x_return_status := FND_API.G_RET_STS_ERROR;
362: END IF;
363: END IF;
364: -- Added for TCA
366: ( p_SEG_rec.party_hierarchy_enabled_flag <>
367: p_old_SEG_rec.party_hierarchy_enabled_flag OR
368: p_old_SEG_rec.party_hierarchy_enabled_flag IS NULL )
369: THEN
370: IF NOT QP_Validate.party_hierarchy_enabled_flag(p_SEG_rec.party_hierarchy_enabled_flag) THEN
371: x_return_status := FND_API.G_RET_STS_ERROR;
372: END IF;
373: END IF;
374:
508: */
509:
510: -- Validate descriptive flexfield.
511:
512: IF NOT QP_Validate.Desc_Flex( 'SEG' ) THEN
513: x_return_status := FND_API.G_RET_STS_ERROR;
514: END IF;
515:
516: END IF;
665: END IF;
666:
667: END Entity_Delete;
668:
669: END QP_Validate_Seg;