[Home] [Help]
33:
34: BEGIN
35: -- Only planned unit status are allowed for deletion
36: IF old_references.unit_section_status <> 'PLANNED' THEN
37: fnd_message.set_name('IGS','IGS_PS_USEC_NO_DEL_ALLOWED');
38: igs_ge_msg_stack.add;
39: app_exception.raise_exception;
40: END IF;
41:
133:
134: -- Any Other Statuses to 'PLANNED' is invalid - Overcome locking issue. (Status Codes 7,13,19,25,31,37)
135: IF p_c_new_usec_sts = 'PLANNED' AND
136: p_c_old_usec_sts <> 'PLANNED' THEN
137: fnd_message.set_name ('IGS','IGS_PS_USEC_STATUS_TO_PLANNED');
138: igs_ge_msg_stack.add;
139: app_exception.raise_exception;
140: END IF;
141:
147:
148: -- if unit version is planned then it can have unit section in status 'PLANNED' or 'NOT_OFFERED'.
149: IF l_c_unit_status IS NOT NULL AND l_c_unit_status = 'PLANNED' AND
150: p_c_new_usec_sts NOT IN ('PLANNED', 'NOT_OFFERED') THEN
151: fnd_message.set_name ('IGS','IGS_PS_PLN_UNT_VER');
152: fnd_message.set_token('STATUS',get_meaning('UNIT_SECTION_STATUS', p_c_new_usec_sts));
153: igs_ge_msg_stack.add;
154: app_exception.raise_exception;
155: END IF;
148: -- if unit version is planned then it can have unit section in status 'PLANNED' or 'NOT_OFFERED'.
149: IF l_c_unit_status IS NOT NULL AND l_c_unit_status = 'PLANNED' AND
150: p_c_new_usec_sts NOT IN ('PLANNED', 'NOT_OFFERED') THEN
151: fnd_message.set_name ('IGS','IGS_PS_PLN_UNT_VER');
152: fnd_message.set_token('STATUS',get_meaning('UNIT_SECTION_STATUS', p_c_new_usec_sts));
153: igs_ge_msg_stack.add;
154: app_exception.raise_exception;
155: END IF;
156:
157: -- Following Status transition are invalid.
158: -- (2) PLANNED -> FULLWAITOK, (5) PLANNED -> CLOSED, (27) CANCELLED -> FULLWAITOK, (29) CANCELLED -> CLOSED
159: IF p_c_old_usec_sts IN ('CANCELLED','PLANNED') AND
160: p_c_new_usec_sts IN ('CLOSED', 'FULLWAITOK') THEN
161: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
162: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
163: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
164: igs_ge_msg_stack.add;
165: app_exception.raise_exception;
158: -- (2) PLANNED -> FULLWAITOK, (5) PLANNED -> CLOSED, (27) CANCELLED -> FULLWAITOK, (29) CANCELLED -> CLOSED
159: IF p_c_old_usec_sts IN ('CANCELLED','PLANNED') AND
160: p_c_new_usec_sts IN ('CLOSED', 'FULLWAITOK') THEN
161: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
162: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
163: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
164: igs_ge_msg_stack.add;
165: app_exception.raise_exception;
166: END IF;
159: IF p_c_old_usec_sts IN ('CANCELLED','PLANNED') AND
160: p_c_new_usec_sts IN ('CLOSED', 'FULLWAITOK') THEN
161: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
162: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
163: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
164: igs_ge_msg_stack.add;
165: app_exception.raise_exception;
166: END IF;
167:
171: -- Following status transitions are invalid
172: -- (3) PLANNED -> HOLD, (28) CANCELLED -> HOLD, (40) NOT_OFFERED -> HOLD
173: IF p_c_old_usec_sts NOT IN ('FULLWAITOK','CLOSED','OPEN') AND
174: p_c_new_usec_sts = 'HOLD' THEN
175: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
176: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
177: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
178: igs_ge_msg_stack.add;
179: app_exception.raise_exception;
172: -- (3) PLANNED -> HOLD, (28) CANCELLED -> HOLD, (40) NOT_OFFERED -> HOLD
173: IF p_c_old_usec_sts NOT IN ('FULLWAITOK','CLOSED','OPEN') AND
174: p_c_new_usec_sts = 'HOLD' THEN
175: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
176: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
177: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
178: igs_ge_msg_stack.add;
179: app_exception.raise_exception;
180: END IF;
173: IF p_c_old_usec_sts NOT IN ('FULLWAITOK','CLOSED','OPEN') AND
174: p_c_new_usec_sts = 'HOLD' THEN
175: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
176: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
177: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
178: igs_ge_msg_stack.add;
179: app_exception.raise_exception;
180: END IF;
181:
186: OPEN c_discontin(p_n_uoo_id);
187: FETCH c_discontin INTO l_c_unit_attempt_status;
188: IF c_discontin%FOUND THEN
189: CLOSE c_discontin;
190: fnd_message.set_name('IGS','IGS_PS_USEC_STATUS_PLN_CNC');
191: fnd_message.set_token('SUASTATUS',get_meaning('UNIT_ATTEMPT_STATUS',l_c_unit_attempt_status));
192: -- IGS_PS_USEC_STATUS_CNC'); -- "Unit Section status cannot be changed to Cancelled as there exists student unit attempt which is not discontinued"
193: igs_ge_msg_stack.add;
194: app_exception.raise_exception;
187: FETCH c_discontin INTO l_c_unit_attempt_status;
188: IF c_discontin%FOUND THEN
189: CLOSE c_discontin;
190: fnd_message.set_name('IGS','IGS_PS_USEC_STATUS_PLN_CNC');
191: fnd_message.set_token('SUASTATUS',get_meaning('UNIT_ATTEMPT_STATUS',l_c_unit_attempt_status));
192: -- IGS_PS_USEC_STATUS_CNC'); -- "Unit Section status cannot be changed to Cancelled as there exists student unit attempt which is not discontinued"
193: igs_ge_msg_stack.add;
194: app_exception.raise_exception;
195: END IF;
202: OPEN c_exist(p_n_uoo_id);
203: FETCH c_exist INTO l_n_exist;
204: IF c_exist%FOUND THEN
205: CLOSE c_exist;
206: fnd_message.set_name ('IGS','IGS_PS_CNT_UPD_NOT_OFFERED');
207: igs_ge_msg_stack.add;
208: app_exception.raise_exception;
209: END IF;
210: CLOSE c_exist;
214: -- (38) NOT_OFFERED -> OPEN Valid transition
215: -- (39) NOT_OFFERED -> FULLWAITOK, (42) NOT_OFFERED -> CLOSED - Invalid transition
216: IF p_c_old_usec_sts = 'NOT_OFFERED' AND
217: p_c_new_usec_sts <> 'OPEN' THEN
218: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
219: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
220: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
221: igs_ge_msg_stack.add;
222: app_exception.raise_exception;
215: -- (39) NOT_OFFERED -> FULLWAITOK, (42) NOT_OFFERED -> CLOSED - Invalid transition
216: IF p_c_old_usec_sts = 'NOT_OFFERED' AND
217: p_c_new_usec_sts <> 'OPEN' THEN
218: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
219: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
220: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
221: igs_ge_msg_stack.add;
222: app_exception.raise_exception;
223: END IF;
216: IF p_c_old_usec_sts = 'NOT_OFFERED' AND
217: p_c_new_usec_sts <> 'OPEN' THEN
218: fnd_message.set_name('IGS','IGS_PS_INVALID_STATE_TRANS' );
219: fnd_message.set_token('OLD_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_old_usec_sts));
220: fnd_message.set_token('NEW_STATUS_DESC', get_meaning('UNIT_SECTION_STATUS',p_c_new_usec_sts));
221: igs_ge_msg_stack.add;
222: app_exception.raise_exception;
223: END IF;
224:
334: Open cur_old_ref_values;
335: Fetch cur_old_ref_values INTO old_references;
336: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
337: Close cur_old_ref_values;
338: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
339: IGS_GE_MSG_STACK.ADD;
340: App_Exception.Raise_Exception;
341: Return;
342: END IF;
418: IF (p_inserting OR p_updating) AND
419: ( NVL(new_references.non_std_usec_ind,'N') = 'Y' AND
420: new_references.unit_section_start_date IS NULL
421: )THEN
422: fnd_message.set_name ('IGS','IGS_EN_OFFSET_DT_NULL');
423: igs_ge_msg_stack.add;
424: app_exception.raise_exception;
425: END IF;
426:
440: IF IGS_PS_VAL_UNIT.crsp_val_iud_uv_dtl (
441: v_unit_cd,
442: v_version_number,
443: v_message_name) = FALSE THEN
444: Fnd_Message.Set_Name('IGS',v_message_name);
445: IGS_GE_MSG_STACK.ADD;
446: App_Exception.Raise_Exception;
447: END IF;
448: -- IF IGS_aS_VAL_uai.crsp_val_crs_ci (
456: -- As part of the bug# 1956374 changed to the below call from IGS_PS_VAL_UOo.crsp_val_uo_cal_type
457: IF IGS_AS_VAL_UAI.crsp_val_uo_cal_type (
458: new_references.cal_type,
459: v_message_name) = FALSE THEN
460: Fnd_Message.Set_Name('IGS','IGS_PS_UOO_UAI_CANNOT_CREATE');
461: IGS_GE_MSG_STACK.ADD;
462: App_Exception.Raise_Exception;
463: END IF;
464: -- Validate IGS_AD_LOCATION code. IGS_AD_LOCATION code is not updateable.
464: -- Validate IGS_AD_LOCATION code. IGS_AD_LOCATION code is not updateable.
465: IF IGS_PS_VAL_UOo.crsp_val_loc_cd (
466: new_references.location_cd,
467: v_message_name) = FALSE THEN
468: Fnd_Message.Set_Name('IGS',v_message_name);
469: IGS_GE_MSG_STACK.ADD;
470: App_Exception.Raise_Exception;
471: END IF;
472: -- Validate IGS_PS_UNIT class. IGS_PS_UNIT class is not updateable.
472: -- Validate IGS_PS_UNIT class. IGS_PS_UNIT class is not updateable.
473: IF IGS_PS_VAL_UOo.crsp_val_uoo_uc (
474: new_references.unit_class,
475: v_message_name) = FALSE THEN
476: Fnd_Message.Set_Name('IGS',v_message_name);
477: IGS_GE_MSG_STACK.ADD;
478: App_Exception.Raise_Exception;
479: END IF;
480: END IF;
483: IF IGS_AS_VAL_GSG.assp_val_gs_cur_fut (
484: new_references.grading_schema_cd,
485: new_references.gs_version_number,
486: v_message_name) = FALSE THEN
487: Fnd_Message.Set_Name('IGS',v_message_name);
488: IGS_GE_MSG_STACK.ADD;
489: App_Exception.Raise_Exception;
490: END IF;
491: END IF;
494: (NVL(old_references.unit_contact, 0) <> new_references.unit_contact) THEN
495: IF igs_ad_val_acai.genp_val_staff_prsn (
496: new_references.unit_contact,
497: v_message_name) = FALSE THEN
498: Fnd_Message.Set_Name('IGS',v_message_name);
499: IGS_GE_MSG_STACK.ADD;
500: App_Exception.Raise_Exception;
501: END IF;
502: END IF;
503:
504: -- Validate that atleast one enrollment method is checked
505: IF p_inserting or p_updating THEN
506: IF NOT (new_references.ss_enrol_ind = 'Y' or new_references.ivrs_available_ind = 'Y') THEN
507: Fnd_Message.Set_Name('IGS','IGS_PS_ONE_UNIT_ENR_MTHD');
508: IGS_GE_MSG_STACK.ADD;
509: App_Exception.Raise_Exception;
510: END IF;
511: END IF;
513: --Record cannot be updated if the values of location_cd and unit_class unit_class r different
514: IF p_updating THEN
515: IF new_references.location_cd<> old_references.location_cd OR
516: new_references.unit_class<> old_references.unit_class THEN
517: Fnd_message.Set_Name('IGS','IGS_PS_UPDN_LOCCD_UNTCLS');
518: IGS_GE_MSG_STACK.ADD;
519: App_Exception.Raise_Exception;
520: END IF;
521: END IF;
595: ***************************************************************/
596: BEGIN
597:
598: IF Get_UK_For_Validation (new_references.uoo_id) THEN
599: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
600: IGS_GE_MSG_STACK.ADD;
601: App_Exception.Raise_Exception;
602: END IF;
603:
662:
663:
664: IF Upper(Column_Name)='CAL_TYPE' OR Column_Name IS NULL Then
665: IF New_References.Cal_Type <> UPPER(New_References.Cal_Type) Then
666: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
667: IGS_GE_MSG_STACK.ADD;
668: App_Exception.Raise_Exception;
669: END IF;
670: END IF;
670: END IF;
671:
672: IF Upper(Column_Name)='GRADING_SCHEMA_CD' OR Column_Name IS NULL Then
673: IF New_References.Grading_Schema_Cd <> UPPER(New_References.Grading_Schema_Cd) Then
674: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
675: IGS_GE_MSG_STACK.ADD;
676: App_Exception.Raise_Exception;
677: END IF;
678: END IF;
679:
680: IF Upper(Column_Name)='GRADING_SCHEMA_PRCDNCE_IND' OR Column_Name IS NULL Then
681:
682: IF New_References.grading_schema_prcdnce_ind NOT IN ( 'Y' , 'N' ) Then
683: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
684: IGS_GE_MSG_STACK.ADD;
685: App_Exception.Raise_Exception;
686: END IF;
687:
689:
690: IF Upper(Column_Name)='IVRS_AVAILABLE_IND' OR Column_Name IS NULL Then
691:
692: IF New_References.ivrs_available_ind NOT IN ( 'Y' , 'N' ) Then
693: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
694: IGS_GE_MSG_STACK.ADD;
695: App_Exception.Raise_Exception;
696: END IF;
697:
699:
700: IF Upper(Column_Name)='OFFERED_IND' OR Column_Name IS NULL Then
701:
702: IF New_References.Offered_ind NOT IN ( 'Y' , 'N' ) Then
703: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
704: IGS_GE_MSG_STACK.ADD;
705: App_Exception.Raise_Exception;
706: END IF;
707:
708: END IF;
709:
710: IF Upper(Column_Name)='LOCATION_CD' OR Column_Name IS NULL Then
711: IF New_References.Location_Cd <> UPPER(New_References.Location_Cd) Then
712: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
713: IGS_GE_MSG_STACK.ADD;
714: App_Exception.Raise_Exception;
715: END IF;
716: END IF;
716: END IF;
717:
718: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
719: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
720: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
721: IGS_GE_MSG_STACK.ADD;
722: App_Exception.Raise_Exception;
723: END IF;
724: END IF;
724: END IF;
725:
726: IF Upper(Column_Name)='UNIT_CLASS' OR Column_Name IS NULL Then
727: IF New_References.Unit_Class <> UPPER(New_References.Unit_Class) Then
728: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
729: IGS_GE_MSG_STACK.ADD;
730: App_Exception.Raise_Exception;
731: END IF;
732: END IF;
732: END IF;
733:
734: IF Upper(Column_Name)='UNIT_QUOTA' OR Column_Name IS NULL Then
735: IF New_References.Unit_Quota < 0 OR New_References.Unit_Quota > 999999 Then
736: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
737: IGS_GE_MSG_STACK.ADD;
738: App_Exception.Raise_Exception;
739: END IF;
740: END IF;
740: END IF;
741:
742: IF Upper(Column_Name)='CI_SEQUENCE_NUMBER' OR Column_Name IS NULL Then
743: IF New_References.Ci_sequence_Number < 1 OR New_References.Ci_sequence_Number > 999999 Then
744: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
745: IGS_GE_MSG_STACK.ADD;
746: App_Exception.Raise_Exception;
747: END IF;
748: END IF;
750:
751: -- Validate that atleast one enrollment method is checked
752: IF (Upper(Column_Name)='SS_ENROL_IND' OR Upper(Column_Name)='IVRS_AVAILABLE_IND') OR Column_Name is NULL THEN
753: IF NOT (new_references.ss_enrol_ind = 'Y' OR new_references.ivrs_available_ind = 'Y') THEN
754: Fnd_Message.Set_Name('IGS','IGS_PS_ONE_UNIT_ENR_MTHD');
755: IGS_GE_MSG_STACK.ADD;
756: App_Exception.Raise_Exception;
757: END IF;
758: END IF;
760: -- Added by Prem Raj for the build of PSCR017 bug #2224366
761: -- To check that NON_STD_USEC_IND should have a value in 'Y' or 'N'
762: IF Upper(Column_Name)= 'NON_STD_USEC_IND' OR Column_Name IS NULL Then
763: IF New_References.Non_std_usec_ind NOT IN ( 'Y' , 'N' ) Then
764: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
765: IGS_GE_MSG_STACK.ADD;
766: App_Exception.Raise_Exception;
767: END IF;
768: END IF;
769:
770: --Added by shtatiko as part of Bug# 2636716, EN Integration
771: IF Upper(Column_Name)= 'AUDITABLE_IND' OR Column_Name IS NULL Then
772: IF New_References.auditable_ind NOT IN ( 'Y' , 'N' ) Then
773: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
774: IGS_GE_MSG_STACK.ADD;
775: App_Exception.Raise_Exception;
776: END IF;
777: END IF;
777: END IF;
778:
779: IF Upper(Column_Name)= 'AUDIT_PERMISSION_IND' OR Column_Name IS NULL Then
780: IF New_References.audit_permission_ind NOT IN ( 'Y' , 'N' ) Then
781: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
782: IGS_GE_MSG_STACK.ADD;
783: App_Exception.Raise_Exception;
784: END IF;
785: END IF;
785: END IF;
786:
787: IF Upper(Column_Name)='UNIT_QUOTA_RESERVED_PLACES' OR Column_Name IS NULL Then
788: IF New_References.unit_quota_reserved_places < 0 OR New_References.unit_quota_reserved_places > 999999 Then
789: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
790: IGS_GE_MSG_STACK.ADD;
791: App_Exception.Raise_Exception;
792: END IF;
793: END IF;
793: END IF;
794:
795: IF UPPER(column_name)= 'NOT_MULTIPLE_SECTION_FLAG' OR column_name IS NULL THEN
796: IF new_references.not_multiple_section_flag NOT IN ('Y','N') THEN
797: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
798: igs_ge_msg_stack.add;
799: app_exception.raise_exception;
800: END IF;
801: END IF;
801: END IF;
802:
803: IF UPPER(column_name)= 'DEFAULT_ENROLL_FLAG' OR column_name IS NULL THEN
804: IF new_references.default_enroll_flag NOT IN ('Y','N') THEN
805: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
806: igs_ge_msg_stack.add;
807: app_exception.raise_exception;
808: END IF;
809: END IF;
809: END IF;
810:
811: IF UPPER(column_name)= 'ABORT_FLAG' OR column_name IS NULL THEN
812: IF new_references.abort_flag NOT IN ('Y','N') THEN
813: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
814: igs_ge_msg_stack.add;
815: app_exception.raise_exception;
816: END IF;
817: END IF;
848: ELSE
849: IF NOT IGS_AS_GRD_SCHEMA_PKG.Get_PK_For_Validation (
850: new_references.grading_schema_cd,
851: new_references.gs_version_number) THEN
852: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
853: IGS_GE_MSG_STACK.ADD;
854: App_Exception.Raise_Exception;
855: END IF;
856:
861: NULL;
862: ELSE
863: IF NOT IGS_AD_LOCATION_PKG.Get_PK_For_Validation (
864: new_references.location_cd, 'N') THEN
865: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
866: IGS_GE_MSG_STACK.ADD;
867: App_Exception.Raise_Exception;
868: END IF;
869:
874: NULL;
875: ELSE
876: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
877: new_references.unit_contact) THEN
878: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
879: IGS_GE_MSG_STACK.ADD;
880: App_Exception.Raise_Exception;
881: END IF;
882:
887: NULL;
888: ELSE
889: IF NOT IGS_AS_UNIT_CLASS_PKG.Get_PK_For_Validation (
890: new_references.unit_class) THEN
891: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
892: IGS_GE_MSG_STACK.ADD;
893: App_Exception.Raise_Exception;
894: END IF;
895:
909: new_references.unit_cd,
910: new_references.version_number,
911: new_references.cal_type,
912: new_references.ci_sequence_number) THEN
913: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
914: IGS_GE_MSG_STACK.ADD;
915: App_Exception.Raise_Exception;
916: END IF;
917:
925: OPEN c_check_hz_exists;
926: FETCH c_check_hz_exists INTO cur_rec_hz_exists;
927: IF c_check_hz_exists%NOTFOUND THEN
928: CLOSE c_check_hz_exists;
929: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
930: igs_ge_msg_stack.add;
931: app_exception.raise_exception;
932: ELSE
933: CLOSE c_check_hz_exists;
940: ELSE
941: IF NOT IGS_FI_ACC_PKG.Get_PK_For_Validation (
942: new_references.rev_account_cd
943: ) THEN
944: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
945: IGS_GE_MSG_STACK.ADD;
946: App_Exception.Raise_Exception;
947: END IF;
948: END IF;
954: ELSE
955: IF NOT Get_UK_For_Validation (
956: new_references.sup_uoo_id
957: ) THEN
958: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
959: IGS_GE_MSG_STACK.ADD;
960: App_Exception.Raise_Exception;
961: END IF;
962: END IF;
1089: Open cur_rowid;
1090: Fetch cur_rowid INTO lv_rowid;
1091: IF (cur_rowid%FOUND) THEN
1092: Close cur_rowid;
1093: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOO_UOO_FK');
1094: IGS_GE_MSG_STACK.ADD;
1095: App_Exception.Raise_Exception;
1096: Return;
1097: END IF;
1413: Open cur_rowid;
1414: Fetch cur_rowid INTO lv_rowid;
1415: IF (cur_rowid%FOUND) THEN
1416: Close cur_rowid;
1417: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOO_GS_FK');
1418: IGS_GE_MSG_STACK.ADD;
1419: App_Exception.Raise_Exception;
1420: Return;
1421: END IF;
1449: Open cur_rowid;
1450: Fetch cur_rowid INTO lv_rowid;
1451: IF (cur_rowid%FOUND) THEN
1452: Close cur_rowid;
1453: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOO_LOC_FK');
1454: IGS_GE_MSG_STACK.ADD;
1455: App_Exception.Raise_Exception;
1456: Return;
1457: END IF;
1485: Open cur_rowid;
1486: Fetch cur_rowid INTO lv_rowid;
1487: IF (cur_rowid%FOUND) THEN
1488: Close cur_rowid;
1489: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOO_PE_FK');
1490: IGS_GE_MSG_STACK.ADD;
1491: App_Exception.Raise_Exception;
1492: Return;
1493: END IF;
1527: Open cur_rowid;
1528: Fetch cur_rowid INTO lv_rowid;
1529: IF (cur_rowid%FOUND) THEN
1530: Close cur_rowid;
1531: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UOO_UOP_FK');
1532: IGS_GE_MSG_STACK.ADD;
1533: App_Exception.Raise_Exception;
1534: Return;
1535: END IF;
1691: New_References.cal_type,
1692: New_References.ci_sequence_number,
1693: New_References.location_cd,
1694: New_References.unit_class) THEN
1695: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1696: IGS_GE_MSG_STACK.ADD;
1697: App_Exception.Raise_Exception;
1698: END IF;
1699: Check_Uniqueness;
1756: New_References.cal_type,
1757: New_References.ci_sequence_number,
1758: New_References.location_cd,
1759: New_References.unit_class) THEN
1760: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
1761: IGS_GE_MSG_STACK.ADD;
1762: App_Exception.Raise_Exception;
1763: END IF;
1764: Check_Uniqueness;
1780: OPEN cur_teach_to_load(x_cal_type,x_ci_sequence_number);
1781: FETCH cur_teach_to_load INTO l_cur_teach_to_load ;
1782: IF cur_teach_to_load%NOTFOUND THEN
1783: CLOSE cur_teach_to_load;
1784: fnd_message.set_name('IGS','IGS_PS_TECH_NO_LOAD_CAL_EXST');
1785: IGS_GE_MSG_STACK.ADD;
1786: App_Exception.Raise_Exception;
1787: END IF;
1788: CLOSE cur_teach_to_load;
1789:
1790: --check the call number uniqueness
1791: IF ((FND_PROFILE.VALUE('IGS_PS_CALL_NUMBER') = 'USER_DEFINED') AND (x_call_number IS NOT NULL) ) THEN
1792: IF NOT check_call_number(x_cal_type,x_ci_sequence_number,x_call_number,x_rowid) THEN
1793: Fnd_Message.Set_Name ('IGS', 'IGS_PS_DUPLICATE_CALL_NUMBER');
1794: IGS_GE_MSG_STACK.ADD;
1795: App_Exception.Raise_Exception;
1796: END IF;
1797: END IF;
1804: ELSE
1805: --check the call number uniqueness
1806: IF ((FND_PROFILE.VALUE('IGS_PS_CALL_NUMBER') = 'USER_DEFINED') AND (x_call_number IS NOT NULL) ) THEN
1807: IF NOT check_call_number(x_cal_type,x_ci_sequence_number,x_call_number,x_rowid) THEN
1808: Fnd_Message.Set_Name ('IGS', 'IGS_PS_DUPLICATE_CALL_NUMBER');
1809: IGS_GE_MSG_STACK.ADD;
1810: App_Exception.Raise_Exception;
1811: END IF;
1812: END IF;
2111: else
2112: X_PROGRAM_UPDATE_DATE := SYSDATE;
2113: end if;
2114: else
2115: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
2116: IGS_GE_MSG_STACK.ADD;
2117: app_exception.raise_exception;
2118: end if;
2119:
2177: --When the profile option is AUTO then use the sequence number to populate the call_number value
2178: IF FND_PROFILE.VALUE('IGS_PS_CALL_NUMBER') = 'AUTO' THEN
2179: x_call_number := get_call_number(new_references.cal_type, new_references.ci_sequence_number);
2180: IF x_call_number = -1 THEN
2181: fnd_message.set_name('IGS','IGS_GE_INVALID_VALUE');
2182: app_exception.raise_exception;
2183: END IF;
2184: END IF;
2185:
2416: open c1;
2417: fetch c1 into tlinfo;
2418: if (c1%notfound) then
2419: close c1;
2420: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
2421: IGS_GE_MSG_STACK.ADD;
2422: app_exception.raise_exception;
2423: return;
2424: end if;
2527:
2528: ) then
2529: null;
2530: else
2531: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
2532: IGS_GE_MSG_STACK.ADD;
2533: app_exception.raise_exception;
2534: end if;
2535: return;
2620: if X_LAST_UPDATE_LOGIN is NULL then
2621: X_LAST_UPDATE_LOGIN := -1;
2622: end if;
2623: else
2624: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
2625: IGS_GE_MSG_STACK.ADD;
2626: app_exception.raise_exception;
2627: end if;
2628: