68: cp_version_number igs_ps_unit_ver_all.version_number%TYPE)
69: IS
70: SELECT 'x'
71: FROM igs_ps_unit_ver_all uv,
72: igs_ps_unit_stat us
73: WHERE uv.unit_status=us.unit_status
74: AND us.s_unit_status='PLANNED'
75: AND uv.unit_cd = cp_unit_cd
76: AND uv.version_number = cp_version_number;
104: --Change History:
105: --Who When What
106: --sarakshi 26-Jul-2004 bug#3793607,added code such that statsu cannot be changed to INACTIVE when enrolled/waitlisted student unit attempt exists
107: -------------------------------------------------------------------
108: CURSOR cur_get_status (cp_unit_status igs_ps_unit_stat.unit_status%TYPE)
109: IS
110: SELECT s_unit_status
111: FROM igs_ps_unit_stat
112: WHERE unit_status = cp_unit_status;
107: -------------------------------------------------------------------
108: CURSOR cur_get_status (cp_unit_status igs_ps_unit_stat.unit_status%TYPE)
109: IS
110: SELECT s_unit_status
111: FROM igs_ps_unit_stat
112: WHERE unit_status = cp_unit_status;
113: l_s_unit_status igs_ps_unit_stat.s_unit_status%TYPE;
114:
115: CURSOR cur_check_update (cp_unit_cd igs_ps_unit_ver_all.unit_cd%TYPE,
109: IS
110: SELECT s_unit_status
111: FROM igs_ps_unit_stat
112: WHERE unit_status = cp_unit_status;
113: l_s_unit_status igs_ps_unit_stat.s_unit_status%TYPE;
114:
115: CURSOR cur_check_update (cp_unit_cd igs_ps_unit_ver_all.unit_cd%TYPE,
116: cp_version_number igs_ps_unit_ver_all.version_number%TYPE)
117: IS
116: cp_version_number igs_ps_unit_ver_all.version_number%TYPE)
117: IS
118: SELECT 'x'
119: FROM igs_ps_unit_ver_all uv,
120: igs_ps_unit_stat us
121: WHERE uv.unit_status=us.unit_status
122: AND us.s_unit_status <> 'PLANNED'
123: AND uv.unit_cd = cp_unit_cd
124: AND uv.version_number = cp_version_number;
167: OPEN c_enrollment_status (new_references.unit_cd,new_references.version_number);
168: FETCH c_enrollment_status INTO l_c_var;
169: IF c_enrollment_status%FOUND THEN
170: CLOSE c_enrollment_status;
171: fnd_message.set_name('IGS','IGS_PS_UNIT_STATUS_INACTIVE_NO');
172: igs_ge_msg_stack.add;
173: app_exception.raise_exception;
174: END IF;
175: CLOSE c_enrollment_status;
490: v_repeatable_ind IGS_PS_UNIT_VER_ALL.repeatable_ind%TYPE;
491: v_assessable_ind IGS_PS_UNIT_VER_ALL.assessable_ind%TYPE;
492: v_unit_int_course_level_cd IGS_PS_UNIT_VER_ALL.unit_int_course_level_cd%TYPE;
493: cst_error VARCHAR2(1);
494: v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
495: v_preferred_name IGS_PE_PERSON.preferred_given_name%TYPE;
496: v_ss_enrol_ind IGS_PS_UNIT_VER_ALL.ss_enrol_ind%TYPE;
497: v_ivr_enrol_ind IGS_PS_UNIT_VER_ALL.ivr_enrol_ind%TYPE;
498:
552: v_billing_hrs IGS_PS_UNIT_VER_ALL.billing_hrs%TYPE;
553:
554: CURSOR c_get_s_unit_status IS
555: SELECT s_unit_status
556: FROM IGS_PS_UNIT_STAT
557: WHERE unit_status = new_references.unit_status ;
558: --AND unit_status = 'INACTIVE';
559:
560: CURSOR SPUVH_CUR IS
580: BEGIN
581: cst_error := 'E';
582:
583: -- Validate the IGS_PS_UNIT version fields cannot be updated if the IGS_PS_UNIT
584: -- version has a system status of 'INACTIVE'. IGS_GE_EXCEPTIONS are : IGS_PS_UNIT_STAT,
585: -- expiry_dt and end_dt.
586: -- updated by ssawhney 10-Nov-2000. Incorrect validations for ref start date and review date
587:
588: IF p_updating THEN
731: IGS_GE_MSG_STACK.ADD;
732: App_Exception.Raise_Exception;
733: END IF;
734: END IF;
735: -- Validate IGS_PS_UNIT status and end date combination.
736: IF p_inserting OR
737: (p_updating AND
738: ((NVL(old_references.end_dt,IGS_GE_DATE.IGSDATE('1900/01/01')) <>
739: NVL(new_references.end_dt, IGS_GE_DATE.IGSDATE('1900/01/01'))) OR
1333: p_deleting IN BOOLEAN
1334: ) AS
1335:
1336: cst_active VARCHAR2 (6) ;
1337: v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
1338: CURSOR c_get_s_unit_status
1339: (cp_unit_status IGS_PS_UNIT_STAT.unit_status%TYPE) IS
1340: SELECT s_unit_status
1341: FROM IGS_PS_UNIT_STAT
1335:
1336: cst_active VARCHAR2 (6) ;
1337: v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
1338: CURSOR c_get_s_unit_status
1339: (cp_unit_status IGS_PS_UNIT_STAT.unit_status%TYPE) IS
1340: SELECT s_unit_status
1341: FROM IGS_PS_UNIT_STAT
1342: WHERE unit_status = cp_unit_status;
1343:
1337: v_s_unit_status IGS_PS_UNIT_STAT.s_unit_status%TYPE;
1338: CURSOR c_get_s_unit_status
1339: (cp_unit_status IGS_PS_UNIT_STAT.unit_status%TYPE) IS
1340: SELECT s_unit_status
1341: FROM IGS_PS_UNIT_STAT
1342: WHERE unit_status = cp_unit_status;
1343:
1344: v_rowid_saved BOOLEAN := FALSE;
1345:
1346: v_message_name Varchar2(30);
1347:
1348: BEGIN
1349: cst_active := 'ACTIVE';
1350: -- Validate IGS_PS_UNIT status and expiry date.
1351: IF p_inserting OR
1352: (p_updating AND
1353: ((NVL(old_references.expiry_dt,IGS_GE_DATE.IGSDATE('1900/01/01')) <>
1354: NVL(new_references.expiry_dt,IGS_GE_DATE.IGSDATE('1900/01/01'))) OR
1356:
1357: v_rowid_saved:= TRUE;
1358:
1359: END IF;
1360: -- Validate the IGS_PS_UNIT status.
1361: IF p_inserting OR
1362: (p_updating AND (old_references.unit_status <> new_references.unit_status)) THEN
1363: -- Save the rowid, old expiry date and old IGS_PS_UNIT status so
1364: -- the IGS_PS_UNIT status can be validated in the after statement
1359: END IF;
1360: -- Validate the IGS_PS_UNIT status.
1361: IF p_inserting OR
1362: (p_updating AND (old_references.unit_status <> new_references.unit_status)) THEN
1363: -- Save the rowid, old expiry date and old IGS_PS_UNIT status so
1364: -- the IGS_PS_UNIT status can be validated in the after statement
1365: -- trigger as calling IGS_PS_VAL_UV.crsp_val_uv_unit_sts from
1366: -- here will cause mutating table error. Also, the quality check
1367: -- may need to be performed if the status has been altered to
1360: -- Validate the IGS_PS_UNIT status.
1361: IF p_inserting OR
1362: (p_updating AND (old_references.unit_status <> new_references.unit_status)) THEN
1363: -- Save the rowid, old expiry date and old IGS_PS_UNIT status so
1364: -- the IGS_PS_UNIT status can be validated in the after statement
1365: -- trigger as calling IGS_PS_VAL_UV.crsp_val_uv_unit_sts from
1366: -- here will cause mutating table error. Also, the quality check
1367: -- may need to be performed if the status has been altered to
1368: -- active.
1373:
1374:
1375: IF v_rowid_saved = TRUE Then
1376:
1377: -- Validate IGS_PS_UNIT status and expiry date.
1378: IF p_inserting OR
1379: (p_updating AND
1380: ((NVL(old_references.expiry_dt,
1381: IGS_GE_DATE.IGSDATE('1900/01/01')) <>
1390: IGS_GE_MSG_STACK.ADD;
1391: App_Exception.Raise_Exception;
1392: END IF;
1393: END IF;
1394: -- Validate the IGS_PS_UNIT status
1395: IF p_inserting OR
1396: (p_updating AND
1397: (old_references.unit_status <> new_references.unit_status)) THEN
1398: IF IGS_PS_VAL_UV.crsp_val_uv_unit_sts (
2312: IF (((old_references.unit_status = new_references.unit_status)) OR
2313: ((new_references.unit_status IS NULL))) THEN
2314: NULL;
2315: ELSE
2316: IF NOT IGS_PS_UNIT_STAT_PKG.Get_PK_For_Validation (
2317: new_references.unit_status) THEN
2318:
2319: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
2320: IGS_GE_MSG_STACK.ADD;
2603:
2604: CURSOR cur_get_status IS
2605: SELECT us.s_unit_status
2606: FROM igs_ps_unit_ver_all uv,
2607: igs_ps_unit_stat us
2608: WHERE uv.unit_status=us.unit_status
2609: AND uv.unit_cd = x_unit_cd
2610: AND uv.version_number = x_version_number;
2611: l_unit_status igs_ps_unit_stat.s_unit_status%TYPE;
2607: igs_ps_unit_stat us
2608: WHERE uv.unit_status=us.unit_status
2609: AND uv.unit_cd = x_unit_cd
2610: AND uv.version_number = x_version_number;
2611: l_unit_status igs_ps_unit_stat.s_unit_status%TYPE;
2612:
2613: CURSOR cur_rowid_planned IS
2614: SELECT ROWID
2615: FROM igs_ps_unit_ver_all
2790: Close cur_rowid;
2791:
2792: END GET_FK_IGS_PS_UNIT;
2793: ---------------------------------------------------------------
2794: PROCEDURE GET_FK_IGS_PS_UNIT_STAT (
2795: x_unit_status IN VARCHAR2
2796: ) AS
2797:
2798: CURSOR cur_rowid IS
2814: Return;
2815: END IF;
2816: Close cur_rowid;
2817:
2818: END GET_FK_IGS_PS_UNIT_STAT;
2819: ---------------------------------------------------------------
2820: PROCEDURE get_fk_igs_ps_rpt_fmly_all (
2821: x_rpt_fmly_id IN NUMBER
2822: ) AS