[Home] [Help]
1: package body IGS_EN_CAT_PRC_DTL_PKG AS
2: /* $Header: IGSEI15B.pls 115.6 2003/06/11 06:23:21 rnirwani ship $ */
3: -------------------------------------------------------------------------------------------
4: --Change History:
5: --Who When What
7: -- is changed to igs_as_val_suaap.genp_val_sdtt_sess
8: -------------------------------------------------------------------------------------------
9:
10: l_rowid VARCHAR2(25);
11: old_references IGS_EN_CAT_PRC_DTL%RowType;
12: new_references IGS_EN_CAT_PRC_DTL%RowType;
13:
14: PROCEDURE Set_Column_Values (
15: p_action IN VARCHAR2,
8: -------------------------------------------------------------------------------------------
9:
10: l_rowid VARCHAR2(25);
11: old_references IGS_EN_CAT_PRC_DTL%RowType;
12: new_references IGS_EN_CAT_PRC_DTL%RowType;
13:
14: PROCEDURE Set_Column_Values (
15: p_action IN VARCHAR2,
16: x_rowid IN VARCHAR2 ,
29: ) AS
30:
31: CURSOR cur_old_ref_values IS
32: SELECT *
33: FROM IGS_EN_CAT_PRC_DTL
34: WHERE rowid = x_rowid;
35:
36: BEGIN
37:
74:
75: -- Trigger description :-
76: -- "OSS_TST".trg_ecpd_br_i
77: -- BEFORE INSERT
78: -- ON IGS_EN_CAT_PRC_DTL
79: -- FOR EACH ROW
80:
81: PROCEDURE BeforeRowInsert1(
82: p_inserting IN BOOLEAN ,
85: ) AS
86: v_message_name varchar2(30);
87: BEGIN
88: -- If trigger has not been disabled, perform required processing
89: IF igs_as_val_suaap.genp_val_sdtt_sess('IGS_EN_CAT_PRC_DTL') THEN
90: IF p_inserting THEN
91: -- Validate the enrolment method type
92: IF IGS_EN_VAL_ECPD.enrp_val_ecpd_emt(
93: new_references.enr_method_type,
104:
105: -- Trigger description :-
106: -- "OSS_TST".trg_ecpd_as_i
107: -- AFTER INSERT
108: -- ON IGS_EN_CAT_PRC_DTL
109:
110: PROCEDURE AfterStmtInsert2(
111: p_inserting IN BOOLEAN ,
112: p_updating IN BOOLEAN ,
115: CURSOR c_ecpd IS
116: SELECT enrolment_cat,
117: enr_method_type,
118: s_student_comm_type
119: FROM IGS_EN_CAT_PRC_DTL;
120: v_message_name varchar2(30);
121: BEGIN
122: -- If trigger has not been disabled, perform required processing
123: IF p_inserting AND
120: v_message_name varchar2(30);
121: BEGIN
122: -- If trigger has not been disabled, perform required processing
123: IF p_inserting AND
124: igs_as_val_suaap.genp_val_sdtt_sess('IGS_EN_CAT_PRC_DTL') THEN
125: FOR v_ecpd_rec IN c_ecpd
126: LOOP
127: -- Validate the enrolment method type
128: IF IGS_EN_VAL_ECPD.enrp_val_ecpd_comm(
244:
245: PROCEDURE Check_Child_Existance AS
246: BEGIN
247:
248: IGS_EN_CAT_PRC_STEP_PKG.GET_FK_IGS_EN_CAT_PRC_DTL (
249: old_references.enrolment_cat,
250: old_references.s_student_comm_type,
251: old_references.enr_method_type
252: );
260: ) RETURN BOOLEAN AS
261:
262: CURSOR cur_rowid IS
263: SELECT rowid
264: FROM IGS_EN_CAT_PRC_DTL
265: WHERE enrolment_cat = x_enrolment_cat
266: AND s_student_comm_type = x_s_student_comm_type
267: AND enr_method_type = x_enr_method_type
268: FOR UPDATE NOWAIT;
289: ) AS
290:
291: CURSOR cur_rowid IS
292: SELECT rowid
293: FROM IGS_EN_CAT_PRC_DTL
294: WHERE enr_method_type = x_enr_method_type ;
295:
296: lv_rowid cur_rowid%RowType;
297:
315: ) AS
316:
317: CURSOR cur_rowid IS
318: SELECT rowid
319: FROM IGS_EN_CAT_PRC_DTL
320: WHERE enrolment_cat = x_enrolment_cat ;
321:
322: lv_rowid cur_rowid%RowType;
323:
342: ) AS
343:
344: CURSOR cur_rowid IS
345: SELECT rowid
346: FROM igs_en_cat_prc_dtl
347: WHERE ((enforce_date_alias = x_dt_alias));
348:
349: lv_rowid cur_rowid%RowType;
350:
479: X_MODE in VARCHAR2 ,
480: X_ENFORCE_DATE_ALIAS IN VARCHAR2 ,
481: X_CONFIG_MIN_CP_VALDN IN VARCHAR2
482: ) AS
483: cursor C is select ROWID from IGS_EN_CAT_PRC_DTL
484: where ENROLMENT_CAT = X_ENROLMENT_CAT
485: and S_STUDENT_COMM_TYPE = X_S_STUDENT_COMM_TYPE
486: and ENR_METHOD_TYPE = X_ENR_METHOD_TYPE;
487: X_LAST_UPDATE_DATE DATE;
523: x_enforce_date_alias => X_ENFORCE_DATE_ALIAS,
524: x_config_min_cp_valdn => X_CONFIG_MIN_CP_VALDN
525: );
526:
527: insert into IGS_EN_CAT_PRC_DTL (
528: ENROLMENT_CAT,
529: S_STUDENT_COMM_TYPE,
530: ENR_METHOD_TYPE,
531: PERSON_ADD_ALLOW_IND,
582: PERSON_ADD_ALLOW_IND,
583: COURSE_ADD_ALLOW_IND,
584: ENFORCE_DATE_ALIAS,
585: CONFIG_MIN_CP_VALDN
586: from IGS_EN_CAT_PRC_DTL
587: where ROWID = X_ROWID
588: for update nowait;
589: tlinfo c1%rowtype;
590:
664: x_enforce_date_alias => X_ENFORCE_DATE_ALIAS,
665: x_config_min_cp_valdn => X_CONFIG_MIN_CP_VALDN
666: );
667:
668: update IGS_EN_CAT_PRC_DTL set
669: PERSON_ADD_ALLOW_IND = NEW_REFERENCES.PERSON_ADD_ALLOW_IND,
670: COURSE_ADD_ALLOW_IND = NEW_REFERENCES.COURSE_ADD_ALLOW_IND,
671: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
672: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
696: X_MODE in VARCHAR2 ,
697: X_ENFORCE_DATE_ALIAS IN VARCHAR2 ,
698: X_CONFIG_MIN_CP_VALDN IN VARCHAR2
699: ) AS
700: cursor c1 is select rowid from IGS_EN_CAT_PRC_DTL
701: where ENROLMENT_CAT = X_ENROLMENT_CAT
702: and S_STUDENT_COMM_TYPE = X_S_STUDENT_COMM_TYPE
703: and ENR_METHOD_TYPE = X_ENR_METHOD_TYPE
704: ;
744: x_rowid => X_ROWID
745: );
746:
747:
748: delete from IGS_EN_CAT_PRC_DTL
749: where ROWID = X_ROWID;
750: if (sql%notfound) then
751: raise no_data_found;
752: end if;
756: );
757:
758: end DELETE_ROW;
759:
760: end IGS_EN_CAT_PRC_DTL_PKG;