[Home] [Help]
46: -- Populate Old Values.
47: Open cur_old_ref_values;
48: Fetch cur_old_ref_values INTO old_references;
49: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
50: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
51: IGS_GE_MSG_STACK.ADD;
52: App_Exception.Raise_Exception;
53: Close cur_old_ref_values;
54: Return;
116: new_references.panel_member_type,
117: old_references.confirmed_dt,
118: new_references.confirmed_dt,
119: v_message_name) = FALSE THEN
120: Fnd_Message.Set_Name ('IGS', v_message_name);
121: IGS_GE_MSG_STACK.ADD;
122: App_Exception.Raise_Exception;
123: END IF;
124: ELSIF p_deleting THEN
134: new_references.panel_member_type,
135: old_references.confirmed_dt,
136: new_references.confirmed_dt,
137: v_message_name) = FALSE THEN
138: Fnd_Message.Set_Name ('IGS', v_message_name);
139: IGS_GE_MSG_STACK.ADD;
140: App_Exception.Raise_Exception;
141: END IF;
142: END IF;
145: IF IGS_RE_VAL_TPM.resp_val_tpm_pe( new_references.ca_person_id,
146: new_references.ca_sequence_number,
147: new_references.person_id,
148: v_message_name) = FALSE THEN
149: Fnd_Message.Set_Name ('IGS', v_message_name);
150: IGS_GE_MSG_STACK.ADD;
151: App_Exception.Raise_Exception;
152: END IF;
153: END IF;
156: (old_references.panel_member_type <> new_references.panel_member_type)) THEN
157: -- Validate panel member type if p_inserting or changed.
158: IF IGS_RE_VAL_TPM.resp_val_tpm_tpmt( new_references.panel_member_type,
159: v_message_name) = FALSE THEN
160: Fnd_Message.Set_Name ('IGS', v_message_name);
161: IGS_GE_MSG_STACK.ADD;
162: App_Exception.Raise_Exception;
163: END IF;
164: END IF;
173: new_references.thesis_result_cd,
174: new_references.recommendation_summary,
175: new_references.confirmed_dt,
176: v_message_name) = FALSE THEN
177: Fnd_Message.Set_Name ('IGS', v_message_name);
178: IGS_GE_MSG_STACK.ADD;
179: App_Exception.Raise_Exception;
180: END IF;
181: END IF;
188: -- Validate declined date and confirmed dates.
189: IF IGS_RE_VAL_TPM.resp_val_tpm_dcln( new_references.declined_dt,
190: new_references.confirmed_dt,
191: v_message_name) = FALSE THEN
192: Fnd_Message.Set_Name ('IGS', v_message_name);
193: IGS_GE_MSG_STACK.ADD;
194: App_Exception.Raise_Exception;
195: END IF;
196: IF IGS_RE_VAL_TPM.resp_val_tpm_cnfrm( new_references.confirmed_dt,
197: new_references.thesis_result_cd,
198: new_references.paid_dt,
199: new_references.declined_dt,
200: v_message_name) = FALSE THEN
201: Fnd_Message.Set_Name ('IGS', v_message_name);
202: IGS_GE_MSG_STACK.ADD;
203: App_Exception.Raise_Exception;
204: END IF;
205: END IF;
210: -- Validate the paid date.
211: IF IGS_RE_VAL_TPM.resp_val_tpm_paid( new_references.paid_dt,
212: new_references.confirmed_dt,
213: v_message_name ) = FALSE THEN
214: Fnd_Message.Set_Name ('IGS', v_message_name);
215: IGS_GE_MSG_STACK.ADD;
216: App_Exception.Raise_Exception;
217: END IF;
218: END IF;
280:
281: IF upper(Column_name) = 'ANONYMITY_IND' OR column_name is null then
282: IF new_references.anonymity_ind <> UPPER(new_references.anonymity_ind ) OR
283: new_references.anonymity_ind NOT IN ( 'Y' , 'N' ) then
284: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
285: IGS_GE_MSG_STACK.ADD;
286: App_Exception.Raise_Exception;
287: END IF;
288: END IF;
288: END IF;
289:
290: IF upper(Column_name) = 'THESIS_RESULT_CD' OR column_name is null then
291: IF new_references.THESIS_RESULT_CD <> UPPER(new_references.THESIS_RESULT_CD ) then
292: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
293: IGS_GE_MSG_STACK.ADD;
294: App_Exception.Raise_Exception;
295: END IF;
296: END IF;
296: END IF;
297:
298: IF upper(Column_name) = 'PANEL_MEMBER_TYPE' OR column_name is null then
299: IF new_references.PANEL_MEMBER_TYPE <> UPPER(new_references.PANEL_MEMBER_TYPE ) then
300: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
301: IGS_GE_MSG_STACK.ADD;
302: App_Exception.Raise_Exception;
303: END IF;
304: END IF;
305:
306:
307: IF upper(Column_name) = 'THE_SEQUENCE_NUMBER' OR column_name is null then
308: IF new_references.the_sequence_number < 1 OR new_references.the_sequence_number > 999999 THEN
309: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
310: IGS_GE_MSG_STACK.ADD;
311: App_Exception.Raise_Exception;
312: END IF;
313: END IF;
313: END IF;
314:
315: IF upper(Column_name) = 'CA_SEQUENCE_NUMBER' OR column_name is null then
316: IF new_references.ca_sequence_number < 1 OR new_references.ca_sequence_number > 999999 THEN
317: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
318: IGS_GE_MSG_STACK.ADD;
319: App_Exception.Raise_Exception;
320: END IF;
321: END IF;
331: ELSE
332: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
333: new_references.person_id
334: ) THEN
335: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
336: IGS_GE_MSG_STACK.ADD;
337: App_Exception.Raise_Exception;
338: END IF;
339:
354: new_references.ca_sequence_number,
355: new_references.the_sequence_number,
356: new_references.creation_dt
357: ) THEN
358: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
359: IGS_GE_MSG_STACK.ADD;
360: App_Exception.Raise_Exception;
361: END IF;
362:
368: ELSE
369: IF NOT IGS_RE_THESIS_RESULT_PKG.Get_PK_For_Validation (
370: new_references.thesis_result_cd
371: ) THEN
372: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
373: IGS_GE_MSG_STACK.ADD;
374: App_Exception.Raise_Exception;
375: END IF;
376:
382: ELSE
383: IF NOT IGS_RE_THS_PNL_MR_TP_PKG.Get_PK_For_Validation (
384: new_references.panel_member_type
385: ) THEN
386: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
387: IGS_GE_MSG_STACK.ADD;
388: App_Exception.Raise_Exception;
389: END IF;
390:
443:
444: Open cur_rowid;
445: Fetch cur_rowid INTO lv_rowid;
446: IF (cur_rowid%FOUND) THEN
447: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TPM_PE_FK');
448: IGS_GE_MSG_STACK.ADD;
449: App_Exception.Raise_Exception;
450: Close cur_rowid;
451: Return;
475:
476: Open cur_rowid;
477: Fetch cur_rowid INTO lv_rowid;
478: IF (cur_rowid%FOUND) THEN
479: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TPM_TEX_FK');
480: IGS_GE_MSG_STACK.ADD;
481: App_Exception.Raise_Exception;
482: Close cur_rowid;
483: Return;
501:
502: Open cur_rowid;
503: Fetch cur_rowid INTO lv_rowid;
504: IF (cur_rowid%FOUND) THEN
505: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TPM_THR_FK');
506: IGS_GE_MSG_STACK.ADD;
507: App_Exception.Raise_Exception;
508: Close cur_rowid;
509: Return;
527:
528: Open cur_rowid;
529: Fetch cur_rowid INTO lv_rowid;
530: IF (cur_rowid%FOUND) THEN
531: Fnd_Message.Set_Name ('IGS', 'IGS_RE_TPM_TPMT_FK');
532: IGS_GE_MSG_STACK.ADD;
533: App_Exception.Raise_Exception;
534: Close cur_rowid;
535: Return;
594: new_references.the_sequence_number ,
595: new_references.creation_dt ,
596: new_references.person_id
597: )THEN
598: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
599: IGS_GE_MSG_STACK.ADD;
600: App_Exception.Raise_Exception;
601: END IF;
602: Check_Constraints;
616: new_references.the_sequence_number ,
617: new_references.creation_dt ,
618: new_references.person_id
619: )THEN
620: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
621: IGS_GE_MSG_STACK.ADD;
622: App_Exception.Raise_Exception;
623: END IF;
624: Check_Constraints;
691: if X_LAST_UPDATE_LOGIN is NULL then
692: X_LAST_UPDATE_LOGIN := -1;
693: end if;
694: else
695: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
696: IGS_GE_MSG_STACK.ADD;
697: app_exception.raise_exception;
698: end if;
699:
783:
784: EXCEPTION
785: WHEN OTHERS THEN
786: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
787: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
788: fnd_message.set_token ('ERR_CD', SQLCODE);
789: igs_ge_msg_stack.add;
790: igs_sc_gen_001.unset_ctx('R');
791: app_exception.raise_exception;
784: EXCEPTION
785: WHEN OTHERS THEN
786: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
787: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
788: fnd_message.set_token ('ERR_CD', SQLCODE);
789: igs_ge_msg_stack.add;
790: igs_sc_gen_001.unset_ctx('R');
791: app_exception.raise_exception;
792: ELSE
829: begin
830: open c1;
831: fetch c1 into tlinfo;
832: if (c1%notfound) then
833: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
834: app_exception.raise_exception;
835: close c1;
836: return;
837: end if;
859: AND (X_RECOMMENDATION_SUMMARY is null)))
860: ) then
861: null;
862: else
863: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
864: app_exception.raise_exception;
865: end if;
866: return;
867: end LOCK_ROW;
900: if X_LAST_UPDATE_LOGIN is NULL then
901: X_LAST_UPDATE_LOGIN := -1;
902: end if;
903: else
904: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
905: IGS_GE_MSG_STACK.ADD;
906: app_exception.raise_exception;
907: end if;
908:
946: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
947: where ROWID = X_ROWID
948: ;
949: if (sql%notfound) then
950: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
951: igs_ge_msg_stack.add;
952: igs_sc_gen_001.unset_ctx('R');
953: app_exception.raise_exception;
954: end if;
964:
965: EXCEPTION
966: WHEN OTHERS THEN
967: IF (SQLCODE = (-28115)) THEN
968: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
969: fnd_message.set_token ('ERR_CD', SQLCODE);
970: igs_ge_msg_stack.add;
971: igs_sc_gen_001.unset_ctx('R');
972: app_exception.raise_exception;
965: EXCEPTION
966: WHEN OTHERS THEN
967: IF (SQLCODE = (-28115)) THEN
968: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
969: fnd_message.set_token ('ERR_CD', SQLCODE);
970: igs_ge_msg_stack.add;
971: igs_sc_gen_001.unset_ctx('R');
972: app_exception.raise_exception;
973: ELSE
1059: END IF;
1060: delete from IGS_RE_THS_PNL_MBR
1061: where ROWID = X_ROWID;
1062: if (sql%notfound) then
1063: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1064: igs_ge_msg_stack.add;
1065: igs_sc_gen_001.unset_ctx('R');
1066: app_exception.raise_exception;
1067: end if;