1: PACKAGE BODY igs_pe_per_type_map_pkg AS
2: /* $Header: IGSNIA4B.pls 120.1 2006/01/18 22:44:10 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_per_type_map%ROWTYPE;
1: PACKAGE BODY igs_pe_per_type_map_pkg AS
2: /* $Header: IGSNIA4B.pls 120.1 2006/01/18 22:44:10 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_per_type_map%ROWTYPE;
6: new_references igs_pe_per_type_map%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSNIA4B.pls 120.1 2006/01/18 22:44:10 skpandey noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references igs_pe_per_type_map%ROWTYPE;
6: new_references igs_pe_per_type_map%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
28: */
29:
30: CURSOR cur_old_ref_values IS
31: SELECT *
32: FROM igs_pe_per_type_map
33: WHERE rowid = x_rowid;
34:
35: BEGIN
36:
140: || (reverse chronological order - newest change first)
141: */
142: CURSOR cur_rowid IS
143: SELECT rowid
144: FROM igs_pe_per_type_map
145: WHERE person_type_code = x_person_type_code
146: AND per_person_type_id = x_per_person_type_id
147: FOR UPDATE NOWAIT;
148:
445: x_last_updated_by => x_last_updated_by,
446: x_last_update_login => x_last_update_login
447: );
448:
449: INSERT INTO igs_pe_per_type_map (
450: person_type_code,
451: system_type,
452: per_person_type_id,
453: creation_date,
491: */
492: CURSOR c1 IS
493: SELECT
494: system_type
495: FROM igs_pe_per_type_map
496: WHERE rowid = x_rowid
497: FOR UPDATE NOWAIT;
498:
499: tlinfo c1%ROWTYPE;
579: x_last_updated_by => x_last_updated_by,
580: x_last_update_login => x_last_update_login
581: );
582:
583: UPDATE igs_pe_per_type_map
584: SET
585: system_type = new_references.system_type,
586: last_update_date = x_last_update_date,
587: last_updated_by = x_last_updated_by,
612: || (reverse chronological order - newest change first)
613: */
614: CURSOR c1 IS
615: SELECT rowid
616: FROM igs_pe_per_type_map
617: WHERE person_type_code = x_person_type_code
618: AND per_person_type_id = x_per_person_type_id;
619:
620: BEGIN
664: p_action => 'DELETE',
665: x_rowid => x_rowid
666: );
667:
668: DELETE FROM igs_pe_per_type_map
669: WHERE rowid = x_rowid;
670:
671: IF (SQL%NOTFOUND) THEN
672: RAISE NO_DATA_FOUND;
674:
675: END delete_row;
676:
677:
678: END igs_pe_per_type_map_pkg;