1: PACKAGE BODY igs_ps_note_types_pkg AS
2: /* $Header: IGSPI1KB.pls 115.7 2002/11/29 02:07:30 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_note_types%RowType;
5: new_references igs_ps_note_types%RowType;
1: PACKAGE BODY igs_ps_note_types_pkg AS
2: /* $Header: IGSPI1KB.pls 115.7 2002/11/29 02:07:30 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_note_types%RowType;
5: new_references igs_ps_note_types%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_note_types_pkg AS
2: /* $Header: IGSPI1KB.pls 115.7 2002/11/29 02:07:30 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_note_types%RowType;
5: new_references igs_ps_note_types%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
31: ***************************************************************/
32:
33: CURSOR cur_old_ref_values IS
34: SELECT *
35: FROM IGS_PS_NOTE_TYPES
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
176: ***************************************************************/
177:
178: BEGIN
179:
180: Igs_Ps_Catlg_Notes_Pkg.Get_FK_Igs_Ps_Note_Types (
181: old_references.note_type_id
182: );
183:
184: END Check_Child_Existance;
199: ***************************************************************/
200:
201: CURSOR cur_rowid IS
202: SELECT rowid
203: FROM igs_ps_note_types
204: WHERE note_type_id = x_note_type_id
205: FOR UPDATE NOWAIT;
206:
207: lv_rowid cur_rowid%RowType;
236: ***************************************************************/
237:
238: CURSOR cur_rowid IS
239: SELECT rowid
240: FROM igs_ps_note_types
241: WHERE catalog_schedule = x_catalog_schedule
242: AND note_type = x_note_type and ((l_rowid is null) or (rowid <> l_rowid))
243:
244: ;
388:
389: (reverse chronological order - newest change first)
390: ***************************************************************/
391:
392: cursor C is select ROWID from IGS_PS_NOTE_TYPES
393: where NOTE_TYPE_ID= X_NOTE_TYPE_ID
394: ;
395: X_LAST_UPDATE_DATE DATE ;
396: X_LAST_UPDATED_BY NUMBER ;
414: IGS_GE_MSG_STACK.ADD;
415: app_exception.raise_exception;
416: end if;
417: ----
418: SELECT igs_ps_note_types_s.nextval
419: INTO x_NOTE_TYPE_ID
420: FROM dual;
421: ---
422:
432: x_created_by=>X_LAST_UPDATED_BY,
433: x_last_update_date=>X_LAST_UPDATE_DATE,
434: x_last_updated_by=>X_LAST_UPDATED_BY,
435: x_last_update_login=>X_LAST_UPDATE_LOGIN);
436: insert into IGS_PS_NOTE_TYPES (
437: NOTE_TYPE_ID
438: ,NOTE_TYPE
439: ,DESCRIPTION
440: ,CLOSED_IND
489: NOTE_TYPE
490: , DESCRIPTION
491: , CLOSED_IND
492: , CATALOG_SCHEDULE
493: from IGS_PS_NOTE_TYPES
494: where ROWID = X_ROWID
495: for update nowait;
496: tlinfo c1%rowtype;
497: begin
572: x_created_by=>X_LAST_UPDATED_BY,
573: x_last_update_date=>X_LAST_UPDATE_DATE,
574: x_last_updated_by=>X_LAST_UPDATED_BY,
575: x_last_update_login=>X_LAST_UPDATE_LOGIN);
576: update IGS_PS_NOTE_TYPES set
577: NOTE_TYPE = NEW_REFERENCES.NOTE_TYPE,
578: DESCRIPTION = NEW_REFERENCES.DESCRIPTION,
579: CLOSED_IND = NEW_REFERENCES.CLOSED_IND,
580: CATALOG_SCHEDULE = NEW_REFERENCES.CATALOG_SCHEDULE,
610:
611: (reverse chronological order - newest change first)
612: ***************************************************************/
613:
614: cursor c1 is select ROWID from IGS_PS_NOTE_TYPES
615: where NOTE_TYPE_ID= X_NOTE_TYPE_ID
616: ;
617: begin
618: open c1;
657: Before_DML (
658: p_action => 'DELETE',
659: x_rowid => X_ROWID
660: );
661: delete from IGS_PS_NOTE_TYPES
662: where ROWID = X_ROWID;
663: if (sql%notfound) then
664: raise no_data_found;
665: end if;
667: p_action => 'DELETE',
668: x_rowid => X_ROWID
669: );
670: end DELETE_ROW;
671: END igs_ps_note_types_pkg;