[Home] [Help]
1: package body IGS_PS_OFR_INST_PKG AS
2: /* $Header: IGSPI20B.pls 115.4 2002/11/29 02:11:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OFR_INST%RowType;
1: package body IGS_PS_OFR_INST_PKG AS
2: /* $Header: IGSPI20B.pls 115.4 2002/11/29 02:11:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OFR_INST%RowType;
6: new_references IGS_PS_OFR_INST%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI20B.pls 115.4 2002/11/29 02:11:49 nsidana ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OFR_INST%RowType;
6: new_references IGS_PS_OFR_INST%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
24: ) AS
25:
26: CURSOR cur_old_ref_values IS
27: SELECT *
28: FROM IGS_PS_OFR_INST
29: WHERE rowid = x_rowid;
30:
31: BEGIN
32:
69:
70: -- Trigger description :-
71: -- "OSS_TST".trg_coi_br_iud
72: -- BEFORE INSERT OR DELETE OR UPDATE
73: -- ON IGS_PS_OFR_INST
74: -- FOR EACH ROW
75:
76: PROCEDURE BeforeRowInsertUpdateDelete1(
77: p_inserting IN BOOLEAN DEFAULT FALSE,
238:
239: PROCEDURE Check_Child_Existance AS
240: BEGIN
241:
242: IGS_PS_OFR_PAT_PKG.GET_FK_IGS_PS_OFR_INST (
243: old_references.course_cd,
244: old_references.version_number,
245: old_references.cal_type,
246: old_references.ci_sequence_number
257: RETURN BOOLEAN AS
258:
259: CURSOR cur_rowid IS
260: SELECT rowid
261: FROM IGS_PS_OFR_INST
262: WHERE course_cd = x_course_cd
263: AND version_number = x_version_number
264: AND cal_type = x_cal_type
265: AND ci_sequence_number = x_ci_sequence_number
289: ) AS
290:
291: CURSOR cur_rowid IS
292: SELECT rowid
293: FROM IGS_PS_OFR_INST
294: WHERE cal_type = x_cal_type
295: AND ci_sequence_number = x_sequence_number
296: AND ci_start_dt = x_start_dt
297: AND ci_end_dt = x_end_dt ;
320: ) AS
321:
322: CURSOR cur_rowid IS
323: SELECT rowid
324: FROM IGS_PS_OFR_INST
325: WHERE course_cd = x_course_cd
326: AND version_number = x_version_number
327: AND cal_type = x_cal_type ;
328:
444: X_MIN_ENTRY_ASS_SCORE in NUMBER,
445: X_GUARANTEED_ENTRY_ASS_SCR in NUMBER,
446: X_MODE in VARCHAR2 default 'R'
447: ) AS
448: cursor C is select ROWID from IGS_PS_OFR_INST
449: where COURSE_CD = X_COURSE_CD
450: and VERSION_NUMBER = X_VERSION_NUMBER
451: and CAL_TYPE = X_CAL_TYPE
452: and CI_SEQUENCE_NUMBER = X_CI_SEQUENCE_NUMBER;
503: x_last_update_date => X_LAST_UPDATE_DATE ,
504: x_last_updated_by => X_LAST_UPDATED_BY ,
505: x_last_update_login => X_LAST_UPDATE_LOGIN
506: );
507: insert into IGS_PS_OFR_INST (
508: COURSE_CD,
509: VERSION_NUMBER,
510: CAL_TYPE,
511: CI_SEQUENCE_NUMBER,
569: CI_START_DT,
570: CI_END_DT,
571: MIN_ENTRY_ASS_SCORE,
572: GUARANTEED_ENTRY_ASS_SCR
573: from IGS_PS_OFR_INST
574: where ROWID = X_ROWID
575: for update nowait;
576: tlinfo c1%rowtype;
577:
674: X_PROGRAM_UPDATE_DATE := SYSDATE;
675: end if;
676: end if;
677:
678: update IGS_PS_OFR_INST set
679: CI_START_DT = NEW_REFERENCES.CI_START_DT,
680: CI_END_DT = NEW_REFERENCES.CI_END_DT,
681: MIN_ENTRY_ASS_SCORE = NEW_REFERENCES.MIN_ENTRY_ASS_SCORE,
682: GUARANTEED_ENTRY_ASS_SCR = NEW_REFERENCES.GUARANTEED_ENTRY_ASS_SCR,
709: X_MIN_ENTRY_ASS_SCORE in NUMBER,
710: X_GUARANTEED_ENTRY_ASS_SCR in NUMBER,
711: X_MODE in VARCHAR2 default 'R'
712: ) AS
713: cursor c1 is select rowid from IGS_PS_OFR_INST
714: where COURSE_CD = X_COURSE_CD
715: and VERSION_NUMBER = X_VERSION_NUMBER
716: and CAL_TYPE = X_CAL_TYPE
717: and CI_SEQUENCE_NUMBER = X_CI_SEQUENCE_NUMBER
755: Before_DML (
756: p_action => 'DELETE',
757: x_rowid => X_ROWID
758: );
759: delete from IGS_PS_OFR_INST
760: where ROWID = X_ROWID;
761: if (sql%notfound) then
762: raise no_data_found;
763: end if;
766: x_rowid => X_ROWID
767: );
768: end DELETE_ROW;
769:
770: end IGS_PS_OFR_INST_PKG;