[Home] [Help]
1: package body IGS_PS_GRP_FEE_TRG_PKG AS
2: /* $Header: IGSPI16B.pls 115.7 2003/02/20 10:17:59 shtatiko ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_GRP_FEE_TRG%RowType;
1: package body IGS_PS_GRP_FEE_TRG_PKG AS
2: /* $Header: IGSPI16B.pls 115.7 2003/02/20 10:17:59 shtatiko ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_GRP_FEE_TRG%RowType;
6: new_references IGS_PS_GRP_FEE_TRG%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
2: /* $Header: IGSPI16B.pls 115.7 2003/02/20 10:17:59 shtatiko ship $ */
3:
4: l_rowid VARCHAR2(25);
5: old_references IGS_PS_GRP_FEE_TRG%RowType;
6: new_references IGS_PS_GRP_FEE_TRG%RowType;
7:
8: PROCEDURE Set_Column_Values (
9: p_action IN VARCHAR2,
10: x_rowid IN VARCHAR2 DEFAULT NULL,
23: ) AS
24:
25: CURSOR cur_old_ref_values IS
26: SELECT *
27: FROM IGS_PS_GRP_FEE_TRG
28: WHERE rowid = x_rowid;
29:
30: BEGIN
31:
67:
68: -- Trigger description :-
69: -- "OSS_TST".trg_cgft_br_iud
70: -- BEFORE INSERT OR DELETE OR UPDATE
71: -- ON IGS_PS_GRP_FEE_TRG
72: -- FOR EACH ROW
73:
74: PROCEDURE BeforeRowInsertUpdateDelete1(
75: p_inserting IN BOOLEAN DEFAULT FALSE,
104:
105: -- Trigger description :-
106: -- "OSS_TST".trg_cgft_ar_iu
107: -- AFTER INSERT OR UPDATE
108: -- ON IGS_PS_GRP_FEE_TRG
109: -- FOR EACH ROW
110:
111: PROCEDURE AfterRowInsertUpdate2(
112: p_inserting IN BOOLEAN DEFAULT FALSE,
119: -- Validate for open IGS_PS_COURSE Group Fee Trig records.
120: IF p_inserting OR
121: (new_references.logical_delete_dt IS NULL) THEN
122: -- Save the rowid of the current row.
123: -- Validate for open ended IGS_PS_GRP_FEE_TRG records.
124: IF new_references.logical_delete_dt IS NULL THEN
125: IF IGS_FI_VAL_CGFT.finp_val_cgft_open(new_references.fee_cat,
126: new_references.fee_cal_type,
127: new_references.fee_ci_sequence_number,
246: RETURN BOOLEAN AS
247:
248: CURSOR cur_rowid IS
249: SELECT rowid
250: FROM IGS_PS_GRP_FEE_TRG
251: WHERE fee_cat = x_fee_cat
252: AND fee_cal_type = x_fee_cal_type
253: AND fee_ci_sequence_number = x_fee_ci_sequence_number
254: AND fee_type = x_fee_type
371: X_FEE_CI_SEQUENCE_NUMBER in NUMBER,
372: X_LOGICAL_DELETE_DT in DATE,
373: X_MODE in VARCHAR2 default 'R'
374: ) AS
375: cursor C is select ROWID from IGS_PS_GRP_FEE_TRG
376: where FEE_CAT = X_FEE_CAT
377: and CREATE_DT = NEW_REFERENCES.CREATE_DT
378: and COURSE_GROUP_CD = X_COURSE_GROUP_CD
379: and FEE_CAL_TYPE = X_FEE_CAL_TYPE
436: x_last_updated_by => X_LAST_UPDATED_BY ,
437: x_last_update_login => X_LAST_UPDATE_LOGIN
438: );
439:
440: insert into IGS_PS_GRP_FEE_TRG (
441: FEE_CAT,
442: FEE_CAL_TYPE,
443: FEE_CI_SEQUENCE_NUMBER,
444: FEE_TYPE,
499: X_LOGICAL_DELETE_DT in DATE
500: ) AS
501: cursor c1 is select
502: LOGICAL_DELETE_DT
503: from IGS_PS_GRP_FEE_TRG
504: where ROWID = X_ROWID
505: for update nowait;
506: tlinfo c1%rowtype;
507:
602: X_PROGRAM_UPDATE_DATE := SYSDATE;
603: end if;
604: end if;
605:
606: update IGS_PS_GRP_FEE_TRG set
607: LOGICAL_DELETE_DT = NEW_REFERENCES.LOGICAL_DELETE_DT,
608: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
609: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
610: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
633: X_FEE_CI_SEQUENCE_NUMBER in NUMBER,
634: X_LOGICAL_DELETE_DT in DATE,
635: X_MODE in VARCHAR2 default 'R'
636: ) AS
637: cursor c1 is select rowid from IGS_PS_GRP_FEE_TRG
638: where FEE_CAT = X_FEE_CAT
639: and CREATE_DT = NVL(X_CREATE_DT, SYSDATE)
640: and COURSE_GROUP_CD = X_COURSE_GROUP_CD
641: and FEE_CAL_TYPE = X_FEE_CAL_TYPE
679: Before_DML (
680: p_action => 'DELETE',
681: x_rowid => X_ROWID
682: );
683: delete from IGS_PS_GRP_FEE_TRG
684: where ROWID = X_ROWID;
685: if (sql%notfound) then
686: raise no_data_found;
687: end if;
690: x_rowid => X_ROWID
691: );
692: end DELETE_ROW;
693:
694: end IGS_PS_GRP_FEE_TRG_PKG;