[Home] [Help]
45: -- Populate Old Values.
46: Open cur_old_ref_values;
47: Fetch cur_old_ref_values INTO old_references;
48: IF (cur_old_ref_values%NOTFOUND) AND (p_action not in ('INSERT','VALIDATE_INSERT')) THEN
49: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
50: IGS_GE_MSG_STACK.ADD;
51: Close cur_old_ref_values;
52: App_Exception.Raise_Exception;
53:
104: IF IGS_PR_VAL_PRA.crsp_val_crv_active (
105: new_references.course_cd,
106: new_references.version_number,
107: v_message_name) = FALSE THEN
108: Fnd_Message.Set_Name('IGS',v_message_name);
109: IGS_GE_MSG_STACK.ADD;
110: App_Exception.Raise_Exception;
111: END IF;
112: END IF;
115: new_references.apply_start_dt_alias <> old_references.apply_start_dt_alias) THEN
116: IF IGS_PR_VAL_SCPC.prgp_val_da_closed (
117: new_references.apply_start_dt_alias,
118: v_message_name) = FALSE THEN
119: Fnd_Message.Set_Name('IGS',v_message_name);
120: IGS_GE_MSG_STACK.ADD;
121: App_Exception.Raise_Exception;
122: END IF;
123: END IF;
126: new_references.apply_end_dt_alias <> old_references.apply_end_dt_alias) THEN
127: IF IGS_PR_VAL_SCPC.prgp_val_da_closed (
128: new_references.apply_end_dt_alias,
129: v_message_name) = FALSE THEN
130: Fnd_Message.Set_Name('IGS',v_message_name);
131: IGS_GE_MSG_STACK.ADD;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
137: new_references.end_benefit_dt_alias <> old_references.end_benefit_dt_alias) THEN
138: IF IGS_PR_VAL_SCPC.prgp_val_da_closed (
139: new_references.end_benefit_dt_alias,
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;
148: new_references.end_penalty_dt_alias <> old_references.end_penalty_dt_alias) THEN
149: IF IGS_PR_VAL_SCPC.prgp_val_da_closed (
150: new_references.end_penalty_dt_alias,
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;
159: new_references.show_cause_ind <> old_references.show_cause_ind) THEN
160: IF igs_pr_val_sopc.prgp_val_cause_ind (
161: new_references.show_cause_ind,
162: v_message_name) = FALSE THEN
163: Fnd_Message.Set_Name('IGS',v_message_name);
164: IGS_GE_MSG_STACK.ADD;
165: App_Exception.Raise_Exception;
166: END IF;
167: END IF;
170: new_references.appeal_ind <> old_references.appeal_ind) THEN
171: IF igs_pr_val_sopc.prgp_val_cause_ind (
172: new_references.appeal_ind,
173: v_message_name) = FALSE THEN
174: Fnd_Message.Set_Name('IGS',v_message_name);
175: IGS_GE_MSG_STACK.ADD;
176: App_Exception.Raise_Exception;
177: END IF;
178: END IF;
182: IF IGS_PR_VAL_SCPC.prgp_val_cause_da (
183: new_references.show_cause_ind,
184: new_references.show_cause_cutoff_dt_alias,
185: v_message_name) = FALSE THEN
186: Fnd_Message.Set_Name('IGS',v_message_name);
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
190: END IF;
194: IF IGS_PR_VAL_SCPC.prgp_val_appeal_da (
195: new_references.appeal_ind,
196: new_references.appeal_cutoff_dt_alias,
197: v_message_name) = FALSE THEN
198: Fnd_Message.Set_Name('IGS',v_message_name);
199: IGS_GE_MSG_STACK.ADD;
200: App_Exception.Raise_Exception;
201: END IF;
202: END IF;
207: new_references.course_cd,
208: new_references.version_number,
209: new_references.show_cause_ind,
210: v_message_name) = FALSE THEN
211: Fnd_Message.Set_Name('IGS',v_message_name);
212: IGS_GE_MSG_STACK.ADD;
213: App_Exception.Raise_Exception;
214: END IF;
215: END IF;
220: new_references.course_cd,
221: new_references.version_number,
222: new_references.appeal_ind,
223: v_message_name) = FALSE THEN
224: Fnd_Message.Set_Name('IGS',v_message_name);
225: IGS_GE_MSG_STACK.ADD;
226: App_Exception.Raise_Exception;
227: END IF;
228: END IF;
232: NVL(old_references.show_cause_cutoff_dt_alias, 'NULL')) THEN
233: IF IGS_PR_VAL_SCPC.prgp_val_da_closed (
234: new_references.show_cause_cutoff_dt_alias,
235: v_message_name) = FALSE THEN
236: Fnd_Message.Set_Name('IGS',v_message_name);
237: IGS_GE_MSG_STACK.ADD;
238: App_Exception.Raise_Exception;
239: END IF;
240: END IF;
244: NVL(old_references.appeal_cutoff_dt_alias, 'NULL')) THEN
245: IF IGS_PR_VAL_SCPC.prgp_val_da_closed (
246: new_references.appeal_cutoff_dt_alias,
247: v_message_name) = FALSE THEN
248: Fnd_Message.Set_Name('IGS',v_message_name);
249: IGS_GE_MSG_STACK.ADD;
250: App_Exception.Raise_Exception;
251: END IF;
252: END IF;
264: ELSE
265: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
266: new_references.appeal_cutoff_dt_alias
267: ) THEN
268: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
269: IGS_GE_MSG_STACK.ADD;
270: App_Exception.Raise_Exception;
271: END IF;
272: END IF;
277: ELSE
278: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
279: new_references.end_benefit_dt_alias
280: ) THEN
281: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
282: IGS_GE_MSG_STACK.ADD;
283: App_Exception.Raise_Exception;
284: END IF;
285: END IF;
290: ELSE
291: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
292: new_references.show_cause_cutoff_dt_alias
293: ) THEN
294: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
295: IGS_GE_MSG_STACK.ADD;
296: App_Exception.Raise_Exception;
297: END IF;
298: END IF;
303: ELSE
304: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
305: new_references.apply_end_dt_alias
306: ) THEN
307: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
308: IGS_GE_MSG_STACK.ADD;
309: App_Exception.Raise_Exception;
310: END IF;
311: END IF;
316: ELSE
317: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
318: new_references.end_penalty_dt_alias
319: ) THEN
320: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
321: IGS_GE_MSG_STACK.ADD;
322: App_Exception.Raise_Exception;
323: END IF;
324: END IF;
329: ELSE
330: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
331: new_references.apply_start_dt_alias
332: ) THEN
333: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
334: IGS_GE_MSG_STACK.ADD;
335: App_Exception.Raise_Exception;
336: END IF;
337: END IF;
345: IF NOT IGS_PS_VER_PKG.Get_PK_For_Validation (
346: new_references.course_cd,
347: new_references.version_number
348: ) THEN
349: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
350: IGS_GE_MSG_STACK.ADD;
351: App_Exception.Raise_Exception;
352: END IF;
353: END IF;
412:
413: Open cur_rowid;
414: Fetch cur_rowid INTO lv_rowid;
415: IF (cur_rowid%FOUND) THEN
416: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SCPC_DA_APPEAL_FK');
417: IGS_GE_MSG_STACK.ADD;
418: Close cur_rowid;
419: App_Exception.Raise_Exception;
420:
441:
442: Open cur_rowid;
443: Fetch cur_rowid INTO lv_rowid;
444: IF (cur_rowid%FOUND) THEN
445: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SCPS_CRV_FK');
446: IGS_GE_MSG_STACK.ADD;
447: Close cur_rowid;
448: App_Exception.Raise_Exception;
449:
513: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
514: IF Get_PK_For_Validation (
515: new_references.course_cd,
516: new_references.version_number) THEN
517: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
518: IGS_GE_MSG_STACK.ADD;
519: App_Exception.Raise_Exception;
520: END IF;
521: Check_Constraints;
532: -- Call all the procedures related to Before Insert.
533: IF Get_PK_For_Validation (
534: new_references.course_cd,
535: new_references.version_number) THEN
536: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
537: IGS_GE_MSG_STACK.ADD;
538: App_Exception.Raise_Exception;
539: END IF;
540: Check_Constraints;
589: if X_LAST_UPDATE_LOGIN is NULL then
590: X_LAST_UPDATE_LOGIN := -1;
591: end if;
592: else
593: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
594: IGS_GE_MSG_STACK.ADD;
595: app_exception.raise_exception;
596: end if;
597:
724: begin
725: open c1;
726: fetch c1 into tlinfo;
727: if (c1%notfound) then
728: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
729: IGS_GE_MSG_STACK.ADD;
730: close c1;
731: app_exception.raise_exception;
732:
757: AND (X_OUTCOME_CHECK_TYPE is null)))
758: ) then
759: null;
760: else
761: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
762: IGS_GE_MSG_STACK.ADD;
763: app_exception.raise_exception;
764: end if;
765: return;
803: if X_LAST_UPDATE_LOGIN is NULL then
804: X_LAST_UPDATE_LOGIN := -1;
805: end if;
806: else
807: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
808: IGS_GE_MSG_STACK.ADD;
809: app_exception.raise_exception;
810: end if;
811:
1018: END IF ;
1019:
1020: IF upper(Column_name) = 'APPLY_BEFORE_APPEAL_IND' OR COLUMN_NAME IS NULL THEN
1021: IF new_references.APPLY_BEFORE_APPEAL_IND not in ('Y','N') then
1022: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1023: IGS_GE_MSG_STACK.ADD;
1024: App_Exception.Raise_Exception ;
1025: END IF;
1026:
1027: END IF ;
1028:
1029: IF upper(Column_name) = 'COUNT_SUS_IN_TIME_IND' OR COLUMN_NAME IS NULL THEN
1030: IF new_references.COUNT_SUS_IN_TIME_IND<> upper(new_references.COUNT_SUS_IN_TIME_IND) then
1031: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1032: IGS_GE_MSG_STACK.ADD;
1033: App_Exception.Raise_Exception ;
1034: END IF;
1035:
1033: App_Exception.Raise_Exception ;
1034: END IF;
1035:
1036: IF new_references.COUNT_SUS_IN_TIME_IND not in ('Y','N') then
1037: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1038: IGS_GE_MSG_STACK.ADD;
1039: App_Exception.Raise_Exception ;
1040: END IF;
1041:
1042: END IF ;
1043:
1044: IF upper(Column_name) = 'COUNT_EXC_IN_TIME_IND' OR COLUMN_NAME IS NULL THEN
1045: IF new_references.COUNT_EXC_IN_TIME_IND<> upper(new_references.COUNT_EXC_IN_TIME_IND) then
1046: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1047: IGS_GE_MSG_STACK.ADD;
1048: App_Exception.Raise_Exception ;
1049: END IF;
1050:
1048: App_Exception.Raise_Exception ;
1049: END IF;
1050:
1051: IF new_references.COUNT_EXC_IN_TIME_IND not in ('Y','N') then
1052: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1053: IGS_GE_MSG_STACK.ADD;
1054: App_Exception.Raise_Exception ;
1055: END IF;
1056:
1057: END IF ;
1058:
1059: IF upper(Column_name) = 'CALCULATE_WAM_IND ' OR COLUMN_NAME IS NULL THEN
1060: IF new_references.CALCULATE_WAM_IND <> upper(new_references.CALCULATE_WAM_IND) then
1061: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1062: IGS_GE_MSG_STACK.ADD;
1063: App_Exception.Raise_Exception ;
1064: END IF;
1065:
1063: App_Exception.Raise_Exception ;
1064: END IF;
1065:
1066: IF new_references.CALCULATE_WAM_IND not in ('Y','N') then
1067: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1068: IGS_GE_MSG_STACK.ADD;
1069: App_Exception.Raise_Exception ;
1070: END IF;
1071:
1072: END IF ;
1073:
1074: IF upper(Column_name) = 'CALCULATE_GPA_IND' OR COLUMN_NAME IS NULL THEN
1075: IF new_references.CALCULATE_GPA_IND <> upper(new_references.CALCULATE_GPA_IND) then
1076: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1077: IGS_GE_MSG_STACK.ADD;
1078: App_Exception.Raise_Exception ;
1079: END IF;
1080:
1078: App_Exception.Raise_Exception ;
1079: END IF;
1080:
1081: IF new_references.CALCULATE_GPA_IND not in ('Y','N') then
1082: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1083: IGS_GE_MSG_STACK.ADD;
1084: App_Exception.Raise_Exception ;
1085: END IF;
1086:
1087: END IF ;
1088:
1089: IF upper(Column_name) = 'APPEAL_CUTOFF_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1090: IF new_references.APPEAL_CUTOFF_DT_ALIAS<> upper(new_references.APPEAL_CUTOFF_DT_ALIAS) then
1091: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1092: IGS_GE_MSG_STACK.ADD;
1093: App_Exception.Raise_Exception ;
1094: END IF;
1095:
1096: END IF ;
1097:
1098: IF upper(Column_name) = 'APPEAL_IND' OR COLUMN_NAME IS NULL THEN
1099: IF new_references.APPEAL_IND<> upper(new_references.APPEAL_IND) then
1100: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1101: IGS_GE_MSG_STACK.ADD;
1102: App_Exception.Raise_Exception ;
1103: END IF;
1104:
1102: App_Exception.Raise_Exception ;
1103: END IF;
1104:
1105: IF new_references.APPEAL_IND not in ('Y','N') then
1106: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1107: IGS_GE_MSG_STACK.ADD;
1108: App_Exception.Raise_Exception ;
1109: END IF;
1110:
1111: END IF ;
1112:
1113: IF upper(Column_name) = 'APPLY_BEFORE_APPEAL_IND' OR COLUMN_NAME IS NULL THEN
1114: IF new_references.APPLY_BEFORE_APPEAL_IND<> upper(new_references.APPLY_BEFORE_APPEAL_IND) then
1115: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1116: IGS_GE_MSG_STACK.ADD;
1117: App_Exception.Raise_Exception ;
1118: END IF;
1119:
1120: END IF ;
1121:
1122: IF upper(Column_name) = 'APPLY_BEFORE_SHOW_IND' OR COLUMN_NAME IS NULL THEN
1123: IF new_references.APPLY_BEFORE_SHOW_IND<> upper(new_references.APPLY_BEFORE_SHOW_IND) then
1124: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1125: IGS_GE_MSG_STACK.ADD;
1126: App_Exception.Raise_Exception ;
1127: END IF;
1128:
1126: App_Exception.Raise_Exception ;
1127: END IF;
1128:
1129: IF new_references.APPLY_BEFORE_SHOW_IND not in ('Y','N') then
1130: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1131: IGS_GE_MSG_STACK.ADD;
1132: App_Exception.Raise_Exception ;
1133: END IF;
1134:
1135: END IF ;
1136:
1137: IF upper(Column_name) = 'APPLY_END_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1138: IF new_references.APPLY_END_DT_ALIAS<> upper(new_references.APPLY_END_DT_ALIAS) then
1139: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1140: IGS_GE_MSG_STACK.ADD;
1141: App_Exception.Raise_Exception ;
1142: END IF;
1143:
1144: END IF ;
1145:
1146: IF upper(Column_name) = 'APPLY_START_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1147: IF new_references.APPLY_START_DT_ALIAS<> upper(new_references.APPLY_START_DT_ALIAS) then
1148: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1149: IGS_GE_MSG_STACK.ADD;
1150: App_Exception.Raise_Exception ;
1151: END IF;
1152:
1153: END IF ;
1154:
1155: IF upper(Column_name) = 'COURSE_CD' OR COLUMN_NAME IS NULL THEN
1156: IF new_references.COURSE_CD<> upper(new_references.COURSE_CD) then
1157: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1158: IGS_GE_MSG_STACK.ADD;
1159: App_Exception.Raise_Exception ;
1160: END IF;
1161:
1162: END IF ;
1163:
1164: IF upper(Column_name) = 'END_BENEFIT_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1165: IF new_references.END_BENEFIT_DT_ALIAS<> upper(new_references.END_BENEFIT_DT_ALIAS) then
1166: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1167: IGS_GE_MSG_STACK.ADD;
1168: App_Exception.Raise_Exception ;
1169: END IF;
1170:
1171: END IF ;
1172:
1173: IF upper(Column_name) = 'END_PENALTY_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1174: IF new_references.END_PENALTY_DT_ALIAS<> upper(new_references.END_PENALTY_DT_ALIAS) then
1175: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1176: IGS_GE_MSG_STACK.ADD;
1177: App_Exception.Raise_Exception ;
1178: END IF;
1179:
1180: END IF ;
1181:
1182: IF upper(Column_name) = 'SHOW_CAUSE_CUTOFF_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1183: IF new_references.SHOW_CAUSE_CUTOFF_DT_ALIAS<> upper(new_references.SHOW_CAUSE_CUTOFF_DT_ALIAS) then
1184: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1185: IGS_GE_MSG_STACK.ADD;
1186: App_Exception.Raise_Exception ;
1187: END IF;
1188:
1189: END IF ;
1190:
1191: IF upper(Column_name) = 'SHOW_CAUSE_IND' OR COLUMN_NAME IS NULL THEN
1192: IF new_references.SHOW_CAUSE_IND<> upper(new_references.SHOW_CAUSE_IND) then
1193: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1194: IGS_GE_MSG_STACK.ADD;
1195: App_Exception.Raise_Exception ;
1196: END IF;
1197:
1195: App_Exception.Raise_Exception ;
1196: END IF;
1197:
1198: IF new_references.SHOW_CAUSE_IND not in ('Y','N') then
1199: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1200: IGS_GE_MSG_STACK.ADD;
1201: App_Exception.Raise_Exception ;
1202: END IF;
1203:
1204: END IF ;
1205:
1206: IF upper(Column_name) = 'OUTCOME_CHECK_TYPE' OR COLUMN_NAME IS NULL THEN
1207: IF new_references.OUTCOME_CHECK_TYPE<> upper(new_references.OUTCOME_CHECK_TYPE) then
1208: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1209: IGS_GE_MSG_STACK.ADD;
1210: App_Exception.Raise_Exception ;
1211: END IF;
1212: