1: PACKAGE BODY igs_ad_apl_rprf_rgr_pkg AS
2: /* $Header: IGSAIF4B.pls 115.10 2003/10/30 13:26:22 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_apl_rprf_rgr%ROWTYPE;
1: PACKAGE BODY igs_ad_apl_rprf_rgr_pkg AS
2: /* $Header: IGSAIF4B.pls 115.10 2003/10/30 13:26:22 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_apl_rprf_rgr%ROWTYPE;
6: new_references igs_ad_apl_rprf_rgr%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIF4B.pls 115.10 2003/10/30 13:26:22 rghosh noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_ad_apl_rprf_rgr%ROWTYPE;
6: new_references igs_ad_apl_rprf_rgr%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_rprf_rgr
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
134: || (reverse chronological order - newest change first)
135: */
136: BEGIN
137:
138: igs_ad_appl_arp_pkg.get_fk_igs_ad_apl_rprf_rgr (
139: old_references.appl_revprof_revgr_id
140: );
141:
142: igs_ad_rvgr_evaltr_pkg.get_fk_igs_ad_apl_rprf_rgr (
138: igs_ad_appl_arp_pkg.get_fk_igs_ad_apl_rprf_rgr (
139: old_references.appl_revprof_revgr_id
140: );
141:
142: igs_ad_rvgr_evaltr_pkg.get_fk_igs_ad_apl_rprf_rgr (
143: old_references.appl_revprof_revgr_id
144: );
145:
146: igs_ad_rvgr_inc_exc_pkg.get_fk_igs_ad_apl_rprf_rgr (
142: igs_ad_rvgr_evaltr_pkg.get_fk_igs_ad_apl_rprf_rgr (
143: old_references.appl_revprof_revgr_id
144: );
145:
146: igs_ad_rvgr_inc_exc_pkg.get_fk_igs_ad_apl_rprf_rgr (
147: old_references.appl_revprof_revgr_id
148: );
149:
150: END check_child_existance;
163: || (reverse chronological order - newest change first)
164: */
165: CURSOR cur_rowid IS
166: SELECT rowid
167: FROM igs_ad_apl_rprf_rgr
168: WHERE appl_revprof_revgr_id = x_appl_revprof_revgr_id
169: FOR UPDATE NOWAIT;
170:
171: lv_rowid cur_rowid%RowType;
199: || (reverse chronological order - newest change first)
200: */
201: CURSOR cur_rowid IS
202: SELECT rowid
203: FROM igs_ad_apl_rprf_rgr
204: WHERE revprof_revgr_cd = x_revprof_revgr_cd
205: AND appl_rev_profile_id = x_appl_rev_profile_id
206: AND ((l_rowid IS NULL) OR (rowid <> l_rowid));
207:
235: || (reverse chronological order - newest change first)
236: */
237: CURSOR cur_rowid IS
238: SELECT rowid
239: FROM igs_ad_apl_rprf_rgr
240: WHERE ((appl_rev_profile_id = x_appl_rev_profile_id));
241:
242: lv_rowid cur_rowid%RowType;
243:
355: || (reverse chronological order - newest change first)
356: */
357: CURSOR c IS
358: SELECT rowid
359: FROM igs_ad_apl_rprf_rgr
360: WHERE appl_revprof_revgr_id = x_appl_revprof_revgr_id;
361:
362: x_last_update_date DATE;
363: x_last_updated_by NUMBER;
398: x_last_updated_by => x_last_updated_by,
399: x_last_update_login => x_last_update_login
400: );
401:
402: INSERT INTO igs_ad_apl_rprf_rgr (
403: appl_revprof_revgr_id,
404: appl_rev_profile_id,
405: revprof_revgr_cd,
406: revprof_revgr_name,
409: last_update_date,
410: last_updated_by,
411: last_update_login
412: ) VALUES (
413: igs_ad_apl_rprf_rgr_s.NEXTVAL,
414: new_references.appl_rev_profile_id,
415: new_references.revprof_revgr_cd,
416: new_references.revprof_revgr_name,
417: x_last_update_date,
452: SELECT
453: appl_rev_profile_id,
454: revprof_revgr_cd,
455: revprof_revgr_name
456: FROM igs_ad_apl_rprf_rgr
457: WHERE rowid = x_rowid
458: FOR UPDATE NOWAIT;
459:
460: tlinfo c1%ROWTYPE;
544: x_last_updated_by => x_last_updated_by,
545: x_last_update_login => x_last_update_login
546: );
547:
548: UPDATE igs_ad_apl_rprf_rgr
549: SET
550: appl_rev_profile_id = new_references.appl_rev_profile_id,
551: revprof_revgr_cd = new_references.revprof_revgr_cd,
552: revprof_revgr_name = new_references.revprof_revgr_name,
580: || (reverse chronological order - newest change first)
581: */
582: CURSOR c1 IS
583: SELECT rowid
584: FROM igs_ad_apl_rprf_rgr
585: WHERE appl_revprof_revgr_id = x_appl_revprof_revgr_id;
586:
587: BEGIN
588:
633: p_action => 'DELETE',
634: x_rowid => x_rowid
635: );
636:
637: DELETE FROM igs_ad_apl_rprf_rgr
638: WHERE rowid = x_rowid;
639:
640: IF (SQL%NOTFOUND) THEN
641: RAISE NO_DATA_FOUND;
643:
644: END delete_row;
645:
646:
647: END igs_ad_apl_rprf_rgr_pkg;