[Home] [Help]
1: PACKAGE BODY igs_ad_intvw_pnls_pkg AS
2: /* $Header: IGSAIG9B.pls 115.2 2003/06/23 06:40:04 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_INTVW_PNLS%ROWTYPE;
1: PACKAGE BODY igs_ad_intvw_pnls_pkg AS
2: /* $Header: IGSAIG9B.pls 115.2 2003/06/23 06:40:04 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_INTVW_PNLS%ROWTYPE;
6: new_references IGS_AD_INTVW_PNLS%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSAIG9B.pls 115.2 2003/06/23 06:40:04 akadam noship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_AD_INTVW_PNLS%ROWTYPE;
6: new_references IGS_AD_INTVW_PNLS%ROWTYPE;
7:
8: PROCEDURE set_column_values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2,
51: */
52:
53: CURSOR cur_old_ref_values IS
54: SELECT *
55: FROM igs_ad_intvw_pnls
56: WHERE rowid = x_rowid;
57:
58: BEGIN
59:
126: || (reverse chronological order - newest change first)
127: */
128: BEGIN
129:
130: igs_ad_panel_dtls_pkg.get_fk_igs_ad_intvw_pnls (
131: old_references.panel_code
132: );
133:
134: igs_ad_panel_membrs_pkg.get_fk_igs_ad_intvw_pnls (
130: igs_ad_panel_dtls_pkg.get_fk_igs_ad_intvw_pnls (
131: old_references.panel_code
132: );
133:
134: igs_ad_panel_membrs_pkg.get_fk_igs_ad_intvw_pnls (
135: old_references.panel_code
136: );
137:
138: END check_child_existance;
151: || (reverse chronological order - newest change first)
152: */
153: CURSOR cur_rowid IS
154: SELECT rowid
155: FROM igs_ad_intvw_pnls
156: WHERE panel_code = x_panel_code
157: FOR UPDATE NOWAIT;
158:
159: lv_rowid cur_rowid%RowType;
346: x_last_update_login := -1;
347: END IF;
348: ELSE
349: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
350: fnd_message.set_token ('ROUTINE', 'IGS_AD_INTVW_PNLS_PKG.INSERT_ROW');
351: igs_ge_msg_stack.add;
352: app_exception.raise_exception;
353: END IF;
354:
387: x_last_updated_by => x_last_updated_by,
388: x_last_update_login => x_last_update_login
389: );
390:
391: INSERT INTO igs_ad_intvw_pnls (
392: panel_code,
393: panel_type_code,
394: panel_level_code,
395: panel_desc ,
521: attribute17,
522: attribute18,
523: attribute19,
524: attribute20
525: FROM igs_ad_intvw_pnls
526: WHERE rowid = x_rowid
527: FOR UPDATE NOWAIT;
528:
529: tlinfo c1%ROWTYPE;
639: x_last_update_login := -1;
640: END IF;
641: ELSE
642: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
643: fnd_message.set_token ('ROUTINE', 'IGS_AD_INTVW_PNLS_PKG.UPDATE_ROW');
644: igs_ge_msg_stack.add;
645: app_exception.raise_exception;
646: END IF;
647:
680: x_last_updated_by => x_last_updated_by,
681: x_last_update_login => x_last_update_login
682: );
683:
684: UPDATE igs_ad_intvw_pnls
685: SET
686: panel_type_code = new_references.panel_type_code,
687: panel_level_code = new_references.panel_level_code,
688: panel_desc = new_references.panel_desc ,
760: || (reverse chronological order - newest change first)
761: */
762: CURSOR c1 IS
763: SELECT rowid
764: FROM igs_ad_intvw_pnls
765: WHERE panel_code = x_panel_code;
766:
767: BEGIN
768:
857: p_action => 'DELETE',
858: x_rowid => x_rowid
859: );
860:
861: DELETE FROM igs_ad_intvw_pnls
862: WHERE rowid = x_rowid;
863:
864: IF (SQL%NOTFOUND) THEN
865: RAISE NO_DATA_FOUND;
867:
868: END delete_row;
869:
870:
871: END igs_ad_intvw_pnls_pkg;