[Home] [Help]
1: PACKAGE BODY igs_ad_tstscr_used_pkg AS
2: /* $Header: IGSAIA7B.pls 120.1 2005/10/03 08:23:17 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_tstscr_used%RowType;
5: new_references igs_ad_tstscr_used%RowType;
1: PACKAGE BODY igs_ad_tstscr_used_pkg AS
2: /* $Header: IGSAIA7B.pls 120.1 2005/10/03 08:23:17 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_tstscr_used%RowType;
5: new_references igs_ad_tstscr_used%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: PACKAGE BODY igs_ad_tstscr_used_pkg AS
2: /* $Header: IGSAIA7B.pls 120.1 2005/10/03 08:23:17 appldev ship $ */
3: l_rowid VARCHAR2(25);
4: old_references igs_ad_tstscr_used%RowType;
5: new_references igs_ad_tstscr_used%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
53: ***************************************************************/
54:
55: CURSOR cur_old_ref_values IS
56: SELECT *
57: FROM IGS_AD_TSTSCR_USED
58: WHERE rowid = x_rowid;
59:
60: BEGIN
61:
193: ***************************************************************/
194:
195: CURSOR cur_rowid IS
196: SELECT rowid
197: FROM igs_ad_tstscr_used
198: WHERE tstscr_used_id = x_tstscr_used_id
199: FOR UPDATE NOWAIT;
200:
201: lv_rowid cur_rowid%RowType;
232: ***************************************************************/
233:
234: CURSOR cur_rowid IS
235: SELECT rowid
236: FROM igs_ad_tstscr_used
237: WHERE person_id = x_person_id
238: AND admission_appl_number = x_admission_appl_number
239: AND nominated_course_cd = x_nominated_course_cd
240: AND sequence_number = x_sequence_number ;
458:
459: (reverse chronological order - newest change first)
460: ***************************************************************/
461:
462: cursor C is select ROWID from IGS_AD_TSTSCR_USED
463: where TSTSCR_USED_ID= X_TSTSCR_USED_ID
464: ;
465: X_LAST_UPDATE_DATE DATE ;
466: X_LAST_UPDATED_BY NUMBER ;
520: x_created_by=>X_LAST_UPDATED_BY,
521: x_last_update_date=>X_LAST_UPDATE_DATE,
522: x_last_updated_by=>X_LAST_UPDATED_BY,
523: x_last_update_login=>X_LAST_UPDATE_LOGIN);
524: insert into IGS_AD_TSTSCR_USED (
525: TSTSCR_USED_ID
526: ,COMMENTS
527: ,PERSON_ID
528: ,ADMISSION_APPL_NUMBER
554: ,LAST_UPDATE_DATE
555: ,LAST_UPDATED_BY
556: ,LAST_UPDATE_LOGIN
557: ) values (
558: IGS_AD_TSTSCR_USED_S.NEXTVAL
559: ,NEW_REFERENCES.COMMENTS
560: ,NEW_REFERENCES.PERSON_ID
561: ,NEW_REFERENCES.ADMISSION_APPL_NUMBER
562: ,NEW_REFERENCES.NOMINATED_COURSE_CD
665: , ATTRIBUTE17
666: , ATTRIBUTE18
667: , ATTRIBUTE19
668: , ATTRIBUTE20
669: from IGS_AD_TSTSCR_USED
670: where ROWID = X_ROWID
671: for update nowait;
672: tlinfo c1%rowtype;
673: begin
856: x_created_by=>X_LAST_UPDATED_BY,
857: x_last_update_date=>X_LAST_UPDATE_DATE,
858: x_last_updated_by=>X_LAST_UPDATED_BY,
859: x_last_update_login=>X_LAST_UPDATE_LOGIN);
860: update IGS_AD_TSTSCR_USED set
861: COMMENTS = NEW_REFERENCES.COMMENTS,
862: PERSON_ID = NEW_REFERENCES.PERSON_ID,
863: ADMISSION_APPL_NUMBER = NEW_REFERENCES.ADMISSION_APPL_NUMBER,
864: NOMINATED_COURSE_CD = NEW_REFERENCES.NOMINATED_COURSE_CD,
938:
939: (reverse chronological order - newest change first)
940: ***************************************************************/
941:
942: cursor c1 is select ROWID from IGS_AD_TSTSCR_USED
943: where TSTSCR_USED_ID= X_TSTSCR_USED_ID
944: ;
945: begin
946: open c1;
1029: Before_DML (
1030: p_action => 'DELETE',
1031: x_rowid => X_ROWID
1032: );
1033: delete from IGS_AD_TSTSCR_USED
1034: where ROWID = X_ROWID;
1035: if (sql%notfound) then
1036: raise no_data_found;
1037: end if;
1040: x_rowid => X_ROWID
1041: );
1042: end DELETE_ROW;
1043:
1044: END igs_ad_tstscr_used_pkg;