[Home] [Help]
1: package body IGS_PS_OF_OPT_AD_CAT_PKG AS
2: /* $Header: IGSPI49B.pls 115.6 2003/10/30 13:31:05 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OF_OPT_AD_CAT%RowType;
1: package body IGS_PS_OF_OPT_AD_CAT_PKG AS
2: /* $Header: IGSPI49B.pls 115.6 2003/10/30 13:31:05 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OF_OPT_AD_CAT%RowType;
6: new_references IGS_PS_OF_OPT_AD_CAT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI49B.pls 115.6 2003/10/30 13:31:05 rghosh ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_OF_OPT_AD_CAT%RowType;
6: new_references IGS_PS_OF_OPT_AD_CAT%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
25: ) AS
26:
27: CURSOR cur_old_ref_values IS
28: SELECT *
29: FROM IGS_PS_OF_OPT_AD_CAT
30: WHERE rowid = x_rowid;
31:
32: BEGIN
33:
73: p_inserting IN BOOLEAN DEFAULT FALSE,
74: p_updating IN BOOLEAN DEFAULT FALSE,
75: p_deleting IN BOOLEAN DEFAULT FALSE
76: ) AS
77: v_course_cd IGS_PS_OF_OPT_AD_CAT.course_cd%TYPE;
78: v_version_number IGS_PS_OF_OPT_AD_CAT.version_number%TYPE;
79: v_message_name VARCHAR2(30);
80: BEGIN
81: -- Set IGS_PS_OFR_OPT key.
74: p_updating IN BOOLEAN DEFAULT FALSE,
75: p_deleting IN BOOLEAN DEFAULT FALSE
76: ) AS
77: v_course_cd IGS_PS_OF_OPT_AD_CAT.course_cd%TYPE;
78: v_version_number IGS_PS_OF_OPT_AD_CAT.version_number%TYPE;
79: v_message_name VARCHAR2(30);
80: BEGIN
81: -- Set IGS_PS_OFR_OPT key.
82: IF p_inserting THEN
271:
272: PROCEDURE Check_Child_Existance AS
273: BEGIN
274:
275: IGS_PS_COO_AD_UNIT_S_PKG.GET_FK_IGS_PS_OF_OPT_AD_CAT (
276: old_references.course_cd,
277: old_references.version_number,
278: old_references.cal_type,
279: old_references.location_cd,
295: ) RETURN BOOLEAN AS
296:
297: CURSOR cur_rowid IS
298: SELECT rowid
299: FROM IGS_PS_OF_OPT_AD_CAT
300: WHERE course_cd = x_course_cd
301: AND version_number = x_version_number
302: AND cal_type = x_cal_type
303: AND location_cd = x_location_cd
327: ) AS
328:
329: CURSOR cur_rowid IS
330: SELECT rowid
331: FROM IGS_PS_OF_OPT_AD_CAT
332: WHERE admission_cat = x_admission_cat ;
333:
334: lv_rowid cur_rowid%RowType;
335:
358: ) AS
359:
360: CURSOR cur_rowid IS
361: SELECT rowid
362: FROM IGS_PS_OF_OPT_AD_CAT
363: WHERE course_cd = x_course_cd
364: AND version_number = x_version_number
365: AND cal_type = x_cal_type
366: AND location_cd = x_location_cd
389: ) AS
390:
391: CURSOR cur_rowid IS
392: SELECT rowid
393: FROM IGS_PS_OF_OPT_AD_CAT
394: WHERE coo_id = x_coo_id ;
395:
396: lv_rowid cur_rowid%RowType;
397:
521: X_COO_ID in NUMBER,
522: X_SYSTEM_DEFAULT_IND in VARCHAR2,
523: X_MODE in VARCHAR2 default 'R'
524: ) AS
525: cursor C is select ROWID from IGS_PS_OF_OPT_AD_CAT
526: where COURSE_CD = X_COURSE_CD
527: and VERSION_NUMBER = X_VERSION_NUMBER
528: and CAL_TYPE = X_CAL_TYPE
529: and LOCATION_CD = X_LOCATION_CD
571: x_last_updated_by => X_LAST_UPDATED_BY,
572: x_last_update_login => X_LAST_UPDATE_LOGIN
573: );
574:
575: insert into IGS_PS_OF_OPT_AD_CAT (
576: COURSE_CD,
577: VERSION_NUMBER,
578: CAL_TYPE,
579: LOCATION_CD,
632: ) AS
633: cursor c1 is select
634: COO_ID,
635: SYSTEM_DEFAULT_IND
636: from IGS_PS_OF_OPT_AD_CAT
637: where ROWID = X_ROWID for update nowait;
638: tlinfo c1%rowtype;
639:
640: begin
712: x_last_update_date => X_LAST_UPDATE_DATE,
713: x_last_updated_by => X_LAST_UPDATED_BY,
714: x_last_update_login => X_LAST_UPDATE_LOGIN
715: );
716: update IGS_PS_OF_OPT_AD_CAT set
717: COO_ID = NEW_REFERENCES.COO_ID,
718: SYSTEM_DEFAULT_IND = NEW_REFERENCES.SYSTEM_DEFAULT_IND,
719: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
720: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
742: X_COO_ID in NUMBER,
743: X_SYSTEM_DEFAULT_IND in VARCHAR2,
744: X_MODE in VARCHAR2 default 'R'
745: ) AS
746: cursor c1 is select rowid from IGS_PS_OF_OPT_AD_CAT
747: where COURSE_CD = X_COURSE_CD
748: and VERSION_NUMBER = X_VERSION_NUMBER
749: and CAL_TYPE = X_CAL_TYPE
750: and LOCATION_CD = X_LOCATION_CD
792: begin
793: Before_DML( p_action => 'DELETE',
794: x_rowid => X_ROWID
795: );
796: delete from IGS_PS_OF_OPT_AD_CAT
797: where ROWID = X_ROWID;
798: if (sql%notfound) then
799: raise no_data_found;
800: end if;
803: x_rowid => X_ROWID
804: );
805: end DELETE_ROW;
806:
807: end IGS_PS_OF_OPT_AD_CAT_PKG;