[Home] [Help]
39: -- Populate Old Values.
40: Open cur_old_ref_values;
41: Fetch cur_old_ref_values INTO old_references;
42: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
43: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
44: IGS_GE_MSG_STACK.ADD;
45: Close cur_old_ref_values;
46: APP_EXCEPTION.RAISE_EXCEPTION;
47:
94: --
95: -- Validate IGS_AS_SPCL_CONS_CAT closed indicator
96: IF IGS_AS_VAL_SCAP.assp_val_spcc_closed ( new_references.spcl_consideration_cat,
97: v_message_name) = FALSE THEN
98: FND_MESSAGE.SET_NAME('IGS',v_message_name);
99: IGS_GE_MSG_STACK.ADD;
100: APP_EXCEPTION.RAISE_EXCEPTION;
101: END IF;
102: --
103: -- Validate IGS_AS_SPCL_CONS_OUT closed indicator for
104: -- the sought_outcome field
105: IF IGS_AS_VAL_SCAP.assp_val_spco_closed( new_references.sought_outcome,
106: v_message_name) = FALSE THEN
107: FND_MESSAGE.SET_NAME('IGS',v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: APP_EXCEPTION.RAISE_EXCEPTION;
110: END IF;
111: --
112: -- Validate IGS_AS_SPCL_CONS_OUT closed indicator for
113: -- the IGS_AS_SPCL_CONS_OUT field
114: IF IGS_AS_VAL_SCAP.assp_val_spco_closed( new_references.spcl_consideration_outcome,
115: v_message_name) = FALSE THEN
116: FND_MESSAGE.SET_NAME('IGS',v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: APP_EXCEPTION.RAISE_EXCEPTION;
119: END IF;
120: --
134: new_references.uoo_id) = FALSE AND
135: v_message_name <> 'IGS_CA_AA_CIR_FK') THEN
136: IF v_message_name ='IGS_CA_AA_CIR_FK' THEN
137:
138: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
139: IGS_GE_MSG_STACK.ADD;
140: APP_EXCEPTION.RAISE_EXCEPTION;
141: ELSE
142: FND_MESSAGE.SET_NAME('IGS',v_message_name);
138: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_VALUE');
139: IGS_GE_MSG_STACK.ADD;
140: APP_EXCEPTION.RAISE_EXCEPTION;
141: ELSE
142: FND_MESSAGE.SET_NAME('IGS',v_message_name);
143: IGS_GE_MSG_STACK.ADD;
144: APP_EXCEPTION.RAISE_EXCEPTION;
145: END IF;
146: END IF;
157: new_references.creation_dt,
158: v_message_name,
159: new_references.uoo_id) = FALSE THEN
160:
161: FND_MESSAGE.SET_NAME('IGS','IGS_PS_POSU_POSP_FK');
162: IGS_GE_MSG_STACK.ADD;
163: APP_EXCEPTION.RAISE_EXCEPTION;
164: END IF;
165: END IF;
175: new_references.ass_id,
176: new_references.creation_dt,
177: v_message_name,
178: new_references.uoo_id) = FALSE THEN
179: FND_MESSAGE.SET_NAME('IGS','IGS_PE_PIG_PE_FK');
180: IGS_GE_MSG_STACK.ADD;
181: APP_EXCEPTION.RAISE_EXCEPTION;
182: END IF;
183: END IF;
190: NULL;
191: ELSIF NOT IGS_AS_SPCL_CONS_OUT_PKG.Get_PK_For_Validation (
192: new_references.sought_outcome
193: ) THEN
194: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
195: IGS_GE_MSG_STACK.ADD;
196: APP_EXCEPTION.RAISE_EXCEPTION;
197:
198: END IF;
201: NULL;
202: ELSIF NOT IGS_AS_SPCL_CONS_OUT_PKG.Get_PK_For_Validation (
203: new_references.spcl_consideration_outcome
204: ) THEN
205: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
206: IGS_GE_MSG_STACK.ADD;
207: APP_EXCEPTION.RAISE_EXCEPTION;
208:
209: END IF;
225: new_references.person_id,
226: new_references.ass_id,
227: new_references.creation_dt,
228: new_references.uoo_id)THEN
229: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
230: IGS_GE_MSG_STACK.ADD;
231: APP_EXCEPTION.RAISE_EXCEPTION;
232:
233: END IF;
236: NULL;
237: ELSIF NOT IGS_AS_SPCL_CONS_CAT_PKG.Get_PK_For_Validation (
238: new_references.spcl_consideration_cat
239: ) THEN
240: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
241: IGS_GE_MSG_STACK.ADD;
242: APP_EXCEPTION.RAISE_EXCEPTION;
243:
244: END IF;
294: BEGIN
295: Open cur_rowid;
296: Fetch cur_rowid INTO lv_rowid;
297: IF (cur_rowid%FOUND) THEN
298: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAP_SPCO_FK');
299: IGS_GE_MSG_STACK.ADD;
300: Close cur_rowid;
301: APP_EXCEPTION.RAISE_EXCEPTION;
302:
328: BEGIN
329: Open cur_rowid;
330: Fetch cur_rowid INTO lv_rowid;
331: IF (cur_rowid%FOUND) THEN
332: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAP_SUAAI_FK');
333: IGS_GE_MSG_STACK.ADD;
334: Close cur_rowid;
335: APP_EXCEPTION.RAISE_EXCEPTION;
336:
349: BEGIN
350: Open cur_rowid;
351: Fetch cur_rowid INTO lv_rowid;
352: IF (cur_rowid%FOUND) THEN
353: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SCAP_SPCC_FK');
354: IGS_GE_MSG_STACK.ADD;
355: Close cur_rowid;
356: APP_EXCEPTION.RAISE_EXCEPTION;
357:
420: NEW_REFERENCES.creation_dt ,
421: NEW_REFERENCES.received_dt ,
422: NEW_REFERENCES.uoo_id
423: ) THEN
424: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
425: IGS_GE_MSG_STACK.ADD;
426: APP_EXCEPTION.RAISE_EXCEPTION;
427: END IF;
428:
444: NEW_REFERENCES.ass_id ,
445: NEW_REFERENCES.creation_dt ,
446: NEW_REFERENCES.received_dt,
447: NEW_REFERENCES.uoo_id ) THEN
448: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
449: IGS_GE_MSG_STACK.ADD;
450: APP_EXCEPTION.RAISE_EXCEPTION;
451: END IF;
452: Check_Constraints;
501: if X_LAST_UPDATE_LOGIN is NULL then
502: X_LAST_UPDATE_LOGIN := -1;
503: end if;
504: else
505: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
506: IGS_GE_MSG_STACK.ADD;
507: APP_EXCEPTION.RAISE_EXCEPTION;
508: end if;
509: Before_DML(
593:
594: EXCEPTION
595: WHEN OTHERS THEN
596: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
597: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
598: fnd_message.set_token ('ERR_CD', SQLCODE);
599: igs_ge_msg_stack.add;
600: igs_sc_gen_001.unset_ctx('R');
601: app_exception.raise_exception;
594: EXCEPTION
595: WHEN OTHERS THEN
596: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
597: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
598: fnd_message.set_token ('ERR_CD', SQLCODE);
599: igs_ge_msg_stack.add;
600: igs_sc_gen_001.unset_ctx('R');
601: app_exception.raise_exception;
602: ELSE
637: begin
638: open c1;
639: fetch c1 into tlinfo;
640: if (c1%notfound) then
641: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
642: IGS_GE_MSG_STACK.ADD;
643: APP_EXCEPTION.RAISE_EXCEPTION;
644: close c1;
645: return;
663: AND (X_COMMENTS is null)))
664: ) then
665: null;
666: else
667: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
668: IGS_GE_MSG_STACK.ADD;
669: APP_EXCEPTION.RAISE_EXCEPTION;
670: end if;
671: return;
707: if X_LAST_UPDATE_LOGIN is NULL then
708: X_LAST_UPDATE_LOGIN := -1;
709: end if;
710: else
711: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
712: IGS_GE_MSG_STACK.ADD;
713: APP_EXCEPTION.RAISE_EXCEPTION;
714: end if;
715: Before_DML(
752: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
753: NOTIFIED_DATE = X_NOTIFIED_DATE
754: where ROWID = X_ROWID;
755: if (sql%notfound) then
756: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
757: igs_ge_msg_stack.add;
758: igs_sc_gen_001.unset_ctx('R');
759: app_exception.raise_exception;
760: end if;
765:
766: EXCEPTION
767: WHEN OTHERS THEN
768: IF (SQLCODE = (-28115)) THEN
769: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
770: fnd_message.set_token ('ERR_CD', SQLCODE);
771: igs_ge_msg_stack.add;
772: igs_sc_gen_001.unset_ctx('R');
773: app_exception.raise_exception;
766: EXCEPTION
767: WHEN OTHERS THEN
768: IF (SQLCODE = (-28115)) THEN
769: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
770: fnd_message.set_token ('ERR_CD', SQLCODE);
771: igs_ge_msg_stack.add;
772: igs_sc_gen_001.unset_ctx('R');
773: app_exception.raise_exception;
774: ELSE
864: END IF;
865: delete from IGS_AS_SPL_CONS_APPL
866: where ROWID = X_ROWID;
867: if (sql%notfound) then
868: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
869: igs_ge_msg_stack.add;
870: igs_sc_gen_001.unset_ctx('R');
871: app_exception.raise_exception;
872: end if;
910:
911: IF upper(column_name) = 'CI_SEQUENCE_NUMBER ' OR
912: column_name is null Then
913: IF new_references.ci_sequence_number < 1 OR new_references.ci_sequence_number > 999999 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;
918: END IF;
919: IF upper(column_name) = 'ESTIMATED_PROCESSING_DAYS' OR
920: column_name is null Then
921: IF new_references.ESTIMATED_PROCESSING_DAYS < 0 OR new_references.ESTIMATED_PROCESSING_DAYS > 99 Then
922: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
923: IGS_GE_MSG_STACK.ADD;
924: APP_EXCEPTION.RAISE_EXCEPTION;
925: END IF;
926: END IF;
928:
929: IF upper(column_name) = 'CAL_TYPE' OR
930: column_name is null Then
931: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) Then
932: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
933: IGS_GE_MSG_STACK.ADD;
934: APP_EXCEPTION.RAISE_EXCEPTION;
935: END IF;
936: END IF;
936: END IF;
937: IF upper(column_name) = 'CAL_TYPE' OR
938: column_name is null Then
939: IF new_references.CAL_TYPE<> UPPER(new_references.CAL_TYPE) Then
940: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
941: IGS_GE_MSG_STACK.ADD;
942: APP_EXCEPTION.RAISE_EXCEPTION;
943: END IF;
944: END IF;
944: END IF;
945: IF upper(column_name) = 'COURSE_CD' OR
946: column_name is null Then
947: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
948: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
949: IGS_GE_MSG_STACK.ADD;
950: APP_EXCEPTION.RAISE_EXCEPTION;
951: END IF;
952: END IF;
952: END IF;
953: IF upper(column_name) = 'SPCL_CONSIDERATION_CAT' OR
954: column_name is null Then
955: IF new_references.SPCL_CONSIDERATION_CAT <> UPPER(new_references.SPCL_CONSIDERATION_CAT) Then
956: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
957: IGS_GE_MSG_STACK.ADD;
958: APP_EXCEPTION.RAISE_EXCEPTION;
959: END IF;
960: END IF;
960: END IF;
961: IF upper(column_name) = 'SPCL_CONSIDERATION_OUTCOME' OR
962: column_name is null Then
963: IF new_references.SPCL_CONSIDERATION_OUTCOME <> UPPER(new_references.SPCL_CONSIDERATION_OUTCOME) Then
964: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
965: IGS_GE_MSG_STACK.ADD;
966: APP_EXCEPTION.RAISE_EXCEPTION;
967: END IF;
968: END IF;
968: END IF;
969: IF upper(column_name) = 'UNIT_CD' OR
970: column_name is null Then
971: IF new_references.UNIT_CD <> UPPER(new_references.UNIT_CD) Then
972: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
973: IGS_GE_MSG_STACK.ADD;
974: APP_EXCEPTION.RAISE_EXCEPTION;
975: END IF;
976: END IF;