[Home] [Help]
1: package body IGS_GR_AWD_CRMN_HIST_PKG as
2: /* $Header: IGSGI04B.pls 115.4 2002/11/29 00:34:27 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_AWD_CRMN_HIST%RowType;
5: new_references IGS_GR_AWD_CRMN_HIST%RowType;
1: package body IGS_GR_AWD_CRMN_HIST_PKG as
2: /* $Header: IGSGI04B.pls 115.4 2002/11/29 00:34:27 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_AWD_CRMN_HIST%RowType;
5: new_references IGS_GR_AWD_CRMN_HIST%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
1: package body IGS_GR_AWD_CRMN_HIST_PKG as
2: /* $Header: IGSGI04B.pls 115.4 2002/11/29 00:34:27 nsidana ship $ */
3: l_rowid VARCHAR2(25);
4: old_references IGS_GR_AWD_CRMN_HIST%RowType;
5: new_references IGS_GR_AWD_CRMN_HIST%RowType;
6:
7: PROCEDURE Set_Column_Values (
8: p_action IN VARCHAR2,
9: x_rowid IN VARCHAR2 DEFAULT NULL,
41: ) AS
42:
43: CURSOR cur_old_ref_values IS
44: SELECT *
45: FROM IGS_GR_AWD_CRMN_HIST
46: WHERE rowid = x_rowid;
47:
48: BEGIN
49:
368: ) RETURN BOOLEAN AS
369:
370: CURSOR cur_rowid IS
371: SELECT rowid
372: FROM IGS_GR_AWD_CRMN_HIST
373: WHERE GACH_ID = x_GACH_ID
374: FOR UPDATE NOWAIT;
375:
376: lv_rowid cur_rowid%RowType;
401: x_hist_start_dt IN DATE
402: ) RETURN BOOLEAN AS
403: CURSOR cur_rowid IS
404: SELECT rowid
405: FROM IGS_GR_AWD_CRMN_HIST
406: WHERE person_id = x_person_id
407: AND create_dt = x_create_dt
408: AND grd_cal_type = x_grd_cal_type
409: AND grd_ci_sequence_number = x_grd_ci_sequence_number
437: ) AS
438:
439: CURSOR cur_rowid IS
440: SELECT rowid
441: FROM IGS_GR_AWD_CRMN_HIST
442: WHERE person_id = x_person_id
443: AND create_dt = x_create_dt ;
444:
445: lv_rowid cur_rowid%RowType;
592: X_AWARD_CD in VARCHAR2,
593: X_HIST_START_DT in DATE,
594: X_MODE in VARCHAR2 default 'R'
595: ) AS
596: cursor C is select ROWID from IGS_GR_AWD_CRMN_HIST
597: where GACH_ID = X_GACH_ID;
598: X_LAST_UPDATE_DATE DATE;
599: X_LAST_UPDATED_BY NUMBER;
600: X_LAST_UPDATE_LOGIN NUMBER;
599: X_LAST_UPDATED_BY NUMBER;
600: X_LAST_UPDATE_LOGIN NUMBER;
601: begin
602:
603: SELECT IGS_GR_AWD_CRMN_HIST_GACH_ID_S.NEXTVAL INTO X_GACH_ID FROM DUAL;
604:
605: X_LAST_UPDATE_DATE := SYSDATE;
606: if(X_MODE = 'I') then
607: X_LAST_UPDATED_BY := 1;
656: x_last_updated_by => X_LAST_UPDATED_BY,
657: x_last_update_login => X_LAST_UPDATE_LOGIN
658: );
659:
660: insert into IGS_GR_AWD_CRMN_HIST (
661: NAME_PRONUNCIATION,
662: NAME_ANNOUNCED,
663: ACADEMIC_DRESS_RQRD_IND,
664: ACADEMIC_GOWN_SIZE,
787: AWARD_COURSE_CD,
788: AWARD_CRS_VERSION_NUMBER,
789: AWARD_CD,
790: HIST_START_DT
791: from IGS_GR_AWD_CRMN_HIST
792: where ROWID = X_ROWID for update nowait;
793: tlinfo c1%rowtype;
794:
795: begin
957: x_last_updated_by => X_LAST_UPDATED_BY,
958: x_last_update_login => X_LAST_UPDATE_LOGIN
959: );
960:
961: update IGS_GR_AWD_CRMN_HIST set
962: NAME_PRONUNCIATION = NEW_REFERENCES.NAME_PRONUNCIATION,
963: NAME_ANNOUNCED = NEW_REFERENCES.NAME_ANNOUNCED,
964: ACADEMIC_DRESS_RQRD_IND = NEW_REFERENCES.ACADEMIC_DRESS_RQRD_IND,
965: ACADEMIC_GOWN_SIZE = NEW_REFERENCES.ACADEMIC_GOWN_SIZE,
1024: X_AWARD_CD in VARCHAR2,
1025: X_HIST_START_DT in DATE,
1026: X_MODE in VARCHAR2 default 'R'
1027: ) AS
1028: cursor c1 is select rowid from IGS_GR_AWD_CRMN_HIST
1029: where GACH_ID = X_GACH_ID
1030: ;
1031:
1032: begin
1101: X_ROWID in VARCHAR2
1102: ) AS
1103: begin
1104:
1105: delete from IGS_GR_AWD_CRMN_HIST
1106: where ROWID = X_ROWID;
1107: if (sql%notfound) then
1108: raise no_data_found;
1109: end if;
1109: end if;
1110:
1111: end DELETE_ROW;
1112:
1113: end IGS_GR_AWD_CRMN_HIST_PKG;