1: PACKAGE BODY igs_ad_apl_rvpf_rsl_pkg AS
2: /* $Header: IGSAIF3B.pls 115.12 2003/12/09 11:08:06 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_apl_rvpf_rsl%ROWTYPE;
1: PACKAGE BODY igs_ad_apl_rvpf_rsl_pkg AS
2: /* $Header: IGSAIF3B.pls 115.12 2003/12/09 11:08:06 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_apl_rvpf_rsl%ROWTYPE;
6: new_references igs_ad_apl_rvpf_rsl%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIF3B.pls 115.12 2003/12/09 11:08:06 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_apl_rvpf_rsl%ROWTYPE;
6: new_references igs_ad_apl_rvpf_rsl%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
29: */
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM igs_ad_apl_rvpf_rsl
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
153: PROCEDURE beforerowinsertupdate (
154: x_appl_rev_profile_id IN NUMBER,
155: x_rating_type_id IN NUMBER
156: ) AS
157: CURSOR c_rating_scale_closed(l_appl_rev_profile_id igs_ad_apl_rvpf_rsl.appl_rev_profile_id%TYPE,
158: l_rating_type_id NUMBER) IS
159: SELECT end_date FROM igs_ad_rating_scales rs,
160: igs_ad_apl_rvpf_rsl ars,
161: igs_ad_code_classes cc
156: ) AS
157: CURSOR c_rating_scale_closed(l_appl_rev_profile_id igs_ad_apl_rvpf_rsl.appl_rev_profile_id%TYPE,
158: l_rating_type_id NUMBER) IS
159: SELECT end_date FROM igs_ad_rating_scales rs,
160: igs_ad_apl_rvpf_rsl ars,
161: igs_ad_code_classes cc
162: WHERE rs.rating_scale_id = ars.rating_scale_id
163: AND cc.code_id = ars.rating_type_id
164: AND ars.rating_type_id = l_rating_type_id
198: || (reverse chronological order - newest change first)
199: */
200: CURSOR cur_rowid IS
201: SELECT rowid
202: FROM igs_ad_apl_rvpf_rsl
203: WHERE appl_revprof_rtscale_id = x_appl_revprof_rtscale_id
204: FOR UPDATE NOWAIT;
205:
206: lv_rowid cur_rowid%RowType;
234: || (reverse chronological order - newest change first)
235: */
236: CURSOR cur_rowid IS
237: SELECT rowid
238: FROM igs_ad_apl_rvpf_rsl
239: WHERE appl_rev_profile_id = x_appl_rev_profile_id
240: AND rating_type_id = x_rating_type_id
241: AND rating_scale_id = x_rating_scale_id
242: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
271: || (reverse chronological order - newest change first)
272: */
273: CURSOR cur_rowid IS
274: SELECT rowid
275: FROM igs_ad_apl_rvpf_rsl
276: WHERE ((appl_rev_profile_id = x_appl_rev_profile_id));
277:
278: lv_rowid cur_rowid%RowType;
279:
306: || (reverse chronological order - newest change first)
307: */
308: CURSOR cur_rowid IS
309: SELECT rowid
310: FROM igs_ad_apl_rvpf_rsl
311: WHERE ((rating_type_id = x_code_id));
312:
313: lv_rowid cur_rowid%RowType;
314:
462: || (reverse chronological order - newest change first)
463: */
464: CURSOR c IS
465: SELECT rowid
466: FROM igs_ad_apl_rvpf_rsl
467: WHERE appl_revprof_rtscale_id = x_appl_revprof_rtscale_id;
468:
469: x_last_update_date DATE;
470: x_last_updated_by NUMBER;
505: x_last_updated_by => x_last_updated_by,
506: x_last_update_login => x_last_update_login
507: );
508:
509: INSERT INTO igs_ad_apl_rvpf_rsl (
510: appl_revprof_rtscale_id,
511: appl_rev_profile_id,
512: rating_type_id,
513: rating_scale_id,
516: last_update_date,
517: last_updated_by,
518: last_update_login
519: ) VALUES (
520: igs_ad_apl_rvpf_rsl_s.NEXTVAL,
521: new_references.appl_rev_profile_id,
522: new_references.rating_type_id,
523: new_references.rating_scale_id,
524: x_last_update_date,
559: SELECT
560: appl_rev_profile_id,
561: rating_type_id,
562: rating_scale_id
563: FROM igs_ad_apl_rvpf_rsl
564: WHERE rowid = x_rowid
565: FOR UPDATE NOWAIT;
566:
567: tlinfo c1%ROWTYPE;
651: x_last_updated_by => x_last_updated_by,
652: x_last_update_login => x_last_update_login
653: );
654:
655: UPDATE igs_ad_apl_rvpf_rsl
656: SET
657: appl_rev_profile_id = new_references.appl_rev_profile_id,
658: rating_type_id = new_references.rating_type_id,
659: rating_scale_id = new_references.rating_scale_id,
687: || (reverse chronological order - newest change first)
688: */
689: CURSOR c1 IS
690: SELECT rowid
691: FROM igs_ad_apl_rvpf_rsl
692: WHERE appl_revprof_rtscale_id = x_appl_revprof_rtscale_id;
693:
694: BEGIN
695:
740: p_action => 'DELETE',
741: x_rowid => x_rowid
742: );
743:
744: DELETE FROM igs_ad_apl_rvpf_rsl
745: WHERE rowid = x_rowid;
746:
747: IF (SQL%NOTFOUND) THEN
748: RAISE NO_DATA_FOUND;
750:
751: END delete_row;
752:
753:
754: END igs_ad_apl_rvpf_rsl_pkg;