[Home] [Help]
156: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
157: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
158: SELECT PUR.ROWID,
159: PUR.*
160: FROM IGS_PE_UNT_REQUIRMNT PUR,
161: IGS_PE_PERSENC_EFFCT PEE
162: WHERE PUR.person_id = cp_person_id AND
163: PUR.encumbrance_type = cp_encumbrance_type AND
164: PUR.pen_start_dt = cp_start_dt AND
371: );
372:
373: END IF;
374: END LOOP;
375: -- SELECTING ALL IGS_PE_UNT_REQUIRMNT RECORDS
376: FOR v_psn_unit_rqmnt_rec IN c_psn_unit_rqmnt(p_person_id,
377: p_encumbrance_type,
378: p_start_dt,
379: p_expiry_dt) LOOP
376: FOR v_psn_unit_rqmnt_rec IN c_psn_unit_rqmnt(p_person_id,
377: p_encumbrance_type,
378: p_start_dt,
379: p_expiry_dt) LOOP
380: -- for each IGS_PE_UNT_REQUIRMNT record returned,
381: -- update the expiry_dt
382: IF (v_psn_unit_rqmnt_rec.pur_start_dt > p_expiry_dt) THEN
383:
384:
381: -- update the expiry_dt
382: IF (v_psn_unit_rqmnt_rec.pur_start_dt > p_expiry_dt) THEN
383:
384:
385: Igs_Pe_Unt_Requirmnt_Pkg.UPDATE_ROW(
386: X_ROWID =>v_psn_unit_rqmnt_rec.ROWID ,
387: X_PERSON_ID =>v_psn_unit_rqmnt_rec.PERSON_ID ,
388: X_ENCUMBRANCE_TYPE =>v_psn_unit_rqmnt_rec.ENCUMBRANCE_TYPE ,
389: X_PEN_START_DT =>v_psn_unit_rqmnt_rec.PEN_START_DT ,
398:
399:
400: ELSE
401:
402: Igs_Pe_Unt_Requirmnt_Pkg.UPDATE_ROW(
403: X_ROWID =>v_psn_unit_rqmnt_rec.ROWID ,
404: X_PERSON_ID =>v_psn_unit_rqmnt_rec.PERSON_ID ,
405: X_ENCUMBRANCE_TYPE =>v_psn_unit_rqmnt_rec.ENCUMBRANCE_TYPE ,
406: X_PEN_START_DT =>v_psn_unit_rqmnt_rec.PEN_START_DT ,