[Home] [Help]
40:
41: -- Person Number is Mandatory
42: IF p_sua_dtls_rec.person_number IS NULL THEN
43: FND_MESSAGE.SET_NAME('IGS','IGS_EN_PER_NUM_NULL');
44: FND_MSG_PUB.Add;
45: g_sua_status := 'INVALID';
46: END IF;
47:
48: -- Program Code is Mandatory
47:
48: -- Program Code is Mandatory
49: IF p_sua_dtls_rec.program_cd IS NULL THEN
50: FND_MESSAGE.SET_NAME('IGS','IGS_EN_PRGM_CD_NULL');
51: FND_MSG_PUB.Add;
52: g_sua_status := 'INVALID';
53: END IF;
54:
55: -- Unit Code is Mandatory
54:
55: -- Unit Code is Mandatory
56: IF p_sua_dtls_rec.unit_cd IS NULL THEN
57: FND_MESSAGE.SET_NAME('IGS','IGS_EN_UNITCD_SPECIFIED');
58: FND_MSG_PUB.Add;
59: g_sua_status := 'INVALID';
60: END IF;
61:
62: -- Calendar Alternate Code is Mandatory
61:
62: -- Calendar Alternate Code is Mandatory
63: IF p_sua_dtls_rec.teach_calendar_alternate_code IS NULL THEN
64: FND_MESSAGE.SET_NAME('IGS','IGS_EN_CAL_TYP_NULL');
65: FND_MSG_PUB.Add;
66: g_sua_status := 'INVALID';
67: END IF;
68:
69: -- Location Code is Mandatory
68:
69: -- Location Code is Mandatory
70: IF p_sua_dtls_rec.location_cd IS NULL THEN
71: FND_MESSAGE.SET_NAME('IGS','IGS_EN_LOC_CD_NULL');
72: FND_MSG_PUB.Add;
73: g_sua_status := 'INVALID';
74: END IF;
75:
76: -- Unit Class is Mandatory
75:
76: -- Unit Class is Mandatory
77: IF p_sua_dtls_rec.unit_class IS NULL THEN
78: FND_MESSAGE.SET_NAME('IGS','IGS_EN_UNT_CLS_NULL');
79: FND_MSG_PUB.Add;
80: g_sua_status := 'INVALID';
81: END IF;
82:
83: -- added by vijrajag for bug # 4235458
85: IF p_sua_dtls_rec.no_assessment_ind = 'Y' THEN
86: IF p_sua_dtls_rec.override_enrolled_cp IS NOT NULL OR
87: p_sua_dtls_rec.override_achievable_cp IS NOT NULL THEN
88: FND_MESSAGE.SET_NAME('IGS','IGS_EN_AUDIT_NO_OVR_CP');
89: FND_MSG_PUB.ADD;
90: g_sua_status := 'INVALID';
91: END IF;
92: END IF;
93:
99: column_value => p_sua_dtls_rec.program_cd );
100:
101: EXCEPTION
102: WHEN OTHERS THEN
103: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
104: p_data => l_msg_data);
105: FND_MSG_PUB.DELETE_MSG(l_msg_count);
106: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PRGM_CD_UCASE');
107: FND_MSG_PUB.ADD;
101: EXCEPTION
102: WHEN OTHERS THEN
103: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
104: p_data => l_msg_data);
105: FND_MSG_PUB.DELETE_MSG(l_msg_count);
106: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PRGM_CD_UCASE');
107: FND_MSG_PUB.ADD;
108: g_sua_status := 'INVALID';
109: END;
103: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
104: p_data => l_msg_data);
105: FND_MSG_PUB.DELETE_MSG(l_msg_count);
106: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PRGM_CD_UCASE');
107: FND_MSG_PUB.ADD;
108: g_sua_status := 'INVALID';
109: END;
110: END IF;
111:
116: column_name => 'UNIT_CD' ,
117: column_value => p_sua_dtls_rec.unit_cd );
118: EXCEPTION
119: WHEN OTHERS THEN
120: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
121: p_data => l_msg_data);
122: FND_MSG_PUB.DELETE_MSG(l_msg_count);
123: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_CD_UCASE');
124: FND_MSG_PUB.ADD;
118: EXCEPTION
119: WHEN OTHERS THEN
120: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
121: p_data => l_msg_data);
122: FND_MSG_PUB.DELETE_MSG(l_msg_count);
123: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_CD_UCASE');
124: FND_MSG_PUB.ADD;
125: g_sua_status := 'INVALID';
126: END;
120: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
121: p_data => l_msg_data);
122: FND_MSG_PUB.DELETE_MSG(l_msg_count);
123: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_CD_UCASE');
124: FND_MSG_PUB.ADD;
125: g_sua_status := 'INVALID';
126: END;
127: END IF;
128:
133: column_name => 'LOCATION_CD' ,
134: column_value => p_sua_dtls_rec.location_cd );
135: EXCEPTION
136: WHEN OTHERS THEN
137: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
138: p_data => l_msg_data);
139: FND_MSG_PUB.DELETE_MSG(l_msg_count);
140: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_LOC_CD_UCASE');
141: FND_MSG_PUB.ADD;
135: EXCEPTION
136: WHEN OTHERS THEN
137: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
138: p_data => l_msg_data);
139: FND_MSG_PUB.DELETE_MSG(l_msg_count);
140: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_LOC_CD_UCASE');
141: FND_MSG_PUB.ADD;
142: g_sua_status := 'INVALID';
143: END;
137: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
138: p_data => l_msg_data);
139: FND_MSG_PUB.DELETE_MSG(l_msg_count);
140: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_LOC_CD_UCASE');
141: FND_MSG_PUB.ADD;
142: g_sua_status := 'INVALID';
143: END;
144: END IF;
145:
150: column_name => 'UNIT_CLASS' ,
151: column_value => p_sua_dtls_rec.unit_class );
152: EXCEPTION
153: WHEN OTHERS THEN
154: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
155: p_data => l_msg_data);
156: FND_MSG_PUB.DELETE_MSG(l_msg_count);
157: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_CLS_UCASE');
158: FND_MSG_PUB.ADD;
152: EXCEPTION
153: WHEN OTHERS THEN
154: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
155: p_data => l_msg_data);
156: FND_MSG_PUB.DELETE_MSG(l_msg_count);
157: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_CLS_UCASE');
158: FND_MSG_PUB.ADD;
159: g_sua_status := 'INVALID';
160: END;
154: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
155: p_data => l_msg_data);
156: FND_MSG_PUB.DELETE_MSG(l_msg_count);
157: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_CLS_UCASE');
158: FND_MSG_PUB.ADD;
159: g_sua_status := 'INVALID';
160: END;
161: END IF;
162:
161: END IF;
162:
163: IF p_sua_dtls_rec.dropped_ind IS NOT NULL AND p_sua_dtls_rec.dropped_ind NOT IN ('Y' , 'N') THEN
164: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_DROP_IND_INV');
165: FND_MSG_PUB.ADD;
166: g_sua_status := 'INVALID';
167: END IF ;
168:
169: -- If Discontinuation Reason Code is specified , it should be in Upper Case.
173: column_name => 'DCNT_REASON_CD' ,
174: column_value => p_sua_dtls_rec.dcnt_reason_cd );
175: EXCEPTION
176: WHEN OTHERS THEN
177: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
178: p_data => l_msg_data);
179: FND_MSG_PUB.DELETE_MSG(l_msg_count);
180: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_DISC_RSN_INV');
181: FND_MSG_PUB.ADD;
175: EXCEPTION
176: WHEN OTHERS THEN
177: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
178: p_data => l_msg_data);
179: FND_MSG_PUB.DELETE_MSG(l_msg_count);
180: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_DISC_RSN_INV');
181: FND_MSG_PUB.ADD;
182: g_sua_status := 'INVALID';
183: END;
177: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
178: p_data => l_msg_data);
179: FND_MSG_PUB.DELETE_MSG(l_msg_count);
180: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_DISC_RSN_INV');
181: FND_MSG_PUB.ADD;
182: g_sua_status := 'INVALID';
183: END;
184: END IF;
185:
190: column_name => 'NO_ASSESSMENT_IND' ,
191: column_value => p_sua_dtls_rec.no_assessment_ind );
192: EXCEPTION
193: WHEN OTHERS THEN
194: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
195: p_data => l_msg_data);
196: FND_MSG_PUB.DELETE_MSG(l_msg_count);
197: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_NO_ASSMNT_INV');
198: FND_MSG_PUB.ADD;
192: EXCEPTION
193: WHEN OTHERS THEN
194: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
195: p_data => l_msg_data);
196: FND_MSG_PUB.DELETE_MSG(l_msg_count);
197: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_NO_ASSMNT_INV');
198: FND_MSG_PUB.ADD;
199: g_sua_status := 'INVALID';
200: END;
194: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
195: p_data => l_msg_data);
196: FND_MSG_PUB.DELETE_MSG(l_msg_count);
197: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_NO_ASSMNT_INV');
198: FND_MSG_PUB.ADD;
199: g_sua_status := 'INVALID';
200: END;
201: END IF;
202:
208: column_name => 'OVERRIDE_ENROLLED_CP' ,
209: column_value => igs_ge_number.to_cann(p_sua_dtls_rec.override_enrolled_cp ));
210: EXCEPTION
211: WHEN OTHERS THEN
212: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
213: p_data => l_msg_data);
214: FND_MSG_PUB.DELETE_MSG(l_msg_count);
215: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OVR_ENR_CP_INV' );
216: FND_MSG_PUB.ADD;
210: EXCEPTION
211: WHEN OTHERS THEN
212: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
213: p_data => l_msg_data);
214: FND_MSG_PUB.DELETE_MSG(l_msg_count);
215: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OVR_ENR_CP_INV' );
216: FND_MSG_PUB.ADD;
217: g_sua_status := 'INVALID';
218: END;
212: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
213: p_data => l_msg_data);
214: FND_MSG_PUB.DELETE_MSG(l_msg_count);
215: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OVR_ENR_CP_INV' );
216: FND_MSG_PUB.ADD;
217: g_sua_status := 'INVALID';
218: END;
219: END IF;
220:
226: column_value => igs_ge_number.to_cann(p_sua_dtls_rec.override_achievable_cp ));
227:
228: EXCEPTION
229: WHEN OTHERS THEN
230: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
231: p_data => l_msg_data);
232: FND_MSG_PUB.DELETE_MSG(l_msg_count);
233: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OVR_ACH_CP_INV');
234: FND_MSG_PUB.ADD;
228: EXCEPTION
229: WHEN OTHERS THEN
230: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
231: p_data => l_msg_data);
232: FND_MSG_PUB.DELETE_MSG(l_msg_count);
233: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OVR_ACH_CP_INV');
234: FND_MSG_PUB.ADD;
235: g_sua_status := 'INVALID';
236: END;
230: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
231: p_data => l_msg_data);
232: FND_MSG_PUB.DELETE_MSG(l_msg_count);
233: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OVR_ACH_CP_INV');
234: FND_MSG_PUB.ADD;
235: g_sua_status := 'INVALID';
236: END;
237: END IF;
238:
244: column_name => 'GRADING_SCHEMA_CD' ,
245: column_value => p_sua_dtls_rec.grading_schema_code );
246: EXCEPTION
247: WHEN OTHERS THEN
248: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
249: p_data => l_msg_data);
250: FND_MSG_PUB.DELETE_MSG(l_msg_count);
251: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH');
252: FND_MSG_PUB.ADD;
246: EXCEPTION
247: WHEN OTHERS THEN
248: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
249: p_data => l_msg_data);
250: FND_MSG_PUB.DELETE_MSG(l_msg_count);
251: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH');
252: FND_MSG_PUB.ADD;
253: g_sua_status := 'INVALID';
254: END;
248: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
249: p_data => l_msg_data);
250: FND_MSG_PUB.DELETE_MSG(l_msg_count);
251: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH');
252: FND_MSG_PUB.ADD;
253: g_sua_status := 'INVALID';
254: END;
255: END IF;
256:
257:
258: -- If Student Career Transcript is specified , Permitted values are 'Y' or 'N'.
259: IF p_sua_dtls_rec.student_career_transcript IS NOT NULL AND p_sua_dtls_rec.student_career_transcript NOT IN ('Y' , 'N') THEN
260: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_CAR_TRNSCPT_INV');
261: FND_MSG_PUB.ADD;
262: g_sua_status := 'INVALID';
263: END IF ;
264:
265: -- If Student Career statistics is specified , Permitted values are 'Y' or 'N'.
264:
265: -- If Student Career statistics is specified , Permitted values are 'Y' or 'N'.
266: IF p_sua_dtls_rec.student_career_statistics IS NOT NULL AND p_sua_dtls_rec.student_career_statistics NOT IN ('Y' , 'N') THEN
267: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_CAR_STATS_INV');
268: FND_MSG_PUB.ADD;
269: g_sua_status := 'INVALID';
270: END IF ;
271:
272: -- If Transfer Program Code is specified , it should be in Upper Case.
276: column_name => 'TRANSFER_COURSE_CD' ,
277: column_value => p_sua_dtls_rec.transfer_program_cd);
278: EXCEPTION
279: WHEN OTHERS THEN
280: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
281: p_data => l_msg_data);
282: FND_MSG_PUB.DELETE_MSG(l_msg_count);
283: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PRGM_CD_UCASE');
284: FND_MSG_PUB.ADD;
278: EXCEPTION
279: WHEN OTHERS THEN
280: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
281: p_data => l_msg_data);
282: FND_MSG_PUB.DELETE_MSG(l_msg_count);
283: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PRGM_CD_UCASE');
284: FND_MSG_PUB.ADD;
285: g_sua_status := 'INVALID';
286: END;
280: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
281: p_data => l_msg_data);
282: FND_MSG_PUB.DELETE_MSG(l_msg_count);
283: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_PRGM_CD_UCASE');
284: FND_MSG_PUB.ADD;
285: g_sua_status := 'INVALID';
286: END;
287: END IF;
288:
293: column_name => 'MARK' ,
294: column_value => igs_ge_number.to_cann(p_sua_dtls_rec.mark ));
295: EXCEPTION
296: WHEN OTHERS THEN
297: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
298: p_data => l_msg_data);
299: FND_MSG_PUB.DELETE_MSG(l_msg_count);
300: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MARK_INV');
301: FND_MSG_PUB.ADD;
295: EXCEPTION
296: WHEN OTHERS THEN
297: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
298: p_data => l_msg_data);
299: FND_MSG_PUB.DELETE_MSG(l_msg_count);
300: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MARK_INV');
301: FND_MSG_PUB.ADD;
302: g_sua_status := 'INVALID';
303: END;
297: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
298: p_data => l_msg_data);
299: FND_MSG_PUB.DELETE_MSG(l_msg_count);
300: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MARK_INV');
301: FND_MSG_PUB.ADD;
302: g_sua_status := 'INVALID';
303: END;
304: END IF;
305:
310: CLOSE get_grade ;
311:
312: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_INV' );
313: FND_MESSAGE.SET_TOKEN('PARAM',l_grade_msg );
314: FND_MSG_PUB.ADD;
315: g_sua_status := 'INVALID';
316: END IF;
317:
318: --
349: p_attribute20 => p_sua_dtls_rec.attribute20 ,
350: p_desc_flex_name => 'IGS_EN_SU_ATMPT_FLEX'
351: ) THEN
352: FND_MESSAGE.SET_NAME( 'IGS','IGS_AD_INVALID_DESC_FLEX' );
353: FND_MSG_PUB.ADD;
354: g_sua_status := 'INVALID';
355: END IF ;
356: END IF;
357:
362: column_name => 'GRADING_SCHEMA_CD' ,
363: column_value => p_sua_dtls_rec.outcome_grading_schema_code );
364: EXCEPTION
365: WHEN OTHERS THEN
366: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
367: p_data => l_msg_data);
368: FND_MSG_PUB.DELETE_MSG(l_msg_count);
369: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH');
370: FND_MSG_PUB.ADD;
364: EXCEPTION
365: WHEN OTHERS THEN
366: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
367: p_data => l_msg_data);
368: FND_MSG_PUB.DELETE_MSG(l_msg_count);
369: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH');
370: FND_MSG_PUB.ADD;
371: g_sua_status := 'INVALID';
372: END;
366: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
367: p_data => l_msg_data);
368: FND_MSG_PUB.DELETE_MSG(l_msg_count);
369: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH');
370: FND_MSG_PUB.ADD;
371: g_sua_status := 'INVALID';
372: END;
373: END IF;
374:
411: p_person_id ,
412: p_sua_dtls_rec.program_cd,
413: p_uoo_id) THEN
414: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_ATMPT_EXTS');
415: FND_MSG_PUB.ADD;
416: g_sua_status := 'WARNING';
417: RETURN;
418: END IF ;
419: -- Unique Key validation
426: x_location_cd => p_sua_dtls_rec.location_cd,
427: x_unit_class => p_sua_dtls_rec.unit_class,
428: x_version_number => p_unit_version_number) THEN
429: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_UNT_ATMPT_EXTS');
430: FND_MSG_PUB.ADD;
431: g_sua_status := 'WARNING';
432: RETURN;
433: END IF ;
434:
436: IF (p_sua_dtls_rec.administrative_unit_status IS NOT NULL) THEN
437: IF NOT IGS_AD_ADM_UNIT_STAT_PKG.Get_PK_For_Validation(
438: p_sua_dtls_rec.administrative_unit_status,NULL) THEN
439: Fnd_Message.Set_Name ('IGS', 'IGS_EN_AUS_INVALID');
440: FND_MSG_PUB.ADD;
441: g_sua_status := 'INVALID';
442: END IF;
443: END IF;
444:
449: x_grading_schema_cd => p_sua_dtls_rec.grading_schema_code,
450: x_version_number => p_sua_dtls_rec.gs_version_number) THEN
451:
452: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_GRD_SCH' );
453: FND_MSG_PUB.ADD;
454: g_sua_status := 'INVALID';
455: END IF;
456: END IF;
457:
457:
458: -- Foreign Key Validation - Check if Location Code exists.
459: IF NOT igs_ad_location_pkg.get_pk_for_validation ( x_location_cd => p_sua_dtls_rec.location_cd) THEN
460: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_LOC_CD_INV' );
461: FND_MSG_PUB.ADD;
462: g_sua_status := 'INVALID';
463: END IF;
464:
465: -- Foreign Key Validation - Check if Student Program Attempt exists.
467: x_person_id => p_person_id,
468: x_course_cd => p_sua_dtls_rec.program_cd) THEN
469:
470: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_FI_PRSNID_PRGCD_NOT_MATCH');
471: FND_MSG_PUB.ADD;
472: g_sua_status := 'INVALID';
473: END IF ;
474:
475: -- Foreign Key Validation - Check if Unit Code / Version exists.
477: x_unit_cd => p_sua_dtls_rec.unit_cd,
478: x_version_number => NVL ( p_sua_dtls_rec.version_number,p_unit_version_number)) THEN
479:
480: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_PS_UNITCODE_UNITVER_NE');
481: FND_MSG_PUB.ADD;
482: g_sua_status := 'INVALID';
483: END IF;
484:
485: -- Foreign Key Validation - Check if Unit Code exists.
484:
485: -- Foreign Key Validation - Check if Unit Code exists.
486: IF NOT igs_ps_unit_pkg.get_pk_for_validation ( x_unit_cd => p_sua_dtls_rec.unit_cd)THEN
487: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_IN_INVALID_UNIT_CODE');
488: FND_MSG_PUB.ADD;
489: g_sua_status := 'INVALID';
490: END IF;
491:
492: -- Foreign Key Validation - Check if Unit is being Offered.
498: x_location_cd => p_sua_dtls_rec.location_cd,
499: x_unit_class => p_sua_dtls_rec.unit_class) THEN
500:
501: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_AS_UNITCD_LOC_UC_INVALID');
502: FND_MSG_PUB.ADD;
503: g_sua_status := 'INVALID';
504: END IF;
505:
506: --Foreign Key validation - Check if Discontinuation Reason Code exists.
506: --Foreign Key validation - Check if Discontinuation Reason Code exists.
507: IF p_sua_dtls_rec.dcnt_reason_cd IS NOT NULL THEN
508: IF NOT igs_en_dcnt_reasoncd_pkg.get_pk_for_validation ( x_dcnt_reason_cd => p_sua_dtls_rec.dcnt_reason_cd )THEN
509: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_DISC_REASON_CD_INV' );
510: FND_MSG_PUB.ADD;
511: g_sua_status := 'INVALID';
512: END IF;
513: END IF;
514:
517: IF p_sua_dtls_rec.core_indicator IS NOT NULL THEN
518: l_indicator := IGS_LOOKUPS_VIEW_PKG.GET_PK_FOR_VALIDATION('IGS_PS_CORE_IND',p_sua_dtls_rec.core_indicator);
519: IF l_indicator=FALSE THEN
520: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_CORE_IND_INVALID' );
521: FND_MSG_PUB.ADD;
522: g_sua_status := 'INVALID';
523: END IF;
524: END IF;
525: END validate_db_cons;
638: CLOSE get_sca_trn;
639: END IF;
640:
641: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_STDNT_SPA_TRN_INCOMPL' );
642: FND_MSG_PUB.ADD;
643: g_sua_status := 'INVALID';
644: RAISE ;
645: END;
646: END IF ;
687: CLOSE get_sua_trn;
688: END IF;
689:
690: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_STDNT_SUA_TRN_INCOMPL' );
691: FND_MSG_PUB.ADD;
692: g_sua_status := 'INVALID';
693: RAISE ;
694: END;
695:
694: END;
695:
696: ELSE
697: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_STDNT_SUA_TRN_INCOMPL' );
698: FND_MSG_PUB.ADD;
699: g_sua_status := 'INVALID';
700: END IF ;
701:
702: CLOSE get_sua_trn;
836: p_administrative_unit_status => NVL( p_sua_dtls_rec.administrative_unit_status , p_administrative_unit_status),
837: p_message_name => l_message_name,
838: p_uoo_id => p_uoo_id) AND l_message_name IS NOT NULL THEN
839: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name );
840: FND_MSG_PUB.ADD;
841: g_sua_status := 'INVALID';
842:
843: END IF;
844:
864: IF (usec_upd_enr_act%ISOPEN) THEN
865: CLOSE usec_upd_enr_act;
866: END IF ;
867: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_ACTUAL_ENR_UD_ERR' );
868: FND_MSG_PUB.ADD;
869: g_sua_status := 'INVALID';
870: RAISE ;
871: END ;
872:
883: IF (usec_upd_enr_act%ISOPEN) THEN
884: CLOSE usec_upd_enr_act;
885: END IF ;
886: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_WAITLIST_UPD_ERR' );
887: FND_MSG_PUB.ADD;
888: g_sua_status := 'INVALID';
889: RAISE ;
890: END ;
891: END IF ;
988: IF (get_spa%ISOPEN) THEN
989: CLOSE get_spa;
990: END IF;
991: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SPA_STAT_INCOMPL' );
992: FND_MSG_PUB.ADD;
993: g_sua_status := 'INVALID';
994: RAISE ;
995: END ;
996: END IF ;
1209: CLOSE c_get_wlst_alwd_usec;
1210:
1211: IF l_wlst_alwd.waitlist_allowed='N' THEN
1212: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_WLST_NOT_ALWD' );
1213: FND_MSG_PUB.ADD;
1214: g_sua_status := 'INVALID';
1215: END IF;
1216:
1217: OPEN c_get_wlst_actual_usec(p_uoo_id);
1219: CLOSE c_get_wlst_actual_usec;
1220:
1221: IF l_wlst_actual>=l_wlst_alwd.max_students_per_waitlist THEN
1222: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MAX_WAIT_REACH' );
1223: FND_MSG_PUB.ADD;
1224: g_sua_status := 'INVALID';
1225: END IF;
1226:
1227: -- get program level max_wlst_per_stud for the program in context
1241: FETCH c_get_wlst_suas INTO l_wlst_suas;
1242: CLOSE c_get_wlst_suas;
1243: IF l_max_wlst_per_stud<=NVL(l_wlst_suas,0) THEN
1244: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MAX_WLST_STUD_RCH' );
1245: FND_MSG_PUB.ADD;
1246: g_sua_status := 'INVALID';
1247: END IF;
1248: END IF;
1249:
1319: p_ci_sequence_number => p_ci_sequence_number ,
1320: p_message_name => l_message_name ) THEN
1321:
1322: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name );
1323: FND_MSG_PUB.ADD;
1324: g_sua_status := 'INVALID';
1325: END IF ;
1326:
1327: END IF;
1327: END IF;
1328:
1329: EXCEPTION
1330: WHEN OTHERS THEN
1331: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
1332: p_data => l_msg_data);
1333: FND_MSG_PUB.DELETE_MSG(l_msg_count);
1334: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_ST_CANT_DETR_CENSUS_DA');
1335: FND_MSG_PUB.ADD;
1329: EXCEPTION
1330: WHEN OTHERS THEN
1331: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
1332: p_data => l_msg_data);
1333: FND_MSG_PUB.DELETE_MSG(l_msg_count);
1334: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_ST_CANT_DETR_CENSUS_DA');
1335: FND_MSG_PUB.ADD;
1336: g_sua_status := 'INVALID';
1337: END ;
1331: FND_MSG_PUB.COUNT_AND_GET ( p_count => l_msg_count ,
1332: p_data => l_msg_data);
1333: FND_MSG_PUB.DELETE_MSG(l_msg_count);
1334: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_ST_CANT_DETR_CENSUS_DA');
1335: FND_MSG_PUB.ADD;
1336: g_sua_status := 'INVALID';
1337: END ;
1338:
1339: --
1350: p_legacy => 'Y' )
1351: THEN
1352:
1353: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name );
1354: FND_MSG_PUB.ADD;
1355: g_sua_status := 'INVALID';
1356: END IF;
1357: EXCEPTION
1358: WHEN OTHERS THEN
1356: END IF;
1357: EXCEPTION
1358: WHEN OTHERS THEN
1359: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_AV_MAPADV_SUA_CANNOT_DTRM' );
1360: FND_MSG_PUB.ADD;
1361: g_sua_status := 'INVALID';
1362: END ;
1363:
1364: BEGIN
1388:
1389: ELSE
1390:
1391: FND_MESSAGE.SET_NAME('IGS','IGS_EN_LGCY_NO_SUPER');
1392: FND_MSG_PUB.ADD;
1393: g_sua_status := 'INVALID';
1394:
1395: END IF;
1396:
1416: CLOSE c_sua_chg_alwd;
1417:
1418: IF l_sua_chg_alwd = 'N' THEN
1419: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_FAIL_SUA_SUBTIT_NOT_AWD' );
1420: FND_MSG_PUB.ADD;
1421: g_sua_status := 'INVALID';
1422: END IF;
1423:
1424: END IF;
1440: p_uoo_id => p_uoo_id,
1441: p_no_assessment_ind => p_no_assessment_ind
1442: )THEN
1443: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name );
1444: FND_MSG_PUB.ADD;
1445: g_sua_status := 'INVALID';
1446: END IF;
1447: EXCEPTION
1448: WHEN OTHERS THEN
1464: p_Gs_Version_number => p_sua_dtls_rec.gs_version_number ,
1465: p_message_name => l_message_name ) THEN
1466:
1467: FND_MESSAGE.SET_NAME( 'IGS' , l_message_name );
1468: FND_MSG_PUB.ADD;
1469: g_sua_status := 'INVALID';
1470: END IF;
1471:
1472: END IF;
1476: -- 12. If enrolled date is set, then program attempt status cannot be Unconfirmed.
1477: IF p_sua_dtls_rec.enrolled_dt IS NOT NULL THEN
1478: IF l_program_attempt_status = 'UNCONFIRM' THEN
1479: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_ENRDT_NOT_ENTERED_SPA' );
1480: FND_MSG_PUB.ADD;
1481: g_sua_status := 'INVALID';
1482: END IF ;
1483: END IF;
1484:
1485: --
1486: -- 13. Enrolled unit attempts cannot be added within a discontinued or completed program.
1487: IF l_program_attempt_status in ('DISCONTIN', 'COMPLETED') and p_unit_attempt_status = 'ENROLLED' THEN
1488: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_SPA_MISMTCH');
1489: FND_MSG_PUB.ADD;
1490: g_sua_status := 'INVALID';
1491: END IF;
1492:
1493: --
1494: -- Validate DISCONTINUED Program Attempt Status :
1495: -- 14. If program attempt is discontinued, then the teaching period start date cannot be after the discontinued date of the program.
1496: IF l_program_attempt_status = 'DISCONTIN' AND p_ci_start_dt > TRUNC(p_sua_dtls_rec.discontinued_dt) THEN
1497: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_TCH_PRD_AFT_DIS');
1498: FND_MSG_PUB.ADD;
1499: g_sua_status := 'INVALID';
1500: END IF;
1501:
1502: --
1503: -- Validate Primary Program Type :
1504: -- 15. If career centric, and program is a secondary (ie. non-primary) program then Enrolled units cannot be attached.
1505: IF p_career_model_enabled = 'Y' AND l_src_program_typ = 'SECONDARY' AND p_unit_attempt_status = 'ENROLLED' THEN
1506: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_ENR_UNT_SEC_PRGM');
1507: FND_MSG_PUB.ADD;
1508: g_sua_status := 'INVALID';
1509: END IF ;
1510:
1511: --
1512: -- Validate Enrolled Date :
1513: -- 16. If unit attempt is not duplicate, then the enrolled date cannot be prior to the program commencement (start) date.
1514: IF p_unit_attempt_status <> 'DUPLICATE' AND p_sua_dtls_rec.enrolled_dt IS NOT NULL AND TRUNC(p_sua_dtls_rec.enrolled_dt) < l_commencement_dt THEN
1515: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_BF_STAMPT' );
1516: FND_MSG_PUB.ADD;
1517: g_sua_status := 'INVALID';
1518: END IF ;
1519:
1520: -- check to see if the load calendar (corresponding to the teaching calendar) end date is greater than the
1521: -- commencement date of the program attempt for ENROLLED, DISCONTIN, WAITLISTED and INVALID.
1522: IF p_unit_attempt_status IN ('ENROLLED','DISCONTIN','WAITLISTED','INVALID') THEN
1523: IF l_term_cal_dtls.load_end_dt < l_commencement_dt THEN
1524: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_BF_STAMPT' );
1525: FND_MSG_PUB.ADD;
1526: g_sua_status := 'INVALID';
1527: END IF;
1528: END IF;
1529:
1599: --
1600: -- 26. Discontinuation reason code can only be set when discontinued date is set
1601: IF p_sua_dtls_rec.dcnt_reason_cd IS NOT NULL AND p_sua_dtls_rec.discontinued_dt IS NULL THEN
1602: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_DISC_RSN_CD_INV');
1603: FND_MSG_PUB.ADD;
1604: g_sua_status := 'INVALID';
1605: END IF ;
1606:
1607: -- Validate Dropped Indicator :
1607: -- Validate Dropped Indicator :
1608: -- 27. If dropped indicator is set then enrolled date must be set
1609: IF p_sua_dtls_rec.dropped_ind = 'Y' AND p_sua_dtls_rec.enrolled_dt IS NULL THEN
1610: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_ENR_DT_NT_SET');
1611: FND_MSG_PUB.ADD;
1612: g_sua_status := 'INVALID';
1613: END IF ;
1614:
1615: -- 28. If dropped indicator is set then discontinued date must not be set
1614:
1615: -- 28. If dropped indicator is set then discontinued date must not be set
1616: IF p_sua_dtls_rec.dropped_ind = 'Y' AND p_sua_dtls_rec.discontinued_dt IS NOT NULL THEN
1617: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_SUA_DRP_DISN_INV');
1618: FND_MSG_PUB.ADD;
1619: g_sua_status := 'INVALID';
1620: END IF ;
1621:
1622: END IF ;
1626:
1627: IF p_sua_dtls_rec.transfer_program_cd IS NOT NULL THEN
1628: IF p_sua_dtls_rec.transfer_program_cd = p_sua_dtls_rec.program_cd THEN
1629: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_TOPRG_TRNS_FROM_PRG');
1630: FND_MSG_PUB.ADD;
1631: g_sua_status := 'INVALID';
1632: END IF;
1633: END IF ;
1634:
1635: -- 30. If Transfer Date is specified , Transfer Program Code should be specified and vice versa.
1636: IF (p_sua_dtls_rec.transfer_program_cd IS NOT NULL AND p_sua_dtls_rec.transfer_dt is NULL )
1637: OR (p_sua_dtls_rec.transfer_program_cd IS NULL AND p_sua_dtls_rec.transfer_dt IS NOT NULL ) THEN
1638: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_TRN_DTLS_INCOMPL');
1639: FND_MSG_PUB.ADD;
1640: g_sua_status := 'INVALID';
1641: END IF ;
1642:
1643: -- Validate unit to be transferred
1678: p_sua_dtls_rec.override_achievable_cp IS NOT NULL OR p_sua_dtls_rec.grading_schema_code IS NOT NULL OR
1679: p_sua_dtls_rec.gs_version_number IS NOT NULL OR p_sua_dtls_rec.subtitle IS NOT NULL OR
1680: p_sua_dtls_rec.outcome_dt IS NOT NULL OR p_sua_dtls_rec.mark IS NOT NULL OR p_sua_dtls_rec.grade IS NOT NULL ) THEN
1681: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_TRNSFR_DT_SET');
1682: FND_MSG_PUB.ADD;
1683: g_sua_status := 'INVALID';
1684: END IF ;
1685:
1686: -- Validate Grade /Mark
1686: -- Validate Grade /Mark
1687: --38. Grade can only be set when outcome date is set, and visa versa.
1688: IF p_sua_dtls_rec.outcome_dt IS NULL AND p_sua_dtls_rec.grade IS NOT NULL THEN
1689: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OTCME_DT_REQD');
1690: FND_MSG_PUB.ADD;
1691: g_sua_status := 'INVALID';
1692: END IF ;
1693:
1694: IF p_sua_dtls_rec.outcome_dt IS NOT NULL AND p_sua_dtls_rec.grade IS NULL THEN
1692: END IF ;
1693:
1694: IF p_sua_dtls_rec.outcome_dt IS NOT NULL AND p_sua_dtls_rec.grade IS NULL THEN
1695: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OTCME_DT_NT_SET');
1696: FND_MSG_PUB.ADD;
1697: g_sua_status := 'INVALID';
1698: END IF ;
1699:
1700: -- 39. Mark can only be set when outcome date is set.
1699:
1700: -- 39. Mark can only be set when outcome date is set.
1701: IF p_sua_dtls_rec.outcome_dt IS NULL AND p_sua_dtls_rec.mark IS NOT NULL THEN
1702: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OTCME_DT_REQD');
1703: FND_MSG_PUB.ADD;
1704: g_sua_status := 'INVALID';
1705: END IF ;
1706:
1707: -- 40.If grade set and outcome grading schema code and version are not set, then grade must exist in the unit section default grading schema.
1720: -- 41. If outcome date set, then enrolled date must be set and discontinued must not be set.
1721: IF (p_sua_dtls_rec.outcome_dt IS NOT NULL AND p_sua_dtls_rec.enrolled_dt IS NULL ) OR
1722: (p_sua_dtls_rec.outcome_dt IS NOT NULL AND p_sua_dtls_rec.discontinued_dt IS NOT NULL) THEN
1723: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_OUTCME_DT_NREQD');
1724: FND_MSG_PUB.ADD;
1725: g_sua_status := 'INVALID';
1726: END IF ;
1727:
1728: -- 42.If adding completed unit attempt to a discontinued program attempt, the outcome date cannot be after the discontinuation date.
1733: CLOSE get_prgm_discd_dt ;
1734:
1735: IF p_sua_dtls_rec.outcome_dt > l_prgm_discontinued_dt THEN
1736: FND_MESSAGE.SET_NAME( 'IGS' ,'IGS_EN_TRNSFER_INV');
1737: FND_MSG_PUB.ADD;
1738: g_sua_status := 'INVALID';
1739: END IF ;
1740: END IF ;
1741:
1742: -- Validate waitlist Date
1743: -- 43. If waitlist date is set, then enrolled date and discontinued date must not be set.
1744: IF p_sua_dtls_rec.waitlisted_dt IS NOT NULL AND ( p_sua_dtls_rec.discontinued_dt IS NOT NULL OR p_sua_dtls_rec.enrolled_dt IS NOT NULL ) THEN
1745: FND_MESSAGE.SET_NAME( 'IGS', 'IGS_EN_ENR_CNT_WAITLST' );
1746: FND_MSG_PUB.ADD;
1747: g_sua_status := 'INVALID';
1748: END IF ;
1749:
1750: --
1758:
1759: IF l_auditable_ind <> 'Y' THEN
1760: --check if auditable flag is set at Unit level .
1761: FND_MESSAGE.SET_NAME( 'IGS', 'IGS_EN_NO_ASS_IND_INV');
1762: FND_MSG_PUB.ADD;
1763: g_sua_status := 'INVALID';
1764: END IF ;
1765: END IF ;
1766:
1778: ) THEN
1779:
1780: IF l_message_name IS NOT NULL THEN
1781: FND_MESSAGE.SET_NAME( 'IGS', l_message_name);
1782: FND_MSG_PUB.ADD;
1783: g_sua_status := 'INVALID';
1784: END IF;
1785:
1786: END IF;
1937: END IF;
1938:
1939: -- If the calling program has passed the parameter for initializing the message list
1940: IF FND_API.TO_BOOLEAN(p_init_msg_list) THEN
1941: FND_MSG_PUB.INITIALIZE;
1942: END IF;
1943:
1944: -- Set the return status to success
1945: x_return_status := FND_API.G_RET_STS_SUCCESS;
1982: -- Derive Person ID
1983: l_person_id := igs_ge_gen_003.get_person_id ( p_person_number => p_sua_dtls_rec.person_number) ;
1984: IF l_person_id IS NULL THEN
1985: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_GE_INVALID_PERSON_NUMBER');
1986: FND_MSG_PUB.ADD;
1987: g_sua_status := 'INVALID';
1988: END IF;
1989:
1990: -- Derive Calendar Details.
1998: p_return_status => l_return_status );
1999:
2000: IF l_return_status = 'INVALID' THEN
2001: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_ALT_CD_NO_CAL_FND ');
2002: FND_MSG_PUB.ADD;
2003: g_sua_status := 'INVALID';
2004: ELSIF l_return_status = 'MULTIPLE' THEN
2005: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MULTI_TCH_CAL_FND');
2006: FND_MSG_PUB.ADD;
2002: FND_MSG_PUB.ADD;
2003: g_sua_status := 'INVALID';
2004: ELSIF l_return_status = 'MULTIPLE' THEN
2005: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_MULTI_TCH_CAL_FND');
2006: FND_MSG_PUB.ADD;
2007: g_sua_status := 'INVALID';
2008: END IF ;
2009:
2010: -- Derive Unit version if parameter is NULL.
2067: OPEN get_sua_trn (l_uoo_id , l_person_id ,p_sua_dtls_rec.transfer_program_cd ,p_sua_dtls_rec.unit_cd ) ;
2068: FETCH get_sua_trn INTO sua_trnsfr_rec(1) ;
2069: IF get_sua_trn%NOTFOUND THEN
2070: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_TRNSFR_UNT_NT_FND');
2071: FND_MSG_PUB.ADD;
2072: g_sua_status := 'INVALID';
2073: END IF ;
2074: CLOSE get_sua_trn ;
2075:
2114: END IF;
2115:
2116: END LOOP;
2117: FND_MESSAGE.SET_NAME( 'IGS' , 'IGS_EN_ADM_UNT_STAT_INV');
2118: FND_MSG_PUB.ADD;
2119: g_sua_status := 'INVALID';
2120:
2121: END IF;
2122: END IF;
2626: IF ( (FND_API.To_Boolean(p_commit)) AND (g_sua_status = 'VALID') ) THEN
2627: COMMIT WORK;
2628: END IF;
2629:
2630: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
2631: p_data => x_msg_data);
2632:
2633: --
2634: -- Retutn Status to the calling program
2643: EXCEPTION
2644: WHEN FND_API.G_EXC_ERROR THEN
2645: ROLLBACK TO CREATE_SUA_PUB;
2646: x_return_status := FND_API.G_RET_STS_ERROR;
2647: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
2648: p_data => x_msg_data);
2649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2650: ROLLBACK TO CREATE_SUA_PUB;
2651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2648: p_data => x_msg_data);
2649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2650: ROLLBACK TO CREATE_SUA_PUB;
2651: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2652: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
2653: p_data => x_msg_data);
2654: WHEN OTHERS THEN
2655: ROLLBACK TO CREATE_SUA_PUB;
2656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2653: p_data => x_msg_data);
2654: WHEN OTHERS THEN
2655: ROLLBACK TO CREATE_SUA_PUB;
2656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2657: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2658: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,
2659: l_api_name);
2660: END IF;
2661: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
2654: WHEN OTHERS THEN
2655: ROLLBACK TO CREATE_SUA_PUB;
2656: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2657: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2658: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,
2659: l_api_name);
2660: END IF;
2661: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
2662: p_data => x_msg_data);
2657: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2658: FND_MSG_PUB.Add_Exc_Msg(g_pkg_name,
2659: l_api_name);
2660: END IF;
2661: FND_MSG_PUB.COUNT_AND_GET( p_count => x_msg_count,
2662: p_data => x_msg_data);
2663:
2664:
2665: END create_sua ;