13: , p_old_CON_rec IN QP_Attributes_PUB.Con_Rec_Type :=
14: QP_Attributes_PUB.G_MISS_CON_REC
15: )
16: IS
17: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
18: BEGIN
19:
20: -- Check required attributes.
21:
21:
22: IF p_CON_rec.prc_context_id IS NULL
23: THEN
24:
25: l_return_status := FND_API.G_RET_STS_ERROR;
26:
27: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
28: THEN
29:
40: --
41:
42: /*
43: if p_CON_rec.prc_context_code is not null
44: and p_CON_rec.prc_context_code <> FND_API.G_MISS_CHAR
45: and substr(p_CON_rec.prc_context_code,1,3) <> 'QP_' then
46:
47: oe_debug_pub.add('Total old values' || p_CON_rec.prc_context_code);
48: l_return_status := FND_API.G_RET_STS_ERROR;
44: and p_CON_rec.prc_context_code <> FND_API.G_MISS_CHAR
45: and substr(p_CON_rec.prc_context_code,1,3) <> 'QP_' then
46:
47: oe_debug_pub.add('Total old values' || p_CON_rec.prc_context_code);
48: l_return_status := FND_API.G_RET_STS_ERROR;
49: FND_MESSAGE.SET_NAME('QP','QP_WRONG_CONTEXT_CODE');
50: OE_MSG_PUB.Add;
51: end if;
52: */
52: */
53:
54: -- Return Error if a required attribute is missing.
55:
56: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
57:
58: RAISE FND_API.G_EXC_ERROR;
59:
60: END IF;
54: -- Return Error if a required attribute is missing.
55:
56: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
57:
58: RAISE FND_API.G_EXC_ERROR;
59:
60: END IF;
61:
62: --
74: x_return_status := l_return_status;
75:
76: EXCEPTION
77:
78: WHEN FND_API.G_EXC_ERROR THEN
79:
80: x_return_status := FND_API.G_RET_STS_ERROR;
81:
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
76: EXCEPTION
77:
78: WHEN FND_API.G_EXC_ERROR THEN
79:
80: x_return_status := FND_API.G_RET_STS_ERROR;
81:
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83:
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: WHEN FND_API.G_EXC_ERROR THEN
79:
80: x_return_status := FND_API.G_RET_STS_ERROR;
81:
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83:
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85:
86: WHEN OTHERS THEN
80: x_return_status := FND_API.G_RET_STS_ERROR;
81:
82: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
83:
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85:
86: WHEN OTHERS THEN
87:
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
85:
86: WHEN OTHERS THEN
87:
88: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89:
90: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
91: THEN
92: OE_MSG_PUB.Add_Exc_Msg
107: )
108: IS
109: BEGIN
110:
111: x_return_status := FND_API.G_RET_STS_SUCCESS;
112:
113: -- Validate CON attributes
114:
115: IF p_CON_rec.created_by IS NOT NULL AND
117: p_old_CON_rec.created_by OR
118: p_old_CON_rec.created_by IS NULL )
119: THEN
120: IF NOT QP_Validate.Created_By(p_CON_rec.created_by) THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: END IF;
123: END IF;
124:
125: IF p_CON_rec.creation_date IS NOT NULL AND
127: p_old_CON_rec.creation_date OR
128: p_old_CON_rec.creation_date IS NULL )
129: THEN
130: IF NOT QP_Validate.Creation_Date(p_CON_rec.creation_date) THEN
131: x_return_status := FND_API.G_RET_STS_ERROR;
132: END IF;
133: END IF;
134:
135: IF p_CON_rec.enabled_flag IS NOT NULL AND
137: p_old_CON_rec.enabled_flag OR
138: p_old_CON_rec.enabled_flag IS NULL )
139: THEN
140: IF NOT QP_Validate.Enabled(p_CON_rec.enabled_flag) THEN
141: x_return_status := FND_API.G_RET_STS_ERROR;
142: END IF;
143: END IF;
144:
145: IF p_CON_rec.last_updated_by IS NOT NULL AND
147: p_old_CON_rec.last_updated_by OR
148: p_old_CON_rec.last_updated_by IS NULL )
149: THEN
150: IF NOT QP_Validate.Last_Updated_By(p_CON_rec.last_updated_by) THEN
151: x_return_status := FND_API.G_RET_STS_ERROR;
152: END IF;
153: END IF;
154:
155: IF p_CON_rec.last_update_date IS NOT NULL AND
157: p_old_CON_rec.last_update_date OR
158: p_old_CON_rec.last_update_date IS NULL )
159: THEN
160: IF NOT QP_Validate.Last_Update_Date(p_CON_rec.last_update_date) THEN
161: x_return_status := FND_API.G_RET_STS_ERROR;
162: END IF;
163: END IF;
164:
165: IF p_CON_rec.last_update_login IS NOT NULL AND
167: p_old_CON_rec.last_update_login OR
168: p_old_CON_rec.last_update_login IS NULL )
169: THEN
170: IF NOT QP_Validate.Last_Update_Login(p_CON_rec.last_update_login) THEN
171: x_return_status := FND_API.G_RET_STS_ERROR;
172: END IF;
173: END IF;
174:
175: IF p_CON_rec.prc_context_code IS NOT NULL AND
177: p_old_CON_rec.prc_context_code OR
178: p_old_CON_rec.prc_context_code IS NULL )
179: THEN
180: IF NOT QP_Validate.Prc_Context_code(p_CON_rec.prc_context_code) THEN
181: x_return_status := FND_API.G_RET_STS_ERROR;
182: END IF;
183: END IF;
184:
185: IF p_CON_rec.prc_context_id IS NOT NULL AND
187: p_old_CON_rec.prc_context_id OR
188: p_old_CON_rec.prc_context_id IS NULL )
189: THEN
190: IF NOT QP_Validate.Prc_Context(p_CON_rec.prc_context_id) THEN
191: x_return_status := FND_API.G_RET_STS_ERROR;
192: END IF;
193: END IF;
194:
195: IF p_CON_rec.prc_context_type IS NOT NULL AND
197: p_old_CON_rec.prc_context_type OR
198: p_old_CON_rec.prc_context_type IS NULL )
199: THEN
200: IF NOT QP_Validate.Prc_Context_Type(p_CON_rec.prc_context_type) THEN
201: x_return_status := FND_API.G_RET_STS_ERROR;
202: END IF;
203: END IF;
204:
205: IF p_CON_rec.program_application_id IS NOT NULL AND
207: p_old_CON_rec.program_application_id OR
208: p_old_CON_rec.program_application_id IS NULL )
209: THEN
210: IF NOT QP_Validate.Program_Application(p_CON_rec.program_application_id) THEN
211: x_return_status := FND_API.G_RET_STS_ERROR;
212: END IF;
213: END IF;
214:
215: IF p_CON_rec.program_id IS NOT NULL AND
217: p_old_CON_rec.program_id OR
218: p_old_CON_rec.program_id IS NULL )
219: THEN
220: IF NOT QP_Validate.Program(p_CON_rec.program_id) THEN
221: x_return_status := FND_API.G_RET_STS_ERROR;
222: END IF;
223: END IF;
224:
225: IF p_CON_rec.program_update_date IS NOT NULL AND
227: p_old_CON_rec.program_update_date OR
228: p_old_CON_rec.program_update_date IS NULL )
229: THEN
230: IF NOT QP_Validate.Program_Update_Date(p_CON_rec.program_update_date) THEN
231: x_return_status := FND_API.G_RET_STS_ERROR;
232: END IF;
233: END IF;
234:
235: IF p_CON_rec.seeded_description IS NOT NULL AND
237: p_old_CON_rec.seeded_description OR
238: p_old_CON_rec.seeded_description IS NULL )
239: THEN
240: IF NOT QP_Validate.Seeded_Description(p_CON_rec.seeded_description) THEN
241: x_return_status := FND_API.G_RET_STS_ERROR;
242: END IF;
243: END IF;
244:
245: IF p_CON_rec.seeded_flag IS NOT NULL AND
247: p_old_CON_rec.seeded_flag OR
248: p_old_CON_rec.seeded_flag IS NULL )
249: THEN
250: IF NOT QP_Validate.Seeded(p_CON_rec.seeded_flag) THEN
251: x_return_status := FND_API.G_RET_STS_ERROR;
252: END IF;
253: END IF;
254:
255: IF p_CON_rec.seeded_prc_context_name IS NOT NULL AND
257: p_old_CON_rec.seeded_prc_context_name OR
258: p_old_CON_rec.seeded_prc_context_name IS NULL )
259: THEN
260: IF NOT QP_Validate.Seeded_Prc_Context_Name(p_CON_rec.seeded_prc_context_name) THEN
261: x_return_status := FND_API.G_RET_STS_ERROR;
262: END IF;
263: END IF;
264:
265: IF p_CON_rec.user_description IS NOT NULL AND
267: p_old_CON_rec.user_description OR
268: p_old_CON_rec.user_description IS NULL )
269: THEN
270: IF NOT QP_Validate.User_Description(p_CON_rec.user_description) THEN
271: x_return_status := FND_API.G_RET_STS_ERROR;
272: END IF;
273: END IF;
274:
275: IF p_CON_rec.user_prc_context_name IS NOT NULL AND
277: p_old_CON_rec.user_prc_context_name OR
278: p_old_CON_rec.user_prc_context_name IS NULL )
279: THEN
280: IF NOT QP_Validate.User_Prc_Context_Name(p_CON_rec.user_prc_context_name) THEN
281: x_return_status := FND_API.G_RET_STS_ERROR;
282: END IF;
283: END IF;
284:
285: IF (p_CON_rec.attribute1 IS NOT NULL AND
419:
420: -- Validate descriptive flexfield.
421:
422: IF NOT QP_Validate.Desc_Flex( 'CON' ) THEN
423: x_return_status := FND_API.G_RET_STS_ERROR;
424: END IF;
425:
426: END IF;
427:
428: -- Done validating attributes
429:
430: EXCEPTION
431:
432: WHEN FND_API.G_EXC_ERROR THEN
433:
434: x_return_status := FND_API.G_RET_STS_ERROR;
435:
436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
430: EXCEPTION
431:
432: WHEN FND_API.G_EXC_ERROR THEN
433:
434: x_return_status := FND_API.G_RET_STS_ERROR;
435:
436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
437:
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
432: WHEN FND_API.G_EXC_ERROR THEN
433:
434: x_return_status := FND_API.G_RET_STS_ERROR;
435:
436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
437:
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439:
440: WHEN OTHERS THEN
434: x_return_status := FND_API.G_RET_STS_ERROR;
435:
436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
437:
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439:
440: WHEN OTHERS THEN
441:
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
439:
440: WHEN OTHERS THEN
441:
442: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
443:
444: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
445: THEN
446: OE_MSG_PUB.Add_Exc_Msg
457: ( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
458: , p_CON_rec IN QP_Attributes_PUB.Con_Rec_Type
459: )
460: IS
461: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
462: dummy varchar2(1);
463: BEGIN
464:
465: -- Validate entity delete.
471: into dummy
472: from qp_segments_b
473: where segment_id = p_CON_rec.prc_context_id and
474: rownum = 1;
475: l_return_status := FND_API.G_RET_STS_ERROR;
476: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DELETE_CONTEXT');
477: OE_MSG_PUB.Add;
478:
479: raise fnd_api.g_exc_error;
475: l_return_status := FND_API.G_RET_STS_ERROR;
476: FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DELETE_CONTEXT');
477: OE_MSG_PUB.Add;
478:
479: raise fnd_api.g_exc_error;
480: exception
481: when no_data_found then
482: l_return_status := FND_API.G_RET_STS_SUCCESS;
483: end;
478:
479: raise fnd_api.g_exc_error;
480: exception
481: when no_data_found then
482: l_return_status := FND_API.G_RET_STS_SUCCESS;
483: end;
484: */
485: x_return_status := l_return_status;
486:
487: -- Done.
488:
489: EXCEPTION
490:
491: WHEN FND_API.G_EXC_ERROR THEN
492:
493: x_return_status := FND_API.G_RET_STS_ERROR;
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
489: EXCEPTION
490:
491: WHEN FND_API.G_EXC_ERROR THEN
492:
493: x_return_status := FND_API.G_RET_STS_ERROR;
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496:
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
491: WHEN FND_API.G_EXC_ERROR THEN
492:
493: x_return_status := FND_API.G_RET_STS_ERROR;
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496:
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498:
499: WHEN OTHERS THEN
493: x_return_status := FND_API.G_RET_STS_ERROR;
494:
495: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
496:
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498:
499: WHEN OTHERS THEN
500:
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
498:
499: WHEN OTHERS THEN
500:
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502:
503: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
504: THEN
505: OE_MSG_PUB.Add_Exc_Msg