1: PACKAGE BODY igs_en_svs_auth_cal_pkg AS
2: /* $Header: IGSEI82B.pls 120.0 2006/05/02 01:43:28 amuthu noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_svs_auth_cal%ROWTYPE;
1: PACKAGE BODY igs_en_svs_auth_cal_pkg AS
2: /* $Header: IGSEI82B.pls 120.0 2006/05/02 01:43:28 amuthu noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_svs_auth_cal%ROWTYPE;
6: new_references igs_en_svs_auth_cal%ROWTYPE;
7:
8: PROCEDURE afterinsert1(
9: x_sevis_auth_id IN NUMBER,
2: /* $Header: IGSEI82B.pls 120.0 2006/05/02 01:43:28 amuthu noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_en_svs_auth_cal%ROWTYPE;
6: new_references igs_en_svs_auth_cal%ROWTYPE;
7:
8: PROCEDURE afterinsert1(
9: x_sevis_auth_id IN NUMBER,
10: x_cal_type IN VARCHAR2,
33: */
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM igs_en_svs_auth_cal
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
89:
90: IF (((old_references.sevis_auth_id = new_references.sevis_auth_id)) OR
91: ((new_references.sevis_auth_id IS NULL))) THEN
92: NULL;
93: ELSIF NOT igs_en_svs_auth_pkg.get_pk_for_validation (
94: new_references.sevis_auth_id
95: ) THEN
96: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
97: igs_ge_msg_stack.add;
132: || (reverse chronological order - newest change first)
133: */
134: CURSOR cur_rowid IS
135: SELECT rowid
136: FROM igs_en_svs_auth_cal
137: WHERE sevis_auth_id = x_sevis_auth_id
138: AND cal_type = x_cal_type
139: AND ci_sequence_number = x_ci_sequence_number
140: FOR UPDATE NOWAIT;
155:
156: END get_pk_for_validation;
157:
158:
159: PROCEDURE get_fk_igs_en_svs_auth (
160: x_sevis_auth_id IN NUMBER
161: ) AS
162: /*
163: || Created By :
169: || (reverse chronological order - newest change first)
170: */
171: CURSOR cur_rowid IS
172: SELECT rowid
173: FROM igs_en_svs_auth_cal
174: WHERE ((sevis_auth_id = x_sevis_auth_id));
175:
176: lv_rowid cur_rowid%RowType;
177:
187: RETURN;
188: END IF;
189: CLOSE cur_rowid;
190:
191: END get_fk_igs_en_svs_auth;
192:
193:
194: PROCEDURE get_fk_igs_ca_inst (
195: x_cal_type IN VARCHAR2,
196: x_ci_sequence_number IN NUMBER
197: ) AS
198: CURSOR cur_rowid IS
199: SELECT ROWID
200: FROM igs_en_svs_auth_cal
201: WHERE cal_type = x_cal_type
202: AND ci_sequence_number = x_ci_sequence_number ;
203: lv_rowid cur_rowid%ROWTYPE;
204:
222: ) AS
223:
224: CURSOR c_auth IS
225: SELECT eeo.ELGB_OVERRIDE_ID, esa.person_id
226: FROM IGS_EN_SVS_AUTH esa,
227: IGS_EN_ELGB_OVR eeo
228: WHERE esa.SEVIS_AUTH_ID = x_sevis_auth_id
229: AND esa.person_id = eeo.person_id
230: AND eeo.cal_type = x_cal_type
231: AND eeo.ci_sequence_number = x_ci_sequence_number;
232:
233: CURSOR c_another_auth (cp_person_id HZ_PARTIES.PARTY_ID%TYPE) IS
234: SELECT 'X'
235: FROM IGS_EN_SVS_AUTH_CAL sac, IGS_EN_SVS_AUTH esa
236: WHERE esa.SEVIS_AUTH_ID <> x_sevis_auth_id
237: AND esa.person_id = cp_person_id
238: AND esa.sevis_auth_id = sac.sevis_auth_id
239: AND sac.cal_type = x_cal_type
386: CURSOR c_step_exists IS
387: SELECT 'X'
388: FROM IGS_EN_ELGB_OVR_STEP eos,
389: IGS_EN_ELGB_OVR eo,
390: IGS_EN_SVS_AUTH esa
391: WHERE esa.sevis_auth_id = x_sevis_auth_id
392: AND esa.person_id = eo.person_id
393: AND eo.cal_type = x_cal_type
394: AND eo.CI_SEQUENCE_NUMBER = x_ci_sequence_number
396: AND eos.STEP_OVERRIDE_TYPE IN ('FMIN_CRDT','FATD_TYPE');
397:
398: CURSOR c_ovr IS
399: SELECT eo.ELGB_OVERRIDE_ID
400: FROM IGS_EN_SVS_AUTH esa, IGS_EN_ELGB_OVR eo
401: WHERE esa.sevis_auth_id = x_sevis_auth_id
402: AND esa.person_id = eo.person_id
403: AND eo.cal_type = x_cal_type
404: AND eo.ci_sequence_number = X_ci_sequence_number;
405:
406:
407: CURSOR c_earliest_cal IS
408: SELECT cal_type, ci_sequence_number
409: FROM IGS_EN_SVS_AUTH_CAL
410: WHERE sevis_auth_id = x_sevis_auth_id
411: ORDER BY CREATION_DATE ASC;
412:
413: CURSOR c_person_id IS
411: ORDER BY CREATION_DATE ASC;
412:
413: CURSOR c_person_id IS
414: SELECT person_id
415: FROM igs_en_svs_auth
416: WHERE sevis_auth_id = x_sevis_auth_id;
417:
418:
419: CURSOR c_ovr_step (cp_person_id hz_parties.party_id%TYPE,
556: x_last_update_login := -1;
557: END IF;
558: ELSE
559: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
560: fnd_message.set_token ('ROUTINE', 'IGS_EN_SVS_AUTH_CAL_PKG.INSERT_ROW');
561: igs_ge_msg_stack.add;
562: app_exception.raise_exception;
563: END IF;
564:
574: x_last_updated_by => x_last_updated_by,
575: x_last_update_login => x_last_update_login
576: );
577:
578: INSERT INTO igs_en_svs_auth_cal (
579: sevis_auth_id,
580: cal_type,
581: ci_sequence_number,
582: creation_date,
624: */
625: CURSOR c1 IS
626: SELECT
627: rowid
628: FROM igs_en_svs_auth_cal
629: WHERE rowid = x_rowid
630: FOR UPDATE NOWAIT;
631:
632: tlinfo c1%ROWTYPE;
668: p_action => 'DELETE',
669: x_rowid => x_rowid
670: );
671:
672: DELETE FROM igs_en_svs_auth_cal
673: WHERE rowid = x_rowid;
674:
675: IF (SQL%NOTFOUND) THEN
676: RAISE NO_DATA_FOUND;
684:
685: END delete_row;
686:
687:
688: END igs_en_svs_auth_cal_pkg;