1: PACKAGE BODY igs_ps_usec_wlst_prf_pkg AS
2: /* $Header: IGSPI0ZB.pls 120.1 2005/08/17 05:50:15 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_wlst_prf%RowType;
5: new_references igs_ps_usec_wlst_prf%RowType;
1: PACKAGE BODY igs_ps_usec_wlst_prf_pkg AS
2: /* $Header: IGSPI0ZB.pls 120.1 2005/08/17 05:50:15 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_wlst_prf%RowType;
5: new_references igs_ps_usec_wlst_prf%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_usec_wlst_prf_pkg AS
2: /* $Header: IGSPI0ZB.pls 120.1 2005/08/17 05:50:15 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_wlst_prf%RowType;
5: new_references igs_ps_usec_wlst_prf%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_USEC_WLST_PRF
36: WHERE rowid = x_rowid;
37:
38: BEGIN
39:
163: ***************************************************************/
164:
165: CURSOR cur_rowid IS
166: SELECT rowid
167: FROM igs_ps_usec_wlst_prf
168: WHERE unit_sec_waitlist_pref_id = x_unit_sec_waitlist_pref_id
169: FOR UPDATE NOWAIT;
170:
171: lv_rowid cur_rowid%RowType;
201: ***************************************************************/
202:
203: CURSOR cur_rowid IS
204: SELECT rowid
205: FROM igs_ps_usec_wlst_prf
206: WHERE preference_code = x_preference_code
207: AND NVL(preference_version,-9) = NVL(x_preference_version,-9)
208: AND unit_sec_waitlist_priority_id = x_unit_sec_wlst_priority_id and ((l_rowid is null) or (rowid <> l_rowid))
209:
238: ***************************************************************/
239:
240: CURSOR cur_rowid IS
241: SELECT rowid
242: FROM igs_ps_usec_wlst_prf
243: WHERE unit_sec_waitlist_priority_id = x_unit_sec_wlst_priority_id ;
244:
245: lv_rowid cur_rowid%RowType;
246:
392:
393: (reverse chronological order - newest change first)
394: ***************************************************************/
395:
396: cursor C is select ROWID from IGS_PS_USEC_WLST_PRF
397: where UNIT_SEC_WAITLIST_PREF_ID= X_UNIT_SEC_WAITLIST_PREF_ID
398: ;
399: X_LAST_UPDATE_DATE DATE ;
400: X_LAST_UPDATED_BY NUMBER ;
418: IGS_GE_MSG_STACK.ADD;
419: app_exception.raise_exception;
420: end if;
421: SELECT
422: IGS_PS_USEC_WLST_PRF_S.NextVal
423: INTO
424: x_UNIT_SEC_WAITLIST_PREF_ID
425: FROM
426: dual;
436: x_created_by=>X_LAST_UPDATED_BY,
437: x_last_update_date=>X_LAST_UPDATE_DATE,
438: x_last_updated_by=>X_LAST_UPDATED_BY,
439: x_last_update_login=>X_LAST_UPDATE_LOGIN);
440: insert into IGS_PS_USEC_WLST_PRF (
441: UNIT_SEC_WAITLIST_PREF_ID
442: ,UNIT_SEC_WAITLIST_PRIORITY_ID
443: ,PREFERENCE_ORDER
444: ,PREFERENCE_CODE
493: UNIT_SEC_WAITLIST_PRIORITY_ID
494: , PREFERENCE_ORDER
495: , PREFERENCE_CODE
496: , PREFERENCE_VERSION
497: from IGS_PS_USEC_WLST_PRF
498: where ROWID = X_ROWID
499: for update nowait;
500: tlinfo c1%rowtype;
501: begin
578: x_created_by=>X_LAST_UPDATED_BY,
579: x_last_update_date=>X_LAST_UPDATE_DATE,
580: x_last_updated_by=>X_LAST_UPDATED_BY,
581: x_last_update_login=>X_LAST_UPDATE_LOGIN);
582: update IGS_PS_USEC_WLST_PRF set
583: UNIT_SEC_WAITLIST_PRIORITY_ID = NEW_REFERENCES.UNIT_SEC_WAITLIST_PRIORITY_ID,
584: PREFERENCE_ORDER = NEW_REFERENCES.PREFERENCE_ORDER,
585: PREFERENCE_CODE = NEW_REFERENCES.PREFERENCE_CODE,
586: PREFERENCE_VERSION = NEW_REFERENCES.PREFERENCE_VERSION,
616:
617: (reverse chronological order - newest change first)
618: ***************************************************************/
619:
620: cursor c1 is select ROWID from IGS_PS_USEC_WLST_PRF
621: where UNIT_SEC_WAITLIST_PREF_ID= X_UNIT_SEC_WAITLIST_PREF_ID
622: ;
623: begin
624: open c1;
663: Before_DML (
664: p_action => 'DELETE',
665: x_rowid => X_ROWID
666: );
667: delete from IGS_PS_USEC_WLST_PRF
668: where ROWID = X_ROWID;
669: if (sql%notfound) then
670: raise no_data_found;
671: end if;
673: p_action => 'DELETE',
674: x_rowid => X_ROWID
675: );
676: end DELETE_ROW;
677: END igs_ps_usec_wlst_prf_pkg;