80: BEGIN
81: DECLARE
82:
83: CURSOR c_psn_encmb_eff (
84: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
85: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
86: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
87: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
88: SELECT ROWID, IGS_PE_PERSENC_EFFCT.*
81: DECLARE
82:
83: CURSOR c_psn_encmb_eff (
84: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
85: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
86: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
87: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
88: SELECT ROWID, IGS_PE_PERSENC_EFFCT.*
89: FROM IGS_PE_PERSENC_EFFCT
82:
83: CURSOR c_psn_encmb_eff (
84: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
85: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
86: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
87: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
88: SELECT ROWID, IGS_PE_PERSENC_EFFCT.*
89: FROM IGS_PE_PERSENC_EFFCT
90: WHERE person_id = cp_person_id AND
83: CURSOR c_psn_encmb_eff (
84: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
85: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
86: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
87: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
88: SELECT ROWID, IGS_PE_PERSENC_EFFCT.*
89: FROM IGS_PE_PERSENC_EFFCT
90: WHERE person_id = cp_person_id AND
91: encumbrance_type = cp_encumbrance_type AND
95: FOR UPDATE OF IGS_PE_PERSENC_EFFCT.person_id NOWAIT;
96:
97:
98: CURSOR c_psn_crs_grp_excl (
99: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
100: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
101: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
102: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
103: SELECT PCGE.ROWID, PCGE.*
96:
97:
98: CURSOR c_psn_crs_grp_excl (
99: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
100: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
101: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
102: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
103: SELECT PCGE.ROWID, PCGE.*
104: FROM IGS_PE_CRS_GRP_EXCL PCGE,
97:
98: CURSOR c_psn_crs_grp_excl (
99: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
100: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
101: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
102: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
103: SELECT PCGE.ROWID, PCGE.*
104: FROM IGS_PE_CRS_GRP_EXCL PCGE,
105: IGS_PE_PERSENC_EFFCT PEE
98: CURSOR c_psn_crs_grp_excl (
99: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
100: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
101: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
102: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
103: SELECT PCGE.ROWID, PCGE.*
104: FROM IGS_PE_CRS_GRP_EXCL PCGE,
105: IGS_PE_PERSENC_EFFCT PEE
106: WHERE PCGE.person_id = cp_person_id AND
113: FOR UPDATE OF PCGE.person_id NOWAIT;
114:
115:
116: CURSOR c_psn_crs_excl (
117: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
118: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
119: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
120: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
121: SELECT PCE.ROWID, PCE.*
114:
115:
116: CURSOR c_psn_crs_excl (
117: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
118: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
119: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
120: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
121: SELECT PCE.ROWID, PCE.*
122: FROM IGS_PE_COURSE_EXCL PCE,
115:
116: CURSOR c_psn_crs_excl (
117: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
118: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
119: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
120: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
121: SELECT PCE.ROWID, PCE.*
122: FROM IGS_PE_COURSE_EXCL PCE,
123: IGS_PE_PERSENC_EFFCT PEE
116: CURSOR c_psn_crs_excl (
117: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
118: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
119: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
120: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
121: SELECT PCE.ROWID, PCE.*
122: FROM IGS_PE_COURSE_EXCL PCE,
123: IGS_PE_PERSENC_EFFCT PEE
124: WHERE PCE.person_id = cp_person_id AND
131: FOR UPDATE OF PCE.person_id NOWAIT;
132:
133:
134: CURSOR c_psn_unit_excl (
135: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
136: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
137: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
138: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
139: SELECT PUE.ROWID,
132:
133:
134: CURSOR c_psn_unit_excl (
135: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
136: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
137: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
138: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
139: SELECT PUE.ROWID,
140: PUE.*
133:
134: CURSOR c_psn_unit_excl (
135: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
136: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
137: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
138: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
139: SELECT PUE.ROWID,
140: PUE.*
141: FROM IGS_PE_PERS_UNT_EXCL PUE,
134: CURSOR c_psn_unit_excl (
135: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
136: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
137: cp_start_dt IGS_PE_PERS_ENCUMB.start_dt%TYPE,
138: cp_expiry_dt IGS_PE_PERS_ENCUMB.expiry_dt%TYPE) IS
139: SELECT PUE.ROWID,
140: PUE.*
141: FROM IGS_PE_PERS_UNT_EXCL PUE,
142: IGS_PE_PERSENC_EFFCT PEE
150: FOR UPDATE OF PUE.person_id NOWAIT;
151:
152:
153: CURSOR c_psn_unit_rqmnt (
154: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
155: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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,
151:
152:
153: CURSOR c_psn_unit_rqmnt (
154: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
155: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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.*
152:
153: CURSOR c_psn_unit_rqmnt (
154: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
155: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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,
153: CURSOR c_psn_unit_rqmnt (
154: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
155: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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
168: PUR.expiry_dt > cp_expiry_dt)
169: FOR UPDATE OF PUR.person_id NOWAIT;
170:
171: CURSOR fund_cur(
172: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
173: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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,
169: FOR UPDATE OF PUR.person_id NOWAIT;
170:
171: CURSOR fund_cur(
172: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
173: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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.*
170:
171: CURSOR fund_cur(
172: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
173: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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,
171: CURSOR fund_cur(
172: cp_person_id IGS_PE_PERS_ENCUMB.person_id%TYPE,
173: cp_encumbrance_type IGS_PE_PERS_ENCUMB.encumbrance_type%TYPE,
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
191: FOR UPDATE OF fun.person_id NOWAIT;
192:
193: BEGIN
194: -- This procedure sets the expiry date for all
195: -- child records of the nominated IGS_PE_PERS_ENCUMB
196: -- when the expiry_dt is set.
197: -- SELECTING ALL IGS_PE_PERS_ENCUMB RECORDS
198: FOR v_psn_encmb_eff_rec IN c_psn_encmb_eff(p_person_id,
199: p_encumbrance_type,
193: BEGIN
194: -- This procedure sets the expiry date for all
195: -- child records of the nominated IGS_PE_PERS_ENCUMB
196: -- when the expiry_dt is set.
197: -- SELECTING ALL IGS_PE_PERS_ENCUMB RECORDS
198: FOR v_psn_encmb_eff_rec IN c_psn_encmb_eff(p_person_id,
199: p_encumbrance_type,
200: p_start_dt,
201: p_expiry_dt) LOOP