[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: Close cur_old_ref_values;
53: App_Exception.Raise_Exception;
54: Return;
102: ( p_updating AND
103: old_references.milestone_type <> new_references.milestone_type ) THEN
104: IF IGS_RE_VAL_MIL.resp_val_mil_mty( new_references.milestone_type,
105: v_message_name) = FALSE THEN
106: Fnd_Message.Set_Name('IGS',v_message_name);
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
114: NVL(new_references.actual_reached_dt,IGS_GE_DATE.IGSDATE('1900/01/01'))) THEN
115: IF IGS_RE_VAL_MIL.resp_val_mil_actual( new_references.milestone_status,
116: new_references.actual_reached_dt,
117: v_message_name) = FALSE THEN
118: Fnd_Message.Set_Name('IGS',v_message_name);
119: IGS_GE_MSG_STACK.ADD;
120: App_Exception.Raise_Exception;
121: END IF;
122: END IF;
137: new_references.ovrd_ntfctn_reminder_days,
138: old_references.ovrd_ntfctn_re_reminder_days,
139: new_references.ovrd_ntfctn_re_reminder_days,
140: v_message_name) = FALSE THEN
141: Fnd_Message.Set_Name('IGS',v_message_name);
142: IGS_GE_MSG_STACK.ADD;
143: App_Exception.Raise_Exception;
144: END IF;
145: END IF;
149: old_references.ca_sequence_number,
150: old_references.sequence_number,
151: old_references.milestone_status,
152: v_message_name) = FALSE THEN
153: Fnd_Message.Set_Name('IGS',v_message_name);
154: IGS_GE_MSG_STACK.ADD;
155: App_Exception.Raise_Exception;
156: END IF;
157: END IF;
270: new_references.sequence_number,
271: new_references.due_dt,
272: new_references.preced_sequence_number,
273: v_message_name) = FALSE THEN
274: Fnd_Message.Set_Name('IGS',v_message_name);
275: IGS_GE_MSG_STACK.ADD;
276: App_Exception.Raise_Exception;
277: END IF;
278: -- Validate milestone status.
284: old_references.due_dt,
285: new_references.due_dt,
286: 'TRIGGER',
287: v_message_name) = FALSE THEN
288: Fnd_Message.Set_Name('IGS',v_message_name);
289: IGS_GE_MSG_STACK.ADD;
290: App_Exception.Raise_Exception;
291: END IF;
292: -- Validate milestone due date.
297: new_references.milestone_status,
298: old_references.due_dt,
299: new_references.due_dt,
300: v_message_name) = FALSE THEN
301: Fnd_Message.Set_Name('IGS',v_message_name);
302: IGS_GE_MSG_STACK.ADD;
303: App_Exception.Raise_Exception;
304: END IF;
305: END IF;
319: IF NOT IGS_RE_CANDIDATURE_PKG.GET_PK_For_Validation (
320: new_references.person_id,
321: new_references.ca_sequence_number
322: ) THEN
323: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
324: IGS_GE_MSG_STACK.ADD;
325: App_Exception.Raise_Exception;
326: END IF;
327: END IF;
338: new_references.person_id,
339: new_references.ca_sequence_number,
340: new_references.preced_sequence_number
341: ) THEN
342: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
343: IGS_GE_MSG_STACK.ADD;
344: App_Exception.Raise_Exception;
345: END IF;
346: END IF;
351: ELSE
352: IF NOT IGS_PR_MS_STAT_PKG.Get_PK_For_Validation (
353: new_references.milestone_status
354: ) THEN
355: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
356: IGS_GE_MSG_STACK.ADD;
357: App_Exception.Raise_Exception;
358: END IF;
359: END IF;
364: ELSE
365: IF NOT IGS_PR_MILESTONE_TYP_PKG.Get_PK_For_Validation (
366: new_references.milestone_type
367: ) THEN
368: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
369: IGS_GE_MSG_STACK.ADD;
370: App_Exception.Raise_Exception;
371: END IF;
372: END IF;
430:
431: Open cur_rowid;
432: Fetch cur_rowid INTO lv_rowid;
433: IF (cur_rowid%FOUND) THEN
434: Fnd_Message.Set_Name ('IGS', 'IGS_PR_MIL_CA_FK');
435: IGS_GE_MSG_STACK.ADD;
436: App_Exception.Raise_Exception;
437: Close cur_rowid;
438: Return;
460:
461: Open cur_rowid;
462: Fetch cur_rowid INTO lv_rowid;
463: IF (cur_rowid%FOUND) THEN
464: Fnd_Message.Set_Name ('IGS', 'IGS_PR_MIL_MIL_FK');
465: IGS_GE_MSG_STACK.ADD;
466: Close cur_rowid;
467: App_Exception.Raise_Exception;
468: Return;
486:
487: Open cur_rowid;
488: Fetch cur_rowid INTO lv_rowid;
489: IF (cur_rowid%FOUND) THEN
490: Fnd_Message.Set_Name ('IGS', 'IGS_PR_MIL_MST_FK');
491: IGS_GE_MSG_STACK.ADD;
492: Close cur_rowid;
493: App_Exception.Raise_Exception;
494: Return;
512:
513: Open cur_rowid;
514: Fetch cur_rowid INTO lv_rowid;
515: IF (cur_rowid%FOUND) THEN
516: Fnd_Message.Set_Name ('IGS', 'IGS_PR_MIL_MTY_FK');
517: IGS_GE_MSG_STACK.ADD;
518: Close cur_rowid;
519: App_Exception.Raise_Exception;
520: Return;
579: new_references.person_id,
580: new_references.ca_sequence_number,
581: new_references.sequence_number
582: ) THEN
583: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
584: IGS_GE_MSG_STACK.ADD;
585: App_Exception.Raise_Exception;
586: END IF;
587: Check_Constraints;
600: new_references.person_id,
601: new_references.ca_sequence_number,
602: new_references.sequence_number
603: ) THEN
604: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
605: IGS_GE_MSG_STACK.ADD;
606: App_Exception.Raise_Exception;
607: END IF;
608: Check_Constraints;
676: if X_LAST_UPDATE_LOGIN is NULL then
677: X_LAST_UPDATE_LOGIN := -1;
678: end if;
679: else
680: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
681: IGS_GE_MSG_STACK.ADD;
682: app_exception.raise_exception;
683: end if;
684:
767: );
768: EXCEPTION
769: WHEN OTHERS THEN
770: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
771: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
772: fnd_message.set_token ('ERR_CD', SQLCODE);
773: igs_ge_msg_stack.add;
774: igs_sc_gen_001.unset_ctx('R');
775: app_exception.raise_exception;
768: EXCEPTION
769: WHEN OTHERS THEN
770: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
771: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
772: fnd_message.set_token ('ERR_CD', SQLCODE);
773: igs_ge_msg_stack.add;
774: igs_sc_gen_001.unset_ctx('R');
775: app_exception.raise_exception;
776: ELSE
814: begin
815: open c1;
816: fetch c1 into tlinfo;
817: if (c1%notfound) then
818: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
819: IGS_GE_MSG_STACK.ADD;
820: close c1;
821: app_exception.raise_exception;
822: return;
849: AND (X_COMMENTS is null)))
850: ) then
851: null;
852: else
853: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
854: IGS_GE_MSG_STACK.ADD;
855: app_exception.raise_exception;
856: end if;
857: return;
891: if X_LAST_UPDATE_LOGIN is NULL then
892: X_LAST_UPDATE_LOGIN := -1;
893: end if;
894: else
895: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
896: IGS_GE_MSG_STACK.ADD;
897: app_exception.raise_exception;
898: end if;
899: Before_DML (
939: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
940: where ROWID = X_ROWID;
941:
942: if (sql%notfound) then
943: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
944: igs_ge_msg_stack.add;
945: igs_sc_gen_001.unset_ctx('R');
946: app_exception.raise_exception;
947: end if;
956: );
957: EXCEPTION
958: WHEN OTHERS THEN
959: IF (SQLCODE = (-28115)) THEN
960: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
961: fnd_message.set_token ('ERR_CD', SQLCODE);
962: igs_ge_msg_stack.add;
963: igs_sc_gen_001.unset_ctx('R');
964: app_exception.raise_exception;
957: EXCEPTION
958: WHEN OTHERS THEN
959: IF (SQLCODE = (-28115)) THEN
960: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
961: fnd_message.set_token ('ERR_CD', SQLCODE);
962: igs_ge_msg_stack.add;
963: igs_sc_gen_001.unset_ctx('R');
964: app_exception.raise_exception;
965: ELSE
1050: END IF;
1051: delete from IGS_PR_MILESTONE_ALL
1052: where ROWID = X_ROWID;
1053: if (sql%notfound) then
1054: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1055: igs_ge_msg_stack.add;
1056: igs_sc_gen_001.unset_ctx('R');
1057: app_exception.raise_exception;
1058: end if;
1095:
1096: IF upper(column_name) = 'MILESTONE_STATUS' OR
1097: column_name is NULL THEN
1098: IF new_references.milestone_status <> UPPER(new_references.milestone_status) THEN
1099: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1100: IGS_GE_MSG_STACK.ADD;
1101: App_Exception.Raise_Exception;
1102: END IF;
1103: END IF;
1106: IF upper(column_name) = 'CA_SEQUENCE_NUMBER' OR
1107: column_name is NULL THEN
1108: IF TO_NUMBER(new_references.ca_sequence_number) < 1 OR
1109: TO_NUMBER(new_references.ca_sequence_number) > 999999 THEN
1110: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1111: IGS_GE_MSG_STACK.ADD;
1112: App_Exception.Raise_Exception;
1113: END IF;
1114: END IF;
1117: IF upper(column_name) = 'SEQUENCE_NUMBER' OR
1118: column_name is NULL THEN
1119: IF TO_NUMBER(new_references.sequence_number) < 1 OR
1120: TO_NUMBER(new_references.sequence_number) > 999999 THEN
1121: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1122: IGS_GE_MSG_STACK.ADD;
1123: App_Exception.Raise_Exception;
1124: END IF;
1125: END IF;
1128: IF upper(column_name) = 'PRECED_SEQUENCE_NUMBER' OR
1129: column_name is NULL THEN
1130: IF TO_NUMBER(new_references.preced_sequence_number) < 1 OR
1131: TO_NUMBER(new_references.preced_sequence_number) > 999999 THEN
1132: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1133: IGS_GE_MSG_STACK.ADD;
1134: App_Exception.Raise_Exception;
1135: END IF;
1136: END IF;
1139: IF upper(column_name) = 'OVRD_NTFCTN_IMMINENT_DAYS' OR
1140: column_name is NULL THEN
1141: IF TO_NUMBER(new_references.ovrd_ntfctn_imminent_days) < 0 OR
1142: TO_NUMBER(new_references.ovrd_ntfctn_imminent_days) > 999 THEN
1143: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1144: IGS_GE_MSG_STACK.ADD;
1145: App_Exception.Raise_Exception;
1146: END IF;
1147: END IF;
1151: IF upper(column_name) = 'OVRD_NTFCTN_REMINDER_DAYS' OR
1152: column_name is NULL THEN
1153: IF TO_NUMBER(new_references.ovrd_ntfctn_reminder_days) < 0 OR
1154: TO_NUMBER(new_references.ovrd_ntfctn_reminder_days) > 999 THEN
1155: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1156: IGS_GE_MSG_STACK.ADD;
1157: App_Exception.Raise_Exception;
1158: END IF;
1159: END IF;
1161: IF upper(column_name) = 'OVRD_NTFCTN_RE_REMINDER_DAYS' OR
1162: column_name is NULL THEN
1163: IF TO_NUMBER(new_references.ovrd_ntfctn_re_reminder_days) < 0 OR
1164: TO_NUMBER(new_references.ovrd_ntfctn_re_reminder_days) > 999 THEN
1165: Fnd_Message.Set_Name('IGS','IGS_INVALID_VALUE');
1166: IGS_GE_MSG_STACK.ADD;
1167: App_Exception.Raise_Exception;
1168: END IF;
1169: END IF;