40: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
41: Close cur_old_ref_values;
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: App_Exception.Raise_Exception;
45: Return;
46: END IF;
47: Close cur_old_ref_values;
48:
91: new_references.ceremony_number,
92: v_message_name) = FALSE THEN
93: Fnd_Message.Set_Name('IGS', v_message_name);
94: IGS_GE_MSG_STACK.ADD;
95: App_Exception.Raise_Exception;
96: END IF;
97: END IF;
98: -- Validate the award is not closed
99: IF p_inserting OR (p_updating AND new_references.award_cd <> old_references.award_cd) THEN
101: new_references.award_cd,
102: v_message_name) = FALSE THEN
103: Fnd_Message.Set_Name('IGS', v_message_name);
104: IGS_GE_MSG_STACK.ADD;
105: App_Exception.Raise_Exception;
106: END IF;
107: END IF;
108: -- Validate award is of the correct system award type
109: IF p_inserting OR p_updating THEN
113: 'COURSE',
114: v_message_name) = FALSE THEN
115: Fnd_Message.Set_Name('IGS', v_message_name);
116: IGS_GE_MSG_STACK.ADD;
117: App_Exception.Raise_Exception;
118: END IF;
119: ELSE
120: IF IGS_GR_VAL_AWC.grdp_val_award_type(
121: new_references.award_cd,
122: 'HONORARY',
123: v_message_name) = FALSE THEN
124: Fnd_Message.Set_Name('IGS', v_message_name);
125: IGS_GE_MSG_STACK.ADD;
126: App_Exception.Raise_Exception;
127: END IF;
128: END IF;
129: END IF;
130:
177: IF c_awc%FOUND THEN
178: CLOSE c_awc;
179: FND_MESSAGE.SET_NAME('IGS', v_message_name);
180: IGS_GE_MSG_STACK.ADD;
181: APP_EXCEPTION.RAISE_EXCEPTION;
182: END IF;
183: CLOSE c_awc;
184: END IF;
185: END IF;
207: CLOSE c_closed_ind;
208: IF l_c_closed_ind = 'Y' THEN
209: fnd_message.set_name('IGS','IGS_PS_AWD_CD_CLOSED');
210: igs_ge_msg_stack.add;
211: app_exception.raise_exception;
212: END IF;
213: END IF;
214: END before_insert_update;
215:
225: NEW_REFERENCES.award_cd
226: ) THEN
227: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
228: IGS_GE_MSG_STACK.ADD;
229: App_Exception.Raise_Exception;
230: END IF;
231: END Check_Uniqueness;
232:
233: PROCEDURE Check_Parent_Existance AS
239: ELSE
240: IF NOT IGS_PS_AWD_PKG.Get_PK_For_Validation (new_references.award_cd ) THEN
241: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
242: IGS_GE_MSG_STACK.ADD;
243: App_Exception.Raise_Exception;
244: END IF;
245: END IF;
246:
247: IF (((old_references.award_course_cd = new_references.award_course_cd) AND
258: new_references.award_cd
259: ) THEN
260: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
261: IGS_GE_MSG_STACK.ADD;
262: App_Exception.Raise_Exception;
263: END IF;
264: END IF;
265: IF (((old_references.grd_cal_type = new_references.grd_cal_type) AND
266: (old_references.grd_ci_sequence_number = new_references.grd_ci_sequence_number) AND
276: new_references.ceremony_number
277: ) THEN
278: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
279: IGS_GE_MSG_STACK.ADD;
280: App_Exception.Raise_Exception;
281: END IF;
282: END IF;
283: END Check_Parent_Existance;
284:
425: IF (cur_rowid%FOUND) THEN
426: Close cur_rowid;
427: Fnd_Message.Set_Name ('IGS', 'IGS_GR_AWC_GC_FK');
428: IGS_GE_MSG_STACK.ADD;
429: App_Exception.Raise_Exception;
430: Return;
431: END IF;
432: Close cur_rowid;
433:
480: before_insert_update( p_inserting => TRUE , p_updating => FALSE);
481: IF GET_PK_FOR_VALIDATION(NEW_REFERENCES.AWC_ID) THEN
482: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
483: IGS_GE_MSG_STACK.ADD;
484: App_Exception.Raise_Exception;
485: END IF;
486: check_constraints;
487: Check_Parent_Existance;
488: check_uniqueness;
500: ELSIF (p_action = 'VALIDATE_INSERT') THEN
501: IF GET_PK_FOR_VALIDATION(NEW_REFERENCES.AWC_ID) THEN
502: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
503: IGS_GE_MSG_STACK.ADD;
504: App_Exception.Raise_Exception;
505: END IF;
506: check_uniqueness;
507: check_constraints;
508: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
572: end if;
573: else
574: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
575: IGS_GE_MSG_STACK.ADD;
576: app_exception.raise_exception;
577: end if;
578:
579: Before_DML (
580: p_action => 'INSERT',
675: fetch c1 into tlinfo;
676: if (c1%notfound) then
677: close c1;
678: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
679: app_exception.raise_exception;
680: return;
681: end if;
682: close c1;
683:
697: ) then
698: null;
699: else
700: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
701: app_exception.raise_exception;
702: end if;
703: return;
704: end LOCK_ROW;
705:
735: end if;
736: else
737: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
738: IGS_GE_MSG_STACK.ADD;
739: app_exception.raise_exception;
740: end if;
741:
742: Before_DML (
743: p_action => 'UPDATE',
880: IF new_references.grd_ci_sequence_number < 1 OR
881: new_references.grd_ci_sequence_number > 999999 THEN
882: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
883: IGS_GE_MSG_STACK.ADD;
884: App_Exception.Raise_Exception;
885: END IF;
886: END IF;
887:
888: IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
888: IF upper(Column_name) = 'CLOSED_IND' OR COLUMN_NAME IS NULL THEN
889: IF new_references.closed_ind NOT IN ( 'Y' , 'N' ) THEN
890: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
891: IGS_GE_MSG_STACK.ADD;
892: App_Exception.Raise_Exception;
893: END IF;
894: END IF;
895:
896: IF upper(Column_name) = 'AWARD_CD' OR COLUMN_NAME IS NULL THEN
896: IF upper(Column_name) = 'AWARD_CD' OR COLUMN_NAME IS NULL THEN
897: IF new_references.award_cd <> UPPER(new_references.award_cd) THEN
898: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
899: IGS_GE_MSG_STACK.ADD;
900: App_Exception.Raise_Exception;
901: END IF;
902: END IF;
903:
904: IF upper(Column_name) = 'AWARD_COURSE_CD' OR COLUMN_NAME IS NULL then
904: IF upper(Column_name) = 'AWARD_COURSE_CD' OR COLUMN_NAME IS NULL then
905: IF new_references.award_course_cd <> UPPER(new_references.award_course_cd) THEN
906: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
907: IGS_GE_MSG_STACK.ADD;
908: App_Exception.Raise_Exception;
909: END IF;
910: END IF;
911:
912: IF upper(Column_name) = 'GRD_CAL_TYPE' OR COLUMN_NAME IS NULL then
912: IF upper(Column_name) = 'GRD_CAL_TYPE' OR COLUMN_NAME IS NULL then
913: IF new_references.grd_cal_type <> UPPER(new_references.grd_cal_type) THEN
914: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
915: IGS_GE_MSG_STACK.ADD;
916: App_Exception.Raise_Exception;
917: END IF;
918: END IF;
919:
920: IF upper(Column_name) = 'ORDER_IN_CEREMONY' OR COLUMN_NAME IS NULL then
921: IF new_references.order_in_ceremony < 0 OR
922: new_references.order_in_ceremony > 9999 THEN
923: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
924: IGS_GE_MSG_STACK.ADD;
925: App_Exception.Raise_Exception;
926: END IF;
927: END IF;
928:
929: END Check_Constraints;