[Home] [Help]
1: PACKAGE BODY igs_ps_usec_as_pkg AS
2: /* $Header: IGSPI1FB.pls 115.7 2002/11/29 02:06:03 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_as%RowType;
5: new_references igs_ps_usec_as%RowType;
1: PACKAGE BODY igs_ps_usec_as_pkg AS
2: /* $Header: IGSPI1FB.pls 115.7 2002/11/29 02:06:03 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_as%RowType;
5: new_references igs_ps_usec_as%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ps_usec_as_pkg AS
2: /* $Header: IGSPI1FB.pls 115.7 2002/11/29 02:06:03 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ps_usec_as%RowType;
5: new_references igs_ps_usec_as%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
34: ***************************************************************/
35:
36: CURSOR cur_old_ref_values IS
37: SELECT *
38: FROM IGS_PS_USEC_AS
39: WHERE rowid = x_rowid;
40:
41: BEGIN
42:
171: ***************************************************************/
172:
173: CURSOR cur_rowid IS
174: SELECT rowid
175: FROM igs_ps_usec_as
176: WHERE unit_section_assessment_id = x_unit_section_assessment_id
177: FOR UPDATE NOWAIT;
178:
179: lv_rowid cur_rowid%RowType;
211: ***************************************************************/
212:
213: CURSOR cur_rowid IS
214: SELECT rowid
215: FROM igs_ps_usec_as
216: WHERE building_code = x_building_code
217: AND final_exam_date = x_final_exam_date
218: AND location_cd = x_location_cd
219: AND room_code = x_room_code
250: ***************************************************************/
251:
252: CURSOR cur_rowid IS
253: SELECT rowid
254: FROM igs_ps_usec_as
255: WHERE uoo_id = x_uoo_id ;
256:
257: lv_rowid cur_rowid%RowType;
258:
414:
415: (reverse chronological order - newest change first)
416: ***************************************************************/
417:
418: cursor C is select ROWID from IGS_PS_USEC_AS
419: where UNIT_SECTION_ASSESSMENT_ID= X_UNIT_SECTION_ASSESSMENT_ID
420: ;
421: X_LAST_UPDATE_DATE DATE ;
422: X_LAST_UPDATED_BY NUMBER ;
439: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
440: IGS_GE_MSG_STACK.ADD;
441: app_exception.raise_exception;
442: end if;
443: SELECT IGS_PS_USEC_AS_S.nextval
444: INTO x_unit_section_assessment_id
445: FROM dual;
446: Before_DML(
447: p_action=>'INSERT',
458: x_created_by=>X_LAST_UPDATED_BY,
459: x_last_update_date=>X_LAST_UPDATE_DATE,
460: x_last_updated_by=>X_LAST_UPDATED_BY,
461: x_last_update_login=>X_LAST_UPDATE_LOGIN);
462: insert into IGS_PS_USEC_AS (
463: UNIT_SECTION_ASSESSMENT_ID
464: ,UOO_ID
465: ,FINAL_EXAM_DATE
466: ,EXAM_START_TIME
527: , EXAM_END_TIME
528: , LOCATION_CD
529: , BUILDING_CODE
530: , ROOM_CODE
531: from IGS_PS_USEC_AS
532: where ROWID = X_ROWID
533: for update nowait;
534: tlinfo c1%rowtype;
535: begin
627: x_created_by=>X_LAST_UPDATED_BY,
628: x_last_update_date=>X_LAST_UPDATE_DATE,
629: x_last_updated_by=>X_LAST_UPDATED_BY,
630: x_last_update_login=>X_LAST_UPDATE_LOGIN);
631: update IGS_PS_USEC_AS set
632: UOO_ID = NEW_REFERENCES.UOO_ID,
633: FINAL_EXAM_DATE = NEW_REFERENCES.FINAL_EXAM_DATE,
634: EXAM_START_TIME = NEW_REFERENCES.EXAM_START_TIME,
635: EXAM_END_TIME = NEW_REFERENCES.EXAM_END_TIME,
671:
672: (reverse chronological order - newest change first)
673: ***************************************************************/
674:
675: cursor c1 is select ROWID from IGS_PS_USEC_AS
676: where UNIT_SECTION_ASSESSMENT_ID= X_UNIT_SECTION_ASSESSMENT_ID
677: ;
678: begin
679: open c1;
724: Before_DML (
725: p_action => 'DELETE',
726: x_rowid => X_ROWID
727: );
728: delete from IGS_PS_USEC_AS
729: where ROWID = X_ROWID;
730: if (sql%notfound) then
731: raise no_data_found;
732: end if;
734: p_action => 'DELETE',
735: x_rowid => X_ROWID
736: );
737: end DELETE_ROW;
738: END igs_ps_usec_as_pkg;