[Home] [Help]
1: PACKAGE BODY igs_ps_uofr_wlst_pri_pkg AS
2: /* $Header: IGSPI96B.pls 115.9 2003/12/05 13:22:37 sarakshi ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_uofr_wlst_pri%RowType;
5: new_references igs_ps_uofr_wlst_pri%RowType;
1: PACKAGE BODY igs_ps_uofr_wlst_pri_pkg AS
2: /* $Header: IGSPI96B.pls 115.9 2003/12/05 13:22:37 sarakshi ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_uofr_wlst_pri%RowType;
5: new_references igs_ps_uofr_wlst_pri%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_uofr_wlst_pri_pkg AS
2: /* $Header: IGSPI96B.pls 115.9 2003/12/05 13:22:37 sarakshi ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_uofr_wlst_pri%RowType;
5: new_references igs_ps_uofr_wlst_pri%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
33: ***************************************************************/
34:
35: CURSOR cur_old_ref_values IS
36: SELECT *
37: FROM IGS_PS_UOFR_WLST_PRI
38: WHERE rowid = x_rowid;
39:
40: BEGIN
41:
185: ***************************************************************/
186:
187: BEGIN
188:
189: Igs_Ps_Uofr_Wlst_Prf_Pkg.Get_FK_Igs_Ps_Uofr_Wlst_Pri (
190: old_references.unit_ofr_waitlist_priority_id
191: );
192:
193: END Check_Child_Existance;
208: ***************************************************************/
209:
210: CURSOR cur_rowid IS
211: SELECT rowid
212: FROM igs_ps_uofr_wlst_pri
213: WHERE unit_ofr_waitlist_priority_id = x_unit_ofr_wl_priority_id
214: FOR UPDATE NOWAIT;
215:
216: lv_rowid cur_rowid%RowType;
248: ***************************************************************/
249:
250: CURSOR cur_rowid IS
251: SELECT rowid
252: FROM igs_ps_uofr_wlst_pri
253: WHERE calender_type = x_calender_type
254: AND ci_sequence_number = x_ci_sequence_number
255: AND priority_value = x_priority_value
256: AND unit_cd = x_unit_cd
288: ***************************************************************/
289:
290: CURSOR cur_rowid IS
291: SELECT rowid
292: FROM igs_ps_uofr_wlst_pri
293: WHERE unit_cd = x_unit_cd
294: AND version_number = x_version_number
295: AND calender_type = x_cal_type
296: AND ci_sequence_number = x_ci_sequence_number ;
452:
453: (reverse chronological order - newest change first)
454: ***************************************************************/
455:
456: cursor C is select ROWID from IGS_PS_UOFR_WLST_PRI
457: where UNIT_OFR_WAITLIST_PRIORITY_ID= X_UNIT_OFR_WL_PRIORITY_ID;
458: X_LAST_UPDATE_DATE DATE ;
459: X_LAST_UPDATED_BY NUMBER ;
460: X_LAST_UPDATE_LOGIN NUMBER ;
476: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
477: IGS_GE_MSG_STACK.ADD;
478: app_exception.raise_exception;
479: end if;
480: SELECT IGS_PS_UOFR_WLST_PRI_S.NEXTVAL
481: INTO X_UNIT_OFR_WL_PRIORITY_ID
482: FROM dual;
483: Before_DML(
484: p_action=>'INSERT',
494: x_created_by=>X_LAST_UPDATED_BY,
495: x_last_update_date=>X_LAST_UPDATE_DATE,
496: x_last_updated_by=>X_LAST_UPDATED_BY,
497: x_last_update_login=>X_LAST_UPDATE_LOGIN);
498: insert into IGS_PS_UOFR_WLST_PRI (
499: UNIT_OFR_WAITLIST_PRIORITY_ID
500: ,UNIT_CD
501: ,VERSION_NUMBER
502: ,CALENDER_TYPE
558: , CALENDER_TYPE
559: , CI_SEQUENCE_NUMBER
560: , PRIORITY_NUMBER
561: , PRIORITY_VALUE
562: from IGS_PS_UOFR_WLST_PRI
563: where ROWID = X_ROWID
564: for update nowait;
565: tlinfo c1%rowtype;
566: begin
647: x_created_by=>X_LAST_UPDATED_BY,
648: x_last_update_date=>X_LAST_UPDATE_DATE,
649: x_last_updated_by=>X_LAST_UPDATED_BY,
650: x_last_update_login=>X_LAST_UPDATE_LOGIN);
651: update IGS_PS_UOFR_WLST_PRI set
652: UNIT_CD = NEW_REFERENCES.UNIT_CD,
653: VERSION_NUMBER = NEW_REFERENCES.VERSION_NUMBER,
654: CALENDER_TYPE = NEW_REFERENCES.CALENDER_TYPE,
655: CI_SEQUENCE_NUMBER = NEW_REFERENCES.CI_SEQUENCE_NUMBER,
689:
690: (reverse chronological order - newest change first)
691: ***************************************************************/
692:
693: cursor c1 is select ROWID from IGS_PS_UOFR_WLST_PRI
694: where UNIT_OFR_WAITLIST_PRIORITY_ID= X_UNIT_OFR_WL_PRIORITY_ID;
695: begin
696: open c1;
697: fetch c1 into X_ROWID;
739: Before_DML (
740: p_action => 'DELETE',
741: x_rowid => X_ROWID
742: );
743: delete from IGS_PS_UOFR_WLST_PRI
744: where ROWID = X_ROWID;
745: if (sql%notfound) then
746: raise no_data_found;
747: end if;
749: p_action => 'DELETE',
750: x_rowid => X_ROWID
751: );
752: end DELETE_ROW;
753: END igs_ps_uofr_wlst_pri_pkg;