[Home] [Help]
28: --Bayadav 05-May-2002 Included code in ENRP_UPD_SCA_STATUS proc to pass message back to IGSEN036 as a part of
29: -- bug 2335633 to indicate the program attempt status has changed.
30: --Nishikant 15-may-2002 Condition in an IF clause in the function Enrp_Upd_Sca_Discont modified as part of the bug#2364216.
31: --PKPATEL/SSAWHNEY 04-OCT-2002 Bug No: 2600842
32: -- Added the logic for synchronization of expiry date for IGS_PE_FUND_EXCL in the procedure Enrp_Upd_Expiry_Dts
33: --amuthu 08-Oct-2002 Added call to drop_all_workflow as part of Drop Transfer Build.
34: -- the calls to the drop_all workflow is done after either dropping or
35: -- discontinuing a unit attempt. created new local procedure invoke_drop_workflow. Bug 2599925.
36: --kkillams 08-11-2002 As part of Legacy Build bug no:2661533,
73: || Known limitations, enhancements or remarks :
74: || Change History :
75: || Who When What
76: || pkpatel 04-OCT-2002 Bug No: 2600842
77: || Added the logic for synchronization of expiry date for IGS_PE_FUND_EXCL
78: || (reverse chronological order - newest change first)
79: */
80: BEGIN
81: DECLARE
174: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
175: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
176: SELECT fun.ROWID,
177: fun.*
178: FROM IGS_PE_FUND_EXCL fun,
179: IGS_PE_PERSENC_EFFCT PEE
180: WHERE fun.person_id = cp_person_id AND
181: fun.encumbrance_type = cp_encumbrance_type AND
182: fun.pen_start_dt = cp_start_dt AND
417: END IF;
418:
419: END LOOP;
420:
421: -- SELECTING ALL IGS_PE_FUND_EXCL RECORDS
422: FOR fund_rec IN fund_cur(p_person_id,
423: p_encumbrance_type,
424: p_start_dt,
425: p_expiry_dt) LOOP
422: FOR fund_rec IN fund_cur(p_person_id,
423: p_encumbrance_type,
424: p_start_dt,
425: p_expiry_dt) LOOP
426: -- for each IGS_PE_FUND_EXCL record returned,
427: -- update the expiry_dt
428: IF (fund_rec.pfe_start_dt > p_expiry_dt) THEN
429:
430: igs_pe_fund_excl_pkg.update_row(
426: -- for each IGS_PE_FUND_EXCL record returned,
427: -- update the expiry_dt
428: IF (fund_rec.pfe_start_dt > p_expiry_dt) THEN
429:
430: igs_pe_fund_excl_pkg.update_row(
431: X_ROWID =>fund_rec.ROWID ,
432: X_FUND_EXCL_ID =>fund_rec.FUND_EXCL_ID,
433: X_PERSON_ID =>fund_rec.PERSON_ID ,
434: X_ENCUMBRANCE_TYPE =>fund_rec.ENCUMBRANCE_TYPE ,
440: X_PFE_START_DT =>fund_rec.PFE_START_DT ,
441: X_EXPIRY_DT =>fund_rec.pfe_start_dt,
442: X_MODE => 'R');
443: ELSE
444: igs_pe_fund_excl_pkg.update_row(
445: X_ROWID =>fund_rec.ROWID ,
446: X_FUND_EXCL_ID =>fund_rec.FUND_EXCL_ID,
447: X_PERSON_ID =>fund_rec.PERSON_ID ,
448: X_ENCUMBRANCE_TYPE =>fund_rec.ENCUMBRANCE_TYPE ,