[Home] [Help]
76: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
77: Close cur_old_ref_values;
78: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
79: IGS_GE_MSG_STACK.ADD;
80: App_Exception.Raise_Exception;
81: Return;
82: END IF;
83: Close cur_old_ref_values;
84:
157:
158: IF new_references.END_DATE IS NOT NULL AND new_references.END_DATE < new_references.START_DATE THEN
159: FND_MESSAGE.SET_NAME('IGS','IGS_GE_INVALID_DATE');
160: IGS_GE_MSG_STACK.ADD;
161: APP_EXCEPTION.RAISE_EXCEPTION;
162:
163: ELSIF l_bth_dt IS NOT NULL AND l_bth_dt > new_references.START_DATE THEN
164: FND_MESSAGE.SET_NAME('IGS','IGS_PE_SERVICE_STDT_LS_BRDT');
165: IGS_GE_MSG_STACK.ADD;
162:
163: ELSIF l_bth_dt IS NOT NULL AND l_bth_dt > new_references.START_DATE THEN
164: FND_MESSAGE.SET_NAME('IGS','IGS_PE_SERVICE_STDT_LS_BRDT');
165: IGS_GE_MSG_STACK.ADD;
166: APP_EXCEPTION.RAISE_EXCEPTION;
167: END IF;
168:
169: END IF;
170:
240: new_references.start_date
241: )THEN
242: Fnd_Message.Set_Name ('IGS', 'IGS_PE_MILTARY_DUP_EXISTS');
243: IGS_GE_MSG_STACK.ADD;
244: App_Exception.Raise_Exception;
245: END IF;
246: End Check_Uniqueness;
247:
248: PROCEDURE Check_Parent_Existance AS
271: 'PE_MIL_SEV_TYPE',new_references.military_type_cd
272: ) THEN
273: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
274: IGS_GE_MSG_STACK.ADD;
275: App_Exception.Raise_Exception;
276: END IF;
277:
278: IF (((old_references.person_id = new_references.person_id)) OR
279: ((new_references.person_id IS NULL))) THEN
282: new_references.person_id
283: ) THEN
284: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
285: IGS_GE_MSG_STACK.ADD;
286: App_Exception.Raise_Exception;
287: END IF;
288:
289: IF (((old_references.separation_type_cd = new_references.separation_type_cd)) OR
290: ((new_references.separation_type_cd IS NULL))) THEN
294:
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:
301: IF (((old_references.assistance_status_cd = new_references.assistance_status_cd)) OR
302: ((new_references.assistance_status_cd IS NULL))) THEN
305: 'PE_MIL_ASS_STATUS',new_references.assistance_status_cd
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:
312: IF (((old_references.assistance_type_cd = new_references.assistance_type_cd)) OR
313: ((new_references.assistance_type_cd IS NULL))) THEN
317:
318: ) THEN
319: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
320: IGS_GE_MSG_STACK.ADD;
321: App_Exception.Raise_Exception;
322: END IF;
323:
324: END Check_Parent_Existance;
325:
396: IF (cur_rowid%FOUND) THEN
397: Close cur_rowid;
398: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PMS_PP_FK');
399: IGS_GE_MSG_STACK.ADD;
400: App_Exception.Raise_Exception;
401: Return;
402: END IF;
403: Close cur_rowid;
404:
508: IF Get_Pk_For_Validation(
509: new_references.milit_service_id) THEN
510: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
511: IGS_GE_MSG_STACK.ADD;
512: App_Exception.Raise_Exception;
513: END IF;
514: Check_Constraints;
515: Check_Uniqueness;
516: Check_Parent_Existance;
529: IF Get_PK_For_Validation (
530: new_references.milit_service_id) THEN
531: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
532: IGS_GE_MSG_STACK.ADD;
533: App_Exception.Raise_Exception;
534: END IF;
535: Check_Constraints;
536: Check_Uniqueness;
537: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
650: end if;
651: else
652: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
653: IGS_GE_MSG_STACK.ADD;
654: app_exception.raise_exception;
655: end if;
656: SELECT IGS_PE_MIL_SERVICE_S.NEXTVAL INTO X_MILIT_SERVICE_ID
657: FROM DUAL;
658: Before_DML(
789: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
790: fnd_message.set_token ('ERR_CD', SQLCODE);
791: igs_ge_msg_stack.add;
792: igs_sc_gen_001.unset_ctx('R');
793: app_exception.raise_exception;
794: ELSE
795: igs_sc_gen_001.unset_ctx('R');
796: RAISE;
797: END IF;
884: if (c1%notfound) then
885: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
886: IGS_GE_MSG_STACK.ADD;
887: close c1;
888: app_exception.raise_exception;
889: return;
890: end if;
891: close c1;
892: if ( ( tlinfo.PERSON_ID = X_PERSON_ID)
973: null;
974: else
975: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
976: IGS_GE_MSG_STACK.ADD;
977: app_exception.raise_exception;
978: end if;
979: return;
980: end LOCK_ROW;
981:
1046: end if;
1047: else
1048: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1049: IGS_GE_MSG_STACK.ADD;
1050: app_exception.raise_exception;
1051: end if;
1052: Before_DML(
1053: p_action=>'UPDATE',
1054: x_rowid=>X_ROWID,
1130: if (sql%notfound) then
1131: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1132: igs_ge_msg_stack.add;
1133: igs_sc_gen_001.unset_ctx('R');
1134: app_exception.raise_exception;
1135: end if;
1136: IF (x_mode = 'S') THEN
1137: igs_sc_gen_001.unset_ctx('R');
1138: END IF;
1148: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1149: fnd_message.set_token ('ERR_CD', SQLCODE);
1150: igs_ge_msg_stack.add;
1151: igs_sc_gen_001.unset_ctx('R');
1152: app_exception.raise_exception;
1153: ELSE
1154: igs_sc_gen_001.unset_ctx('R');
1155: RAISE;
1156: END IF;
1316: if (sql%notfound) then
1317: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1318: igs_ge_msg_stack.add;
1319: igs_sc_gen_001.unset_ctx('R');
1320: app_exception.raise_exception;
1321: end if;
1322: IF (x_mode = 'S') THEN
1323: igs_sc_gen_001.unset_ctx('R');
1324: END IF;