[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:
106: new_references.effective_end_dt_alias <> old_references.effective_end_dt_alias) THEN
107: IF igs_pr_val_scpc.prgp_val_da_closed (
108: new_references.effective_end_dt_alias,
109: v_message_name) = FALSE THEN
110: Fnd_Message.Set_Name('IGS',v_message_name);
111: IGS_GE_MSG_STACK.ADD;
112: App_Exception.Raise_Exception;
113: END IF;
114: END IF;
117: new_references.apply_start_dt_alias <> old_references.apply_start_dt_alias) THEN
118: IF igs_pr_val_scpc.prgp_val_da_closed (
119: new_references.apply_start_dt_alias,
120: v_message_name) = FALSE THEN
121: Fnd_Message.Set_Name('IGS',v_message_name);
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
128: new_references.apply_end_dt_alias <> old_references.apply_end_dt_alias) THEN
129: IF igs_pr_val_scpc.prgp_val_da_closed (
130: new_references.apply_end_dt_alias,
131: v_message_name) = FALSE THEN
132: Fnd_Message.Set_Name('IGS',v_message_name);
133: IGS_GE_MSG_STACK.ADD;
134: App_Exception.Raise_Exception;
135: END IF;
136: END IF;
139: new_references.end_benefit_dt_alias <> old_references.end_benefit_dt_alias) THEN
140: IF igs_pr_val_scpc.prgp_val_da_closed (
141: new_references.end_benefit_dt_alias,
142: v_message_name) = FALSE THEN
143: Fnd_Message.Set_Name('IGS',v_message_name);
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception;
146: END IF;
147: END IF;
150: new_references.end_penalty_dt_alias <> old_references.end_penalty_dt_alias) THEN
151: IF igs_pr_val_scpc.prgp_val_da_closed (
152: new_references.end_penalty_dt_alias,
153: v_message_name) = FALSE THEN
154: Fnd_Message.Set_Name('IGS',v_message_name);
155: IGS_GE_MSG_STACK.ADD;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
162: IF igs_pr_val_scpc.prgp_val_cause_da (
163: new_references.show_cause_ind,
164: new_references.show_cause_cutoff_dt_alias,
165: v_message_name) = FALSE THEN
166: Fnd_Message.Set_Name('IGS',v_message_name);
167: IGS_GE_MSG_STACK.ADD;
168: App_Exception.Raise_Exception;
169: END IF;
170: END IF;
174: IF igs_pr_val_scpc.prgp_val_appeal_da (
175: new_references.appeal_ind,
176: new_references.appeal_cutoff_dt_alias,
177: v_message_name) = FALSE THEN
178: Fnd_Message.Set_Name('IGS',v_message_name);
179: IGS_GE_MSG_STACK.ADD;
180: App_Exception.Raise_Exception;
181: END IF;
182: END IF;
185: IF p_inserting OR p_updating THEN
186: IF IGS_PR_VAL_SPRGC.prgp_val_sprgc_cause (
187: new_references.show_cause_ind,
188: v_message_name) = FALSE THEN
189: Fnd_Message.Set_Name('IGS',v_message_name);
190: IGS_GE_MSG_STACK.ADD;
191: App_Exception.Raise_Exception;
192: END IF;
193: END IF;
196: IF p_inserting OR p_updating THEN
197: IF IGS_PR_VAL_SPRGC.prgp_val_sprgc_apl (
198: new_references.appeal_ind,
199: v_message_name) = FALSE THEN
200: Fnd_Message.Set_Name('IGS',v_message_name);
201: IGS_GE_MSG_STACK.ADD;
202: App_Exception.Raise_Exception;
203: END IF;
204: END IF;
208: NVL(old_references.show_cause_cutoff_dt_alias, 'NULL')) THEN
209: IF igs_pr_val_scpc.prgp_val_da_closed (
210: new_references.show_cause_cutoff_dt_alias,
211: v_message_name) = FALSE THEN
212: Fnd_Message.Set_Name('IGS',v_message_name);
213: IGS_GE_MSG_STACK.ADD;
214: App_Exception.Raise_Exception;
215: END IF;
216: END IF;
220: NVL(old_references.appeal_cutoff_dt_alias, 'NULL')) THEN
221: IF igs_pr_val_scpc.prgp_val_da_closed (
222: new_references.appeal_cutoff_dt_alias,
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;
240: ELSE
241: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
242: new_references.appeal_cutoff_dt_alias
243: ) THEN
244: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
245: IGS_GE_MSG_STACK.ADD;
246: App_Exception.Raise_Exception;
247: END IF;
248: END IF;
253: ELSE
254: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
255: new_references.end_benefit_dt_alias
256: ) THEN
257: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
258: IGS_GE_MSG_STACK.ADD;
259: App_Exception.Raise_Exception;
260: END IF;
261: END IF;
266: ELSE
267: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
268: new_references.show_cause_cutoff_dt_alias
269: ) THEN
270: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
271: IGS_GE_MSG_STACK.ADD;
272: App_Exception.Raise_Exception;
273: END IF;
274: END IF;
279: ELSE
280: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
281: new_references.effective_end_dt_alias
282: ) THEN
283: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
284: IGS_GE_MSG_STACK.ADD;
285: App_Exception.Raise_Exception;
286: END IF;
287: END IF;
292: ELSE
293: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
294: new_references.apply_end_dt_alias
295: ) THEN
296: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
297: IGS_GE_MSG_STACK.ADD;
298: App_Exception.Raise_Exception;
299: END IF;
300: END IF;
305: ELSE
306: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
307: new_references.end_penalty_dt_alias
308: ) THEN
309: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
310: IGS_GE_MSG_STACK.ADD;
311: App_Exception.Raise_Exception;
312: END IF;
313: END IF;
318: ELSE
319: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (
320: new_references.apply_start_dt_alias
321: ) THEN
322: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
323: IGS_GE_MSG_STACK.ADD;
324: App_Exception.Raise_Exception;
325: END IF;
326: END IF;
384:
385: Open cur_rowid;
386: Fetch cur_rowid INTO lv_rowid;
387: IF (cur_rowid%FOUND) THEN
388: Fnd_Message.Set_Name ('IGS', 'IGS_PR_SPRGC_DA_APPEAL_FK');
389: IGS_GE_MSG_STACK.ADD;
390: Close cur_rowid;
391: App_Exception.Raise_Exception;
392:
457: -- Call all the procedures related to Before Insert.
458: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
459: Check_Parent_Existance;
460: IF GET_PK_FOR_VALIDATION(new_references.s_control_num)THEN
461: Fnd_Message.Set_Name('IGS','IGS_PR_ONLY_ONE_CONFIG_ALLOWED');
462: IGS_GE_MSG_STACK.ADD;
463: App_Exception.Raise_Exception;
464: END IF;
465: CHECK_CONSTRAINTS;
473: -- Call all the procedures related to Before Delete.
474: Check_Child_Existance;
475: ELSIF (p_action = 'VALIDATE_INSERT') THEN
476: IF GET_PK_FOR_VALIDATION(new_references.s_control_num)THEN
477: Fnd_Message.Set_Name('IGS','IGS_PR_ONLY_ONE_CONFIG_ALLOWED');
478: IGS_GE_MSG_STACK.ADD;
479: App_Exception.Raise_Exception;
480: END IF;
481: CHECK_CONSTRAINTS;
528: if X_LAST_UPDATE_LOGIN is NULL then
529: X_LAST_UPDATE_LOGIN := -1;
530: end if;
531: else
532: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
533: IGS_GE_MSG_STACK.ADD;
534: app_exception.raise_exception;
535: end if;
536:
670: begin
671: open c1;
672: fetch c1 into tlinfo;
673: if (c1%notfound) then
674: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
675: IGS_GE_MSG_STACK.ADD;
676: close c1;
677: app_exception.raise_exception;
678:
708:
709: ) then
710: null;
711: else
712: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
713: IGS_GE_MSG_STACK.ADD;
714: app_exception.raise_exception;
715: end if;
716: return;
755: if X_LAST_UPDATE_LOGIN is NULL then
756: X_LAST_UPDATE_LOGIN := -1;
757: end if;
758: else
759: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
760: IGS_GE_MSG_STACK.ADD;
761: app_exception.raise_exception;
762: end if;
763:
972: END IF ;
973:
974: IF upper(Column_name) = 'CALCULATE_GPA_IND' OR COLUMN_NAME IS NULL THEN
975: IF new_references.CALCULATE_GPA_IND<> upper(new_references.CALCULATE_GPA_IND) then
976: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
977: IGS_GE_MSG_STACK.ADD;
978: App_Exception.Raise_Exception ;
979: END IF;
980:
978: App_Exception.Raise_Exception ;
979: END IF;
980:
981: IF new_references.CALCULATE_GPA_IND not in ('Y','N') then
982: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
983: IGS_GE_MSG_STACK.ADD;
984: App_Exception.Raise_Exception ;
985: END IF;
986:
987: END IF ;
988:
989: IF upper(Column_name) = 'CALCULATE_WAM_IND' OR COLUMN_NAME IS NULL THEN
990: IF new_references.CALCULATE_WAM_IND<> upper(new_references.CALCULATE_WAM_IND) then
991: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
992: IGS_GE_MSG_STACK.ADD;
993: App_Exception.Raise_Exception ;
994: END IF;
995:
993: App_Exception.Raise_Exception ;
994: END IF;
995:
996: IF new_references.CALCULATE_WAM_IND not in ('Y','N') then
997: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
998: IGS_GE_MSG_STACK.ADD;
999: App_Exception.Raise_Exception ;
1000: END IF;
1001:
1002: END IF ;
1003:
1004: IF upper(Column_name) = 'COUNT_EXC_IN_TIME_IND' OR COLUMN_NAME IS NULL THEN
1005: IF new_references.COUNT_EXC_IN_TIME_IND<> upper(new_references.COUNT_EXC_IN_TIME_IND) then
1006: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1007: IGS_GE_MSG_STACK.ADD;
1008: App_Exception.Raise_Exception ;
1009: END IF;
1010:
1008: App_Exception.Raise_Exception ;
1009: END IF;
1010:
1011: IF new_references.COUNT_EXC_IN_TIME_IND not in ('Y','N') then
1012: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1013: IGS_GE_MSG_STACK.ADD;
1014: App_Exception.Raise_Exception ;
1015: END IF;
1016:
1017: END IF ;
1018:
1019: IF upper(Column_name) = 'COUNT_SUS_IN_TIME_IND' OR COLUMN_NAME IS NULL THEN
1020: IF new_references.COUNT_SUS_IN_TIME_IND<> upper(new_references.COUNT_SUS_IN_TIME_IND) then
1021: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1022: IGS_GE_MSG_STACK.ADD;
1023: App_Exception.Raise_Exception ;
1024: END IF;
1025:
1023: App_Exception.Raise_Exception ;
1024: END IF;
1025:
1026: IF new_references.COUNT_SUS_IN_TIME_IND not in ('Y','N') then
1027: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1028: IGS_GE_MSG_STACK.ADD;
1029: App_Exception.Raise_Exception ;
1030: END IF;
1031:
1032: END IF ;
1033:
1034: IF upper(Column_name) = 'APPLY_BEFORE_APPEAL_IND' OR COLUMN_NAME IS NULL THEN
1035: IF new_references.APPLY_BEFORE_APPEAL_IND<> upper(new_references.APPLY_BEFORE_APPEAL_IND) then
1036: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1037: IGS_GE_MSG_STACK.ADD;
1038: App_Exception.Raise_Exception ;
1039: END IF;
1040:
1038: App_Exception.Raise_Exception ;
1039: END IF;
1040:
1041: IF new_references.APPLY_BEFORE_APPEAL_IND not in ('Y','N') then
1042: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1043: IGS_GE_MSG_STACK.ADD;
1044: App_Exception.Raise_Exception ;
1045: END IF;
1046:
1047: END IF ;
1048:
1049: IF upper(Column_name) = 'APPEAL_IND' OR COLUMN_NAME IS NULL THEN
1050: IF new_references.APPEAL_IND<> upper(new_references.APPEAL_IND) then
1051: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1052: IGS_GE_MSG_STACK.ADD;
1053: App_Exception.Raise_Exception ;
1054: END IF;
1055:
1053: App_Exception.Raise_Exception ;
1054: END IF;
1055:
1056: IF new_references.APPEAL_IND not in ('Y','N') then
1057: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1058: IGS_GE_MSG_STACK.ADD;
1059: App_Exception.Raise_Exception ;
1060: END IF;
1061:
1062: END IF ;
1063:
1064: IF upper(Column_name) = 'APPLY_BEFORE_SHOW_IND' OR COLUMN_NAME IS NULL THEN
1065: IF new_references.APPLY_BEFORE_SHOW_IND<> upper(new_references.APPLY_BEFORE_SHOW_IND) then
1066: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1067: IGS_GE_MSG_STACK.ADD;
1068: App_Exception.Raise_Exception ;
1069: END IF;
1070:
1068: App_Exception.Raise_Exception ;
1069: END IF;
1070:
1071: IF new_references.APPLY_BEFORE_SHOW_IND not in ('Y','N') then
1072: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1073: IGS_GE_MSG_STACK.ADD;
1074: App_Exception.Raise_Exception ;
1075: END IF;
1076:
1077: END IF ;
1078:
1079: IF upper(Column_name) = 'SHOW_CAUSE_IND' OR COLUMN_NAME IS NULL THEN
1080: IF new_references.SHOW_CAUSE_IND<> upper(new_references.SHOW_CAUSE_IND) then
1081: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1082: IGS_GE_MSG_STACK.ADD;
1083: App_Exception.Raise_Exception ;
1084: END IF;
1085:
1083: App_Exception.Raise_Exception ;
1084: END IF;
1085:
1086: IF new_references.SHOW_CAUSE_IND not in ('Y','N') then
1087: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1088: IGS_GE_MSG_STACK.ADD;
1089: App_Exception.Raise_Exception ;
1090: END IF;
1091:
1092: END IF ;
1093:
1094: IF upper(Column_name) = 'S_CONTROL_NUM' OR COLUMN_NAME IS NULL THEN
1095: IF new_references.S_CONTROL_NUM < 1 or new_references.S_CONTROL_NUM > 1 then
1096: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1097: IGS_GE_MSG_STACK.ADD;
1098: App_Exception.Raise_Exception ;
1099: END IF;
1100:
1101: END IF ;
1102:
1103: IF upper(Column_name) = 'APPEAL_CUTOFF_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1104: IF new_references.APPEAL_CUTOFF_DT_ALIAS<> upper(new_references.APPEAL_CUTOFF_DT_ALIAS) then
1105: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1106: IGS_GE_MSG_STACK.ADD;
1107: App_Exception.Raise_Exception ;
1108: END IF;
1109:
1110: END IF ;
1111:
1112: IF upper(Column_name) = 'APPLY_END_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1113: IF new_references.APPLY_END_DT_ALIAS<> upper(new_references.APPLY_END_DT_ALIAS) then
1114: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1115: IGS_GE_MSG_STACK.ADD;
1116: App_Exception.Raise_Exception ;
1117: END IF;
1118:
1119: END IF ;
1120:
1121: IF upper(Column_name) = 'APPLY_START_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1122: IF new_references.APPLY_START_DT_ALIAS<> upper(new_references.APPLY_START_DT_ALIAS) then
1123: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1124: IGS_GE_MSG_STACK.ADD;
1125: App_Exception.Raise_Exception ;
1126: END IF;
1127:
1128: END IF ;
1129:
1130: IF upper(Column_name) = 'EFFECTIVE_END_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1131: IF new_references.EFFECTIVE_END_DT_ALIAS<> upper(new_references.EFFECTIVE_END_DT_ALIAS) then
1132: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1133: IGS_GE_MSG_STACK.ADD;
1134: App_Exception.Raise_Exception ;
1135: END IF;
1136:
1137: END IF ;
1138:
1139: IF upper(Column_name) = 'END_BENEFIT_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1140: IF new_references.END_BENEFIT_DT_ALIAS<> upper(new_references.END_BENEFIT_DT_ALIAS) then
1141: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1142: IGS_GE_MSG_STACK.ADD;
1143: App_Exception.Raise_Exception ;
1144: END IF;
1145:
1146: END IF ;
1147:
1148: IF upper(Column_name) = 'END_PENALTY_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1149: IF new_references.END_PENALTY_DT_ALIAS<> upper(new_references.END_PENALTY_DT_ALIAS) then
1150: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1151: IGS_GE_MSG_STACK.ADD;
1152: App_Exception.Raise_Exception ;
1153: END IF;
1154:
1155: END IF ;
1156:
1157: IF upper(Column_name) = 'SHOW_CAUSE_CUTOFF_DT_ALIAS' OR COLUMN_NAME IS NULL THEN
1158: IF new_references.SHOW_CAUSE_CUTOFF_DT_ALIAS<> upper(new_references.SHOW_CAUSE_CUTOFF_DT_ALIAS) then
1159: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
1160: IGS_GE_MSG_STACK.ADD;
1161: App_Exception.Raise_Exception ;
1162: END IF;
1163: