[Home] [Help]
70: -- Populate Old Values.
71: Open cur_old_ref_values;
72: Fetch cur_old_ref_values INTO old_references;
73: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
74: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
75: IGS_GE_MSG_STACK.ADD;
76: Close cur_old_ref_values;
77: APP_EXCEPTION.RAISE_EXCEPTION;
78:
151: ELSIF NOT IGS_EN_STDNT_PS_ATT_Pkg.Get_PK_For_Validation (
152: new_references.person_id,
153: new_references.course_cd
154: )THEN
155: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
156: IGS_GE_MSG_STACK.ADD;
157: APP_EXCEPTION.RAISE_EXCEPTION;
158: END IF;
159:
168: new_references.person_id,
169: new_references.course_cd,
170: new_references.uoo_id
171: )THEN
172: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
173: IGS_GE_MSG_STACK.ADD;
174: APP_EXCEPTION.RAISE_EXCEPTION;
175: END IF;
176:
220: BEGIN
221: Open cur_rowid;
222: Fetch cur_rowid INTO lv_rowid;
223: IF (cur_rowid%FOUND) THEN
224: Fnd_Message.Set_Name ('IGS', 'IGS_AS_SUAH_SCA_FK');
225: IGS_GE_MSG_STACK.ADD;
226: Close cur_rowid;
227: APP_EXCEPTION.RAISE_EXCEPTION;
228:
251: Open cur_rowid;
252: Fetch cur_rowid INTO lv_rowid;
253: IF (cur_rowid%FOUND) THEN
254: Close cur_rowid;
255: Fnd_Message.Set_Name ('IGS', 'IGS_PS_SUT_SUA_TRANSFER_FK');
256: IGS_GE_MSG_STACK.ADD;
257: App_Exception.Raise_Exception;
258: Return;
259: END IF;
419: NEW_REFERENCES.person_id,
420: NEW_REFERENCES.course_cd ,
421: NEW_REFERENCES.hist_start_dt,
422: NEW_REFERENCES.uoo_id ) THEN
423: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
424: IGS_GE_MSG_STACK.ADD;
425: APP_EXCEPTION.RAISE_EXCEPTION;
426: END IF;
427:
441: NEW_REFERENCES.course_cd,
442: NEW_REFERENCES.hist_start_dt ,
443: NEW_REFERENCES.uoo_id
444: ) THEN
445: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
446: IGS_GE_MSG_STACK.ADD;
447: APP_EXCEPTION.RAISE_EXCEPTION;
448: END IF;
449:
529: if X_LAST_UPDATE_LOGIN is NULL then
530: X_LAST_UPDATE_LOGIN := -1;
531: end if;
532: else
533: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
534: IGS_GE_MSG_STACK.ADD;
535: APP_EXCEPTION.RAISE_EXCEPTION;
536: end if;
537: before_DML(
806: begin
807: open c1;
808: fetch c1 into tlinfo;
809: if (c1%notfound) then
810: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
811: IGS_GE_MSG_STACK.ADD;
812: APP_EXCEPTION.RAISE_EXCEPTION;
813: close c1;
814: return;
943:
944: ) then
945: null;
946: else
947: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
948: IGS_GE_MSG_STACK.ADD;
949: APP_EXCEPTION.RAISE_EXCEPTION;
950: end if;
951: return;
1017: if X_LAST_UPDATE_LOGIN is NULL then
1018: X_LAST_UPDATE_LOGIN := -1;
1019: end if;
1020: else
1021: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1022: IGS_GE_MSG_STACK.ADD;
1023: APP_EXCEPTION.RAISE_EXCEPTION;
1024: end if;
1025: before_DML(
1364:
1365: IF upper(column_name) = 'ADMINISTRATIVE_UNIT_STATUS' OR
1366: column_name is null Then
1367: IF new_references.ADMINISTRATIVE_UNIT_STATUS <> UPPER(new_references.ADMINISTRATIVE_UNIT_STATUS) Then
1368: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1369: IGS_GE_MSG_STACK.ADD;
1370: APP_EXCEPTION.RAISE_EXCEPTION;
1371: END IF;
1372: END IF;
1373:
1374: IF upper(column_name) = 'ALTERNATIVE_TITLE' OR
1375: column_name is null Then
1376: IF new_references.ALTERNATIVE_TITLE <> UPPER(new_references.ALTERNATIVE_TITLE) Then
1377: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1378: IGS_GE_MSG_STACK.ADD;
1379: APP_EXCEPTION.RAISE_EXCEPTION;
1380: END IF;
1381: END IF;
1383: IF upper(column_name) = 'CAL_TYPE' OR
1384:
1385: column_name is null Then
1386: IF new_references.CAL_TYPE <> UPPER(new_references.CAL_TYPE) Then
1387: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1388: IGS_GE_MSG_STACK.ADD;
1389: APP_EXCEPTION.RAISE_EXCEPTION;
1390: END IF;
1391: END IF;
1392:
1393: IF upper(column_name) = 'COURSE_CD' OR
1394: column_name is null Then
1395: IF new_references.COURSE_CD <> UPPER(new_references.COURSE_CD) Then
1396: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1397: IGS_GE_MSG_STACK.ADD;
1398: APP_EXCEPTION.RAISE_EXCEPTION;
1399: END IF;
1400: END IF;
1401:
1402: IF upper(column_name) = 'EXAM_LOCATION_CD' OR
1403: column_name is null Then
1404: IF new_references.EXAM_LOCATION_CD <> UPPER(new_references.EXAM_LOCATION_CD) Then
1405: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1406: IGS_GE_MSG_STACK.ADD;
1407: APP_EXCEPTION.RAISE_EXCEPTION;
1408: END IF;
1409: END IF;
1410:
1411: IF upper(column_name) = 'NO_ASSESSMENT_IND' OR
1412: column_name is null Then
1413: IF new_references.NO_ASSESSMENT_IND <> UPPER(new_references.NO_ASSESSMENT_IND) Then
1414: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1415: IGS_GE_MSG_STACK.ADD;
1416: APP_EXCEPTION.RAISE_EXCEPTION;
1417: END IF;
1418: END IF;
1419:
1420: IF upper(column_name) = 'SUP_UNIT_CD' OR
1421: column_name is null Then
1422: IF new_references.SUP_UNIT_CD <> UPPER(new_references.SUP_UNIT_CD) Then
1423: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1424: IGS_GE_MSG_STACK.ADD;
1425: APP_EXCEPTION.RAISE_EXCEPTION;
1426: END IF;
1427: END IF;
1428:
1429: IF upper(column_name) = 'UNIT_ATTEMPT_STATUS' OR
1430: column_name is null Then
1431: IF new_references.UNIT_ATTEMPT_STATUS <> UPPER(new_references.UNIT_ATTEMPT_STATUS) Then
1432: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1433: IGS_GE_MSG_STACK.ADD;
1434: APP_EXCEPTION.RAISE_EXCEPTION;
1435: END IF;
1436: END IF;
1437:
1438: IF upper(column_name) = 'LOCATION_CD' OR
1439: column_name is null Then
1440: IF new_references.LOCATION_CD <> UPPER(new_references.LOCATION_CD) Then
1441: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1442: IGS_GE_MSG_STACK.ADD;
1443: APP_EXCEPTION.RAISE_EXCEPTION;
1444: END IF;
1445: END IF;
1446:
1447: IF upper(column_name) = 'UNIT_CD' OR
1448: column_name is null Then
1449: IF new_references.UNIT_CD <> UPPER(new_references.UNIT_CD) Then
1450: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1451: IGS_GE_MSG_STACK.ADD;
1452: APP_EXCEPTION.RAISE_EXCEPTION;
1453: END IF;
1454: END IF;
1455:
1456: IF upper(column_name) = 'UNIT_CLASS' OR
1457: column_name is null Then
1458: IF new_references.UNIT_CLASS <> UPPER(new_references.UNIT_CLASS) Then
1459: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1460: IGS_GE_MSG_STACK.ADD;
1461: APP_EXCEPTION.RAISE_EXCEPTION;
1462: END IF;
1463: END IF;
1465:
1466: IF upper(column_name) = 'PERSON_ID ' OR
1467: column_name is null Then
1468: IF new_references.PERSON_ID < 0 OR new_references.PERSON_ID > 9999999999 Then
1469: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1470: IGS_GE_MSG_STACK.ADD;
1471: APP_EXCEPTION.RAISE_EXCEPTION;
1472: END IF;
1473: END IF;
1475:
1476: IF upper(column_name) = 'VERSION_NUMBER ' OR
1477: column_name is null Then
1478: IF new_references.VERSION_NUMBER < 0 OR new_references.VERSION_NUMBER > 999 Then
1479: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1480: IGS_GE_MSG_STACK.ADD;
1481: APP_EXCEPTION.RAISE_EXCEPTION;
1482: END IF;
1483: END IF;
1484:
1485: IF upper(column_name) = 'CI_SEQUENCE_NUMBER ' OR
1486: column_name is null Then
1487: IF new_references.CI_SEQUENCE_NUMBER < 1 OR new_references.CI_SEQUENCE_NUMBER > 999999 Then
1488: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1489: IGS_GE_MSG_STACK.ADD;
1490: APP_EXCEPTION.RAISE_EXCEPTION;
1491: END IF;
1492: END IF;
1494:
1495: IF upper(column_name) = 'RULE_WAIVED_PERSON_ID' OR
1496: column_name is null Then
1497: IF new_references.RULE_WAIVED_PERSON_ID < 0 OR new_references.RULE_WAIVED_PERSON_ID > 9999999999 Then
1498: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1499: IGS_GE_MSG_STACK.ADD;
1500: APP_EXCEPTION.RAISE_EXCEPTION;
1501: END IF;
1502: END IF;
1504:
1505: IF upper(column_name) = 'NO_ASSESSMENT_IND' OR
1506: column_name is null Then
1507: IF new_references.NO_ASSESSMENT_IND NOT IN ('Y','N') Then
1508: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1509: IGS_GE_MSG_STACK.ADD;
1510: APP_EXCEPTION.RAISE_EXCEPTION;
1511: END IF;
1512: END IF;
1513:
1514: IF upper(column_name) = 'SUP_VERSION_NUMBER' OR
1515: column_name is null Then
1516: IF new_references.SUP_VERSION_NUMBER < 0 OR new_references.SUP_VERSION_NUMBER > 999 Then
1517: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1518: IGS_GE_MSG_STACK.ADD;
1519: APP_EXCEPTION.RAISE_EXCEPTION;
1520: END IF;
1521: END IF;
1522:
1523: IF upper(column_name) = 'OVERRIDE_ENROLLED_CP' OR
1524: column_name is null Then
1525: IF new_references.OVERRIDE_ENROLLED_CP < 0 OR new_references.OVERRIDE_ENROLLED_CP> 999.999 Then
1526: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1527: IGS_GE_MSG_STACK.ADD;
1528: APP_EXCEPTION.RAISE_EXCEPTION;
1529: END IF;
1530: END IF;
1530: END IF;
1531: IF upper(column_name) = 'OVERRIDE_EFTSU' OR
1532: column_name is null Then
1533: IF new_references.OVERRIDE_EFTSU < 0 OR new_references.OVERRIDE_EFTSU > 9999.999 Then
1534: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1535: IGS_GE_MSG_STACK.ADD;
1536: APP_EXCEPTION.RAISE_EXCEPTION;
1537: END IF;
1538: END IF;
1539:
1540: IF upper(column_name) = 'OVERRIDE_ACHIEVABLE_CP' OR
1541: column_name is null Then
1542: IF new_references.OVERRIDE_ACHIEVABLE_CP < 0 OR new_references.OVERRIDE_ACHIEVABLE_CP > 999.999 Then
1543: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1544: IGS_GE_MSG_STACK.ADD;
1545: APP_EXCEPTION.RAISE_EXCEPTION;
1546: END IF;
1547: END IF;
1549:
1550: IF upper(column_name) = 'DCNT_REASON_CD' OR
1551: column_name is null Then
1552: IF new_references.DCNT_REASON_CD <> UPPER(new_references.DCNT_REASON_CD) Then
1553: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1554: IGS_GE_MSG_STACK.ADD;
1555: APP_EXCEPTION.RAISE_EXCEPTION;
1556: END IF;
1557: END IF;
1558:
1559: IF upper(column_name) = 'CORE_INDICATOR_CODE' OR
1560: column_name is null Then
1561: IF new_references.CORE_INDICATOR_CODE <> UPPER(new_references.CORE_INDICATOR_CODE) Then
1562: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
1563: IGS_GE_MSG_STACK.ADD;
1564: APP_EXCEPTION.RAISE_EXCEPTION;
1565: END IF;
1566: END IF;