[Home] [Help]
57: Fetch cur_old_ref_values INTO old_references;
58: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
59: Close cur_old_ref_values;
60: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
61: IGS_GE_MSG_STACK.ADD;
62: App_Exception.Raise_Exception;
63: Return;
64: END IF;
65: Close cur_old_ref_values;
210: FETCH pros_eval_cur INTO l_pros_eval_exist;
211: IF pros_eval_cur%FOUND THEN
212: CLOSE pros_eval_cur;
213: FND_MESSAGE.SET_NAME('IGS','IGS_AD_PROSPCT_XST_NO_EVAL');
214: IGS_GE_MSG_STACK.ADD;
215: APP_EXCEPTION.RAISE_EXCEPTION;
216: END IF;
217: CLOSE pros_eval_cur;
218:
222: FETCH pros_eval_cur INTO l_pros_eval_exist;
223: IF pros_eval_cur%FOUND THEN
224: CLOSE pros_eval_cur;
225: FND_MESSAGE.SET_NAME('IGS','IGS_AD_EVAL_XST_NO_PROSPCT');
226: IGS_GE_MSG_STACK.ADD;
227: APP_EXCEPTION.RAISE_EXCEPTION;
228: END IF;
229: CLOSE pros_eval_cur;
230:
343: -- No need to show the System Type when code is passed as null.
344: IF new_references.person_type_code IS NULL THEN
345: FND_MESSAGE.SET_NAME('IGS','IGS_PE_PERSON_TYPE_N_MAPPED');
346: FND_MESSAGE.SET_TOKEN('SYSTEM_TYPE',NULL);
347: IGS_GE_MSG_STACK.ADD;
348: APP_EXCEPTION.RAISE_EXCEPTION;
349: END IF;
350:
351: OPEN system_type_cur;
367: meaning_rec.meaning := ''''||meaning_rec.meaning||'''';
368:
369: FND_MESSAGE.SET_NAME('IGS','IGS_PE_PERSON_TYPE_N_MAPPED');
370: FND_MESSAGE.SET_TOKEN('SYSTEM_TYPE',meaning_rec.meaning);
371: IGS_GE_MSG_STACK.ADD;
372: APP_EXCEPTION.RAISE_EXCEPTION;
373: ELSE
374: CLOSE person_type_cur;
375: new_references.person_type_code := person_type_rec.person_type_code;
432: new_references.nominated_course_cd,
433: new_references.sequence_number
434: ) THEN
435: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
436: IGS_GE_MSG_STACK.ADD;
437: App_Exception.Raise_Exception;
438: END IF;
439:
440: IF (((old_references.person_type_code = new_references.person_type_code)) OR
443: ELSIF NOT Igs_Pe_Person_Types_Pkg.Get_PK_For_Validation (
444: new_references.person_type_code
445: ) THEN
446: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
447: IGS_GE_MSG_STACK.ADD;
448: App_Exception.Raise_Exception;
449: END IF;
450:
451: IF (((old_references.course_cd = new_references.course_cd) AND
457: new_references.course_cd,
458: new_references.cc_version_number
459: ) THEN
460: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
461: IGS_GE_MSG_STACK.ADD;
462: App_Exception.Raise_Exception;
463: END IF;
464:
465: IF (((old_references.person_id = new_references.person_id)) OR
468: ELSIF NOT Igs_Pe_Person_Pkg.Get_PK_For_Validation (
469: new_references.person_id
470: ) THEN
471: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
472: IGS_GE_MSG_STACK.ADD;
473: App_Exception.Raise_Exception;
474: END IF;
475:
476: END Check_Parent_Existance;
545: Fetch cur_rowid INTO lv_rowid;
546: IF (cur_rowid%FOUND) THEN
547: Close cur_rowid;
548: Fnd_Message.Set_Name ('IGS', 'IGS_PE_TYP_APPLINST');
549: IGS_GE_MSG_STACK.ADD;
550: App_Exception.Raise_Exception;
551: Return;
552: END IF;
553: Close cur_rowid;
582: Fetch cur_rowid INTO lv_rowid;
583: IF (cur_rowid%FOUND) THEN
584: Close cur_rowid;
585: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PTI_PPT_FK');
586: IGS_GE_MSG_STACK.ADD;
587: App_Exception.Raise_Exception;
588: Return;
589: END IF;
590: Close cur_rowid;
621: Fetch cur_rowid INTO lv_rowid;
622: IF (cur_rowid%FOUND) THEN
623: Close cur_rowid;
624: Fnd_Message.Set_Name ('IGS', 'IGS_PE_TYP_VER');
625: IGS_GE_MSG_STACK.ADD;
626: App_Exception.Raise_Exception;
627: Return;
628: END IF;
629: Close cur_rowid;
658: Fetch cur_rowid INTO lv_rowid;
659: IF (cur_rowid%FOUND) THEN
660: Close cur_rowid;
661: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PTI_PE_FK');
662: IGS_GE_MSG_STACK.ADD;
663: App_Exception.Raise_Exception;
664: Return;
665: END IF;
666: Close cur_rowid;
831: DBMS_SQL.CLOSE_CURSOR(l_Ext_Cursor);
832: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PE_CHECK_MAND_DATA');
833: FND_MESSAGE.SET_TOKEN ('Person_Type_Code', INITCAP(c_Mand_Emt.person_type_code));
834: FND_MESSAGE.SET_TOKEN ('DataElement', lv_DataEmt);
835: IGS_GE_MSG_STACK.ADD;
836: App_Exception.Raise_Exception;
837:
838: END IF;
839:
916: Null;
917: IF Get_Pk_For_Validation(
918: new_references.type_instance_id) THEN
919: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
920: IGS_GE_MSG_STACK.ADD;
921: App_Exception.Raise_Exception;
922: END IF;
923: Check_Constraints;
924: Check_Parent_Existance;
943:
944: IF old_references.funnel_status = '300-INQUIRED' THEN
945: IF new_references.funnel_status <> '300-INQUIRED' THEN
946: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AD_INVALID_FUNSTAT');
947: IGS_GE_MSG_STACK.ADD;
948: APP_EXCEPTION.RAISE_EXCEPTION;
949: END IF;
950: ELSIF old_references.funnel_status = '200-CONTACTED' THEN
951: IF new_references.funnel_status = '100-IDENTIFIED' THEN
949: END IF;
950: ELSIF old_references.funnel_status = '200-CONTACTED' THEN
951: IF new_references.funnel_status = '100-IDENTIFIED' THEN
952: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AD_INVALID_FUNSTAT');
953: IGS_GE_MSG_STACK.ADD;
954: APP_EXCEPTION.RAISE_EXCEPTION;
955: END IF;
956: END IF;
957:
970: -- Call all the procedures related to Before Insert.
971: IF Get_PK_For_Validation (
972: new_references.type_instance_id) THEN
973: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
974: IGS_GE_MSG_STACK.ADD;
975: App_Exception.Raise_Exception;
976: END IF;
977: Check_Constraints;
978: Check_Mand_Person_Type (
1179: X_LAST_UPDATE_LOGIN := -1;
1180: end if;
1181: else
1182: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1183: IGS_GE_MSG_STACK.ADD;
1184: app_exception.raise_exception;
1185: end if;
1186:
1187: select IGS_PE_TYPE_INSTANCES_S.NEXTVAL INTO x_type_instance_id FROM DUAL;
1279: WHEN OTHERS THEN
1280: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1281: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
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
1287: igs_sc_gen_001.unset_ctx('R');
1346: open c1;
1347: fetch c1 into tlinfo;
1348: if (c1%notfound) then
1349: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1350: IGS_GE_MSG_STACK.ADD;
1351: close c1;
1352: app_exception.raise_exception;
1353: return;
1354: end if;
1399: OR ((tlinfo.EMPLMNT_CATEGORY_CODE is null)
1400: AND (X_EMPLMNT_CATEGORY_CODE is null)))
1401: ) then
1402: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1403: IGS_GE_MSG_STACK.ADD;
1404: app_exception.raise_exception;
1405: else
1406: null;
1407: end if;
1457: X_LAST_UPDATE_LOGIN := -1;
1458: end if;
1459: else
1460: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1461: IGS_GE_MSG_STACK.ADD;
1462: app_exception.raise_exception;
1463: end if;
1464: Before_DML(
1465: p_action=>'UPDATE',
1510: EMPLMNT_CATEGORY_CODE = X_EMPLMNT_CATEGORY_CODE
1511: where ROWID = X_ROWID;
1512: if (sql%notfound) then
1513: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1514: igs_ge_msg_stack.add;
1515: igs_sc_gen_001.unset_ctx('R');
1516: app_exception.raise_exception;
1517: end if;
1518: IF (x_mode = 'S') THEN
1528: WHEN OTHERS THEN
1529: IF (SQLCODE = (-28115)) THEN
1530: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1531: fnd_message.set_token ('ERR_CD', SQLCODE);
1532: igs_ge_msg_stack.add;
1533: igs_sc_gen_001.unset_ctx('R');
1534: app_exception.raise_exception;
1535: ELSE
1536: igs_sc_gen_001.unset_ctx('R');
1652: delete from IGS_PE_TYP_INSTANCES_ALL
1653: where ROWID = X_ROWID;
1654: if (sql%notfound) then
1655: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1656: igs_ge_msg_stack.add;
1657: igs_sc_gen_001.unset_ctx('R');
1658: app_exception.raise_exception;
1659: end if;
1660: IF (x_mode = 'S') THEN