[Home] [Help]
49: Open cur_old_ref_values;
50: Fetch cur_old_ref_values INTO old_references;
51: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
52: Close cur_old_ref_values;
53: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
54: IGS_GE_MSG_STACK.ADD;
55: App_Exception.Raise_Exception;
56: Return;
57: END IF;
122: IF IGS_RE_VAL_CAH.resp_val_ca_childupd(
123: new_references.ca_person_id,
124: new_references.ca_sequence_number,
125: v_message_name) = FALSE THEN
126: Fnd_Message.Set_Name ('IGS', v_message_name);
127: IGS_GE_MSG_STACK.ADD;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
134: new_references.ca_person_id,
135: new_references.person_id,
136: p_legacy,
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;
148: new_references.research_supervisor_type <> old_references.research_supervisor_type) THEN
149: IF IGS_RE_VAL_RSUP.resp_val_rst_closed (
150: new_references.research_supervisor_type,
151: v_message_name) = FALSE THEN
152: Fnd_Message.Set_Name ('IGS', v_message_name);
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception;
155: END IF;
156: END IF;
166: new_references.ou_start_dt,
167: new_references.funding_percentage,
168: NULL, -- staff member indicator
169: v_message_name) = FALSE THEN
170: Fnd_Message.Set_Name ('IGS', v_message_name);
171: IGS_GE_MSG_STACK.ADD;
172: App_Exception.Raise_Exception;
173:
174: END IF;
193: new_references.ou_start_dt,
194: NULL, -- staff member indicator
195: p_legacy,
196: v_message_name) = FALSE THEN
197: Fnd_Message.Set_Name ('IGS', v_message_name);
198: IGS_GE_MSG_STACK.ADD;
199: App_Exception.Raise_Exception;
200: END IF;
201: END IF;
211: IF IGS_RE_VAL_CAH.resp_val_ca_childupd(
212: old_references.ca_person_id,
213: old_references.ca_sequence_number,
214: v_message_name) = FALSE THEN
215: Fnd_Message.Set_Name ('IGS', v_message_name);
216: IGS_GE_MSG_STACK.ADD;
217: App_Exception.Raise_Exception;
218: END IF;
219: END IF;
252: NEW_REFERENCES.start_dt,
253: NEW_REFERENCES.end_dt,
254: p_legacy,
255: v_message_name) = FALSE THEN
256: Fnd_Message.Set_Name ('IGS', v_message_name);
257: IGS_GE_MSG_STACK.ADD;
258: App_Exception.Raise_Exception;
259: END IF;
260: END IF;
274: NEW_REFERENCES.start_dt,
275: NEW_REFERENCES.end_dt,
276: p_legacy,
277: v_message_name) = FALSE THEN
278: Fnd_Message.Set_Name ('IGS', v_message_name);
279: IGS_GE_MSG_STACK.ADD;
280: App_Exception.Raise_Exception;
281: END IF;
282: END IF;
298: NEW_REFERENCES.replaced_person_id,
299: NEW_REFERENCES.replaced_sequence_number,
300: p_legacy,
301: v_message_name) = FALSE THEN
302: Fnd_Message.Set_Name ('IGS', v_message_name);
303: IGS_GE_MSG_STACK.ADD;
304: App_Exception.Raise_Exception;
305: END IF;
306: END IF;
331: 'Y', -- Validate funding percentage
332: 'RSUP',
333: V_supervision_start_dt,
334: v_message_name) = FALSE THEN
335: Fnd_Message.Set_Name ('IGS', v_message_name);
336: IGS_GE_MSG_STACK.ADD;
337: App_Exception.Raise_Exception;
338: END IF;
339: */
362: 'Y', -- Validate funding percentage
363: 'RSUP',
364: v_supervision_start_dt,
365: v_message_name) = FALSE THEN
366: Fnd_Message.Set_Name ('IGS', v_message_name);
367: IGS_GE_MSG_STACK.ADD;
368: App_Exception.Raise_Exception;
369: END IF;*/
370: -- This code has been commented out NOCOPY because this
437: END IF;
438:
439: IF upper(column_name) = 'CA_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
440: IF new_references.CA_SEQUENCE_NUMBER < 1 OR new_references.CA_SEQUENCE_NUMBER > 999999 then
441: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
442: IGS_GE_MSG_STACK.ADD;
443: App_Exception.Raise_Exception ;
444: END IF;
445: END IF;
444: END IF;
445: END IF;
446: IF upper(column_name) = 'SUPERVISION_PERCENTAGE' OR COLUMN_NAME IS NULL THEN
447: IF new_references.SUPERVISION_PERCENTAGE < 0 OR new_references.SUPERVISION_PERCENTAGE > 100 then
448: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
449: IGS_GE_MSG_STACK.ADD;
450: App_Exception.Raise_Exception ;
451: END IF;
452: END IF;
451: END IF;
452: END IF;
453: IF upper(column_name) = 'REPLACED_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
454: IF new_references.REPLACED_SEQUENCE_NUMBER < 1 OR new_references.REPLACED_SEQUENCE_NUMBER > 999999 then
455: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
456: IGS_GE_MSG_STACK.ADD;
457: App_Exception.Raise_Exception ;
458: END IF;
459: END IF;
458: END IF;
459: END IF;
460: IF upper(column_name) = 'FUNDING_PERCENTAGE' OR COLUMN_NAME IS NULL THEN
461: IF new_references.FUNDING_PERCENTAGE < 0 OR new_references.FUNDING_PERCENTAGE > 100 then
462: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
463: IGS_GE_MSG_STACK.ADD;
464: App_Exception.Raise_Exception ;
465: END IF;
466: END IF;
465: END IF;
466: END IF;
467: IF upper(column_name) = 'SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
468: IF new_references.SEQUENCE_NUMBER < 1 OR new_references.SEQUENCE_NUMBER > 999999 then
469: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
470: IGS_GE_MSG_STACK.ADD;
471: App_Exception.Raise_Exception ;
472: END IF;
473: END IF;
473: END IF;
474:
475: IF upper(column_name) = 'RESEARCH_SUPERVISOR_TYPE' OR COLUMN_NAME IS NULL THEN
476: IF new_references.RESEARCH_SUPERVISOR_TYPE <> upper(NEW_REFERENCES.RESEARCH_SUPERVISOR_TYPE) then
477: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
478: IGS_GE_MSG_STACK.ADD;
479: App_Exception.Raise_Exception ;
480: END IF;
481: END IF;
480: END IF;
481: END IF;
482: IF upper(column_name) = 'SUPERVISOR_PROFESSION' OR COLUMN_NAME IS NULL THEN
483: IF new_references.SUPERVISOR_PROFESSION <> upper(NEW_REFERENCES.SUPERVISOR_PROFESSION) then
484: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
485: IGS_GE_MSG_STACK.ADD;
486: App_Exception.Raise_Exception ;
487: END IF;
488: END IF;
495: new_references.ca_sequence_number,
496: new_references.person_id,
497: new_references.start_dt
498: ) THEN
499: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
500: IGS_GE_MSG_STACK.ADD;
501: App_Exception.Raise_Exception;
502: END IF;
503:
515: IF NOT IGS_RE_CANDIDATURE_PKG.Get_PK_For_Validation (
516: new_references.ca_person_id,
517: new_references.ca_sequence_number
518: ) THEN
519: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
520: IGS_GE_MSG_STACK.ADD;
521: App_Exception.Raise_Exception;
522: END IF;
523: END IF;
531: IF NOT IGS_OR_UNIT_PKG.Get_PK_For_Validation (
532: new_references.org_unit_cd,
533: new_references.ou_start_dt
534: ) THEN
535: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
536: IGS_GE_MSG_STACK.ADD;
537: App_Exception.Raise_Exception;
538: END IF;
539: END IF;
544: ELSE
545: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
546: new_references.person_id
547: ) THEN
548: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
549: IGS_GE_MSG_STACK.ADD;
550: App_Exception.Raise_Exception;
551: END IF;
552: END IF;
557: ELSE
558: IF NOT IGS_RE_SPRVSR_TYPE_PKG.Get_PK_For_Validation (
559: new_references.research_supervisor_type
560: ) THEN
561: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
562: IGS_GE_MSG_STACK.ADD;
563: App_Exception.Raise_Exception;
564: END IF;
565: END IF;
579: new_references.ca_sequence_number,
580: new_references.replaced_person_id,
581: new_references.replaced_sequence_number
582: ) THEN
583: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
584: IGS_GE_MSG_STACK.ADD;
585: App_Exception.Raise_Exception;
586: END IF;
587: END IF;
685: Open cur_rowid;
686: Fetch cur_rowid INTO lv_rowid;
687: IF (cur_rowid%FOUND) THEN
688: Close cur_rowid;
689: Fnd_Message.Set_Name ('IGS', 'IGS_RE_RSUP_CA_FK');
690: IGS_GE_MSG_STACK.ADD;
691: App_Exception.Raise_Exception;
692: Return;
693: END IF;
713: Open cur_rowid;
714: Fetch cur_rowid INTO lv_rowid;
715: IF (cur_rowid%FOUND) THEN
716: Close cur_rowid;
717: Fnd_Message.Set_Name ('IGS', 'IGS_RE_RSUP_OU_FK');
718: IGS_GE_MSG_STACK.ADD;
719: App_Exception.Raise_Exception;
720: Return;
721: END IF;
739: Open cur_rowid;
740: Fetch cur_rowid INTO lv_rowid;
741: IF (cur_rowid%FOUND) THEN
742: Close cur_rowid;
743: Fnd_Message.Set_Name ('IGS', 'IGS_RE_RSUP_PE_FK');
744: IGS_GE_MSG_STACK.ADD;
745: App_Exception.Raise_Exception;
746: Return;
747: END IF;
765: Open cur_rowid;
766: Fetch cur_rowid INTO lv_rowid;
767: IF (cur_rowid%FOUND) THEN
768: Close cur_rowid;
769: Fnd_Message.Set_Name ('IGS', 'IGS_RE_RSUP_RST_FK');
770: IGS_GE_MSG_STACK.ADD;
771: App_Exception.Raise_Exception;
772: Return;
773: END IF;
797: Open cur_rowid;
798: Fetch cur_rowid INTO lv_rowid;
799: IF (cur_rowid%FOUND) THEN
800: Close cur_rowid;
801: Fnd_Message.Set_Name ('IGS', 'IGS_RE_RSUP_RSUP_FK');
802: IGS_GE_MSG_STACK.ADD;
803: App_Exception.Raise_Exception;
804: Return;
805: END IF;
869: new_references.ca_sequence_number,
870: new_references.person_id,
871: new_references.sequence_number
872: ) THEN
873: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
874: IGS_GE_MSG_STACK.ADD;
875: App_Exception.Raise_Exception;
876: END IF;
877: Check_Uniqueness;
899: new_references.ca_sequence_number,
900: new_references.person_id,
901: new_references.sequence_number
902: ) THEN
903: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
904: IGS_GE_MSG_STACK.ADD;
905: App_Exception.Raise_Exception;
906: END IF;
907: Check_Uniqueness;
978: if X_LAST_UPDATE_LOGIN is NULL then
979: X_LAST_UPDATE_LOGIN := -1;
980: end if;
981: else
982: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
983: IGS_GE_MSG_STACK.ADD;
984: app_exception.raise_exception;
985: end if;
986:
1075:
1076: EXCEPTION
1077: WHEN OTHERS THEN
1078: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1079: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1080: fnd_message.set_token ('ERR_CD', SQLCODE);
1081: igs_ge_msg_stack.add;
1082: igs_sc_gen_001.unset_ctx('R');
1083: app_exception.raise_exception;
1076: EXCEPTION
1077: WHEN OTHERS THEN
1078: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1079: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1080: fnd_message.set_token ('ERR_CD', SQLCODE);
1081: igs_ge_msg_stack.add;
1082: igs_sc_gen_001.unset_ctx('R');
1083: app_exception.raise_exception;
1084: ELSE
1126: begin
1127: open c1;
1128: fetch c1 into tlinfo;
1129: if (c1%notfound) then
1130: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1131: app_exception.raise_exception;
1132: close c1;
1133: return;
1134: end if;
1165: AND (X_COMMENTS is null)))
1166: ) then
1167: null;
1168: else
1169: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1170: app_exception.raise_exception;
1171: end if;
1172: return;
1173: end LOCK_ROW;
1208: if X_LAST_UPDATE_LOGIN is NULL then
1209: X_LAST_UPDATE_LOGIN := -1;
1210: end if;
1211: else
1212: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1213: IGS_GE_MSG_STACK.ADD;
1214: app_exception.raise_exception;
1215: end if;
1216:
1259: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1260: where ROWID = X_ROWID
1261: ;
1262: if (sql%notfound) then
1263: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1264: igs_ge_msg_stack.add;
1265: igs_sc_gen_001.unset_ctx('R');
1266: app_exception.raise_exception;
1267: end if;
1277:
1278: EXCEPTION
1279: WHEN OTHERS THEN
1280: IF (SQLCODE = (-28115)) THEN
1281: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1282: fnd_message.set_token ('ERR_CD', SQLCODE);
1283: igs_ge_msg_stack.add;
1284: igs_sc_gen_001.unset_ctx('R');
1285: app_exception.raise_exception;
1278: EXCEPTION
1279: WHEN OTHERS THEN
1280: IF (SQLCODE = (-28115)) THEN
1281: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1282: fnd_message.set_token ('ERR_CD', SQLCODE);
1283: igs_ge_msg_stack.add;
1284: igs_sc_gen_001.unset_ctx('R');
1285: app_exception.raise_exception;
1286: ELSE
1378: END IF;
1379: delete from IGS_RE_SPRVSR
1380: where ROWID = X_ROWID;
1381: if (sql%notfound) then
1382: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1383: igs_ge_msg_stack.add;
1384: igs_sc_gen_001.unset_ctx('R');
1385: app_exception.raise_exception;
1386: end if;