[Home] [Help]
22:
23: -- Mandatory parameter check
24: IF p_hesa_susa_rec.person_number IS NULL THEN
25: -- Add excep to stack
26: FND_MESSAGE.SET_NAME('IGS','IGS_EN_PER_NUM_NULL');
27: FND_MSG_PUB.ADD;
28: l_valid_params := FALSE;
29: END IF;
30:
30:
31: -- Mandatory parameter check
32: IF p_hesa_susa_rec.program_cd IS NULL THEN
33: -- Add excep to stack
34: FND_MESSAGE.SET_NAME('IGS','IGS_EN_PRGM_CD_NULL');
35: FND_MSG_PUB.ADD;
36: l_valid_params := FALSE;
37: END IF;
38:
38:
39: -- Mandatory parameter check
40: IF p_hesa_susa_rec.unit_set_cd IS NULL THEN
41: -- Add excep to stack
42: FND_MESSAGE.SET_NAME('IGS','IGS_HE_UNIT_SET_MAND');
43: FND_MSG_PUB.ADD;
44: l_valid_params := FALSE;
45: END IF;
46:
88: x_unit_set_cd => p_hesa_susa_rec.unit_set_cd,
89: x_sequence_number => p_sequence_number
90: ) THEN
91: -- Add excep to stack
92: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUSA_DTLS_EXIST');
93: FND_MSG_PUB.ADD;
94: RETURN 'W';
95: END IF;
96:
101: x_unit_set_cd => p_hesa_susa_rec.unit_set_cd,
102: x_sequence_number => p_sequence_number
103: ) THEN
104: -- Add excep to stack
105: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUSA_REC_NEX');
106: FND_MSG_PUB.ADD;
107: l_ret_value := 'E';
108: END IF;
109:
112: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_HEENT',
113: x_value => p_hesa_susa_rec.new_he_entrant_cd
114: ) THEN
115: -- Add excep to stack
116: FND_MESSAGE.SET_NAME('IGS','IGS_HE_NEW_HE_ENTRN_NEX');
117: FND_MSG_PUB.ADD;
118: l_ret_value := 'E';
119: END IF;
120: END IF;
124: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_TTA',
125: x_value => p_hesa_susa_rec.term_time_accom
126: ) THEN
127: -- Add excep to stack
128: FND_MESSAGE.SET_NAME('IGS','IGS_HE_TRM_ACCOMNEX');
129: FND_MSG_PUB.ADD;
130: l_ret_value := 'E';
131: END IF;
132: END IF;
136: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_DIS_ALLOW',
137: x_value => p_hesa_susa_rec.disability_allow
138: ) THEN
139: -- Add excep to stack
140: FND_MESSAGE.SET_NAME('IGS','IGS_HE_DISB_ALLW_NEX');
141: FND_MSG_PUB.ADD;
142: l_ret_value := 'E';
143: END IF;
144: END IF;
148: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_SUP_BAND',
149: x_value => p_hesa_susa_rec.additional_sup_band
150: ) THEN
151: -- ADD excep to stack
152: FND_MESSAGE.SET_NAME('IGS','IGS_HE_ADD_SUP_BAND_NEX');
153: FND_MSG_PUB.ADD;
154: l_ret_value := 'E';
155: END IF;
156: END IF;
160: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_ST13',
161: x_value => p_hesa_susa_rec.sldd_discrete_prov
162: ) THEN
163: -- Add excep to stack
164: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SLDD_DISCR_NEX');
165: FND_MSG_PUB.ADD;
166: l_ret_value := 'E';
167: END IF;
168: END IF;
172: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_MODE_TYPE',
173: x_value => p_hesa_susa_rec.study_mode
174: ) THEN
175: -- ADD excep to stack
176: FND_MESSAGE.SET_NAME('IGS','IGS_HE_STUDY_MODE_NEX');
177: FND_MSG_PUB.ADD;
178: l_ret_value := 'E';
179: END IF;
180: END IF;
184: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_LOCSDY',
185: x_value => p_hesa_susa_rec.study_location
186: ) THEN
187: -- ADD excep to stack
188: FND_MESSAGE.SET_NAME('IGS','IGS_HE_STUDY_LOC_NEX');
189: FND_MSG_PUB.ADD;
190: l_ret_value := 'E';
191: END IF;
192: END IF;
196: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_FRAN_ACT',
197: x_value => p_hesa_susa_rec.franchising_activity
198: ) THEN
199: -- ADD excep to stack
200: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FRANCH_ACT_NEX');
201: FND_MSG_PUB.ADD;
202: l_ret_value := 'E';
203: END IF;
204: END IF;
208: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_CSTAT',
209: x_value => p_hesa_susa_rec.completion_status
210: ) THEN
211: -- ADD excep to stack
212: FND_MESSAGE.SET_NAME('IGS','IGS_HE_COMP_STATUS_NEX');
213: FND_MSG_PUB.ADD;
214: l_ret_value := 'E';
215: END IF;
216: END IF;
220: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_PROGRESS',
221: x_value => p_hesa_susa_rec.good_stand_marker
222: ) THEN
223: -- ADD excep to stack
224: FND_MESSAGE.SET_NAME('IGS','IGS_HE_GOOD_STAND_NEX');
225: FND_MSG_PUB.ADD;
226: l_ret_value := 'E';
227: END IF;
228: END IF;
232: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_FUNDCOMP',
233: x_value => p_hesa_susa_rec.complete_pyr_study_cd
234: ) THEN
235: -- ADD excep to stack
236: FND_MESSAGE.SET_NAME('IGS','IGS_HE_COMP_PYR_STUDY_NEX');
237: FND_MSG_PUB.ADD;
238: l_ret_value := 'E';
239: END IF;
240: END IF;
244: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_FUND_CODE',
245: x_value => p_hesa_susa_rec.fundability_code
246: ) THEN
247: -- ADD excep to stack
248: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FUNDB_CODE_NEX');
249: FND_MSG_PUB.ADD;
250: l_ret_value := 'E';
251: END IF;
252: END IF;
256: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_FEEELIG',
257: x_value => p_hesa_susa_rec.fee_eligibility
258: ) THEN
259: -- ADD excep to stack
260: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FEE_ELGBL_NEX');
261: FND_MSG_PUB.ADD;
262: l_ret_value := 'E';
263: END IF;
264: END IF;
268: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_FEEBAND',
269: x_value => p_hesa_susa_rec.fee_band
270: ) THEN
271: -- ADD excep to stack
272: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FEE_BAND_NEX');
273: FND_MSG_PUB.ADD;
274: l_ret_value := 'E';
275: END IF;
276: END IF;
280: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_NONPAY',
281: x_value => p_hesa_susa_rec.non_payment_reason
282: ) THEN
283: -- ADD excep to stack
284: FND_MESSAGE.SET_NAME('IGS','IGS_HE_NOPAY_REASON_NEX');
285: FND_MSG_PUB.ADD;
286: l_ret_value := 'E';
287: END IF;
288: END IF;
292: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_MSTUFEE',
293: x_value => p_hesa_susa_rec.student_fee
294: ) THEN
295: -- ADD excep to stack
296: FND_MESSAGE.SET_NAME('IGS','IGS_HE_STUD_FEE_NEX');
297: FND_MSG_PUB.ADD;
298: l_ret_value := 'E';
299: END IF;
300: END IF;
304: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_TYPEYR',
305: x_value => p_hesa_susa_rec.type_of_year
306: ) THEN
307: -- ADD excep to stack
308: FND_MESSAGE.SET_NAME('IGS','IGS_HE_TYPE_OF_YEAR_NEX');
309: FND_MSG_PUB.ADD;
310: l_ret_value := 'E';
311: END IF;
312: END IF;
316: IF NOT igs_he_code_values_pkg.get_pk_for_validation (x_code_type => 'OSS_ELIGENFD',
317: x_value => p_hesa_susa_rec.enh_fund_elig_cd
318: ) THEN
319: -- ADD excep to stack
320: FND_MESSAGE.SET_NAME('IGS','IGS_HE_ELIG_ENH_FUND_NEX');
321: FND_MSG_PUB.ADD;
322: l_ret_value := 'E';
323: END IF;
324: END IF;
326: -- Check if the Credit Level Achieved 1 exists
327: IF p_hesa_susa_rec.credit_level_achieved1 IS NOT NULL THEN
328: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level_achieved1) THEN
329: -- ADD excep to stack
330: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CR_LEVEL_ACHD1_NEX');
331: FND_MSG_PUB.ADD;
332: l_ret_value := 'E';
333: END IF;
334: END IF;
336: -- Check if the Credit Level Achieved 2 exists
337: IF p_hesa_susa_rec.credit_level_achieved2 IS NOT NULL THEN
338: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level_achieved2) THEN
339: -- ADD excep to stack
340: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CR_LEVEL_ACHD2_NEX');
341: FND_MSG_PUB.ADD;
342: l_ret_value := 'E';
343: END IF;
344: END IF;
346: -- Check if the Credit Level Achieved 3 exists
347: IF p_hesa_susa_rec.credit_level_achieved3 IS NOT NULL THEN
348: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level_achieved3) THEN
349: -- ADD excep to stack
350: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CR_LEVEL_ACHD3_NEX');
351: FND_MSG_PUB.ADD;
352: l_ret_value := 'E';
353: END IF;
354: END IF;
356: -- Check if the Credit Level Achieved 4 exists
357: IF p_hesa_susa_rec.credit_level_achieved4 IS NOT NULL THEN
358: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level_achieved4) THEN
359: -- ADD excep to stack
360: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CR_LEVEL_ACHD4_NEX');
361: FND_MSG_PUB.ADD;
362: l_ret_value := 'E';
363: END IF;
364: END IF;
366: -- Check if the Credit Level 1 exists
367: IF p_hesa_susa_rec.credit_level1 IS NOT NULL THEN
368: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level1) THEN
369: -- ADD excep to stack
370: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CREDIT_LEVEL1_NEX');
371: FND_MSG_PUB.ADD;
372: l_ret_value := 'E';
373: END IF;
374: END IF;
376: -- Check if the Credit Level 2 exists
377: IF p_hesa_susa_rec.credit_level2 IS NOT NULL THEN
378: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level2) THEN
379: -- ADD excep to stack
380: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CREDIT_LEVEL2_NEX');
381: FND_MSG_PUB.ADD;
382: l_ret_value := 'E';
383: END IF;
384: END IF;
386: -- Check if the Credit Level 3 exists
387: IF p_hesa_susa_rec.credit_level3 IS NOT NULL THEN
388: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level3) THEN
389: -- ADD excep to stack
390: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CREDIT_LEVEL3_NEX');
391: FND_MSG_PUB.ADD;
392: l_ret_value := 'E';
393: END IF;
394: END IF;
396: -- Check if the Credit Level 4 exists
397: IF p_hesa_susa_rec.credit_level4 IS NOT NULL THEN
398: IF NOT igs_ps_unit_level_pkg.get_pk_for_validation (x_unit_level => p_hesa_susa_rec.credit_level4) THEN
399: -- ADD excep to stack
400: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CREDIT_LEVEL4_NEX');
401: FND_MSG_PUB.ADD;
402: l_ret_value := 'E';
403: END IF;
404: END IF;
407: -- Check whether the Credit Value Year of Program 1 field
408: -- is within range 0 to 999 (inclusive)
409: IF p_hesa_susa_rec.credit_value_yop1 IS NOT NULL THEN
410: IF NOT p_hesa_susa_rec.credit_value_yop1 between 0 and 999 THEN
411: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CV_YOP1_RANGE_INVALID');
412: FND_MSG_PUB.ADD;
413: l_ret_value := 'E';
414: END IF;
415: END IF;
418: -- Check whether the Credit Value Year of Program 2 field
419: -- is within range 0 to 999 (inclusive)
420: IF p_hesa_susa_rec.credit_value_yop2 IS NOT NULL THEN
421: IF NOT p_hesa_susa_rec.credit_value_yop2 between 0 and 999 THEN
422: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CV_YOP2_RANGE_INVALID');
423: FND_MSG_PUB.ADD;
424: l_ret_value := 'E';
425: END IF;
426: END IF;
428: -- Check whether the Credit Value Year of Program 3 field
429: -- is within range 0 to 999 (inclusive)
430: IF p_hesa_susa_rec.credit_value_yop3 IS NOT NULL THEN
431: IF NOT p_hesa_susa_rec.credit_value_yop3 between 0 and 999 THEN
432: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CV_YOP3_RANGE_INVALID');
433: FND_MSG_PUB.ADD;
434: l_ret_value := 'E';
435: END IF;
436: END IF;
438: -- Check whether the Credit Value Year of Program 4 field
439: -- is within range 0 to 999 (inclusive)
440: IF p_hesa_susa_rec.credit_value_yop4 IS NOT NULL THEN
441: IF NOT p_hesa_susa_rec.credit_value_yop4 between 0 and 999 THEN
442: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CV_YOP4_RANGE_INVALID');
443: FND_MSG_PUB.ADD;
444: l_ret_value := 'E';
445: END IF;
446: END IF;
447:
448: -- Check whether the Year Of Student field is within range 0 to 39 (inclusive)
449: IF p_hesa_susa_rec.year_stu IS NOT NULL THEN
450: IF NOT p_hesa_susa_rec.year_stu between 0 and 39 THEN
451: FND_MESSAGE.SET_NAME('IGS','IGS_HE_YEAR_STU_INVALID');
452: FND_MSG_PUB.ADD;
453: l_ret_value := 'E';
454: END IF;
455: END IF;
458: -- Check whether the Number of Credit Points obtained 1 field
459: -- is within range 0 to 999 (inclusive)
460: IF p_hesa_susa_rec.credit_pt_achieved1 IS NOT NULL THEN
461: IF NOT p_hesa_susa_rec.credit_pt_achieved1 between 0 and 999 THEN
462: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CP_ACH1_INVALID');
463: FND_MSG_PUB.ADD;
464: l_ret_value := 'E';
465: END IF;
466: END IF;
469: -- Check whether the Number of Credit Points obtained 2 field
470: -- is within range 0 to 999 (inclusive)
471: IF p_hesa_susa_rec.credit_pt_achieved2 IS NOT NULL THEN
472: IF NOT p_hesa_susa_rec.credit_pt_achieved2 between 0 and 999 THEN
473: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CP_ACH2_INVALID');
474: FND_MSG_PUB.ADD;
475: l_ret_value := 'E';
476: END IF;
477: END IF;
479: -- Check whether the Number of Credit Points obtained 3 field
480: -- is within range 0 to 999 (inclusive)
481: IF p_hesa_susa_rec.credit_pt_achieved3 IS NOT NULL THEN
482: IF NOT p_hesa_susa_rec.credit_pt_achieved3 between 0 and 999 THEN
483: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CP_ACH3_INVALID');
484: FND_MSG_PUB.ADD;
485: l_ret_value := 'E';
486: END IF;
487: END IF;
489: -- Check whether the Number of Credit Points obtained 4 field
490: -- is within range 0 to 999 (inclusive)
491: IF p_hesa_susa_rec.credit_pt_achieved4 IS NOT NULL THEN
492: IF NOT p_hesa_susa_rec.credit_pt_achieved4 between 0 and 999 THEN
493: FND_MESSAGE.SET_NAME('IGS','IGS_HE_CP_ACH4_INVALID');
494: FND_MSG_PUB.ADD;
495: l_ret_value := 'E';
496: END IF;
497: END IF;
500: -- Check whether the Proportion not taught by institution field
501: -- is within the range 0 to 100 (inclusive)
502: IF p_hesa_susa_rec.pro_not_taught IS NOT NULL THEN
503: IF NOT p_hesa_susa_rec.pro_not_taught between 0 and 100 THEN
504: FND_MESSAGE.SET_NAME('IGS','IGS_HE_PRO_NOT_TAUGHT_INVALID');
505: FND_MSG_PUB.ADD;
506: l_ret_value := 'E';
507: END IF;
508: END IF;
510: -- bug #3547402
511: -- Check whether the FTE Intensity field is within range 0 to 300 (inclusive)
512: IF p_hesa_susa_rec.fte_intensity IS NOT NULL THEN
513: IF NOT p_hesa_susa_rec.fte_intensity between 0 and 300 THEN
514: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FTE_INTENSITY_INVALID');
515: FND_MSG_PUB.ADD;
516: l_ret_value := 'E';
517: END IF;
518: END IF;
523: IF p_hesa_susa_rec.fte_calc_type IS NOT NULL THEN
524: OPEN c_fte_calc_type;
525: FETCH c_fte_calc_type INTO l_dummy;
526: IF c_fte_calc_type%NOTFOUND THEN
527: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FTE_CTYPE_RANGE_NEX');
528: FND_MSG_PUB.ADD;
529: l_ret_value := 'E';
530: END IF;
531: CLOSE c_fte_calc_type;
534: -- bug #3547420
535: -- Check whether the FTE Intensity field is within range 0 to 300 (inclusive)
536: IF p_hesa_susa_rec.fte_perc_override IS NOT NULL THEN
537: IF NOT p_hesa_susa_rec.fte_perc_override between 0 and 300 THEN
538: FND_MESSAGE.SET_NAME('IGS','IGS_HE_FTE_PERC_OVR_INVALID');
539: FND_MSG_PUB.ADD;
540: l_ret_value := 'E';
541: END IF;
542: END IF;
543:
544: -- Check whether the Additional Support Cost field is within range 0 to 999999 (inclusive)
545: IF p_hesa_susa_rec.additional_sup_cost IS NOT NULL THEN
546: IF NOT p_hesa_susa_rec.additional_sup_cost between 0 and 999999 THEN
547: FND_MESSAGE.SET_NAME('IGS','IGS_HE_ADD_SUPP_COST_INVALID');
548: FND_MSG_PUB.ADD;
549: l_ret_value := 'E';
550: END IF;
551: END IF;
553: -- Check whether the Disadvantage Uplift Factor field is within
554: -- range 0.0000 to 9.9999 (inclusive)
555: IF p_hesa_susa_rec.disadv_uplift_factor IS NOT NULL THEN
556: IF NOT p_hesa_susa_rec.disadv_uplift_factor between 0.0000 and 9.9999 THEN
557: FND_MESSAGE.SET_NAME('IGS','IGS_HE_DIS_UPLIFT_FTR_INVALID');
558: FND_MSG_PUB.ADD;
559: l_ret_value := 'E';
560: END IF;
561: END IF;
566: p_program_cd => p_hesa_susa_rec.program_cd,
567: p_unit_set_cd => p_hesa_susa_rec.unit_set_cd,
568: p_grad_sch_grade => p_hesa_susa_rec.grad_sch_grade) THEN
569: -- ADD excep to stack
570: FND_MESSAGE.SET_NAME('IGS','IGS_HE_GRD_SCH_GRADE_NEX');
571: FND_MSG_PUB.ADD;
572: l_ret_value := 'E';
573: END IF;
574: END IF;
576: -- Check if the Teaching Institution 1 exists
577: IF p_hesa_susa_rec.teaching_inst1 IS NOT NULL THEN
578: IF NOT igs_en_hesa_pkg.check_teach_inst (p_teaching_inst => p_hesa_susa_rec.teaching_inst1) THEN
579: -- ADD excep to stack
580: FND_MESSAGE.SET_NAME('IGS','IGS_HE_TCH_INST1_POSTSEC_NEX');
581: FND_MSG_PUB.ADD;
582: l_ret_value := 'E';
583: END IF;
584: END IF;
586: -- Check if the Teaching Institution 2 exists
587: IF p_hesa_susa_rec.teaching_inst2 IS NOT NULL THEN
588: IF NOT igs_en_hesa_pkg.check_teach_inst (p_teaching_inst => p_hesa_susa_rec.teaching_inst2) THEN
589: -- ADD excep to stack
590: FND_MESSAGE.SET_NAME('IGS','IGS_HE_TCH_INST2_POSTSEC_NEX');
591: FND_MSG_PUB.ADD;
592: l_ret_value := 'E';
593: END IF;
594: END IF;
616: -- Validating whether the unit set category is of type Pre-enrollment
617: IF 'PRENRL_YR' <> igs_en_hesa_pkg.get_unit_set_cat (p_unit_set_cd => p_hesa_susa_rec.unit_set_cd,
618: p_us_version_number => p_us_version_number) THEN
619: -- ADD excep to stack
620: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUSA_PRE_YEAR_US');
621: FND_MSG_PUB.ADD;
622: l_br_val_failed := TRUE;
623: END IF;
624:
693:
694:
695: -- Check whether the country profile value is GB
696: IF NVL(FND_PROFILE.VALUE('OSS_COUNTRY_CODE'),'NONE') <> 'GB' THEN
697: FND_MESSAGE.SET_NAME ('IGS','IGS_UC_HE_NOT_ENABLED');
698: FND_MSG_PUB.ADD;
699: x_return_status := FND_API.G_RET_STS_ERROR;
700: l_insert_flag := FALSE;
701: END IF;
717: l_person_id := igs_ge_gen_003.get_person_id (p_person_number => p_hesa_susa_rec.person_number);
718:
719: IF l_person_id IS NULL THEN
720: -- ADD excep to stack
721: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_PERSON_NUMBER');
722: FND_MSG_PUB.ADD;
723: x_return_status := FND_API.G_RET_STS_ERROR;
724: l_insert_flag := FALSE;
725: END IF;
734: p_sequence_number => l_sequence_number);
735:
736: IF l_us_version_number IS NULL OR l_sequence_number IS NULL THEN
737: -- ADD excep to stack
738: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUSA_REC_NEX');
739: FND_MSG_PUB.ADD;
740: x_return_status := FND_API.G_RET_STS_ERROR;
741: l_insert_flag := FALSE;
742: END IF;