[Home] [Help]
1: PACKAGE BODY igs_ps_usec_cal_nums_pkg AS
2: /* $Header: IGSPI0UB.pls 120.0 2005/06/01 19:29:20 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_cal_nums%RowType;
5: new_references igs_ps_usec_cal_nums%RowType;
1: PACKAGE BODY igs_ps_usec_cal_nums_pkg AS
2: /* $Header: IGSPI0UB.pls 120.0 2005/06/01 19:29:20 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_cal_nums%RowType;
5: new_references igs_ps_usec_cal_nums%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_usec_cal_nums_pkg AS
2: /* $Header: IGSPI0UB.pls 120.0 2005/06/01 19:29:20 appldev noship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_cal_nums%RowType;
5: new_references igs_ps_usec_cal_nums%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
30: ***************************************************************/
31:
32: CURSOR cur_old_ref_values IS
33: SELECT *
34: FROM IGS_PS_USEC_CAL_NUMS
35: WHERE rowid = x_rowid;
36:
37: BEGIN
38:
133: ***************************************************************/
134:
135: CURSOR cur_rowid IS
136: SELECT rowid
137: FROM igs_ps_usec_cal_nums
138: WHERE unit_section_call_number_id = x_unit_section_call_number_id
139: FOR UPDATE NOWAIT;
140:
141: lv_rowid cur_rowid%RowType;
170: ***************************************************************/
171:
172: CURSOR cur_rowid IS
173: SELECT rowid
174: FROM igs_ps_usec_cal_nums
175: WHERE calender_type = x_calender_type
176: AND ci_sequence_number = x_ci_sequence_number and ((l_rowid is null) or (rowid <> l_rowid))
177:
178: ;
318:
319: (reverse chronological order - newest change first)
320: ***************************************************************/
321:
322: cursor C is select ROWID from IGS_PS_USEC_CAL_NUMS
323: where UNIT_SECTION_CALL_NUMBER_ID= X_UNIT_SECTION_CALL_NUMBER_ID
324: ;
325: X_LAST_UPDATE_DATE DATE ;
326: X_LAST_UPDATED_BY NUMBER ;
344: IGS_GE_MSG_STACK.ADD;
345: app_exception.raise_exception;
346: end if;
347: SELECT
348: IGS_PS_USEC_CAL_NUMS_S.nextval
349: INTO
350: x_unit_section_call_number_id
351: FROM
352: dual;
361: x_created_by=>X_LAST_UPDATED_BY,
362: x_last_update_date=>X_LAST_UPDATE_DATE,
363: x_last_updated_by=>X_LAST_UPDATED_BY,
364: x_last_update_login=>X_LAST_UPDATE_LOGIN);
365: insert into IGS_PS_USEC_CAL_NUMS (
366: UNIT_SECTION_CALL_NUMBER_ID
367: ,CALENDER_TYPE
368: ,CI_SEQUENCE_NUMBER
369: ,CALL_NUMBER
414: cursor c1 is select
415: CALENDER_TYPE
416: , CI_SEQUENCE_NUMBER
417: , CALL_NUMBER
418: from IGS_PS_USEC_CAL_NUMS
419: where ROWID = X_ROWID
420: for update nowait;
421: tlinfo c1%rowtype;
422: begin
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: update IGS_PS_USEC_CAL_NUMS set
499: CALENDER_TYPE = NEW_REFERENCES.CALENDER_TYPE,
500: CI_SEQUENCE_NUMBER = NEW_REFERENCES.CI_SEQUENCE_NUMBER,
501: CALL_NUMBER = NEW_REFERENCES.CALL_NUMBER,
502: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
530:
531: (reverse chronological order - newest change first)
532: ***************************************************************/
533:
534: cursor c1 is select ROWID from IGS_PS_USEC_CAL_NUMS
535: where UNIT_SECTION_CALL_NUMBER_ID= X_UNIT_SECTION_CALL_NUMBER_ID
536: ;
537: begin
538: open c1;
575: Before_DML (
576: p_action => 'DELETE',
577: x_rowid => X_ROWID
578: );
579: delete from IGS_PS_USEC_CAL_NUMS
580: where ROWID = X_ROWID;
581: if (sql%notfound) then
582: raise no_data_found;
583: end if;
585: p_action => 'DELETE',
586: x_rowid => X_ROWID
587: );
588: end DELETE_ROW;
589: END igs_ps_usec_cal_nums_pkg;