1: PACKAGE BODY QP_Validate_Psg AS
2: /* $Header: QPXLPSGB.pls 120.1 2005/06/08 23:58:30 appldev $ */
3:
4: -- Global constant holding the package name
5:
2: /* $Header: QPXLPSGB.pls 120.1 2005/06/08 23:58:30 appldev $ */
3:
4: -- Global constant holding the package name
5:
6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'QP_Validate_Psg';
7:
8: -- Procedure Entity
9:
10: PROCEDURE Entity
105: ( p_PSG_rec.created_by <>
106: p_old_PSG_rec.created_by OR
107: p_old_PSG_rec.created_by IS NULL )
108: THEN
109: IF NOT QP_Validate.Created_By(p_PSG_rec.created_by) THEN
110: x_return_status := FND_API.G_RET_STS_ERROR;
111: END IF;
112: END IF;
113:
115: ( p_PSG_rec.creation_date <>
116: p_old_PSG_rec.creation_date OR
117: p_old_PSG_rec.creation_date IS NULL )
118: THEN
119: IF NOT QP_Validate.Creation_Date(p_PSG_rec.creation_date) THEN
120: x_return_status := FND_API.G_RET_STS_ERROR;
121: END IF;
122: END IF;
123:
125: ( p_PSG_rec.last_updated_by <>
126: p_old_PSG_rec.last_updated_by OR
127: p_old_PSG_rec.last_updated_by IS NULL )
128: THEN
129: IF NOT QP_Validate.Last_Updated_By(p_PSG_rec.last_updated_by) THEN
130: x_return_status := FND_API.G_RET_STS_ERROR;
131: END IF;
132: END IF;
133:
135: ( p_PSG_rec.last_update_date <>
136: p_old_PSG_rec.last_update_date OR
137: p_old_PSG_rec.last_update_date IS NULL )
138: THEN
139: IF NOT QP_Validate.Last_Update_Date(p_PSG_rec.last_update_date) THEN
140: x_return_status := FND_API.G_RET_STS_ERROR;
141: END IF;
142: END IF;
143:
145: ( p_PSG_rec.last_update_login <>
146: p_old_PSG_rec.last_update_login OR
147: p_old_PSG_rec.last_update_login IS NULL )
148: THEN
149: IF NOT QP_Validate.Last_Update_Login(p_PSG_rec.last_update_login) THEN
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: END IF;
152: END IF;
153:
155: ( p_PSG_rec.limits_enabled <>
156: p_old_PSG_rec.limits_enabled OR
157: p_old_PSG_rec.limits_enabled IS NULL )
158: THEN
159: IF NOT QP_Validate.Limits_Enabled(p_PSG_rec.limits_enabled) THEN
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: END IF;
162: END IF;
163:
165: ( p_PSG_rec.lov_enabled <>
166: p_old_PSG_rec.lov_enabled OR
167: p_old_PSG_rec.lov_enabled IS NULL )
168: THEN
169: IF NOT QP_Validate.Lov_Enabled(p_PSG_rec.lov_enabled) THEN
170: x_return_status := FND_API.G_RET_STS_ERROR;
171: END IF;
172: END IF;
173:
175: ( p_PSG_rec.program_application_id <>
176: p_old_PSG_rec.program_application_id OR
177: p_old_PSG_rec.program_application_id IS NULL )
178: THEN
179: IF NOT QP_Validate.Program_Application(p_PSG_rec.program_application_id) THEN
180: x_return_status := FND_API.G_RET_STS_ERROR;
181: END IF;
182: END IF;
183:
185: ( p_PSG_rec.program_id <>
186: p_old_PSG_rec.program_id OR
187: p_old_PSG_rec.program_id IS NULL )
188: THEN
189: IF NOT QP_Validate.Program(p_PSG_rec.program_id) THEN
190: x_return_status := FND_API.G_RET_STS_ERROR;
191: END IF;
192: END IF;
193:
195: ( p_PSG_rec.program_update_date <>
196: p_old_PSG_rec.program_update_date OR
197: p_old_PSG_rec.program_update_date IS NULL )
198: THEN
199: IF NOT QP_Validate.Program_Update_Date(p_PSG_rec.program_update_date) THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: END IF;
202: END IF;
203:
205: ( p_PSG_rec.pte_code <>
206: p_old_PSG_rec.pte_code OR
207: p_old_PSG_rec.pte_code IS NULL )
208: THEN
209: IF NOT QP_Validate.Pte(p_PSG_rec.pte_code) THEN
210: x_return_status := FND_API.G_RET_STS_ERROR;
211: END IF;
212: END IF;
213:
215: ( p_PSG_rec.seeded_sourcing_method <>
216: p_old_PSG_rec.seeded_sourcing_method OR
217: p_old_PSG_rec.seeded_sourcing_method IS NULL )
218: THEN
219: IF NOT QP_Validate.Seeded_Sourcing_Method(p_PSG_rec.seeded_sourcing_method) THEN
220: x_return_status := FND_API.G_RET_STS_ERROR;
221: END IF;
222: END IF;
223:
225: ( p_PSG_rec.segment_id <>
226: p_old_PSG_rec.segment_id OR
227: p_old_PSG_rec.segment_id IS NULL )
228: THEN
229: IF NOT QP_Validate.Segment(p_PSG_rec.segment_id) THEN
230: x_return_status := FND_API.G_RET_STS_ERROR;
231: END IF;
232: END IF;
233:
235: ( p_PSG_rec.segment_level <>
236: p_old_PSG_rec.segment_level OR
237: p_old_PSG_rec.segment_level IS NULL )
238: THEN
239: IF NOT QP_Validate.Segment_Level(p_PSG_rec.segment_level) THEN
240: x_return_status := FND_API.G_RET_STS_ERROR;
241: END IF;
242: END IF;
243:
245: ( p_PSG_rec.segment_pte_id <>
246: p_old_PSG_rec.segment_pte_id OR
247: p_old_PSG_rec.segment_pte_id IS NULL )
248: THEN
249: IF NOT QP_Validate.Segment_Pte(p_PSG_rec.segment_pte_id) THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: END IF;
252: END IF;
253:
255: ( p_PSG_rec.sourcing_enabled <>
256: p_old_PSG_rec.sourcing_enabled OR
257: p_old_PSG_rec.sourcing_enabled IS NULL )
258: THEN
259: IF NOT QP_Validate.Sourcing_Enabled(p_PSG_rec.sourcing_enabled) THEN
260: x_return_status := FND_API.G_RET_STS_ERROR;
261: END IF;
262: END IF;
263:
265: ( p_PSG_rec.sourcing_status <>
266: p_old_PSG_rec.sourcing_status OR
267: p_old_PSG_rec.sourcing_status IS NULL )
268: THEN
269: IF NOT QP_Validate.Sourcing_Status(p_PSG_rec.sourcing_status) THEN
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: END IF;
272: END IF;
273:
275: ( p_PSG_rec.user_sourcing_method <>
276: p_old_PSG_rec.user_sourcing_method OR
277: p_old_PSG_rec.user_sourcing_method IS NULL )
278: THEN
279: IF NOT QP_Validate.User_Sourcing_Method(p_PSG_rec.user_sourcing_method) THEN
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: END IF;
282: END IF;
283:
417: */
418:
419: -- Validate descriptive flexfield.
420:
421: IF NOT QP_Validate.Desc_Flex( 'PSG' ) THEN
422: x_return_status := FND_API.G_RET_STS_ERROR;
423: END IF;
424:
425: END IF;
491: END IF;
492:
493: END Entity_Delete;
494:
495: END QP_Validate_Psg;