1: PACKAGE BODY igs_ps_usec_ref_cd_pkg AS
2: /* $Header: IGSPI1HB.pls 115.9 2003/05/09 06:40:16 sarakshi ship $ */
3: /* CAHNGE HISTORY
4: WHO WHEN WAHT
5: ayedubat 24-MAY-2001 modified the Before_Dml to a new validation according to the DLD,PSP001-US */
4: WHO WHEN WAHT
5: ayedubat 24-MAY-2001 modified the Before_Dml to a new validation according to the DLD,PSP001-US */
6:
7: l_rowid VARCHAR2(25);
8: old_references igs_ps_usec_ref_cd%ROWTYPE;
9: new_references igs_ps_usec_ref_cd%ROWTYPE;
10:
11: PROCEDURE set_column_values (
12: p_action IN VARCHAR2,
5: ayedubat 24-MAY-2001 modified the Before_Dml to a new validation according to the DLD,PSP001-US */
6:
7: l_rowid VARCHAR2(25);
8: old_references igs_ps_usec_ref_cd%ROWTYPE;
9: new_references igs_ps_usec_ref_cd%ROWTYPE;
10:
11: PROCEDURE set_column_values (
12: p_action IN VARCHAR2,
13: x_rowid IN VARCHAR2 DEFAULT NULL,
35: ***************************************************************/
36:
37: CURSOR cur_old_ref_values IS
38: SELECT *
39: FROM igs_ps_usec_ref_cd
40: WHERE ROWID = x_rowid;
41:
42: BEGIN
43:
191: ***************************************************************/
192:
193: CURSOR cur_rowid IS
194: SELECT ROWID
195: FROM igs_ps_usec_ref_cd
196: WHERE unit_section_reference_cd_id = x_unit_section_reference_cd_id
197: FOR UPDATE NOWAIT;
198:
199: lv_rowid cur_rowid%ROWTYPE;
229: ***************************************************************/
230:
231: CURSOR cur_rowid IS
232: SELECT ROWID
233: FROM igs_ps_usec_ref_cd
234: WHERE reference_code_type = x_reference_code_type
235: AND reference_code = x_reference_code
236: AND unit_section_reference_id = x_unit_section_reference_id
237: AND ((l_rowid IS NULL) OR (ROWID <> l_rowid));
266: ***************************************************************/
267:
268: CURSOR cur_rowid IS
269: SELECT ROWID
270: FROM igs_ps_usec_ref_cd
271: WHERE unit_section_reference_id = x_unit_section_reference_id ;
272:
273: lv_rowid cur_rowid%ROWTYPE;
274:
303: ***************************************************************/
304:
305: CURSOR cur_rowid IS
306: SELECT ROWID
307: FROM igs_ps_usec_ref_cd
308: WHERE reference_code_type = x_reference_code_type;
309:
310: lv_rowid cur_rowid%ROWTYPE;
311: BEGIN
340: ***************************************************************/
341:
342: CURSOR cur_rowid IS
343: SELECT ROWID
344: FROM igs_ps_usec_ref_cd
345: WHERE reference_code_type = x_reference_code_type
346: AND reference_code = x_reference_code ;
347:
348: lv_rowid cur_rowid%ROWTYPE;
387: (reverse chronological order - newest change first)
388: ***************************************************************/
389: CURSOR cur_ps_usec_ref_cd_v IS
390: SELECT reference_code_type
391: FROM igs_ps_usec_ref_cd_v
392: WHERE unit_section_reference_cd_id = x_unit_section_reference_cd_id;
393: lv_reference_code_type cur_ps_usec_ref_cd_v%ROWTYPE;
394: BEGIN
395:
508:
509: (reverse chronological order - newest change first)
510: ***************************************************************/
511:
512: CURSOR c IS SELECT ROWID FROM igs_ps_usec_ref_cd
513: WHERE unit_section_reference_cd_id= x_unit_section_reference_cd_id;
514: x_last_update_date DATE ;
515: x_last_updated_by NUMBER ;
516: x_last_update_login NUMBER ;
532: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
533: igs_ge_msg_stack.add;
534: app_exception.raise_exception;
535: END IF;
536: SELECT igs_ps_usec_ref_cd_s.nextval
537: INTO x_unit_section_reference_cd_id
538: FROM dual;
539: before_dml(
540: p_action=>'INSERT',
546: x_last_update_date=>x_last_update_date,
547: x_last_updated_by=>x_last_updated_by,
548: x_last_update_login=>x_last_update_login,
549: x_reference_code_type=>x_reference_code_type);
550: INSERT INTO igs_ps_usec_ref_cd (
551: unit_section_reference_cd_id
552: ,unit_section_reference_id
553: ,creation_date
554: ,created_by
606: unit_section_reference_id,
607: reference_code_type,
608: reference_code,
609: reference_code_desc
610: FROM igs_ps_usec_ref_cd
611: WHERE ROWID = x_rowid
612: FOR UPDATE NOWAIT;
613: tlinfo c1%ROWTYPE;
614: BEGIN
696: x_reference_code_type=>x_reference_code_type,
697: x_reference_code=>x_reference_code,
698: x_reference_code_desc=>x_reference_code_desc
699: );
700: UPDATE igs_ps_usec_ref_cd SET
701: unit_section_reference_id = new_references.unit_section_reference_id,
702: last_update_date = x_last_update_date,
703: last_updated_by = x_last_updated_by,
704: last_update_login = x_last_update_login,
735:
736: (reverse chronological order - newest change first)
737: ***************************************************************/
738:
739: CURSOR c1 IS SELECT ROWID FROM igs_ps_usec_ref_cd
740: WHERE unit_section_reference_cd_id= x_unit_section_reference_cd_id;
741: BEGIN
742: OPEN c1;
743: FETCH c1 INTO x_rowid;
780: before_dml (
781: p_action => 'DELETE',
782: x_rowid => x_rowid
783: );
784: DELETE FROM igs_ps_usec_ref_cd
785: WHERE ROWID = x_rowid;
786: IF (SQL%NOTFOUND) THEN
787: RAISE NO_DATA_FOUND;
788: END IF;
791: x_rowid => x_rowid
792: );
793: END delete_row;
794:
795: END igs_ps_usec_ref_cd_pkg;