[Home] [Help]
338: p_data => x_msg_data);
339: WHEN OTHERS THEN
340: ROLLBACK TO create_graduand;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_UNHANDLED_ERROR');
343: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
344: FND_MSG_PUB.ADD;
345:
346: FND_MSG_PUB.Count_And_Get(
339: WHEN OTHERS THEN
340: ROLLBACK TO create_graduand;
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: FND_MESSAGE.SET_NAME('IGS', 'IGS_AV_UNHANDLED_ERROR');
343: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
344: FND_MSG_PUB.ADD;
345:
346: FND_MSG_PUB.Count_And_Get(
347: p_count => x_msg_count,
384: p_lgcy_grd_rec.grd_cal_alt_code := UPPER(p_lgcy_grd_rec.grd_cal_alt_code);
385:
386: IF p_lgcy_grd_rec.person_number IS NULL THEN
387: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
388: FND_MESSAGE.SET_NAME ('IGS', 'IGS_EN_PER_NUM_NULL');
389: FND_MSG_PUB.ADD;
390: END IF;
391:
392: IF p_lgcy_grd_rec.create_dt IS NULL THEN
390: END IF;
391:
392: IF p_lgcy_grd_rec.create_dt IS NULL THEN
393: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
394: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_CREATE_DT_NOT_NULL');
395: FND_MSG_PUB.ADD;
396: END IF;
397:
398: IF p_lgcy_grd_rec.GRD_CAL_ALT_CODE IS NULL THEN
396: END IF;
397:
398: IF p_lgcy_grd_rec.GRD_CAL_ALT_CODE IS NULL THEN
399: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
400: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_CALALTCD_NOT_NULL');
401: FND_MSG_PUB.ADD;
402: END IF;
403:
404:
403:
404:
405: IF p_lgcy_grd_rec.AWARD_CD IS NULL THEN
406: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
407: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_AWARD_CD_NOT_NULL');
408: FND_MSG_PUB.ADD;
409: END IF;
410:
411: IF p_lgcy_grd_rec.GRADUAND_STATUS IS NULL THEN
409: END IF;
410:
411: IF p_lgcy_grd_rec.GRADUAND_STATUS IS NULL THEN
412: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
413: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRADSTAT_NOT_NULL');
414: FND_MSG_PUB.ADD;
415: END IF;
416:
417: IF p_lgcy_grd_rec.GRADUAND_APPR_STATUS IS NULL THEN
415: END IF;
416:
417: IF p_lgcy_grd_rec.GRADUAND_APPR_STATUS IS NULL THEN
418: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
419: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRD_APPRSTAT_NOT_NULL');
420: FND_MSG_PUB.ADD;
421: END IF;
422:
423: --If the Award_program_code record type parameter is not NULL
430: NVL(p_lgcy_grd_rec.AWARD_PROG_VERSION_NUMBER,-1)> 999
431: )
432: THEN
433: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
434: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_AWD_PRGVER_BET_1_999');
435: FND_MSG_PUB.ADD;
436: END IF;
437:
438: --If the record parameter SUR_FOR_PROGRAM_CD is Not Null
445: NVL(p_lgcy_grd_rec.SUR_FOR_PROG_VERSION_NUMBER ,-1)> 999
446: )
447: THEN
448: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
449: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_SUR_PRGVER_BET_1_999');
450: FND_MSG_PUB.ADD;
451: END IF;
452:
453: --If the record parameter SUR_FOR_PROGRAM_CD is Not Null
459: p_lgcy_grd_rec.SUR_FOR_AWARD_CD IS NULL
460: )
461: THEN
462: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
463: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_SUR_AWDCD_NOT_NULL');
464: FND_MSG_PUB.ADD;
465: END IF;
466:
467: --Validate the flex definition
488: p_ATTRIBUTE19 => p_lgcy_grd_rec.ATTRIBUTE19 ,
489: p_ATTRIBUTE20 => p_lgcy_grd_rec.ATTRIBUTE20 ,
490: p_desc_flex_name => 'IGS_GR_GRADUAND_FLEX' ) THEN
491: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
492: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AD_INVALID_DESC_FLEX');
493: FND_MSG_PUB.ADD;
494: END IF;
495:
496: RETURN l_return_value ;
528: p_person_id := igs_ge_gen_003.get_person_id(p_lgcy_grd_rec.person_number);
529:
530: --Get person id
531: IF p_person_id IS NULL THEN
532: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GE_INVALID_PERSON_NUMBER');
533: FND_MSG_PUB.ADD;
534: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
535: RETURN l_return_value;
536: END IF;
539: --Get calendar info
540: igs_ge_gen_003.get_calendar_instance(p_lgcy_grd_rec.GRD_CAL_ALT_CODE,NULL,p_cal_type, p_sequence_number, l_start_dt, l_end_dt, l_message) ;
541:
542: IF p_cal_type IS NULL OR p_sequence_number IS NULL THEN
543: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AV_INVALID_CAL_ALT_CODE');
544: FND_MSG_PUB.ADD;
545: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
546: RETURN l_return_value;
547: END IF;
551: IF p_lgcy_grd_rec.proxy_award_person_number IS NOT NULL THEN -- Proxy person number is passed, get corrs. person id
552: p_proxy_award_person_id := Igs_Ge_Gen_003.Get_Person_id (p_lgcy_grd_rec.proxy_award_person_number) ;
553:
554: IF p_proxy_award_person_id IS NULL THEN -- Wrong proxy person number is passed
555: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_INVALID_PRXYPERS_NUM');
556: FND_MSG_PUB.ADD;
557: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
558: RETURN l_return_value;
559: ELSE
616: BEGIN
617: -- Check for record existance
618: IF Igs_Gr_Graduand_Pkg.Get_Pk_For_Validation(X_PERSON_ID => p_person_id,
619: X_CREATE_DT => p_lgcy_grd_rec.create_dt) THEN
620: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRAD_PK_ALREADY_EXISTS');
621: FND_MSG_PUB.ADD;
622: l_return_value := 'W'; -- Error out
623: RETURN l_return_value;
624: END IF;
632: X_AWARD_CRS_VERSION_NUMBER => p_lgcy_grd_rec.award_prog_version_number,
633: X_AWARD_CD => p_lgcy_grd_rec.award_cd
634: )
635: THEN
636: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRAD_UK_ALREADY_EXISTS');
637: FND_MSG_PUB.ADD;
638: l_return_value := 'W'; -- Error out
639: RETURN l_return_value;
640: END IF;
642:
643: -- Foreign key validation with the table IGS_PS_AWD_PKG Column Award_Cd
644: IF NOT IGS_PS_AWD_PKG.Get_PK_For_Validation(X_AWARD_CD => p_lgcy_grd_rec.award_cd)
645: THEN
646: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_AWDCD_FK_NOT_EXISTS');
647: FND_MSG_PUB.ADD;
648: l_return_value := 'E'; --Continue
649: END IF;
650: -- End of Foreign key validation with the table IGS_PS_AWD_PKG Column Award_Cd
656: NOT IGS_PS_AWARD_PKG.Get_PK_For_Validation(X_COURSE_CD => p_lgcy_grd_rec.AWARD_PROGRAM_CD ,
657: X_VERSION_NUMBER => p_lgcy_grd_rec.AWARD_PROG_VERSION_NUMBER ,
658: X_AWARD_CD => p_lgcy_grd_rec.AWARD_CD )
659: THEN
660: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_AWDDET_FK_NOT_EXISTS');
661: FND_MSG_PUB.ADD;
662: l_return_value := 'E';--Continue
663: END IF;
664: -- End of Foreign key validation with the table IGS_PS_AWARD_PKG Columns award_course_cd, award_crs_version_number and Award_Cd
668: X_GRD_CAL_TYPE => p_cal_type ,
669: X_GRD_CI_SEQUENCE_NUMBER => p_sequence_number
670: )
671: THEN
672: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_CRMRND_FK_NOT_EXISTS');
673: FND_MSG_PUB.ADD;
674: l_return_value := 'E';--Continue
675: END IF;
676: --End of Foreign key validation with the table IGS_GR_CRMN_ROUND_PKG column grd_cal_type and grd_ci_sequence_number
677:
678: --7Foreign key validation with the table IGS_GR_APRV_STAT_PKG column graduand_appr_status
679: IF NOT IGS_GR_APRV_STAT_PKG.Get_PK_For_Validation(X_GRADUAND_APPR_STATUS => p_lgcy_grd_rec.GRADUAND_APPR_STATUS)
680: THEN
681: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_APRSTAT_FK_NOT_EXISTS');
682: FND_MSG_PUB.ADD;
683: l_return_value := 'E';--Continue
684: END IF;
685: --7End of Foreign key validation with the table IGS_GR_APRV_STAT_PKG column graduand_appr_status
686:
687: --Foreign key validation with the table IGS_GR_STAT_PKG column graduand_status
688: IF NOT IGS_GR_STAT_PKG.Get_PK_For_Validation(X_GRADUAND_STATUS => p_lgcy_grd_rec.GRADUAND_STATUS)
689: THEN
690: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_GRDSTAT_FK_NOT_EXISTS');
691: FND_MSG_PUB.ADD;
692: l_return_value := 'E';--Continue
693: END IF;
694: --End of Foreign key validation with the table IGS_GR_STAT_PKG column graduand_status
698: p_lgcy_grd_rec.program_cd IS NOT NULL AND
699: NOT IGS_EN_STDNT_PS_ATT_PKG.Get_PK_For_Validation(X_PERSON_ID => p_person_id,
700: X_COURSE_CD => p_lgcy_grd_rec.program_cd)
701: THEN
702: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_STPRATPT_FK_NOT_EXISTS');
703: FND_MSG_PUB.ADD;
704: l_return_value := 'E';--Continue
705: END IF;
706: --End of Foreign key validation with the table IGS_EN_STDNT_PS_ATT_PKG column person_id and course_cd
713: NOT IGS_PS_AWARD_PKG.Get_PK_For_Validation (X_COURSE_CD => p_lgcy_grd_rec.sur_for_program_cd ,
714: X_VERSION_NUMBER => p_lgcy_grd_rec.sur_for_prog_version_number ,
715: X_AWARD_CD => p_lgcy_grd_rec.sur_for_award_cd)
716: THEN
717: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_SURCRSCD_FK_NOT_EXISTS');
718: FND_MSG_PUB.ADD;
719: l_return_value := 'E';--Continue
720: END IF;
721: --End of Foreign key validation with the table IGS_PS_AWARD_PKG column sur_for_course_cd, sur_for_crs_version_number and sur_for_award_cd
720: END IF;
721: --End of Foreign key validation with the table IGS_PS_AWARD_PKG column sur_for_course_cd, sur_for_crs_version_number and sur_for_award_cd
722:
723: IF p_lgcy_grd_rec.CONVOCATION_MEMBERSHIP_IND NOT IN('Y','N') THEN
724: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_CONV_MEM_IND_Y_N');
725: FND_MSG_PUB.ADD;
726: l_return_value := 'E';--Continue
727: END IF;
728:
727: END IF;
728:
729: --S_GRADUAND_TYPE should not have any other value except for Attending , Inabsentia , Articulate , Deferred , Unknown , Declined:
730: IF p_lgcy_grd_rec.S_GRADUAND_TYPE NOT IN ( 'ATTENDING' , 'INABSENTIA' , 'ARTICULATE' , 'DEFERRED' , 'UNKNOWN' , 'DECLINED' ) THEN
731: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_SGRADTYP_INVALID_VAL');
732: FND_MSG_PUB.ADD;
733: l_return_value := 'E';--Continue
734: END IF;
735: --End of S_GRADUAND_TYPE should not have any other value except for Attending , Inabsentia , Articulate , Deferred , Unknown , Declined:
844: p_sur_for_crs_version_number=> p_lgcy_grd_rec.sur_for_program_cd ,
845: p_sur_for_award_cd => p_lgcy_grd_rec.sur_for_award_cd,
846: p_message_name => l_message )THEN
847:
848: FND_MESSAGE.SET_NAME ('IGS', l_message);
849: FND_MSG_PUB.ADD;
850: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
851:
852: END IF;
855: -- Validate that if the Proxy award person number is passed then
856: -- the proxy award person number must be a different person from that of the graduand.
857: IF p_lgcy_grd_rec.proxy_award_person_number IS NOT NULL AND
858: p_lgcy_grd_rec.proxy_award_person_number = p_lgcy_grd_rec.person_number THEN
859: FND_MESSAGE.SET_NAME ('IGS', 'IGS_GR_PRXY_AWD_MUST_BE_DIFF');
860: FND_MSG_PUB.ADD;
861: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
862: END IF;
863: -- End of Validate that if the Proxy award person number is passed
873: CLOSE c_gas;
874:
875: IF v_gst_s_graduand_status IN (cst_graduated,cst_surrender) THEN
876: IF v_gas_s_graduand_appr_status <> cst_approved THEN
877: FND_MESSAGE.SET_NAME ('IGS','IGS_GR_MUST_HAVE_VALUE_APPROV');
878: FND_MSG_PUB.ADD;
879: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
880: END IF;
881: END IF;
889: p_award_crs_version_number => p_lgcy_grd_rec.award_prog_version_number ,
890: p_award_cd => p_lgcy_grd_rec.award_cd,
891: p_message_name => l_message) THEN
892:
893: FND_MESSAGE.SET_NAME ('IGS',l_message);
894: FND_MSG_PUB.ADD;
895: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
896: END IF;
897: --11 End of Validate that if the program award code and program award version number is the same as the program code and version number then validate
899: --12 Validate that the students are allowed to graduate from the specified program
900: IF NOT IGS_GR_VAL_GR.grdp_val_gr_sca(p_person_id => p_person_id,
901: p_course_cd => p_lgcy_grd_rec.program_cd,
902: p_message_name => l_message) THEN
903: FND_MESSAGE.SET_NAME ('IGS',l_message);
904: FND_MSG_PUB.ADD;
905: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
906: END IF;
907: --End of Validate that the students are allowed to graduate from the specified program
916:
917: IF NOT IGS_GR_VAL_AWC.grdp_val_award_type(p_award_cd => p_lgcy_grd_rec.award_cd,
918: p_s_award_type => l_s_award_type,
919: p_message_name => l_message) THEN
920: FND_MESSAGE.SET_NAME ('IGS',l_message);
921: FND_MSG_PUB.ADD;
922: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
923: END IF;
924: --End of 13, 14 ,15 Validate that the award must be of system award type PROGRAM, HON
932: p_award_crs_version_number => p_lgcy_grd_rec.award_prog_version_number,
933: p_award_cd => p_lgcy_grd_rec.award_cd,
934: p_message_name => l_message
935: )THEN
936: FND_MESSAGE.SET_NAME ('IGS',l_message);
937: FND_MSG_PUB.ADD;
938: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
939: END IF;
940: --End of 16 Validate that the graduand record program award is an award for the student program attempt or an alternative exit
948: p_sur_for_crs_version_num => p_lgcy_grd_rec.sur_for_prog_version_number,
949: p_sur_for_award_cd => p_lgcy_grd_rec.sur_for_award_cd ,
950: p_message_name => l_message) THEN
951:
952: FND_MESSAGE.SET_NAME ('IGS',l_message);
953: FND_MSG_PUB.ADD;
954: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
955: END IF;
956: --end of 17, 18
956: --end of 17, 18
957:
958: --20
959: IF p_lgcy_grd_rec.s_graduand_type = 'ATTENDING' AND p_lgcy_grd_rec.proxy_award_person_number IS NOT NULL THEN
960: FND_MESSAGE.SET_NAME ('IGS','IGS_GR_PROXY_NOT_ALLOW');
961: FND_MSG_PUB.ADD;
962: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE); --Continue
963: END IF;
964: --End of 20
1004: p_award_course_cd => p_lgcy_grd_rec.award_program_cd,
1005: p_award_crs_version_number=> p_lgcy_grd_rec.award_prog_version_number,
1006: p_award_cd => p_lgcy_grd_rec.award_cd,
1007: p_message_name => l_message ) THEN
1008: FND_MESSAGE.SET_NAME ('IGS','IGS_GR_GRAD_CR_DT_FAIL');
1009: FND_MSG_PUB.ADD;
1010: l_return_value := FND_API.TO_BOOLEAN(FND_API.G_FALSE);
1011: END IF;
1012: